DATUM-DEMO
FILE INFORMATION
FILENAME(S): DATUM-DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-10-20 14:29:58
APPEARS ON: 1 disk(s)
FILE HASH
1e18ac95983b5622bbe7fc3da0a4b51446c44c1ef11f3af4e04172bac0383090
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 1 | DATUM-DEMO | PRG | Treasure Chest - Klaus Der Suhler | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 6E 00 8F 20 2A 20 |*******.M.n.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.|
00000050: 78 00 8F 20 2A 20 44 20 45 20 4D 20 4F 20 20 20 |x.. * D E M O |
00000060: 5A 20 55 20 4D 20 20 20 44 20 41 20 54 20 55 20 |Z U M D A T U |
00000070: 4D 20 2A 00 99 08 82 00 8F 20 2A 20 20 20 20 20 |M *...... * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 2A 00 BF 08 8C 00 8F 20 | *...... |
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000C0: E5 08 96 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |..... * |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 2A 00 0B 09 A0 00 8F 20 2A 20 28 57 | *...... * (W|
000000F0: 29 20 42 59 20 46 4C 4F 52 49 41 4E 20 4D 55 45 |) BY FLORIAN MUE|
00000100: 4C 4C 45 52 20 20 20 20 20 20 2A 00 31 09 AA 00 |LLER *.1...|
00000110: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 2A 00 57 09 B4 00 8F 20 2A 20 20 20 20 20 32 39 |*.W.... * 29|
00000140: 2E 20 53 45 50 54 45 4D 42 45 52 20 31 39 38 37 |. SEPTEMBER 1987|
00000150: 20 20 20 20 20 20 2A 00 7D 09 BE 00 8F 20 2A 20 | *.}.... * |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 A3 09 | *...|
00000180: C8 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 2A 00 A9 09 D2 00 3A 00 D3 09 DC 00 83 20 |***.....:...... |
000001B0: 33 31 2C 32 38 2C 33 31 2C 33 30 2C 33 31 2C 33 |31,28,31,30,31,3|
000001C0: 30 2C 33 31 2C 33 31 2C 33 30 2C 33 31 2C 33 30 |0,31,31,30,31,30|
000001D0: 2C 33 31 00 15 0A E6 00 86 20 4D 4D 25 28 31 32 |,31...... MM%(12|
000001E0: 29 2C 52 24 28 33 29 2C 57 54 24 28 36 29 3A 81 |),R$(3),WT$(6):.|
000001F0: 20 49 B2 31 20 A4 20 31 32 3A 87 20 4D 4D 25 28 | I.1 . 12:. MM%(|
00000200: 49 29 3A 82 3A 81 49 B2 30 A4 36 3A 87 57 54 24 |I):.:.I.0.6:.WT$|
00000210: 28 49 29 3A 82 00 3B 0A F0 00 44 50 24 B2 22 33 |(I):..;...DP$."3|
00000220: 30 2E 30 39 2E 31 39 38 37 22 3A 44 41 24 B2 22 |0.09.1987":DA$."|
00000230: 32 39 2E 30 39 2E 31 39 38 37 22 00 64 0A FA 00 |29.09.1987".d...|
00000240: 50 B2 30 3A 81 46 B2 31 A4 33 3A 52 24 28 46 29 |P.0:.F.1.3:R$(F)|
00000250: B2 22 22 3A 82 3A 52 24 28 30 29 B2 22 12 22 3A |."":.:R$(0).".":|
00000260: 99 22 93 22 00 7C 0A 04 01 99 22 13 54 41 47 45 |.".".|....".TAGE|
00000270: 53 44 41 54 55 4D 3A 20 22 44 41 24 00 94 0A 0E |SDATUM: "DA$....|
00000280: 01 99 22 11 50 52 55 45 46 44 41 54 55 4D 3A 20 |..".PRUEFDATUM: |
00000290: 22 44 50 24 00 9A 0A 18 01 3A 00 BA 0A 22 01 99 |"DP$.....:..."..|
000002A0: 22 11 11 11 8E 08 22 A3 31 34 29 22 D5 C0 C0 C0 |".....".14)"....|
000002B0: C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 D3 0A 2C 01 99 |........."...,..|
000002C0: A3 31 34 29 22 DD 20 4D 20 45 20 4E 20 55 20 45 |.14)". M E N U E|
000002D0: 20 DD 22 00 EC 0A 36 01 99 A3 31 34 29 22 CA C0 | ."...6...14)"..|
000002E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 14 0B 40 |..........."...@|
000002F0: 01 99 22 11 11 22 A3 31 31 29 52 24 28 30 29 22 |.."..".11)R$(0)"|
00000300: 4E 45 55 45 20 44 41 54 45 4E 20 45 49 4E 47 45 |NEUE DATEN EINGE|
00000310: 42 45 4E 22 00 3B 0B 4A 01 99 22 11 22 A3 31 31 |BEN".;.J..".".11|
00000320: 29 52 24 28 31 29 22 57 4F 43 48 45 4E 54 41 47 |)R$(1)"WOCHENTAG|
00000330: 20 45 52 4D 49 54 54 45 4C 4E 22 00 69 0B 54 01 | ERMITTELN".i.T.|
00000340: 99 22 11 22 A3 37 29 52 24 28 32 29 22 50 52 55 |.".".7)R$(2)"PRU|
00000350: 45 46 55 4E 47 20 41 55 46 20 50 4C 41 55 53 49 |EFUNG AUF PLAUSI|
00000360: 42 49 4C 49 54 41 45 54 22 00 94 0B 5E 01 99 22 |BILITAET"...^.."|
00000370: 11 22 A3 38 29 52 24 28 33 29 22 53 50 45 49 43 |.".8)R$(3)"SPEIC|
00000380: 48 45 52 55 4E 47 20 4B 4F 4D 50 52 49 4D 49 45 |HERUNG KOMPRIMIE|
00000390: 52 45 4E 22 00 A7 0B 68 01 A1 41 24 3A 8B 41 24 |REN"...h..A$:.A$|
000003A0: B2 22 22 A7 33 36 30 00 D1 0B 72 01 8B 20 41 24 |."".360...r.. A$|
000003B0: B2 C7 28 31 33 29 A7 91 20 50 AA 31 20 89 31 30 |..(13).. P.1 .10|
000003C0: 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 30 |00,2000,3000,400|
000003D0: 30 00 DE 0B 7C 01 52 24 28 50 29 B2 22 22 00 FB |0...|.R$(P).""..|
000003E0: 0B 86 01 8B 20 41 24 B2 22 11 22 20 A7 20 50 B2 |.... A$."." . P.|
000003F0: 50 AA 31 AA 34 AC 28 50 B2 33 29 00 18 0C 90 01 |P.1.4.(P.3).....|
00000400: 8B 20 41 24 B2 22 91 22 20 A7 20 50 B2 50 AB 31 |. A$."." . P.P.1|
00000410: AB 34 AC 28 50 B2 30 29 00 2B 0C 9A 01 8B 20 41 |.4.(P.0).+.... A|
00000420: 24 B2 22 13 22 20 A7 20 50 B2 30 00 39 0C A4 01 |$."." . P.0.9...|
00000430: 52 24 28 50 29 B2 22 12 22 00 42 0C AE 01 89 32 |R$(P).".".B....2|
00000440: 36 30 00 48 0C B8 01 3A 00 89 0C C2 01 83 53 4F |60.H...:......SO|
00000450: 4E 4E 54 41 47 2C 4D 4F 4E 54 41 47 2C 44 49 45 |NNTAG,MONTAG,DIE|
00000460: 4E 53 54 41 47 2C 4D 49 54 54 57 4F 43 48 2C 44 |NSTAG,MITTWOCH,D|
00000470: 4F 4E 4E 45 52 53 54 41 47 2C 46 52 45 49 54 41 |ONNERSTAG,FREITA|
00000480: 47 2C 53 41 4D 53 54 41 47 00 B8 0C E8 03 99 22 |G,SAMSTAG......"|
00000490: 11 11 41 4B 54 55 45 4C 4C 45 53 20 44 41 54 55 |..AKTUELLES DATU|
000004A0: 4D 20 49 4D 20 46 4F 52 4D 41 54 20 54 54 2E 4D |M IM FORMAT TT.M|
000004B0: 4D 2E 4A 4A 4A 4A 3A 22 00 CD 0C F2 03 9F 31 2C |M.JJJJ:"......1,|
000004C0: 30 3A 84 31 2C 44 41 24 3A A0 31 3A 99 00 FD 0C |0:.1,DA$:.1:....|
000004D0: FC 03 99 22 11 50 52 55 45 46 44 41 54 55 4D 20 |...".PRUEFDATUM |
000004E0: 49 4D 20 53 45 4C 42 45 4E 20 46 4F 52 4D 41 54 |IM SELBEN FORMAT|
000004F0: 20 54 54 2E 4D 4D 2E 4A 4A 4A 4A 3A 22 00 12 0D | TT.MM.JJJJ:"...|
00000500: 06 04 9F 31 2C 30 3A 84 31 2C 44 50 24 3A A0 31 |...1,0:.1,DP$:.1|
00000510: 3A 99 00 1B 0D 10 04 89 32 35 30 00 21 0D 1A 04 |:.......250.!...|
00000520: 3A 00 42 0D D0 07 99 22 11 11 57 4F 43 48 45 4E |:.B...."..WOCHEN|
00000530: 54 41 47 20 46 55 45 52 20 22 44 50 24 22 3A 20 |TAG FUER "DP$": |
00000540: 22 3B 00 72 0D DA 07 54 B2 C5 28 C8 28 44 50 24 |";.r...T..(.(DP$|
00000550: 2C 32 29 29 3A 4D B2 C5 28 CA 28 44 50 24 2C 34 |,2)):M..(.(DP$,4|
00000560: 2C 32 29 29 3A 4A B2 C5 28 C9 28 44 50 24 2C 34 |,2)):J..(.(DP$,4|
00000570: 29 29 00 B8 0D E4 07 4E B2 B5 28 33 36 35 2E 32 |)).....N..(365.2|
00000580: 35 AC 28 4A AA 28 4D B3 33 29 29 29 AA B5 28 33 |5.(J.(M.3)))..(3|
00000590: 30 2E 36 AC 28 4D AA 31 AB 28 4D B3 33 29 AC 31 |0.6.(M.1.(M.3).1|
000005A0: 32 29 29 AA 54 AB 32 3A 99 57 54 24 28 4E AB B5 |2)).T.2:.WT$(N..|
000005B0: 28 4E AD 37 29 AC 37 29 00 D3 0D EE 07 99 22 11 |(N.7).7)......".|
000005C0: 3C 52 45 54 55 52 4E 3E 20 22 3B 3A 97 20 32 30 |<RETURN> ";:. 20|
000005D0: 34 2C 30 00 EF 0D F8 07 A1 20 41 24 3A 8B 20 41 |4,0...... A$:. A|
000005E0: 24 B3 B1 C7 28 31 33 29 20 A7 20 32 30 34 30 00 |$...(13) . 2040.|
000005F0: 09 0E 02 08 97 20 32 30 37 2C 30 3A 97 20 32 30 |..... 207,0:. 20|
00000600: 34 2C 31 3A 89 20 32 35 30 00 0F 0E 0C 08 3A 00 |4,1:. 250.....:.|
00000610: 3F 0E B8 0B 54 B2 C5 28 C8 28 44 50 24 2C 32 29 |?...T..(.(DP$,2)|
00000620: 29 3A 4D B2 C5 28 CA 28 44 50 24 2C 34 2C 32 29 |):M..(.(DP$,4,2)|
00000630: 29 3A 4A B2 C5 28 C9 28 44 50 24 2C 34 29 29 00 |):J..(.(DP$,4)).|
00000640: 78 0E C2 0B 53 4A B2 28 4A AD 34 AB B5 28 4A AD |x...SJ.(J.4..(J.|
00000650: 34 29 29 B2 30 3A 8F 20 53 4A 3D 2D 31 20 42 45 |4)).0:. SJ=-1 BE|
00000660: 49 20 53 43 48 41 4C 54 4A 41 48 52 2C 20 53 4F |I SCHALTJAHR, SO|
00000670: 4E 53 54 20 53 4A 3D 30 00 AB 0E CC 0B 4A 44 B2 |NST SJ=0.....JD.|
00000680: C5 28 C9 28 44 41 24 2C 34 29 29 3A 4D 44 B2 C5 |.(.(DA$,4)):MD..|
00000690: 28 CA 28 44 41 24 2C 34 2C 32 29 29 3A 54 44 B2 |(.(DA$,4,2)):TD.|
000006A0: C5 28 C8 28 44 41 24 2C 32 29 29 00 BD 0E D6 0B |.(.(DA$,2)).....|
000006B0: 8B 20 4A B3 4A 44 20 A7 20 33 35 30 30 00 DA 0E |. J.JD . 3500...|
000006C0: E0 0B 8B 20 4D B2 32 20 AF 20 54 B2 32 39 20 AF |... M.2 . T.29 .|
000006D0: 20 53 4A 20 A7 20 33 34 30 30 00 F9 0E EA 0B 8B | SJ . 3400......|
000006E0: 20 4D B2 32 20 AF 20 54 B2 32 39 20 AF 20 A8 20 | M.2 . T.29 . . |
000006F0: 53 4A 20 A7 20 33 35 30 30 00 11 0F F4 0B 8B 20 |SJ . 3500...... |
00000700: 4D B3 31 20 B0 20 4D B1 31 32 20 A7 20 33 35 30 |M.1 . M.12 . 350|
00000710: 30 00 2D 0F FE 0B 8B 20 54 B3 31 20 B0 20 54 B1 |0.-.... T.1 . T.|
00000720: 4D 4D 25 28 4D 29 20 A7 20 33 35 30 30 00 46 0F |MM%(M) . 3500.F.|
00000730: 08 0C 8B 20 4A B2 4A 44 20 AF 20 4D B3 4D 44 20 |... J.JD . M.MD |
00000740: A7 20 33 35 30 30 00 67 0F 12 0C 8B 20 4A B2 4A |. 3500.g.... J.J|
00000750: 44 20 AF 20 4D B2 4D 44 20 AF 20 54 B3 B2 54 44 |D . M.MD . T..TD|
00000760: 20 A7 20 33 35 30 30 00 78 0F 48 0D 57 46 B2 AB | . 3500.x.H.WF..|
00000770: 31 3A 89 20 33 35 35 30 00 81 0F AC 0D 57 46 B2 |1:. 3550.....WF.|
00000780: 30 00 AC 0F DE 0D 99 22 11 44 41 53 20 45 49 4E |0......".DAS EIN|
00000790: 47 45 47 45 42 45 4E 45 20 44 41 54 55 4D 20 28 |GEGEBENE DATUM (|
000007A0: 22 44 50 24 22 29 20 49 53 54 11 22 00 CC 0F 10 |"DP$") IST."....|
000007B0: 0E 8B 20 57 46 20 A7 20 99 22 50 4C 41 55 53 49 |.. WF . ."PLAUSI|
000007C0: 42 45 4C 2E 22 3A 89 20 32 30 33 30 00 F4 0F 1A |BEL.":. 2030....|
000007D0: 0E 8B 20 A8 20 57 46 20 A7 20 99 22 4E 49 43 48 |.. . WF . ."NICH|
000007E0: 54 20 50 4C 41 55 53 49 42 45 4C 21 22 3A 89 20 |T PLAUSIBEL!":. |
000007F0: 32 30 33 30 00 FA 0F 24 0E 3A 00 1D 10 A0 0F 99 |2030...$.:......|
00000800: 22 93 4E 55 4E 20 57 49 52 44 20 44 41 53 20 44 |".NUN WIRD DAS D|
00000810: 41 54 55 4D 20 28 22 44 50 24 22 29 22 00 48 10 |ATUM ("DP$")".H.|
00000820: AA 0F 99 22 11 49 4E 20 45 49 4E 45 4D 20 53 54 |...".IN EINEM ST|
00000830: 52 49 4E 47 20 56 4F 4E 20 33 20 42 59 54 45 53 |RING VON 3 BYTES|
00000840: 20 4C 41 45 4E 47 45 22 00 78 10 B4 0F 99 22 11 | LAENGE".x....".|
00000850: 47 45 53 50 45 49 43 48 45 52 54 2E 20 42 45 44 |GESPEICHERT. BED|
00000860: 49 4E 47 55 4E 47 3A 20 4A 41 48 52 45 53 5A 41 |INGUNG: JAHRESZA|
00000870: 48 4C 20 4D 55 53 53 22 00 9F 10 BE 0F 99 22 11 |HL MUSS"......".|
00000880: 5A 57 49 53 43 48 45 4E 20 31 39 37 30 20 55 4E |ZWISCHEN 1970 UN|
00000890: 44 20 31 39 39 35 20 4C 49 45 47 45 4E 2E 22 00 |D 1995 LIEGEN.".|
000008A0: CF 10 C8 0F 54 B2 C5 28 C8 28 44 50 24 2C 32 29 |....T..(.(DP$,2)|
000008B0: 29 3A 4D B2 C5 28 CA 28 44 50 24 2C 34 2C 32 29 |):M..(.(DP$,4,2)|
000008C0: 29 3A 4A B2 C5 28 C9 28 44 50 24 2C 34 29 29 00 |):J..(.(DP$,4)).|
000008D0: F1 10 D2 0F 44 4B 24 B2 C7 28 54 AA 36 35 29 AA |....DK$..(T.65).|
000008E0: C7 28 4D AA 36 35 29 AA C7 28 4A AB 31 39 30 30 |.(M.65)..(J.1900|
000008F0: 29 00 1D 11 DC 0F 99 22 11 11 44 52 55 45 43 4B |)......"..DRUECK|
00000900: 45 4E 20 53 49 45 20 4E 55 4E 20 5A 57 45 49 4D |EN SIE NUN ZWEIM|
00000910: 41 4C 20 3C 52 45 54 55 52 4E 3E 2E 22 00 3D 11 |AL <RETURN>.".=.|
00000920: E6 0F 99 22 11 11 11 43 4C 52 3A 44 4B 24 3D 22 |..."...CLR:DK$="|
00000930: C7 28 33 34 29 44 4B 24 C7 28 33 34 29 00 6F 11 |.(34)DK$.(34).o.|
00000940: F0 0F 99 22 11 11 47 4F 54 4F 20 35 30 30 30 3A |..."..GOTO 5000:|
00000950: 45 4E 54 53 43 48 4C 55 45 53 53 45 4C 55 4E 47 |ENTSCHLUESSELUNG|
00000960: 20 56 4F 4E 20 44 4B 24 91 91 91 91 91 91 22 00 | VON DK$......".|
00000970: 75 11 FA 0F 80 00 95 11 04 10 8F 20 2A 2A 2A 20 |u.......... *** |
00000980: 4E 55 4E 20 42 45 46 49 4E 44 45 54 20 53 49 43 |NUN BEFINDET SIC|
00000990: 48 20 44 45 52 00 B3 11 0E 10 8F 20 2A 2A 2A 20 |H DER...... *** |
000009A0: 43 36 34 20 49 4D 20 44 49 52 45 4B 54 4D 4F 44 |C64 IM DIREKTMOD|
000009B0: 55 53 2E 00 D4 11 18 10 8F 20 2A 2A 2A 20 4C 45 |US....... *** LE|
000009C0: 44 49 47 4C 49 43 48 20 44 49 45 20 56 41 52 49 |DIGLICH DIE VARI|
000009D0: 41 42 4C 45 00 F8 11 22 10 8F 20 2A 2A 2A 20 44 |ABLE...".. *** D|
000009E0: 4B 24 20 45 52 4C 41 55 42 54 20 44 49 45 20 53 |K$ ERLAUBT DIE S|
000009F0: 4F 46 4F 52 54 49 47 45 00 1C 12 2C 10 8F 20 2A |OFORTIGE...,.. *|
00000A00: 2A 2A 20 52 45 4B 4F 4E 53 54 52 55 4B 54 49 4F |** REKONSTRUKTIO|
00000A10: 4E 20 44 45 53 20 44 41 54 55 4D 53 00 2B 12 36 |N DES DATUMS.+.6|
00000A20: 10 8F 20 2A 2A 2A 20 44 50 24 2E 00 31 12 40 10 |.. *** DP$..1.@.|
00000A30: 3A 00 46 12 88 13 54 B2 C6 28 C8 28 44 4B 24 2C |:.F...T..(.(DK$,|
00000A40: 31 29 29 AB 36 35 00 5B 12 92 13 4D B2 C6 28 CA |1)).65.[...M..(.|
00000A50: 28 44 4B 24 2C 32 29 29 AB 36 35 00 72 12 9C 13 |(DK$,2)).65.r...|
00000A60: 4A B2 31 39 30 30 AA C6 28 C9 28 44 4B 24 2C 31 |J.1900..(.(DK$,1|
00000A70: 29 29 00 A0 12 A6 13 44 50 24 B2 C9 28 C4 28 54 |)).....DP$..(.(T|
00000A80: 29 2C 32 29 AA 22 2E 22 AA C9 28 C4 28 4D 29 2C |),2)."."..(.(M),|
00000A90: 32 29 AA 22 2E 22 AA C9 28 C4 28 4A 29 2C 34 29 |2)."."..(.(J),4)|
00000AA0: 00 A6 12 B0 13 3A 00 C2 12 BA 13 99 22 11 12 44 |.....:......"..D|
00000AB0: 41 53 20 44 41 54 55 4D 20 57 41 52 3A 20 22 44 |AS DATUM WAR: "D|
00000AC0: 50 24 00 C8 12 C4 13 80 00 00 00 FF |P$.......... |
..'.D.. *******************************.
M.N.. * *.S.
X.. * D E M O Z U M D A T U M *.....
. * *......
*******************************...... *
*... .. * (W
) BY FLORIAN MUELLER *.1.... *
*.W.... * 29
. SEPTEMBER 1987 *.}.... *
*...H.. ************
*******************...R.:.S.... 31,28,31
,30,31,30,31,31,30,31,30,31...... MM%(12
),R$(3),WT$(6):. I.1 . 12:. MM%(I):.:.I.
0.6:.WT$(I):..;...DP$."30.09.1987":DA$."
29.09.1987".D...P.0:.F.1.3:R$(F)."":.:R$
(0).".":.".".|....".TAGESDATUM: "DA$....
..".PRUEFDATUM: "DP$.....:..."..".....".
14)"U...........I".S.,...14)". M E N U E
."...6...14)"J...........K"...@.."..".1
1)R$(0)"NEUE DATEN EINGEBEN".;.J..".".11
)R$(1)"WOCHENTAG ERMITTELN".I.T..".".7)R
$(2)"PRUEFUNG AUF PLAUSIBILITAET"...^.."
.".8)R$(3)"SPEICHERUNG KOMPRIMIEREN"...H
..A$:.A$."".360.Q.R.. A$.G(13).. P.1 .10
00,2000,3000,4000...|.R$(P).""...... A$.
"." . P.P.1.4.(P.3)...... A$."." . P.P.1
.4.(P.0).+.... A$."." . P.0.9...R$(P).".
".B....260.H...:...B..SONNTAG,MONTAG,DIE
NSTAG,MITTWOCH,DONNERSTAG,FREITAG,SAMSTA
G......"..AKTUELLES DATUM IM FORMAT TT.M
M.JJJJ:".M....1,0:.1,DA$: 1:.......".PRU
EFDATUM IM SELBEN FORMAT TT.MM.JJJJ:"...
...1,0:.1,DP$: 1:.......250.!...:.B.P.."
..WOCHENTAG FUER "DP$": ";.R.Z.T.E(H(DP$
,2)):M.E(J(DP$,4,2)):J.E(I(DP$,4)).....N
..(365.25.(J.(M.3)))..(30.6.(M.1.(M.3).1
2)).T.2:.WT$(N..(N.7).7).S....".<RETURN>
";:. 204,0...... A$:. A$..G(13) . 2040.
..... 207,0:. 204,1:. 250.....:.?...T.E(
H(DP$,2)):M.E(J(DP$,4,2)):J.E(I(DP$,4)).
X.B.SJ.(J.4..(J.4)).0:. SJ=-1 BEI SCHALT
JAHR, SONST SJ=0...L.JD.E(I(DA$,4)):MD.E
(J(DA$,4,2)):TD.E(H(DA$,2))...V.. J.JD .
3500.Z.... M.2 . T.29 . SJ . 3400......
M.2 . T.29 . . SJ . 3500...... M.1 . M.
12 . 3500.-.... T.1 . T.MM%(M) . 3500.F.
... J.JD . M.MD . 3500.G.... J.JD . M.MD
. T..TD . 3500.X.H.WF..1:. 3550.....WF.
0......".DAS EINGEGEBENE DATUM ("DP$") I
ST.".L.... WF . ."PLAUSIBEL.":. 2030....
.. . WF . ."NICHT PLAUSIBEL!":. 2030...$
.:... ..".NUN WIRD DAS DATUM ("DP$")".H.
...".IN EINEM STRING VON 3 BYTES LAENGE"
.X....".GESPEICHERT. BEDINGUNG: JAHRESZA
HL MUSS"......".ZWISCHEN 1970 UND 1995 L
IEGEN.".O.H.T.E(H(DP$,2)):M.E(J(DP$,4,2)
):J.E(I(DP$,4))...R.DK$.G(T.65).G(M.65).
G(J.1900)......"..DRUECKEN SIE NUN ZWEIM
AL <RETURN>.".=...."...CLR:DK$="G(34)DK$
G(34).O...."..GOTO 5000:ENTSCHLUESSELUNG
VON DK$......".U.......... *** NUN BEFI
NDET SICH DER...... *** C64 IM DIREKTMOD
US..T.... *** LEDIGLICH DIE VARIABLE..."
.. *** DK$ ERLAUBT DIE SOFORTIGE...,.. *
** REKONSTRUKTION DES DATUMS.+.6.. *** D
P$..1.@.:.F...T.F(H(DK$,1)).65.[...M.F(J
(DK$,2)).65.R...J.1900.F(I(DK$,1)). ...D
P$.I(D(T),2).".".I(D(M),2).".".I(D(J),4)
.....:.B...."..DAS DATUM WAR: "DP$.H.D..
....
> CLICK IMAGE PREVIEW FOR FULL MODAL