> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 22 20 2A 2A 2A 2A 2A 2A 2A |..)...." *******|
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 2A 2A 00 61 08 02 00 8F 22 |*********.a...."|
00000030: 2B 20 20 20 20 20 20 20 20 20 20 20 20 44 49 53 |+ DIS|
00000040: 4B 45 54 54 45 4E 4E 41 4D 45 20 41 45 4E 44 45 |KETTENNAME AENDE|
00000050: 52 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 2B |RN +|
00000060: 22 00 99 08 03 00 8F 22 2B 20 20 20 20 20 20 20 |"......"+ |
00000070: 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | -----------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 20 20 20 20 |---------- |
00000090: 20 20 20 20 20 20 20 2B 22 00 D1 08 04 00 8F 22 | +"......"|
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 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 22 00 09 09 05 00 8F 22 2B 20 20 20 20 20 20 20 |"......"+ |
000000E0: 20 20 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 | COPYRIGHT (C|
000000F0: 29 20 31 39 38 33 20 42 59 20 20 20 20 20 20 20 |) 1983 BY |
00000100: 20 20 20 20 20 20 20 2B 22 00 41 09 06 00 8F 22 | +".A...."|
00000110: 2B 55 57 45 20 52 45 50 50 4C 49 4E 47 45 52 2C |+UWE REPPLINGER,|
00000120: 20 4B 41 49 53 45 52 53 54 52 2E 20 33 30 2C 20 | KAISERSTR. 30, |
00000130: 31 30 30 30 20 42 45 52 4C 49 4E 20 34 32 20 2B |1000 BERLIN 42 +|
00000140: 22 00 79 09 07 00 8F 22 2A 2A 2A 2A 2A 2A 2A 2A |".y...."********|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 7F 09 08 00 3A 00 |********".....:.|
00000180: 85 09 09 00 3A 00 B7 09 E8 03 99 20 22 93 12 20 |....:...... ".. |
00000190: 20 20 20 3D 2D 3D 20 20 20 44 49 53 4B 45 54 54 | =-= DISKETT|
000001A0: 45 4E 4E 41 4D 45 20 41 45 4E 44 45 52 4E 20 20 |ENNAME AENDERN |
000001B0: 20 3D 2D 3D 20 20 22 00 E8 09 F2 03 99 20 22 12 | =-= "...... ".|
000001C0: 20 20 20 20 20 20 20 20 20 20 28 43 29 20 42 59 | (C) BY|
000001D0: 20 55 57 45 20 52 45 50 50 4C 49 4E 47 45 52 20 | UWE REPPLINGER |
000001E0: 20 20 20 20 20 20 20 22 00 17 0A FC 03 85 20 22 | "...... "|
000001F0: 11 52 49 43 48 54 49 47 45 20 44 49 53 4B 45 54 |.RICHTIGE DISKET|
00000200: 54 45 20 45 49 4E 47 45 4C 45 47 54 20 20 20 4A |TE EINGELEGT J|
00000210: 9D 9D 9D 22 3B 57 24 00 37 0A 06 04 8B 20 57 24 |...";W$.7.... W$|
00000220: B3 B1 22 4A 22 20 A7 20 99 20 22 11 43 4F 4E 54 |.."J" . . ".CONT|
00000230: 91 91 91 22 20 3A 80 00 69 0A 10 04 99 20 22 11 |..." :..i.... ".|
00000240: 44 49 53 4B 4E 41 4D 45 3A 22 3B A6 31 39 29 3B |DISKNAME:";.19);|
00000250: 22 44 49 53 4B 20 49 44 3A 22 20 3A 20 99 20 A3 |"DISK ID:" : . .|
00000260: 31 30 29 3B 22 91 12 22 3B 00 80 0A 1A 04 9F 20 |10);"..";...... |
00000270: 31 2C 38 2C 31 35 20 3A 20 98 31 2C 22 49 30 22 |1,8,15 : .1,"I0"|
00000280: 00 90 0A 24 04 9F 20 38 2C 38 2C 38 2C 22 23 22 |...$.. 8,8,8,"#"|
00000290: 00 A6 0A 2E 04 98 31 2C 22 55 31 3A 22 3B 38 3B |......1,"U1:";8;|
000002A0: 30 3B 31 38 3B 30 00 BA 0A 38 04 98 31 2C 22 42 |0;18;0...8..1,"B|
000002B0: 2D 50 3A 22 3B 38 3B 31 34 34 00 C9 0A 42 04 81 |-P:";8;144...B..|
000002C0: 20 49 B2 31 20 A4 20 31 36 00 DE 0A 4C 04 A1 23 | I.1 . 16...L..#|
000002D0: 38 2C 43 48 24 20 3A 20 99 20 43 48 24 3B 00 E6 |8,CH$ : . CH$;..|
000002E0: 0A 56 04 82 20 49 00 FA 0A 60 04 98 31 2C 22 42 |.V.. I...`..1,"B|
000002F0: 2D 50 3A 22 3B 38 3B 31 36 32 00 0A 0B 6A 04 A1 |-P:";8;162...j..|
00000300: 23 38 2C 43 31 24 2C 43 32 24 00 1D 0B 74 04 99 |#8,C1$,C2$...t..|
00000310: 20 A6 31 31 29 3B 43 31 24 3B 43 32 24 00 57 0B | .11);C1$;C2$.W.|
00000320: 7E 04 85 20 22 11 11 53 4F 4C 4C 20 44 45 52 20 |~.. "..SOLL DER |
00000330: 4E 41 4D 45 20 47 45 41 45 4E 44 45 52 54 20 57 |NAME GEAENDERT W|
00000340: 45 52 44 45 4E 20 20 20 4A 9D 9D 9D 22 3B 57 24 |ERDEN J...";W$|
00000350: 20 3A 20 47 25 B2 30 00 6B 0B 88 04 8B 20 57 24 | : G%.0.k.... W$|
00000360: B3 B1 22 4A 22 20 A7 31 32 31 30 00 8C 0B 92 04 |.."J" .1210.....|
00000370: 85 20 22 4E 45 55 45 52 20 44 49 53 4B 45 54 54 |. "NEUER DISKETT|
00000380: 45 4E 4E 41 4D 45 20 22 3B 44 4E 24 00 B1 0B 9C |ENNAME ";DN$....|
00000390: 04 44 4E 24 B2 C8 28 44 4E 24 AA 22 20 20 20 20 |.DN$..(DN$." |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 22 2C 31 36 | ",16|
000003B0: 29 00 C5 0B A6 04 98 31 2C 22 42 2D 50 3A 22 3B |)......1,"B-P:";|
000003C0: 38 3B 31 34 34 00 D7 0B B0 04 98 38 2C 44 4E 24 |8;144......8,DN$|
000003D0: 3B 3A 20 47 25 B2 31 00 0D 0C BA 04 85 20 22 11 |;: G%.1...... ".|
000003E0: 11 53 4F 4C 4C 20 44 49 45 20 44 49 53 4B 20 49 |.SOLL DIE DISK I|
000003F0: 44 20 47 45 41 45 4E 44 45 52 54 20 57 45 52 44 |D GEAENDERT WERD|
00000400: 45 4E 20 20 20 4E 9D 9D 9D 22 3B 57 24 00 22 0C |EN N...";W$.".|
00000410: C4 04 8B 20 57 24 B3 B1 22 4A 22 20 A7 20 31 32 |... W$.."J" . 12|
00000420: 37 30 00 3D 0C CE 04 85 20 22 11 4E 45 55 45 20 |70.=.... ".NEUE |
00000430: 44 49 53 4B 20 49 44 20 22 3B 49 44 24 00 53 0C |DISK ID ";ID$.S.|
00000440: D8 04 49 44 24 B2 C8 28 49 44 24 AA 22 20 20 22 |..ID$..(ID$." "|
00000450: 2C 32 29 00 67 0C E2 04 98 31 2C 22 42 2D 50 3A |,2).g....1,"B-P:|
00000460: 22 3B 38 3B 31 36 32 00 78 0C EC 04 98 38 2C 49 |";8;162.x....8,I|
00000470: 44 24 3B 3A 47 25 B2 31 00 97 0C F6 04 8B 20 47 |D$;:G%.1...... G|
00000480: 25 B2 31 20 A7 20 98 31 2C 22 55 32 3A 22 3B 38 |%.1 . .1,"U2:";8|
00000490: 3B 30 3B 31 38 3B 30 00 AF 0C 00 05 98 31 2C 22 |;0;18;0......1,"|
000004A0: 49 30 22 20 3A 20 A0 20 38 20 3A 20 A0 20 31 00 |I0" : . 8 : . 1.|
000004B0: E5 0C 0A 05 99 20 22 11 11 12 22 3B 20 3A 20 8B |..... "..."; : .|
000004C0: 20 47 25 B2 31 20 A7 20 99 20 22 20 44 49 53 4B | G%.1 . . " DISK|
000004D0: 45 54 54 45 20 47 45 41 45 4E 44 45 52 54 20 20 |ETTE GEAENDERT |
000004E0: 2D 3D 2D 22 3B 00 FE 0C 14 05 99 20 22 20 20 50 |-=-";...... " P|
000004F0: 52 4F 47 52 41 4D 4D 45 4E 44 45 20 20 22 00 04 |ROGRAMMENDE "..|
00000500: 0D 1E 05 80 00 00 00 1D |........ |
..)...." *******************************
*.A...."+ DISKETTENNAME AENDE
RN +"......"+ ---
------------------ +".Q...."
****************************************
********"......"+ COPYRIGHT (C
) 1983 BY +".A...."+UWE REP
PLINGER, KAISERSTR. 30, 1000 BERLIN 42 +
".Y...."********************************
****************"....:.....:...... "..
=-= DISKETTENNAME AENDERN =-= ".
..... ". (C) BY UWE REPPLINGER
"...... ".RICHTIGE DISKETTE EINGE
LEGT J...";W$.7.... W$.."J" . . ".CONT
..." :..I.... ".DISKNAME:";.19);"DISK ID
:" : . .10);"..";...... 1,8,15 : .1,"I0"
...$.. 8,8,8,"#"......1,"U1:";8;0;18;0..
.8..1,"B-P:";8;144.I.B.. I.1 . 16...L..#
8,CH$ : . CH$;...V.. I...`..1,"B-P:";8;1
62...J..#8,C1$,C2$...T.. .11);C1$;C2$.W.
~.. "..SOLL DER NAME GEAENDERT WERDEN
J...";W$ : G%.0.K.... W$.."J" .1210.....
. "NEUER DISKETTENNAME ";DN$.....DN$.H(D
N$." ",16).E....1,"B-P:";
8;144.W....8,DN$;: G%.1...... "..SOLL DI
E DISK ID GEAENDERT WERDEN N...";W$.".
D.. W$.."J" . 1270.=.N.. ".NEUE DISK ID
";ID$.S.X.ID$.H(ID$." ",2).G....1,"B-P:
";8;162.X....8,ID$;:G%.1...... G%.1 . .1
,"U2:";8;0;18;0......1,"I0" : 8 : 1.
..... "..."; : . G%.1 . . " DISKETTE GEA
ENDERT -=-";...... " PROGRAMMENDE "..
........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL