4  ** PX8 PROGRAM TO GIVE BEARINGS IN TRUE DEGREES AND DISTANCE IN ******΋ ** STATUTE MILES******************************************************( ************** PROGRAM BY ********************************************h2 ************** MARLAND OLD *******************************************< ************** RT.1,BOX 141B *****************************************F ************** NEW BOSTON, TX 75570 *********************************P ** USE CAPS ** IF CITIES ARE ADDED BE SURE TO ADD THEM IN ALPHABETICAL ORDER ** LATITUDES AND LONGITUDES ARE ENTERED IN DECIMAL DEGREES **Z (N=NUMBER OF CITIES IN PROGRAM)dN|n A$(N),LA(N),LO(N),BR(N),DA(N),DI(N)x :::"USE CAPS ONLY IN PROGRAM";: "READING DATA - - WAIT"I I Na A$(I),LA(I),LO(I)i IZ ABILENE TX,32.47,99.75,AKRON OH,41.08,81.52,ALBANY NY,42.7,73.8,ALBUQUERQUE NM,35.11,106.65,AMARILLO TX,35.2,101.83,ANCHORAGE AK,61.2,150,ANN ARBOR MI,42.28,83.75,ATLANTA GA,33.75,84.4,ATLANTIC CITY NJ,39.4,74.4,AUGUSTA GA,33.47,81.58 AUSTIN TX,30.27,97.75,BALTIMORE MD,39.3,76.6M BANGOR ME,44.8,68.8,BATON ROUGE LA,30.45,91.18,BEAUMONT TX,30.086,94.128,BILLINGS MT,45.8,108.5,BIRMINGHAM AL,33.5,86.83,BISMARCK ND,46.8,100.78,BOISE ID,43.62,116.2,BOSTON MA,42.4,71.1; BROWNSVILLE TX,25.9,97.49,BUFFALO NY,42.9,78.9,BUTTE MT,46,112.5,CASPER WY,42.85,106.32,CHARLESTON SC,32.78,79.93,CHARLESTON WV,38.4,81.6,CHARLOTTE NC,35.2,80.8,CHATTANOOGA TN,35.05,85.32,CHEYENNE WY,41.1,104.8,CHICAGO IL,41.9,87.6% CINCINNATI OH,39.1,84.5,CLEVELAND OH,41.5,81.7,COLUMBIA MO,39,92.3,COLUMBIA SC,34,81,COLUMBUS OH,40,83,CONCORD NH,43.2,71.5,DALLAS TX,32.8,96.8,DENVER CO,39.7,105,DES MOINES IA,41.6,93.6,DETROIT MI,42.3,83,DUBUQUE IA,42.5,90.67 DULUTH MN,46.8,92.1,EL PASO TX,31.78,106.48,FARGO ND,45.64,96.84,FAYETTEVILLE AR,36.075,94.17,FLAGSTAFF AZ,35.2,111.7,FORT WAYNE IN,41.07,85.13,FORT WORTH TX,32.75,97.34,GALVESTON TX,29.3,94.8,GRAND JUNCTION CO,39.1,108.6ߓ GRAND RAPIDS MI,43,85.7,GREAT FALLS MT,47.5,111.3,GREEN BAY WI,44.5,88,HARRISBURG PA,40.3,76.9,HARTFORD CT,41.8,72.7,HILO HI,19.7,155.1,HONOLULU HI,21.3,157.9,HOUSTON TX,29.74,95.36,INDIANAPOLIS IN,39.8,86.2Ԕ JACKSON MS,32.33,90.17,JACKSONVILLE FL,30.3,81.7,JUNEAU AK,58.3,134.4,KANSAS CITY MO,39.1,94.6,KNOXVILLE TN,35.98,83.9,LAS VEGAS NV,36.2,115.1,LEXINGTON KY,38,84.5,LINCOLN NE,40.82,96.7,LITTLE ROCK AR,34.7,92.3,LOS ANGELES CA,34.04,118.25 LOUISVILLE KY,38.2,85.8,MADISON WI,43.07,89.38,MENA AR,34.575,94.25,MEMPHIS TN,35.1,90,MIAMI FL,25.74,80.21,MILWAUKEE WI,43,87.9,MINNEAPOLIS MN,45,93.3,MONROE LA,32.5,92.1,MONTGOMERY AL,32.35,86.31,MONTPELIER VT,44.3,72.6 NASHVILLE TN,36.2,86.8,NEW ORLEANS LA,29.9,90.1,NEW YORK CITY,40.8,74,NEWARK NJ,40.73,74.17,NOME AK,64.5,165.4,NORFOLK VA,36.9,76.3,NORTH PLATTE NE,41.1,100.8,OAKLAND CA,37.8,122.27,OKLAHOMA CITY OK,35.5,97.5,OMAHA NE,41.3,95.9 PENSACOLA FL,30.4,87.2,PHILADELPHIA PA,39.9,75.2,PHOENIX AZ,33.5,112.1,PITTSBURGH PA,40.4,80,POCATELLO ID,42.9,112.5,PORTLAND ME,43.7,70.3,PORTLAND OR,45.5,122.7,PRATT KS,37.7,98.7,PROVIDENCE RI,41.8,71.4,RALEIGH NC,35.8,78.6p" RAPID CITY SD,44.1,103.2,RENO NV,39.5,119.8,RICHMOND VA,37.5,77.4,SALT LAKE CITY UT,40.8,111.9,SAN ANTONIO TX,29.4,98.5,SAN FRANCISCO CA,37.8,122.4,SANTA FE NM,35.68,105.93,SAULT STE MARIE MI,46.5,84.4,SAVANNAH GA,32.1,81.1\, SCRANTON PA,41.4,75.7,SEATTLE WA,47.6,122.3,SHERIDAN WY,44.8,107,SHREVEPORT LA,32.5,93.75,SPOKANE WA,47.7,117.4,ST LOUIS MO,38.6,90.2,SYRACUSE NY,43.1,76.2,TEXARKANA TX,33.46,94.06,TOPEKA KS,39.05,95.67,TRAVERSE CITY MI,45.8,85.66 TULSA OK,36.15,96,VICKSBURG MS,32.33,90.88,WASHINGTON DC,38.9,77,WICHITA KS,37.7,97.3,WILMINGTON DE,39.7,75.5,WILMINGTON NC,34.2,77.9,@::::"DO YOU WANT A PRINTOUT OF CITIES IN BEARING PROGRAM?"AJ"ANSWER Y OR N"NTV$$()q^ V$"Y" V$"N" h : Th V$"Y" r : r I N| A$(I)", "; IϚ:::: "HOME CITY";B$ߚ: R N A$(R)B$ ALA(R):HLO(R):  RC:::"CITY NOT FOUND!!!": T : T: g::::"BEARING TO WHAT CITY"x"OR ALL";C$ C$"ALL"  : :::"1. ALPHABETICALLY?"ʛ"2. BY BEARING?""3. BY DISTANCE?"L$$() L$"1" L$"2" L$"3"  : 7::::"PRINTED COPY?"L"ANSWER Y OR N"Y&D$$()_0: D$"Y" D$"N" D : &D C$"ALL" N D$"Y" X : ǜX "O",#,"LPT0:"b #,)"TRUE BEARINGS FROM"")();B$l:/v #,)"CITY";()"BEARING";<)"DISTANCE"5p::::"CALCULATING BEARINGS AND DISTANCES - - WAIT"~ R N A$(R)B$ BLA(R):ELO(R) H R̝ L$"1" ֝  B$C$ :::"SAME CITY!!!": T : T:  R N4 A$(R)C$ 4NBLA(R):ELO(R): H M ::"CALCULATIONS ARE NOT ACCURATE WHEN CITIES ARE LESS THAN 10 MILES APART":    D$"Y" A$(R):"BEARING IS ";C:"DISTANCE IS ";M: :::"BEARING IS ";C:"DISTANCE IS ";M? :"PRESS ANY KEY TO CONTINUE"W* "" * : _4 R>:::"CITY NOT FOUND!!!": T : T: ٟH ***THE FOLLOWING SUBROUTINE CALCULATES BEARING AND DISTANCE***RLHE\Ji|1{fY(LJ)1pX(AJ)(BJ)((AJ)(BJ)(LJ))Ez X X[ X XD((X(XX))I).eZ((BJ)(AJ)X)((AJ)(DJ)) Z Zנ Z ZC((Z(ZZ))I).e C(C) Y ChC/M(D )CBR(R)C:DI(R)MV L$"2" hDA(R)M: tDA(R)C ***END OF SUBROUTINE*** ***THE FOLLOWING SUBROUTINE IS A "SUPER SHELLSORT" ROUTINE THAT SORTS BEARINGS OR DISTANCES***$  . L$"2" 8 : BQ8::::"SORTING BY BEARING - - WAIT": L}B::::"SORTING BY DISTANCE - - WAIT"LDS((N)())V I NDSŢ` DA(I)DA(IDS) jTXDA(IDS):DA(IDS)DA(I)t IDS DA(I)TX: ~ SIDS  DS. TXDA(S) ADA(SDS)DA(S)I SYDA(SDS)TXa I~DS(DS): DS V ***END OF SORTING SUBROUTINE***ˣ D$"Y" :::"PRINTING"ԣ  K N G N L$"2" )  DI(G)DA(K) F:DI(G)3 (Y BR(G)DA(K) F:BR(G)a( Gi2 Ko<F A$(G)B$ P D$"N" Z DI(G) xӤd #,)A$(G);))BR(G);=)DI(G)ݤn x#,)A$(G);')"UNRELIABLE";;)"UNRELIABLE"*:A$(G) DI(G) "CALCULATIONS ARE UNRELIABLE WHEN CITIES ARE LESS THAN 10 MILES APART": "BEARING IS"BR(G);" DEGREES"ͥ"DISTANCE IS "DI(G);" MILES"쥾:"HIT ANY KEY TO SCROLL" ""    G N$ F, G2ANCE IS "DI(G);" MILES"쥾:"HIT ANY KEY TO SCROLL" ""    G N$ F, G