WOCHENTAG

FILE INFORMATION

FILENAME(S): WOCHENTAG

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-11-30 01:12:32

APPEARS ON: 1 disk(s)

FILE HASH

5dc1e12fe08b303ff3029f0d596e1fbf3df4d619c2458be1a7ba5e50d442f5a9

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MASTER SH8 86	WOCHENTAG	PRG	C64er	15	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 10 34 10 0A 00 8F 20  20 20 45 52 4D 49 54 54  |..4....   ERMITT|
00000010: 4C 55 4E 47 20 44 45 52  20 57 4F 43 48 45 4E 54  |LUNG DER WOCHENT|
00000020: 41 47 45 20 20 20 20 56  4F 4E 20 20 4A 2E 20 48  |AGE    VON  J. H|
00000030: 41 47 45 4E 00 84 10 1E  00 42 24 B2 22 53 41 4D  |AGEN.....B$."SAM|
00000040: 53 54 41 47 20 20 20 53  4F 4E 4E 54 41 47 20 20  |STAG   SONNTAG  |
00000050: 20 4D 4F 4E 54 41 47 20  20 20 20 44 49 45 4E 53  | MONTAG    DIENS|
00000060: 54 41 47 20 20 4D 49 54  54 57 4F 43 48 20 20 44  |TAG  MITTWOCH  D|
00000070: 4F 4E 4E 45 52 53 54 41  47 46 52 45 49 54 41 47  |ONNERSTAGFREITAG|
00000080: 20 20 20 22 00 B0 10 28  00 50 24 B2 22 20 20 20  |   "...(.P$."   |
00000090: 20 20 20 20 20 22 3A 41  24 B2 50 24 3A 4F 24 B2  |     ":A$.P$:O$.|
000000A0: C7 28 31 34 35 29 3A 4C  24 B2 C7 28 31 35 37 29  |.(145):L$..(157)|
000000B0: 00 CE 10 3C 00 E8 3A 99  3A 99 3A 85 22 20 20 20  |...<..:.:.:."   |
000000C0: 20 20 4E 4F 54 49 5A 20  3A 20 22 3B 41 24 00 D4  |  NOTIZ : ";A$..|
000000D0: 10 5A 00 EB 00 F5 10 64  00 E8 3A 44 24 B2 22 54  |.Z.....d..:D$."T|
000000E0: 54 2E 4D 4D 2E 4A 4A 4A  4A 22 3A 99 3A 99 22 20  |T.MM.JJJJ":.:." |
000000F0: 22 3B 41 24 3B 00 2D 11  82 00 99 20 A3 33 31 29  |";A$;.-.... .31)|
00000100: 20 CA 28 54 49 24 2C 31  2C 32 29 3B 22 3A 22 3B  | .(TI$,1,2);":";|
00000110: CA 28 54 49 24 2C 33 2C  32 29 3B 22 3A 22 3B CA  |.(TI$,3,2);":";.|
00000120: 28 54 49 24 2C 35 2C 32  29 3A 99 3A 99 00 54 11  |(TI$,5,2):.:..T.|
00000130: B4 00 99 20 A3 30 37 29  22 45 52 4D 49 54 54 4C  |... .07)"ERMITTL|
00000140: 55 4E 47 20 44 45 53 20  57 4F 43 48 45 4E 54 41  |UNG DES WOCHENTA|
00000150: 47 45 53 22 00 83 11 BE  00 99 20 A3 30 36 29 22  |GES"...... .06)"|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000170: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 22 3A 99 3A  |============":.:|
00000180: 99 3A 99 00 9E 11 D2 00  99 3A 99 20 A3 31 31 29  |.:.......:. .11)|
00000190: 22 44 41 54 55 4D 20 20  20 22 3B 44 24 3B 00 B7  |"DATUM   ";D$;..|
000001A0: 11 E6 00 81 20 58 B2 31  20 A4 20 31 32 3A 99 20  |.... X.1 . 12:. |
000001B0: 4C 24 3B 3A 82 20 58 00  C0 11 04 01 85 20 44 24  |L$;:. X...... D$|
000001C0: 00 D8 11 0E 01 CA 28 50  24 2C 31 2C 32 29 B2 CA  |......(P$,1,2)..|
000001D0: 28 44 24 2C 31 2C 32 29  00 F0 11 18 01 CA 28 50  |(D$,1,2)......(P|
000001E0: 24 2C 33 2C 32 29 B2 CA  28 44 24 2C 34 2C 32 29  |$,3,2)..(D$,4,2)|
000001F0: 00 08 12 22 01 CA 28 50  24 2C 35 2C 34 29 B2 CA  |..."..(P$,5,4)..|
00000200: 28 44 24 2C 37 2C 34 29  00 16 12 2C 01 81 20 4B  |(D$,7,4)...,.. K|
00000210: B2 31 20 A4 20 37 00 48  12 36 01 8B 20 C6 28 CA  |.1 . 7.H.6.. .(.|
00000220: 28 50 24 2C 4B 2C 31 29  29 20 B3 20 34 38 20 B0  |(P$,K,1)) . 48 .|
00000230: 20 C6 28 CA 28 50 24 2C  4B 2C 31 29 29 20 B1 20  | .(.(P$,K,1)) . |
00000240: 35 37 20 A7 20 37 34 30  00 50 12 40 01 82 20 4B  |57 . 740.P.@.. K|
00000250: 00 63 12 4A 01 54 B2 C5  28 CA 28 50 24 2C 31 2C  |.c.J.T..(.(P$,1,|
00000260: 32 29 29 00 76 12 54 01  4D B2 C5 28 CA 28 50 24  |2)).v.T.M..(.(P$|
00000270: 2C 33 2C 32 29 29 00 89  12 5E 01 4A B2 C5 28 CA  |,3,2))...^.J..(.|
00000280: 28 50 24 2C 35 2C 34 29  29 00 9C 12 68 01 8B 20  |(P$,5,4))...h.. |
00000290: 4A B3 31 35 38 32 20 A7  20 37 34 30 00 B3 12 72  |J.1582 . 740...r|
000002A0: 01 8B 20 4D B3 31 20 B0  20 4D B1 31 32 20 A7 20  |.. M.1 . M.12 . |
000002B0: 37 34 30 00 CA 12 7C 01  8B 20 54 B3 31 20 B0 20  |740...|.. T.1 . |
000002C0: 54 B1 33 31 20 A7 20 37  34 30 00 E1 12 86 01 8B  |T.31 . 740......|
000002D0: 20 4D B2 34 20 AF 20 54  B1 33 30 20 A7 20 37 34  | M.4 . T.30 . 74|
000002E0: 30 00 F8 12 90 01 8B 20  4D B2 36 20 AF 20 54 B1  |0...... M.6 . T.|
000002F0: 33 30 20 A7 20 37 34 30  00 0F 13 9A 01 8B 20 4D  |30 . 740...... M|
00000300: B2 39 20 AF 20 54 B1 33  30 20 A7 20 37 34 30 00  |.9 . T.30 . 740.|
00000310: 27 13 A4 01 8B 20 4D B2  31 31 20 AF 20 54 B1 33  |'.... M.11 . T.3|
00000320: 30 20 A7 20 37 34 30 00  3E 13 AE 01 8B 20 4D B2  |0 . 740.>.... M.|
00000330: 32 20 AF 20 54 B1 32 39  20 A7 20 37 34 30 00 55  |2 . T.29 . 740.U|
00000340: 13 B8 01 8B 20 4D B2 32  20 AF 20 54 B3 32 39 20  |.... M.2 . T.29 |
00000350: A7 20 34 38 30 00 66 13  C2 01 8B 20 4D B3 B1 32  |. 480.f.... M..2|
00000360: 20 A7 20 34 38 30 00 86  13 CC 01 41 B2 B5 28 4A  | . 480.....A..(J|
00000370: AD 34 29 3A 42 B2 41 AC  34 3A 8B 20 4A B3 B1 42  |.4):B.A.4:. J..B|
00000380: 20 A7 20 37 34 30 00 90  13 E0 01 8D 20 37 39 30  | . 740...... 790|
00000390: 00 AC 13 F4 01 99 20 4F  24 3B 3A 99 20 A3 31 31  |...... O$;:. .11|
000003A0: 29 22 44 45 52 20 20 20  20 20 22 3B 00 D8 13 FE  |)"DER     ";....|
000003B0: 01 99 20 CA 28 50 24 2C  31 2C 32 29 3B 22 2E 22  |.. .(P$,1,2);"."|
000003C0: 3B CA 28 50 24 2C 33 2C  32 29 3B 22 2E 22 3B CA  |;.(P$,3,2);".";.|
000003D0: 28 50 24 2C 35 2C 34 29  00 0D 14 1C 02 99 3A 99  |(P$,5,4)......:.|
000003E0: 3A 99 20 A3 30 38 29 22  49 53 54 20 2F 20 57 41  |:. .08)"IST / WA|
000003F0: 52 20 20 45 49 4E 20 20  22 3B CA 28 42 24 2C 57  |R  EIN  ";.(B$,W|
00000400: AC 31 30 AA 31 2C 31 30  29 3A 99 3A 99 00 3D 14  |.10.1,10):.:..=.|
00000410: 44 02 99 3A 99 3A 99 20  A3 31 32 29 22 57 45 49  |D..:.:. .12)"WEI|
00000420: 54 45 52 20 4A 20 2F 20  4E 20 20 20 4A 22 3B 4C  |TER J / N   J";L|
00000430: 24 3B 4C 24 3B 4C 24 3B  3A 85 20 43 24 00 50 14  |$;L$;L$;:. C$.P.|
00000440: 6C 02 8B 20 43 24 B2 22  4A 22 20 89 20 36 39 30  |l.. C$."J" . 690|
00000450: 00 63 14 76 02 8B 20 43  24 B2 22 4E 22 20 89 20  |.c.v.. C$."N" . |
00000460: 36 39 30 00 9B 14 8A 02  99 3A 99 20 A3 30 38 29  |690......:. .08)|
00000470: 22 55 4E 47 55 45 4C 54  49 47 45 20 45 49 4E 47  |"UNGUELTIGE EING|
00000480: 41 42 45 20 21 22 3B 4F  24 3B 4F 24 3B 4F 24 3B  |ABE !";O$;O$;O$;|
00000490: 4F 24 3B 4F 24 3A 89 20  35 38 30 00 AC 14 B2 02  |O$;O$:. 580.....|
000004A0: EC 20 FC 20 43 24 20 B2  20 22 4E 22 00 D2 14 C6  |. . C$ . "N"....|
000004B0: 02 99 3A 99 20 A3 30 38  29 20 22 20 20 20 20 20  |..:. .08) "     |
000004C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
000004D0: 3A 99 00 D8 14 DA 02 80  00 10 15 E4 02 99 3A 99  |:.............:.|
000004E0: 3A 99 20 A3 30 38 29 22  55 4E 47 55 45 4C 54 49  |:. .08)"UNGUELTI|
000004F0: 47 45 53 20 44 41 54 55  4D 20 20 21 22 3B 4F 24  |GES DATUM  !";O$|
00000500: 3B 4F 24 3B 4F 24 3B 4F  24 3B 3A 89 20 32 31 30  |;O$;O$;O$;:. 210|
00000510: 00 1E 15 16 03 8F 20 52  45 43 48 4E 45 4E 00 41  |...... RECHNEN.A|
00000520: 15 20 03 55 B2 33 36 35  AC 4A AA 33 31 AC 28 4D  |. .U.365.J.31.(M|
00000530: AB 31 29 AA 54 3A 8B 20  4D B1 32 20 A7 20 38 33  |.1).T:. M.2 . 83|
00000540: 30 00 4B 15 34 03 89 20  38 36 30 00 6A 15 3E 03  |0.K.4.. 860.j.>.|
00000550: 59 B2 B5 28 30 2E 34 AC  4D AA 32 2E 33 29 3A 56  |Y..(0.4.M.2.3):V|
00000560: B2 55 AB 59 3A 89 20 38  37 30 00 78 15 5C 03 56  |.U.Y:. 870.x.\.V|
00000570: B2 55 3A 4A B2 4A AB 31  00 AC 15 66 03 53 B2 B5  |.U:J.J.1...f.S..|
00000580: 28 4A AD 34 29 3A 54 B2  B5 28 4A AD 31 30 30 29  |(J.4):T..(J.100)|
00000590: 3A 54 B2 B5 28 28 54 AA  31 29 AC 30 2E 37 35 29  |:T..((T.1).0.75)|
000005A0: 3A 53 B2 53 AB 54 3A 58  B2 56 AA 53 00 C3 15 98  |:S.S.T:X.V.S....|
000005B0: 03 47 B2 B5 28 58 AD 37  29 3A 57 B2 58 AB 47 AC  |.G..(X.7):W.X.G.|
000005C0: 37 3A 8E 00 00 00                                 |7:....          |

..4....   ERMITTLUNG DER WOCHENTAGE    V
ON  J. HAGEN.....B$."SAMSTAG   SONNTAG  
 MONTAG    DIENSTAG  MITTWOCH  DONNERSTA
GFREITAG   "...(.P$."        ":A$.P$:O$.
G(145):L$.G(157).N.<..:.:.:."     NOTIZ 
: ";A$.T.Z.....D..:D$."TT.MM.JJJJ":.:." 
";A$;.-.... .31) J(TI$,1,2);":";J(TI$,3,
2);":";J(TI$,5,2):.:..T.... .07)"ERMITTL
UNG DES WOCHENTAGES"...... .06)"========
====================":.:.:....R..:. .11)
"DATUM   ";D$;...... X.1 . 12:. L$;:. X.
..... D$.X...J(P$,1,2).J(D$,1,2).....J(P
$,3,2).J(D$,4,2)...".J(P$,5,4).J(D$,7,4)
...,.. K.1 . 7.H.6.. F(J(P$,K,1)) . 48 .
 F(J(P$,K,1)) . 57 . 740.P.@.. K.C.J.T.E
(J(P$,1,2)).V.T.M.E(J(P$,3,2))...^.J.E(J
(P$,5,4))...H.. J.1582 . 740...R.. M.1 .
 M.12 . 740.J.|.. T.1 . T.31 . 740......
 M.4 . T.30 . 740...... M.6 . T.30 . 740
...... M.9 . T.30 . 740.'.... M.11 . T.3
0 . 740.>.... M.2 . T.29 . 740.U.... M.2
 . T.29 . 480.F.B.. M..2 . 480...L.A..(J
.4):B.A.4:. J..B . 740...... 790...... O
$;:. .11)"DER     ";.X.... J(P$,1,2);"."
;J(P$,3,2);".";J(P$,5,4)......:.:. .08)"
IST / WAR  EIN  ";J(B$,W.10.1,10):.:..=.
D..:.:. .12)"WEITER J / N   J";L$;L$;L$;
:. C$.P.L.. C$."J" . 690.C.V.. C$."N" . 
690......:. .08)"UNGUELTIGE EINGABE !";O
$;O$;O$;O$;O$:. 580...... . C$ . "N".R.F
..:. .08) "                    ":..X.Z..
......:.:. .08)"UNGUELTIGES DATUM  !";O$
;O$;O$;O$;:. 210...... RECHNEN.A. .U.365
.J.31.(M.1).T:. M.2 . 830.K.4.. 860.J.>.
Y..(0.4.M.2.3):V.U.Y:. 870.X.\.V.U:J.J.1
...F.S..(J.4):T..(J.100):T..((T.1).0.75)
:S.S.T:X.V.S.C...G..(X.7):W.X.G.7:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL