home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / FRIENDLY.ZIP / MENU1.001 < prev    next >
Encoding:
Text File  |  1988-10-13  |  7.2 KB  |  65 lines
  1. 20 CLEAR:FOR A=1 TO 10:KEY A,"":NEXT:ON KEY(10) GOSUB 500:KEY(10) ON:KEY OFF:SCREEN 0,0,0:WIDTH 80:ON ERROR GOTO 410
  2. 40 GOSUB 1640:COLOR 0,7:LOCATE 9,8:PRINT" A ":LOCATE 11,8:PRINT" B ":LOCATE 13,8:PRINT" C ":LOCATE 15,8:PRINT" D ":LOCATE 9,34:PRINT" E ":LOCATE 11,34:PRINT" F ":LOCATE 13,34:PRINT" G ":LOCATE 15,34:PRINT" H "
  3. 91 LOCATE 9,61:PRINT" I ":LOCATE 11,61:PRINT" J ":LOCATE 13,61:PRINT" K ":LOCATE 15,61:PRINT" L "
  4. 100 LOCATE 9,12:COLOR 6,0:PRINT"Introduction":LOCATE 11,12:PRINT"Master Mind":LOCATE 13,12:PRINT"Nevada Dice":LOCATE 15,12:PRINT"Killer Maze"
  5. 101 LOCATE 9,38:PRINT"Sea Battle":LOCATE 11,38:PRINT"Eye & Hearing Test":LOCATE 13,38:PRINT"Boggy Marsh":LOCATE 15,38:PRINT"Hangman"
  6. 102 LOCATE 9,65:PRINT"Tic Tac Toe":LOCATE 15,65:PRINT"Return To DOS":LOCATE 11,65:PRINT"Intro Menu #2":LOCATE 13,65:PRINT"Intro Menu #3":GOSUB 1660
  7. 190 COLOR 4:LOCATE 22,2:PRINT"╔"STRING$(37,"═")"╤╤"STRING$(37,"═")"╗"
  8. 200 PRINT" ║"TAB(7);:COLOR 0,7:PRINT"    AVAILABLE ON MENU TWO    ";:COLOR 4,0:PRINT TAB(40)"││"TAB(45);:COLOR 0,7:PRINT"    AVAILABLE ON MENU THREE    ";:COLOR 4,0:PRINT TAB(79)"║"
  9. 210 PRINT" ║";:COLOR 2:PRINT TAB(11)"Games & Entertainment"TAB(40);:COLOR 4:PRINT"││"TAB(48);:COLOR 2:PRINT"Home Finance & Analytical";:COLOR 4:PRINT TAB(79)"║";
  10. 230 LOCATE 25,2:PRINT"╚"STRING$(37,"═")"╧╧"STRING$(37,"═")"╝";:COLOR 3,0
  11. 250 GOSUB 1600:IF RP$<"A" OR RP$>"L" THEN 250 ELSE ON ASC(RP$)-64 GOTO 5000,270,280,285,290,8000,300,315,320,355,360,350
  12. 270 RUN"MASTER.001"
  13. 280 RUN"CRAPS.001"
  14. 285 RUN"MAZE.001"
  15. 290 RUN"SEABAT.001"
  16. 300 RUN"BOGGY.001"
  17. 315 RUN"HANGMAN.001"
  18. 320 RUN"TICTAC.001"
  19. 330 RUN"HISTORY.001"
  20. 340 RUN"ANATOMY.001"
  21. 345 RUN"HINTS.001"
  22. 350 CLEAR:ON ERROR GOTO 351:RUN"MENU.123"
  23. 351 CLS:SYSTEM
  24. 355 ON ERROR GOTO 370:RUN"MENU2.002"
  25. 360 ON ERROR GOTO 380:RUN"MENU3.003"
  26. 370 CLEAR:ON ERROR GOTO 410:GOSUB 600:RUN"MENU2.002"
  27. 380 CLEAR:ON ERROR GOTO 410:GOSUB 600:RUN"MENU3.003
  28. 410 RUN
  29. 500 RETURN 20
  30. 600 LOCATE 19,1:PRINT SPC(79):COLOR 0,7:LOCATE 19,14:PRINT"Please Insert Other Diskette And Strike Any Key When Ready":COLOR 7,0
  31. 610 GOSUB 1600:LOCATE 19,1:PRINT SPC(79):GOSUB 1660:RETURN
  32. 1600 IF INKEY$<>"" THEN 1600
  33. 1605 DEF SEG=&H40:POKE &H17,(PEEK(&H17) OR 96):RP$=INKEY$:IF RP$="" THEN 1605 ELSE RETURN
  34. 1640 COLOR 12,0:CLS:LOCATE 1,20,0:PRINT STRING$(43,"─"):LOCATE 3,20:PRINT STRING$(43,"─"):LOCATE 1,19:PRINT"┌":LOCATE 1,63:PRINT"┐":LOCATE 3,63:PRINT"┘":LOCATE 3,19:PRINT"└":LOCATE 2,19:PRINT"│"SPC(43)"│":COLOR 0,7
  35. 1650 LOCATE 2,29:PRINT" F R I E N D L Y W A R E ":COLOR 3,0:LOCATE 5,24:PRINT"Programs Available From This Menu":RETURN
  36. 1660 LOCATE 19,14:COLOR 15:PRINT"*****";:COLOR 3,0:PRINT" Strike Key Corresponding To Program Desired ";:COLOR 15:PRINT"*****":COLOR 3:RETURN
  37. 5000 ON ERROR GOTO 410:ON KEY(10) GOSUB 500:KEY(10) ON:GOSUB 1640:LOCATE 7,29:COLOR 7,0:PRINT"Introduction To Computers":COLOR 0,7:LOCATE 11,29:PRINT" 1 ":LOCATE 13,29:PRINT" 2 ":LOCATE 15,29:PRINT" 3 "
  38. 5001 COLOR 6,0:LOCATE 11,35:PRINT"Information":LOCATE 13,35:PRINT"Anatomy of a Program":LOCATE 15,35:PRINT"Helpful Commands":LOCATE 25,23:COLOR 0,7:PRINT" Strike <F10> To Leave This Program ";:COLOR 3,0
  39. 5002 GOSUB 1600:IF RP$<"1" OR RP$>"3" THEN 5002 ELSE ON VAL(RP$) GOTO 330,340,345
  40. 8000 GOSUB 1640
  41. 8100 LOCATE  7,28:COLOR 7,0:PRINT"   Hearing And Eye Test":LOCATE 11,32:COLOR 0,7:PRINT" 1 ";:COLOR 3,0:PRINT"   Hearing Test":LOCATE 13,32:COLOR 0,7:PRINT" 2 ";:COLOR 3,0:PRINT"   Eye Test"
  42. 8130 GOSUB 1660:LOCATE 25,23:COLOR 0,7:PRINT" Strike <F10> To Leave This Program ";:COLOR 3,0
  43. 8150 GOSUB 1600:IF RP$<"1" OR RP$>"2" THEN 8150 ELSE ON VAL(RP$) GOSUB 8690,8210:GOTO 8000
  44. 8210 CLS:PRINT STRING$(80,219):FOR A=2 TO 22:LOCATE A,1:PRINT"█":LOCATE A,80:PRINT"█":NEXT:LOCATE 23,1:PRINT STRING$(80,219);:COLOR 15,0:LOCATE 3,32:PRINT"HOME VISION TEST":COLOR 3,0
  45. 8270 LOCATE 5,15:PRINT"This test is not a replacement for  regular visits":LOCATE 6,15:PRINT"to your doctor. Only he can conduct a complete and":LOCATE 7,15:PRINT"thorough examination.
  46. 8300 LOCATE 9,15:PRINT"To  test your vision,  stand back 20 feet from the":LOCATE 10,15:PRINT"screen.  Place a hand  over  one  eye and  without":LOCATE 11,15:PRINT"squinting, see if you can tell in which  direction
  47. 8330 LOCATE 12,15:PRINT"the character arms are pointing.":LOCATE 14,15:PRINT"At 20 feet,  a person with normal vision should be":LOCATE 15,15:PRINT"able to correctly `read' the line marked 20/20.
  48. 8360 LOCATE 17,15:PRINT"Repeat  the test  for your  other eye  and then on":LOCATE 18,15:PRINT"both eyes at once.":LOCATE 25,27:COLOR 15,0:PRINT"Strike Any Key To Continue";
  49. 8390 A$=INKEY$:IF A$="" THEN 8390 ELSE COLOR 0,7:CLS:PRINT
  50. 8430 PRINT"             ▐█████████     ▐████████▌     █████████▌     ██▌▐██ ██▌":PRINT"             ▐██▄▄▄▄▄▄▄     ▐██ ██ ██▌     ▄▄▄▄▄▄▄██▌     ██▌▐██ ██▌":PRINT" 20/50       ▐██▀▀▀▀▀▀▀     ▐██ ██ ██▌     ▀▀▀▀▀▀▀██▌     ██▌▐██ ██▌"
  51. 8460 PRINT"             ▐█████████     ▐██ ██ ██▌     █████████▌     █████████▌":PRINT CHR$(10):PRINT"                █▀▀▀▀      ▀▀▀▀█      █ █ █      █▀█▀█      █▀▀▀▀":PRINT" 20/40          █▀▀▀▀      ▀▀▀▀█      █ █ █      █ █ █      █▀▀▀▀"
  52. 8510 PRINT"                ▀▀▀▀▀      ▀▀▀▀▀      ▀▀▀▀▀      ▀ ▀ ▀      ▀▀▀▀▀":PRINT:PRINT"                   █▀▀▀    █▀▀█    █  █    █▀▀█    ▀▀▀█    █  █":PRINT" 20/30             █▄▄▄    █  █    █▄▄█    █  █    ▄▄▄█    █▄▄█"
  53. 8550 PRINT:PRINT"                      ▄▄▄    ▄▄▄    ▄ ▄    ▄▄▄    ▄▄▄    ▄ ▄":PRINT" 20/20                █ █    █▄▄    █▄█    █ █    ▄▄█    █▄█":PRINT:PRINT" 20/15                ▐▄▌  ▐▀▌  ▐▀▌  ▐▄▌  ▐▀▌  ▐▄▌  ▐▀▌  ▐▄▌":PRINT
  54. 8610 PRINT" 20/10                  U  ∩  ∩  U  U  ∩  U  ∩  ∩  U  ∩  U  ":PRINT:PRINT" 20/5                     n u n u n n u n u u n n u u n n   ":PRINT:LOCATE 24,23 :PRINT"*** Strike Any Key To Return To Menu ***";
  55. 8660 A$=INKEY$ :IF A$="" THEN 8660 ELSE COLOR 7,0:CLS:RETURN
  56. 8690 CLS:PRINT STRING$(80,219):FOR A=2 TO 22:LOCATE A,1:PRINT"█":LOCATE A,80:PRINT"█":NEXT:LOCATE 23,1:PRINT STRING$(80,219);:COLOR 15,0:LOCATE 3,32:PRINT"HOME HEARING TEST":COLOR 3,0
  57. 8730 LOCATE 5,15:PRINT"This test is not a replacement for  regular visits":LOCATE 6,15:PRINT"to your doctor. Only he can conduct a complete and":LOCATE 7,15:PRINT"thorough examination.
  58. 8760 LOCATE 9,15:PRINT"To  test your hearing, strike any key to begin the":LOCATE 10,15:PRINT"tone. When you can no longer hear the tone,  again":LOCATE 11,15:PRINT"strike any key.":LOCATE 13,15:PRINT"In  our testing  here at home,  we have found that
  59. 8800 LOCATE 14,15:PRINT"most people will lose the tone near  15,000 cycles":LOCATE 15,15:PRINT"per second. The circuitry within the IBM P C  will":LOCATE 16,15:PRINT"handle 32,000 cycles per second, but we had no way
  60. 8830 LOCATE 17,15:PRINT"to evaluate the capacity of the speaker.":LOCATE 25,27:COLOR 15,0:PRINT"Strike Any Key To Continue";
  61. 8850 GOSUB 1600:CLS:PLAY "MF":J=1:COLOR 3,0:LOCATE 10,25 :PRINT"This Test Is Designed For Home Use Only.";:COLOR 15,0 :LOCATE 12,20 :PRINT"      *** Strike Any Key To Start Test ***";
  62. 8910 GOSUB 1600:LOCATE 12,20 :PRINT"*** Strike Any Key When Pitch Cannot Be Heard ***";:FOR I=100 TO 30000 STEP 100:SOUND I,J:IF I=14000 THEN J=8
  63. 8970 B$=INKEY$:IF B$<>"" THEN 8990 ELSE NEXT I
  64. 8990 COLOR 3,0:LOCATE 12,1 :PRINT SPC(79);:LOCATE 14,20,0:PRINT"     Key Was Struck At"; I ;"Cycles Per Second     ";:COLOR 15,0:LOCATE 25,25 :PRINT"*** Strike Any Key To Return To Menu ***";:GOTO 1600
  65.