1 CLS:FORX=50TO180:Y=5:PSET(X,Y):NEXTX:Y=50:FORX=50TO180:PSET(X,Y):NEXTX
2 X=50:FORY=5TO50:PSET(X,Y):NEXTY:X=180:FORY=5TO50:PSET(X,Y):NEXTY
3 PRINT@90,"WRITTEN BY":PRINT@170,"TOM MILLS"
5 FORX=1TO300:NEXTX
10 CLEAR 500
110 CLS
115 J=200:REM NUMBER OF DATA STATEMENTS
120 DIM DE$(10),DP$(10),LA(10),LB(10),LT(10),LS(10)
130 M1=10
140 CLS:PRINT "ENTER DESTINATIONS BY"
142 TM=0
145 Q=1
150 PRINT "IF US 3 LETTER ICAO IDENTIFIERS"
160 PRINT "FOR NON US USE 4 LETTER ICAO IDENTIFIERS"
200 FOR I=1TOM1
205 BEEP
220 PRINT I;:INPUT " DESTINATION";DE$(I)
222 IF DE$(I)=""THEN500ELSE230
230 RESTORE
240 Q=Q+1
250 FOR K=1TOJ
350 READ A$,DS$,B,C,D,E
360 IFA$=DE$(I)THEN370ELSE430
370 DP$(I)=DS$:LA(I)=B:LB(I)=C:LT(I)=D:LS(I)=E
375 GOTO 460
430 IF A$="END"THENPRINT DE$(I);" IS NOT IN MEMORY"
435 IFA$="END"THEN PRINT" NAME OF AIRPORT & IDENTIFIER":INPUTDS$(I),DP$(I)
440 IF A$="END"THEN PRINT" LIST LATITUDE DEG, MIN":INPUT LA(I),LB(I)
450 IF A$="END"THENPRINT"LIST LONG DEG,MIN":INPUT LT(I),LS(I)
452 IF A$="END" THEN GOTO 460
455 NEXT K
460  PRINT DP$(I)
470 NEXT I
500 REM COMPUTING ROUTEIN
501 REM DEPARTURE LOCATION
505 CLS:PRINT:PRINT:PRINT"COMPUTING"
510 I=1
520 V=LA(I):A1=LB(I)
530 VA=LT(I):C1=LS(I)
535 QA$=DE$(I)
540 GA=A1/60:GC=C1/60:TA=V+GA:TC=VA+GC
560 REM DESTINATION LOCATION
568 TK=LA(I+1):VB=LB(I+1)
572 OV=LT(I+1):VC=LS(I+1)
580 QB$=DE$(I+1)
1000 VD=VB/60:VE=VC/60:TB=TK+VD:TD=OV+VE:TL=TC-TD
1005 IF TL<-180 THENTL=TL+360
1008 IF TL>180THENTL=TL-360
1010 TE=(SIN(TA*.0174533)*SIN(TB*.0174533))+(COS(TA*.0174533)*COS(TB*.0174533)*COS(TL*.0174533))
1015 DD=(-ATN(TE/SQR(-TE*TE+1))+1.5708)*57.29578
1018 BB=(SIN(TB*.0174533)+(-SIN(TA*.0174533)*TE))/(COS(TA*.0174533)*SIN(DD*.0174533))
1022 CC=(-ATN(BB/SQR(-BB*BB+1))+1.5708)*57.29578
1025 IF TL=<0THEN CC=360-CC
1030 HG=INT((DD*60*10*1.15078)/10)+26:REM STAT MILES
1040 TM=TM+HG
1041 UG=INT((CC*10)/10)
1050 BEEP:REM PRINTING ROUTEIN
1051 PRINT QA$;" - ";QB$;"  ";
1052 BEEP
1056 PRINT USING"####,";HG;:PRINT TAB(20);"STAT MILES ";
1057 BEEP
1061 PRINT UG;"DEG"
1062 BEEP
1080 IF I+1=Q-1 THEN 1100
1090 I=I+1
1091 GOTO520
1100 PRINT"TTL MILES ";:PRINT USING "#####,";TM;
1105 PRINT "   ";
1106 PRINT USING "##.#";TM/400;
1107 PRINT "  ";"HOURS FLYING"
1110 PRINT:INPUT "ENTER <C> TO DO ANOTHER";YU$
1120 IF YU$="C" THEN 10
1130 MENU
2000 DATA GSO,GREENSBORO NC,36,05.9,79,57.2
2010 DATA DAL,DALLAS LOVE,32,50.8,96,51.1
2020 DATA DFW,DALLAS FT-WORTH,32,53.8,97,02.0
2030 DATA ADS,DALLAS ADDISON,32,58.1,96,50.2
2040 DATA HOU,HOUSTON HOBBY,29,38.7,95,16.7
2050 DATA IAH,HOUSTON INTL,29,58.9,95,20.8
2060 DATA TEB,TETERBORO NJ,40,51,74,03.7
2070 DATA JFK,NEW YORK JFK,40,38.4,73,46.7
2080 DATA TXK,WEBB FIELD-TXK,33,27.2,93,59.5
2090 DATA VUZ,114.4 VULCAN VOR,33,40.2,86,54
2100 DATA CHA,CHATTAN66GA LOVELL FIELD,35,02.1,85,12.3
2110 DATA FLM,117.0 FALMOUTH VOR,38,39,84,18.7
2120 DATA DTW,DETROIT METRO,42,12.9,83,20.9
2130 DATA DET,DETROIT CITY,42,24.6,83,0.6
2140 DATA AUS,AUSTIN MUELLER,30,17.9,97,42.1
2150 DATA ELP,EL PASO INTL,31,48.4,106,22.6
2160 DATA DEN,DENVER STAPLETON,39,46.5,104,52.7
2170 DATA APA,DENVER ARAPAHOE CTY,39,34.3,104,50.9
2180 DATA SLC,SALT LAKE CITY,40,47.2,111,58.1
2190 DATA LAX,LOS ANGELES INTL,33,56.6,118,24.4
2200 DATA SFO,SAN FRANCISCO,37,37.1,122,22.4
2210 DATA HPN,NYC WESTCHESTER CTY,41,4.0,73,42.5
2220 DATA BOS,BOSTON LOGAN,42,21.9,71,0.3
2230 DATA DCA,WASHINGTON NATIONAL,38,51.1,77,02.3
2240 DATA IAD,WASHINGTON DULLES,38,56.6,77,27.3
2250 DATA MIA,MIAMI INTL,25,47.6,80,17.4
2260 DATA ORL,ORLANDO INTL,28,25.9,81,19.5
2270 DATA JAX,JACKSONVILLE FLA,30,29.6,81,41.4
2280 DATA ATL,ATLANTA HARTSFIELD,33,38.3,84,25.7
2290 DATA STL,LAMBERT INTL,38,44.9,90,21.7
2300 DATA SJC,SAN JOSE MUNI,37,21.7,121,55.6
2310 DATA SBP,SAN LUIS OBISPO,35,14.2,120,38.5
2320 DATA SAN,SAN DIEGO INTL,32,44,117,11.2
2330 DATA S0F,SACRAMENTO METRO,38,41.7,121,36
2340 DATA MRY,MONTEREY,36,35.3,121,50.9
2350 DATA OAK,OAKLAND INTL,37,43.3,122,13.2
2360 DATA FSM,FORT SMITH,35,20.2,94,22.1
2370 DATA LIT,LITTLE ROCK,34,43.8,92,14
2380 DATA ELD,EL DORADO,33,13.2,92,48.8
2390 DATA SHV,SHREVEPORT,32,26.8,93,49.5
2400 DATA MSY,NEW ORLEANS MOISANT,29,59.6,90,15.4
2410 DATA NEW,NEW ORLEANS LAKEFRONT,30,02.6,90,01.7
2420 DATA SEA,SEATTLE TACOMA INTL,47,27,122,18.5
2430 DATA BFI,SEATTLE BOEING FLD,47,31.8,122,18.1
2440 DATA DAB,DAYTONA REG,29,10.9,81,03.4
2450 DATA FXE,FT LAUDERDALE EXEC,26,11.8,80,10.3
2460 DATA FLL,FT LAUDERDALE INTL,26,04.3,80,09.3
2470 DATA FMY,FT MYERS PAGE FIELD,26,35.2,81,51.8
2480 DATA RSW,FT MYERS S/W FLA REG,26,32.2,81,45.3
2490 DATA CRG,JACKSONVILLE CRAIG FLD,30,20.2,81,30.9
2500 DATA MKY,MARCO ISLAND,25,59.8,81,40.4
2510 DATA PBI,WEST PALM BEACH INTL,26,41,80,05.8
2520 DATA FTY,ATLANTA FULTON CTY,33,46.8,84,31.3
2530 DATA PDK,ATLANTA PEACH TREE DEKALB,33,50.5,84,18.1
2540 DATA AGS,AUGUSTA BUSH FLD,33,22.2,81,57.9
2550 DATA SSI,BRUNSWICK ST SIMMON MCKINNON,31,09.1,81,23.5
2560 DATA SAV,SAVANNAH MUNI,32,07.7,81,12.2
2570 DATA AMA,AMARILLO INTL,35,13.2,101,42.7
2580 DATA PNS,PENSACOLA,30,28.4,87,11.3
2590 DATA GUC,GUNNISON CTY,38,22.1,106,56.2
2600 DATA ALB,ALBANY CTY,42,44.9,73,48.2
2610 DATA ROW,ROSWELL NM,33,18.1,104,31.8
2620 DATA CAE,COLUMBIA SC METRO,33,56.4,81,07.2
2630 DATA SAF,SANTA FE NM,35,37,106,05.3
2640 DATA SIE,SEA ISLE VOR,39,05.7,74,48.1
2650 DATA ACY,ATLANTIC CITY,39,27.4,74,34.6
2660 DATA GVE,115.6 GORDONSVILL,38,00.8,78,09.2
2670 DATA PSK,116.8 PULASKI,37,05.3,80,42.8
2680 DATA BNA,NASHVILLE,36,07.6,86,40.9
2690 DATA MEM,MEMPHIS,35,03.0,89,58.7
2700 DATA LOU,LOUISVILLE BOWMAN FLD,38,13.7,85,39.8
2710 DATA SDF,LOUISVILLE STANDIFORD,38,10.7,85,44.2
2720 DATA LEX,LEXINGTON KY,38,02.2,84,36.4
2730 DATA HRL,HARLINGEN TX,26,13.7,97,39.2
2740 DATA 3A9,SEVIERVILLE TN,35,51.4,83,31.7
2750 DATA CEZ,CORTEZ COL,37,18.2,108,37.7
2760 DATA LAS,MCCARRAN INTL,36,05,115,09.2
2770 DATA RNO,RENO CANNON INTL,39,29.9,119,46.1
2780 DATA GRW,114.7 GREENWOOD MS VOR,33,27.8,90,16.6
2790 DATA TYS,116.4 KNOXVILLE VOR,35,54.3,83,53.7
2800 DATA ORD,CHICAGO OHARA,41,58.8,87,54.3
2810 DATA MDW,CHICAGO MIDWAY,41,47.2,87,45.1
2820 DATA PWK,CHICAGO PAL-WAUKEE,42,06.8,87,54.1
2830 DATA MKC,KANSAS CITY DOWNTOWN,39,07.4,94,35.6
2840 DATA TUS,TUCSON INTL,30,07.1,110,56.6
2850 DATA PHX,PHOENIX SKY HARBOR,33,26.2,112,00.5
2860 DATA BHM,BIRMINGHAM MUNI,33,33.8,86,45.3
2870 DATA MGM,MONTGOMERY ALA,32,18.0,86,23.7
2880 DATA GGG,LONGVIEW GREGG CTY,32,23.1,94,42.7
2890 DATA CRP,CORPUS CHRISTI,27,46.2,97,30.1
2900 DATA LBB,LUBBOCK TX,33,39.8,101,49.3
2910 DATA MDD,MIDLAND TX AIRPARK,32,01.8,102,06.3
2920 DATA MAF,MIDLAND TX REGIONAL,31,56.5,102,12.1
2930 DATA SAT,SAN ANTONIO INTL,29,32.0,98,28.2
2940 DATA CNW,TSTI WACO,31,38.2,97,04.3
2950 DATA SPS,WICHITA FALLS,33,59.1,98,29.5
2960 DATA MSP,MINN-ST PAUL INTL,44,53.1,93,12.9
2970 DATA MKT,MANKATO MINN,44,13.3,93,55.1
2980 DATA STS,SANTA ROSA SONOMA CTY,38,30.6,122,48.7
2990 DATA SMO,SANTA MONICA,34,01,118,27.1
3000 DATA SBA,SANTA BARBARA,34,25.6,119,50.4
3010 DATA EGE,EAGLE CTY COL,39,38.7,106,54.7
3020 DATA GJT,GRAND JUNCTION,39,07.4,108,31.6
3030 DATA BGM,BINGHAMTON LINK FLD,42,12.5,75,58.8
3040 DATA BUF,BUFFALO INTL,42,56.4,78,44
3050 DATA ELM,ELMIRA CHEMUNG CTY,42,09.6,76,53.6
3060 DATA FRG,FARMINGDALE REPUBLIC,40,43.7,73,24.8
3070 DATA ISP,LNG ISLE MAC ARTHUR,40,47.7,73,06
3080 DATA LGA,LA GUARDIA,40,46.6,73,52.5
3090 DATA POU,POUGHKEEPSIE DUTCHESS CTY,41,37.6,73,53.1
4000 DATA SYR,SYRACUSE HANCOCK INTL,43,06.7,76,06.5
4001 DATA CLT,CHARLOTTE NC,35,12.9,80,56.6
4002 DATA RDU,RALEIGN NC,35,52.3,78,47.1
4003 DATA RIC,RICHMOND VA,37,30.3,77,19.2
4004 DATA ABI,ABILEEN MUN,32,24.7,99,40.9
4005 DATA BMT,BEAUMONT TX,30,04.3,94,13
4006 DATA FTW,FT WORTH MEACHAM,32,49.2,97,21.7
4007 DATA GLS,GALVESTON TX,29,16.3,94,51.7
4008 DATA AAP,HOUSTON ANDRAU,29,43,95,35
4009 DATA SJT,SAN ANGELO TX,31,21.5,100,29.7
4010 DATA ICT,WICHITA MID CONT,37,39,97,26
4011 DATA SCH,SCHENECTADY NY,42,51.2,73,55.8
4012 DATA EAU,EAU CLAIRE CTY WIS,44,51.9,91,29.1
4013 DATA GVL,GAINESVILLE GA LEE GILMER,34,16.5,83,49.7
10000 DATA END, , , , ,