home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0063 / contents.bas < prev    next >
Encoding:
BASIC Source File  |  1991-12-02  |  2.1 KB  |  49 lines
  1. 0 ' ====> CONTENTS.bas
  2. 1 ON KEY(1) GOSUB 8:KEY (1) ON
  3. 2 ON KEY(2) GOSUB 9:KEY (2) ON
  4. 3 ON KEY(3) GOSUB 10:KEY (3) ON
  5. 4 ON KEY(8) GOSUB 11:KEY (8) ON
  6. 5 ON KEY(9) GOSUB 12:KEY (9) ON
  7. 6 ON KEY(10) GOSUB 13:KEY (10) ON
  8. 7 GOTO 14
  9. 8 CLOSE:RUN"backup"
  10. 9 CLOSE:RUN"forward"
  11. 10 CLOSE:RUN"repeat"
  12. 11 CLOSE:RUN"a0"
  13. 12 CLOSE:RUN"contents"
  14. 13 CLOSE:RUN"index"
  15. 14 OPEN"i",#1,"data.dat":INPUT#1,MONO,LSN$,PAGE:CLOSE
  16. 15 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))
  17. 16 PG=1:GOSUB 21:GOSUB 28
  18. 17 LOCATE ,,0:PG=2:GOSUB 21:GOSUB 28
  19. 18 LOCATE ,,0:PG=3:GOSUB 21:GOSUB 28
  20. 19 LOCATE ,,0:PG=4:GOSUB 21:GOSUB 28
  21. 20 LOCATE ,,0:RUN"repeat"
  22. 21 SCREEN 0,0,0:WIDTH 80:KEY OFF:COLOR C1,C2:CLS:OPEN "i",#1,"contents.txt"
  23. 22 FOR I=1 TO PG
  24. 23 LINE INPUT#1,A$:IF LEFT$(A$,5)<>"-----" THEN 23
  25. 24 NEXT I
  26. 25 LINE INPUT#1,A$:IF LEFT$(A$,5)<>"-----" THEN PRINT A$:GOTO 25
  27. 26 CLOSE
  28. 27 RETURN
  29. 28 LOCATE 24,1:PRINT "Press the ";:COLOR C2,C1:PRINT "space bar";:COLOR C1,C2:PRINT " to continue or enter the lesson and page number (#.##).";
  30. 29 LOCATE 24,76,1
  31. 30 LSN$=INKEY$:IF LSN$="" THEN 30 ELSE IF LSN$=" " THEN RETURN
  32. 31 IF LSN$<"1" OR LSN$>"4" THEN LOCATE 25,1:PRINT SPACE$(79);:LOCATE 25,25:PRINT "Lesson number 1 through 4 please.";:GOTO 29
  33. 32 LOCATE 24,76:PRINT LSN$;".";:LOCATE 24,78,1
  34. 33 P1$=INKEY$:IF P1$="" THEN 33
  35. 34 IF P1$=" " THEN RETURN ELSE IF P1$=CHR$(8) THEN LOCATE 24,76:PRINT SPACE$(3);:GOTO 29
  36. 35 IF P1$<>"0" AND P1$<>"1" THEN LOCATE 25,1:PRINT SPACE$(79);:LOCATE 25,30:PRINT "Press 0 or 1 please.";:GOTO 32
  37. 36 LOCATE 24,78:PRINT P1$;:LOCATE 24,79,1
  38. 37 P2$=INKEY$:IF P2$="" THEN 37
  39. 38 IF P2$=" " THEN RETURN ELSE IF P2$=CHR$(8) THEN LOCATE 24,78:PRINT SPACE$(2);:GOTO 32
  40. 39 IF LSN$="1" THEN PMAX$="12"
  41. 40 IF LSN$="2" THEN PMAX$="10"
  42. 41 IF LSN$="3" THEN PMAX$="10"
  43. 42 IF LSN$="4" THEN PMAX$="12"
  44. 43 PG$=P1$+P2$:IF PG$<"01" OR PG$>PMAX$ THEN LOCATE 25,1:PRINT SPACE$(79);:LOCATE 25,25:PRINT "Page number 01 through ";PMAX$;" please.";:GOTO 36
  45. 44 LOCATE 24,79,0:PRINT P2$;
  46. 45 CHAIN"a"+LSN$,VAL(PG$),ALL
  47.  25,25:PRINT "Page number 01 through ";PMAX$;" please.";:GOTO 36
  48. 44 LOCATE 24,79,0:PRINT P2$;
  49.