ANGLE

FILE INFORMATION

FILENAME(S): ANGLE

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-10-20 14:30:51

APPEARS ON: 1 disk(s)

FILE HASH

2f46ae4f96f502d9fbdb66376779af253341f8ab9c41bef6a84ee237dec6b6dc

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
0047ED	ANGLE	PRG	Treasure Chest - Klaus Der Suhler	24	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 1C 1C 64 00 99 C7  28 31 34 37 29 3A 8F 20  |....d...(147):. |
00000010: 43 4C 45 41 52 20 53 43  52 45 45 4E 00 4A 1C 6E  |CLEAR SCREEN.J.n|
00000020: 00 99 3A 99 22 20 53 4F  4D 45 54 49 4D 45 53 20  |..:." SOMETIMES |
00000030: 49 54 20 49 53 20 4F 46  20 49 4E 54 45 52 45 53  |IT IS OF INTERES|
00000040: 54 20 54 4F 20 4B 4E 4F  57 22 00 79 1C 78 00 99  |T TO KNOW".y.x..|
00000050: 3A 99 22 20 54 48 45 20  41 4E 47 4C 45 20 42 45  |:." THE ANGLE BE|
00000060: 54 57 45 45 4E 20 54 57  4F 20 4F 42 4A 45 43 54  |TWEEN TWO OBJECT|
00000070: 53 20 49 4E 20 54 48 45  22 00 A9 1C 82 00 99 3A  |S IN THE"......:|
00000080: 99 22 20 53 4B 59 2E 20  20 54 48 49 53 20 43 41  |." SKY.  THIS CA|
00000090: 4E 20 42 45 20 43 41 4C  43 55 4C 41 54 45 44 20  |N BE CALCULATED |
000000A0: 49 46 20 54 48 45 49 52  22 00 D5 1C 8C 00 99 3A  |IF THEIR"......:|
000000B0: 99 22 20 45 51 55 41 54  4F 52 49 41 4C 20 43 4F  |." EQUATORIAL CO|
000000C0: 4F 52 44 49 4E 41 54 45  53 20 41 52 45 20 4B 4E  |ORDINATES ARE KN|
000000D0: 4F 57 4E 2E 22 00 F1 1C  96 00 99 3A 99 3A 99 3A  |OWN."......:.:.:|
000000E0: 99 3A 99 3A 99 3A 99 3A  99 3A 99 3A 99 3A 99 3A  |.:.:.:.:.:.:.:.:|
000000F0: 99 00 35 1D A0 00 99 22  20 20 20 20 20 20 20 20  |..5...."        |
00000100: 22 3B C7 28 31 38 29 3B  22 48 49 54 20 41 4E 59  |";.(18);"HIT ANY|
00000110: 20 4B 45 59 20 54 4F 20  43 4F 4E 54 49 4E 55 45  | KEY TO CONTINUE|
00000120: 22 3A 8F 20 52 45 56 45  52 53 45 20 43 48 41 52  |":. REVERSE CHAR|
00000130: 41 43 54 45 52 00 4C 1D  AA 00 A1 20 41 24 3A 8B  |ACTER.L.... A$:.|
00000140: 20 41 24 B2 22 22 20 A7  20 31 37 30 00 85 1D B4  | A$."" . 170....|
00000150: 00 99 C7 28 31 34 37 29  3A 99 3A 99 22 20 45 4E  |...(147):.:." EN|
00000160: 54 45 52 20 54 48 45 20  52 49 47 48 54 20 41 53  |TER THE RIGHT AS|
00000170: 43 45 4E 53 49 4F 4E 20  4F 46 20 4F 42 4A 45 43  |CENSION OF OBJEC|
00000180: 54 20 23 31 22 00 B5 1D  BE 00 99 3A 85 20 22 20  |T #1"......:. " |
00000190: 49 4E 20 48 4F 55 52 53  2C 20 4D 49 4E 55 54 45  |IN HOURS, MINUTE|
000001A0: 53 2C 20 53 45 43 4F 4E  44 53 3A 22 3B 48 31 2C  |S, SECONDS:";H1,|
000001B0: 4D 31 2C 53 31 00 E7 1D  C8 00 99 3A 99 3A 99 22  |M1,S1......:.:."|
000001C0: 20 45 4E 54 45 52 20 54  48 45 20 44 45 43 4C 49  | ENTER THE DECLI|
000001D0: 4E 41 54 49 4F 4E 20 4F  46 20 4F 42 4A 45 43 54  |NATION OF OBJECT|
000001E0: 20 23 31 20 49 4E 22 00  16 1E D2 00 99 3A 85 20  | #1 IN"......:. |
000001F0: 22 20 44 45 47 52 45 45  53 2C 20 4D 49 4E 55 54  |" DEGREES, MINUT|
00000200: 45 53 2C 20 53 45 43 4F  4E 44 53 3A 22 3B 44 32  |ES, SECONDS:";D2|
00000210: 2C 4D 32 2C 53 32 00 49  1E DC 00 99 3A 99 3A 99  |,M2,S2.I....:.:.|
00000220: 22 20 45 4E 54 45 52 20  54 48 45 20 52 49 47 48  |" ENTER THE RIGH|
00000230: 54 20 41 53 43 45 4E 53  49 4F 4E 20 4F 46 20 4F  |T ASCENSION OF O|
00000240: 42 4A 45 43 54 20 23 32  22 00 79 1E E6 00 99 3A  |BJECT #2".y....:|
00000250: 85 20 22 20 49 4E 20 48  4F 55 52 53 2C 20 4D 49  |. " IN HOURS, MI|
00000260: 4E 55 54 45 53 2C 20 53  45 43 4F 4E 44 53 3A 22  |NUTES, SECONDS:"|
00000270: 3B 48 33 2C 4D 33 2C 53  33 00 A8 1E F0 00 99 3A  |;H3,M3,S3......:|
00000280: 99 3A 99 22 20 45 4E 54  45 52 20 54 48 45 20 44  |.:." ENTER THE D|
00000290: 45 43 4C 49 4E 41 54 49  4F 4E 20 4F 46 20 4F 42  |ECLINATION OF OB|
000002A0: 4A 45 43 54 20 23 32 22  00 D5 1E FA 00 85 20 22  |JECT #2"...... "|
000002B0: 20 44 45 47 52 45 45 53  2C 20 4D 49 4E 55 54 45  | DEGREES, MINUTE|
000002C0: 53 2C 20 53 45 43 4F 4E  44 53 3A 22 3B 44 34 2C  |S, SECONDS:";D4,|
000002D0: 4D 34 2C 53 34 00 F4 1E  04 01 8B 20 44 32 20 B3  |M4,S4...... D2 .|
000002E0: 20 30 20 A7 20 4D 32 B2  AB 4D 32 20 3A 20 53 32  | 0 . M2..M2 : S2|
000002F0: B2 AB 53 32 00 13 1F 0E  01 8B 20 44 34 20 B3 20  |..S2...... D4 . |
00000300: 30 20 A7 20 4D 34 B2 AB  4D 34 20 3A 20 53 34 B2  |0 . M4..M4 : S4.|
00000310: AB 53 34 00 2B 1F 18 01  52 35 B2 48 31 AA 4D 31  |.S4.+...R5.H1.M1|
00000320: AD 36 30 AA 53 31 AD 33  36 30 30 00 43 1F 22 01  |.60.S1.3600.C.".|
00000330: 52 36 B2 48 33 AA 4D 33  AD 36 30 AA 53 33 AD 33  |R6.H3.M3.60.S3.3|
00000340: 36 30 30 00 5B 1F 2C 01  44 35 B2 44 32 AA 4D 32  |600.[.,.D5.D2.M2|
00000350: AD 36 30 AA 53 32 AD 33  36 30 30 00 73 1F 36 01  |.60.S2.3600.s.6.|
00000360: 44 36 B2 44 34 AA 4D 34  AD 36 30 AA 53 34 AD 33  |D6.D4.M4.60.S4.3|
00000370: 36 30 30 00 93 1F 40 01  8B 20 52 35 B2 52 36 20  |600...@.. R5.R6 |
00000380: AF 20 44 35 B2 44 36 20  A7 20 46 B2 30 3A 89 20  |. D5.D6 . F.0:. |
00000390: 34 31 30 00 AA 1F 4A 01  58 B2 28 52 35 AB 52 36  |410...J.X.(R5.R6|
000003A0: 29 AC 31 35 AC FF AD 31  38 30 00 B9 1F 54 01 59  |).15...180...T.Y|
000003B0: B2 44 35 AC FF AD 31 38  30 00 C8 1F 5E 01 5A B2  |.D5...180...^.Z.|
000003C0: 44 36 AC FF AD 31 38 30  00 E7 1F 68 01 4D B2 BF  |D6...180...h.M..|
000003D0: 28 5A 29 AC BF 28 59 29  AA BE 28 5A 29 AC BE 28  |(Z)..(Y)..(Z)..(|
000003E0: 59 29 AC BE 28 58 29 00  09 20 72 01 46 B2 28 AB  |Y)..(X).. r.F.(.|
000003F0: C1 28 4D AD BA 28 AB 4D  AC 4D AA 31 29 29 AA FF  |.(M..(.M.M.1))..|
00000400: AD 32 29 AC 31 38 30 AD  FF 00 15 20 7C 01 46 31  |.2).180.... |.F1|
00000410: B2 B5 28 46 29 00 26 20  86 01 46 32 B2 28 46 AB  |..(F).& ..F2.(F.|
00000420: 46 31 29 AC 36 30 00 42  20 90 01 46 33 B2 B5 28  |F1).60.B ..F3..(|
00000430: 28 46 32 AB B5 28 46 32  29 29 AC 36 30 AA 30 2E  |(F2..(F2)).60.0.|
00000440: 35 29 00 4C 20 9A 01 99  3A 99 3A 99 00 82 20 A4  |5).L ...:.:... .|
00000450: 01 99 22 20 41 4E 47 4C  45 20 49 53 20 3A 20 22  |.." ANGLE IS : "|
00000460: 3B 46 31 3B 22 44 45 47  20 20 22 3B B5 28 46 32  |;F1;"DEG  ";.(F2|
00000470: 29 3B 22 4D 49 4E 20 20  22 3B 46 33 3B 22 53 45  |);"MIN  ";F3;"SE|
00000480: 43 22 00 00 00                                    |C"...           |

....D..G(147):. CLEAR SCREEN.J.N..:." SO
METIMES IT IS OF INTEREST TO KNOW".Y.X..
:." THE ANGLE BETWEEN TWO OBJECTS IN THE
"......:." SKY.  THIS CAN BE CALCULATED 
IF THEIR".U....:." EQUATORIAL COORDINATE
S ARE KNOWN."......:.:.:.:.:.:.:.:.:.:.:
..5. .."        ";G(18);"HIT ANY KEY TO 
CONTINUE":. REVERSE CHARACTER.L.... A$:.
 A$."" . 170......G(147):.:." ENTER THE 
RIGHT ASCENSION OF OBJECT #1"......:. " 
IN HOURS, MINUTES, SECONDS:";H1,M1,S1...
H..:.:." ENTER THE DECLINATION OF OBJECT
 #1 IN"...R..:. " DEGREES, MINUTES, SECO
NDS:";D2,M2,S2.I....:.:." ENTER THE RIGH
T ASCENSION OF OBJECT #2".Y....:. " IN H
OURS, MINUTES, SECONDS:";H3,M3,S3......:
.:." ENTER THE DECLINATION OF OBJECT #2"
.U.... " DEGREES, MINUTES, SECONDS:";D4,
M4,S4...... D2 . 0 . M2..M2 : S2..S2....
.. D4 . 0 . M4..M4 : S4..S4.+...R5.H1.M1
.60.S1.3600.C.".R6.H3.M3.60.S3.3600.[.,.
D5.D2.M2.60.S2.3600.S.6.D6.D4.M4.60.S4.3
600...@.. R5.R6 . D5.D6 . F.0:. 410...J.
X.(R5.R6).15...180...T.Y.D5...180.H.^.Z.
D6...180...H.M..(Z)..(Y)..(Z)..(Y)..(X).
. R.F.(.A(M..(.M.M.1))...2).180.... |.F1
..(F).& ..F2.(F.F1).60.B ..F3..((F2..(F2
)).60.0.5).L ...:.:... ..." ANGLE IS : "
;F1;"DEG  ";.(F2);"MIN  ";F3;"SEC"...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL