home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / IFRSIM.DSK / MENU.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  114 lines
  1. 10  TEXT : HOME : PRINT "SELECT THE PROBLEM YOU WISH TO FLY"
  2. 20  PRINT : PRINT "(1) LA APPROACH LAX ILS 24L"
  3. 30  PRINT "(2) LA APPROACH LAX NDB 24L"
  4. 40  PRINT "(3) LR APPROACH LIT ILS RWY 22"
  5. 50  PRINT "(4) LR APPROACH LIT NDB RWY 4"
  6. 60  PRINT "(5) LR APPROACH LIT NDB RWY 22"
  7. 70  PRINT "(6) STUTGART ARK NDB"
  8. 80  PRINT "(7) CONWAY ARK NDB"
  9. 90  PRINT "(8) PALWAUKEE ILL PWK ILS RWY 16"
  10. 100  PRINT "(9) LOST IN LOS ANGELES"
  11. 110  PRINT "(A) LOST IN CHICAGO"
  12. 120  PRINT "(B) LOST IN LITTLE ROCK"
  13. 130  PRINT "(C) DAYTONA ILS"
  14. 140  PRINT "(D) DAYTONA NDB"
  15. 141  PRINT "(E) CARACAS VOR DME"
  16. 142  PRINT "(F) LOST IN CARACAS"
  17. 143  PRINT "(G) VISUAL PRACTICE"
  18. 148  PRINT "(Z) YOUR OWN PROGRAMS"
  19. 149  PRINT 
  20. 150  PRINT "(S) SAVE THE PICTURE"
  21. 160  PRINT "(V) VIEW THE PICTURE"
  22. 500  GET A$
  23. 510  IF A$ = "1"  THEN 1000
  24. 520  IF A$ = "2"  THEN 1200
  25. 530  IF A$ = "3"  THEN 1300
  26. 540  IF A$ = "4"  THEN 1400
  27. 550  IF A$ = "5"  THEN 1500
  28. 560  IF A$ = "6"  THEN 1600
  29. 570  IF A$ = "7"  THEN 1700
  30. 580  IF A$ = "8"  THEN 1800
  31. 590  IF A$ = "9"  THEN 1900
  32. 600  IF A$ = "A"  THEN 2000
  33. 610  IF A$ = "B"  THEN 2100
  34. 620  IF A$ = "C"  THEN 2200
  35. 630  IF A$ = "D"  THEN 2300
  36. 631  IF A$ = "E"  THEN 2350
  37. 632  IF A$ = "F"  THEN 2380
  38. 640  IF A$ = "X"  THEN  END 
  39. 650  IF A$ = "S"  THEN 2400
  40. 660  IF A$ = "V"  THEN 2500
  41. 670  IF A$ = "Z"  THEN 2600
  42. 680  IF A$ = "G"  THEN 2700
  43. 900  GOTO 500
  44. 1000  PRINT  CHR$(4)
  45. 1010  PRINT  CHR$(4);"RUN LAX ILS 24L"
  46. 1020  END 
  47. 1200  PRINT  CHR$(4)
  48. 1210  PRINT  CHR$(4);"RUN LAX NDB 24L"
  49. 1220  END 
  50. 1300  PRINT  CHR$(4)
  51. 1310  PRINT  CHR$(4);"RUN ILS RWY 22"
  52. 1320  END 
  53. 1400  PRINT  CHR$(4)
  54. 1410  PRINT  CHR$(4);"RUN NDB RWY 4"
  55. 1420  END 
  56. 1500  PRINT  CHR$(4)
  57. 1510  PRINT  CHR$(4);"RUN NDB RWY 22"
  58. 1520  END 
  59. 1600  PRINT  CHR$(4)
  60. 1610  PRINT  CHR$(4);"RUN STUTGART NDB"
  61. 1620  END 
  62. 1700  PRINT  CHR$(4)
  63. 1710  PRINT  CHR$(4);"RUN CONWAY NDB"
  64. 1720  END 
  65. 1800  PRINT  CHR$(4)
  66. 1810  PRINT  CHR$(4);"RUN PALWAUKEE ILS"
  67. 1820  END 
  68. 1900  PRINT  CHR$(4)
  69. 1910  PRINT  CHR$(4);"RUN LOST IN LA"
  70. 1920  END 
  71. 2000  PRINT  CHR$(4)
  72. 2010  PRINT  CHR$(4);"RUN LOST IN CHICAGO"
  73. 2020  END 
  74. 2100  PRINT  CHR$(4)
  75. 2110  PRINT  CHR$(4);"RUN LOST IN LR"
  76. 2120  END 
  77. 2200  PRINT  CHR$(4)
  78. 2210  PRINT  CHR$(4);"RUN DAYTONA ILS"
  79. 2220  END 
  80. 2300  PRINT  CHR$(4)
  81. 2310  PRINT  CHR$(4);"RUN DAYTONA NDB"
  82. 2320  END 
  83. 2350  PRINT  CHR$(4)
  84. 2360  PRINT  CHR$(4);"RUN CARACAS"
  85. 2370  END 
  86. 2380  PRINT  CHR$(4)
  87. 2385  PRINT  CHR$(4);"RUN LOST IN CARACAS"
  88. 2390  END 
  89. 2400  TEXT : HOME : PRINT "WHAT ARE YOUR INITIALS"
  90. 2410  INPUT A$
  91. 2415  IF  LEN(A$) <2  THEN 10
  92. 2420  PRINT  CHR$(4)
  93. 2430  PRINT  CHR$(4);"BSAVE ";A$;",A$2000,L$2000"
  94. 2440  GOTO 10
  95. 2500  TEXT : HOME : PRINT "WANT TO SEE THE CATALOG ?";: GET A$
  96. 2501  IF A$ = "Y"  THEN  PRINT  CHR$(4): PRINT  CHR$(4);"CATALOG"
  97. 2510  PRINT : PRINT "YOU MAY VIEW ANY B TYPE FILE": PRINT "WHICH ONE WOULD YOU LIKE ? ";: INPUT A$
  98. 2511  IF  LEN(A$) <2  THEN 10
  99. 2515  HGR 
  100. 2520  PRINT  CHR$(4)
  101. 2530  PRINT  CHR$(4);"BLOAD ";A$
  102. 2540  VTAB 23: PRINT "HIT ANY KEY WHEN YOUVE SEEN ENOUGH"
  103. 2550  GET A$
  104. 2560  GOTO 10
  105. 2600  TEXT : HOME : PRINT "YOU MAY RUN ANY PROGRAM ON THE DISK": PRINT "SHALL I CATALOG IT FOR YOU";: GET A$
  106. 2610  IF A$ = "Y"  THEN  PRINT  CHR$(4): PRINT  CHR$(4);"CATALOG"
  107. 2615  PRINT 
  108. 2620  PRINT "WHICH ONE DO YOU WANT TO RUN ";: INPUT A$
  109. 2630  IF  LEN(A$) <2  THEN 10
  110. 2640  PRINT  CHR$(4)
  111. 2650  PRINT  CHR$(4);"RUN ";A$
  112. 2700  PRINT  CHR$(4)
  113. 2710  PRINT  CHR$(4);"RUN VFR"
  114. 2720  END