_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL