home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / avdis.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-24  |  7.5 KB  |  212 lines
  1. 10  CLEAR 500
  2. 110  CLS
  3. 115  J=200:REM NUMBER OF DATA STATEMENTS
  4. 120  DIM DE$(10),DP$(10),LA(10),LB(10),LT(10),LS(10)
  5. 130  M1=10
  6. 140  CLS:PRINT "ENTER DEST. USING CAPITAL LETTERS"
  7. 142  TM=0
  8. 145  Q=1
  9. 150  PRINT "IF US 3 LETTER ICAO IDENTIFIERS"
  10. 160  PRINT "FOR NON US USE 4 LETTER ICAO IDENTIFIERS"
  11. 170  PRINT "<CR> AFTER DESTINATION PROMPT TO COMPUTE"
  12. 200  FOR I= 1 TO M1
  13. 205  REM
  14. 220  PRINT I;:INPUT " DESTINATION";DE$(I)
  15. 222  IF DE$(I)="" THEN 500 ELSE 230
  16. 230  RESTORE
  17. 240  Q=Q+1
  18. 250  FOR K= 1 TO J
  19. 350  READ A$,DS$,B,C,D,E
  20. 360  IF A$=DE$(I) THEN 370 ELSE 430
  21. 370  DP$(I)=DS$:LA(I)=B:LB(I)=C:LT(I)=D:LS(I)=E
  22. 375  GOTO 460
  23. 430  IF A$="END" THEN PRINT DE$(I);" IS NOT IN MEMORY"
  24. 435  IF A$= "END" THEN PRINT "NAME OF AIRPORT & IDENTIFIER":INPUT DS$,DP$(I)
  25. 440  IF A$="END"THEN PRINT" LIST LATITUDE DEG, MIN":INPUT LA(I),LB(I)
  26. 450  IF A$= "END" THEN PRINT "LIST LONG DEG,MIN":INPUT LT(I),LS(I)
  27. 452  IF A$="END" THEN GOTO 460
  28. 455  NEXT K
  29. 460   PRINT DP$(I)
  30. 470  NEXT I
  31. 500  REM COMPUTING ROUTEIN
  32. 501  REM DEPARTURE LOCATION
  33. 505  CLS:PRINT:PRINT:PRINT"COMPUTING"
  34. 510  I=1
  35. 520  V=LA(I):A1=LB(I)
  36. 530  VA=LT(I):C1=LS(I)
  37. 535  QA$=DE$(I)
  38. 540  GA=A1/60:GC=C1/60:TA=V+GA:TC=VA+GC
  39. 560  REM DESTINATION LOCATION
  40. 568  TK=LA(I+1):VB=LB(I+1)
  41. 572  OV=LT(I+1):VC=LS(I+1)
  42. 580  QB$=DE$(I+1)
  43. 1000  VD=VB/60:VE=VC/60:TB=TK+VD:TD=OV+VE:TL=TC-TD
  44. 1005  IF TL<-180 THEN TL= TL+360
  45. 1008  IF TL < 180 THEN TL= TL-360
  46. 1010  TE=(SIN(TA*0.0174533)*SIN(TB*0.0174533))+(COS(TA*0.0174533)*COS(TB*0.0174533)*COS(TL*0.0174533))
  47. 1013  IF TE=0 GOTO 10
  48. 1014  IF -TE*TE+1 < 0 GOTO 10
  49. 1015  DD=(-ATN(TE/SQR(-TE*TE+1))+1.5708)*57.2958
  50. 1016  IF TA = 0 GOTO 10
  51. 1017  IF DD = 0 GOTO 10
  52. 1018  BB=(SIN(TB*0.0174533)+(-SIN(TA*0.0174533)*TE))/(COS(TA*0.0174533)*SIN(DD*0.0174533))
  53. 1020  IF BB=0 GOTO 10
  54. 1021  IF -BB*BB+1 < 0 GOTO 10
  55. 1022  CC=(-ATN(BB/SQR(-BB*BB+1))+1.5708)*57.2958
  56. 1025  IF TL=<0 THEN CC=360-CC
  57. 1030  HG=INT((DD*60*10*1.15078)/10)+26:REM STAT MILES
  58. 1040  TM=TM+HG
  59. 1041  UG=INT((CC*10)/10)
  60. 1050  REM PRINTING ROUTEIN
  61. 1051  PRINT QA$;" - ";QB$;"  ";
  62. 1052  REM
  63. 1056  PRINT USING"####,";HG;:PRINT TAB(20);"STAT MILES ";
  64. 1057  REM
  65. 1061  PRINT UG;"DEG"
  66. 1062  REM
  67. 1080  IF I+1=Q-1 THEN 1100
  68. 1090  I=I+1
  69. 1091  GOTO 520
  70. 1100  PRINT:INPUT "ENTER SPEED IN MPH";SP
  71. 1104  PRINT"TTL MILES ";:PRINT USING "#####,";TM
  72. 1105  PRINT "   ";
  73. 1106  PRINT USING "##.#";TM/SP
  74. 1107  PRINT "  ";"HOURS FLYING"
  75. 1110  PRINT:INPUT "ENTER <C> TO DO ANOTHER";YU$
  76. 1120  IF YU$="C" THEN 10
  77. 2000  DATA GSO,GREENSBORO NC,36,05.9,79,57.2
  78. 2010  DATA DAL,DALLAS LOVE,32,50.8,96,51.1
  79. 2020  DATA DFW,DALLAS FT-WORTH,32,53.8,97,02.0
  80. 2030  DATA ADS,DALLAS ADDISON,32,58.1,96,50.2
  81. 2040  DATA HOU,HOUSTON HOBBY,29,38.7,95,16.7
  82. 2050  DATA IAH,HOUSTON INTL,29,58.9,95,20.8
  83. 2060  DATA TEB,TETERBORO NJ,40,51,74,03.7
  84. 2070  DATA JFK,NEW YORK JFK,40,38.4,73,46.7
  85. 2080  DATA TXK,WEBB FIELD-TXK,33,27.2,93,59.5
  86. 2090  DATA VUZ,114.4 VULCAN VOR,33,40.2,86,54
  87. 2100  DATA CHA,CHATTAN66GA LOVELL FIELD,35,02.1,85,12.3
  88. 2110  DATA FLM,117.0 FALMOUTH VOR,38,39,84,18.7
  89. 2120  DATA DTW,DETROIT METRO,42,12.9,83,20.9
  90. 2130  DATA DET,DETROIT CITY,42,24.6,83,0.6
  91. 2140  DATA AUS,AUSTIN MUELLER,30,17.9,97,42.1
  92. 2150  DATA ELP,EL PASO INTL,31,48.4,106,22.6
  93. 2160  DATA DEN,DENVER STAPLETON,39,46.5,104,52.7
  94. 2170  DATA APA,DENVER ARAPAHOE CTY,39,34.3,104,50.9
  95. 2180  DATA SLC,SALT LAKE CITY,40,47.2,111,58.1
  96. 2190  DATA LAX,LOS ANGELES INTL,33,56.6,118,24.4
  97. 2200  DATA SFO,SAN FRANCISCO,37,37.1,122,22.4
  98. 2210  DATA HPN,NYC WESTCHESTER CTY,41,4.0,73,42.5
  99. 2220  DATA BOS,BOSTON LOGAN,42,21.9,71,0.3
  100. 2230  DATA DCA,WASHINGTON NATIONAL,38,51.1,77,02.3
  101. 2240  DATA IAD,WASHINGTON DULLES,38,56.6,77,27.3
  102. 2250  DATA MIA,MIAMI INTL,25,47.6,80,17.4
  103. 2260  DATA ORL,ORLANDO INTL,28,25.9,81,19.5
  104. 2270  DATA JAX,JACKSONVILLE FLA,30,29.6,81,41.4
  105. 2280  DATA ATL,ATLANTA HARTSFIELD,33,38.3,84,25.7
  106. 2290  DATA STL,LAMBERT INTL,38,44.9,90,21.7
  107. 2300  DATA SJC,SAN JOSE MUNI,37,21.7,121,55.6
  108. 2310  DATA SBP,SAN LUIS OBISPO,35,14.2,120,38.5
  109. 2320  DATA SAN,SAN DIEGO INTL,32,44,117,11.2
  110. 2330  DATA S0F,SACRAMENTO METRO,38,41.7,121,36
  111. 2340  DATA MRY,MONTEREY,36,35.3,121,50.9
  112. 2350  DATA OAK,OAKLAND INTL,37,43.3,122,13.2
  113. 2360  DATA FSM,FORT SMITH,35,20.2,94,22.1
  114. 2370  DATA LIT,LITTLE ROCK,34,43.8,92,14
  115. 2380  DATA ELD,EL DORADO,33,13.2,92,48.8
  116. 2390  DATA SHV,SHREVEPORT,32,26.8,93,49.5
  117. 2400  DATA MSY,NEW ORLEANS MOISANT,29,59.6,90,15.4
  118. 2410  DATA NEW,NEW ORLEANS LAKEFRONT,30,02.6,90,01.7
  119. 2420  DATA SEA,SEATTLE TACOMA INTL,47,27,122,18.5
  120. 2430  DATA BFI,SEATTLE BOEING FLD,47,31.8,122,18.1
  121. 2440  DATA DAB,DAYTONA REG,29,10.9,81,03.4
  122. 2450  DATA FXE,FT LAUDERDALE EXEC,26,11.8,80,10.3
  123. 2460  DATA FLL,FT LAUDERDALE INTL,26,04.3,80,09.3
  124. 2470  DATA FMY,FT MYERS PAGE FIELD,26,35.2,81,51.8
  125. 2480  DATA RSW,FT MYERS S/W FLA REG,26,32.2,81,45.3
  126. 2490  DATA CRG,JACKSONVILLE CRAIG FLD,30,20.2,81,30.9
  127. 2500  DATA MKY,MARCO ISLAND,25,59.8,81,40.4
  128. 2510  DATA PBI,WEST PALM BEACH INTL,26,41,80,05.8
  129. 2520  DATA FTY,ATLANTA FULTON CTY,33,46.8,84,31.3
  130. 2530  DATA PDK,ATLANTA PEACH TREE DEKALB,33,50.5,84,18.1
  131. 2540  DATA AGS,AUGUSTA BUSH FLD,33,22.2,81,57.9
  132. 2550  DATA SSI,BRUNSWICK ST SIMMON MCKINNON,31,09.1,81,23.5
  133. 2560  DATA SAV,SAVANNAH MUNI,32,07.7,81,12.2
  134. 2570  DATA AMA,AMARILLO INTL,35,13.2,101,42.7
  135. 2580  DATA PNS,PENSACOLA,30,28.4,87,11.3
  136. 2590  DATA GUC,GUNNISON CTY,38,22.1,106,56.2
  137. 2600  DATA ALB,ALBANY CTY,42,44.9,73,48.2
  138. 2610  DATA ROW,ROSWELL NM,33,18.1,104,31.8
  139. 2620  DATA CAE,COLUMBIA SC METRO,33,56.4,81,07.2
  140. 2630  DATA SAF,SANTA FE NM,35,37,106,05.3
  141. 2640  DATA SIE,SEA ISLE VOR,39,05.7,74,48.1
  142. 2650  DATA ACY,ATLANTIC CITY,39,27.4,74,34.6
  143. 2660  DATA GVE,115.6 GORDONSVILL,38,00.8,78,09.2
  144. 2670  DATA PSK,116.8 PULASKI,37,05.3,80,42.8
  145. 2680  DATA BNA,NASHVILLE,36,07.6,86,40.9
  146. 2690  DATA MEM,MEMPHIS,35,03.0,89,58.7
  147. 2700  DATA LOU,LOUISVILLE BOWMAN FLD,38,13.7,85,39.8
  148. 2710  DATA SDF,LOUISVILLE STANDIFORD,38,10.7,85,44.2
  149. 2720  DATA LEX,LEXINGTON KY,38,02.2,84,36.4
  150. 2730  DATA HRL,HARLINGEN TX,26,13.7,97,39.2
  151. 2740  DATA 3A9,SEVIERVILLE TN,35,51.4,83,31.7
  152. 2750  DATA CEZ,CORTEZ COL,37,18.2,108,37.7
  153. 2760  DATA LAS,MCCARRAN INTL,36,05,115,09.2
  154. 2770  DATA RNO,RENO CANNON INTL,39,29.9,119,46.1
  155. 2780  DATA GRW,114.7 GREENWOOD MS VOR,33,27.8,90,16.6
  156. 2790  DATA TYS,116.4 KNOXVILLE VOR,35,54.3,83,53.7
  157. 2800  DATA ORD,CHICAGO OHARA,41,58.8,87,54.3
  158. 2810  DATA MDW,CHICAGO MIDWAY,41,47.2,87,45.1
  159. 2820  DATA PWK,CHICAGO PAL-WAUKEE,42,06.8,87,54.1
  160. 2830  DATA MKC,KANSAS CITY DOWNTOWN,39,07.4,94,35.6
  161. 2840  DATA TUS,TUCSON INTL,30,07.1,110,56.6
  162. 2850  DATA PHX,PHOENIX SKY HARBOR,33,26.2,112,00.5
  163. 2860  DATA BHM,BIRMINGHAM MUNI,33,33.8,86,45.3
  164. 2870  DATA MGM,MONTGOMERY ALA,32,18.0,86,23.7
  165. 2880  DATA GGG,LONGVIEW GREGG CTY,32,23.1,94,42.7
  166. 2890  DATA CRP,CORPUS CHRISTI,27,46.2,97,30.1
  167. 2900  DATA LBB,LUBBOCK TX,33,39.8,101,49.3
  168. 2910  DATA MDD,MIDLAND TX AIRPARK,32,01.8,102,06.3
  169. 2920  DATA MAF,MIDLAND TX REGIONAL,31,56.5,102,12.1
  170. 2930  DATA SAT,SAN ANTONIO INTL,29,32.0,98,28.2
  171. 2940  DATA CNW,TSTI WACO,31,38.2,97,04.3
  172. 2950  DATA SPS,WICHITA FALLS,33,59.1,98,29.5
  173. 2960  DATA MSP,MINN-ST PAUL INTL,44,53.1,93,12.9
  174. 2970  DATA MKT,MANKATO MINN,44,13.3,93,55.1
  175. 2980  DATA STS,SANTA ROSA SONOMA CTY,38,30.6,122,48.7
  176. 2990  DATA SMO,SANTA MONICA,34,01,118,27.1
  177. 3000  DATA SBA,SANTA BARBARA,34,25.6,119,50.4
  178. 3010  DATA EGE,EAGLE CTY COL,39,38.7,106,54.7
  179. 3020  DATA GJT,GRAND JUNCTION,39,07.4,108,31.6
  180. 3030  DATA BGM,BINGHAMTON LINK FLD,42,12.5,75,58.8
  181. 3040  DATA BUF,BUFFALO INTL,42,56.4,78,44
  182. 3050  DATA ELM,ELMIRA CHEMUNG CTY,42,09.6,76,53.6
  183. 3060  DATA FRG,FARMINGDALE REPUBLIC,40,43.7,73,24.8
  184. 3070  DATA ISP,LNG ISLE MAC ARTHUR,40,47.7,73,06
  185. 3080  DATA LGA,LA GUARDIA,40,46.6,73,52.5
  186. 3090  DATA POU,POUGHKEEPSIE DUTCHESS CTY,41,37.6,73,53.1
  187. 4000  DATA SYR,SYRACUSE HANCOCK INTL,43,06.7,76,06.5
  188. 4001  DATA CLT,CHARLOTTE NC,35,12.9,80,56.6
  189. 4002  DATA RDU,RALEIGN NC,35,52.3,78,47.1
  190. 4003  DATA RIC,RICHMOND VA,37,30.3,77,19.2
  191. 4004  DATA ABI,ABILEEN MUN,32,24.7,99,40.9
  192. 4005  DATA BMT,BEAUMONT TX,30,04.3,94,13
  193. 4006  DATA FTW,FT WORTH MEACHAM,32,49.2,97,21.7
  194. 4007  DATA GLS,GALVESTON TX,29,16.3,94,51.7
  195. 4008  DATA AAP,HOUSTON ANDRAU,29,43,95,35
  196. 4009  DATA SJT,SAN ANGELO TX,31,21.5,100,29.7
  197. 4010  DATA ICT,WICHITA MID CONT,37,39,97,26
  198. 4011  DATA SCH,SCHENECTADY NY,42,51.2,73,55.8
  199. 4012  DATA EAU,EAU CLAIRE CTY WIS,44,51.9,91,29.1
  200. 4013  DATA GVL,GAINESVILLE GA LEE GILMER,34,16.5,83,49.7
  201. 4014  DATA FAY,FAYETTEVILLE NC,34,59.5,78,53.2
  202. 4015  DATA DXR,DANBURY CT,41,22.3,73,29
  203. 4016  DATA PWM,PORTLAND ME,43,38.77,70,18.55
  204. 4017  DATA PQI,PRESQUE ISLE ME,46,41.33,68,02.72
  205. 4018  DATA BGR,BANGOR ME,44,48.45,68,49.72
  206. 4019  DATA 6B9,SKANEATELES NY,42,54.88,76,26.37
  207. 4020  DATA DNY,DELANCEY VOR NY,42,10.7,74,57.4
  208. 4021  DATA GFL,GLENS FALLS(WARREN CO) NY,43,20.47,73,36.65
  209. 4022  DATA ORH,WORCESTER MA,42,16.03,71,52.57
  210. 4023  DATA BDR,BRIDGEPORT CT,41,09.8,73,07.6
  211. 10000  DATA END, , , , ,
  212.