RECHNER

FILE INFORMATION

FILENAME(S): RECHNER

FILE TYPE(S): PRG

FILE SIZE: 816b

FIRST SEEN: 2025-12-02 22:47:20

APPEARS ON: 1 disk(s)

FILE HASH

21d8a07910e827de95342b4916686ff8fddb7692e4973bb901025b6e60473f21

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
ASTROLOGIE	RECHNER	PRG	swasti, charly	21	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 2A 08 0A 00 99 22  93 20 20 20 20 20 20 20  |..*....".       |
00000010: 20 20 12 20 47 45 4F 2D  4C 41 47 45 4E 2D 42 45  |  . GEO-LAGEN-BE|
00000020: 52 45 43 48 4E 55 4E 47  20 92 00 53 08 14 00 85  |RECHNUNG ..S....|
00000030: 22 11 11 20 57 49 45 56  49 45 4C 20 47 52 41 44  |".. WIEVIEL GRAD|
00000040: 20 41 42 53 54 41 4E 44  20 4C 41 45 4E 47 45 22  | ABSTAND LAENGE"|
00000050: 3B 41 31 00 7B 08 19 00  85 22 11 20 57 49 45 56  |;A1.{....". WIEV|
00000060: 49 45 4C 20 47 52 41 44  20 41 42 53 54 41 4E 44  |IEL GRAD ABSTAND|
00000070: 20 42 52 45 49 54 45 22  3B 41 32 00 A2 08 1E 00  | BREITE";A2.....|
00000080: 85 22 11 11 20 57 49 45  56 49 45 4C 20 4D 49 4C  |.".. WIEVIEL MIL|
00000090: 4C 49 4D 45 54 45 52 20  4C 41 45 4E 47 45 22 3B  |LIMETER LAENGE";|
000000A0: 4D 31 00 C8 08 23 00 85  22 11 20 57 49 45 56 49  |M1...#..". WIEVI|
000000B0: 45 4C 20 4D 49 4C 4C 49  4D 45 54 45 52 20 42 52  |EL MILLIMETER BR|
000000C0: 45 49 54 45 22 3B 4D 32  00 E8 08 28 00 54 31 B2  |EITE";M2...(.T1.|
000000D0: 41 31 AC 33 36 30 30 AD  4D 31 3A 54 32 B2 41 32  |A1.3600.M1:T2.A2|
000000E0: AC 33 36 30 30 AD 4D 32  00 11 09 32 00 99 22 93  |.3600.M2...2..".|
000000F0: 20 20 20 20 20 20 20 20  20 12 20 47 45 4F 2D 4C  |         . GEO-L|
00000100: 41 47 45 4E 2D 42 45 52  45 43 48 4E 55 4E 47 20  |AGEN-BERECHNUNG |
00000110: 92 00 2F 09 3C 00 85 22  11 11 20 57 49 45 56 49  |../.<..".. WIEVI|
00000120: 45 4C 20 4D 4D 20 4C 41  45 4E 47 45 22 3B 4C 00  |EL MM LAENGE";L.|
00000130: 4C 09 46 00 85 22 11 20  57 49 45 56 49 45 4C 20  |L.F..". WIEVIEL |
00000140: 4D 4D 20 42 52 45 49 54  45 22 3B 42 00 96 09 50  |MM BREITE";B...P|
00000150: 00 4C 31 B2 B5 28 4C AC  54 31 AD 33 36 30 30 29  |.L1..(L.T1.3600)|
00000160: 3A 4C 32 B2 B5 28 28 4C  AC 54 31 AB 4C 31 AC 33  |:L2..((L.T1.L1.3|
00000170: 36 30 30 29 AD 36 30 29  3A 4C 33 B2 B5 28 28 4C  |600).60):L3..((L|
00000180: AC 54 31 AB 4C 31 AC 33  36 30 30 AB 4C 32 AC 36  |.T1.L1.3600.L2.6|
00000190: 30 29 AA 2E 35 29 00 E0  09 5A 00 42 31 B2 B5 28  |0)..5)...Z.B1..(|
000001A0: 42 AC 54 32 AD 33 36 30  30 29 3A 42 32 B2 B5 28  |B.T2.3600):B2..(|
000001B0: 28 42 AC 54 32 AB 42 31  AC 33 36 30 30 29 AD 36  |(B.T2.B1.3600).6|
000001C0: 30 29 3A 42 33 B2 B5 28  28 42 AC 54 32 AB 42 31  |0):B3..((B.T2.B1|
000001D0: AC 33 36 30 30 AB 42 32  AC 36 30 29 AA 2E 35 29  |.3600.B2.60)..5)|
000001E0: 00 03 0A 64 00 99 22 11  11 11 20 4C 41 45 4E 47  |...d.."... LAENG|
000001F0: 45 20 3D 20 4F 52 47 49  4E 41 4C 4C 41 45 4E 47  |E = ORGINALLAENG|
00000200: 45 20 2B 00 25 0A 69 00  99 22 11 20 22 4C 31 22  |E +.%.i..". "L1"|
00000210: 47 52 41 44 20 22 4C 32  22 4D 49 4E 20 22 4C 33  |GRAD "L2"MIN "L3|
00000220: 22 53 45 43 22 00 46 0A  6E 00 99 22 11 20 42 52  |"SEC".F.n..". BR|
00000230: 45 49 54 45 20 3D 20 4F  52 47 49 4E 41 4C 42 52  |EITE = ORGINALBR|
00000240: 45 49 54 45 20 2B 00 68  0A 73 00 99 22 11 20 22  |EITE +.h.s..". "|
00000250: 42 31 22 47 52 41 44 20  22 42 32 22 4D 49 4E 20  |B1"GRAD "B2"MIN |
00000260: 22 42 33 22 53 45 43 22  00 99 0A 78 00 99 22 11  |"B3"SEC"...x..".|
00000270: 11 11 20 4E 4F 43 48 20  45 49 4E 4D 41 4C 20 4D  |.. NOCH EINMAL M|
00000280: 49 54 20 53 45 4C 42 45  4E 20 41 42 53 54 41 45  |IT SELBEN ABSTAE|
00000290: 4E 44 45 4E 20 2D 3E 20  4E 00 C2 0A 79 00 99 22  |NDEN -> N...y.."|
000002A0: 11 20 4E 4F 43 48 20 45  49 4E 4D 41 4C 20 41 4E  |. NOCH EINMAL AN|
000002B0: 44 45 52 45 52 20 41 42  53 54 41 4E 44 20 2D 3E  |DERER ABSTAND ->|
000002C0: 20 41 00 E1 0A 7A 00 99  22 11 20 44 49 45 20 53  | A...z..". DIE S|
000002D0: 41 43 48 45 20 42 45 45  4E 44 45 4E 20 2D 3E 20  |ACHE BEENDEN -> |
000002E0: 45 00 F4 0A 82 00 A1 41  24 3A 8B 41 24 B2 22 22  |E......A$:.A$.""|
000002F0: A7 31 33 30 00 03 0B 84  00 8B 41 24 B2 22 4E 22  |.130......A$."N"|
00000300: A7 35 30 00 11 0B 85 00  8B 41 24 B2 22 41 22 A7  |.50......A$."A".|
00000310: 8A 00 22 0B 86 00 8B 41  24 B3 B1 22 45 22 A7 31  |.."....A$.."E".1|
00000320: 33 30 00 2D 0B 8C 00 99  22 93 22 3A 80 00 00 00  |30.-....".":....|

..*....".         . GEO-LAGEN-BERECHNUNG
 ..S....".. WIEVIEL GRAD ABSTAND LAENGE"
;A1.{....". WIEVIEL GRAD ABSTAND BREITE"
;A2......".. WIEVIEL MILLIMETER LAENGE";
M1.H.#..". WIEVIEL MILLIMETER BREITE";M2
...(.T1.A1.3600.M1:T2.A2.3600.M2...2..".
         . GEO-LAGEN-BERECHNUNG ../.<.."
.. WIEVIEL MM LAENGE";L.L.F..". WIEVIEL 
MM BREITE";B...P.L1..(L.T1.3600):L2..((L
.T1.L1.3600).60):L3..((L.T1.L1.3600.L2.6
0)..5)...Z.B1..(B.T2.3600):B2..((B.T2.B1
.3600).60):B3..((B.T2.B1.3600.B2.60)..5)
...D.."... LAENGE = ORGINALLAENGE +.%.I.
.". "L1"GRAD "L2"MIN "L3"SEC".F.N..". BR
EITE = ORGINALBREITE +.H.S..". "B1"GRAD 
"B2"MIN "B3"SEC"...X.."... NOCH EINMAL M
IT SELBEN ABSTAENDEN -> N.B.Y..". NOCH E
INMAL ANDERER ABSTAND -> A...Z..". DIE S
ACHE BEENDEN -> E......A$:.A$."".130....
..A$."N".50......A$."A"..."....A$.."E".1
30.-....".":....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL