NAV
FILE INFORMATION
FILENAME(S): NAV
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-10-20 14:30:37
APPEARS ON: 1 disk(s)
FILE HASH
cc3681ec9bd2819e11c3ce15e557d1bc058a603ab170b5f79a3f845389a02d01
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0001UT | NAV | PRG | Treasure Chest - Klaus Der Suhler | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4E 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..N.... ********|
00000010: 20 4E 41 56 20 50 4C 4F 54 54 45 52 20 2A 2A 2A | NAV PLOTTER ***|
00000020: 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 |****** |
00000030: 2A 20 42 59 20 52 4F 4E 20 4D 4F 52 54 45 4C 4C |* BY RON MORTELL|
00000040: 49 54 4F 20 31 31 2F 31 31 2F 38 33 20 2A 00 97 |ITO 11/11/83 *..|
00000050: 08 06 00 99 22 93 22 A6 38 34 29 22 54 48 49 53 |....".".84)"THIS|
00000060: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 41 | PROGRAM WILL CA|
00000070: 4C 43 55 4C 41 54 45 20 54 48 45 22 3A 86 49 44 |LCULATE THE":.ID|
00000080: 24 28 33 35 30 29 2C 41 50 24 28 33 35 30 29 2C |$(350),AP$(350),|
00000090: 54 43 28 33 35 30 29 00 DE 08 07 00 99 22 20 20 |TC(350)......" |
000000A0: 20 44 49 53 54 41 4E 43 45 20 20 41 4E 44 20 54 | DISTANCE AND T|
000000B0: 52 55 45 20 43 4F 55 52 53 45 20 42 45 54 57 45 |RUE COURSE BETWE|
000000C0: 45 4E 22 3A 86 4C 54 24 28 33 35 30 29 2C 4C 47 |EN":.LT$(350),LG|
000000D0: 24 28 33 35 30 29 2C 4E 24 28 33 35 30 29 00 29 |$(350),N$(350).)|
000000E0: 09 08 00 99 22 20 20 20 20 20 41 4E 59 20 54 57 |...." ANY TW|
000000F0: 4F 20 41 49 52 50 4F 52 54 53 20 49 4E 20 54 48 |O AIRPORTS IN TH|
00000100: 45 20 57 4F 52 4C 44 2E 22 3A 86 4C 54 28 33 35 |E WORLD.":.LT(35|
00000110: 30 29 2C 4C 47 28 33 35 30 29 2C 41 24 28 33 35 |0),LG(350),A$(35|
00000120: 30 29 2C 44 28 33 35 30 29 00 50 09 09 00 99 A6 |0),D(350).P.....|
00000130: 38 33 29 22 49 4E 20 54 48 45 20 43 41 53 45 53 |83)"IN THE CASES|
00000140: 20 4F 46 20 53 4F 55 54 48 20 4C 41 54 49 22 3B | OF SOUTH LATI";|
00000150: 00 96 09 0A 00 99 22 54 55 44 45 53 20 4F 52 22 |......"TUDES OR"|
00000160: A6 37 29 22 45 41 53 54 20 4C 4F 4E 47 49 54 55 |.7)"EAST LONGITU|
00000170: 44 45 53 2C 20 50 52 45 46 49 58 20 45 4E 54 52 |DES, PREFIX ENTR|
00000180: 49 45 53 22 3B A6 31 33 29 22 57 49 54 48 20 41 |IES";.13)"WITH A|
00000190: 20 28 2D 29 22 3B 00 C9 09 0B 00 99 22 20 4D 49 | (-)";......" MI|
000001A0: 4E 55 53 20 53 49 47 4E 2E 22 3A 9F 31 35 2C 38 |NUS SIGN.":.15,8|
000001B0: 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 41 49 52 50 |,15:.2,8,2,"AIRP|
000001C0: 4F 52 54 53 2C 53 2C 52 22 00 FD 09 0C 00 99 A6 |ORTS,S,R".......|
000001D0: 38 30 29 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |80)"............|
000001E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 30 0A |............".0.|
00000200: 0D 00 99 22 91 DD 05 57 41 52 4E 49 4E 47 3A 20 |..."...WARNING: |
00000210: 4E 4F 54 20 49 4E 54 45 4E 44 45 44 20 46 4F 52 |NOT INTENDED FOR|
00000220: 20 4E 41 56 49 47 41 54 49 4F 4E 20 21 9A C2 22 | NAVIGATION !.."|
00000230: 00 61 0A 0E 00 99 22 91 CA C3 C3 C3 C3 C3 C3 C3 |.a....".........|
00000240: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000250: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB |................|
00000260: 22 00 94 0A 13 00 99 A6 31 32 31 29 22 45 4E 54 |".......121)"ENT|
00000270: 45 52 20 27 4C 49 53 54 27 20 54 4F 20 53 45 45 |ER 'LIST' TO SEE|
00000280: 20 4C 49 53 54 20 4F 46 20 49 2E 44 2E 20 43 4F | LIST OF I.D. CO|
00000290: 44 45 53 22 00 C5 0A 14 00 81 50 B2 31 A4 33 35 |DES"......P.1.35|
000002A0: 30 3A 84 32 2C 49 44 24 28 50 29 3A 8B 49 44 24 |0:.2,ID$(P):.ID$|
000002B0: 28 50 29 B2 22 45 4E 44 20 4F 46 20 46 49 4C 45 |(P)."END OF FILE|
000002C0: 22 A7 20 32 38 00 E4 0A 17 00 84 32 2C 41 50 24 |". 28......2,AP$|
000002D0: 28 50 29 2C 4C 54 24 28 50 29 2C 4C 47 24 28 50 |(P),LT$(P),LG$(P|
000002E0: 29 3A 82 50 00 02 0B 1C 00 A0 32 3A A0 31 35 3A |):.P......2:.15:|
000002F0: 50 B2 50 AB 31 3A 51 B2 50 3A 41 B2 30 3A 41 43 |P.P.1:Q.P:A.0:AC|
00000300: B2 30 00 19 0B 2D 00 8D 34 30 30 3A 41 B2 41 AA |.0...-..400:A.A.|
00000310: 31 3A 99 A6 31 32 30 29 3B 00 59 0B 2E 00 99 22 |1:..120);.Y...."|
00000320: 20 45 4E 54 45 52 20 49 2E 44 2E 20 43 4F 44 45 | ENTER I.D. CODE|
00000330: 3A 20 41 49 52 50 4F 52 54 20 23 22 3B 41 22 20 |: AIRPORT #";A" |
00000340: 20 20 20 20 20 20 22 3B 3A 99 22 9D 9D 9D 9D 9D | ";:.".....|
00000350: 22 3B 3A 85 41 24 28 41 29 00 77 0B 2F 00 8B 41 |";:.A$(A).w./..A|
00000360: 24 28 41 29 B2 22 4C 49 53 54 22 A7 41 B2 41 AB |$(A)."LIST".A.A.|
00000370: 31 3A 89 31 32 30 30 00 A2 0B 32 00 41 43 B2 41 |1:.1200...2.AC.A|
00000380: 43 AA 31 3A 81 58 B2 31 A4 33 35 30 3A 8B 41 24 |C.1:.X.1.350:.A$|
00000390: 28 41 29 B3 B1 49 44 24 28 58 29 A7 82 58 3A 89 |(A)..ID$(X)..X:.|
000003A0: 36 30 00 DE 0B 37 00 4E 24 28 41 29 B2 41 50 24 |60...7.N$(A).AP$|
000003B0: 28 58 29 3A 4C 54 28 41 29 B2 C5 28 4C 54 24 28 |(X):LT(A)..(LT$(|
000003C0: 58 29 29 3A 4C 47 28 41 29 B2 C5 28 4C 47 24 28 |X)):LG(A)..(LG$(|
000003D0: 58 29 29 3A 8B 41 43 B1 31 A7 20 31 39 30 00 F0 |X)):.AC.1. 190..|
000003E0: 0B 39 00 99 22 91 91 91 91 91 22 3A 89 20 34 35 |.9..".....":. 45|
000003F0: 00 2C 0C 3C 00 99 22 93 22 A6 38 30 29 3B 3A 99 |.,.<..".".80);:.|
00000400: 22 20 45 4E 54 45 52 20 41 49 52 50 4F 52 54 27 |" ENTER AIRPORT'|
00000410: 53 20 50 52 4F 50 45 52 20 4E 41 4D 45 3A 22 3A |S PROPER NAME:":|
00000420: 99 3A 85 22 20 22 3B 4E 24 28 41 29 00 39 0C 46 |.:." ";N$(A).9.F|
00000430: 00 81 43 B2 31 20 A4 20 32 00 75 0C 50 00 99 22 |..C.1 . 2.u.P.."|
00000440: 93 22 A6 31 36 30 29 22 20 45 4E 54 45 52 20 43 |.".160)" ENTER C|
00000450: 4F 4F 52 44 49 4E 41 54 45 53 20 4F 46 20 22 3B |OORDINATES OF ";|
00000460: C8 28 4E 24 28 41 29 2C 39 29 3B 22 20 41 49 52 |.(N$(A),9);" AIR|
00000470: 50 4F 52 54 22 00 A4 0C 51 00 99 22 20 A3 A3 A3 |PORT"...Q.." ...|
00000480: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000490: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000004A0: A3 A3 A3 22 00 CC 0C 5A 00 8B 43 B2 31 A7 99 A6 |..."...Z..C.1...|
000004B0: 31 32 33 29 22 4C 41 54 49 54 55 44 45 22 A6 33 |123)"LATITUDE".3|
000004C0: 32 29 22 A3 A3 A3 A3 A3 A3 A3 A3 22 00 F6 0C 64 |2)"........"...d|
000004D0: 00 8B 43 B2 32 A7 99 A6 31 32 33 29 22 4C 4F 4E |..C.2...123)"LON|
000004E0: 47 49 54 55 44 45 22 A6 33 31 29 22 A3 A3 A3 A3 |GITUDE".31)"....|
000004F0: A3 A3 A3 A3 A3 22 00 0F 0D 6E 00 85 22 20 20 20 |....."...n.." |
00000500: 20 20 20 20 44 45 47 52 45 45 53 3A 22 3B 44 00 | DEGREES:";D.|
00000510: 28 0D 78 00 85 22 20 20 20 20 20 20 20 4D 49 4E |(.x.." MIN|
00000520: 55 54 45 53 3A 22 3B 4D 00 41 0D 82 00 85 22 20 |UTES:";M.A...." |
00000530: 20 20 20 20 20 20 53 45 43 4F 4E 44 53 3A 22 3B | SECONDS:";|
00000540: 53 00 62 0D 87 00 8B 43 B2 31 A7 4C 54 28 41 29 |S.b....C.1.LT(A)|
00000550: B2 44 AA 28 4D AD 36 30 29 AA 28 53 AD 33 36 30 |.D.(M.60).(S.360|
00000560: 30 29 00 7D 0D 88 00 8B B6 28 4C 54 28 41 29 29 |0).}.....(LT(A))|
00000570: B1 39 30 A7 8D 20 35 30 30 3A 89 38 30 00 9F 0D |.90.. 500:.80...|
00000580: 89 00 8B 43 B2 32 A7 20 4C 47 28 41 29 B2 44 AA |...C.2. LG(A).D.|
00000590: 28 4D AD 36 30 29 AA 28 53 AD 33 36 30 30 29 00 |(M.60).(S.3600).|
000005A0: BA 0D 8A 00 8B B6 28 4C 47 28 41 29 29 B1 31 38 |......(LG(A)).18|
000005B0: 30 A7 8D 35 30 30 3A 89 38 30 00 D4 0D 8C 00 99 |0..500:.80......|
000005C0: 3A 99 22 20 41 4C 4C 20 44 41 54 41 20 4F 2E 4B |:." ALL DATA O.K|
000005D0: 2E 20 3F 22 00 E9 0D 96 00 A1 51 24 3A 8B 51 24 |. ?"......Q$:.Q$|
000005E0: B2 22 59 22 A7 20 82 20 43 00 02 0E 9B 00 8B 51 |."Y". . C......Q|
000005F0: 24 B2 22 59 22 A7 20 54 45 53 54 B2 31 3A 89 31 |$."Y". TEST.1:.1|
00000600: 38 30 00 13 0E A0 00 8B 51 24 B3 B1 22 4E 22 A7 |80......Q$.."N".|
00000610: 31 35 30 00 1C 0E AA 00 89 20 38 30 00 22 0E B4 |150...... 80."..|
00000620: 00 99 00 46 0E BE 00 4D B2 28 4C 54 28 41 AB 31 |...F...M.(LT(A.1|
00000630: 29 AA 4C 54 28 41 29 29 AD 32 3A 20 8F 20 4D 45 |).LT(A)).2: . ME|
00000640: 41 4E 20 4C 41 54 00 64 0E C8 00 58 B2 BE 28 4D |AN LAT.d...X..(M|
00000650: AD 31 38 30 AC FF 29 AC 36 30 3A 20 8F 20 4D 49 |.180..).60: . MI|
00000660: 2F 44 45 47 00 7C 0E D2 00 5A 31 B2 B6 28 4C 54 |/DEG.|...Z1..(LT|
00000670: 28 41 AB 31 29 AB 4C 54 28 41 29 29 00 9B 0E DC |(A.1).LT(A))....|
00000680: 00 5A 32 B2 B6 28 4C 47 28 41 AB 31 29 AB 4C 47 |.Z2..(LG(A.1).LG|
00000690: 28 41 29 29 AC 28 58 AD 36 30 29 00 AC 0E DD 00 |(A)).(X.60).....|
000006A0: 8B 54 45 53 54 B3 B1 31 A7 32 32 35 00 F0 0E DE |.TEST..1.225....|
000006B0: 00 50 B2 50 AA 31 3A 49 44 24 28 50 29 B2 41 24 |.P.P.1:ID$(P).A$|
000006C0: 28 41 29 3A 41 50 24 28 50 29 B2 4E 24 28 41 29 |(A):AP$(P).N$(A)|
000006D0: 3A 4C 54 24 28 50 29 B2 C4 28 4C 54 28 41 29 29 |:LT$(P)..(LT(A))|
000006E0: 3A 4C 47 24 28 50 29 B2 C4 28 4C 47 28 41 29 29 |:LG$(P)..(LG(A))|
000006F0: 00 FB 0E DF 00 54 45 53 54 B2 30 00 19 0F E1 00 |.....TEST.0.....|
00000700: 8D 31 30 30 30 3A 8F 20 53 41 4D 45 20 4C 41 54 |.1000:. SAME LAT|
00000710: 20 4F 52 20 4C 4F 4E 20 3F 00 3C 0F E6 00 44 B2 | OR LON ?.<...D.|
00000720: B5 28 28 BA 28 5A 31 AE 32 AA 5A 32 AE 32 29 AC |.((.(Z1.2.Z2.2).|
00000730: 36 30 29 AC 31 30 30 29 AD 31 30 30 00 50 0F E8 |60).100).100.P..|
00000740: 00 44 28 41 29 B2 44 3A 8B 41 43 B2 31 A7 34 35 |.D(A).D:.AC.1.45|
00000750: 00 7E 0F F0 00 99 22 93 22 A6 38 30 29 22 20 46 |.~....".".80)" F|
00000760: 52 4F 4D 22 2C 22 54 4F 22 2C 22 4E 41 55 54 20 |ROM","TO","NAUT |
00000770: 4D 49 22 2C 22 54 20 43 4F 55 52 53 45 22 00 A5 |MI","T COURSE"..|
00000780: 0F F1 00 99 22 20 B7 B7 B7 B7 22 2C 22 B7 B7 22 |...." ....",".."|
00000790: 2C 22 B7 B7 B7 B7 B7 B7 B7 22 2C 22 B7 B7 B7 B7 |,".......","....|
000007A0: B7 B7 B7 B7 22 00 C0 0F FA 00 81 58 B2 31 A4 41 |...."......X.1.A|
000007B0: 3A 8B 41 24 28 58 AA 31 29 B2 22 22 A7 33 30 30 |:.A$(X.1)."".300|
000007C0: 00 F3 0F FF 00 99 22 20 22 3B C8 28 4E 24 28 58 |......" ";.(N$(X|
000007D0: 29 2C 38 29 2C C8 28 4E 24 28 58 AA 31 29 2C 38 |),8),.(N$(X.1),8|
000007E0: 29 2C 44 28 58 AA 31 29 2C 54 43 28 58 AA 31 29 |),D(X.1),TC(X.1)|
000007F0: 3A 82 58 00 24 10 2C 01 99 A6 31 32 30 29 3A 99 |:.X.$.,...120):.|
00000800: 22 20 20 46 31 20 2D 2D 20 43 4F 4E 54 49 4E 55 |" F1 -- CONTINU|
00000810: 45 20 46 52 4F 4D 20 22 3B C8 28 4E 24 28 41 29 |E FROM ";.(N$(A)|
00000820: 2C 31 35 29 00 41 10 36 01 99 3A 99 22 20 20 46 |,15).A.6..:." F|
00000830: 33 20 2D 2D 20 45 4E 44 20 50 52 4F 47 52 41 4D |3 -- END PROGRAM|
00000840: 22 00 5C 10 3B 01 99 3A 99 22 20 20 46 35 20 2D |".\.;..:." F5 -|
00000850: 2D 20 48 41 52 44 20 43 4F 50 59 22 00 6F 10 40 |- HARD COPY".o.@|
00000860: 01 A1 51 24 3A 8B 51 24 B2 22 85 22 A7 34 35 00 |..Q$:.Q$.".".45.|
00000870: 86 10 4A 01 8B 51 24 B2 22 86 22 A7 99 22 93 22 |..J..Q$.".".."."|
00000880: 3A 89 31 31 30 30 00 97 10 4F 01 8B 51 24 B2 22 |:.1100...O..Q$."|
00000890: 87 22 A7 31 34 30 30 00 A1 10 54 01 89 20 33 32 |.".1400...T.. 32|
000008A0: 30 00 B5 10 90 01 8F 20 2A 2A 2A 20 53 4F 55 4E |0...... *** SOUN|
000008B0: 44 20 2A 2A 2A 00 DA 10 95 01 52 53 B2 35 34 32 |D ***.....RS.542|
000008C0: 37 32 3A 48 31 B2 32 30 3A 4C 31 B2 33 31 3A 4A |72:H1.20:L1.31:J|
000008D0: B2 34 34 3A 81 4B B2 31 A4 34 00 F9 10 9A 01 97 |.44:.K.1.4......|
000008E0: 52 53 AA 32 34 2C 31 35 3A 97 52 53 AA 35 2C 30 |RS.24,15:.RS.5,0|
000008F0: 3A 97 52 53 AA 31 32 2C 30 00 2C 11 A4 01 97 52 |:.RS.12,0.,....R|
00000900: 53 AA 36 2C 32 35 35 3A 97 52 53 AA 31 33 2C 35 |S.6,255:.RS.13,5|
00000910: 35 3A 97 52 53 AA 31 2C 48 31 3A 97 52 53 2C 4C |5:.RS.1,H1:.RS,L|
00000920: 31 3A 97 52 53 AA 38 2C 4C 31 AD 33 00 67 11 AE |1:.RS.8,L1.3.g..|
00000930: 01 97 52 53 AA 37 2C 48 31 AD 33 3A 97 52 53 AA |..RS.7,H1.3:.RS.|
00000940: 34 2C 31 37 3A 97 52 53 AA 31 31 2C 33 33 3A 81 |4,17:.RS.11,33:.|
00000950: 54 B2 31 A4 4A 3A 82 3A 97 52 53 AA 34 2C 30 3A |T.1.J:.:.RS.4,0:|
00000960: 97 52 53 AA 35 2C 30 00 A3 11 B8 01 97 52 53 AA |.RS.5,0......RS.|
00000970: 36 2C 30 3A 48 31 B2 48 31 AC 32 3A 4C 31 B2 4C |6,0:H1.H1.2:L1.L|
00000980: 31 AC 32 3A 82 4B 3A 97 52 53 AA 31 31 2C 30 3A |1.2:.K:.RS.11,0:|
00000990: 97 52 53 AA 31 32 2C 30 3A 97 52 53 AA 31 33 2C |.RS.12,0:.RS.13,|
000009A0: 30 3A 8E 00 CC 11 F4 01 99 3A 99 22 05 20 45 52 |0:.......:.". ER|
000009B0: 52 4F 52 9A 2D 20 49 4E 50 55 54 20 49 53 20 4F |ROR.- INPUT IS O|
000009C0: 55 54 20 4F 46 20 52 41 4E 47 45 22 00 E7 11 F6 |UT OF RANGE"....|
000009D0: 01 99 A6 35 30 29 22 2D 20 52 45 2D 45 4E 54 45 |...50)"- RE-ENTE|
000009E0: 52 20 44 41 54 41 22 00 00 12 F9 01 81 45 54 B2 |R DATA"......ET.|
000009F0: 31 A4 37 35 30 3A 82 45 54 3A 8D 34 30 30 3A 8E |1.750:.ET:.400:.|
00000A00: 00 06 12 E7 03 3A 00 35 12 E8 03 8B 4C 54 28 41 |.....:.5....LT(A|
00000A10: 29 B1 4C 54 28 41 AB 31 29 AF 4C 47 28 41 29 B3 |).LT(A.1).LG(A).|
00000A20: 4C 47 28 41 AB 31 29 A7 46 B2 39 30 3A 5A 33 B2 |LG(A.1).F.90:Z3.|
00000A30: 5A 31 AD 5A 32 00 65 12 F2 03 8B 4C 54 28 41 29 |Z1.Z2.e....LT(A)|
00000A40: B3 4C 54 28 41 AB 31 29 AF 4C 47 28 41 29 B3 4C |.LT(A.1).LG(A).L|
00000A50: 47 28 41 AB 31 29 A7 46 B2 31 38 30 3A 5A 33 B2 |G(A.1).F.180:Z3.|
00000A60: 5A 32 AD 5A 31 00 95 12 06 04 8B 4C 54 28 41 29 |Z2.Z1......LT(A)|
00000A70: B3 4C 54 28 41 AB 31 29 AF 4C 47 28 41 29 B1 4C |.LT(A.1).LG(A).L|
00000A80: 47 28 41 AB 31 29 A7 46 B2 32 37 30 3A 5A 33 B2 |G(A.1).F.270:Z3.|
00000A90: 5A 31 AD 5A 32 00 C5 12 10 04 8B 4C 54 28 41 29 |Z1.Z2......LT(A)|
00000AA0: B1 4C 54 28 41 AB 31 29 AF 4C 47 28 41 29 B1 4C |.LT(A.1).LG(A).L|
00000AB0: 47 28 41 AB 31 29 A7 46 B2 33 36 30 3A 5A 33 B2 |G(A.1).F.360:Z3.|
00000AC0: 5A 32 AD 5A 31 00 F2 12 12 04 8B 4C 47 28 41 29 |Z2.Z1......LG(A)|
00000AD0: B2 4C 47 28 41 AB 31 29 AF 4C 54 28 41 29 B1 4C |.LG(A.1).LT(A).L|
00000AE0: 54 28 41 AB 31 29 A7 54 43 28 41 29 B2 33 36 30 |T(A.1).TC(A).360|
00000AF0: 3A 8E 00 1F 13 14 04 8B 4C 47 28 41 29 B2 4C 47 |:.......LG(A).LG|
00000B00: 28 41 AB 31 29 AF 4C 54 28 41 29 B3 4C 54 28 41 |(A.1).LT(A).LT(A|
00000B10: AB 31 29 A7 54 43 28 41 29 B2 31 38 30 3A 8E 00 |.1).TC(A).180:..|
00000B20: 4C 13 16 04 8B 4C 54 28 41 29 B2 4C 54 28 41 AB |L....LT(A).LT(A.|
00000B30: 31 29 AF 4C 47 28 41 29 B1 4C 47 28 41 AB 31 29 |1).LG(A).LG(A.1)|
00000B40: A7 54 43 28 41 29 B2 32 37 30 3A 8E 00 78 13 18 |.TC(A).270:..x..|
00000B50: 04 8B 4C 54 28 41 29 B2 4C 54 28 41 AB 31 29 AF |..LT(A).LT(A.1).|
00000B60: 4C 47 28 41 29 B3 4C 47 28 41 AB 31 29 A7 54 43 |LG(A).LG(A.1).TC|
00000B70: 28 41 29 B2 39 30 3A 8E 00 90 13 1A 04 54 43 28 |(A).90:......TC(|
00000B80: 41 29 B2 46 AB C1 28 5A 33 29 AC 31 38 30 AD FF |A).F..(Z3).180..|
00000B90: 00 AE 13 24 04 54 43 28 41 29 B2 B6 28 B5 28 54 |...$.TC(A)..(.(T|
00000BA0: 43 28 41 29 AC 31 30 29 AD 31 30 29 3A 8E 00 BC |C(A).10).10):...|
00000BB0: 13 4C 04 8B 51 B2 50 A7 31 35 30 30 00 CF 13 51 |.L..Q.P.1500...Q|
00000BC0: 04 8D 31 33 30 30 3A 9F 31 35 2C 38 2C 31 35 00 |..1300:.15,8,15.|
00000BD0: EC 13 56 04 9F 32 2C 38 2C 32 2C 22 40 4F 3A 41 |..V..2,8,2,"@O:A|
00000BE0: 49 52 50 4F 52 54 53 2C 53 2C 57 22 00 09 14 60 |IRPORTS,S,W"...`|
00000BF0: 04 81 58 B2 31 A4 33 35 30 3A 8B 49 44 24 28 58 |..X.1.350:.ID$(X|
00000C00: 29 B2 22 22 A7 31 31 36 30 00 17 14 65 04 98 32 |)."".1160...e..2|
00000C10: 2C 49 44 24 28 58 29 00 25 14 6A 04 98 32 2C 41 |,ID$(X).%.j..2,A|
00000C20: 50 24 28 58 29 00 33 14 74 04 98 32 2C 4C 54 24 |P$(X).3.t..2,LT$|
00000C30: 28 58 29 00 55 14 7E 04 98 32 2C 4C 47 24 28 58 |(X).U.~..2,LG$(X|
00000C40: 29 3A 82 58 3A 99 22 3E 20 31 35 30 20 45 4E 54 |):.X:."> 150 ENT|
00000C50: 52 49 45 53 22 00 77 14 88 04 98 32 2C 22 45 4E |RIES".w....2,"EN|
00000C60: 44 20 4F 46 20 46 49 4C 45 22 3A A0 32 3A A0 31 |D OF FILE":.2:.1|
00000C70: 35 3A 89 31 35 30 30 00 97 14 B0 04 99 A6 34 30 |5:.1500.......40|
00000C80: 29 22 20 48 41 52 44 43 4F 50 59 20 3F 20 28 59 |)" HARDCOPY ? (Y|
00000C90: 20 4F 52 20 4E 29 22 00 AC 14 B1 04 A1 51 24 3A | OR N)"......Q$:|
00000CA0: 8B 51 24 B2 22 4E 22 A7 31 32 30 39 00 BE 14 B2 |.Q$."N".1209....|
00000CB0: 04 8B 51 24 B3 B1 22 59 22 A7 31 32 30 31 00 F1 |..Q$.."Y".1201..|
00000CC0: 14 B3 04 9F 31 30 2C 34 2C 31 30 3A 98 31 30 3A |....10,4,10:.10:|
00000CD0: A0 31 30 3A 9F 34 2C 34 3A 98 34 2C C7 28 31 34 |.10:.4,4:.4,.(14|
00000CE0: 37 29 3A 4F 50 B2 B5 28 50 AD 32 AB 2E 31 29 AA |7):OP..(P.2..1).|
00000CF0: 31 00 25 15 B4 04 81 55 B2 31 A4 20 4F 50 3A 98 |1.%....U.1. OP:.|
00000D00: 34 2C 41 50 24 28 55 29 3B 3A 81 56 B2 31 A4 28 |4,AP$(U);:.V.1.(|
00000D10: 32 30 AB C3 28 41 50 24 28 55 29 29 29 3A 98 34 |20..(AP$(U))):.4|
00000D20: 2C 22 2D 22 3B 00 39 15 B5 04 82 20 56 3A 98 34 |,"-";.9.... V:.4|
00000D30: 2C 49 44 24 28 55 29 2C 2C 00 6A 15 B6 04 98 34 |,ID$(U),,.j....4|
00000D40: 2C 41 50 24 28 55 AA 4F 50 29 3B 3A 81 56 B2 31 |,AP$(U.OP);:.V.1|
00000D50: A4 28 32 30 AB C3 28 41 50 24 28 55 AA 4F 50 29 |.(20..(AP$(U.OP)|
00000D60: 29 29 3A 98 34 2C 22 2D 22 3B 00 89 15 B7 04 82 |)):.4,"-";......|
00000D70: 20 56 3A 98 34 2C 49 44 24 28 55 AA 4F 50 29 3A | V:.4,ID$(U.OP):|
00000D80: 82 55 3A A0 34 3A 89 34 35 00 C0 15 B9 04 99 22 |.U:.4:.45......"|
00000D90: 93 22 3A 81 55 B2 31 A4 50 3A 99 22 20 22 3B 41 |.":.U.1.P:." ";A|
00000DA0: 50 24 28 55 29 3B 3A 81 56 B2 31 A4 28 32 30 AB |P$(U);:.V.1.(20.|
00000DB0: C3 28 41 50 24 28 55 29 29 29 3A 99 22 2D 22 3B |.(AP$(U))):."-";|
00000DC0: 00 E3 15 BA 04 82 56 3A 99 49 44 24 28 55 29 3A |......V:.ID$(U):|
00000DD0: 45 31 B2 45 31 AA 31 3A 8B 45 31 B2 32 30 A7 31 |E1.E1.1:.E1.20.1|
00000DE0: 32 33 30 00 F3 15 C4 04 82 55 3A 45 31 B2 30 3A |230......U:E1.0:|
00000DF0: 89 34 35 00 18 16 CE 04 99 3A 99 22 20 20 50 52 |.45......:." PR|
00000E00: 45 53 53 20 46 31 20 54 4F 20 43 4F 4E 54 49 4E |ESS F1 TO CONTIN|
00000E10: 55 45 20 4C 49 53 54 22 00 3F 16 D3 04 99 3A 99 |UE LIST".?....:.|
00000E20: 22 20 20 50 52 45 53 53 20 46 33 20 54 4F 20 45 |" PRESS F3 TO E|
00000E30: 4E 54 45 52 20 49 2E 44 2E 20 43 4F 44 45 22 00 |NTER I.D. CODE".|
00000E40: 62 16 D8 04 A1 51 24 3A 8B 51 24 B2 22 85 22 A7 |b....Q$:.Q$.".".|
00000E50: 45 31 B2 30 3A 99 22 93 22 3A 99 3A 82 55 3A 89 |E1.0:.".":.:.U:.|
00000E60: 34 35 00 77 16 E2 04 8B 51 24 B2 22 86 22 A7 45 |45.w....Q$.".".E|
00000E70: 31 B2 30 3A 89 34 35 00 81 16 EC 04 89 31 32 34 |1.0:.45......124|
00000E80: 30 00 A0 16 14 05 99 3A 99 22 20 50 4C 45 41 53 |0......:." PLEAS|
00000E90: 45 20 53 54 41 4E 44 20 42 59 20 2D 2D 2D 2D 22 |E STAND BY ----"|
00000EA0: 00 C5 16 15 05 99 3A 99 22 A0 55 4E 54 49 4C 20 |......:.".UNTIL |
00000EB0: 27 52 45 41 44 59 27 20 49 53 20 44 49 53 50 4C |'READY' IS DISPL|
00000EC0: 41 59 45 44 22 00 D1 16 19 05 41 B2 30 3A 54 B2 |AYED".....A.0:T.|
00000ED0: 30 00 E6 16 1E 05 41 B2 41 AA 31 3A 8B 41 B2 50 |0.....A.A.1:.A.P|
00000EE0: AF 54 B2 30 A7 8E 00 F8 16 28 05 8B 41 B2 50 AF |.T.0.....(..A.P.|
00000EF0: 54 B2 31 A7 31 33 30 35 00 12 17 32 05 8B 41 50 |T.1.1305...2..AP|
00000F00: 24 28 41 29 B3 41 50 24 28 41 AA 31 29 A7 31 33 |$(A).AP$(A.1).13|
00000F10: 31 30 00 3C 17 3C 05 45 24 B2 49 44 24 28 41 29 |10.<.<.E$.ID$(A)|
00000F20: 3A 49 44 24 28 41 29 B2 49 44 24 28 41 AA 31 29 |:ID$(A).ID$(A.1)|
00000F30: 3A 49 44 24 28 41 AA 31 29 B2 45 24 00 66 17 46 |:ID$(A.1).E$.f.F|
00000F40: 05 45 24 B2 41 50 24 28 41 29 3A 41 50 24 28 41 |.E$.AP$(A):AP$(A|
00000F50: 29 B2 41 50 24 28 41 AA 31 29 3A 41 50 24 28 41 |).AP$(A.1):AP$(A|
00000F60: AA 31 29 B2 45 24 00 90 17 50 05 45 24 B2 4C 54 |.1).E$...P.E$.LT|
00000F70: 24 28 41 29 3A 4C 54 24 28 41 29 B2 4C 54 24 28 |$(A):LT$(A).LT$(|
00000F80: 41 AA 31 29 3A 4C 54 24 28 41 AA 31 29 B2 45 24 |A.1):LT$(A.1).E$|
00000F90: 00 C4 17 5A 05 45 24 B2 4C 47 24 28 41 29 3A 4C |...Z.E$.LG$(A):L|
00000FA0: 47 24 28 41 29 B2 4C 47 24 28 41 AA 31 29 3A 4C |G$(A).LG$(A.1):L|
00000FB0: 47 24 28 41 AA 31 29 B2 45 24 3A 54 B2 31 3A 89 |G$(A.1).E$:T.1:.|
00000FC0: 31 33 31 30 00 E2 17 78 05 99 3A 99 22 20 53 54 |1310...x..:." ST|
00000FD0: 41 4E 44 42 59 2E 2E 2E 20 50 52 49 4E 54 49 4E |ANDBY... PRINTIN|
00000FE0: 47 22 00 F7 17 79 05 9F 31 30 2C 34 2C 31 30 3A |G"...y..10,4,10:|
00000FF0: 98 31 30 3A A0 31 30 00 45 18 7A 05 46 4F 24 B2 |.10:.10.E.z.FO$.|
00001000: 22 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |"AAAAAAAAAAAAAAA|
00001010: 41 41 41 41 41 20 20 20 41 41 41 41 41 41 41 41 |AAAAA AAAAAAAA|
00001020: 41 41 41 41 41 41 41 41 41 41 41 41 41 20 20 20 |AAAAAAAAAAAAA |
00001030: 39 39 39 39 2E 39 39 20 20 20 20 20 20 20 20 5A |9999.99 Z|
00001040: 5A 5A 2E 39 22 00 6C 18 7B 05 9F 32 2C 34 2C 32 |ZZ.9".l.{..2,4,2|
00001050: 3A 98 32 2C 46 4F 24 3A 9F 34 2C 34 3A 9F 31 2C |:.2,FO$:.4,4:.1,|
00001060: 34 2C 31 3A 53 24 B2 C7 28 32 39 29 00 8B 18 7D |4,1:S$..(29)...}|
00001070: 05 44 24 B2 22 22 3A 81 44 B2 31 A4 38 30 3A 44 |.D$."":.D.1.80:D|
00001080: 24 B2 44 24 AA 22 2D 22 3A 82 44 00 D3 18 82 05 |$.D$."-":.D.....|
00001090: 98 34 2C 22 44 45 50 41 52 54 55 52 45 22 2C 22 |.4,"DEPARTURE","|
000010A0: 20 20 20 20 44 45 53 54 49 4E 41 54 49 4F 4E 22 | DESTINATION"|
000010B0: 2C 22 20 20 20 4E 41 55 54 20 4D 49 20 20 20 20 |," NAUT MI |
000010C0: 20 20 20 54 20 43 4F 55 52 53 45 22 C7 28 31 34 | T COURSE".(14|
000010D0: 31 29 3B 00 14 19 8C 05 98 34 2C 22 A4 A4 A4 A4 |1);......4,"....|
000010E0: A4 A4 A4 A4 A4 22 2C 22 20 20 20 20 A4 A4 A4 A4 |....."," ....|
000010F0: A4 A4 A4 A4 A4 A4 A4 22 2C 22 20 20 20 A4 A4 A4 |......."," ...|
00001100: A4 A4 A4 A4 20 20 20 20 20 20 20 A4 A4 A4 A4 A4 |.... .....|
00001110: A4 A4 A4 22 00 39 19 96 05 98 34 3A 98 34 2C 44 |...".9....4:.4,D|
00001120: 24 3A 81 58 B2 31 A4 41 3A 8B 41 24 28 58 AA 31 |$:.X.1.A:.A$(X.1|
00001130: 29 B2 22 22 A7 31 34 35 30 00 6D 19 A0 05 98 31 |)."".1450.m....1|
00001140: 2C 4E 24 28 58 29 53 24 4E 24 28 58 AA 31 29 53 |,N$(X)S$N$(X.1)S|
00001150: 24 44 28 58 AA 31 29 3B 54 43 28 58 AA 31 29 3A |$D(X.1);TC(X.1):|
00001160: 98 34 2C 44 24 C7 28 31 33 29 3A 82 58 00 7F 19 |.4,D$.(13):.X...|
00001170: AA 05 A0 31 3A A0 32 3A A0 34 3A 89 32 34 30 00 |...1:.2:.4:.240.|
00001180: 87 19 DC 05 9C 3A 80 00 00 00 |.....:.... |
..N.... ******** NAV PLOTTER *********
* BY RON MORTELLITO 11/11/83 *..
....".".84)"THIS PROGRAM WILL CALCULATE
THE":.ID$(350),AP$(350),TC(350)......"
DISTANCE AND TRUE COURSE BETWEEN":.LT$
(350),LG$(350),N$(350).)...." ANY TW
O AIRPORTS IN THE WORLD.":.LT(350),LG(35
0),A$(350),D(350).P.....83)"IN THE CASES
OF SOUTH LATI";......"TUDES OR".7)"EAST
LONGITUDES, PREFIX ENTRIES";.13)"WITH A
(-)";.I...." MINUS SIGN.":.15,8,15:.2,8
,2,"AIRPORTS,S,R".......80)"U...........
...........................I".0...."...W
ARNING: NOT INTENDED FOR NAVIGATION !.B"
.A....".JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCK".......121)"ENTER 'LIST' TO SEE
LIST OF I.D. CODES".E....P.1.350:.2,ID$
(P):.ID$(P)."END OF FILE". 28......2,AP$
(P),LT$(P),LG$(P):.P..... 2: 15:P.P.1:Q.
P:A.0:AC.0...-..400:A.A.1:..120);.Y...."
ENTER I.D. CODE: AIRPORT #";A" ";
:.".....";:.A$(A).W./..A$(A)."LIST".A.A.
1:.1200...2.AC.AC.1:.X.1.350:.A$(A)..ID$
(X)..X:.60...7.N$(A).AP$(X):LT(A).E(LT$(
X)):LG(A).E(LG$(X)):.AC.1. 190...9.."...
..":. 45.,.<..".".80);:." ENTER AIRPORT'
S PROPER NAME:":.:." ";N$(A).9.F..C.1 .
2.U.P..".".160)" ENTER COORDINATES OF ";
H(N$(A),9);" AIRPORT"...Q.." ...........
...........................".L.Z..C.1...
123)"LATITUDE".32)"........"...D..C.2...
123)"LONGITUDE".31)"........."...N.."
DEGREES:";D.(.X.." MINUTES:";M
.A...." SECONDS:";S.B....C.1.LT(A)
.D.(M.60).(S.3600).}.....(LT(A)).90.. 50
0:.80......C.2. LG(A).D.(M.60).(S.3600).
......(LG(A)).180..500:.80.T....:." ALL
DATA O.K. ?"......Q$:.Q$."Y". . C......Q
$."Y". TEST.1:.180... ..Q$.."N".150.....
. 80.".....F...M.(LT(A.1).LT(A)).2: . ME
AN LAT.D.H.X..(M.180..).60: . MI/DEG.|.R
.Z1..(LT(A.1).LT(A)).....Z2..(LG(A.1).LG
(A)).(X.60)......TEST..1.225.....P.P.1:I
D$(P).A$(A):AP$(P).N$(A):LT$(P).D(LT(A))
:LG$(P).D(LG(A)).....TEST.0......1000:.
SAME LAT OR LON ?.<...D..((.(Z1.2.Z2.2).
60).100).100.P...D(A).D:.AC.1.45.~....".
".80)" FROM","TO","NAUT MI","T COURSE"..
...." ....","..",".......","........"...
...X.1.A:.A$(X.1)."".300......" ";H(N$(X
),8),H(N$(X.1),8),D(X.1),TC(X.1):.X.$.,.
..120):." F1 -- CONTINUE FROM ";H(N$(A)
,15).A.6..:." F3 -- END PROGRAM".\.;..:
." F5 -- HARD COPY".O.@..Q$:.Q$.".".45.
..J..Q$."."..".":.1100...O..Q$.".".1400.
..T.. 320...... *** SOUND ***.Z...RS.542
72:H1.20:L1.31:J.44:.K.1.4......RS.24,15
:.RS.5,0:.RS.12,0.,....RS.6,255:.RS.13,5
5:.RS.1,H1:.RS,L1:.RS.8,L1.3.G....RS.7,H
1.3:.RS.4,17:.RS.11,33:.T.1.J:.:.RS.4,0:
.RS.5,0......RS.6,0:H1.H1.2:L1.L1.2:.K:.
RS.11,0:.RS.12,0:.RS.13,0:..L....:.". ER
ROR.- INPUT IS OUT OF RANGE".......50)"-
RE-ENTER DATA"......ET.1.750:.ET:.400:.
.....:.5....LT(A).LT(A.1).LG(A).LG(A.1).
F.90:Z3.Z1.Z2.E....LT(A).LT(A.1).LG(A).L
G(A.1).F.180:Z3.Z2.Z1......LT(A).LT(A.1)
.LG(A).LG(A.1).F.270:Z3.Z1.Z2.E....LT(A)
.LT(A.1).LG(A).LG(A.1).F.360:Z3.Z2.Z1...
...LG(A).LG(A.1).LT(A).LT(A.1).TC(A).360
:.......LG(A).LG(A.1).LT(A).LT(A.1).TC(A
).180:..L....LT(A).LT(A.1).LG(A).LG(A.1)
.TC(A).270:..X....LT(A).LT(A.1).LG(A).LG
(A.1).TC(A).90:......TC(A).F.A(Z3).180..
...$.TC(A)..(.(TC(A).10).10):....L..Q.P.
1500.O.Q..1300:.15,8,15...V..2,8,2,"@O:A
IRPORTS,S,W"...`..X.1.350:.ID$(X)."".116
0...E..2,ID$(X).%.J..2,AP$(X).3.T..2,LT$
(X).U.~..2,LG$(X):.X:."> 150 ENTRIES".W.
...2,"END OF FILE": 2: 15:.1500.......40
)" HARDCOPY ? (Y OR N)"......Q$:.Q$."N".
1209......Q$.."Y".1201......10,4,10:.10:
10:.4,4:.4,G(147):OP..(P.2..1).1.%....U
.1. OP:.4,AP$(U);:.V.1.(20.C(AP$(U))):.4
,"-";.9.... V:.4,ID$(U),,.J....4,AP$(U.O
P);:.V.1.(20.C(AP$(U.OP))):.4,"-";......
V:.4,ID$(U.OP):.U: 4:.45......".":.U.1.
P:." ";AP$(U);:.V.1.(20.C(AP$(U))):."-";
......V:.ID$(U):E1.E1.1:.E1.20.1230...D.
.U:E1.0:.45...N..:." PRESS F1 TO CONTIN
UE LIST".?.S..:." PRESS F3 TO ENTER I.D
. CODE".B.X..Q$:.Q$.".".E1.0:.".":.:.U:.
45.W....Q$.".".E1.0:.45......1240. ....:
." PLEASE STAND BY ----".E....:." UNTIL
'READY' IS DISPLAYED".Q...A.0:T.0.....A.
A.1:.A.P.T.0.....(..A.P.T.1.1305...2..AP
$(A).AP$(A.1).1310.<.<.E$.ID$(A):ID$(A).
ID$(A.1):ID$(A.1).E$.F.F.E$.AP$(A):AP$(A
).AP$(A.1):AP$(A.1).E$...P.E$.LT$(A):LT$
(A).LT$(A.1):LT$(A.1).E$.D.Z.E$.LG$(A):L
G$(A).LG$(A.1):LG$(A.1).E$:T.1:.1310...X
..:." STANDBY... PRINTING"...Y..10,4,10:
.10: 10.E.Z.FO$."AAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAA 9999.99 Z
ZZ.9".L.{..2,4,2:.2,FO$:.4,4:.1,4,1:S$.G
(29)...}.D$."":.D.1.80:D$.D$."-":.D.S...
.4,"DEPARTURE"," DESTINATION"," NAU
T MI T COURSE"G(141);......4,"....
....."," ..........."," .......
........".9....4:.4,D$:.X.1.A:.A$(X.1
)."".1450.M. ..1,N$(X)S$N$(X.1)S$D(X.1);
TC(X.1):.4,D$G(13):.X.... 1: 2: 4:.240.
.....:....
> CLICK IMAGE PREVIEW FOR FULL MODAL