home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / contents.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-15  |  1.6 KB  |  47 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.