WOCHENTAG

FILE INFORMATION

FILENAME(S): WOCHENTAG

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 16:18:11

APPEARS ON: 1 disk(s)

FILE HASH

6c9f13d324580eb94dd31cba4a3a672f5fcb3d06d396efe0617cdac34936641f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MEHR ALS	WOCHENTAG	PRG	BrainSkull, Leopold Zyka	11	20	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 12 08 64 00 8F 3A  20 57 4F 43 48 45 4E 54  |....d..: WOCHENT|
00000010: 41 47 00 40 08 6F 00 8F  3A 20 43 4F 50 59 52 49  |AG.@.o..: COPYRI|
00000020: 47 48 54 20 31 39 38 33  20 54 4F 4D 20 52 55 47  |GHT 1983 TOM RUG|
00000030: 47 2C 20 50 48 49 4C 20  46 45 4C 44 4D 41 4E 4E  |G, PHIL FELDMANN|
00000040: 00 61 08 70 00 8F 3A 20  55 4E 44 20 57 45 53 54  |.a.p..: UND WEST|
00000050: 45 52 4E 20 53 59 53 54  45 4D 53 20 47 52 4F 55  |ERN SYSTEMS GROU|
00000060: 50 00 70 08 78 00 99 20  C7 28 31 34 37 29 3A 9C  |P.p.x.. .(147):.|
00000070: 00 84 08 82 00 86 20 44  57 24 28 38 29 2C 4D 49  |...... DW$(8),MI|
00000080: 28 31 33 29 00 AC 08 96  00 44 57 24 28 30 29 B2  |(13).....DW$(0).|
00000090: 22 53 41 4D 53 54 41 47  20 22 3A 44 57 24 28 31  |"SAMSTAG ":DW$(1|
000000A0: 29 B2 22 53 4F 4E 4E 54  41 47 20 22 00 D2 08 A0  |)."SONNTAG "....|
000000B0: 00 44 57 24 28 32 29 B2  22 4D 4F 4E 54 41 47 22  |.DW$(2)."MONTAG"|
000000C0: 3A 44 57 24 28 33 29 B2  22 44 49 45 4E 53 54 41  |:DW$(3)."DIENSTA|
000000D0: 47 22 00 FC 08 AA 00 44  57 24 28 34 29 B2 22 4D  |G".....DW$(4)."M|
000000E0: 49 54 54 57 4F 43 48 22  3A 44 57 24 28 35 29 B2  |ITTWOCH":DW$(5).|
000000F0: 22 44 4F 4E 4E 45 52 53  54 41 47 22 00 11 09 B4  |"DONNERSTAG"....|
00000100: 00 44 57 24 28 36 29 B2  22 46 52 45 49 54 41 47  |.DW$(6)."FREITAG|
00000110: 22 00 35 09 BE 00 4D 49  28 31 29 B2 31 3A 4D 49  |".5...MI(1).1:MI|
00000120: 28 32 29 B2 34 3A 4D 49  28 33 29 B2 34 3A 4D 49  |(2).4:MI(3).4:MI|
00000130: 28 34 29 B2 30 00 59 09  C8 00 4D 49 28 35 29 B2  |(4).0.Y...MI(5).|
00000140: 32 3A 4D 49 28 36 29 B2  35 3A 4D 49 28 37 29 B2  |2:MI(6).5:MI(7).|
00000150: 30 3A 4D 49 28 38 29 B2  33 00 80 09 D2 00 4D 49  |0:MI(8).3.....MI|
00000160: 28 39 29 B2 36 3A 4D 49  28 31 30 29 B2 31 3A 4D  |(9).6:MI(10).1:M|
00000170: 49 28 31 31 29 B2 34 3A  4D 49 28 31 32 29 B2 36  |I(11).4:MI(12).6|
00000180: 00 A0 09 2C 01 99 20 A3  38 29 3B 22 57 20 4F 20  |...,.. .8);"W O |
00000190: 43 20 48 20 45 20 4E 20  54 20 41 20 47 22 3A 99  |C H E N T A G":.|
000001A0: 00 CB 09 36 01 99 20 22  47 45 42 45 4E 20 53 49  |...6.. "GEBEN SI|
000001B0: 45 20 54 41 47 2C 20 4D  4F 4E 41 54 20 55 4E 44  |E TAG, MONAT UND|
000001C0: 20 4A 41 48 52 20 45 49  4E 2E 22 00 FA 09 40 01  | JAHR EIN."...@.|
000001D0: 99 20 22 42 49 54 54 45  20 44 55 52 43 48 20 4B  |. "BITTE DURCH K|
000001E0: 4F 4D 4D 41 53 20 54 52  45 4E 4E 45 4E 20 28 54  |OMMAS TRENNEN (T|
000001F0: 54 2C 4D 4D 2C 4A 4A 29  21 22 00 09 0A 4A 01 85  |T,MM,JJ)!"...J..|
00000200: 20 44 41 2C 4D 4F 2C 59  52 00 26 0A 54 01 58 B2  | DA,MO,YR.&.T.X.|
00000210: 30 3A 8B 20 44 41 B3 31  20 B0 20 44 41 B1 33 31  |0:. DA.1 . DA.31|
00000220: 20 A7 20 35 30 30 00 3F  0A 5E 01 8B 20 4D 4F B3  | . 500.?.^.. MO.|
00000230: 31 20 B0 20 4D 4F B1 31  32 20 A7 20 35 30 30 00  |1 . MO.12 . 500.|
00000240: 58 0A 68 01 8B 20 59 52  B3 30 20 B0 20 59 52 B1  |X.h.. YR.0 . YR.|
00000250: 39 39 20 A7 20 35 30 30  00 62 0A 6D 01 8D 20 35  |99 . 500.b.m.. 5|
00000260: 34 30 00 73 0A 72 01 57  4F B2 28 59 52 AD 34 29  |40.s.r.WO.(YR.4)|
00000270: AA 59 52 00 87 0A 7C 01  57 4F B2 57 4F AA 4D 49  |.YR...|.WO.WO.MI|
00000280: 28 4D 4F 29 AA 44 41 00  91 0A 86 01 57 53 B2 57  |(MO).DA.....WS.W|
00000290: 4F 00 A0 0A 90 01 57 4F  B2 B5 28 57 4F AD 37 29  |O.....WO..(WO.7)|
000002A0: 00 B1 0A 9A 01 57 4F B2  57 53 AB 28 57 4F AC 37  |.....WO.WS.(WO.7|
000002B0: 29 00 BD 0A 9F 01 57 4F  B2 57 4F AA 58 00 E4 0A  |).....WO.WO.X...|
000002C0: A4 01 99 20 44 41 3B 22  2F 22 3B 4D 4F 3B 22 2F  |... DA;"/";MO;"/|
000002D0: 22 3B 59 52 3B 22 20 3D  20 22 3B 44 57 24 28 57  |";YR;" = ";DW$(W|
000002E0: 4F 29 3A 99 00 0D 0B AE  01 85 20 22 45 49 4E 20  |O):....... "EIN |
000002F0: 57 45 49 54 45 52 45 53  20 44 41 54 55 4D 20 28  |WEITERES DATUM (|
00000300: 4A 20 4F 44 45 52 20 4E  29 22 3B 43 24 00 1E 0B  |J ODER N)";C$...|
00000310: B8 01 8B 20 43 24 B2 22  4E 22 20 A7 20 80 00 31  |... C$."N" . ..1|
00000320: 0B C2 01 8B 20 43 24 B2  22 4A 22 20 A7 20 33 31  |.... C$."J" . 31|
00000330: 30 00 3B 0B CC 01 89 20  34 33 30 00 54 0B F4 01  |0.;.... 430.T...|
00000340: 99 20 22 44 41 54 55 4D  20 55 4E 47 55 45 4C 54  |. "DATUM UNGUELT|
00000350: 49 47 21 22 00 5A 0B FE  01 80 00 73 0B 1C 02 8B  |IG!".Z.....s....|
00000360: 20 4D 4F B2 34 20 AF 20  44 41 B1 33 30 20 A7 20  | MO.4 . DA.30 . |
00000370: 35 30 30 00 8C 0B 26 02  8B 20 4D 4F B2 36 20 AF  |500...&.. MO.6 .|
00000380: 20 44 41 B1 33 30 20 A7  20 35 30 30 00 A5 0B 30  | DA.30 . 500...0|
00000390: 02 8B 20 4D 4F B2 39 20  AF 20 44 41 B1 33 30 20  |.. MO.9 . DA.30 |
000003A0: A7 20 35 30 30 00 BF 0B  3A 02 8B 20 4D 4F B2 31  |. 500...:.. MO.1|
000003B0: 31 20 AF 20 44 41 B1 33  30 20 A7 20 35 30 30 00  |1 . DA.30 . 500.|
000003C0: CE 0B 4E 02 8B 20 4D 4F  B1 32 20 A7 20 8E 00 E7  |..N.. MO.2 . ...|
000003D0: 0B 58 02 8B 20 4D 4F B2  32 20 AF 20 44 41 B1 32  |.X.. MO.2 . DA.2|
000003E0: 39 20 A7 20 35 30 30 00  F6 0B 62 02 57 59 B2 B5  |9 . 500...b.WY..|
000003F0: 28 59 52 AD 34 29 00 07  0C 6C 02 57 59 B2 59 52  |(YR.4)...l.WY.YR|
00000400: AB 28 57 59 AC 34 29 00  18 0C 76 02 8B 20 57 59  |.(WY.4)...v.. WY|
00000410: B2 30 20 A7 20 36 36 30  00 31 0C 80 02 8B 20 4D  |.0 . 660.1.... M|
00000420: 4F B2 32 20 AF 20 44 41  B2 32 39 20 A7 20 35 30  |O.2 . DA.29 . 50|
00000430: 30 00 37 0C 8A 02 8E 00  42 0C 94 02 58 B2 AB 31  |0.7.....B...X..1|
00000440: 3A 8E 00 00 00                                    |:....           |

....D..: WOCHENTAG.@.O..: COPYRIGHT 1983
 TOM RUGG, PHIL FELDMANN.A.P..: UND WEST
ERN SYSTEMS GROUP.P.X.. G(147):....... D
W$(8),MI(13).....DW$(0)."SAMSTAG ":DW$(1
)."SONNTAG ".R. .DW$(2)."MONTAG":DW$(3).
"DIENSTAG".....DW$(4)."MITTWOCH":DW$(5).
"DONNERSTAG".....DW$(6)."FREITAG".5...MI
(1).1:MI(2).4:MI(3).4:MI(4).0.Y.H.MI(5).
2:MI(6).5:MI(7).0:MI(8).3...R.MI(9).6:MI
(10).1:MI(11).4:MI(12).6. .,.. .8);"W O 
C H E N T A G":..K.6.. "GEBEN SIE TAG, M
ONAT UND JAHR EIN."...@.. "BITTE DURCH K
OMMAS TRENNEN (TT,MM,JJ)!"...J.. DA,MO,Y
R.&.T.X.0:. DA.1 . DA.31 . 500.?.^.. MO.
1 . MO.12 . 500.X.H.. YR.0 . YR.99 . 500
.B.M.. 540.S.R.WO.(YR.4).YR...|.WO.WO.MI
(MO).DA.....WS.WO. ...WO..(WO.7).....WO.
WS.(WO.7).....WO.WO.X...... DA;"/";MO;"/
";YR;" = ";DW$(WO):....... "EIN WEITERES
 DATUM (J ODER N)";C$...... C$."N" . ..1
.B.. C$."J" . 310.;.L.. 430.T.... "DATUM
 UNGUELTIG!".Z.....S.... MO.4 . DA.30 . 
500...&.. MO.6 . DA.30 . 500...0.. MO.9 
. DA.30 . 500...:.. MO.11 . DA.30 . 500.
N.N.. MO.2 . ....X.. MO.2 . DA.29 . 500.
..B.WY..(YR.4)...L.WY.YR.(WY.4)...V.. WY
.0 . 660.1.... MO.2 . DA.29 . 500.7.....
B...X..1:....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL