T.AIR MILES
FILE INFORMATION
FILENAME(S): T.AIR MILES
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 18:12:16
APPEARS ON: 1 disk(s)
FILE HASH
8922484eb2b1fca201a37ab57a88219aa563769f7c718af680c98aa45a1d49c6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 48 S 2 | T.AIR MILES | PRG | Sailor, Ganheden | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 43 42 4D 0D 20 20 20 20 20 20 20 |..^U:CBM. | 00000010: 20 20 20 20 C1 20 C9 20 D2 20 20 20 CD 20 C9 20 | . . . . . | 00000020: CC 20 C5 20 D3 0D 0D 20 20 20 20 20 20 20 20 20 |. . ... | 00000030: 20 20 42 59 20 CC 45 4F 20 D7 2E 20 C2 52 45 4E | BY .EO .. .REN| 00000040: 4E 41 4E 0D 0D 20 20 20 20 CF 4E 20 54 48 45 20 |NAN.. .N THE | 00000050: 53 55 52 46 41 43 45 2C 20 4E 4F 20 50 55 4E 20 |SURFACE, NO PUN | 00000060: 49 4E 54 45 4E 44 45 44 2C 0D 54 48 49 53 20 50 |INTENDED,.THIS P| 00000070: 52 4F 47 52 41 4D 20 44 4F 45 53 4E 27 54 20 53 |ROGRAM DOESN'T S| 00000080: 45 45 4D 20 54 4F 20 44 4F 20 4D 55 43 48 2E 0D |EEM TO DO MUCH..| 00000090: D9 4F 55 20 43 41 4E 20 4C 4F 4F 4B 20 41 54 20 |.OU CAN LOOK AT | 000000A0: 41 20 4C 49 53 54 20 4F 46 20 57 4F 52 4C 44 0D |A LIST OF WORLD.| 000000B0: 43 49 54 49 45 53 20 41 4E 44 20 46 49 4E 44 20 |CITIES AND FIND | 000000C0: 54 48 45 20 53 54 52 41 49 47 48 54 20 4C 49 4E |THE STRAIGHT LIN| 000000D0: 45 0D 44 49 53 54 41 4E 43 45 53 20 42 45 54 57 |E.DISTANCES BETW| 000000E0: 45 45 4E 20 54 48 45 4D 2E 20 20 C2 55 54 0D 55 |EEN THEM. .UT.U| 000000F0: 4E 44 45 52 4E 45 41 54 48 2C 20 49 4E 20 54 48 |NDERNEATH, IN TH| 00000100: 45 20 43 4F 44 45 2C 20 54 48 45 52 45 27 53 20 |E CODE, THERE'S | 00000110: 41 0D 4C 4F 54 20 4F 46 20 47 45 4F 4D 45 54 52 |A.LOT OF GEOMETR| 00000120: 49 43 20 57 49 5A 41 52 44 52 59 20 47 4F 49 4E |IC WIZARDRY GOIN| 00000130: 47 20 4F 4E 2E 0D 0D 20 20 20 20 C1 54 20 46 49 |G ON... .T FI| 00000140: 52 53 54 20 C9 20 46 49 47 55 52 45 44 20 54 48 |RST . FIGURED TH| 00000150: 41 54 20 CC 45 4F 20 48 41 44 0D 4C 4F 4F 4B 45 |AT .EO HAD.LOOKE| 00000160: 44 20 55 50 20 54 48 45 20 44 49 53 54 41 4E 43 |D UP THE DISTANC| 00000170: 45 53 20 42 45 54 57 45 45 4E 20 41 4C 4C 0D 4F |ES BETWEEN ALL.O| 00000180: 46 20 54 48 45 53 45 20 43 49 54 49 45 53 20 41 |F THESE CITIES A| 00000190: 4E 44 20 48 41 44 20 45 4E 54 45 52 45 44 20 54 |ND HAD ENTERED T| 000001A0: 48 49 53 0D 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 |HIS.INFORMATION | 000001B0: 41 53 20 44 41 54 41 20 53 54 41 54 45 4D 45 4E |AS DATA STATEMEN| 000001C0: 54 53 20 4F 52 0D 57 48 41 54 45 56 45 52 2C 20 |TS OR.WHATEVER, | 000001D0: 42 55 54 20 54 48 45 20 53 54 4F 52 59 20 49 53 |BUT THE STORY IS| 000001E0: 20 44 45 45 50 45 52 2C 0D 41 4E 44 20 4D 4F 52 | DEEPER,.AND MOR| 000001F0: 45 20 45 4C 45 47 41 4E 54 2C 20 54 48 41 4E 20 |E ELEGANT, THAN | 00000200: C9 20 48 41 44 0D 49 4D 41 47 49 4E 45 44 2E 0D |. HAD.IMAGINED..| 00000210: 20 20 20 20 D7 48 41 54 20 CC 45 4F 20 48 41 53 | .HAT .EO HAS| 00000220: 20 44 4F 4E 45 20 49 53 20 57 52 49 54 54 45 4E | DONE IS WRITTEN| 00000230: 20 41 4E 0D 41 4C 47 4F 52 49 54 48 4D 20 54 48 | AN.ALGORITHM TH| 00000240: 41 54 20 46 49 4E 44 53 20 54 48 45 20 44 49 53 |AT FINDS THE DIS| 00000250: 54 41 4E 43 45 0D 42 45 54 57 45 45 4E 20 54 57 |TANCE.BETWEEN TW| 00000260: 4F 20 50 4F 49 4E 54 53 20 4F 4E 20 54 48 45 20 |O POINTS ON THE | 00000270: 45 41 52 54 48 2C 0D 53 54 41 54 45 44 20 49 4E |EARTH,.STATED IN| 00000280: 20 43 4F 4E 56 45 4E 54 49 4F 4E 41 4C 20 47 4C | CONVENTIONAL GL| 00000290: 4F 42 41 4C 0D 43 4F 4F 52 44 49 4E 41 54 45 53 |OBAL.COORDINATES| 000002A0: 2E 20 20 C9 46 20 59 4F 55 20 4B 4E 4F 57 20 54 |. .F YOU KNOW T| 000002B0: 48 45 0D 4C 4F 4E 47 49 54 55 44 45 2C 20 4C 41 |HE.LONGITUDE, LA| 000002C0: 54 49 54 55 44 45 2C 20 41 4E 44 20 48 45 4D 49 |TITUDE, AND HEMI| 000002D0: 53 50 48 45 52 45 0D 4F 46 20 45 41 43 48 20 43 |SPHERE.OF EACH C| 000002E0: 49 54 59 2C 20 C1 C9 D2 20 CD C9 CC C5 D3 20 57 |ITY, ... ..... W| 000002F0: 49 4C 4C 20 54 41 4B 45 20 49 54 0D 46 52 4F 4D |ILL TAKE IT.FROM| 00000300: 20 54 48 45 52 45 2E 0D 0D 20 20 20 20 D4 48 45 | THERE... .HE| 00000310: 52 45 20 41 52 45 20 36 39 20 57 4F 52 4C 44 20 |RE ARE 69 WORLD | 00000320: 43 49 54 49 45 53 20 49 4E 20 54 48 45 0D 4C 49 |CITIES IN THE.LI| 00000330: 53 54 20 4F 46 20 43 49 54 49 45 53 2C 20 42 55 |ST OF CITIES, BU| 00000340: 54 20 49 54 27 53 20 56 45 52 59 20 53 49 4D 50 |T IT'S VERY SIMP| 00000350: 4C 45 0D 54 4F 20 43 48 41 4E 47 45 20 4F 52 20 |LE.TO CHANGE OR | 00000360: 41 44 44 20 54 4F 20 54 48 45 20 4C 49 53 54 2C |ADD TO THE LIST,| 00000370: 20 41 53 20 4C 4F 4E 47 0D 41 53 20 59 4F 55 20 | AS LONG.AS YOU | 00000380: 4B 4E 4F 57 20 54 48 45 20 4C 4F 4E 47 49 54 55 |KNOW THE LONGITU| 00000390: 44 45 2C 20 4C 41 54 49 54 55 44 45 0D 41 4E 44 |DE, LATITUDE.AND| 000003A0: 20 48 45 4D 49 53 50 48 45 52 45 20 4F 46 20 54 | HEMISPHERE OF T| 000003B0: 48 45 20 43 49 54 49 45 53 20 59 4F 55 20 57 49 |HE CITIES YOU WI| 000003C0: 53 48 0D 54 4F 20 41 44 44 2E 0D 0D 20 20 20 20 |SH.TO ADD... | 000003D0: C9 46 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 |.F YOU WISH TO A| 000003E0: 44 44 20 41 20 43 49 54 59 20 54 4F 20 54 48 45 |DD A CITY TO THE| 000003F0: 0D 4C 49 53 54 2C 20 59 4F 55 20 4D 55 53 54 20 |.LIST, YOU MUST | 00000400: 4C 49 53 54 20 54 48 45 20 50 52 4F 47 52 41 4D |LIST THE PROGRAM| 00000410: 20 41 4E 44 0D 43 48 41 4E 47 45 20 54 57 4F 20 | AND.CHANGE TWO | 00000420: 4C 49 4E 45 53 2C 20 37 34 30 20 41 4E 44 20 37 |LINES, 740 AND 7| 00000430: 35 30 2E 0D 20 20 20 20 D4 48 45 20 4E 55 4D 42 |50.. .HE NUMB| 00000440: 45 52 20 34 38 33 20 49 4E 20 54 48 45 53 45 20 |ER 483 IN THESE | 00000450: 4C 49 4E 45 53 20 49 53 0D 46 4F 55 4E 44 20 42 |LINES IS.FOUND B| 00000460: 59 20 4D 55 4C 54 49 50 4C 59 49 4E 47 20 54 48 |Y MULTIPLYING TH| 00000470: 45 20 4E 55 4D 42 45 52 20 4F 46 0D 43 49 54 49 |E NUMBER OF.CITI| 00000480: 45 53 2C 20 36 39 2C 20 42 59 20 54 48 45 20 4E |ES, 69, BY THE N| 00000490: 55 4D 42 45 52 20 4F 46 20 50 49 45 43 45 53 0D |UMBER OF PIECES.| 000004A0: 4F 46 20 44 41 54 41 20 46 4F 52 20 45 41 43 48 |OF DATA FOR EACH| 000004B0: 20 43 49 54 59 2C 20 37 2E 20 20 C9 46 20 59 4F | CITY, 7. .F YO| 000004C0: 55 20 41 44 44 0D 54 57 4F 20 43 49 54 49 45 53 |U ADD.TWO CITIES| 000004D0: 20 54 4F 20 54 48 45 20 4C 49 53 54 2C 20 41 44 | TO THE LIST, AD| 000004E0: 44 20 31 34 20 54 4F 20 54 48 45 0D 34 38 33 27 |D 14 TO THE.483'| 000004F0: 53 20 46 4F 55 4E 44 20 49 4E 20 4C 49 4E 45 53 |S FOUND IN LINES| 00000500: 20 37 34 30 20 41 4E 44 20 37 35 30 2C 0D 4D 41 | 740 AND 750,.MA| 00000510: 4B 49 4E 47 20 54 48 45 4D 20 34 39 37 27 53 2E |KING THEM 497'S.| 00000520: 0D 0D 20 20 20 20 D9 4F 55 20 41 4C 53 4F 20 4D |.. .OU ALSO M| 00000530: 55 53 54 20 41 44 44 20 54 48 45 20 44 41 54 41 |UST ADD THE DATA| 00000540: 20 46 4F 52 0D 59 4F 55 52 20 43 49 54 49 45 53 | FOR.YOUR CITIES| 00000550: 2E 20 20 D4 48 45 20 4F 52 44 45 52 20 46 4F 52 |. .HE ORDER FOR| 00000560: 20 54 48 45 20 44 41 54 41 0D 53 54 41 54 45 4D | THE DATA.STATEM| 00000570: 45 4E 54 53 2C 20 53 45 50 41 52 41 54 45 44 20 |ENTS, SEPARATED | 00000580: 42 59 20 41 20 43 4F 4D 4D 41 2C 20 49 53 3A 0D |BY A COMMA, IS:.| 00000590: 0D 20 20 C3 C9 D4 D9 20 CE C1 CD C5 0D 20 20 C4 |. .... ..... .| 000005A0: C5 C7 D2 C5 C5 D3 20 28 4C 41 54 49 54 55 44 45 |...... (LATITUDE| 000005B0: 29 0D 20 20 CD C9 CE D5 D4 C5 D3 20 28 4C 41 54 |). ....... (LAT| 000005C0: 49 54 55 44 45 29 0D 20 20 CE 20 4F 52 20 D3 20 |ITUDE). . OR . | 000005D0: 20 28 48 45 4D 49 53 50 48 45 52 45 20 2D 20 4E | (HEMISPHERE - N| 000005E0: 4F 52 54 48 2F 53 4F 55 54 48 29 0D 20 20 C4 C5 |ORTH/SOUTH). ..| 000005F0: C7 D2 C5 C5 D3 20 28 4C 4F 4E 47 49 54 55 44 45 |..... (LONGITUDE| 00000600: 29 0D 20 20 CD C9 CE D5 D4 C5 D3 20 28 4C 4F 4E |). ....... (LON| 00000610: 47 49 54 55 44 45 29 0D 20 20 C5 20 4F 52 20 D7 |GITUDE). . OR .| 00000620: 20 20 28 48 45 4D 49 53 50 48 45 52 45 20 2D 20 | (HEMISPHERE - | 00000630: 45 41 53 54 2F 57 45 53 54 29 0D 20 20 20 20 C9 |EAST/WEST). .| 00000640: 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 55 |F YOU WANT TO SU| 00000650: 42 53 54 49 54 55 54 45 20 41 20 43 49 54 59 0D |BSTITUTE A CITY.| 00000660: 4F 46 20 59 4F 55 52 20 4F 57 4E 20 43 48 4F 4F |OF YOUR OWN CHOO| 00000670: 53 49 4E 47 2C 20 59 4F 55 20 43 41 4E 20 53 49 |SING, YOU CAN SI| 00000680: 4D 50 4C 59 0D 57 52 49 54 45 20 4F 56 45 52 20 |MPLY.WRITE OVER | 00000690: 4F 4E 45 20 4F 46 20 54 48 45 20 45 58 49 53 54 |ONE OF THE EXIST| 000006A0: 49 4E 47 20 44 41 54 41 0D 53 54 41 54 45 4D 45 |ING DATA.STATEME| 000006B0: 4E 54 53 20 41 4E 44 20 59 4F 55 20 57 4F 4E 27 |NTS AND YOU WON'| 000006C0: 54 20 48 41 56 45 20 54 4F 0D 42 4F 54 48 45 52 |T HAVE TO.BOTHER| 000006D0: 20 57 49 54 48 20 4C 49 4E 45 53 20 37 34 30 20 | WITH LINES 740 | 000006E0: 41 4E 44 20 37 35 30 2E 0D 0D 20 20 20 20 C9 46 |AND 750... .F| 000006F0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4B 45 45 | YOU WANT TO KEE| 00000700: 50 20 54 48 45 20 4C 49 53 54 0D 41 4C 50 48 41 |P THE LIST.ALPHA| 00000710: 42 45 54 49 43 41 4C 2C 20 49 4E 53 45 52 54 20 |BETICAL, INSERT | 00000720: 59 4F 55 52 20 4E 45 57 20 43 49 54 49 45 53 0D |YOUR NEW CITIES.| 00000730: 49 4E 20 54 48 45 20 52 49 47 48 54 20 50 4C 41 |IN THE RIGHT PLA| 00000740: 43 45 2C 20 41 4C 50 48 41 42 45 54 49 43 41 4C |CE, ALPHABETICAL| 00000750: 4C 59 2E 0D 0D 20 20 20 20 C1 4E 20 49 4E 54 45 |LY... .N INTE| 00000760: 52 45 53 54 49 4E 47 20 45 58 50 45 52 49 4D 45 |RESTING EXPERIME| 00000770: 4E 54 20 49 53 20 54 4F 0D 47 45 54 20 41 20 CD |NT IS TO.GET A .| 00000780: 45 52 43 41 54 4F 52 20 4D 41 50 20 4F 46 20 54 |ERCATOR MAP OF T| 00000790: 48 45 20 57 4F 52 4C 44 20 28 4F 4E 45 0D 4F 46 |HE WORLD (ONE.OF| 000007A0: 20 54 48 4F 53 45 20 46 4C 41 54 54 45 4E 45 44 | THOSE FLATTENED| 000007B0: 20 4F 4E 45 53 20 54 48 41 54 20 48 41 53 20 41 | ONES THAT HAS A| 000007C0: 0D 47 49 41 4E 54 20 C7 52 45 45 4E 4C 41 4E 44 |.GIANT .REENLAND| 000007D0: 20 49 4E 20 54 48 45 20 4E 4F 52 54 48 20 41 4E | IN THE NORTH AN| 000007E0: 44 20 41 0D 4D 41 4D 4D 4F 54 48 20 C1 4E 54 41 |D A.MAMMOTH .NTA| 000007F0: 52 43 54 49 43 41 20 54 4F 20 54 48 45 20 53 4F |RCTICA TO THE SO| 00000800: 55 54 48 29 20 41 4E 44 2C 0D 55 53 49 4E 47 20 |UTH) AND,.USING | 00000810: 41 20 52 55 4C 45 52 20 41 4E 44 20 54 48 45 20 |A RULER AND THE | 00000820: 53 43 41 4C 45 20 4F 46 20 54 48 45 0D 4D 41 50 |SCALE OF THE.MAP| 00000830: 2C 20 4D 45 41 53 55 52 45 20 54 48 45 20 44 49 |, MEASURE THE DI| 00000840: 53 54 41 4E 43 45 20 42 45 54 57 45 45 4E 20 54 |STANCE BETWEEN T| 00000850: 57 4F 0D 43 49 54 49 45 53 2E 20 20 C3 4F 4D 50 |WO.CITIES. .OMP| 00000860: 41 52 45 20 54 48 49 53 20 57 49 54 48 20 54 48 |ARE THIS WITH TH| 00000870: 45 0D 44 49 53 54 41 4E 43 45 20 41 43 43 4F 52 |E.DISTANCE ACCOR| 00000880: 44 49 4E 47 20 54 4F 20 C1 C9 D2 20 CD C9 CC C5 |DING TO ... ....| 00000890: D3 2E 0D 20 20 20 20 D4 48 45 20 44 49 53 43 52 |... .HE DISCR| 000008A0: 45 50 41 4E 43 59 20 57 49 4C 4C 20 44 55 45 20 |EPANCY WILL DUE | 000008B0: 54 4F 20 54 48 45 0D 43 55 52 56 41 54 55 52 45 |TO THE.CURVATURE| 000008C0: 20 4F 46 20 54 48 45 20 45 41 52 54 48 2C 20 57 | OF THE EARTH, W| 000008D0: 48 49 43 48 20 C1 C9 D2 0D CD C9 CC C5 D3 20 54 |HICH ......... T| 000008E0: 41 4B 45 53 20 49 4E 54 4F 20 43 4F 4E 53 49 44 |AKES INTO CONSID| 000008F0: 45 52 41 54 49 4F 4E 2C 20 42 55 54 0D 54 48 45 |ERATION, BUT.THE| 00000900: 20 CD 45 52 43 41 54 4F 52 20 4D 41 50 20 44 4F | .ERCATOR MAP DO| 00000910: 45 53 4E 27 54 2E 20 20 C1 C9 D2 20 CD C9 CC C5 |ESN'T. ... ....| 00000920: D3 0D 4D 45 41 53 55 52 45 53 20 57 48 41 54 20 |..MEASURES WHAT | 00000930: 49 53 20 43 41 4C 4C 45 44 20 41 20 22 C7 52 45 |IS CALLED A ".RE| 00000940: 41 54 0D C3 49 52 43 4C 45 22 20 52 4F 55 54 45 |AT..IRCLE" ROUTE| 00000950: 2C 20 57 48 49 43 48 20 57 4F 55 4C 44 20 4C 4F |, WHICH WOULD LO| 00000960: 4F 4B 0D 4C 4F 4E 47 45 52 20 4F 4E 20 41 20 CD |OK.LONGER ON A .| 00000970: 45 52 43 41 54 4F 52 20 4D 41 50 2C 20 42 55 54 |ERCATOR MAP, BUT| 00000980: 20 49 4E 0D 41 43 54 55 41 4C 49 54 59 20 49 53 | IN.ACTUALITY IS| 00000990: 20 53 48 4F 52 54 45 52 21 20 20 D4 48 41 54 27 | SHORTER! .HAT'| 000009A0: 53 20 57 48 59 2C 0D 57 48 45 4E 20 46 4C 59 49 |S WHY,.WHEN FLYI| 000009B0: 4E 47 20 46 52 4F 4D 20 CE 45 57 20 D9 4F 52 4B |NG FROM .EW .ORK| 000009C0: 20 54 4F 20 CC 4F 4E 44 4F 4E 2C 0D 50 4C 41 4E | TO .ONDON,.PLAN| 000009D0: 45 53 20 46 4C 59 20 4F 56 45 52 20 C9 43 45 4C |ES FLY OVER .CEL| 000009E0: 41 4E 44 2C 20 57 48 49 43 48 20 53 45 45 4D 53 |AND, WHICH SEEMS| 000009F0: 0D 54 4F 4F 20 46 41 52 20 4E 4F 52 54 48 20 4F |.TOO FAR NORTH O| 00000A00: 4E 20 41 20 CD 45 52 43 41 54 4F 52 20 4D 41 50 |N A .ERCATOR MAP| 00000A10: 2E 0D 0D D7 C1 D2 CE C9 CE C7 21 20 20 C9 46 20 |..........! .F | 00000A20: 59 4F 55 20 41 52 45 20 41 20 4D 45 4D 42 45 52 |YOU ARE A MEMBER| 00000A30: 20 4F 46 20 54 48 45 0D C6 4C 41 54 20 C5 41 52 | OF THE..LAT .AR| 00000A40: 54 48 20 D3 4F 43 49 45 54 59 2C 20 59 4F 55 20 |TH .OCIETY, YOU | 00000A50: 57 49 4C 4C 20 4E 45 45 44 20 54 4F 0D 44 49 56 |WILL NEED TO.DIV| 00000A60: 49 44 45 20 54 48 45 20 44 49 53 54 41 4E 43 45 |IDE THE DISTANCE| 00000A70: 53 20 53 48 4F 57 4E 20 42 59 20 C1 C9 D2 0D CD |S SHOWN BY .....| 00000A80: C9 CC C5 D3 20 42 59 20 53 4F 4D 45 20 46 41 43 |.... BY SOME FAC| 00000A90: 54 4F 52 20 4F 46 20 50 49 20 54 4F 20 47 45 54 |TOR OF PI TO GET| 00000AA0: 20 41 4E 0D 41 43 43 55 52 41 54 45 2C 20 27 46 | AN.ACCURATE, 'F| 00000AB0: 4C 41 54 27 2C 20 52 45 41 44 49 4E 47 2E 20 20 |LAT', READING. | 00000AC0: C2 55 54 20 C9 0D 49 4D 41 47 49 4E 45 20 59 4F |.UT ..IMAGINE YO| 00000AD0: 55 27 52 45 20 55 53 45 44 20 54 4F 20 54 48 41 |U'RE USED TO THA| 00000AE0: 54 2E 0D 0D 20 20 20 20 C1 20 46 49 4E 41 4C 20 |T... . FINAL | 00000AF0: 4E 4F 54 45 3A 20 54 48 45 20 44 49 53 54 41 4E |NOTE: THE DISTAN| 00000B00: 43 45 53 20 53 48 4F 57 4E 0D 41 52 45 20 49 4E |CES SHOWN.ARE IN| 00000B10: 20 53 54 41 54 55 54 45 20 4D 49 4C 45 53 2C 20 | STATUTE MILES, | 00000B20: 4F 52 20 35 32 38 30 20 46 45 45 54 0D 50 45 52 |OR 5280 FEET.PER| 00000B30: 20 4D 49 4C 45 2E 20 20 D4 4F 20 46 49 4E 44 20 | MILE. .O FIND | 00000B40: 54 48 45 20 44 49 53 54 41 4E 43 45 20 49 4E 0D |THE DISTANCE IN.| 00000B50: 4E 41 55 54 49 43 41 4C 20 4D 49 4C 45 53 2C 20 |NAUTICAL MILES, | 00000B60: 4D 55 4C 54 49 50 4C 59 20 54 48 45 20 44 49 53 |MULTIPLY THE DIS| 00000B70: 54 41 4E 43 45 0D 47 49 56 45 4E 20 42 59 20 C1 |TANCE.GIVEN BY .| 00000B80: C9 D2 20 CD C9 CC C5 D3 20 42 59 20 2E 38 36 38 |.. ..... BY .868| 00000B90: 34 2E 0D 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 |4....... ..... .| 00000BA0: C8 C9 D3 20 D0 D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 |... ....... ....| 00000BB0: 0D 0D C1 C9 D2 20 CD C9 CC C5 D3 20 20 20 20 20 |..... ..... | 00000BC0: 20 20 20 20 20 D4 2E C1 C9 D2 20 CD C9 CC C5 D3 | ..... .....| 00000BD0: 0D 0D 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 C5 |.. **** .| 00000BE0: 4E 44 20 4F 46 20 D4 45 58 54 20 2A 2A 2A 2A 0D |ND OF .EXT ****.|
..^U:CBM. A I R M I L E S..
BY LEO W. BRENNAN.. ON THE
SURFACE, NO PUN INTENDED,.THIS PROGRAM D
OESN'T SEEM TO DO MUCH..YOU CAN LOOK AT
A LIST OF WORLD.CITIES AND FIND THE STRA
IGHT LINE.DISTANCES BETWEEN THEM. BUT.U
NDERNEATH, IN THE CODE, THERE'S A.LOT OF
GEOMETRIC WIZARDRY GOING ON... AT FI
RST I FIGURED THAT LEO HAD.LOOKED UP THE
DISTANCES BETWEEN ALL.OF THESE CITIES A
ND HAD ENTERED THIS.INFORMATION AS DATA
STATEMENTS OR.WHATEVER, BUT THE STORY IS
DEEPER,.AND MORE ELEGANT, THAN I HAD.IM
AGINED.. WHAT LEO HAS DONE IS WRITTEN
AN.ALGORITHM THAT FINDS THE DISTANCE.BE
TWEEN TWO POINTS ON THE EARTH,.STATED IN
CONVENTIONAL GLOBAL.COORDINATES. IF YO
U KNOW THE.LONGITUDE, LATITUDE, AND HEMI
SPHERE.OF EACH CITY, AIR MILES WILL TAKE
IT.FROM THERE... THERE ARE 69 WORLD
CITIES IN THE.LIST OF CITIES, BUT IT'S V
ERY SIMPLE.TO CHANGE OR ADD TO THE LIST,
AS LONG.AS YOU KNOW THE LONGITUDE, LATI
TUDE.AND HEMISPHERE OF THE CITIES YOU WI
SH.TO ADD... IF YOU WISH TO ADD A CIT
Y TO THE.LIST, YOU MUST LIST THE PROGRAM
AND.CHANGE TWO LINES, 740 AND 750..
THE NUMBER 483 IN THESE LINES IS.FOUND B
Y MULTIPLYING THE NUMBER OF.CITIES, 69,
BY THE NUMBER OF PIECES.OF DATA FOR EACH
CITY, 7. IF YOU ADD.TWO CITIES TO THE
LIST, ADD 14 TO THE.483'S FOUND IN LINES
740 AND 750,.MAKING THEM 497'S... YO
U ALSO MUST ADD THE DATA FOR.YOUR CITIES
. THE ORDER FOR THE DATA.STATEMENTS, SE
PARATED BY A COMMA, IS:.. CITY NAME. D
EGREES (LATITUDE). MINUTES (LATITUDE).
N OR S (HEMISPHERE - NORTH/SOUTH). DE
GREES (LONGITUDE). MINUTES (LONGITUDE).
E OR W (HEMISPHERE - EAST/WEST). I
F YOU WANT TO SUBSTITUTE A CITY.OF YOUR
OWN CHOOSING, YOU CAN SIMPLY.WRITE OVER
ONE OF THE EXISTING DATA.STATEMENTS AND
YOU WON'T HAVE TO.BOTHER WITH LINES 740
AND 750... IF YOU WANT TO KEEP THE LI
ST.ALPHABETICAL, INSERT YOUR NEW CITIES.
IN THE RIGHT PLACE, ALPHABETICALLY...
AN INTERESTING EXPERIMENT IS TO.GET A M
ERCATOR MAP OF THE WORLD (ONE.OF THOSE F
LATTENED ONES THAT HAS A.GIANT GREENLAND
IN THE NORTH AND A.MAMMOTH ANTARCTICA T
O THE SOUTH) AND,.USING A RULER AND THE
SCALE OF THE.MAP, MEASURE THE DISTANCE B
ETWEEN TWO.CITIES. COMPARE THIS WITH TH
E.DISTANCE ACCORDING TO AIR MILES.. T
HE DISCREPANCY WILL DUE TO THE.CURVATURE
OF THE EARTH, WHICH AIR.MILES TAKES INT
O CONSIDERATION, BUT.THE MERCATOR MAP DO
ESN'T. AIR MILES.MEASURES WHAT IS CALLE
D A "GREAT.CIRCLE" ROUTE, WHICH WOULD LO
OK.LONGER ON A MERCATOR MAP, BUT IN.ACTU
ALITY IS SHORTER! THAT'S WHY,.WHEN FLYI
NG FROM NEW YORK TO LONDON,.PLANES FLY O
VER ICELAND, WHICH SEEMS.TOO FAR NORTH O
N A MERCATOR MAP...WARNING! IF YOU ARE
A MEMBER OF THE.FLAT EARTH SOCIETY, YOU
WILL NEED TO.DIVIDE THE DISTANCES SHOWN
BY AIR.MILES BY SOME FACTOR OF PI TO GET
AN.ACCURATE, 'FLAT', READING. BUT I.IM
AGINE YOU'RE USED TO THAT... A FINAL
NOTE: THE DISTANCES SHOWN.ARE IN STATUTE
MILES, OR 5280 FEET.PER MILE. TO FIND
THE DISTANCE IN.NAUTICAL MILES, MULTIPLY
THE DISTANCE.GIVEN BY AIR MILES BY .868
4...DISK FILES THIS PROGRAM USES..AIR MI
LES T.AIR MILES.. **** E
ND OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL