home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc3 / navigate.lzh / NAVMENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.8 KB  |  115 lines
  1. 10  ' MENU.BAS  NAVPROGseven Air Navigation Menu   1-Jan-82    Rev 10/01/85
  2. 20  ' Version F.03.02  for the IBM PC 
  3. 30  ' (c) Copyright 1982 Alan Bose
  4. 40  ' 1224 Allison Lane
  5. 50  ' Schaumburg, IL  60194
  6. 60  '
  7. 70  ' CP/M modifications (c) 1982 by Glen Hassebrock, Jr.
  8. 80  ' Mods for Hewlett-Packard 150 (c) 1984 by Alan Bose
  9. 85  ' Mods for PC-DOS    (c) 1985 by Bruce Carson
  10. 90  '
  11. 100  CLEAR:ON ERROR GOTO 1010:DEFINT I-N
  12. 110  PROGDISK$="A:":DATADISK$="B:"
  13. 120  OPEN "I",1,"NAVDISCS.DAT"
  14. 130  INPUT #1,PROGDISK$,DATADISK$:CLOSE
  15. 200  ' assign function keys
  16. 210  KEY OFF
  17. 220  KEY 1,"1"             ' airinput - airport/navaid
  18. 225  KEY 2,"2"             ' aircraft - aircraft
  19. 230  KEY 3,"3"             ' autonav  - auto route preparation
  20. 235  KEY 4,"4"             ' navprog7 - flight plan
  21. 236  KEY 5,"5"             ' oldroute - pre-storred route
  22. 237  KEY 6,"6"             ' airalpha - sort and list navaid
  23. 238  KEY 7,""
  24. 239  KEY 8,""
  25. 240  KEY 9,""
  26. 241  KEY 10,""
  27. 250  '
  28. 260  OPEN"I",1,PROGDISK$+"DISKAID.DAT":LINE INPUT #1,ID$
  29. 270  CLOSE:IF ID$="172" THEN 320
  30. 280  PRINT "At tone, place NAVPROGseven PROGRAM DISK on drive "PROGDISK$:PRINT
  31. 290  PRINT "Press any key after mounting disk.";:X$=INPUT$(1)
  32. 300  RESET:GOTO 260
  33. 310  '
  34. 320  OPEN"I",1,DATADISK$+"DISKBID.DAT":LINE INPUT#1,ID$
  35. 330  CLOSE:IF ID$="182" THEN 380
  36. 340  CLS:PRINT "Place NAVPROGseven DATA DISK on drive "DATADISK$
  37. 350  PRINT "Press any key after mounting disk.";:X$=INPUT$(1)
  38. 360  PRINT:RESET:GOTO 320
  39. 370  '
  40. 380  CLS:
  41. 390  HD$="N A V P R O G s e v e n   A I R   N A V I G A T I O N   M E N U"
  42. 400  PRINT P$;TAB(44-LEN(HD$)/2)HD$TAB(84)
  43. 405  PRINT Q$;TAB(21)"for the IBM PC, HP Vectra, and other compatibles.
  44. 410  PRINT TAB(21)"(c) Copyright 1982, 1984, 1986 Alan Bose          F.03.02"
  45. 420  LOCATE 7,20:PRINT  "1  -  Input/revise Airport & Navaid Data"
  46. 430  LOCATE 9,20:PRINT  "2  -  Input/revise Aircraft Performance Data"
  47. 440  LOCATE 11,20:PRINT "3  -  Automatic Route Preparation"
  48. 450  LOCATE 13,20:PRINT "4  -  Air Navigation & Flight Planning"
  49. 460  LOCATE 15,20:PRINT "5  -  Navigate Pre-planned Route"
  50. 470  LOCATE 17,20:PRINT "6  -  Sort & list data on file"
  51. 490  LOCATE 22,26,1,1,30:PRINT "   Enter selection  <EXIT>  ";
  52. 500  X$=INPUT$(1):PRINT X$:X=VAL(X$)
  53. 510  IF X$<>CHR$(13) THEN 880
  54. 520  '
  55. 530  CLS
  56. 580  PRINT
  57. 590  PRINT TAB(22);"USER SUPPORTED SOFTWARE"
  58. 600  PRINT
  59. 610  LOCATE 3,15
  60. 620  PRINT"from the Contributed Software Library of INTEREX,"
  61. 630  LOCATE 4,7
  62. 640  PRINT "the International Association of Hewlett-Packard Computer Users."
  63. 650  PRINT:PRINT
  64. 660  PRINT"User-supported software is based on the belief that program development"
  65. 670  PRINT"should  be  supported  by the  computer  community,  that the  value of"
  66. 680  PRINT"software  is best  assessed by the user,  not the  developer,  and that"
  67. 690  PRINT"copying software should be encouraged, not restricted."
  68. 700  PRINT
  69. 710  PRINT"INTEREX actively encourages the concept of user-supported software, but"
  70. 720  PRINT"its success  depends on the  trustworthy  actions of  both  authors and"
  71. 730  PRINT "end-users."
  72. 740  PRINT
  73. 750  PRINT"If  you find  these  programs a  useful  and valuable  addition to your"
  74. 760  PRINT"software library,  the suggested contribution is $45 (US) to Alan Bose,"
  75. 770  PRINT"1224 Allison Lane,  Schaumburg IL 60194.   See file README.DOC for more"
  76. 780  PRINT"information on documentation, source code, etc."
  77. 790  PRINT
  78. 800  X$=INPUT$(1)
  79. 830  LOCATE 22,1
  80. 840  PRINT    "...services terminated. Squawk 1200."
  81. 850  PRINT"Frequency change approved. Have a good flight."
  82. 860  FOR J=1 TO 2000: NEXT J
  83. 865  GOSUB 2000:CLS               ' clear function keys
  84. 870  SYSTEM
  85. 880  IF X<1 OR X>6 THEN PRINT "  ":GOTO 490
  86. 890  '
  87. 900  CLS:PRINT "Standby one..."
  88. 910  PRINT " "
  89. 920  ON X GOTO 930,940,950,960,980,990
  90. 930  RUN PROGDISK$+"AIRINPUT"
  91. 940  RUN PROGDISK$+"AIRCRAFT"
  92. 950  RUN PROGDISK$+"AUTONAV"
  93. 960  OPEN"I",1,DATADISK$+"FLIGHT.SEQ":CLOSE:RUN PROGDISK$+"NAVPROG7"
  94. 970  RUN PROGDISK$+"AIRROUTE"
  95. 980  RUN PROGDISK$+"OLDROUTE"
  96. 990  RUN PROGDISK$+"AIRALPHA"
  97. 1010  'error trap
  98. 1020  IF ERR=53 AND ERL=960 THEN RESUME 970
  99. 1030  IF ERL=320 AND (ERR=53 OR ERR=64 OR ERR=71) THEN RESUME 340
  100. 1040  IF ERL=260 AND ERR=53 THEN RESUME 280
  101. 1045  IF ERR=53 AND ERL=120 THEN CLOSE:RESUME 200
  102. 1050  ON ERROR GOTO 0
  103. 2000  ' clear function keys
  104. 2010  KEY 1,""
  105. 2011  KEY 2,""
  106. 2013  KEY 3,""
  107. 2014  KEY 4,""
  108. 2015  KEY 5,""
  109. 2016  KEY 6,""
  110. 2017  KEY 7,""
  111. 2018  KEY 8,""
  112. 2019  KEY 9,""
  113. 2020  KEY 10,""
  114. 2040  RETURN
  115.