home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0063 / forward.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-02  |  640 b   |  13 lines
  1. 0 ' ====> FORWARD.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. ,"RUN"+CHR$(34)+"CONTENTS"+CHR$(34)+CHR$(13)
  13. 9 KEY 10,"RUN"+CHR$(34)+"INDEX"+CHR$(34)+CH