> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 00 FF 8F 22 20 20 20 20 20 20 20 20 |..H...." |
00000010: 20 20 22 14 4C 49 53 54 53 43 48 55 54 5A 11 20 | ".LISTSCHUTZ. |
00000020: 58 A9 FF 8D 04 08 A9 83 A2 A4 8D 02 03 8E 03 03 |X...............|
00000030: 4C 83 A4 A5 02 8D 04 08 A9 20 A2 08 8D 02 03 8E |L........ ......|
00000040: 03 03 60 58 58 58 58 58 00 52 08 01 00 9E 32 30 |..`XXXXX.R....20|
00000050: 39 38 00 86 08 E8 03 99 22 93 9A 12 20 20 20 20 |98......"... |
00000060: 20 20 20 20 20 20 43 48 41 4E 47 45 20 54 48 45 | CHANGE THE|
00000070: 20 44 49 53 4B 2D 4E 41 4D 45 20 20 20 20 20 20 | DISK-NAME |
00000080: 20 20 20 20 92 22 00 AD 08 F2 03 99 22 20 20 20 | ."......" |
00000090: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 20 42 59 | PROGRAM BY|
000000A0: 20 41 43 48 49 4D 20 4B 41 4C 57 41 22 00 D7 08 | ACHIM KALWA"...|
000000B0: FC 03 99 22 11 11 11 20 20 20 20 20 20 20 20 2A |..."... *|
000000C0: 2A 20 44 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 |* DISKETTE EINLE|
000000D0: 47 45 4E 20 2A 2A 22 00 EB 08 06 04 97 20 31 39 |GEN **"...... 19|
000000E0: 38 2C 30 3A 92 20 31 39 38 2C 31 00 1E 09 10 04 |8,0:. 198,1.....|
000000F0: 99 22 93 12 20 20 20 20 20 20 20 20 20 20 43 48 |.".. CH|
00000100: 41 4E 47 45 20 54 48 45 20 44 49 53 4B 2D 4E 41 |ANGE THE DISK-NA|
00000110: 4D 45 20 20 20 20 20 20 20 20 20 20 92 22 00 4E |ME .".N|
00000120: 09 11 04 99 22 11 11 11 44 49 53 4B 4E 41 4D 45 |...."...DISKNAME|
00000130: 3A 22 3B A6 31 37 29 3B 22 44 49 53 4B 20 49 44 |:";.17);"DISK ID|
00000140: 3A 22 3A 99 A3 39 29 3B 22 91 12 05 22 3B 00 63 |:":..9);"...";.c|
00000150: 09 1A 04 9F 20 31 2C 38 2C 31 35 3A 98 31 2C 22 |.... 1,8,15:.1,"|
00000160: 49 30 22 00 73 09 24 04 9F 20 38 2C 38 2C 38 2C |I0".s.$.. 8,8,8,|
00000170: 22 23 22 00 89 09 2E 04 98 31 2C 22 55 31 3A 22 |"#"......1,"U1:"|
00000180: 3B 38 3B 30 3B 31 38 3B 30 00 9D 09 38 04 98 31 |;8;0;18;0...8..1|
00000190: 2C 22 42 2D 50 3A 22 3B 38 3B 31 34 34 00 A9 09 |,"B-P:";8;144...|
000001A0: 42 04 81 49 B2 31 A4 31 36 00 BB 09 4C 04 A1 23 |B..I.1.16...L..#|
000001B0: 38 2C 43 48 24 3A 99 43 48 24 3B 00 C1 09 56 04 |8,CH$:.CH$;...V.|
000001C0: 82 00 D4 09 60 04 98 31 2C 22 42 2D 50 3A 22 38 |....`..1,"B-P:"8|
000001D0: 2C 31 36 32 00 F0 09 6A 04 A1 23 38 2C 43 31 24 |,162...j..#8,C1$|
000001E0: 2C 43 32 24 2C 43 33 24 2C 43 34 24 2C 43 35 24 |,C2$,C3$,C4$,C5$|
000001F0: 00 0F 0A 74 04 99 20 A6 31 30 29 3B 43 31 24 3B |...t.. .10);C1$;|
00000200: 43 32 24 3B 43 33 24 3B 43 34 24 3B 43 35 24 00 |C2$;C3$;C4$;C5$.|
00000210: 40 0A 7E 04 99 22 9A 11 11 53 4F 4C 4C 20 44 45 |@.~.."...SOLL DE|
00000220: 52 20 4E 41 4D 45 20 47 45 41 45 4E 44 45 52 54 |R NAME GEAENDERT|
00000230: 20 57 45 52 44 45 4E 20 3F 20 28 4A 2F 4E 29 22 | WERDEN ? (J/N)"|
00000240: 00 5D 0A 7F 04 97 20 31 39 38 2C 30 3A 92 20 31 |.].... 198,0:. 1|
00000250: 39 38 2C 31 3A A1 57 24 3A 47 25 B2 30 00 72 0A |98,1:.W$:G%.0.r.|
00000260: 88 04 8B 20 57 24 B3 B1 22 4A 22 20 A7 20 31 32 |... W$.."J" . 12|
00000270: 31 30 00 7D 0A 89 04 89 20 31 34 30 30 00 9E 0A |10.}.... 1400...|
00000280: 92 04 99 22 4E 45 55 45 52 20 44 49 53 4B 45 54 |..."NEUER DISKET|
00000290: 54 45 4E 4E 41 4D 45 3A 22 3A 85 44 4E 24 00 C3 |TENNAME:":.DN$..|
000002A0: 0A 9C 04 44 4E 24 B2 C8 28 44 4E 24 AA 22 A0 A0 |...DN$..(DN$."..|
000002B0: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 2C |..............",|
000002C0: 31 36 29 00 D7 0A A6 04 98 31 2C 22 42 2D 50 3A |16)......1,"B-P:|
000002D0: 22 3B 38 3B 31 34 34 00 E8 0A B0 04 98 38 2C 44 |";8;144......8,D|
000002E0: 4E 24 3B 3A 47 25 B2 31 00 1A 0B BA 04 99 22 11 |N$;:G%.1......".|
000002F0: 11 53 4F 4C 4C 20 44 49 45 20 44 49 53 4B 20 49 |.SOLL DIE DISK I|
00000300: 44 20 47 45 41 45 4E 44 45 52 54 20 57 45 52 44 |D GEAENDERT WERD|
00000310: 45 4E 20 3F 28 4A 2F 4E 29 22 00 32 0B BB 04 97 |EN ?(J/N)".2....|
00000320: 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 3A A1 | 198,0:. 198,1:.|
00000330: 57 24 00 47 0B C4 04 8B 20 57 24 B3 B1 22 4A 22 |W$.G.... W$.."J"|
00000340: 20 A7 20 31 32 37 30 00 74 0B CE 04 99 22 11 4E | . 1270.t....".N|
00000350: 45 55 45 20 44 49 53 4B 20 49 44 20 28 4D 41 58 |EUE DISK ID (MAX|
00000360: 2E 20 35 20 5A 45 49 43 48 45 4E 29 3A 22 3A 85 |. 5 ZEICHEN):":.|
00000370: 20 49 44 24 00 8B 0B D8 04 49 44 24 B2 C8 28 49 | ID$.....ID$..(I|
00000380: 44 24 AA 22 A0 32 41 22 2C 35 29 00 9F 0B E2 04 |D$.".2A",5).....|
00000390: 98 31 2C 22 42 2D 50 3A 22 3B 38 3B 31 36 32 00 |.1,"B-P:";8;162.|
000003A0: B0 0B EC 04 98 38 2C 49 44 24 3B 3A 47 25 B2 31 |.....8,ID$;:G%.1|
000003B0: 00 CF 0B F6 04 8B 20 47 25 B2 31 20 A7 20 98 31 |...... G%.1 . .1|
000003C0: 2C 22 55 32 3A 22 3B 38 3B 30 3B 31 38 3B 30 00 |,"U2:";8;0;18;0.|
000003D0: E1 0B 00 05 98 31 2C 22 49 30 22 3A A0 38 3A A0 |.....1,"I0":.8:.|
000003E0: 31 00 13 0C 0A 05 99 22 93 11 11 11 11 11 12 22 |1......"......."|
000003F0: 3A 8B 20 47 25 B2 31 20 A7 20 99 22 44 49 53 4B |:. G%.1 . ."DISK|
00000400: 45 54 54 45 20 47 45 41 45 4E 44 45 52 54 20 2D |ETTE GEAENDERT -|
00000410: 20 22 3B 00 28 0C 14 05 99 22 50 52 4F 47 52 41 | ";.(...."PROGRA|
00000420: 4D 4D 45 4E 44 45 20 22 00 4B 0C 1E 05 99 22 11 |MMENDE ".K....".|
00000430: 11 4E 41 45 43 48 53 54 45 20 44 49 53 4B 45 54 |.NAECHSTE DISKET|
00000440: 54 45 20 3F 20 28 4A 2F 4E 29 22 00 63 0C 28 05 |TE ? (J/N)".c.(.|
00000450: 97 20 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 3A |. 198,0:. 198,1:|
00000460: A1 57 24 00 75 0C 32 05 8B 20 57 24 B3 B1 22 4A |.W$.u.2.. W$.."J|
00000470: 22 20 A7 20 80 00 7B 0C 3C 05 8A 00 B2 0C 78 05 |" . ..{.<.....x.|
00000480: 99 22 11 53 4F 4C 4C 20 44 49 45 20 44 49 53 4B |.".SOLL DIE DISK|
00000490: 45 54 54 45 20 56 45 52 53 43 48 4C 55 45 53 53 |ETTE VERSCHLUESS|
000004A0: 45 4C 54 20 57 45 52 44 45 4E 3F 11 28 4A 2F 4E |ELT WERDEN?.(J/N|
000004B0: 29 22 00 CA 0C 82 05 97 20 31 39 38 2C 30 3A 92 |)"...... 198,0:.|
000004C0: 20 31 39 38 2C 31 3A A1 41 24 00 DF 0C 8C 05 8B | 198,1:.A$......|
000004D0: 20 41 24 B3 B1 22 4A 22 20 A7 20 31 31 37 30 00 | A$.."J" . 1170.|
000004E0: 14 0D 96 05 99 22 11 4E 45 55 45 52 20 44 49 53 |.....".NEUER DIS|
000004F0: 4B 45 54 54 45 4E 4E 41 4D 45 20 28 4D 41 58 2E |KETTENNAME (MAX.|
00000500: 20 38 53 54 45 4C 4C 45 4E 20 21 21 29 22 3A 85 | 8STELLEN !!)":.|
00000510: 20 44 4E 24 00 29 0D A0 05 56 31 24 B2 C7 28 31 | DN$.)...V1$..(1|
00000520: 34 31 29 AA 22 91 12 9E 22 00 4D 0D AA 05 44 4E |41)."...".M...DN|
00000530: 24 B2 C8 28 44 4E 24 AA 22 A0 A0 A0 A0 A0 A0 A0 |$..(DN$.".......|
00000540: A0 A0 A0 A0 A0 A0 A0 A0 A0 22 2C 38 29 00 62 0D |.........",8).b.|
00000550: B4 05 44 4E 24 B2 56 31 24 AA 44 4E 24 AA 22 92 |..DN$.V1$.DN$.".|
00000560: 1F 22 00 6D 0D BE 05 89 20 31 31 39 30 00 00 00 |.".m.... 1190...|
00000570: 00 |. |
..H...." ".LISTSCHUTZ. X.......
........L........ ........`XXXXX.R....20
98......"... CHANGE THE DISK-NA
ME ."......" PROGRAM BY
ACHIM KALWA".W...."... ** DISKET
TE EINLEGEN **"...... 198,0:. 198,1.....
.".. CHANGE THE DISK-NAME
.".N...."...DISKNAME:";.17);"DISK ID
:":..9);"...";.C.... 1,8,15:.1,"I0".S.$.
. 8,8,8,"#"......1,"U1:";8;0;18;0...8..1
,"B-P:";8;144...B..I.1.16...L..#8,CH$:.C
H$;.A.V...T.`..1,"B-P:"8,162...J..#8,C1$
,C2$,C3$,C4$,C5$...T.. .10);C1$;C2$;C3$;
C4$;C5$.@.~.."...SOLL DER NAME GEAENDERT
WERDEN ? (J/N)".]... 198,0:. 198,1:.W$
:G%.0.R.... W$.."J" . 1210.}.... 1400...
..."NEUER DISKETTENNAME:":.DN$.C...DN$.H
(DN$." ",16).W....1,"B-P:
";8;144......8,DN$;:G%.1......"..SOLL DI
E DISK ID GEAENDERT WERDEN ?(J/N)".2....
198,0:. 198,1:.W$.G.D.. W$.."J" . 1270.
T.N..".NEUE DISK ID (MAX. 5 ZEICHEN):":.
ID$...X.ID$.H(ID$." 2A",5)......1,"B-P:
";8;162......8,ID$;:G%.1.O.... G%.1 . .1
,"U2:";8;0;18;0......1,"I0": 8: 1......"
.......":. G%.1 . ."DISKETTE GEAENDERT -
";.(...."PROGRAMMENDE ".K...."..NAECHST
E DISKETTE ? (J/N)".C.(.. 198,0:. 198,1:
.W$.U.2.. W$.."J" . ..{.<.....X..".SOLL
DIE DISKETTE VERSCHLUESSELT WERDEN?.(J/N
)".J.... 198,0:. 198,1:.A$...... A$.."J"
. 1170......".NEUER DISKETTENNAME (MAX.
8STELLEN !!)":. DN$.). .V1$.G(141)."...
".M...DN$.H(DN$." ",8).B.
..DN$.V1$.DN$."..".M.... 1190....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL