home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk116 / iqbuild.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-02  |  4.5 KB  |  97 lines
  1. 10  REM ======================================================================
  2. 20  REM ============================= IQ Builder =============================
  3. 30  REM This program presents a menu of the programs available in the      ===
  4. 40  REM IQ Builder series and allows the user to select a program by       ===
  5. 50  REM moving the cursor to the desired program and pressing ENTER.       ===
  6. 60  REM ======================================================================
  7. 70  REM $s2
  8. 80  REM  =====================================================================
  9. 90  REM  Turn off KEY display, set display width, clear the screen and set ===
  10. 100  REM KEY(10) to reload the menu program when pressed in command mode.  ===
  11. 110  REM =====================================================================
  12. 120  REM $s2
  13. 130  KEY OFF:WIDTH 80:CLS:KEY 10,"run "+CHR$(34)+"b:???0??"+CHR$(13)
  14. 140  REM $s2
  15. 150  REM =====================================================================
  16. 160  REM Display the menu of the programs available in IQ Builder.         ===
  17. 170  REM =====================================================================
  18. 180  REM $s2
  19. 190  LOCATE 1,34,0:COLOR 0,7:PRINT " IQ Builder ";
  20. 200  LOCATE 3,10:COLOR 7,0:PRINT "The following programs are available on this diskette:";
  21. 210  LOCATE 5,30:PRINT "Number Series"
  22. 220  LOCATE 6,30:PRINT "Analogies"
  23. 230  LOCATE 7,30:PRINT "Synonyms"
  24. 240  LOCATE 8,30:PRINT "Antonyms"
  25. 270  LOCATE 16,1:PRINT"Use the ";:COLOR 15:PRINT"UP ("CHR$(24)")";:COLOR 7:PRINT" and ";:COLOR 15:PRINT"DOWN ("CHR$(25)")";:COLOR 7:PRINT" arrows to position the cursor to the function"
  26. 280  LOCATE 17,1:PRINT"desired and then press the ";:COLOR 15:PRINT"ENTER ("CHR$(17)CHR$(196)CHR$(217)")";:COLOR 7:PRINT" key."
  27. 290  REM $s2
  28. 300  REM =====================================================================
  29. 310  REM Set up the initial coordinates for the selection arrow.           ===
  30. 320  REM =====================================================================
  31. 330  REM $s2
  32. 340  X=25:Y=5
  33. 350  REM $pa
  34. 360  REM =====================================================================
  35. 370  REM Set up UP and DOWN arrows for moving selection arrow.             ===
  36. 380  REM =====================================================================
  37. 390  REM $s2
  38. 400  KEY(11) ON:KEY(14) ON:ON KEY(11) GOSUB 730:ON KEY(14) GOSUB 800
  39. 410  REM $s2
  40. 420  REM =====================================================================
  41. 430  REM Set up KEY(10) to return to MENU program on A-disk.               ===
  42. 440  REM =====================================================================
  43. 450  REM $s2
  44. 460  KEY(10) ON:ON KEY(10) GOSUB 1000
  45. 470  REM $s2
  46. 480  REM =====================================================================
  47. 490  REM Display highlighted selection arrow at Y,X.                       ===
  48. 500  REM =====================================================================
  49. 510  REM $s2
  50. 520  COLOR 31:LOCATE Y,X:PRINT "==>";
  51. 530  REM $s2
  52. 540  POKE 106,0'clear kybd buffer
  53. 550  REM $s2
  54. 560  REM =====================================================================
  55. 570  REM If ENTER is pressed, go to program run routine.                   ===
  56. 580  REM =====================================================================
  57. 590  REM $s2
  58. 600  IF INKEY$ = CHR$(13) THEN BEEP:COLOR 7:CLS:GOTO 870
  59. 610  REM $s2
  60. 620  REM =====================================================================
  61. 630  REM Display the date and time at the bottom of the display.           ===
  62. 640  REM =====================================================================
  63. 650  REM $s2
  64. 660  COLOR 7:LOCATE 25,25:PRINT DATE$,TIME$;
  65. 670  GOTO 520
  66. 680  REM $pa
  67. 690  REM =====================================================================
  68. 700  REM Move the selection arrow up if it isn't at the top of the menu.   ===
  69. 710  REM =====================================================================
  70. 720  REM $s2
  71. 730  BEEP:Y1=CSRLIN:X1=POS(0):LOCATE Y,X:PRINT "   ";:LOCATE Y1,X1:IF Y>5 THEN Y=Y-1
  72. 740  RETURN 520
  73. 750  REM $s2
  74. 760  REM =====================================================================
  75. 770  REM Move the selection arrow down if it isn't at the top of the menu. ===
  76. 780  REM =====================================================================
  77. 790  REM $s2
  78. 800  BEEP:Y1=CSRLIN:X1=POS(0):LOCATE Y,X:PRINT "   ";:LOCATE Y1,X1:IF Y<8 THEN Y=Y+1
  79. 810  RETURN 520
  80. 820  REM $s2
  81. 830  REM =====================================================================
  82. 840  REM Run the selected program. If selection is invalid, return to menu.===
  83. 850  REM =====================================================================
  84. 860  REM $s2
  85. 870  IF Y=5 THEN RUN "numbers"
  86. 880  IF Y=6 THEN RUN "analog"
  87. 890  IF Y=7 THEN RUN "synonym"
  88. 900  IF Y=8 THEN RUN "antonym"
  89. 930  BEEP:LOCATE 2,1:PRINT "Please make another selection."
  90. 940  FOR I=1 TO 1000:NEXT I:RUN
  91. 950  REM $s2
  92. 960  REM =====================================================================
  93. 970  REM Return to MENU program on the A-disk.                             ===
  94. 980  REM =====================================================================
  95. 990  REM $s2
  96. 1000  COLOR 7,0:RUN "menu"
  97.