DISTANCE CALC
FILE INFORMATION
FILENAME(S): DISTANCE CALC
FILE TYPE(S): PRG
FILE SIZE: 11.7K
FIRST SEEN: 2025-11-30 18:13:11
APPEARS ON: 1 disk(s)
FILE HASH
fbc35d6d14ea11fa0dbecda7e1702bd4da3bfa21bb71f6d824f945e590fd2dbb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRINTER PROGRAMS | DISTANCE CALC | PRG | Sailor, Ganheden | 12 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 F2 |UTINE **.....:..|
000000D0: 08 14 00 8F 20 2A 2A 20 54 4F 20 4F 55 52 20 42 |.... ** TO OUR B|
000000E0: 45 53 54 20 4B 4E 4F 57 4C 45 44 47 45 20 54 48 |EST KNOWLEDGE TH|
000000F0: 49 53 00 0F 09 15 00 8F 20 20 20 20 50 52 4F 47 |IS...... PROG|
00000100: 52 41 4D 20 49 53 20 46 52 45 45 20 46 4F 52 00 |RAM IS FREE FOR.|
00000110: 2F 09 16 00 8F 20 20 20 20 44 55 50 4C 49 43 41 |/.... DUPLICA|
00000120: 54 49 4F 4E 20 49 4E 20 43 41 4E 41 44 41 2E 00 |TION IN CANADA..|
00000130: 4C 09 17 00 8F 20 20 20 20 49 46 20 59 4F 55 20 |L.... IF YOU |
00000140: 48 41 56 45 20 43 4F 4E 54 41 52 59 00 69 09 18 |HAVE CONTARY.i..|
00000150: 00 8F 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F |.. INFORMATIO|
00000160: 4E 2C 20 50 4C 45 41 53 45 00 8F 09 19 00 8F 20 |N, PLEASE...... |
00000170: 20 20 20 43 4F 4E 54 41 43 54 20 43 4F 4D 4D 4F | CONTACT COMMO|
00000180: 44 4F 52 45 20 43 41 4E 41 44 41 20 41 4E 44 00 |DORE CANADA AND.|
00000190: B5 09 1A 00 8F 20 20 20 20 45 56 45 52 59 20 45 |..... EVERY E|
000001A0: 46 46 4F 52 54 20 57 49 4C 4C 20 42 45 20 4D 41 |FFORT WILL BE MA|
000001B0: 44 45 20 54 4F 00 D6 09 1B 00 8F 20 20 20 20 57 |DE TO...... W|
000001C0: 49 54 48 44 52 41 57 20 43 4F 50 49 45 53 20 4F |ITHDRAW COPIES O|
000001D0: 46 20 54 48 49 53 00 E8 09 1C 00 8F 20 20 20 20 |F THIS...... |
000001E0: 50 52 4F 47 52 41 4D 2E 00 EE 09 1E 00 3A 00 0A |PROGRAM......:..|
000001F0: 0A 23 00 8F 20 2B 2B 2B 20 49 4E 50 55 54 20 53 |.#.. +++ INPUT S|
00000200: 45 43 54 49 4F 4E 20 2B 2B 2B 00 22 0A 28 00 97 |ECTION +++.".(..|
00000210: 55 4F 2C 30 3A 55 52 24 B2 22 22 3A 55 49 24 B2 |UO,0:UR$."":UI$.|
00000220: 22 22 00 32 0A 2A 00 8B 55 4C B2 30 A7 55 4C B2 |"".2.*..UL.0.UL.|
00000230: 38 30 00 45 0A 2D 00 99 22 20 20 9D 9D 22 3B 3A |80.E.-.." ..";:|
00000240: 97 55 43 2C 30 00 59 0A 32 00 A1 55 49 24 3A 8B |.UC,0.Y.2..UI$:.|
00000250: 55 49 24 B2 22 22 A7 35 30 00 83 0A 37 00 8B 55 |UI$."".50...7..U|
00000260: 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 |I$..(13)..(UR$).|
00000270: B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A |.1..UC,1:." .";:|
00000280: 89 38 35 00 96 0A 3C 00 8B 55 49 24 B2 C7 28 32 |.85...<..UI$..(2|
00000290: 30 29 A7 31 30 35 00 AA 0A 3E 00 8B 20 C3 28 55 |0).105...>.. .(U|
000002A0: 52 24 29 B2 B1 55 4C A7 35 30 00 CF 0A 41 00 8D |R$)..UL.50...A..|
000002B0: 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |120:. CHECK FOR |
000002C0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 |VALID CHARACTER.|
000002D0: DF 0A 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 |..F.UR$.UR$.UI$.|
000002E0: E9 0A 4B 00 99 55 49 24 3B 00 F1 0A 50 00 89 35 |..K..UI$;...P..5|
000002F0: 30 00 16 0B 55 00 8F 20 2B 2B 2B 20 43 48 45 43 |0...U.. +++ CHEC|
00000300: 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 |K FOR HELP REQUE|
00000310: 53 54 20 2B 2B 2B 00 3E 0B 5A 00 8B 55 52 24 B2 |ST +++.>.Z..UR$.|
00000320: 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 |UX$.195:. EXIT T|
00000330: 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 4D |O HELP ROUTINE.M|
00000340: 0B 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 5A 0B |._..UF.1..240.Z.|
00000350: 64 00 55 46 B2 30 3A 99 3A 8E 00 73 0B 66 00 8F |d.UF.0:.:..s.f..|
00000360: 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 | ++ CHECK DELETE|
00000370: 20 2B 2B 00 84 0B 69 00 8B C3 28 55 52 24 29 B3 | ++...i...(UR$).|
00000380: 31 A7 35 30 00 9C 0B 6E 00 55 52 24 B2 C8 28 55 |1.50...n.UR$..(U|
00000390: 52 24 2C C3 28 55 52 24 29 AB 31 29 00 AE 0B 73 |R$,.(UR$).1)...s|
000003A0: 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 D5 |..". ..";:.50..|
000003B0: 0B 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F |.x.. ++ CHECK FO|
000003C0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE|
000003D0: 52 53 20 2B 2B 00 E7 0B 7D 00 8B C3 28 55 53 24 |RS ++...}...(US$|
000003E0: 29 B2 30 A7 31 35 30 00 F7 0B 7F 00 55 53 24 B2 |).0.150.....US$.|
000003F0: 55 53 24 AA 55 58 24 00 08 0C 82 00 81 55 53 B2 |US$.UX$......US.|
00000400: 31 A4 C3 28 55 53 24 29 00 1F 0C 87 00 8B 55 49 |1..(US$)......UI|
00000410: 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 |$..(US$,US,1)...|
00000420: 25 0C 8C 00 82 00 32 0C 91 00 55 49 24 B2 22 22 |%.....2...UI$.""|
00000430: 3A 8E 00 4D 0C 96 00 8F 20 2A 2A 20 53 54 41 4E |:..M.... ** STAN|
00000440: 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 5E 0C |DARD INPUT **.^.|
00000450: 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 6F |....(UI$).46...o|
00000460: 0C 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...|
00000470: 8C 0C A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 |......(UI$).48..|
00000480: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 92 0C A5 |(UI$).57.170....|
00000490: 00 8E 00 AF 0C AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6|
000004A0: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.|
000004B0: B5 0C AF 00 8E 00 DB 0C B4 00 8B C6 28 55 49 24 |............(UI$|
000004C0: 29 B1 B2 31 39 33 B0 C6 28 55 49 24 29 B3 B2 32 |)..193..(UI$)..2|
000004D0: 31 38 A7 55 49 24 B2 22 22 3A 8E 00 FE 0C B9 00 |18.UI$."":......|
000004E0: 8B C2 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 |..(UT).UU%.UI$..|
000004F0: 28 C6 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 04 |(.(UI$).128):...|
00000500: 0D BB 00 8E 00 11 0D BE 00 55 49 24 B2 22 22 3A |.........UI$."":|
00000510: 8E 00 36 0D C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B |..6...UF.1:. +++|
00000520: 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 | HELP ROUTINE EX|
00000530: 49 54 20 2B 2B 2B 00 3F 0D C5 00 8D 32 35 30 00 |IT +++.?....250.|
00000540: 48 0D C8 00 8D 32 34 35 00 67 0D CD 00 81 55 51 |H....245.g....UQ|
00000550: B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 |.UB.(U2%.256.U1%|
00000560: AA 55 33 25 AB 32 29 00 83 0D D2 00 55 51 25 28 |.U3%.2).....UQ%(|
00000570: 55 51 AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 |UQ.UB)..(UQ):.:.|
00000580: 22 93 22 00 96 0D D7 00 55 5A B2 31 3A 55 56 25 |".".....UZ.1:UV%|
00000590: B2 C2 28 55 54 29 00 9F 0D D8 00 89 33 30 30 00 |..(UT)......300.|
000005A0: C4 0D D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 |....UZ.0:US$.UJ$|
000005B0: 3A 55 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 |:UG$.UK$:UP.UJ:U|
000005C0: 4C B2 55 4B 00 FB 0D DA 00 8B C2 28 35 30 30 30 |L.UK.......(5000|
000005D0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 |3).0..53281,1:."|
000005E0: 93 22 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 |.";:.53281,6:.53|
000005F0: 32 38 30 2C 31 34 3A 89 32 32 30 00 05 0E DB 00 |280,14:.220.....|
00000600: 99 22 93 22 3B 00 34 0E DC 00 55 54 24 B2 55 4C |.".";.4...UT$.UL|
00000610: 24 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 |$:.UT,UV%:.UQ.UB|
00000620: A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |.(U2%.256.U1%.U3|
00000630: 25 AB 33 29 00 49 0E E1 00 97 55 51 2C 55 51 25 |%.3).I....UQ,UQ%|
00000640: 28 55 51 AB 55 42 29 3A 82 00 55 0E E6 00 97 55 |(UQ.UB):..U....U|
00000650: 31 2C 55 31 25 00 61 0E E8 00 97 55 32 2C 55 32 |1,U1%.a....U2,U2|
00000660: 25 00 6D 0E E9 00 97 55 34 2C 55 34 25 00 7B 0E |%.m....U4,U4%.{.|
00000670: EA 00 97 55 33 2C 55 33 25 AB 31 00 83 0E EB 00 |...U3,U3%.1.....|
00000680: 89 33 35 00 B5 0E F0 00 55 44 25 B2 28 28 55 32 |.35.....UD%.((U2|
00000690: 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 |%.256.U1%.U3%).U|
000006A0: 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 |B).40:..(UD$,UD%|
000006B0: AA 31 29 3A 8E 00 F0 0E F5 00 99 C8 28 55 44 24 |.1):........(UD$|
000006C0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 | . HE|
000006E0: 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E |LP COMING . ":.|
000006F0: 00 1C 0F FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 |.....U1%..(U1):U|
00000700: 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 |2%..(U2):U3%..(U|
00000710: 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 44 0F FB |3):U4%..(U4).D..|
00000720: 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 |.UJ$.US$:UK$.UG$|
00000730: 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 |:UL$.UT$:UJ.UP:U|
00000740: 4B B2 55 4C 00 4A 0F FF 00 8E 00 5B 0F 2C 01 8F |K.UL.J.....[.,..|
00000750: 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 61 0F 2D 01 | ** MENU **.a.-.|
00000760: 3A 00 90 0F 2E 01 99 22 93 22 3A 97 55 54 2C 55 |:......".":.UT,U|
00000770: 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |U%:..(50003).0..|
00000780: 35 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 |53281,9:.53280,8|
00000790: 00 96 0F 2F 01 3A 00 B3 0F 31 01 99 22 13 20 20 |.../.:...1..". |
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 | ME|
000007B0: 4E 55 22 00 E2 0F 36 01 99 22 20 2D 2D 2D 2D 2D |NU"...6.." -----|
000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007E0: 2D 22 00 0F 10 3B 01 99 22 11 11 20 20 20 20 20 |-"...;..".. |
000007F0: 20 20 31 2E 20 20 20 42 45 47 49 4E 20 43 4F 2D | 1. BEGIN CO-|
00000800: 4F 52 44 2E 20 44 49 53 54 41 4E 43 45 53 22 00 |ORD. DISTANCES".|
00000810: 39 10 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |9.@..".. 2|
00000820: 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 |. STUDENT INST|
00000830: 52 55 43 54 49 4F 4E 53 22 00 63 10 45 01 99 22 |RUCTIONS".c.E.."|
00000840: 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 |.. 3. TE|
00000850: 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F |ACHER INSTRUCTIO|
00000860: 4E 53 22 00 90 10 4A 01 99 22 11 11 20 20 20 20 |NS"...J..".. |
00000870: 20 20 20 34 2E 20 20 20 4D 4F 44 49 46 49 43 41 | 4. MODIFICA|
00000880: 54 49 4F 4E 20 4F 46 20 50 52 4F 47 52 41 4D 22 |TION OF PROGRAM"|
00000890: 00 AC 10 4F 01 99 22 11 11 20 20 20 20 20 20 20 |...O..".. |
000008A0: 35 2E 20 20 20 51 55 49 54 11 11 22 00 DB 10 54 |5. QUIT.."...T|
000008B0: 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
000008C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 06 11 59 01 |----------"...Y.|
000008E0: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
000008F0: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
00000900: 2D 35 29 20 22 3B 00 2F 11 5E 01 55 4C B2 31 3A |-5) ";./.^.UL.1:|
00000910: 55 53 24 B2 22 31 32 33 34 35 22 3A 8D 33 35 3A |US$."12345":.35:|
00000920: 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |. INPUT ROUTINE.|
00000930: 50 11 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 |P.c...(UR$).1000|
00000940: 2C 34 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 36 |,400,500,600,396|
00000950: 00 59 11 68 01 89 33 30 30 00 80 11 8B 01 8F 20 |.Y.h..300...... |
00000960: 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F |** RE-ENABLE STO|
00000970: 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A |P KEY AND END **|
00000980: 00 AF 11 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 |.......(50003)..|
00000990: 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF |1..(50003)..160.|
000009A0: C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 |.(50003)..0.399.|
000009B0: D9 11 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 |.....UU.71:..(50|
000009C0: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
000009D0: 97 35 33 32 38 30 2C 31 34 00 E5 11 8E 01 99 22 |.53280,14......"|
000009E0: 9A 93 22 3A 80 00 F0 11 8F 01 8D 38 37 35 3A 8E |..":.......875:.|
000009F0: 00 11 12 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E |...... ** STUDEN|
00000A00: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |T INSTRUCTIONS *|
00000A10: 2A 00 40 12 91 01 99 22 93 22 3A 97 55 54 2C 55 |*.@....".":.UT,U|
00000A20: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..|
00000A30: 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 |53281,0:.53280,0|
00000A40: 00 62 12 92 01 55 50 B2 30 3A 55 47 24 B2 22 D3 |.b...UP.0:UG$.".|
00000A50: 54 55 44 45 4E 54 20 C9 4E 53 54 2E 22 3A 8D 38 |TUDENT .NST.":.8|
00000A60: 35 30 00 8A 12 9A 01 99 22 11 11 20 20 20 D4 48 |50......".. .H|
00000A70: 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 44 45 |IS PROGRAM IS DE|
00000A80: 53 49 47 4E 45 44 20 54 4F 22 00 B5 12 9B 01 99 |SIGNED TO"......|
00000A90: 22 11 1D 1D 20 41 49 44 20 59 4F 55 20 49 4E 20 |"... AID YOU IN |
00000AA0: 44 45 54 45 52 4D 49 4E 49 4E 47 20 54 48 45 20 |DETERMINING THE |
00000AB0: 44 49 53 2D 22 00 E0 12 9C 01 99 22 11 1D 1D 20 |DIS-"......"... |
00000AC0: 54 41 4E 43 45 20 42 45 54 57 45 45 4E 20 41 4E |TANCE BETWEEN AN|
00000AD0: 59 20 54 57 4F 20 4C 4F 43 41 54 49 4F 4E 53 22 |Y TWO LOCATIONS"|
00000AE0: 00 0D 13 9D 01 99 22 11 1D 1D 20 49 4E 20 54 48 |......"... IN TH|
00000AF0: 45 20 57 4F 52 4C 44 2E 20 20 C1 4C 4C 20 59 4F |E WORLD. .LL YO|
00000B00: 55 20 48 41 56 45 20 54 4F 20 44 4F 22 00 3A 13 |U HAVE TO DO".:.|
00000B10: 9E 01 99 22 11 1D 1D 20 49 53 20 54 45 4C 4C 20 |..."... IS TELL |
00000B20: 4D 45 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 54 |ME THE NAME OF T|
00000B30: 48 45 20 43 49 54 49 45 53 22 00 67 13 9F 01 99 |HE CITIES".g....|
00000B40: 22 11 1D 1D 20 41 4E 44 20 54 48 45 49 52 20 4C |"... AND THEIR L|
00000B50: 41 54 49 54 55 44 45 20 41 4E 44 20 4C 4F 4E 47 |ATITUDE AND LONG|
00000B60: 49 54 55 44 45 20 22 00 8D 13 A0 01 99 22 11 1D |ITUDE "......"..|
00000B70: 1D 20 50 4F 49 4E 54 53 2E 20 20 C9 27 4C 4C 20 |. POINTS. .'LL |
00000B80: 44 4F 20 54 48 45 20 52 45 53 54 2E 22 00 AC 13 |DO THE REST."...|
00000B90: A2 01 8D 20 38 33 35 3A 8F 20 48 4F 4C 44 20 46 |... 835:. HOLD F|
00000BA0: 4F 52 20 53 50 41 43 45 20 42 41 52 00 B6 13 A3 |OR SPACE BAR....|
00000BB0: 01 8D 20 38 35 30 00 E3 13 A7 01 99 22 11 11 1D |.. 850......"...|
00000BC0: 1D 1D 1D 1D D4 48 45 20 4E 41 4D 45 20 4F 46 20 |.....HE NAME OF |
00000BD0: 54 48 45 20 43 49 54 59 20 53 48 4F 55 4C 44 20 |THE CITY SHOULD |
00000BE0: 42 45 22 00 0D 14 A9 01 99 22 11 1D 1D 1D 4E 4F |BE"......"....NO|
00000BF0: 20 4C 4F 4E 47 45 52 20 54 48 41 4E 20 31 33 20 | LONGER THAN 13 |
00000C00: 43 48 41 52 41 43 54 45 52 53 2E 20 22 00 3A 14 |CHARACTERS. ".:.|
00000C10: AB 01 99 22 11 1D 1D 1D CC 41 54 49 54 55 44 45 |...".....ATITUDE|
00000C20: 53 20 49 4E 20 54 48 45 20 D3 4F 55 54 48 45 52 |S IN THE .OUTHER|
00000C30: 4E 20 C8 45 4D 49 2D 20 20 22 00 66 14 AD 01 99 |N .EMI- ".f....|
00000C40: 22 11 1D 1D 1D 53 50 48 45 52 45 20 41 52 45 20 |"....SPHERE ARE |
00000C50: 45 4E 54 45 52 45 44 20 41 53 20 4E 45 47 41 54 |ENTERED AS NEGAT|
00000C60: 49 56 45 53 2C 22 00 92 14 B4 01 99 22 11 1D 1D |IVES,"......"...|
00000C70: 1D 41 53 20 41 52 45 20 4C 4F 4E 47 49 54 55 44 |.AS ARE LONGITUD|
00000C80: 45 53 20 49 4E 20 54 48 45 20 D7 45 53 54 45 52 |ES IN THE .ESTER|
00000C90: 4E 22 00 BF 14 B6 01 99 22 11 1D 1D 1D C8 45 4D |N"......".....EM|
00000CA0: 49 53 50 48 45 52 45 2E 20 20 C4 45 43 49 4D 41 |ISPHERE. .ECIMA|
00000CB0: 4C 53 20 41 52 45 20 41 43 43 45 50 54 2D 22 00 |LS ARE ACCEPT-".|
00000CC0: ED 14 B8 01 99 22 11 1D 1D 1D 45 44 20 41 4E 44 |....."....ED AND|
00000CD0: 20 42 45 41 52 49 4E 47 20 49 53 20 47 49 56 45 | BEARING IS GIVE|
00000CE0: 4E 20 49 4E 20 44 45 47 52 45 45 53 22 00 16 15 |N IN DEGREES"...|
00000CF0: BA 01 99 22 11 1D 1D 1D 45 41 53 54 20 4F 46 20 |..."....EAST OF |
00000D00: 4E 4F 52 54 48 2E 20 20 20 20 20 20 20 20 20 20 |NORTH. |
00000D10: 20 20 20 20 20 22 00 35 15 BB 01 8D 20 38 33 35 | ".5.... 835|
00000D20: 3A 8F 20 48 4F 4C 44 20 46 4F 52 20 53 50 41 43 |:. HOLD FOR SPAC|
00000D30: 45 20 42 41 52 00 49 15 EA 01 8B 55 5A B2 31 A7 |E BAR.I....UZ.1.|
00000D40: 9E 55 50 25 3A 89 32 31 37 00 4F 15 F3 01 8E 00 |.UP%:.217.O.....|
00000D50: 70 15 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 52 |p.... ** TEACHER|
00000D60: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A | INSTRUCTIONS **|
00000D70: 00 A0 15 F5 01 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL|
00000D80: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000D90: 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 30 |3281,2:.53280,10|
00000DA0: 00 C2 15 F6 01 55 50 B2 30 3A 55 47 24 B2 22 D4 |.....UP.0:UG$.".|
00000DB0: 45 41 43 48 45 52 20 C9 4E 53 54 2E 22 3A 8D 38 |EACHER .NST.":.8|
00000DC0: 35 30 00 F0 15 F7 01 99 22 11 11 20 20 20 20 20 |50......".. |
00000DD0: 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 | .O THE BEST OF |
00000DE0: 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 |OUR KNOWLEDGE,."|
00000DF0: 00 19 16 F8 01 99 22 20 20 20 54 48 49 53 20 50 |......" THIS P|
00000E00: 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 |ROGRAM IS IN THE|
00000E10: 20 50 55 42 4C 49 43 11 22 00 45 16 F9 01 99 22 | PUBLIC.".E...."|
00000E20: 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 | DOMAIN. .F T|
00000E30: 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 |HIS IS NOT THE C|
00000E40: 41 53 45 11 22 00 62 16 FA 01 99 22 20 20 20 50 |ASE.".b...." P|
00000E50: 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 |LEASE CONTACT:..|
00000E60: 11 22 00 8C 16 FB 01 99 22 20 20 20 20 20 20 C3 |."......" .|
00000E70: 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 |OMMODORE .USINES|
00000E80: 53 20 CD 41 43 48 49 4E 45 53 11 22 00 AF 16 FC |S .ACHINES."....|
00000E90: 01 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 |.." 337|
00000EA0: 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 |0 .HARMACY .VE..|
00000EB0: D3 16 FD 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000EC0: C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 |.GINCOURT, .NTAR|
00000ED0: 49 4F 22 00 F5 16 FE 01 99 22 20 20 20 20 20 20 |IO"......" |
00000EE0: 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 | .ANADA .1.|
00000EF0: 20 32 CB 34 22 00 15 17 FF 01 99 22 20 20 20 20 | 2.4"......" |
00000F00: 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D | (416) 499-|
00000F10: 34 32 39 32 22 00 26 17 00 02 8D 20 38 33 35 3A |4292".&.... 835:|
00000F20: 8D 20 38 35 30 3A 00 54 17 01 02 99 22 20 20 20 |. 850:.T...." |
00000F30: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000F40: 3A 20 C3 4F 2D 4F 52 44 2E 20 C4 49 53 54 41 4E |: .O-ORD. .ISTAN|
00000F50: 43 45 53 11 00 76 17 02 02 99 22 20 20 20 20 20 |CES..v...." |
00000F60: D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D5 4E |.RITTEN .Y : .N|
00000F70: 4B 4E 4F 57 4E 11 00 9C 17 03 02 99 22 20 20 20 |KNOWN......." |
00000F80: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : |
00000F90: CA 4F 48 4E 20 D2 49 44 4C 45 52 11 00 C7 17 04 |.OHN .IDLER.....|
00000FA0: 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 |.." ..HIS PR|
00000FB0: 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F |OGRAM WILL RUN O|
00000FC0: 4E 20 41 4E 59 11 11 00 E7 17 07 02 99 22 20 20 |N ANY........" |
00000FD0: 20 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF | ... 64 ..|
00000FE0: CD D0 D5 D4 C5 D2 11 00 0C 18 08 02 99 22 20 20 |............." |
00000FF0: 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 | .........|
00001000: 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 15 18 09 | 64 ............|
00001010: 02 8D 38 33 35 00 39 18 0A 02 8F 2D 2D 2D 2D 2D |..835.9....-----|
00001020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 58 18 0C 02 8F 22 |---------.X...."|
00001040: 20 20 20 20 D5 50 47 52 41 44 45 44 20 46 4F 52 | .PGRADED FOR|
00001050: 20 C3 36 34 20 42 59 3A 00 73 18 0D 02 8F 22 20 | .64 BY:.s...." |
00001060: 20 20 20 20 20 20 CC 59 4E 44 41 20 C2 4F 4E 41 | .YNDA .ONA|
00001070: 4E 4E 4F 00 97 18 0F 02 8F 2D 2D 2D 2D 2D 2D 2D |NNO......-------|
00001080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001090: 2D 2D 2D 2D 2D 2D 2D 00 AB 18 4E 02 8B 55 5A B2 |-------...N..UZ.|
000010A0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 B1 18 57 02 |1..UP%:.217...W.|
000010B0: 8E 00 D7 18 58 02 8F 20 2A 2A 20 50 52 4F 47 52 |....X.. ** PROGR|
000010C0: 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 |AM MODIFICATION |
000010D0: 49 4E 53 54 20 2A 2A 00 E8 18 59 02 99 22 93 22 |INST **...Y.."."|
000010E0: 3A 97 55 54 2C 55 4C 25 00 09 19 5D 02 55 50 B2 |:.UT,UL%...].UP.|
000010F0: 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD |0:UG$.".ROGRAM .|
00001100: 4F 44 2E 22 3A 8D 38 35 30 00 34 19 62 02 99 22 |OD.":.850.4.b.."|
00001110: 11 11 20 20 20 D4 48 49 53 20 50 52 4F 47 52 41 |.. .HIS PROGRA|
00001120: 4D 20 49 53 20 41 20 44 45 4D 4F 4E 53 54 52 41 |M IS A DEMONSTRA|
00001130: 54 49 4F 4E 00 59 19 63 02 99 22 11 20 20 20 57 |TION.Y.c..". W|
00001140: 48 49 43 48 20 44 4F 45 53 20 4E 4F 54 20 4C 45 |HICH DOES NOT LE|
00001150: 4E 44 20 49 54 53 45 4C 46 00 7C 19 64 02 99 22 |ND ITSELF.|.d.."|
00001160: 11 20 20 20 54 4F 20 53 49 4D 50 4C 45 20 4D 4F |. TO SIMPLE MO|
00001170: 44 49 46 49 43 41 54 49 4F 4E 2E 22 00 85 19 94 |DIFICATION."....|
00001180: 02 8D 38 33 35 00 99 19 B2 02 8B 55 5A B2 31 A7 |..835......UZ.1.|
00001190: 9E 55 50 25 3A 89 32 31 37 00 9F 19 BB 02 8E 00 |.UP%:.217.......|
000011A0: C4 19 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |..... ** TO USE |
000011B0: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403|
000011C0: 32 20 2A 2A 00 FA 19 C6 02 99 22 93 11 11 11 05 |2 **......".....|
000011D0: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
000011E0: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
000011F0: 4E 20 38 30 33 32 20 20 11 11 00 30 1A D0 02 99 |N 8032 ...0....|
00001200: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE |
00001210: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR|
00001220: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."|
00001230: 00 3B 1A DA 02 9E 55 55 AA 37 31 00 41 1A E4 02 |.;....UU.71.A...|
00001240: 80 00 66 1A 1D 03 8F 20 2A 2A 20 54 4F 20 55 53 |..f.... ** TO US|
00001250: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
00001260: 30 33 32 20 2A 2A 00 B1 1A 1E 03 99 22 93 11 11 |032 **......"...|
00001270: 11 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 |.BEFORE RUNNING |
00001280: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 |THIS PROGRAM ON |
00001290: 41 4E 20 38 30 33 32 20 20 11 11 4C 4F 41 44 20 |AN 8032 ..LOAD |
000012A0: 43 42 4D 20 34 30 33 32 20 50 52 4F 47 52 41 4D |CBM 4032 PROGRAM|
000012B0: 22 00 BD 1A 1F 03 9E 31 30 39 33 3A 80 00 DD 1A |"......1093:....|
000012C0: 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 | .. ** T I T L E|
000012D0: 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 11 1B | P A G E **...|
000012E0: 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 |".."....";:.UT,U|
000012F0: 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |U%:..(50003).0..|
00001300: 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C |53280,14:.53281,|
00001310: 36 00 27 1B 24 03 81 49 B2 31 A4 33 38 3A 99 22 |6.'.$..I.1.38:."|
00001320: 12 A6 92 22 3B 3A 82 00 3F 1B 26 03 81 49 B2 31 |...";:..?.&..I.1|
00001330: A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 |.22:.".....";:..|
00001340: 57 1B 28 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D |W.(..I.1.37:."..|
00001350: 12 A6 92 22 3B 3A 82 00 6F 1B 2A 03 81 49 B2 31 |...";:..o.*..I.1|
00001360: A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 |.22:.".....";:..|
00001370: 94 1B 2C 03 99 22 13 11 11 11 11 11 11 1D 1D 1D |..,.."..........|
00001380: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00001390: A9 20 20 92 00 B6 1B 2E 03 99 22 1D 1D 1D 1D 1D |. .......".....|
000013A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 |.............. .|
000013B0: 20 20 12 20 92 A9 00 D7 1B 30 03 99 22 1D 1D 1D | . .....0.."...|
000013C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000013D0: 20 92 20 20 12 A3 DF 00 F5 1B 32 03 99 22 1D 1D | . ......2.."..|
000013E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000013F0: DF 12 20 20 92 00 1D 1C 34 03 99 22 11 11 1D 1D |.. ....4.."....|
00001400: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 |..........C O M |
00001410: 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 40 1C |M O D O R E...@.|
00001420: 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |6.."............|
00001430: 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 |...EDUCATIONAL..|
00001440: 00 5F 1C 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |._.8..".........|
00001450: 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 |.......SOFTWARE.|
00001460: 7A 1C 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F |z.:.. ** COMMODO|
00001470: 52 45 20 4C 4F 47 4F 20 2A 2A 00 B2 1C 3B 03 99 |RE LOGO **...;..|
00001480: C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D |.(UD$,24);".....|
00001490: 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 |.....PRESS SPACE|
000014A0: 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 3A 49 | BAR OR WAIT.":I|
000014B0: B2 30 00 D4 1C 3C 03 A1 41 24 3A 8B 41 24 B3 B1 |.0...<..A$:.A$..|
000014C0: 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 |" ".I.I.1:.I.250|
000014D0: A7 38 32 38 00 F8 1C 3E 03 54 31 24 B2 22 22 3A |.828...>.T1$."":|
000014E0: 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 |T2$."":T3$."":T4|
000014F0: 24 B2 22 22 3A 49 B2 30 00 01 1D 40 03 89 33 30 |$."":I.0...@..30|
00001500: 30 00 1D 1D 43 03 8F 20 2A 2A 20 53 50 41 43 45 |0...C.. ** SPACE|
00001510: 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 58 1D | BAR PRESS **.X.|
00001520: 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 |H..UO,0:..(UD$,2|
00001530: 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |4);".......PRESS|
00001540: 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F | SPACE BAR TO CO|
00001550: 4E 54 49 4E 55 45 92 22 00 6F 1D 4C 03 A1 55 49 |NTINUE.".o.L..UI|
00001560: 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 |$:.UI$.." ".844.|
00001570: 75 1D 4E 03 8E 00 95 1D 52 03 8F 20 2A 2A 20 50 |u.N.....R.. ** P|
00001580: 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 |AGE DESIGN ROUTI|
00001590: 4E 45 20 2A 2A 00 A1 1D 54 03 55 50 B2 55 50 AA |NE **...T.UP.UP.|
000015A0: 31 00 CB 1D 57 03 99 22 93 22 C8 28 55 54 24 AA |1...W..".".(UT$.|
000015B0: 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 |UP$,21);.(UP$.UG|
000015C0: 24 AA C4 28 55 50 29 2C 31 38 29 00 FA 1D 5C 03 |$..(UP),18)...\.|
000015D0: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
000015E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 09 1E 60 03 8B |---------"...`..|
00001600: 55 48 B3 B1 30 A7 38 37 30 00 3D 1E 61 03 99 C8 |UH..0.870.=.a...|
00001610: 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 |(UD$,24);.(UP$,7|
00001620: 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 |);"HELP - PRESS |
00001630: 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 4E 1E | H <RETURN>".N.|
00001640: 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 6D |f.UH.0:."..":..m|
00001650: 1E 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 |.k.. ** PLEASE W|
00001660: 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 A3 1E |AIT REMARK **...|
00001670: 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |p...(UD$,24);" |
00001680: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
00001690: 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 |ENT PLEASE... |
000016A0: 20 20 22 00 A9 1E 75 03 8E 00 C6 1E 84 03 8F 20 | "...u........ |
000016B0: 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 |** SET UP VARIAB|
000016C0: 4C 45 53 20 2A 2A 00 11 1F 85 03 55 58 24 B2 22 |LES **.....UX$."|
000016D0: 48 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 |H":.UQ%(1000):UB|
000016E0: B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 |.32768:U1.196:U2|
000016F0: B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 |.197:U3.198:U4.2|
00001700: 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 |16:UC.167:UU.102|
00001710: 34 00 4F 1F 86 03 55 54 B2 35 39 34 36 38 3A 55 |4.O...UT.59468:U|
00001720: 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 |U%.12:UL%.14:UP%|
00001730: B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 |.1146:UM.32768:U|
00001740: 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 |O.158:. 50003,0.|
00001750: 92 1F 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |......(50003).0.|
00001760: 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |UB.1024:U1.209:U|
00001770: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
00001780: 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 |214:UC.204:UU.20|
00001790: 34 38 00 D1 1F 88 03 8B C2 28 35 30 30 30 33 29 |48.......(50003)|
000017A0: B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 |.0.UT.53272:UU%.|
000017B0: 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 |21:UL%.23:UP%.21|
000017C0: 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 |39:UM.1024:UO.19|
000017D0: 38 00 F5 1F 89 03 55 44 24 B2 22 13 11 11 11 11 |8.....UD$.".....|
000017E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000017F0: 11 11 11 11 22 00 27 20 8A 03 55 50 24 B2 22 20 |....".' ..UP$." |
00001800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001820: 20 20 20 20 20 20 22 00 44 20 8B 03 55 54 24 B2 | ".D ..UT$.|
00001830: 22 20 C3 CF 2D CF D2 C4 2E A0 C4 C9 D3 D4 C1 CE |" ..-...........|
00001840: C3 C5 D3 22 00 4A 20 8C 03 8E 00 64 20 8E 03 8F |...".J ....d ...|
00001850: 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 | ** SET VARIABLE|
00001860: 53 20 2A 2A 00 6D 20 93 03 8D 39 30 30 00 73 20 |S **.m ...900.s |
00001870: 94 03 3A 00 79 20 95 03 3A 00 94 20 98 03 8F 20 |..:.y ..:.. ... |
00001880: 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 |** CHECK FOR 803|
00001890: 32 20 2A 2A 00 B2 20 9D 03 99 22 93 22 3A 99 22 |2 **.. ...".":."|
000018A0: A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 |.":. SHIFTED SPA|
000018B0: 43 45 00 C9 20 A2 03 8B C2 28 55 42 AA 34 30 29 |CE.. ....(UB.40)|
000018C0: B3 B1 39 36 A7 8D 37 30 30 00 E2 20 A3 03 8F 20 |..96..700.. ... |
000018D0: 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 |** MEMORY CHECK |
000018E0: 2A 2A 00 F6 20 A4 03 8B 20 B8 28 30 29 B1 32 30 |**.. ... .(0).20|
000018F0: 30 30 A7 39 33 37 00 24 21 A5 03 99 22 93 11 11 |00.937.$!..."...|
00001900: 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F |.THIS MACHINE DO|
00001910: 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 |ES NOT HAVE ENOU|
00001920: 47 48 11 22 00 48 21 A6 03 99 22 4D 45 4D 4F 52 |GH.".H!..."MEMOR|
00001930: 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 |Y TO RUN THIS PR|
00001940: 4F 47 52 41 4D 20 21 22 00 53 21 A7 03 9E 55 55 |OGRAM !".S!...UU|
00001950: AA 37 31 00 59 21 A8 03 80 00 73 21 A9 03 99 22 |.71.Y!....s!..."|
00001960: 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |..":..(50003).0.|
00001970: 39 36 32 00 A2 21 AC 03 8F 20 2A 2A 20 42 41 53 |962..!... ** BAS|
00001980: 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 |IC 2.0 OR 4.0 |
00001990: 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 | OR C-64 SETUP |
000019A0: 2A 2A 00 E0 21 AD 03 97 31 30 37 35 2C 31 33 33 |**..!...1075,133|
000019B0: 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 |:.1076,144:.1077|
000019C0: 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 |,234:.1079,4:.10|
000019D0: 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 |80,133:.1081,145|
000019E0: 00 16 22 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 |.."...1091,155:.|
000019F0: 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 |1098,133:.1099,1|
00001A00: 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 |44:.1100,234:.11|
00001A10: 30 33 2C 31 33 33 00 38 22 AF 03 97 31 31 30 34 |03,133.8"...1104|
00001A20: 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 |,145:.1105,234:.|
00001A30: 31 30 38 32 2C 32 33 34 00 4F 22 B1 03 8B C2 28 |1082,234.O"....(|
00001A40: 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 |50003)..160.955.|
00001A50: 7E 22 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 |~"...1093,88:.10|
00001A60: 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A |94,228:.1097,85:|
00001A70: 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 93 |.1102,228:.965..|
00001A80: 22 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 |"....(50003)..1.|
00001A90: 39 39 30 00 C2 22 C0 03 97 31 30 39 33 2C 34 39 |990.."...1093,49|
00001AA0: 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 |:.1094,230:.1097|
00001AB0: 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 |,46:.1102,230:.9|
00001AC0: 36 35 00 FC 22 C2 03 97 32 30 39 39 2C 31 34 31 |65.."...2099,141|
00001AD0: 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C |:.2100,20:.2101,|
00001AE0: 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C |3:.2103,8:.2104,|
00001AF0: 31 34 31 3A 97 32 31 30 35 2C 32 31 00 38 23 C3 |141:.2105,21.8#.|
00001B00: 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 |..2106,3:.2115,1|
00001B10: 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 |45:.2117,52:.211|
00001B20: 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 |8,234:.2121,49:.|
00001B30: 32 31 32 32 2C 31 34 31 00 72 23 C4 03 97 32 31 |2122,141.r#...21|
00001B40: 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 |23,20:.2124,3:.2|
00001B50: 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 |126,234:.2127,14|
00001B60: 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 |1:.2128,21:.2129|
00001B70: 2C 33 00 90 23 C5 03 9E 55 55 AA 34 38 3A 8F 20 |,3..#...UU.48:. |
00001B80: 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |DISABLE STOP KEY|
00001B90: 00 A1 23 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C |..#...800:. TITL|
00001BA0: 45 00 B1 23 D4 03 89 33 30 30 3A 8F 20 4D 45 4E |E..#...300:. MEN|
00001BB0: 55 00 E2 23 DE 03 99 22 93 54 48 45 20 50 47 4D |U..#...".THE PGM|
00001BC0: 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F | WILL NOT WORK O|
00001BD0: 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 |N THIS MACHINE!"|
00001BE0: 3A 80 00 17 24 E8 03 8B 55 5A B2 31 A7 9E 55 50 |:...$...UZ.1..UP|
00001BF0: 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A |%:.UP%:UZ.0:. **|
00001C00: 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 | PROGRAM STARTS |
00001C10: 48 45 52 45 20 2A 2A 00 43 24 E9 03 99 22 93 05 |HERE **.C$..."..|
00001C20: 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 |";:.:..(50003).0|
00001C30: A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 |..53281,6:.53280|
00001C40: 2C 31 34 00 4F 24 F2 03 97 55 54 2C 55 4C 25 00 |,14.O$...UT,UL%.|
00001C50: 6E 24 10 04 8F 20 20 20 20 20 43 4F 2D 4F 52 44 |n$... CO-ORD|
00001C60: 49 4E 41 54 45 20 44 49 53 54 41 4E 43 45 00 91 |INATE DISTANCE..|
00001C70: 24 1A 04 8F 20 20 57 52 49 54 54 45 4E 20 42 59 |$... WRITTEN BY|
00001C80: 20 4A 41 4D 45 53 20 4E 45 54 48 45 52 43 4F 54 | JAMES NETHERCOT|
00001C90: 54 00 B0 24 24 04 8F 20 20 20 20 4A 55 4C 59 20 |T..$$.. JULY |
00001CA0: 31 39 38 31 2C 20 53 54 2E 20 54 48 4F 4D 41 53 |1981, ST. THOMAS|
00001CB0: 00 CB 24 2E 04 8F 20 20 20 20 20 20 20 45 58 50 |..$... EXP|
00001CC0: 45 52 49 45 4E 43 45 20 27 38 31 00 ED 24 38 04 |ERIENCE '81..$8.|
00001CD0: 8F 20 20 20 46 4F 52 4D 55 4C 41 20 46 52 4F 4D |. FORMULA FROM|
00001CE0: 20 37 33 27 20 4D 41 47 41 5A 49 4E 45 00 0B 25 | 73' MAGAZINE..%|
00001CF0: 42 04 8F 20 20 20 20 20 50 55 42 4C 49 53 48 45 |B.. PUBLISHE|
00001D00: 44 20 44 45 43 2E 20 31 39 37 38 00 2F 25 4C 04 |D DEC. 1978./%L.|
00001D10: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001D30: 53 25 56 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S%V.. **********|
00001D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001D50: 2A 2A 2A 00 59 25 6A 04 8F 00 7A 25 74 04 8F 20 |***.Y%j...z%t.. |
00001D60: 20 20 43 4F 50 59 52 49 47 48 54 20 20 4D 41 52 | COPYRIGHT MAR|
00001D70: 43 48 20 35 2C 20 31 39 38 32 00 A0 25 7E 04 8F |CH 5, 1982..%~..|
00001D80: 20 45 4C 47 49 4E 20 43 4F 55 4E 54 59 20 42 4F | ELGIN COUNTY BO|
00001D90: 41 52 44 20 4F 46 20 45 44 55 43 41 54 49 4F 4E |ARD OF EDUCATION|
00001DA0: 00 BE 25 88 04 8F 20 20 20 20 20 53 54 2E 20 54 |..%... ST. T|
00001DB0: 48 4F 4D 41 53 2C 20 4F 4E 54 41 52 49 4F 00 C4 |HOMAS, ONTARIO..|
00001DC0: 25 92 04 8F 00 E9 25 9C 04 8F 20 20 20 4D 41 59 |%.....%... MAY|
00001DD0: 20 42 45 20 43 4F 50 49 45 44 20 46 52 45 45 20 | BE COPIED FREE |
00001DE0: 4F 46 20 43 48 41 52 47 45 00 09 26 A6 04 8F 20 |OF CHARGE..&... |
00001DF0: 46 4F 52 20 45 44 55 43 41 54 49 4F 4E 41 4C 20 |FOR EDUCATIONAL |
00001E00: 55 53 45 20 4F 4E 4C 59 2E 00 2D 26 B0 04 8F 20 |USE ONLY..-&... |
00001E10: 20 20 4D 41 59 20 4E 4F 54 20 42 45 20 43 4F 50 | MAY NOT BE COP|
00001E20: 49 45 44 20 46 4F 52 20 53 41 4C 45 2E 00 6E 26 |IED FOR SALE..n&|
00001E30: 08 07 55 50 B2 30 3A 55 47 24 B2 22 C3 4F 2D 4F |..UP.0:UG$.".O-O|
00001E40: 52 44 49 4E 41 54 45 53 20 D0 47 2E 22 3A 8D 20 |RDINATES .G.":. |
00001E50: 38 35 30 3A 99 22 11 11 11 1D 1D 1D 1D 1D 1D 1D |850:."..........|
00001E60: 20 4C 4F 43 41 54 49 4F 4E 20 23 20 31 22 00 8B | LOCATION # 1"..|
00001E70: 26 12 07 99 22 1D 1D 1D 1D 1D 1D 1D 3D 3D 3D 3D |&...".......====|
00001E80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 BA 26 3A 07 |=========="..&:.|
00001E90: 99 22 11 11 20 20 43 49 54 59 20 3F 20 20 20 20 |.".. CITY ? |
00001EA0: 20 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D | .....|
00001EB0: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 D6 26 58 07 55 |........";..&X.U|
00001EC0: 4C B2 31 33 3A 55 53 24 B2 22 22 3A 8D 33 35 3A |L.13:US$."":.35:|
00001ED0: 43 24 B2 55 52 24 00 E6 26 62 07 43 24 B2 C8 28 |C$.UR$..&b.C$..(|
00001EE0: 43 24 2C 31 33 29 00 FA 26 76 07 8B 20 43 24 B2 |C$,13)..&v.. C$.|
00001EF0: 22 20 22 20 A7 20 31 38 38 30 00 0E 27 80 07 8B |" " . 1880..'...|
00001F00: 20 43 24 B2 22 BF 22 20 A7 20 31 38 38 30 00 40 | C$."." . 1880.@|
00001F10: 27 8A 07 8B 20 C6 28 C8 28 43 24 2C 31 29 29 B3 |'... .(.(C$,1)).|
00001F20: 36 35 20 B0 20 C6 28 C8 28 43 24 2C 31 29 29 B1 |65 . .(.(C$,1)).|
00001F30: 39 30 A7 99 22 91 91 91 91 22 3A 89 31 38 35 30 |90.."....":.1850|
00001F40: 00 58 27 B2 07 99 22 11 11 20 20 4C 41 54 49 54 |.X'...".. LATIT|
00001F50: 55 44 45 20 3F 20 20 22 00 96 27 D0 07 99 22 91 |UDE ? "..'...".|
00001F60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 |............... |
00001F70: 20 20 20 9D 9D 9D 9D 22 3B 3A 55 4C B2 34 3A 55 | ....";:UL.4:U|
00001F80: 53 24 B2 22 2B 2D 2E 30 31 32 33 34 35 36 37 38 |S$."+-.012345678|
00001F90: 39 22 3A 8D 33 35 00 A1 27 D5 07 41 24 B2 55 52 |9":.35..'..A$.UR|
00001FA0: 24 00 BE 27 DA 07 8B C8 28 41 24 2C 31 29 B3 B1 |$..'....(A$,1)..|
00001FB0: 22 2D 22 A7 41 24 B2 C8 28 41 24 2C 34 29 00 DB |"-".A$..(A$,4)..|
00001FC0: 27 E4 07 8B C8 28 41 24 2C 31 29 B2 22 2D 22 A7 |'....(A$,1)."-".|
00001FD0: 20 41 24 B2 C8 28 41 24 2C 35 29 00 EF 27 F8 07 | A$..(A$,5)..'..|
00001FE0: 8B 20 41 24 B2 22 BF 22 20 A7 20 32 30 30 30 00 |. A$."." . 2000.|
00001FF0: FB 27 02 08 41 B2 C5 28 41 24 29 00 1D 28 0C 08 |.'..A..(A$)..(..|
00002000: 8B 20 C6 28 C8 28 41 24 2C 31 29 29 B2 34 35 20 |. .(.(A$,1)).45 |
00002010: A7 20 4E B2 34 35 3A 89 20 32 30 38 30 00 26 28 |. N.45:. 2080.&(|
00002020: 16 08 4E B2 34 38 00 51 28 20 08 8B 20 C6 28 C8 |..N.48.Q( .. .(.|
00002030: 28 41 24 2C 31 29 29 B3 20 4E 20 B0 20 C6 28 C8 |(A$,1)). N . .(.|
00002040: 28 41 24 2C 31 29 29 B1 35 37 20 A7 20 32 30 30 |(A$,1)).57 . 200|
00002050: 30 00 6B 28 48 08 99 22 11 11 20 20 4C 4F 4E 47 |0.k(H..".. LONG|
00002060: 49 54 55 44 45 20 3F 20 20 20 22 00 83 28 52 08 |ITUDE ? "..(R.|
00002070: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00002080: 20 20 22 00 9B 28 5C 08 99 88 FF FF FF FF FF FF | "..(\.........|
00002090: FF FF FF FF FF FF FF FF FF FF 88 FF 4E FF B1 FF |............N...|
000020A0: FF 98 FF FF FF FE FE FE FE FE FE FE FE FE FE FE |................|
000020B0: FE FE FE FE FE FE 98 8D 9D FF FF D9 87 8D 55 53 |..............US|
000020C0: 24 B2 22 2B 2D 2E 30 31 32 33 34 35 36 37 38 39 |$."+-.0123456789|
000020D0: 22 3A 8D 33 35 3A 4C 31 24 B2 55 52 24 00 FE 28 |":.35:L1$.UR$..(|
000020E0: 70 08 8B C8 28 4C 31 24 2C 31 29 B3 B1 22 2D 22 |p...(L1$,1).."-"|
000020F0: A7 20 4C 31 24 B2 C8 28 4C 31 24 2C 35 29 00 1E |. L1$..(L1$,5)..|
00002100: 29 7A 08 8B C8 28 4C 31 24 2C 31 29 B2 22 2D 22 |)z...(L1$,1)."-"|
00002110: A7 20 4C 31 24 B2 C8 28 4C 67 FF FF FF FF FF FF |. L1$..(Lg......|
00002120: FF FF FF 37 FF FF FF FF FF FF 71 FF FF F5 FF FF |...7......q.....|
00002130: FF FF FF FF FF FF 22 FF FF FF FF FF FF FF FF FF |......".........|
00002140: FF FF FF FF FF FF 37 FF BC FF A3 FF FF FF FF FF |......7.........|
00002150: FF FF FF FF FF FF FF F5 FF DD FF FF FF FF 33 FF |..............3.|
00002160: FF FF FF FF FF CB FF FF FF DD FF FF FF FF 37 FF |..............7.|
00002170: FF FF 37 FF BC FF A3 FF FF FF FF FF FF FF FF FF |..7.............|
00002180: FF FF DD FF 6F FF BC FF A3 FF FF FF FF FF FF FF |....o...........|
00002190: FF 67 FF FF FF F5 FF FF FF FF FF FF FB FF FF FF |.g..............|
000021A0: 27 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |'...............|
000021B0: FF FF 3B FF FF FF FF FF 33 FF 66 66 20 20 20 20 |..;.....3.ff |
000021C0: 20 20 20 20 20 20 4C 4F 43 41 54 49 4F 4E 20 23 | LOCATION #|
000021D0: 20 32 22 00 F3 29 D4 08 99 22 20 20 20 20 20 20 | 2"..)..." |
000021E0: 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | =============|
000021F0: 3D 20 22 00 22 2A FC 08 99 22 11 11 20 20 43 49 |= "."*...".. CI|
00002200: 54 59 20 3F 20 20 20 20 20 20 20 20 20 20 20 20 |TY ? |
00002210: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D FF 9D 9D | .............|
00002220: 22 3B 00 3E 2A 1A 09 55 4C B2 31 33 3A 55 53 24 |";.>*..UL.13:US$|
00002230: B2 22 22 3A 8D 33 35 3A 44 24 B2 55 52 24 00 4F |."":.35:D$.UR$.O|
00002240: 2A 24 09 44 24 B2 20 C8 28 44 24 2C 31 33 29 00 |*$.D$. .(D$,13).|
00002250: 63 2A 38 09 8B 20 44 24 B2 22 BF 22 20 A7 20 32 |c*8.. D$."." . 2|
00002260: 33 33 30 00 95 2A 42 09 8B 20 C6 28 C8 28 44 24 |330..*B.. .(.(D$|
00002270: 2C 31 29 29 B3 36 35 20 B0 20 C6 28 C8 28 44 24 |,1)).65 . .(.(D$|
00002280: 2C 31 29 29 B1 3B FF F5 33 FF 27 27 27 27 FF FF |,1)).;..3.''''..|
00002290: 33 FF FF FF FF FF FB FF FF F3 33 FF 66 67 FF FF |3.........3.fg..|
000022A0: FF FF FF D2 FF EE FF FF FF FF FF FF FF FF FF FF |................|
000022B0: FF F3 33 FF FF FF FF FF FF FF 20 20 20 20 20 20 |..3....... |
000022C0: 20 20 22 00 D9 2A 7E 09 99 22 20 20 20 20 20 20 | "..*~.." |
000022D0: 20 20 20 20 20 20 20 20 22 00 18 2B 88 09 99 22 | "..+..."|
000022E0: 91 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000022F0: 1D 1D 22 3B 3A 55 4C B2 34 3A 55 53 24 B2 22 2B |..";:UL.4:US$."+|
00002300: 2D 2E 30 31 32 33 34 35 36 37 38 39 22 3A 8D 33 |-.0123456789":.3|
00002310: 35 3A 42 24 B2 55 52 24 00 35 2B 92 09 8B C8 28 |5:B$.UR$.5+....(|
00002320: 42 24 2C 31 29 B3 B1 22 2D 22 A7 42 24 B2 C8 28 |B$,1).."-".B$..(|
00002330: 42 24 2C 34 29 00 52 2B 9C 09 8B C8 28 42 24 2C |B$,4).R+....(B$,|
00002340: 31 29 B2 22 2D 22 A7 20 42 24 B2 C8 28 42 24 2C |1)."-". B$..(B$,|
00002350: 35 29 00 66 2B B0 09 8B 20 42 24 B2 22 BF 22 20 |5).f+... B$."." |
00002360: A7 20 32 34 34 30 00 72 2B BA 09 42 B2 C5 28 42 |. 2440.r+..B..(B|
00002370: 24 29 00 94 2B C4 09 8B 20 C6 28 C8 28 42 24 2C |$)..+... .(.(B$,|
00002380: 31 29 29 B2 34 35 20 A7 20 4E B2 34 35 3A 89 20 |1)).45 . N.45:. |
00002390: 32 35 32 30 00 9D 2B CE 09 4E B2 34 38 00 C9 2B |2520..+..N.48..+|
000023A0: D8 09 8B 20 C6 28 C8 28 42 24 2C 31 29 29 20 B3 |... .(.(B$,1)) .|
000023B0: 20 4E 20 B0 20 C6 28 C8 28 42 24 2C 31 29 29 B1 | N . .(.(B$,1)).|
000023C0: 35 37 20 A7 20 32 34 34 30 00 E2 2B 00 0A 99 22 |57 . 2440..+..."|
000023D0: 11 11 20 20 4C 4F 4E 47 49 54 55 44 48 20 3F 20 |.. LONGITUDH ? |
000023E0: 20 22 00 F9 2B 0A 0A 99 22 20 20 20 20 20 20 20 | "..+..." |
000023F0: 20 20 20 20 20 20 20 20 22 00 10 2C 14 0A 99 22 | "..,..."|
00002400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00002410: 00 51 2C 1E 0A 99 22 91 91 91 1D 1D 1D 1D 1D 1D |.Q,...".........|
00002420: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 55 4C B2 |..........";:UL.|
00002430: 34 3A 55 53 24 B2 22 2B 2D 2E 30 31 32 33 34 35 |4:US$."+-.012345|
00002440: 36 37 38 39 22 3A 8D 33 35 3A 4C 32 24 B2 55 52 |6789":.35:L2$.UR|
00002450: 24 00 72 2C 28 0A 8B C8 28 4C 32 24 2C 31 29 B3 |$.r,(...(L2$,1).|
00002460: B1 22 2D 22 A7 20 4C 32 24 B2 C8 28 4C 32 24 2C |."-". L2$..(L2$,|
00002470: 35 29 00 92 2C 32 0A 8B C8 28 4C 32 24 2C 31 29 |5)..,2...(L2$,1)|
00002480: B2 22 2D 22 A7 20 4C 32 24 B2 C8 28 4C 32 24 2C |."-". L2$..(L2$,|
00002490: 36 29 00 9A 2C 3C 0A 99 3A 99 00 AF 2C 46 0A 8B |6)..,<..:...,F..|
000024A0: 20 4C 32 24 B2 22 BF 22 20 A7 20 32 35 39 30 00 | L2$."." . 2590.|
000024B0: BD 2C 50 0A 4C 32 B2 C5 28 4C 32 24 29 00 E0 2C |.,P.L2..(L2$)..,|
000024C0: 5A 0A 8B 20 C6 28 C8 28 4C 32 24 2C 31 29 29 B2 |Z.. .(.(L2$,1)).|
000024D0: 34 35 20 A7 20 4E B2 34 35 3A 89 20 32 36 37 30 |45 . N.45:. 2670|
000024E0: 00 E9 2C 64 0A 4E B2 34 38 00 15 2D 6E 0A 8B 20 |..,d.N.48..-n.. |
000024F0: C6 28 C8 28 4C 32 24 2C 31 29 29 B3 4E 20 B0 20 |.(.(L2$,1)).N . |
00002500: C6 28 C8 28 4C 32 24 2C 31 29 29 B1 35 37 20 A7 |.(.(L2$,1)).57 .|
00002510: 20 32 35 39 30 00 2A 2D 78 0A 41 31 B2 41 AC 33 | 2590.*-x.A1.A.3|
00002520: 2E 31 34 31 35 39 AD 31 38 30 00 38 2D 82 0A 99 |.14159.180.8-...|
00002530: 22 93 22 3A 8D 38 37 35 00 58 2D 8C 0A 8F 20 50 |".":.875.X-... P|
00002540: 45 52 46 4F 52 4D 53 20 41 4C 4C 20 43 41 4C 43 |ERFORMS ALL CALC|
00002550: 55 4C 41 54 49 4F 4E 53 00 66 2D 96 0A 88 20 4C |ULATIONS.f-... L|
00002560: B2 4C 32 AB 4C 31 00 7A 2D A0 0A 8F 20 58 20 54 |.L2.L1.z-... X T|
00002570: 45 53 54 53 20 46 4F 52 20 4C 00 84 2D AA 0A 88 |ESTS FOR L..-...|
00002580: 20 58 B2 30 00 98 2D B4 0A 8B 20 4C B3 AB 31 38 | X.0..-... L..18|
00002590: 30 20 89 20 32 37 37 30 00 AB 2D BE 0A 8B 20 4C |0 . 2770..-... L|
000025A0: B1 31 38 30 20 89 20 32 37 39 30 00 B6 2D C8 0A |.180 . 2790..-..|
000025B0: 89 20 32 38 30 30 00 C4 2D D2 0A 88 20 4C B2 4C |. 2800..-... L.L|
000025C0: AA 33 36 30 00 CF 2D DC 0A 89 20 32 38 32 30 00 |.360..-... 2820.|
000025D0: DD 2D E6 0A 88 20 4C B2 4C AB 33 36 30 00 EE 2D |.-... L.L.360..-|
000025E0: F0 0A 8B 20 4C B3 30 20 A7 20 32 38 32 30 00 F8 |... L.0 . 2820..|
000025F0: 2D FA 0A 88 20 58 B2 31 00 17 2E 04 0B 8F 20 43 |-... X.1...... C|
00002600: 4F 4E 56 45 52 54 20 4C 20 26 20 42 20 54 4F 20 |ONVERT L & B TO |
00002610: 52 41 44 49 41 4E 53 00 2C 2E 0E 0B 42 31 B2 42 |RADIANS.,...B1.B|
00002620: AC 33 2E 31 34 31 35 39 AD 31 38 30 00 41 2E 18 |.3.14159.180.A..|
00002630: 0B 4C 20 B2 4C AC 33 2E 31 34 31 35 39 AD 31 38 |.L .L.3.14159.18|
00002640: 30 00 62 2E 22 0B 8F 20 43 4F 4D 50 55 54 45 20 |0.b.".. COMPUTE |
00002650: 54 48 45 20 44 49 53 54 41 4E 43 45 20 41 4E 47 |THE DISTANCE ANG|
00002660: 4C 45 00 85 2E 2C 0B 50 B2 BE 28 4C 29 AC BE 28 |LE...,.P..(L)..(|
00002670: 41 31 29 AC BE 28 42 31 29 AA BF 28 41 31 29 AC |A1)..(B1)..(A1).|
00002680: BF 28 42 31 29 00 91 2E 36 0B 5A B2 31 AB 50 AC |.(B1)...6.Z.1.P.|
00002690: 50 00 B7 2E 40 0B 8B 20 5A B3 30 20 A7 20 5A B2 |P...@.. Z.0 . Z.|
000026A0: 5A AC AB 31 3A 50 31 B2 C1 28 5A AE 2E 35 AD 50 |Z..1:P1..(Z..5.P|
000026B0: 29 3A 89 32 39 30 30 00 C8 2E 4A 0B 50 31 B2 C1 |):.2900...J.P1..|
000026C0: 28 5A AE 2E 35 AD 50 29 00 DE 2E 54 0B 50 32 B2 |(Z..5.P)...T.P2.|
000026D0: 50 31 AC 31 38 30 AD 33 2E 31 34 31 35 39 00 F0 |P1.180.3.14159..|
000026E0: 2E 5E 0B 8B 20 50 32 B3 30 20 A7 20 32 39 33 30 |.^.. P2.0 . 2930|
000026F0: 00 FB 2E 68 0B 89 20 32 39 35 30 00 09 2F 72 0B |...h.. 2950../r.|
00002700: 50 32 B2 50 32 AA 31 38 30 00 2A 2F 7C 0B 8F 20 |P2.P2.180.*/|.. |
00002710: 2A 2A 2A 2A 2A 43 4F 4D 50 55 54 45 20 44 49 53 |*****COMPUTE DIS|
00002720: 54 41 4E 43 45 2A 2A 2A 2A 2A 00 45 2F 86 0B 44 |TANCE*****.E/..D|
00002730: 31 B2 B5 28 50 32 AC 36 30 AC 67 FF FF FF FF FF |1..(P2.60.g.....|
00002740: FF FF FF FF FF FF FF FF FF F6 FF FF FF FF FF FF |................|
00002750: FF FF FF FF FF FF FF FF FF FF FF FF FF FF 5B FF |..............[.|
00002760: FF F6 31 FF FF D0 DA FF EE FF FF FF FF FF FF FF |..1.............|
00002770: FF FF FF FF D2 FF D5 FF FF FF D4 FF FF FF 2D FF |..............-.|
00002780: FF F6 FF FF 7D FF FF FF FF FF 71 FF FF FF FB 71 |....}.....q....q|
00002790: FF EF FF FF FF FF FF FF F6 DB FF FF F6 FF FF FF |................|
000027A0: FF 67 FF 62 F6 FF FF FF A7 FF FF FA DB FD FF FF |.g.b............|
000027B0: 29 00 D3 2F C2 0B 8F 20 43 4F 4E 56 45 52 54 20 |)../... CONVERT |
000027C0: 42 45 41 52 49 4E 47 53 20 54 4F 20 44 45 47 52 |BEARINGS TO DEGR|
000027D0: 45 45 53 00 F1 2F CC 0B 52 32 B2 B5 28 28 52 31 |EES../..R2..((R1|
000027E0: AC 31 38 30 AD 33 2E 31 34 31 35 39 29 AA 2E 35 |.180.3.14159)..5|
000027F0: 29 00 17 30 D6 0B 8F 20 57 48 41 54 20 51 55 41 |)..0... WHAT QUA|
00002800: 44 52 41 4E 54 20 26 20 20 41 44 4A 55 53 54 20 |DRANT & ADJUST |
00002810: 44 45 47 52 45 45 53 00 31 30 E0 0B 8B 20 B6 28 |DEGREES.10... .(|
00002820: 52 29 B1 2E 39 39 39 39 39 38 20 A7 20 33 32 31 |R)..999998 . 321|
00002830: 30 00 4A 30 EA 0B 8B 20 B6 28 52 29 B3 2E 30 30 |0.J0... .(R)..00|
00002840: 31 37 34 20 A7 20 33 32 36 30 00 64 30 F4 0B 42 |174 . 3260.d0..B|
00002850: 32 B2 28 42 AA 2E 31 29 AC 33 2E 31 34 31 35 39 |2.(B..1).3.14159|
00002860: AD 31 38 30 00 88 30 FE 0B 52 33 B2 BE 28 4C 29 |.180..0..R3..(L)|
00002870: AC BE 28 41 31 29 AC BE 28 42 32 29 AA BF 28 42 |..(A1)..(B2)..(B|
00002880: 32 29 AC BF 28 41 31 29 00 A0 30 08 0C 52 34 B2 |2)..(A1)..0..R4.|
00002890: C1 28 BA 28 31 AB 52 33 AC 52 33 29 AD 52 33 29 |.(.(1.R3.R3).R3)|
000028A0: 00 B8 30 12 0C 52 36 B2 BE 28 42 32 29 AC BF 28 |..0..R6..(B2)..(|
000028B0: 4C 29 AD BF 28 52 34 29 00 C9 30 1C 0C 8B 20 58 |L)..(R4)..0... X|
000028C0: B2 31 20 A7 20 33 31 36 30 00 E1 30 26 0C 8B 20 |.1 . 3160..0&.. |
000028D0: B6 28 52 36 29 B1 B6 28 52 29 20 A7 20 33 31 34 |.(R6)..(R) . 314|
000028E0: 30 00 F2 30 30 0C 52 32 B2 33 36 30 AB B6 28 52 |0..00.R2.360..(R|
000028F0: 32 29 00 FD 30 3A 0C 89 20 33 33 35 30 00 0E 31 |2)..0:.. 3350..1|
00002900: 44 0C 52 32 B2 31 38 30 AA B6 28 52 32 29 00 19 |D.R2.180..(R2)..|
00002910: 31 4E 0C 89 20 33 33 35 30 00 31 31 58 0C 8B 20 |1N.. 3350.11X.. |
00002920: B6 28 52 36 29 B3 B6 28 52 29 20 A7 20 33 31 39 |.(R6)..(R) . 319|
00002930: 30 00 42 31 62 0C 52 32 B2 31 38 30 AB B6 28 52 |0.B1b.R2.180..(R|
00002940: 32 29 00 4D 31 6C 0C 89 20 33 33 35 30 00 5A 31 |2).M1l.. 3350.Z1|
00002950: 76 0C 52 32 B2 B6 28 52 32 29 00 65 31 80 0C 89 |v.R2..(R2).e1...|
00002960: 20 33 33 35 30 00 77 31 8A 0C 8B 20 58 20 B2 31 | 3350.w1... X .1|
00002970: 20 A7 20 33 32 34 30 00 82 31 94 0C 52 32 B2 32 | . 3240..1..R2.2|
00002980: 37 30 00 8D 31 9E 0C 89 20 33 33 35 30 00 97 31 |70..1... 3350..1|
00002990: A8 0C 52 32 B2 39 30 00 A2 31 B2 0C 89 20 33 33 |..R2.90..1... 33|
000029A0: 35 30 00 B8 31 BC 0C 8B 20 B6 28 4C 29 B1 31 37 |50..1... .(L).17|
000029B0: 38 20 A7 20 33 33 32 30 00 CB FF FF FF 37 FF FF |8 . 3320.....7..|
000029C0: FF FF FF F5 FF FF FF FF FF FF FF FF FF FF FF FF |................|
000029D0: FF FF FF BB FF FF FF 33 FF FF FF FF FF FF FF FF |.......3........|
000029E0: FF FF FF FF FF FF FF FF FF FF FF FF FF 33 FF FF |.............3..|
000029F0: FF FF FF FF FF FF 02 FF 37 FF FF 66 FF FF F5 FF |........7..f....|
00002A00: FF FF FF FF FF F1 FF FF FA 33 FF FF FF FF FF FF |.........3......|
00002A10: FF FF FF FB FF FF FF FF FF FB 33 FF 64 00 51 FF |..........3.d.Q.|
00002A20: DD DA 8F DD DE 8D 88 DA 40 88 17 FF 01 8B 8B 8B |........@.......|
00002A30: 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B |................|
00002A40: 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B 8B |................|
00002A50: 8B 8B 8A 08 80 90 40 18 1F FF 88 B1 40 C5 8A FF |......@.....@...|
00002A60: 88 FF 40 C9 17 FF 01 8E 80 80 80 80 80 80 80 80 |..@.............|
00002A70: 80 80 80 80 88 60 80 80 80 80 80 80 80 80 80 88 |.....`..........|
00002A80: 60 80 80 80 80 80 80 80 80 80 80 81 0E 08 81 FF |`...............|
00002A90: 40 59 1F FF 88 B8 88 FA 48 FF 17 FF 01 05 05 05 |@Y......H.......|
00002AA0: 05 05 05 05 05 05 05 05 05 0C A3 A3 A3 A3 A3 A3 |................|
00002AB0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00002AC0: A3 A3 A3 22 00 FA 32 52 0D 99 22 91 91 91 91 91 |..."..2R..".....|
00002AD0: 91 91 91 1D 1D 1D 4C 4F 43 41 54 49 4F 4E 20 20 |......LOCATION |
00002AE0: 20 C2 20 4C 41 54 49 54 55 44 45 20 C2 20 4C 4F | . LATITUDE . LO|
00002AF0: 4E 47 49 54 55 44 45 20 A7 22 00 30 33 5C 0D 99 |NGITUDE .".03\..|
00002B00: 22 A5 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D C2 |".=============.|
00002B10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D C2 3D 3D 3D 3D 3D |==========.=====|
00002B20: 3D 3D 3D 3D 3D 3D A7 22 3A 99 22 1D 1D 1D 1D 22 |======.":."...."|
00002B30: 00 54 33 66 0D 8B 41 B3 30 20 A7 20 53 24 B2 22 |.T3f..A.0 . S$."|
00002B40: 53 22 3A 41 B2 41 AC AB 31 3A 20 20 20 20 89 20 |S":A.A..1: . |
00002B50: 33 34 35 30 00 5F 33 70 0D 53 24 B2 22 4E 22 00 |3450._3p.S$."N".|
00002B60: 83 33 7A 0D 8B 20 4C 31 B3 30 20 A7 20 57 24 B2 |.3z.. L1.0 . W$.|
00002B70: 22 57 22 3A 4C 31 B2 4C 31 AC AB 31 3A 89 FF 8B |"W":L1.L1..1:...|
00002B80: 34 37 30 00 8E 33 84 0D 57 24 B2 22 45 22 00 B1 |470..3..W$."E"..|
00002B90: 33 8E 0D 8B 20 42 B3 30 20 A7 20 4E 24 B2 22 53 |3... B.0 . N$."S|
00002BA0: 22 3A 42 B2 42 AC AB 31 3A 20 20 89 20 33 34 39 |":B.B..1: . 349|
00002BB0: 30 00 BC 33 98 0D 4E 24 B2 22 4E 22 00 E2 33 A2 |0..3..N$."N"..3.|
00002BC0: 0D 8B 20 4C 32 B3 30 20 A7 20 45 24 B2 22 57 22 |.. L2.0 . E$."W"|
00002BD0: 3A 4C 32 B2 4C 32 AC AB 31 3A 20 20 89 20 33 35 |:L2.L2..1: . 35|
00002BE0: 31 30 00 ED 33 AC 0D 45 24 B2 22 45 22 00 16 34 |10..3..E$."E"..4|
00002BF0: B6 0D 99 22 1D 22 3B 43 24 3B A3 31 35 29 3B 41 |...".";C$;.15);A|
00002C00: 3B 22 20 22 3B 53 24 3B A3 32 38 29 3B 4C 31 3B |;" ";S$;.28);L1;|
00002C10: 22 20 22 3B 57 24 00 23 34 C0 0D 99 22 1D 1D 1D |" ";W$.#4..."...|
00002C20: 1D 1D 22 00 4C 34 CA 0D 99 22 1D 22 3B 44 24 3B |..".L4...".";D$;|
00002C30: A3 31 35 29 3B 42 3B 22 20 22 3B 4E 24 3B A3 32 |.15);B;" ";N$;.2|
00002C40: 38 29 3B 4C 32 3B 22 20 22 3B 45 24 00 7C 34 D4 |8);L2;" ";E$.|4.|
00002C50: 0D 99 22 11 11 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |..".............|
00002C60: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002C70: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 AA 34 DE |..........."..4.|
00002C80: 0D 99 22 A5 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00002C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002CA0: 20 20 20 20 20 20 20 20 A7 22 00 D8 34 E8 0D 99 | ."..4...|
00002CB0: 22 A5 20 20 20 20 20 20 20 20 44 49 53 54 41 4E |". DISTAN|
00002CC0: 43 45 20 41 4E 44 20 42 45 41 52 49 4E 47 20 20 |CE AND BEARING |
00002CD0: 20 20 20 20 20 20 A7 22 00 06 35 F2 0D 99 22 A5 | ."..5...".|
00002CE0: 20 20 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D | =========|
00002CF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 20 |============= |
00002D00: 20 20 20 20 A7 22 00 34 35 FC 0D 99 22 A5 20 20 | .".45...". |
00002D10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D30: 20 20 A7 22 00 62 35 06 0E 99 22 A5 20 20 44 49 | .".b5...". DI|
00002D40: 53 54 41 4E 43 45 20 20 C2 20 20 44 49 53 54 41 |STANCE . DISTA|
00002D50: 4E 43 45 20 20 C2 20 20 42 45 41 52 49 4E 47 20 |NCE . BEARING |
00002D60: A7 22 00 90 35 10 0E 99 22 A5 20 20 20 28 4D 49 |."..5...". (MI|
00002D70: 4C 45 53 29 20 20 C2 28 4B 49 4C 4F 4D 45 54 52 |LES) .(KILOMETR|
00002D80: 45 53 29 C2 20 28 44 45 47 52 45 45 53 29 A7 22 |ES). (DEGREES)."|
00002D90: 00 BE 35 1A 0E B3 FF FF FF FF FF FF FF FF FF FF |..5.............|
00002DA0: FF FF FF FF C2 A3 A3 A3 A3 A3 A3 A2 03 A3 A3 A3 |................|
00002DB0: A3 C2 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A7 22 00 CA |............."..|
00002DC0: 35 24 0E 81 20 4A B2 31 A4 33 00 F8 35 2E 0E 99 |5$.. J.1.3..5...|
00002DD0: 22 A5 20 20 20 20 20 20 20 20 20 20 20 20 C2 20 |". . |
00002DE0: 20 20 20 20 20 20 20 20 20 20 20 C2 20 20 20 20 | . |
00002DF0: 20 20 20 20 20 20 A7 22 00 26 36 38 0E 99 22 A5 | .".&68..".|
00002E00: 20 20 20 20 20 20 20 20 20 20 20 20 C2 20 20 20 | . |
00002E10: 20 20 20 20 20 20 20 20 20 C2 20 20 20 20 20 20 | . |
00002E20: 20 20 20 20 A7 22 00 54 36 42 0E 99 22 A3 A3 A3 | .".T6B.."...|
00002E30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00002E40: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00002E50: A3 A3 A3 22 00 65 36 4C 0E 99 22 91 91 91 1D 1D |...".e6L..".....|
00002E60: 1D 22 3B 44 31 00 82 36 56 0E 99 22 91 1D 1D 1D |.";D1..6V.."....|
00002E70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..............";|
00002E80: 44 32 00 AD 36 60 0E 99 22 91 1D 1D 1D 1D 1D 1D |D2..6`..".......|
00002E90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002EA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 52 32 00 C2 36 |.........";R2..6|
00002EB0: 6A 0E 99 88 FF FE FE FE 98 8D FF 98 FF FE FE FE |j...............|
00002EC0: FE 98 FF FF 9B 17 FF FF FF FF 99 97 9D FF FF FF |................|
00002ED0: 70 FF FF FF FF FF 79 FF FF 7F FF 78 FF FF FF FF |p.....y....x....|
00002EE0: 79 FF 5C 8B FF FF FF 99 9F 8F FF FF FF |y.\.......... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:...... ** TO OUR BEST KNOWLEDGE TH
IS...... PROGRAM IS FREE FOR./....
DUPLICATION IN CANADA..L.... IF YOU
HAVE CONTARY.I.... INFORMATION, PLEAS
E...... CONTACT COMMODORE CANADA AND.
..... EVERY EFFORT WILL BE MADE TO.V.
... WITHDRAW COPIES OF THIS......
PROGRAM......:...#.. +++ INPUT SECTION +
++.".(..UO,0:UR$."":UI$."".2.*..UL.0.UL.
80.E.-.." ..";:.UC,0.Y.2..UI$:.UI$."".5
0...7..UI$.G(13).C(UR$)..1..UC,1:." .";:
.85...<..UI$.G(20).105...>.. C(UR$)..UL.
50.O.A..120:. CHECK FOR VALID CHARACTER.
..F.UR$.UR$.UI$...K..UI$;...P..50...U..
+++ CHECK FOR HELP REQUEST +++.>.Z..UR$.
UX$.195:. EXIT TO HELP ROUTINE.M._..UF.1
..240.Z.D.UF.0:.:..S.F.. ++ CHECK DELETE
++...I..C(UR$).1.50...N.UR$.H(UR$,C(UR$
).1)...S..". ..";:.50.U.X.. ++ CHECK FO
R VALID CHARACTERS ++...}..C(US$).0.150.
...US$.US$.UX$......US.1.C(US$)......UI
$.J(US$,US,1)...%.....2...UI$."":..M....
** STANDARD INPUT **.^....F(UI$).46...O
....UI$.G(32)..... ..F(UI$).48.F(UI$).57
.170............F(UI$).65.F(UI$).90.180.
...........F(UI$)..193.F(UI$)..218.UI$."
":.......B(UT).UU%.UI$.G(F(UI$).128):...
.........UI$."":..6.C.UF.1:. +++ HELP RO
UTINE EXIT +++.?.E..250.H.H..245.G.M..UQ
.UB.(U2%.256.U1%.U3%.2)...R.UQ%(UQ.UB).B
(UQ):.:."."...W.UZ.1:UV%.B(UT)...X..300.
D.Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.UK...Z
..B(50003).0..53281,1:.".";:.53281,6:.53
280,14:.220......".";.4...UT$.UL$:.UT,UV
%:.UQ.UB.(U2%.256.U1%.U3%.3).I....UQ,UQ%
(UQ.UB):..U....U1,U1%.A....U2,U2%.M....U
4,U4%.{....U3,U3%.1......35.....UD%.((U2
%.256.U1%.U3%).UB).40:.H(UD$,UD%.1):....
...H(UD$,24);" . HE
LP COMING . ":......U1%.B(U1):U2%.B(U2)
:U3%.B(U3):U4%.B(U4).D...UJ$.US$:UK$.UG$
:UL$.UT$:UJ.UP:UK.UL.J.....[.,.. ** MENU
**.A.-.:......".":.UT,UU%:.B(50003).0..
53281,9:.53280,8.../.:...1..".
MENU"...6.." ---------------------
-----------------"...;..".. 1. B
EGIN CO-ORD. DISTANCES".9.@..".. 2
. STUDENT INSTRUCTIONS".C.E.."..
3. TEACHER INSTRUCTIONS"...J.."..
4. MODIFICATION OF PROGRAM"...O..".
. 5. QUIT.."...T.." ------------
--------------------------"...Y.."..
PRESS A NUMBER KEY (1-5) ";./.^.UL.1:
US$."12345":.35:. INPUT ROUTINE.P.C..E(U
R$).1000,400,500,600,396.Y.H..300......
** RE-ENABLE STOP KEY AND END **......B(
50003)..1.B(50003)..160.B(50003)..0.399.
Y....UU.71:.B(50003).0..53281,6:.53280,1
4......"..":.......875:....... ** STUDEN
T INSTRUCTIONS **.@....".":.UT,UL%:.B(50
003).0..53281,0:.53280,0.B...UP.0:UG$."S
TUDENT INST.":.850......".. THIS PROGR
AM IS DESIGNED TO"......"... AID YOU IN
DETERMINING THE DIS-"......"... TANCE BE
TWEEN ANY TWO LOCATIONS"......"... IN TH
E WORLD. ALL YOU HAVE TO DO".:...."...
IS TELL ME THE NAME OF THE CITIES".G....
"... AND THEIR LATITUDE AND LONGITUDE ".
.. .."... POINTS. I'LL DO THE REST."...
... 835:. HOLD FOR SPACE BAR...... 850..
....".......THE NAME OF THE CITY SHOULD
BE"......"....NO LONGER THAN 13 CHARACTE
RS. ".:...."....LATITUDES IN THE SOUTHER
N HEMI- ".F...."....SPHERE ARE ENTERED
AS NEGATIVES,"......"....AS ARE LONGITUD
ES IN THE WESTERN"......"....HEMISPHERE.
DECIMALS ARE ACCEPT-"......"....ED AND
BEARING IS GIVEN IN DEGREES"......"....
EAST OF NORTH. ".5.... 835
:. HOLD FOR SPACE BAR.I....UZ.1..UP%:.21
7.O.....P.... ** TEACHER INSTRUCTIONS **
. ....".":.UT,UL%:.B(50003).0..53281,2:.
53280,10.B...UP.0:UG$."TEACHER INST.":.8
50......".. TO THE BEST OF OUR KNOW
LEDGE,."......" THIS PROGRAM IS IN THE
PUBLIC.".E...." DOMAIN. IF THIS IS N
OT THE CASE.".B...." PLEASE CONTACT:..
."......" COMMODORE BUSINESS MACHIN
ES."......" 3370 PHARMACY AVE..
S...." AGINCOURT, ONTARIO".....
." CANADA M1W 2K4"......"
(416) 499-4292".&.... 835:. 850:.T
...." ..PROGRAM NAME: CO-ORD. DISTAN
CES..V...." WRITTEN BY : UNKNOWN...
...." UPGRADED BY : JOHN RIDLER..G..
.." .THIS PROGRAM WILL RUN ON ANY...
....." PET 64 COMPUTER......."
COMMODORE 64 COMPUTER......835.9.
...------------------------------.X...."
UPGRADED FOR C64 BY:.S...." LY
NDA BONANNO......-----------------------
-------...N..UZ.1..UP%:.217...W...W.X..
** PROGRAM MODIFICATION INST **...Y.."."
:.UT,UL%...].UP.0:UG$."PROGRAM MOD.":.85
0.4.B..".. THIS PROGRAM IS A DEMONSTRA
TION.Y.C..". WHICH DOES NOT LEND ITSEL
F.|.D..". TO SIMPLE MODIFICATION."....
..835......UZ.1..UP%:.217.......D.... **
TO USE 8032 LOAD CBM4032 **...F..".....
BEFORE RUNNING THIS PROGRAM ON AN 8032
...0.P.." LOAD THE 'CBM 4032' PROGR
AM.............".;.Z..UU.71.A.....F....
** TO USE 8032 LOAD CBM4032 **......"...
.BEFORE RUNNING THIS PROGRAM ON AN 8032
..LOAD CBM 4032 PROGRAM"......1093:....
.. ** T I T L E P A G E **...".."....
";:.UT,UU%:.B(50003).0..53280,14:.53281,
6.'.$..I.1.38:."...";:..?.&..I.1.22:."..
...";:..W.(..I.1.37:.".....";:..O.*..I.1
.22:.".....";:....,.."..................
......... ......."................... .
. ...W.0.."................... . ....
..2..".................... ....4.."....
..........C O M M O D O R E...@.6.."....
...........EDUCATIONAL..._.8..".........
.......SOFTWARE.Z.:.. ** COMMODORE LOGO
**...;..H(UD$,24);"..........PRESS SPACE
BAR OR WAIT.":I.0.T.<..A$:.A$.." ".I.I.
1:.I.250.828...>.T1$."":T2$."":T3$."":T4
$."":I.0...@..300...C.. ** SPACE BAR PRE
SS **.X.H..UO,0:.H(UD$,24);".......PRESS
SPACE BAR TO CONTINUE.".O.L..UI$:.UI$..
" ".844.U.N.....R.. ** PAGE DESIGN ROUTI
NE **...T.UP.UP.1.K.W.."."H(UT$.UP$,21);
I(UP$.UG$.D(UP),18)...\.." -------------
-------------------------"...`..UH..0.87
0.=.A..H(UD$,24);H(UP$,7);"HELP - PRESS
H <RETURN>".N.F.UH.0:."..":..M.K.. **
PLEASE WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U.
..F.... ** SET UP VARIABLES **.....UX$."
H":.UQ%(1000):UB.32768:U1.196:U2.197:U3.
198:U4.216:UC.167:UU.1024.O...UT.59468:U
U%.12:UL%.14:UP%.1146:UM.32768:UO.158:.
50003,0......B(50003).0.UB.1024:U1.209:U
2.210:U3.211:U4.214:UC.204:UU.2048.Q....
B(50003).0.UT.53272:UU%.21:UL%.23:UP%.21
39:UM.1024:UO.198.....UD$.".............
............".' ..UP$."
".D ..UT$." CO-ORD
. DISTANCES".J ....D ... ** SET VARIABLE
S **.M ...900.S ..:.Y ..:.. ... ** CHECK
FOR 8032 **.. ...".":." ":. SHIFTED SPA
CE.I ...B(UB.40)..96..700.. ... ** MEMOR
Y CHECK **.. ... .(0).2000.937.$!..."...
.THIS MACHINE DOES NOT HAVE ENOUGH.".H!.
.."MEMORY TO RUN THIS PROGRAM !".S!...UU
.71.Y!....S!..."..":.B(50003).0.962..!..
. ** BASIC 2.0 OR 4.0 OR C-64 SETUP
**..!...1075,133:.1076,144:.1077,234:.10
79,4:.1080,133:.1081,145.."...1091,155:.
1098,133:.1099,144:.1100,234:.1103,133.8
"...1104,145:.1105,234:.1082,234.O"...B(
50003)..160.955.~"...1093,88:.1094,228:.
1097,85:.1102,228:.965.."...B(50003)..1.
990.B"...1093,49:.1094,230:.1097,46:.110
2,230:.965.."B..2099,141:.2100,20:.2101,
3:.2103,8:.2104,141:.2105,21.8#C..2106,3
:.2115,145:.2117,52:.2118,234:.2121,49:.
2122,141.R#D..2123,20:.2124,3:.2126,234:
.2127,141:.2128,21:.2129,3..#E..UU.48:.
DISABLE STOP KEY..#J..800:. TITLE..#T..3
00:. MENU..#...".THE PGM WILL NOT WORK O
N THIS MACHINE!":...$...UZ.1..UP%:.UP%:U
Z.0:. ** PROGRAM STARTS HERE **.C$..."..
";:.:.B(50003).0..53281,6:.53280,14.O$..
.UT,UL%.N$... CO-ORDINATE DISTANCE..
$... WRITTEN BY JAMES NETHERCOTT..$$..
JULY 1981, ST. THOMAS.K$... EXP
ERIENCE '81..$8.. FORMULA FROM 73' MAG
AZINE..%B.. PUBLISHED DEC. 1978./%L.
. *****************************.S%V.. **
***************************.Y%J...Z%T..
COPYRIGHT MARCH 5, 1982. %~.. ELGIN C
OUNTY BOARD OF EDUCATION..%... ST. T
HOMAS, ONTARIO.D%.....%... MAY BE COPI
ED FREE OF CHARGE..&... FOR EDUCATIONAL
USE ONLY..-&... MAY NOT BE COPIED FOR
SALE..N&..UP.0:UG$."CO-ORDINATES PG.":.
850:.".......... LOCATION # 1"..&..."...
....=============="..&:..".. CITY ?
.............";.V&X.UL.13:US$
."":.35:C$.UR$..&B.C$.H(C$,13)..&V.. C$.
" " . 1880..'... C$."." . 1880.@'... F(H
(C$,1)).65 . F(H(C$,1)).90.."....":.1850
.X'...".. LATITUDE ? "..'P..".........
....... ....";:UL.4:US$."+-.012345678
9":.35..'U.A$.UR$..'Z..H(A$,1).."-".A$.H
(A$,4)..'...H(A$,1)."-". A$.H(A$,5)..'..
. A$."." . 2000..'..A.E(A$)..(... F(H(A$
,1)).45 . N.45:. 2080.&(..N.48.Q( .. F(H
(A$,1)). N . F(H(A$,1)).57 . 2000.K(H.."
.. LONGITUDE ? "..(R.."
"..(\.....................N...........
...................Y..US$."+-.0123456789
":.35:L1$.UR$..(P..H(L1$,1).."-". L1$.H(
L1$,5)..)Z..H(L1$,1)."-". L1$.H(LG......
...7......Q..........."...............7.
......................3......K........7.
..7.................O............G......
........'.................;.....3.FF
LOCATION # 2"..)T.." =====
========= "."*...".. CITY ?
.............";.>*..UL.13:US$."":.35:
D$.UR$.O*$.D$. H(D$,13).C*8.. D$."." . 2
330..*B.. F(H(D$,1)).65 . F(H(D$,1)).;..
3.''''..3.........3.FG.....R............
..3....... ".Y*~.."
"..+..."..................";:UL.4:US$."+
-.0123456789":.35:B$.UR$.5+...H(B$,1).."
-".B$.H(B$,4).R+...H(B$,1)."-". B$.H(B$,
5).F+... B$."." . 2440.R+..B.E(B$)..+D..
F(H(B$,1)).45 . N.45:. 2520..+N.N.48.I+
X.. F(H(B$,1)) . N . F(H(B$,1)).57 . 244
0..+...".. LONGITUDH ? "..+..."
"..,..." ".Q,...".
..................";:UL.4:US$."+-.012345
6789":.35:L2$.UR$.R,(..H(L2$,1).."-". L2
$.H(L2$,5)..,2..H(L2$,1)."-". L2$.H(L2$,
6)..,<..:...,F.. L2$."." . 2590..,P.L2.E
(L2$)..,Z.. F(H(L2$,1)).45 . N.45:. 2670
..,D.N.48..-N.. F(H(L2$,1)).N . F(H(L2$,
1)).57 . 2590.*-X.A1.A.3.14159.180.8-...
".":.875.X-... PERFORMS ALL CALCULATIONS
.F-... L.L2.L1.Z- .. X TESTS FOR L..-...
X.0..-... L..180 . 2770..-... L.180 . 2
790..-H.. 2800.D-R.. L.L.360.O-... 2820.
.-... L.L.360..-... L.0 . 2820..-... X.1
...... CONVERT L & B TO RADIANS.,...B1.B
.3.14159.180.A...L .L.3.14159.180.B."..
COMPUTE THE DISTANCE ANGLE...,.P..(L)..(
A1)..(B1)..(A1)..(B1)...6.Z.1.P.P...@..
Z.0 . Z.Z..1:P1.A(Z..5.P):.2900.H.J.P1.A
(Z..5.P)...T.P2.P1.180.3.14159...^.. P2.
0 . 2930...H.. 2950../R.P2.P2.180.*/|..
*****COMPUTE DISTANCE*****.E/..D1..(P2.6
0.G...................................[.
..1..PZ.............R.U...T...-.....}...
..Q....Q.................G.B............
).S/B.. CONVERT BEARINGS TO DEGREES../L.
R2..((R1.180.3.14159)..5)..0V.. WHAT QUA
DRANT & ADJUST DEGREES.10... .(R)..9999
98 . 3210.J0... .(R)..00174 . 3260.D0..B
2.(B..1).3.14159.180..0..R3..(L)..(A1)..
(B2)..(B2)..(A1). 0..R4.A(.(1.R3.R3).R3)
..0..R6..(B2)..(L)..(R4).I0... X.1 . 316
0..0&.. .(R6)..(R) . 3140..00.R2.360..(R
2)..0:.. 3350..1D.R2.180..(R2)..1N.. 335
0.11X.. .(R6)..(R) . 3190.B1B.R2.180..(R
2).M1L.. 3350.Z1V.R2..(R2).E1... 3350.W1
... X .1 . 3240..1..R2.270..1... 3350..1
..R2.90..1... 3350..1... .(L).178 . 3320
.K...7.........................3........
.............3..........7..F............
.3................3.D.Q..Z.....Z@.......
......................................@.
....@E....@I.................`..........
`...............@Y......H...............
..........................."..2R..".....
......LOCATION B LATITUDE B LONGITUDE
.".03\..".=============B==========B=====
======.":."....".T3F..A.0 . S$."S":A.A..
1: . 3450._3P.S$."N"..3Z.. L1.0 . W$.
"W":L1.L1..1:...470..3..W$."E"..3... B.0
. N$."S":B.B..1: . 3490..3..N$."N"..3.
.. L2.0 . E$."W":L2.L2..1: . 3510..3..E
$."E"..4...".";C$;.15);A;" ";S$;.28);L1;
" ";W$.#4...".....".L4J..".";D$;.15);B;"
";N$;.28);L2;" ";E$.|4T..".............
..........................."..4...".
.".X4...
". DISTANCE AND BEARING ."
..5...". ======================
.".45...".
.".B5...". DISTANCE B DISTA
NCE B BEARING ."..5...". (MILES) B(
KILOMETRES)B (DEGREES)."..5.............
....B............B...........".J5$.. J.1
.3..5...". B B
.".&68..". B
B .".T6B.."...................
...................".E6L.."......";D1..6
V.."..................";D2..6`..".......
.........................";R2.B6J.......
........................P.....Y...X....
Y.\..........
> CLICK IMAGE PREVIEW FOR FULL MODAL