home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / backup.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  512 b   |  12 lines
  1. 0  ' ====> BACKUP.bas
  2. 1  OPEN"i",#1,"data.dat":INPUT#1,MONO,LSN$,PAGE:CLOSE
  3. 2  IF MONO THEN C1=7:C2=0:C3=8:C4=2 ELSE C1=(VAL(RIGHT$(TIME$,2)) MOD 6)+2:C2=0:C4=0:C3=(C1+2)+(6*(C1>5))
  4. 3  KEY 1,"RUN"+CHR$(34)+"BACKUP"+CHR$(34)+CHR$(13)
  5. 4  KEY 2,"RUN"+CHR$(34)+"FORWARD"+CHR$(34)+CHR$(13)
  6. 5  KEY 3,"RUN"+CHR$(34)+"REPEAT"+CHR$(34)+CHR$(13)
  7. 6  FOR I=4 TO 7:KEY I,"":NEXT I
  8. 7  KEY 8,"RUN"+CHR$(34)+"a0"+CHR$(34)+CHR$(13)
  9. 8  KEY 9,"RUN"+CHR$(34)+"CONTENTS"+CHR$(34)+CHR$(13)
  10. 9  KEY 10,"RUN"+CHR$(34)+"INDEX"+CHR$(34)+CHR$(13)
  11. 10  CHAIN "A"+LSN$,PAGE-1,ALL
  12.