> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 01 00 8F 20 2A 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 00 49 08 02 00 8F 20 2A 2A 20 20 |*****.I.... ** |
00000030: 44 49 53 4B 45 54 54 45 4E 4E 41 4D 45 20 41 45 |DISKETTENNAME AE|
00000040: 4E 44 45 52 4E 20 20 2A 2A 00 6D 08 03 00 8F 20 |NDERN **.m.... |
00000050: 2A 2A 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |** ------------|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 2A 2A 00 91 08 |--------- **...|
00000070: 04 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 00 B5 08 05 00 8F 20 2A 2A 20 20 43 4F 50 59 |*...... ** COPY|
000000A0: 52 49 47 48 54 20 28 43 29 20 31 39 39 30 20 42 |RIGHT (C) 1990 B|
000000B0: 59 20 20 2A 2A 00 D9 08 06 00 8F 20 2A 2A 20 20 |Y **...... ** |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 2A 2A 00 FD 08 07 00 8F 20 | **...... |
000000E0: 2A 2A 20 20 20 20 20 20 20 41 4E 44 52 45 20 47 |** ANDRE G|
000000F0: 52 5A 4F 4E 41 20 20 20 20 20 20 2A 2A 00 21 09 |RZONA **.!.|
00000100: 08 00 8F 20 2A 2A 20 20 20 20 20 20 20 48 45 49 |... ** HEI|
00000110: 4E 54 5A 45 53 54 52 2E 31 20 20 20 20 20 20 2A |NTZESTR.1 *|
00000120: 2A 00 6D 09 09 00 8F 20 2A 2A 20 20 20 20 20 20 |*.m.... ** |
00000130: 20 32 33 30 30 20 4B 49 45 4C 20 31 34 20 20 20 | 2300 KIEL 14 |
00000140: 20 20 20 2A 2A 20 20 20 20 20 20 3A 52 45 4D 20 | ** :REM |
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 00 73 09 |*************.s.|
00000170: 0A 00 3A 00 79 09 14 00 3A 00 7F 09 1E 00 3A 00 |..:.y...:.....:.|
00000180: CE 09 28 00 8F 20 20 20 20 20 20 20 20 20 20 20 |..(.. |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 3A 52 45 4D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | :REM**********|
000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 |**************..|
000001D0: 0A 64 00 99 22 93 12 20 20 3D 2D 3D 20 44 49 53 |.d..".. =-= DIS|
000001E0: 4B 45 54 54 45 4E 4E 41 4D 45 20 41 45 4E 44 45 |KETTENNAME AENDE|
000001F0: 52 4E 20 3D 2D 3D 20 20 20 20 20 20 20 20 20 22 |RN =-= "|
00000200: 00 32 0A E8 03 99 22 93 12 20 20 3D 2D 3D 20 44 |.2....".. =-= D|
00000210: 49 53 4B 45 54 54 45 4E 4E 41 4D 45 20 41 45 4E |ISKETTENNAME AEN|
00000220: 44 45 52 4E 20 3D 2D 3D 20 20 20 20 20 20 20 20 |DERN =-= |
00000230: 20 22 00 63 0A F2 03 99 22 12 20 20 20 20 20 20 | ".c....". |
00000240: 20 20 42 59 20 20 41 4E 44 52 45 20 20 47 52 5A | BY ANDRE GRZ|
00000250: 4F 4E 41 20 20 20 20 20 20 20 20 20 20 20 20 20 |ONA |
00000260: 20 20 22 00 91 0A FC 03 85 22 11 52 49 43 48 54 | "......".RICHT|
00000270: 49 47 45 20 44 49 53 4B 45 54 54 45 20 45 49 4E |IGE DISKETTE EIN|
00000280: 47 45 4C 45 47 54 20 20 20 4A 9D 9D 9D 22 3B 57 |GELEGT J...";W|
00000290: 24 00 AC 0A 06 04 8B 57 24 B3 B1 22 4A 22 A7 99 |$......W$.."J"..|
000002A0: 22 11 43 4F 4E 54 91 91 91 22 3A 80 00 DA 0A 10 |".CONT...":.....|
000002B0: 04 99 22 11 44 49 53 4B 4E 41 4D 45 3A 22 3B A6 |..".DISKNAME:";.|
000002C0: 31 39 29 3B 22 44 49 53 4B 20 49 44 3A 22 3A 99 |19);"DISK ID:":.|
000002D0: A3 31 30 29 3B 22 91 12 22 3B 00 EE 0A 1A 04 9F |.10);"..";......|
000002E0: 31 2C 38 2C 31 35 3A 98 31 2C 22 49 30 22 00 FD |1,8,15:.1,"I0"..|
000002F0: 0A 24 04 9F 38 2C 38 2C 38 2C 22 23 22 00 14 0B |.$..8,8,8,"#"...|
00000300: 2E 04 99 23 31 2C 22 55 31 3A 22 3B 38 3B 30 3B |...#1,"U1:";8;0;|
00000310: 31 38 3B 30 00 29 0B 38 04 99 23 31 2C 22 42 2D |18;0.).8..#1,"B-|
00000320: 50 3A 22 3B 38 3B 31 34 34 00 35 0B 42 04 81 49 |P:";8;144.5.B..I|
00000330: B2 31 A4 31 36 00 47 0B 4C 04 A1 23 38 2C 43 48 |.1.16.G.L..#8,CH|
00000340: 24 3A 99 43 48 24 3B 00 4E 0B 56 04 82 49 00 63 |$:.CH$;.N.V..I.c|
00000350: 0B 60 04 99 23 31 2C 22 42 2D 50 3A 22 3B 38 3B |.`..#1,"B-P:";8;|
00000360: 31 36 32 00 73 0B 6A 04 A1 23 38 2C 43 31 24 2C |162.s.j..#8,C1$,|
00000370: 43 32 24 00 85 0B 74 04 99 A6 31 31 29 3B 43 31 |C2$...t...11);C1|
00000380: 24 3B 43 32 24 00 BB 0B 7E 04 85 22 11 11 53 4F |$;C2$...~.."..SO|
00000390: 4C 4C 20 44 45 52 20 4E 41 4D 45 20 47 45 41 45 |LL DER NAME GEAE|
000003A0: 4E 44 45 52 54 20 57 45 52 44 45 4E 20 20 4A 9D |NDERT WERDEN J.|
000003B0: 9D 9D 22 3B 57 24 3A 47 25 B2 30 00 CD 0B 88 04 |..";W$:G%.0.....|
000003C0: 8B 57 24 B3 B1 22 4A 22 A7 31 32 31 30 00 E9 0B |.W$.."J".1210...|
000003D0: 92 04 85 22 11 4E 45 55 45 52 20 44 49 53 4B 4E |...".NEUER DISKN|
000003E0: 41 4D 45 20 22 3B 44 4E 24 00 0E 0C 9C 04 44 4E |AME ";DN$.....DN|
000003F0: 24 B2 C8 28 44 4E 24 AA 22 20 20 20 20 20 20 20 |$..(DN$." |
00000400: 20 20 20 20 20 20 20 20 20 22 2C 31 36 29 00 23 | ",16).#|
00000410: 0C A6 04 99 23 31 2C 22 42 2D 50 3A 22 3B 38 3B |....#1,"B-P:";8;|
00000420: 31 34 34 00 35 0C B0 04 99 23 38 2C 44 4E 24 3B |144.5....#8,DN$;|
00000430: 3A 47 25 B2 31 00 69 0C BA 04 85 22 11 11 53 4F |:G%.1.i...."..SO|
00000440: 4C 4C 20 44 49 45 20 44 49 53 4B 20 49 44 20 47 |LL DIE DISK ID G|
00000450: 45 41 45 4E 44 45 52 54 20 57 45 52 44 45 4E 20 |EAENDERT WERDEN |
00000460: 20 4E 9D 9D 9D 22 3B 57 24 00 7C 0C C4 04 8B 57 | N...";W$.|....W|
00000470: 24 B3 B1 22 4A 22 A7 20 31 32 37 30 00 96 0C CE |$.."J". 1270....|
00000480: 04 85 22 11 4E 45 55 45 20 44 49 53 4B 20 49 44 |..".NEUE DISK ID|
00000490: 20 22 3B 49 44 24 00 AD 0C D8 04 49 44 24 B2 C8 | ";ID$.....ID$..|
000004A0: 28 49 44 23 24 AA 22 20 20 22 2C 32 29 00 C2 0C |(ID#$." ",2)...|
000004B0: E2 04 99 23 31 2C 22 42 2D 50 3A 22 3B 38 3B 31 |...#1,"B-P:";8;1|
000004C0: 36 32 00 D4 0C EC 04 99 23 38 2C 49 44 24 3B 3A |62......#8,ID$;:|
000004D0: 47 25 B2 31 00 F1 0C F6 04 8B 47 25 B2 31 A7 99 |G%.1......G%.1..|
000004E0: 23 31 2C 22 55 32 3A 22 3B 38 3B 30 3B 31 38 3B |#1,"U2:";8;0;18;|
000004F0: 30 00 04 0D 00 05 99 23 31 2C 22 49 30 22 3A A0 |0......#1,"I0":.|
00000500: 38 3A A0 31 00 32 0D 0A 05 99 22 11 11 12 22 3B |8:.1.2...."...";|
00000510: 3A 8B 47 25 B2 31 A7 99 22 20 44 49 53 4B 45 54 |:.G%.1.." DISKET|
00000520: 54 45 20 47 45 41 45 4E 44 45 52 54 20 2D 3D 2D |TE GEAENDERT -=-|
00000530: 22 3B 00 48 0D 14 05 99 22 20 50 52 4F 47 52 41 |";.H...." PROGRA|
00000540: 4D 4D 45 4E 44 45 20 22 00 4E 0D 1E 05 80 00 00 |MMENDE ".N......|
00000550: 00 |. |
..%.... *****************************.I.
... ** DISKETTENNAME AENDERN **.M....
** --------------------- **...... ****
*************************...... ** COPY
RIGHT (C) 1990 BY **.Y.... **
**...... ** ANDRE G
RZONA **.!.... ** HEINTZESTR.
1 **.M.... ** 2300 KIEL 14
** :REM ************************
*****.S...:.Y...:....:.N.(..
:REM******************
**********************...D..".. =-= DIS
KETTENNAME AENDERN =-= ".2....".
. =-= DISKETTENNAME AENDERN =-=
".C....". BY ANDRE GRZONA
"......".RICHTIGE DISKETTE EIN
GELEGT J...";W$......W$.."J"..".CONT..
.":..Z....".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.5.B..I.1.16.G.L..#8,CH$:.CH$;.
N.V..I.C.`..#1,"B-P:";8;162.S.J..#8,C1$,
C2$...T...11);C1$;C2$...~.."..SOLL DER N
AME GEAENDERT WERDEN J...";W$:G%.0.M...
.W$.."J".1210......".NEUER DISKNAME ";DN
$.....DN$.H(DN$." ",16).#
....#1,"B-P:";8;144.5....#8,DN$;:G%.1.I.
..."..SOLL DIE DISK ID GEAENDERT WERDEN
N...";W$.|.D..W$.."J". 1270...N..".NEUE
DISK ID ";ID$...X.ID$.H(ID#$." ",2).B.
...#1,"B-P:";8;162.T....#8,ID$;:G%.1....
..G%.1..#1,"U2:";8;0;18;0......#1,"I0":
8: 1.2...."...";:.G%.1.." DISKETTE GEAEN
DERT -=-";.H...." PROGRAMMENDE ".N......
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL