> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 00 00 8F 20 4F 53 49 2D 4F 43 50 20 |....... OSI-OCP |
00000010: 50 52 4F 54 45 58 54 31 CC 00 40 08 0A 00 99 20 |PROTEXT1..@.... |
00000020: 22 93 11 20 43 48 41 4E 47 45 20 44 49 53 4B 45 |".. CHANGE DISKE|
00000030: 54 54 45 20 48 45 41 44 45 52 2D 4E 41 4D 45 22 |TTE HEADER-NAME"|
00000040: 00 68 08 14 00 99 20 22 11 20 44 49 53 4B 20 55 |.h.... ". DISK U|
00000050: 4E 49 54 20 4E 52 20 28 38 2D 31 35 29 20 3F A0 |NIT NR (8-15) ?.|
00000060: 38 20 9D 9D 9D 9D 22 3B 00 8E 08 1E 00 85 20 55 |8 ....";...... U|
00000070: 3A 20 8B 20 55 B3 38 20 B0 20 55 B1 31 35 20 A7 |: . U.8 . U.15 .|
00000080: 20 99 20 22 91 91 91 22 3A 20 89 20 32 30 00 B4 | . "...": . 20..|
00000090: 08 28 00 99 20 22 11 20 44 49 53 4B 20 44 52 49 |.(.. ". DISK DRI|
000000A0: 56 45 20 4E 52 20 28 30 2F 31 29 20 3F A0 30 9D |VE NR (0/1) ?.0.|
000000B0: 9D 9D 22 3B 00 D9 08 32 00 85 20 44 3A 20 8B 20 |..";...2.. D: . |
000000C0: 44 B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 22 91 |D.0 . D.1 . . ".|
000000D0: 91 91 22 3A 20 89 20 34 30 00 09 09 3C 00 99 20 |..": . 40...<.. |
000000E0: 22 11 11 20 50 55 54 20 54 41 52 47 45 54 20 44 |".. PUT TARGET D|
000000F0: 49 53 4B 20 49 4E 20 55 4E 49 54 22 3B 55 3B 22 |ISK IN UNIT";U;"|
00000100: 20 44 52 49 56 45 22 3B 44 00 31 09 46 00 99 20 | DRIVE";D.1.F.. |
00000110: 22 20 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 |" THEN PRESS ANY|
00000120: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000130: 22 00 47 09 50 00 A1 20 58 24 3A 20 8B 20 58 24 |".G.P.. X$: . X$|
00000140: B2 22 22 A7 20 38 30 00 6A 09 5A 00 41 B2 31 3A |."". 80.j.Z.A.1:|
00000150: 20 56 B2 31 36 3A 20 51 24 B2 C7 28 33 34 29 3A | V.16: Q$..(34):|
00000160: 20 50 24 B2 C7 28 31 36 30 29 00 8A 09 64 00 54 | P$..(160)...d.T|
00000170: B2 31 38 3A 20 53 B2 30 3A 20 49 24 B2 22 49 22 |.18: S.0: I$."I"|
00000180: AA C9 28 C4 28 44 29 2C 31 29 00 A1 09 6E 00 9F |..(.(D),1)...n..|
00000190: 20 31 2C 55 2C 31 35 2C 49 24 3A 20 8D 20 33 35 | 1,U,15,I$: . 35|
000001A0: 30 00 C3 09 78 00 8D 20 33 31 30 3A 20 46 24 B2 |0...x.. 310: F$.|
000001B0: 48 24 3A 20 A1 23 32 2C 58 24 2C 58 24 2C 41 24 |H$: .#2,X$,X$,A$|
000001C0: 2C 42 24 00 ED 09 82 00 99 20 22 93 11 11 20 43 |,B$...... "... C|
000001D0: 55 52 52 45 4E 54 20 48 45 41 44 45 52 2D 4E 41 |URRENT HEADER-NA|
000001E0: 4D 45 20 22 3B 51 24 3B 46 24 3B 51 24 00 0E 0A |ME ";Q$;F$;Q$...|
000001F0: 8C 00 99 20 22 20 44 49 53 4B 45 54 54 45 20 49 |... " DISKETTE I|
00000200: 44 20 49 53 3A 20 20 22 3B 41 24 3B 42 24 00 3F |D IS: ";A$;B$.?|
00000210: 0A 96 00 99 20 22 11 20 4E 45 57 20 4E 41 4D 45 |.... ". NEW NAME|
00000220: 20 28 4D 41 58 20 31 36 20 43 48 41 52 41 43 54 | (MAX 16 CHARACT|
00000230: 45 52 53 29 20 4F 52 20 27 51 55 49 54 27 22 00 |ERS) OR 'QUIT'".|
00000240: 6E 0A A0 00 85 20 22 20 3F 20 51 55 49 54 9D 9D |n.... " ? QUIT..|
00000250: 9D 9D 9D 9D 22 3B 4E 24 3A 20 4C B2 C3 28 4E 24 |....";N$: L..(N$|
00000260: 29 3A 20 8B 20 4C B1 56 20 A7 20 31 33 30 00 8E |): . L.V . 130..|
00000270: 0A AA 00 8B 20 4E 24 B2 22 51 55 49 54 22 20 A7 |.... N$."QUIT" .|
00000280: 20 99 20 22 93 22 3B 3A 20 89 20 33 37 30 00 C2 | . ".";: . 370..|
00000290: 0A B4 00 99 20 22 11 20 4F 4B 20 54 4F 20 57 52 |.... ". OK TO WR|
000002A0: 49 54 45 20 4E 45 57 20 48 45 41 44 45 52 2D 4E |ITE NEW HEADER-N|
000002B0: 41 4D 45 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D |AME (Y/N) ? Y...|
000002C0: 22 3B 00 DC 0A BE 00 85 20 58 24 3A 20 8B 20 58 |";...... X$: . X|
000002D0: 24 B3 B1 22 59 22 20 A7 20 31 33 30 00 EC 0A C8 |$.."Y" . 130....|
000002E0: 00 8B 20 4C B2 56 20 A7 20 32 32 30 00 09 0B D2 |.. L.V . 220....|
000002F0: 00 81 20 58 B2 4C AA 41 20 A4 20 56 3A 20 4E 24 |.. X.L.A . V: N$|
00000300: B2 4E 24 AA 50 24 3A 20 82 00 25 0B DC 00 98 31 |.N$.P$: ..%....1|
00000310: 2C 22 42 2D 50 3A 22 3B 32 3B 31 34 34 3A 20 98 |,"B-P:";2;144: .|
00000320: 32 2C 4E 24 3B 00 41 0B E6 00 98 31 2C 22 55 32 |2,N$;.A....1,"U2|
00000330: 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 33 35 |:";2;D;T;S: . 35|
00000340: 30 00 57 0B F0 00 98 31 2C 49 24 3A 20 8D 20 33 |0.W....1,I$: . 3|
00000350: 35 30 3A 20 A0 20 32 00 7B 0B FA 00 99 20 22 11 |50: . 2.{.... ".|
00000360: 20 4F 4C 44 20 48 45 41 44 45 52 2D 4E 41 4D 45 | OLD HEADER-NAME|
00000370: 20 22 3B 51 24 3B 46 24 3B 51 24 00 8F 0B 04 01 | ";Q$;F$;Q$.....|
00000380: 8D 20 33 31 30 3A 20 A0 20 32 3A 20 A0 20 31 00 |. 310: . 2: . 1.|
00000390: B3 0B 0E 01 99 20 22 11 20 4E 45 57 20 48 45 41 |..... ". NEW HEA|
000003A0: 44 45 52 2D 4E 41 4D 45 20 22 3B 51 24 3B 48 24 |DER-NAME ";Q$;H$|
000003B0: 3B 51 24 00 E3 0B 18 01 99 20 22 11 20 43 48 41 |;Q$...... ". CHA|
000003C0: 4E 47 45 20 41 4E 4F 54 48 45 52 20 44 49 53 4B |NGE ANOTHER DISK|
000003D0: 45 54 54 45 20 28 59 2F 4E 29 20 3F 20 59 9D 9D |ETTE (Y/N) ? Y..|
000003E0: 9D 22 3B 00 FB 0B 22 01 85 20 58 24 3A 20 8B 20 |.";...".. X$: . |
000003F0: 58 24 B2 22 59 22 20 A7 20 36 30 00 09 0C 2C 01 |X$."Y" . 60...,.|
00000400: 99 20 22 93 22 3B 3A 20 80 00 27 0C 36 01 9F 20 |. ".";: ..'.6.. |
00000410: 32 2C 55 2C 32 2C 22 23 22 3A 20 8D 20 33 35 30 |2,U,2,"#": . 350|
00000420: 3A 20 48 24 B2 22 22 00 43 0C 40 01 98 31 2C 22 |: H$."".C.@..1,"|
00000430: 55 31 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 |U1:";2;D;T;S: . |
00000440: 33 35 30 00 62 0C 4A 01 98 31 2C 22 42 2D 50 3A |350.b.J..1,"B-P:|
00000450: 22 3B 32 3B 31 34 34 3A 20 81 20 58 B2 41 20 A4 |";2;144: . X.A .|
00000460: 20 56 00 7D 0C 54 01 A1 23 32 2C 54 24 3A 20 48 | V.}.T..#2,T$: H|
00000470: 24 B2 48 24 AA 54 24 3A 20 82 3A 20 8E 00 97 0C |$.H$.T$: .: ....|
00000480: 5E 01 84 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 |^..1,E,M$,J,K:. |
00000490: 45 B2 30 20 A7 20 8E 00 B2 0C 68 01 99 20 22 11 |E.0 . ....h.. ".|
000004A0: 20 45 52 52 4F 52 3A 20 22 3B 45 3B 4D 24 3B 4A | ERROR: ";E;M$;J|
000004B0: 3B 4B 00 C2 0C 72 01 A0 20 32 3A 20 A0 20 31 3A |;K...r.. 2: . 1:|
000004C0: 20 80 00 D4 0C 90 01 8F 20 44 49 53 4B 20 48 45 | ....... DISK HE|
000004D0: 41 44 45 52 00 00 00 |ADER... |
....... OSI-OCP PROTEXT1L.@.... ".. CHAN
GE DISKETTE HEADER-NAME".H.... ". DISK U
NIT NR (8-15) ? 8 ....";...... U: . U.8
. U.15 . . "...": . 20...(.. ". DISK DRI
VE NR (0/1) ? 0...";.Y.2.. D: . D.0 . D.
1 . . "...": . 40...<.. ".. PUT TARGET D
ISK IN UNIT";U;" DRIVE";D.1.F.. " THEN P
RESS ANY KEY TO CONTINUE".G.P.. X$: . X$
."". 80.J.Z.A.1: V.16: Q$.G(34): P$.G(16
0)...D.T.18: S.0: I$."I".I(D(D),1)...N..
1,U,15,I$: . 350.C.X.. 310: F$.H$: .#2,
X$,X$,A$,B$...... "... CURRENT HEADER-NA
ME ";Q$;F$;Q$...... " DISKETTE ID IS: "
;A$;B$.?.... ". NEW NAME (MAX 16 CHARACT
ERS) OR 'QUIT'".N. .. " ? QUIT......";N$
: L.C(N$): . L.V . 130...... N$."QUIT" .
. ".";: . 370.B.... ". OK TO WRITE NEW
HEADER-NAME (Y/N) ? Y...";...... X$: . X
$.."Y" . 130...H.. L.V . 220...R.. X.L.A
. V: N$.N$.P$: ..%....1,"B-P:";2;144: .
2,N$;.A....1,"U2:";2;D;T;S: . 350.W....1
,I$: . 350: 2.{.... ". OLD HEADER-NAME
";Q$;F$;Q$...... 310: 2: 1...... ".
NEW HEADER-NAME ";Q$;H$;Q$...... ". CHA
NGE ANOTHER DISKETTE (Y/N) ? Y...";...".
. X$: . X$."Y" . 60...,.. ".";: ..'.6..
2,U,2,"#": . 350: H$."".C.@..1,"U1:";2;D
;T;S: . 350.B.J..1,"B-P:";2;144: . X.A .
V.}.T..#2,T$: H$.H$.T$: .: ....^..1,E,M
$,J,K:. E.0 . ....H.. ". ERROR: ";E;M$;J
;K.B.R. 2: 1: ..T.... DISK HEADER...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL