: KEY OFF ,,: |----------------------|'( PROGRAM WRITTEN BY--------------------| R. THWING Sr. K4EDE |l2 | P.O. BOX 40 |< FOR IBM PC COMPATIBILES | COLUMBUS, NC |F | 28722 |;P | (704) 894-3202 |Z |----------------------|dn DELETE ALL COLOR STATEMENTS FOR MONOCHROME MONITORx PROGRAM IN PUBLIC DOMAIN& ORIGINAL FORMULA FROM HP-67 CALCULATOR MANUAL PAGE 97,r <<<<<<<<<<<<<<<<<<<< PROGRAM BEGINS >>>>>>>>>>>>>>>>>>>>>>>>>>> ,:"GREAT CIRCLE DISTANCES" ,:"CALCULATES DIRECT AIR DISTANCES" ,:"BETWEEN TWO LAT/LON POINTS" (O,"~")<  ,:"Provisions included for entering the LAT & LON"z  ,:"points in either degrees and minutes & seconds" ,:"or in degrees & decimals of degrees" ,$:"N O T E" ,:"South latitudes & East longitudes are NEGATIVE" ,#: :"[ENTER]";) H" ZZ$ ( ) , : [, ,,: :v6:" DO YOU WANT TO "@ " USE TWO LAT/LON PLACES...........Q"J " USE TEST LAT/LON DATA............T"O " ONLY CONVERT TO DECIMAL DEGREES..C")TS$: S$"" TG^ S$"T" S$"t" eh S$"Q" S$"q" rm S$"C" S$"c" n 6r:"IS YOUR LAT/LON DATA IN:"|" DEGREES/MINUTES/SECONDS........M"::TO CONVERT TO DECIMALS#" DEGREES & DECIMAL DEGREES......D"@DAT$ : DAT$ "" d DAT$ "M" DAT$ "m" z DAT$ "D" DAT$ "d"  6:"START LATITUDE ";LAT1::IN DECIMAL DEGREES ETC."START LONGITUDE ";LON1: "DESTINATION LATITUDE ";LAT2/"DESTINATION LONGITUDE ";LON29 tLAT133::TEST LAT/LON TO GIVE ANSWER OF 1315.2 NMLON1DLAT2R~LON2= 7R9{::CONSTANT TO CONVERT DEGREES TO RADIANS (NEEDED BY BASIC);LASLAT1R:LOSLON1R:LADLAT2R:LODLON2R::CONVERT LATS & LONS TO RADIANSX((LAS)(LAD)(LAS)(LAD)(LODLOS))::PER HP-67 BOOK:BOOK NOW CALLS FOR COS^-1 WHICH IS NOT RECOGNIZED BY BASIC&:COS^-1=ARCCOS(X)0Z(X(XX))I::USING FORMULA FOR ARCCOS::MZR::CONVERT BACK TO DEGREESD:NOW CONVERT DEGREES TO MILES BY MULTIPLYING BY 60 (MILES PER DEGREE)NXNM<:: );"THE FOLLOWING ARE GREAT CIRCLE DISTANCES "b );"FROM ";LAT1;"&";LON1;" TO ";LAT2;"&";LON2:;l : );"#####.#";N;: : " NAUTICAL MILES"evSMNjM::CONVERT TO STATUE MILES  : );"#####.#";SM;: :" STATUE MILES"KMNVm::CONVERT TO KILOMETERS  : );"#####.#";KM;: :" KILOMETERS" ,#:"WHAT NOW?"7 ,#:"DO ANOTHER?.............1"` ,#:"RETURN TO BASIC?........2" ,#:"RETURN TO MS-DOS........3" ,#:"RETURN TO MAIN MENU.....4"; YC YC  , YC  ,,:: YC  ,,:  + YC  ,,:"MAINMENU"5 OZZ$: ZZ$ "" U AZ( y): AZ  , : ,:"PRINTER NOT READY":  : CHECK PRINTER STATUS , : ,:" ":: REMOVES PRINTER STATUS.  ,:: I  :: I: !)"ARE YOU SURE Y/N";*"DC":e4 )"A (Y)es ACTION CANCELS BASIC!"~>X$ : X$ "" >H ,, :R X$ "Y" X$"y" p\ X$ "N" X$"n" ,f  p ,,:: :z-"ENTER START LAT AS DEGREES,MINUTES,SECONDS ";LDS,LMS,LSSYLMSLMS<:LSSLSS:LAT1LDSLMSLSSl"LAT1= ";LAT1"ENTER START LON AS DEGREES,MINUTES,SECONDS ";ODS,OMS,OSSOMSOMS<:OSSOSS:LON1ODSOMSOSS"LON1= ";LON1) "ENTER DEST LAT AS DEGREES,MINUTES,SECONDS ";LDS,LMS,LSSULMSLMS<:LSSLSS:LAT2LDSLMSLSSh"LAT2= ";LAT2 "ENTER DEST LON AS DEGREES,MINUTES,SECONDS ";ODS,OMS,OSSOMSOMS<:OSSOSS:LON2ODSOMSOSS"LON2= ";LON2  S$ "C" S$ "c"