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