> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 35 08 00 00 99 22 54 48 49 53 20 49 53 20 |..5...."THIS IS |
00000010: 48 4F 57 4E 4F 57 42 52 4F 57 4E 43 4F 57 20 42 |HOWNOWBROWNCOW B|
00000020: 59 20 4D 41 52 43 4F 21 22 3A 81 54 B2 31 A4 32 |Y MARCO!":.T.1.2|
00000030: 30 30 30 3A 82 00 5C 08 0A 00 99 20 22 93 11 20 |000:..\.... ".. |
00000040: 43 48 41 4E 47 45 20 44 49 53 4B 45 54 54 45 20 |CHANGE DISKETTE |
00000050: 48 45 41 44 45 52 2D 4E 41 4D 45 22 00 84 08 14 |HEADER-NAME"....|
00000060: 00 99 20 22 11 20 44 49 53 4B 20 55 4E 49 54 20 |.. ". DISK UNIT |
00000070: 4E 52 20 28 38 2D 31 35 29 20 3F A0 38 20 9D 9D |NR (8-15) ?.8 ..|
00000080: 9D 9D 22 3B 00 AA 08 1E 00 85 20 55 3A 20 8B 20 |..";...... U: . |
00000090: 55 B3 38 20 B0 20 55 B1 31 35 20 A7 20 99 20 22 |U.8 . U.15 . . "|
000000A0: 91 91 91 22 3A 20 89 20 32 30 00 D0 08 28 00 99 |...": . 20...(..|
000000B0: 20 22 11 20 44 49 53 4B 20 44 52 49 56 45 20 4E | ". DISK DRIVE N|
000000C0: 52 20 28 30 2F 31 29 20 3F A0 30 9D 9D 9D 22 3B |R (0/1) ?.0...";|
000000D0: 00 F5 08 32 00 85 20 44 3A 20 8B 20 44 B3 30 20 |...2.. D: . D.0 |
000000E0: B0 20 44 B1 31 20 A7 20 99 20 22 91 91 91 22 3A |. D.1 . . "...":|
000000F0: 20 89 20 34 30 00 25 09 3C 00 99 20 22 11 11 20 | . 40.%.<.. ".. |
00000100: 50 55 54 20 54 41 52 47 45 54 20 44 49 53 4B 20 |PUT TARGET DISK |
00000110: 49 4E 20 55 4E 49 54 22 3B 55 3B 22 20 44 52 49 |IN UNIT";U;" DRI|
00000120: 56 45 22 3B 44 00 4D 09 46 00 99 20 22 20 54 48 |VE";D.M.F.. " TH|
00000130: 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |EN PRESS ANY KEY|
00000140: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 63 09 | TO CONTINUE".c.|
00000150: 50 00 A1 20 58 24 3A 20 8B 20 58 24 B2 22 22 A7 |P.. X$: . X$."".|
00000160: 20 38 30 00 86 09 5A 00 41 B2 31 3A 20 56 B2 31 | 80...Z.A.1: V.1|
00000170: 36 3A 20 51 24 B2 C7 28 33 34 29 3A 20 50 24 B2 |6: Q$..(34): P$.|
00000180: C7 28 31 36 30 29 00 A6 09 64 00 54 B2 31 38 3A |.(160)...d.T.18:|
00000190: 20 53 B2 30 3A 20 49 24 B2 22 49 22 AA C9 28 C4 | S.0: I$."I"..(.|
000001A0: 28 44 29 2C 31 29 00 BD 09 6E 00 9F 20 31 2C 55 |(D),1)...n.. 1,U|
000001B0: 2C 31 35 2C 49 24 3A 20 8D 20 33 35 30 00 DF 09 |,15,I$: . 350...|
000001C0: 78 00 8D 20 33 31 30 3A 20 46 24 B2 48 24 3A 20 |x.. 310: F$.H$: |
000001D0: A1 23 32 2C 58 24 2C 58 24 2C 41 24 2C 42 24 00 |.#2,X$,X$,A$,B$.|
000001E0: 09 0A 82 00 99 20 22 93 11 11 20 43 55 52 52 45 |..... "... CURRE|
000001F0: 4E 54 20 48 45 41 44 45 52 2D 4E 41 4D 45 20 22 |NT HEADER-NAME "|
00000200: 3B 51 24 3B 46 24 3B 51 24 00 2A 0A 8C 00 99 20 |;Q$;F$;Q$.*.... |
00000210: 22 20 44 49 53 4B 45 54 54 45 20 49 44 20 49 53 |" DISKETTE ID IS|
00000220: 3A 20 20 22 3B 41 24 3B 42 24 00 5B 0A 96 00 99 |: ";A$;B$.[....|
00000230: 20 22 11 20 4E 45 57 20 4E 41 4D 45 20 28 4D 41 | ". NEW NAME (MA|
00000240: 58 20 31 36 20 43 48 41 52 41 43 54 45 52 53 29 |X 16 CHARACTERS)|
00000250: 20 4F 52 20 27 51 55 49 54 27 22 00 8A 0A A0 00 | OR 'QUIT'".....|
00000260: 85 20 22 20 3F 20 51 55 49 54 9D 9D 9D 9D 9D 9D |. " ? QUIT......|
00000270: 22 3B 4E 24 3A 20 4C B2 C3 28 4E 24 29 3A 20 8B |";N$: L..(N$): .|
00000280: 20 4C B1 56 20 A7 20 31 33 30 00 AA 0A AA 00 8B | L.V . 130......|
00000290: 20 4E 24 B2 22 51 55 49 54 22 20 A7 20 99 20 22 | N$."QUIT" . . "|
000002A0: 93 22 3B 3A 20 89 20 33 37 30 00 DE 0A B4 00 99 |.";: . 370......|
000002B0: 20 22 11 20 4F 4B 20 54 4F 20 57 52 49 54 45 20 | ". OK TO WRITE |
000002C0: 4E 45 57 20 48 45 41 44 45 52 2D 4E 41 4D 45 20 |NEW HEADER-NAME |
000002D0: 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 F8 |(Y/N) ? Y...";..|
000002E0: 0A BE 00 85 20 58 24 3A 20 8B 20 58 24 B3 B1 22 |.... X$: . X$.."|
000002F0: 59 22 20 A7 20 31 33 30 00 08 0B C8 00 8B 20 4C |Y" . 130...... L|
00000300: B2 56 20 A7 20 32 32 30 00 25 0B D2 00 81 20 58 |.V . 220.%.... X|
00000310: B2 4C AA 41 20 A4 20 56 3A 20 4E 24 B2 4E 24 AA |.L.A . V: N$.N$.|
00000320: 50 24 3A 20 82 00 41 0B DC 00 98 31 2C 22 42 2D |P$: ..A....1,"B-|
00000330: 50 3A 22 3B 32 3B 31 34 34 3A 20 98 32 2C 4E 24 |P:";2;144: .2,N$|
00000340: 3B 00 5D 0B E6 00 98 31 2C 22 55 32 3A 22 3B 32 |;.]....1,"U2:";2|
00000350: 3B 44 3B 54 3B 53 3A 20 8D 20 33 35 30 00 73 0B |;D;T;S: . 350.s.|
00000360: F0 00 98 31 2C 49 24 3A 20 8D 20 33 35 30 3A 20 |...1,I$: . 350: |
00000370: A0 20 32 00 97 0B FA 00 99 20 22 11 20 4F 4C 44 |. 2...... ". OLD|
00000380: 20 48 45 41 44 45 52 2D 4E 41 4D 45 20 22 3B 51 | HEADER-NAME ";Q|
00000390: 24 3B 46 24 3B 51 24 00 AB 0B 04 01 8D 20 33 31 |$;F$;Q$...... 31|
000003A0: 30 3A 20 A0 20 32 3A 20 A0 20 31 00 CF 0B 0E 01 |0: . 2: . 1.....|
000003B0: 99 20 22 11 20 4E 45 57 20 48 45 41 44 45 52 2D |. ". NEW HEADER-|
000003C0: 4E 41 4D 45 20 22 3B 51 24 3B 48 24 3B 51 24 00 |NAME ";Q$;H$;Q$.|
000003D0: FF 0B 18 01 99 20 22 11 20 43 48 41 4E 47 45 20 |..... ". CHANGE |
000003E0: 41 4E 4F 54 48 45 52 20 44 49 53 4B 45 54 54 45 |ANOTHER DISKETTE|
000003F0: 20 28 59 2F 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 | (Y/N) ? Y...";.|
00000400: 17 0C 22 01 85 20 58 24 3A 20 8B 20 58 24 B2 22 |..".. X$: . X$."|
00000410: 59 22 20 A7 20 36 30 00 25 0C 2C 01 99 20 22 93 |Y" . 60.%.,.. ".|
00000420: 22 3B 3A 20 80 00 43 0C 36 01 9F 20 32 2C 55 2C |";: ..C.6.. 2,U,|
00000430: 32 2C 22 23 22 3A 20 8D 20 33 35 30 3A 20 48 24 |2,"#": . 350: H$|
00000440: B2 22 22 00 5F 0C 40 01 98 31 2C 22 55 31 3A 22 |.""._.@..1,"U1:"|
00000450: 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 33 35 30 00 |;2;D;T;S: . 350.|
00000460: 7E 0C 4A 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |~.J..1,"B-P:";2;|
00000470: 31 34 34 3A 20 81 20 58 B2 41 20 A4 20 56 00 99 |144: . X.A . V..|
00000480: 0C 54 01 A1 23 32 2C 54 24 3A 20 48 24 B2 48 24 |.T..#2,T$: H$.H$|
00000490: AA 54 24 3A 20 82 3A 20 8E 00 B3 0C 5E 01 84 31 |.T$: .: ....^..1|
000004A0: 2C 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 45 B2 30 20 |,E,M$,J,K:. E.0 |
000004B0: A7 20 8E 00 CE 0C 68 01 99 20 22 11 20 45 52 52 |. ....h.. ". ERR|
000004C0: 4F 52 3A 20 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 DE |OR: ";E;M$;J;K..|
000004D0: 0C 72 01 A0 20 32 3A 20 A0 20 31 3A 20 80 00 F3 |.r.. 2: . 1: ...|
000004E0: 0C 90 01 8F 20 48 4F 57 4E 4F 57 42 52 4F 57 4E |.... HOWNOWBROWN|
000004F0: 43 4F 57 00 00 00 |COW... |
..5...."THIS IS HOWNOWBROWNCOW BY MARCO!
":.T.1.2000:..\.... ".. CHANGE DISKETTE
HEADER-NAME"...... ". DISK UNIT NR (8-15
) ? 8 ....";...... U: . U.8 . U.15 . . "
...": . 20.P.(.. ". DISK DRIVE NR (0/1)
? 0...";...2.. D: . D.0 . D.1 . . "...":
. 40.%.<.. ".. PUT TARGET DISK IN UNIT"
;U;" DRIVE";D.M.F.. " THEN PRESS ANY KEY
TO CONTINUE".C.P.. X$: . X$."". 80...Z.
A.1: V.16: Q$.G(34): P$.G(160)...D.T.18:
S.0: I$."I".I(D(D),1)...N.. 1,U,15,I$:
. 350...X.. 310: F$.H$: .#2,X$,X$,A$,B$.
..... "... CURRENT HEADER-NAME ";Q$;F$;Q
$.*.... " DISKETTE ID IS: ";A$;B$.[....
". NEW NAME (MAX 16 CHARACTERS) OR 'QUI
T'"... .. " ? QUIT......";N$: L.C(N$): .
L.V . 130...... N$."QUIT" . . ".";: . 3
70...... ". 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$: ..A....1,"B-P:";2;144: .2,N$;.]....1
,"U2:";2;D;T;S: . 350.S....1,I$: . 350:
2...... ". OLD HEADER-NAME ";Q$;F$;Q$.
..... 310: 2: 1.O.... ". NEW HEADER-
NAME ";Q$;H$;Q$...... ". CHANGE ANOTHER
DISKETTE (Y/N) ? Y...";...".. X$: . X$."
Y" . 60.%.,.. ".";: ..C.6.. 2,U,2,"#": .
350: H$.""._.@..1,"U1:";2;D;T;S: . 350.
~.J..1,"B-P:";2;144: . X.A . V...T..#2,T
$: H$.H$.T$: .: ....^..1,E,M$,J,K:. E.0
. ..N.H.. ". ERROR: ";E;M$;J;K...R. 2:
1: ....... HOWNOWBROWNCOW...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL