> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 05 00 99 22 0E 93 11 11 20 20 20 C5 |..'....".... .|
00000010: 4C 45 4B 54 52 4F 4E 49 53 43 48 45 53 20 D4 41 |LEKTRONISCHES .A|
00000020: 47 45 42 55 43 48 22 00 65 08 0A 00 97 38 30 38 |GEBUCH".e....808|
00000030: 2C 32 35 34 3A 99 22 11 11 20 20 20 CD 45 4E 55 |,254:.".. .ENU|
00000040: 45 3A 22 3A 85 22 11 20 20 20 31 3D 43 4F 44 49 |E:":.". 1=CODI|
00000050: 45 52 45 4E 2C 20 32 3D 44 45 43 4F 44 49 45 52 |EREN, 2=DECODIER|
00000060: 45 4E 22 3B 57 00 8A 08 0C 00 99 22 11 20 20 20 |EN";W......". |
00000070: C2 49 54 54 45 20 C4 49 53 4B 45 54 54 45 20 45 |.ITTE .ISKETTE E|
00000080: 49 4E 4C 45 47 45 4E 21 11 22 00 C2 08 0F 00 99 |INLEGEN!."......|
00000090: A3 32 36 29 22 54 54 2E 4D 4D 2E 4A 4A 4A 4A 91 |.26)"TT.MM.JJJJ.|
000000A0: 91 22 3A 85 22 11 20 20 20 20 20 20 20 20 20 20 |.":.". |
000000B0: 20 20 20 20 20 20 20 20 C4 41 54 55 4D 20 22 3B | .ATUM ";|
000000C0: 44 24 00 01 09 12 00 99 22 11 20 20 20 C3 4F 44 |D$......". .OD|
000000D0: 45 5A 41 48 4C 45 4E 20 58 2C 59 2C 5A 22 3A 85 |EZAHLEN X,Y,Z":.|
000000E0: 22 11 20 20 20 44 55 52 43 48 20 CB 4F 4D 4D 41 |". DURCH .OMMA|
000000F0: 20 47 45 54 52 45 4E 4E 54 20 22 3B 41 2C 42 2C | GETRENNT ";A,B,|
00000100: 43 00 21 09 14 00 86 54 28 38 33 39 29 2C 54 24 |C.!....T(839),T$|
00000110: 28 38 33 39 29 3A 58 B2 30 3A 8B 57 B2 32 A7 37 |(839):X.0:.W.2.7|
00000120: 30 00 64 09 19 00 99 22 93 11 20 20 20 D4 45 58 |0.d....".. .EX|
00000130: 54 45 49 4E 47 41 42 45 20 28 4D 41 58 2E 20 38 |TEINGABE (MAX. 8|
00000140: 33 39 20 DA 45 49 43 48 45 4E 29 22 3A 99 22 20 |39 .EICHEN)":." |
00000150: 20 20 27 2A 27 20 3D 20 C5 4E 44 45 22 3A 99 22 | '*' = .NDE":."|
00000160: 11 3E 22 3B 00 7C 09 1E 00 A1 54 24 28 58 29 3A |.>";.|....T$(X):|
00000170: 8B 54 24 28 58 29 B2 22 22 A7 33 30 00 94 09 23 |.T$(X)."".30...#|
00000180: 00 8B 54 24 28 58 29 B2 22 2A 22 B0 58 B2 38 33 |..T$(X)."*".X.83|
00000190: 39 A7 35 30 00 AA 09 28 00 99 54 24 28 58 29 3B |9.50...(..T$(X);|
000001A0: 3A 58 B2 58 AA 31 3A 89 33 30 00 E7 09 32 00 9F |:X.X.1:.30...2..|
000001B0: 31 2C 38 2C 32 2C 44 24 AA 22 2C 53 2C 57 22 3A |1,8,2,D$.",S,W":|
000001C0: 98 31 2C 58 3A 81 49 B2 30 A4 58 AB 31 3A 42 B2 |.1,X:.I.0.X.1:B.|
000001D0: 42 AA 28 41 AC 43 29 3A 98 31 2C C6 28 54 24 28 |B.(A.C):.1,.(T$(|
000001E0: 49 29 29 AA 43 AA 42 00 F5 09 3C 00 82 49 3A A0 |I)).C.B...<..I:.|
000001F0: 31 3A 89 39 39 00 32 0A 46 00 99 22 93 11 3E 22 |1:.99.2.F.."..>"|
00000200: 3B 3A 9F 31 2C 38 2C 32 2C 44 24 AA 22 2C 53 2C |;:.1,8,2,D$.",S,|
00000210: 52 22 3A 84 31 2C 58 3A 81 49 B2 30 A4 58 AB 31 |R":.1,X:.I.0.X.1|
00000220: 3A 42 B2 42 AA 28 41 AC 43 29 3A 84 31 2C 54 28 |:B.B.(A.C):.1,T(|
00000230: 49 29 00 72 0A 50 00 54 28 49 29 B2 28 54 28 49 |I).r.P.T(I).(T(I|
00000240: 29 AB 42 29 AB 43 3A 8B 54 28 49 29 B3 30 B0 54 |).B).C:.T(I).0.T|
00000250: 28 49 29 B1 32 35 35 A7 A0 31 3A 99 22 11 C6 41 |(I).255..1:."..A|
00000260: 4C 53 43 48 45 20 C5 49 4E 47 41 42 45 22 3A 89 |LSCHE .INGABE":.|
00000270: 39 39 00 86 0A 5A 00 99 C7 28 54 28 49 29 29 3B |99...Z...(T(I));|
00000280: 3A 82 49 3A A0 31 00 A4 0A 63 00 9C 3A 97 38 30 |:.I:.1...c..:.80|
00000290: 38 2C 32 33 37 3A 80 3A 8F 20 2D 50 54 53 2C 31 |8,237:.:. -PTS,1|
000002A0: 39 38 35 2D 00 00 00 |985-... |
..'....".... ELEKTRONISCHES TAGEBUCH".
E....808,254:.".. MENUE:":.". 1=CODI
EREN, 2=DECODIEREN";W......". BITTE DI
SKETTE EINLEGEN!.".B.....26)"TT.MM.JJJJ.
.":.". DATUM ";D$......
". CODEZAHLEN X,Y,Z":.". DURCH KOMMA
GETRENNT ";A,B,C.!....T(839),T$(839):X.
0:.W.2.70.D....".. TEXTEINGABE (MAX. 8
39 ZEICHEN)":." '*' = ENDE":.".>";.|..
..T$(X):.T$(X)."".30...#..T$(X)."*".X.83
9.50...(..T$(X);:X.X.1:.30...2..1,8,2,D$
.",S,W":.1,X:.I.0.X.1:B.B.(A.C):.1,F(T$(
I)).C.B...<..I: 1:.99.2.F.."..>";:.1,8,2
,D$.",S,R":.1,X:.I.0.X.1:B.B.(A.C):.1,T(
I).R.P.T(I).(T(I).B).C:.T(I).0.T(I).255.
1:.".FALSCHE EINGABE":.99...Z..G(T(I));
:.I: 1...C..:.808,237:.:. -PTS,1985-...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL