> 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 38 33 20 42 |RIGHT (C) 1983 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 55 57 45 20 52 45 50 50 4C |** UWE REPPL|
000000F0: 49 4E 47 45 52 20 20 20 20 20 20 2A 2A 00 21 09 |INGER **.!.|
00000100: 08 00 8F 20 2A 2A 20 20 20 20 20 4B 41 49 53 45 |... ** KAISE|
00000110: 52 53 54 52 2E 20 33 30 20 20 20 20 20 20 20 2A |RSTR. 30 *|
00000120: 2A 00 6D 09 09 00 8F 20 2A 2A 20 20 20 20 20 31 |*.m.... ** 1|
00000130: 30 30 30 20 42 45 52 4C 49 4E 20 34 32 20 20 20 |000 BERLIN 42 |
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: CF 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 20 3A 52 45 4D 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 2A 00 |***************.|
000001D0: 01 0A E8 03 99 22 93 12 20 20 3D 2D 3D 20 44 49 |.....".. =-= DI|
000001E0: 53 4B 45 54 54 45 4E 4E 41 4D 45 20 41 45 4E 44 |SKETTENNAME AEND|
000001F0: 45 52 4E 20 3D 2D 3D 20 20 20 20 20 20 20 20 20 |ERN =-= |
00000200: 22 00 32 0A F2 03 99 22 12 20 20 20 20 20 20 20 |".2....". |
00000210: 20 42 59 20 55 57 45 20 52 45 50 50 4C 49 4E 47 | BY UWE REPPLING|
00000220: 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ER |
00000230: 20 22 00 60 0A FC 03 85 22 11 52 49 43 48 54 49 | ".`....".RICHTI|
00000240: 47 45 20 44 49 53 4B 45 54 54 45 20 45 49 4E 47 |GE DISKETTE EING|
00000250: 45 4C 45 47 54 20 20 20 4A 9D 9D 9D 22 3B 57 24 |ELEGT J...";W$|
00000260: 00 7B 0A 06 04 8B 57 24 B3 B1 22 4A 22 A7 99 22 |.{....W$.."J".."|
00000270: 11 43 4F 4E 54 91 91 91 22 3A 80 00 A9 0A 10 04 |.CONT...":......|
00000280: 99 22 11 44 49 53 4B 4E 41 4D 45 3A 22 3B A6 31 |.".DISKNAME:";.1|
00000290: 39 29 3B 22 44 49 53 4B 20 49 44 3A 22 3A 99 A3 |9);"DISK ID:":..|
000002A0: 31 30 29 3B 22 91 12 22 3B 00 BD 0A 1A 04 9F 31 |10);"..";......1|
000002B0: 2C 38 2C 31 35 3A 98 31 2C 22 49 30 22 00 CC 0A |,8,15:.1,"I0"...|
000002C0: 24 04 9F 38 2C 38 2C 38 2C 22 23 22 00 E2 0A 2E |$..8,8,8,"#"....|
000002D0: 04 98 31 2C 22 55 31 3A 22 3B 38 3B 30 3B 31 38 |..1,"U1:";8;0;18|
000002E0: 3B 30 00 F6 0A 38 04 98 31 2C 22 42 2D 50 3A 22 |;0...8..1,"B-P:"|
000002F0: 3B 38 3B 31 34 34 00 02 0B 42 04 81 49 B2 31 A4 |;8;144...B..I.1.|
00000300: 31 36 00 14 0B 4C 04 A1 23 38 2C 43 48 24 3A 99 |16...L..#8,CH$:.|
00000310: 43 48 24 3B 00 1B 0B 56 04 82 49 00 2F 0B 60 04 |CH$;...V..I./.`.|
00000320: 98 31 2C 22 42 2D 50 3A 22 3B 38 3B 31 36 32 00 |.1,"B-P:";8;162.|
00000330: 3F 0B 6A 04 A1 23 38 2C 43 31 24 2C 43 32 24 00 |?.j..#8,C1$,C2$.|
00000340: 51 0B 74 04 99 A6 31 31 29 3B 43 31 24 3B 43 32 |Q.t...11);C1$;C2|
00000350: 24 00 87 0B 7E 04 85 22 11 11 53 4F 4C 4C 20 44 |$...~.."..SOLL D|
00000360: 45 52 20 4E 41 4D 45 20 47 45 41 45 4E 44 45 52 |ER NAME GEAENDER|
00000370: 54 20 57 45 52 44 45 4E 20 20 4A 9D 9D 9D 22 3B |T WERDEN J...";|
00000380: 57 24 3A 47 25 B2 30 00 99 0B 88 04 8B 57 24 B3 |W$:G%.0......W$.|
00000390: B1 22 4A 22 A7 31 32 31 30 00 B5 0B 92 04 85 22 |."J".1210......"|
000003A0: 11 4E 45 55 45 52 20 44 49 53 4B 4E 41 4D 45 20 |.NEUER DISKNAME |
000003B0: 22 3B 44 4E 24 00 DA 0B 9C 04 44 4E 24 B2 C8 28 |";DN$.....DN$..(|
000003C0: 44 4E 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 |DN$." |
000003D0: 20 20 20 20 20 22 2C 31 36 29 00 EE 0B A6 04 98 | ",16)......|
000003E0: 31 2C 22 42 2D 50 3A 22 3B 38 3B 31 34 34 00 FF |1,"B-P:";8;144..|
000003F0: 0B B0 04 98 38 2C 44 4E 24 3B 3A 47 25 B2 31 00 |....8,DN$;:G%.1.|
00000400: 33 0C BA 04 85 22 11 11 53 4F 4C 4C 20 44 49 45 |3...."..SOLL DIE|
00000410: 20 44 49 53 4B 20 49 44 20 47 45 41 45 4E 44 45 | DISK ID GEAENDE|
00000420: 52 54 20 57 45 52 44 45 4E 20 20 4E 9D 9D 9D 22 |RT WERDEN N..."|
00000430: 3B 57 24 00 45 0C C4 04 8B 57 24 B3 B1 22 4A 22 |;W$.E....W$.."J"|
00000440: A7 31 32 37 30 00 5F 0C CE 04 85 22 11 4E 45 55 |.1270._....".NEU|
00000450: 45 20 44 49 53 4B 20 49 44 20 22 3B 49 44 24 00 |E DISK ID ";ID$.|
00000460: 75 0C D8 04 49 44 24 B2 C8 28 49 44 24 AA 22 20 |u...ID$..(ID$." |
00000470: 20 22 2C 32 29 00 89 0C E2 04 98 31 2C 22 42 2D | ",2)......1,"B-|
00000480: 50 3A 22 3B 38 3B 31 36 32 00 9A 0C EC 04 98 38 |P:";8;162......8|
00000490: 2C 49 44 24 3B 3A 47 25 B2 31 00 B6 0C F6 04 8B |,ID$;:G%.1......|
000004A0: 47 25 B2 31 A7 98 31 2C 22 55 32 3A 22 3B 38 3B |G%.1..1,"U2:";8;|
000004B0: 30 3B 31 38 3B 30 00 C8 0C 00 05 98 31 2C 22 49 |0;18;0......1,"I|
000004C0: 30 22 3A A0 38 3A A0 31 00 F6 0C 0A 05 99 22 11 |0":.8:.1......".|
000004D0: 11 12 22 3B 3A 8B 47 25 B2 31 A7 99 22 20 44 49 |..";:.G%.1.." DI|
000004E0: 53 4B 45 54 54 45 20 47 45 41 45 4E 44 45 52 54 |SKETTE GEAENDERT|
000004F0: 20 2D 3D 2D 22 3B 00 0C 0D 14 05 99 22 20 50 52 | -=-";......" PR|
00000500: 4F 47 52 41 4D 4D 45 4E 44 45 20 22 00 12 0D 1E |OGRAMMENDE "....|
00000510: 05 80 00 00 00 FF |...... |
..%.... *****************************.I.
... ** DISKETTENNAME AENDERN **.M....
** --------------------- **...... ****
*************************...... ** COPY
RIGHT (C) 1983 BY **.Y.... **
**...... ** UWE REPPL
INGER **.!.... ** KAISERSTR. 30
**.M.... ** 1000 BERLIN 42
** :REM ************************
*****.S...:.Y...:....:.O.(..
:REM*****************
***********************......".. =-= DI
SKETTENNAME AENDERN =-= ".2...."
. BY UWE REPPLINGER
".`....".RICHTIGE DISKETTE EINGELEGT
J...";W$.{....W$.."J"..".CONT...":......
.".DISKNAME:";.19);"DISK ID:":..10);".."
;......1,8,15:.1,"I0".L.$..8,8,8,"#"....
..1,"U1:";8;0;18;0...8..1,"B-P:";8;144..
.B..I.1.16...L..#8,CH$:.CH$;...V..I./.`.
.1,"B-P:";8;162.?.J..#8,C1$,C2$.Q.T...11
);C1$;C2$...~.."..SOLL DER NAME GEAENDER
T WERDEN J...";W$:G%.0......W$.."J".121
0......".NEUER DISKNAME ";DN$.Z...DN$.H(
DN$." ",16)......1,"B-P:"
;8;144......8,DN$;:G%.1.3...."..SOLL DIE
DISK ID GEAENDERT WERDEN N...";W$.E.D.
.W$.."J".1270._.N..".NEUE DISK ID ";ID$.
U.X.ID$.H(ID$." ",2)......1,"B-P:";8;16
2......8,ID$;:G%.1......G%.1..1,"U2:";8;
0;18;0.H....1,"I0": 8: 1......"...";:.G%
.1.." DISKETTE GEAENDERT -=-";......" PR
OGRAMMENDE "..........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL