NGR TO LOCATOR

FILE INFORMATION

FILENAME(S): NGR TO LOCATOR

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-12-01 02:25:58

APPEARS ON: 1 disk(s)

FILE HASH

329bb0354f64efb1849bd6e469fa39eb84353395bfda36db12e9832dde1f05b2

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FRANS	NGR TO LOCATOR	PRG	Shine	31	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 29 08 0A 00 86 54  28 39 29 3A 43 41 B2 C6  |..)....T(9):CA..|
00000010: 28 22 41 22 29 3A 43 53  B2 C6 28 22 20 22 29 3A  |("A"):CS..(" "):|
00000020: 43 30 B2 C6 28 22 30 22  29 00 50 08 1E 00 99 3A  |C0..("0").P....:|
00000030: 99 22 2A 20 CE C7 D2 20  54 4F 20 4C 4F 43 41 54  |."* ... TO LOCAT|
00000040: 4F 52 20 43 4F 4E 56 45  52 53 49 4F 4E 20 2A 22  |OR CONVERSION *"|
00000050: 00 74 08 64 00 99 3A 85  22 CE C7 D2 22 3B 4E 24  |.t.d..:."...";N$|
00000060: 3A 8D 20 35 30 30 3A 8B  20 45 46 B1 2E 35 20 89  |:. 500:. EF..5 .|
00000070: 20 31 37 30 00 97 08 6E  00 54 32 B2 B5 28 4E 29  | 170...n.T2..(N)|
00000080: 3A 54 33 B2 B5 28 36 30  30 AC 28 4E AB 54 32 29  |:T3..(600.(N.T2)|
00000090: AA 2E 35 29 AD 31 30 00  BE 08 78 00 99 3A 99 54  |..5).10...x..:.T|
000000A0: 32 3B 22 44 45 47 52 45  45 53 22 3B 54 33 3B 22  |2;"DEGREES";T3;"|
000000B0: 4D 49 4E 55 54 45 53 20  4E 4F 52 54 48 22 00 EB  |MINUTES NORTH"..|
000000C0: 08 82 00 54 31 B2 B6 28  45 29 3A 54 32 B2 B5 28  |...T1..(E):T2..(|
000000D0: 54 31 29 3A 54 33 B2 B5  28 36 30 30 AC 28 54 31  |T1):T3..(600.(T1|
000000E0: AB 54 32 29 AA 2E 35 29  AD 31 30 00 0B 09 8C 00  |.T2)..5).10.....|
000000F0: 54 24 B2 22 45 41 53 54  22 3A 8B 20 45 B3 30 20  |T$."EAST":. E.0 |
00000100: A7 20 54 24 B2 22 57 45  53 54 22 00 2E 09 96 00  |. T$."WEST".....|
00000110: 99 20 54 32 3B 22 44 45  47 52 45 45 53 22 3B 54  |. T2;"DEGREES";T|
00000120: 33 3B 22 4D 49 4E 55 54  45 53 22 3B 54 24 00 4F  |3;"MINUTES";T$.O|
00000130: 09 A0 00 8D 20 31 30 30  30 3A 99 3A 99 22 4C 4F  |.... 1000:.:."LO|
00000140: 43 41 54 4F 52 22 3B 4C  24 3A 89 20 31 30 30 00  |CATOR";L$:. 100.|
00000150: 7A 09 AA 00 99 3A 99 22  53 4F 52 52 59 2C 54 48  |z....:."SORRY,TH|
00000160: 41 54 27 53 20 4E 4F 54  20 41 20 56 41 4C 49 44  |AT'S NOT A VALID|
00000170: 20 CE C7 D2 22 3A 89 31  30 30 00 90 09 F4 01 50  | ...":.100.....P|
00000180: 54 B2 31 3A 4C B2 C3 28  4E 24 29 3A 45 46 B2 30  |T.1:L..(N$):EF.0|
00000190: 00 9E 09 FE 01 81 20 4A  B2 31 20 A4 20 39 00 C2  |...... J.1 . 9..|
000001A0: 09 08 02 54 31 B2 AB 31  3A 8B 50 54 B3 B2 4C 20  |...T1..1:.PT..L |
000001B0: A7 20 54 31 B2 C6 28 CA  28 4E 24 2C 50 54 2C 31  |. T1..(.(N$,PT,1|
000001C0: 29 29 00 DB 09 12 02 50  54 B2 50 54 AA 31 3A 8B  |)).....PT.PT.1:.|
000001D0: 54 31 B2 43 53 20 89 20  35 32 30 00 E9 09 1C 02  |T1.CS . 520.....|
000001E0: 54 28 4A 29 B2 54 31 3A  82 00 F7 09 26 02 81 20  |T(J).T1:....&.. |
000001F0: 4A B2 31 20 A4 20 32 00  2B 0A 30 02 54 28 4A 29  |J.1 . 2.+.0.T(J)|
00000200: B2 54 28 4A 29 AB 43 41  3A 8B 20 54 28 4A 29 B3  |.T(J).CA:. T(J).|
00000210: 30 20 B0 20 54 28 4A 29  B1 32 36 20 B0 20 54 28  |0 . T(J).26 . T(|
00000220: 4A 29 B2 38 20 A7 20 45  46 B2 31 00 46 0A 3A 02  |J).8 . EF.1.F.:.|
00000230: 8B 20 54 28 4A 29 B1 38  20 A7 20 54 28 4A 29 B2  |. T(J).8 . T(J).|
00000240: 54 28 4A 29 AB 31 00 4C  0A 44 02 82 00 5A 0A 4E  |T(J).1.L.D...Z.N|
00000250: 02 81 20 4A B2 33 20 A4  20 38 00 82 0A 58 02 54  |.. J.3 . 8...X.T|
00000260: 28 4A 29 B2 54 28 4A 29  AB 43 30 3A 8B 20 54 28  |(J).T(J).C0:. T(|
00000270: 4A 29 B3 30 B0 54 28 4A  29 B1 39 20 A7 20 45 46  |J).0.T(J).9 . EF|
00000280: B2 31 00 88 0A 62 02 82  00 9A 0A 6C 02 8B 54 28  |.1...b.....l..T(|
00000290: 39 29 B1 30 A7 20 45 46  B2 31 00 AB 0A 76 02 8B  |9).0. EF.1...v..|
000002A0: 20 45 46 20 B1 2E 35 20  A7 20 8E 00 C9 0A 80 02  | EF ..5 . ......|
000002B0: 54 41 B2 B5 28 54 28 31  29 AD 35 29 3A 54 43 B2  |TA..(T(1).5):TC.|
000002C0: 54 28 31 29 AB 35 AC 54  41 00 E7 0A 8A 02 54 42  |T(1).5.TA.....TB|
000002D0: B2 B5 28 54 28 32 29 AD  35 29 3A 54 44 B2 54 28  |..(T(2).5):TD.T(|
000002E0: 32 29 AB 35 AC 54 42 00  16 0B 94 02 45 B2 AB 31  |2).5.TB.....E..1|
000002F0: 30 30 30 AA 35 30 30 AC  54 43 AA 31 30 30 AC 54  |000.500.TC.100.T|
00000300: 44 AA 31 30 AC 54 28 33  29 AA 54 28 34 29 AA 54  |D.10.T(3).T(4).T|
00000310: 28 35 29 AD 31 30 00 44  0B 9E 02 4E B2 31 39 30  |(5).10.D...N.190|
00000320: 30 AB 35 30 30 AC 54 41  AB 31 30 30 AC 54 42 AA  |0.500.TA.100.TB.|
00000330: 31 30 AC 54 28 36 29 AA  54 28 37 29 AA 54 28 38  |10.T(6).T(7).T(8|
00000340: 29 AD 31 30 00 5F 0B A8  02 54 31 B2 28 4E AA 35  |).10._...T1.(N.5|
00000350: 35 34 38 2E 37 39 29 AD  36 33 37 31 2E 32 38 00  |548.79).6371.28.|
00000360: 7E 0B B2 02 54 32 B2 32  AC C1 28 BD 28 28 45 AB  |~...T2.2..(.((E.|
00000370: 34 30 30 29 AD 36 33 38  39 2E 37 30 29 29 00 A4  |400).6389.70))..|
00000380: 0B BC 02 45 B2 C1 28 AB  BE 28 54 32 29 AD 28 BE  |...E..(..(T2).(.|
00000390: 28 54 31 29 AC BF 28 54  32 29 29 29 AC 31 38 30  |(T1)..(T2))).180|
000003A0: AD FF AB 32 00 CC 0B C6  02 4E B2 BF 28 54 31 29  |...2.....N..(T1)|
000003B0: AC BF 28 54 32 29 3A 4E  B2 C1 28 4E AD BA 28 31  |..(T2):N..(N..(1|
000003C0: AB 4E AC 4E 29 29 AC 31  38 30 AD FF 00 D2 0B D0  |.N.N)).180......|
000003D0: 02 8E 00 03 0C E8 03 4E  B2 4E AD 31 38 30 AA 2E  |.......N.N.180..|
000003E0: 35 3A 45 B2 45 AD 33 36  30 AA 2E 35 3A 4C 24 B2  |5:E.E.360..5:L$.|
000003F0: 22 22 3A 54 B2 43 41 3A  46 B2 31 38 3A 8D 20 31  |"":T.CA:F.18:. 1|
00000400: 30 32 30 00 2B 0C F2 03  54 B2 43 30 3A 46 B2 31  |020.+...T.C0:F.1|
00000410: 30 3A 8D 20 31 30 32 30  3A 54 B2 43 41 3A 46 B2  |0:. 1020:T.CA:F.|
00000420: 32 34 3A 8D 20 31 30 32  30 3A 8E 00 63 0C FC 03  |24:. 1020:..c...|
00000430: 4E B2 46 AC 28 4E AB B5  28 4E 29 29 3A 45 B2 46  |N.F.(N..(N)):E.F|
00000440: AC 28 45 AB B5 28 45 29  29 3A 4C 24 B2 4C 24 AA  |.(E..(E)):L$.L$.|
00000450: C7 28 B5 28 54 AA 45 29  29 AA C7 28 B5 28 54 AA  |.(.(T.E))..(.(T.|
00000460: 4E 29 29 00 69 0C 06 04  8E 00 00 00 31           |N)).i.......1   |

..)....T(9):CA.F("A"):CS.F(" "):C0.F("0"
).P....:."* NGR TO LOCATOR CONVERSION *"
.T.D..:."NGR";N$:. 500:. EF..5 . 170...N
.T2..(N):T3..(600.(N.T2)..5).10...X..:.T
2;"DEGREES";T3;"MINUTES NORTH".....T1..(
E):T2..(T1):T3..(600.(T1.T2)..5).10.....
T$."EAST":. E.0 . T$."WEST"...... T2;"DE
GREES";T3;"MINUTES";T$.O. .. 1000:.:."LO
CATOR";L$:. 100.Z....:."SORRY,THAT'S NOT
 A VALID NGR":.100.....PT.1:L.C(N$):EF.0
...... J.1 . 9.B...T1..1:.PT..L . T1.F(J
(N$,PT,1)).....PT.PT.1:.T1.CS . 520.....
T(J).T1:....&.. J.1 . 2.+.0.T(J).T(J).CA
:. T(J).0 . T(J).26 . T(J).8 . EF.1.F.:.
. T(J).8 . T(J).T(J).1.L.D...Z.N.. J.3 .
 8...X.T(J).T(J).C0:. T(J).0.T(J).9 . EF
.1...B.....L..T(9).0. EF.1...V.. EF ..5 
. ..I...TA..(T(1).5):TC.T(1).5.TA.....TB
..(T(2).5):TD.T(2).5.TB.....E..1000.500.
TC.100.TD.10.T(3).T(4).T(5).10.D...N.190
0.500.TA.100.TB.10.T(6).T(7).T(8).10._..
.T1.(N.5548.79).6371.28.~...T2.2.A(.((E.
400).6389.70)).....E.A(..(T2).(.(T1)..(T
2))).180...2.L.F.N..(T1)..(T2):N.A(N..(1
.N.N)).180...R.P.......N.N.180..5:E.E.36
0..5:L$."":T.CA:F.18:. 1020.+...T.C0:F.1
0:. 1020:T.CA:F.24:. 1020:..C...N.F.(N..
(N)):E.F.(E..(E)):L$.L$.G(.(T.E)).G(.(T.
N)).I.......1

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL