E. BRS 64
FILE INFORMATION
FILENAME(S): E. BRS 64
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
e6e756b47ed4158099d74e70e4dc89b168aa9d4b84357f50e89097c462dea410
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | E. BRS 64 | PRG | Treasure Chest - Klaus Der Suhler | 9 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 0A 00 8F 20 50 52 4F 47 52 41 4D 20 |....... PROGRAM |
00000010: 54 4F 20 47 49 56 45 20 42 45 41 52 49 4E 47 53 |TO GIVE BEARINGS|
00000020: 20 41 4E 44 20 44 49 53 54 41 4E 43 45 53 00 67 | AND DISTANCES.g|
00000030: 08 14 00 8F 20 42 45 54 57 45 45 4E 20 54 57 4F |.... BETWEEN TWO|
00000040: 20 54 57 4F 20 4B 4E 4F 57 4E 20 50 4F 49 4E 54 | TWO KNOWN POINT|
00000050: 53 20 4F 4E 20 54 48 45 20 45 41 52 54 48 53 20 |S ON THE EARTHS |
00000060: 53 55 52 46 41 43 45 00 90 08 32 00 8F 20 42 59 |SURFACE...2.. BY|
00000070: 20 44 4F 55 47 20 45 4E 47 45 4C 20 56 45 52 53 | DOUG ENGEL VERS|
00000080: 49 4F 4E 20 31 2C 20 35 2D 31 38 2D 31 39 38 33 |ION 1, 5-18-1983|
00000090: 00 A8 08 3C 00 46 31 24 B2 22 31 53 54 22 3A 46 |...<.F1$."1ST":F|
000000A0: 32 24 B2 22 32 4E 44 22 00 B3 08 46 00 99 22 93 |2$."2ND"...F..".|
000000B0: 22 3A 99 00 E3 08 48 00 99 22 23 23 23 20 20 46 |":....H.."### F|
000000C0: 4F 52 20 4F 55 54 50 55 54 20 54 4F 20 50 52 49 |OR OUTPUT TO PRI|
000000D0: 4E 54 45 52 20 45 4E 54 45 52 20 59 20 20 20 23 |NTER ENTER Y #|
000000E0: 23 23 22 00 ED 08 49 00 85 20 59 31 24 00 1D 09 |##"...I.. Y1$...|
000000F0: 4B 00 99 22 23 23 23 23 23 23 23 23 23 23 23 23 |K.."############|
00000100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000110: 23 23 23 23 23 23 23 23 23 23 23 23 22 00 49 09 |############".I.|
00000120: 64 00 99 22 4C 41 54 49 54 55 44 45 20 4D 55 53 |d.."LATITUDE MUS|
00000130: 54 20 42 45 20 30 20 54 4F 20 39 30 20 4F 52 20 |T BE 0 TO 90 OR |
00000140: 30 20 54 4F 20 2D 39 30 22 00 4F 09 69 00 99 00 |0 TO -90".O.i...|
00000150: 70 09 6E 00 99 22 4C 4F 4E 47 49 54 55 44 45 20 |p.n.."LONGITUDE |
00000160: 4D 55 53 54 20 42 45 20 30 20 54 4F 20 33 36 30 |MUST BE 0 TO 360|
00000170: 00 A0 09 73 00 99 22 23 23 23 23 23 23 23 23 23 |...s.."#########|
00000180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 22 |###############"|
000001A0: 00 E4 09 78 00 99 22 48 49 54 20 59 20 28 52 45 |...x.."HIT Y (RE|
000001B0: 54 55 52 4E 29 20 49 46 20 59 4F 55 20 57 49 53 |TURN) IF YOU WIS|
000001C0: 48 20 54 4F 20 45 4E 54 45 52 20 46 49 52 53 54 |H TO ENTER FIRST|
000001D0: 20 50 4F 53 49 54 49 4F 4E 20 4F 4E 4C 59 20 4F | POSITION ONLY O|
000001E0: 4E 43 45 22 00 EA 09 79 00 99 00 33 0A 7A 00 99 |NCE"...y...3.z..|
000001F0: 22 48 49 54 20 4E 20 28 52 45 54 55 52 4E 29 20 |"HIT N (RETURN) |
00000200: 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F 20 45 |IF YOU WISH TO E|
00000210: 4E 54 45 52 20 46 49 52 53 54 20 50 4F 53 49 54 |NTER FIRST POSIT|
00000220: 49 4F 4E 20 4D 4F 52 45 20 54 48 41 4E 20 4F 4E |ION MORE THAN ON|
00000230: 43 45 22 00 63 0A 7B 00 99 22 23 23 23 23 23 23 |CE".c.{.."######|
00000240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000260: 23 23 22 00 6C 0A 7C 00 85 20 47 24 00 9C 0A 85 |##".l.|.. G$....|
00000270: 00 99 22 23 23 23 23 23 23 23 23 23 23 23 23 23 |.."#############|
00000280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000290: 23 23 23 23 23 23 23 23 23 23 23 22 00 B7 0A 8C |###########"....|
000002A0: 00 99 22 45 4E 54 45 52 20 41 4C 4C 20 41 4E 47 |.."ENTER ALL ANG|
000002B0: 4C 45 53 20 41 53 22 00 CC 0A 8D 00 99 22 20 20 |LES AS"......" |
000002C0: 20 20 44 44 44 4D 4D 53 53 22 3A 99 00 FF 0A 8E | DDDMMSS":.....|
000002D0: 00 99 22 46 4F 52 20 45 58 41 4D 50 4C 45 20 32 |.."FOR EXAMPLE 2|
000002E0: 30 20 44 45 47 52 45 45 53 20 49 53 20 45 4E 54 |0 DEGREES IS ENT|
000002F0: 45 52 45 44 20 41 53 20 32 30 30 30 30 30 22 00 |ERED AS 200000".|
00000300: 05 0B 8F 00 99 00 41 0B 90 00 99 22 54 48 49 53 |......A...."THIS|
00000310: 20 4D 45 41 4E 53 20 32 30 20 44 45 47 52 45 45 | MEANS 20 DEGREE|
00000320: 53 2C 20 5A 45 52 4F 20 4D 49 4E 55 54 45 53 2C |S, ZERO MINUTES,|
00000330: 20 20 20 20 5A 45 52 4F 20 53 45 43 4F 4E 44 53 | ZERO SECONDS|
00000340: 22 00 47 0B 91 00 99 00 81 0B 92 00 99 22 45 4E |".G.........."EN|
00000350: 54 45 52 20 33 32 34 20 44 45 47 52 45 45 53 20 |TER 324 DEGREES |
00000360: 32 20 4D 49 4E 55 54 45 53 20 32 32 20 53 45 43 |2 MINUTES 22 SEC|
00000370: 4F 4E 44 53 20 20 41 53 20 33 32 34 30 32 32 32 |ONDS AS 3240222|
00000380: 22 00 B3 0B 93 00 99 22 12 41 4E 59 20 4F 54 48 |"......".ANY OTH|
00000390: 45 52 20 46 4F 52 4D 41 54 20 50 52 4F 44 55 43 |ER FORMAT PRODUC|
000003A0: 45 53 20 41 20 57 52 4F 4E 47 20 41 4E 53 57 45 |ES A WRONG ANSWE|
000003B0: 52 92 22 00 C6 0B 94 00 8B 20 4F 31 B2 30 20 A7 |R."...... O1.0 .|
000003C0: 20 89 20 31 35 30 00 DB 0B 95 00 8B 20 47 24 B2 | . 150...... G$.|
000003D0: 22 59 22 20 A7 20 89 20 31 36 39 00 FE 0B 96 00 |"Y" . . 169.....|
000003E0: 99 3A 8B 20 59 31 24 B2 22 59 22 20 A7 20 85 22 |.:. Y1$."Y" . ."|
000003F0: 23 31 20 4E 41 4D 45 22 3B 46 31 24 3A 99 00 15 |#1 NAME";F1$:...|
00000400: 0C 97 00 99 3A 85 22 23 31 20 4C 41 54 49 54 20 |....:."#1 LATIT |
00000410: 20 22 3B 41 31 00 1F 0C 98 00 58 31 B2 41 31 00 | ";A1.....X1.A1.|
00000420: 2A 0C 99 00 8D 20 36 30 35 30 00 34 0C 9A 00 41 |*.... 6050.4...A|
00000430: 31 B2 58 31 00 49 0C A0 00 85 22 23 31 20 4C 4F |1.X1.I...."#1 LO|
00000440: 4E 47 49 54 20 22 3B 4F 31 00 53 0C A1 00 58 31 |NGIT ";O1.S...X1|
00000450: B2 4F 31 00 5E 0C A2 00 8D 20 36 30 35 30 00 68 |.O1.^.... 6050.h|
00000460: 0C A3 00 4F 31 B2 58 31 00 7E 0C A4 00 41 31 B2 |...O1.X1.~...A1.|
00000470: 20 41 31 AD 35 37 2E 32 39 35 37 37 39 35 00 94 | A1.57.2957795..|
00000480: 0C A5 00 4F 31 B2 20 4F 31 AD 35 37 2E 32 39 35 |...O1. O1.57.295|
00000490: 37 37 39 35 00 AC 0C A7 00 41 41 B2 39 30 AD 35 |7795.....AA.90.5|
000004A0: 37 2E 32 39 35 37 37 39 35 AB 41 31 00 CB 0C A9 |7.2957795.A1....|
000004B0: 00 8B 20 59 31 24 B2 22 59 22 20 A7 20 85 22 23 |.. Y1$."Y" . ."#|
000004C0: 32 20 4E 41 4D 45 22 3B 46 32 24 00 E0 0C AA 00 |2 NAME";F2$.....|
000004D0: 85 22 23 32 20 4C 41 54 49 54 20 20 22 3B 41 32 |."#2 LATIT ";A2|
000004E0: 00 EA 0C AC 00 58 31 B2 41 32 00 F5 0C AD 00 8D |.....X1.A2......|
000004F0: 20 36 30 35 30 00 FF 0C AE 00 41 32 B2 58 31 00 | 6050.....A2.X1.|
00000500: 14 0D B4 00 85 22 23 32 20 4C 4F 4E 47 49 54 20 |....."#2 LONGIT |
00000510: 22 3B 4F 32 00 1E 0D B6 00 58 31 B2 4F 32 00 29 |";O2.....X1.O2.)|
00000520: 0D B7 00 8D 20 36 30 35 30 00 33 0D B8 00 4F 32 |.... 6050.3...O2|
00000530: B2 58 31 00 49 0D DC 00 41 32 B2 20 41 32 AD 35 |.X1.I...A2. A2.5|
00000540: 37 2E 32 39 35 37 37 39 35 00 5F 0D E6 00 4F 32 |7.2957795._...O2|
00000550: B2 20 4F 32 AD 35 37 2E 32 39 35 37 37 39 35 00 |. O2.57.2957795.|
00000560: 77 0D 18 01 42 42 B2 39 30 AD 35 37 2E 32 39 35 |w...BB.90.57.295|
00000570: 37 37 39 35 AB 41 32 00 86 0D 2C 01 43 B2 B6 28 |7795.A2...,.C..(|
00000580: 4F 31 AB 4F 32 29 00 A2 0D 30 01 8B 20 43 B1 33 |O1.O2)...0.. C.3|
00000590: 2E 31 36 20 A7 20 43 B2 32 AC 33 2E 31 34 31 38 |.16 . C.2.3.1418|
000005A0: AB 43 00 C4 0D 32 01 8B 20 43 B1 33 2E 31 32 34 |.C...2.. C.3.124|
000005B0: 20 AF 20 43 B3 20 33 2E 31 36 20 A7 20 43 B2 33 | . C. 3.16 . C.3|
000005C0: 2E 31 32 34 00 E8 0D 36 01 43 43 B2 BE 28 42 42 |.124...6.CC..(BB|
000005D0: 29 AC BE 28 41 41 29 AA BF 28 42 42 29 AC BF 28 |)..(AA)..(BB)..(|
000005E0: 41 41 29 AC BE 28 43 29 00 0F 0E 40 01 43 43 B2 |AA)..(C)...@.CC.|
000005F0: AB C1 28 43 43 AD BA 28 AB 43 43 AC 43 43 AA 31 |..(CC..(.CC.CC.1|
00000600: 29 29 AA 33 2E 31 34 31 35 39 32 36 35 AD 32 00 |)).3.14159265.2.|
00000610: 28 0E 4A 01 41 B2 28 BF 28 41 41 29 AC BF 28 43 |(.J.A.(.(AA)..(C|
00000620: 29 29 AD BF 28 43 43 29 00 50 0E 54 01 41 B2 C1 |))..(CC).P.T.A..|
00000630: 28 41 AD 28 BA 28 B6 28 AB 41 AC 41 AA 31 29 29 |(A.(.(.(.A.A.1))|
00000640: AA 2E 30 30 30 30 30 30 30 30 30 30 30 31 29 29 |..000000000001))|
00000650: 00 69 0E 5E 01 42 B2 28 BF 28 42 42 29 AC BF 28 |.i.^.B.(.(BB)..(|
00000660: 43 29 29 AD BF 28 43 43 29 00 91 0E 68 01 42 B2 |C))..(CC)...h.B.|
00000670: C1 28 42 AD 28 BA 28 B6 28 AB 42 AC 42 AA 31 29 |.(B.(.(.(.B.B.1)|
00000680: 29 AA 2E 30 30 30 30 30 30 30 30 30 30 30 31 29 |)..000000000001)|
00000690: 29 00 AD 0E 72 01 43 43 B2 33 39 35 30 AC 43 43 |)...r.CC.3950.CC|
000006A0: 3A 4B 4D B2 43 43 AC 31 2E 36 30 39 33 00 C5 0E |:KM.CC.1.6093...|
000006B0: 74 01 8B 20 59 31 24 B2 22 59 22 20 A7 20 9F 34 |t.. Y1$."Y" . .4|
000006C0: 2C 34 3A 9D 34 00 E5 0E 77 01 99 3A 99 22 2A 2A |,4:.4...w..:."**|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 2A 2A 2A 22 00 16 0F 7C 01 99 22 44 49 53 54 |****"...|.."DIST|
000006F0: 41 4E 43 45 20 49 53 20 22 43 43 22 20 4D 49 4C |ANCE IS "CC" MIL|
00000700: 45 53 20 4F 52 20 22 4B 4D 20 22 4B 49 4C 4F 4D |ES OR "KM "KILOM|
00000710: 45 54 45 52 53 22 00 27 0F 90 01 42 B2 35 37 2E |ETERS".'...B.57.|
00000720: 32 39 35 37 38 AC 42 00 38 0F 9A 01 41 B2 35 37 |29578.B.8...A.57|
00000730: 2E 32 39 35 37 38 AC 41 00 4A 0F 9D 01 54 45 B2 |.29578.A.J...TE.|
00000740: 41 3A 41 B2 42 3A 42 B2 54 45 00 70 0F A0 01 8B |A:A.B:B.TE.p....|
00000750: 4F 31 B3 B2 4F 32 20 AF 20 41 31 B3 41 32 20 A7 |O1..O2 . A1.A2 .|
00000760: 20 41 B2 33 36 30 AB 41 3A 42 B2 31 38 30 AB 42 | A.360.A:B.180.B|
00000770: 00 8E 0F A1 01 8B 4F 31 B3 B2 4F 32 20 AF 20 41 |......O1..O2 . A|
00000780: 31 B1 41 32 20 A7 20 41 B2 31 38 30 AA 41 00 C4 |1.A2 . A.180.A..|
00000790: 0F A3 01 8B 20 41 31 B2 41 32 20 AF 20 4F 31 B2 |.... A1.A2 . O1.|
000007A0: 4F 32 20 A7 20 99 22 59 4F 55 20 43 41 4E 27 54 |O2 . ."YOU CAN'T|
000007B0: 20 42 45 20 53 45 52 49 4F 55 53 2E 2E 2E 22 3A | BE SERIOUS...":|
000007C0: A0 34 3A 80 00 E2 0F A4 01 8B 20 4F 31 B3 4F 32 |.4:....... O1.O2|
000007D0: 20 AF 20 41 31 B2 41 32 20 A7 20 41 B2 33 36 30 | . A1.A2 . A.360|
000007E0: AB 41 00 00 10 A6 01 8B 20 4F 31 B1 4F 32 20 AF |.A...... O1.O2 .|
000007F0: 20 41 31 B2 41 32 20 A7 20 42 B2 33 36 30 AB 42 | A1.A2 . B.360.B|
00000800: 00 26 10 A8 01 8B 20 4F 31 B1 4F 32 20 AF 20 41 |.&.... O1.O2 . A|
00000810: 31 B1 41 32 20 A7 20 42 B2 33 36 30 AB 42 3A 41 |1.A2 . B.360.B:A|
00000820: B2 31 38 30 AB 41 00 44 10 A9 01 8B 20 4F 31 B1 |.180.A.D.... O1.|
00000830: 4F 32 20 AF 20 41 31 B3 41 32 20 A7 20 42 B2 31 |O2 . A1.A2 . B.1|
00000840: 38 30 AA 42 00 68 10 AB 01 8B 20 B6 28 4F 31 AB |80.B.h.... .(O1.|
00000850: 4F 32 29 B1 33 2E 31 36 20 A7 20 54 45 B2 41 3A |O2).3.16 . TE.A:|
00000860: 41 B2 42 3A 42 B2 54 45 00 6E 10 B3 01 99 00 8B |A.B:B.TE.n......|
00000870: 10 B5 01 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...."***********|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 BF 10 B8 01 |**********".....|
00000890: 99 22 42 45 41 52 49 4E 47 20 22 46 31 24 3B 22 |."BEARING "F1$;"|
000008A0: 20 54 4F 20 22 46 32 24 3B 22 20 4E 20 22 41 22 | TO "F2$;" N "A"|
000008B0: 20 44 45 47 20 43 4C 4F 43 4B 57 49 53 45 22 00 | DEG CLOCKWISE".|
000008C0: C5 10 BD 01 99 00 F9 10 C2 01 99 22 42 45 41 52 |..........."BEAR|
000008D0: 49 4E 47 20 22 46 32 24 3B 22 20 54 4F 20 22 46 |ING "F2$;" TO "F|
000008E0: 31 24 3B 22 20 4E 20 22 42 22 20 44 45 47 20 43 |1$;" N "B" DEG C|
000008F0: 4C 4F 43 4B 57 49 53 45 22 00 16 11 C5 01 99 22 |LOCKWISE"......"|
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000910: 2A 2A 2A 2A 2A 22 00 20 11 C6 01 99 3A 99 3A 99 |*****". ....:.:.|
00000920: 00 28 11 C7 01 99 3A 99 00 3E 11 CC 01 8B 20 59 |.(....:..>.... Y|
00000930: 31 24 B2 22 59 22 20 A7 20 98 34 3A A0 34 00 44 |1$."Y" . .4:.4.D|
00000940: 11 D6 01 99 00 70 11 F4 01 99 22 45 4E 54 45 52 |.....p...."ENTER|
00000950: 20 45 20 54 4F 20 45 4E 44 2C 20 52 45 54 55 52 | E TO END, RETUR|
00000960: 4E 20 54 4F 20 44 4F 20 41 4E 4F 54 48 45 52 22 |N TO DO ANOTHER"|
00000970: 00 79 11 F9 01 85 20 45 24 00 8F 11 FE 01 8B 20 |.y.... E$...... |
00000980: 45 24 B2 22 45 22 20 A7 20 89 20 36 30 30 30 00 |E$."E" . . 6000.|
00000990: 99 11 08 02 89 20 31 34 39 00 9F 11 70 17 80 00 |..... 149...p...|
000009A0: B0 11 A2 17 58 31 25 B2 58 31 AC 2E 30 30 30 31 |....X1%.X1..0001|
000009B0: 00 C4 11 A4 17 58 32 B2 58 31 AC 2E 30 30 30 31 |.....X2.X1..0001|
000009C0: AB 58 31 25 00 D3 11 A6 17 58 32 25 B2 58 32 AC |.X1%.....X2%.X2.|
000009D0: 31 30 30 00 E1 11 A8 17 58 32 B2 58 32 25 AD 36 |100.....X2.X2%.6|
000009E0: 30 00 1D 12 AA 17 58 33 B2 58 31 AC 2E 30 30 30 |0.....X3.X1..000|
000009F0: 31 AB 58 31 25 3A 58 33 25 B2 58 33 AC 31 30 30 |1.X1%:X3%.X3.100|
00000A00: 3A 58 33 B2 58 33 AC 31 30 30 AB 58 33 25 3A 58 |:X3.X3.100.X3%:X|
00000A10: 33 B2 58 33 AC 31 30 30 AD 33 36 30 30 00 2E 12 |3.X3.100.3600...|
00000A20: AC 17 58 31 B2 58 31 25 AA 58 32 AA 58 33 00 34 |..X1.X1%.X2.X3.4|
00000A30: 12 C0 17 8E 00 00 00 |....... |
....... PROGRAM TO GIVE BEARINGS AND DIS
TANCES.G.... BETWEEN TWO TWO KNOWN POINT
S ON THE EARTHS SURFACE...2.. BY DOUG EN
GEL VERSION 1, 5-18-1983...<.F1$."1ST":F
2$."2ND"...F..".":....H.."### FOR OUTPU
T TO PRINTER ENTER Y ###"...I.. Y1$...
K.."####################################
####".I.D.."LATITUDE MUST BE 0 TO 90 OR
0 TO -90".O.I...P.N.."LONGITUDE MUST BE
0 TO 360. .S.."#########################
###############"...X.."HIT Y (RETURN) IF
YOU WISH TO ENTER FIRST POSITION ONLY O
NCE"...Y...3.Z.."HIT N (RETURN) IF YOU W
ISH TO ENTER FIRST POSITION MORE THAN ON
CE".C.{.."##############################
##########".L.|.. G$......"#############
###########################"......"ENTER
ALL ANGLES AS".L...." DDDMMSS":.....
.."FOR EXAMPLE 20 DEGREES IS ENTERED AS
200000".......A...."THIS MEANS 20 DEGREE
S, ZERO MINUTES, ZERO SECONDS".G.....
....."ENTER 324 DEGREES 2 MINUTES 22 SEC
ONDS AS 3240222"......".ANY OTHER FORMA
T PRODUCES A WRONG ANSWER.".F.... O1.0 .
. 150...... G$."Y" . . 169......:. Y1$.
"Y" . ."#1 NAME";F1$:.......:."#1 LATIT
";A1.....X1.A1.*.... 6050.4...A1.X1.I.
.."#1 LONGIT ";O1.S...X1.O1.^.... 6050.H
...O1.X1.~...A1. A1.57.2957795.....O1. O
1.57.2957795.....AA.90.57.2957795.A1.K..
.. Y1$."Y" . ."#2 NAME";F2$......"#2 LAT
IT ";A2.....X1.A2...... 6050.....A2.X1.
....."#2 LONGIT ";O2.....X1.O2.).... 605
0.3...O2.X1.I...A2. A2.57.2957795._...O2
. O2.57.2957795.W...BB.90.57.2957795.A2.
..,.C..(O1.O2)...0.. C.3.16 . C.2.3.1418
.C.D.2.. C.3.124 . C. 3.16 . C.3.124...6
.CC..(BB)..(AA)..(BB)..(AA)..(C)...@.CC.
.A(CC..(.CC.CC.1)).3.14159265.2.(.J.A.(.
(AA)..(C))..(CC).P.T.A.A(A.(.(.(.A.A.1))
..000000000001)).I.^.B.(.(BB)..(C))..(CC
)...H.B.A(B.(.(.(.B.B.1))..000000000001)
)...R.CC.3950.CC:KM.CC.1.6093.E.T.. Y1$.
"Y" . .4,4:.4...W..:."******************
****"...|.."DISTANCE IS "CC" MILES OR "K
M "KILOMETERS".'...B.57.29578.B.8...A.57
.29578.A.J...TE.A:A.B:B.TE.P. ..O1..O2 .
A1.A2 . A.360.A:B.180.B......O1..O2 . A
1.A2 . A.180.A.D.... A1.A2 . O1.O2 . ."Y
OU CAN'T BE SERIOUS...": 4:....... O1.O2
. A1.A2 . A.360.A...... O1.O2 . A1.A2 .
B.360.B.&.... O1.O2 . A1.A2 . B.360.B:A
.180.A.D.... O1.O2 . A1.A2 . B.180.B.H..
.. .(O1.O2).3.16 . TE.A:A.B:B.TE.N......
...."*********************"......"BEARIN
G "F1$;" TO "F2$;" N "A" DEG CLOCKWISE".
E.......B.."BEARING "F2$;" TO "F1$;" N "
B" DEG CLOCKWISE"...E.."****************
*****". .F..:.:..(.G..:..>.L.. Y1$."Y" .
.4: 4.D.V...P...."ENTER E TO END, RETUR
N TO DO ANOTHER".Y.... E$...... E$."E" .
. 6000...... 149...P.......X1%.X1..0001
.D...X2.X1..0001.X1%.S...X2%.X2.100.....
X2.X2%.60.....X3.X1..0001.X1%:X3%.X3.100
:X3.X3.100.X3%:X3.X3.100.3600.....X1.X1%
.X2.X3.4.......
> CLICK IMAGE PREVIEW FOR FULL MODAL