> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 05 00 8F 20 27 46 49 4C 45 20 43 4F |....... 'FILE CO|
00000010: 50 49 45 52 27 20 43 2D 36 34 2F 32 30 00 2C 08 |PIER' C-64/20.,.|
00000020: 0A 00 97 32 35 31 2C C2 28 35 32 29 00 48 08 14 |...251,.(52).H..|
00000030: 00 97 35 32 2C C2 28 34 34 29 AA 34 3A 97 35 36 |..52,.(44).4:.56|
00000040: 2C C2 28 35 32 29 3A 9C 00 64 08 1E 00 99 22 93 |,.(52):..d....".|
00000050: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
00000060: 20 54 4F 22 00 7D 08 28 00 99 22 43 4F 50 59 20 | TO".}.(.."COPY |
00000070: 41 20 50 52 4F 47 52 41 4D 20 4F 52 22 00 99 08 |A PROGRAM OR"...|
00000080: 32 00 99 22 53 45 51 55 45 4E 54 49 41 4C 20 46 |2.."SEQUENTIAL F|
00000090: 49 4C 45 20 46 52 4F 4D 22 00 B4 08 3C 00 99 22 |ILE FROM"...<.."|
000000A0: 4F 4E 45 20 44 49 53 4B 28 54 48 45 20 53 4F 55 |ONE DISK(THE SOU|
000000B0: 52 43 45 22 00 D0 08 46 00 99 22 44 49 53 4B 29 |RCE"...F.."DISK)|
000000C0: 20 54 4F 20 41 4E 4F 54 48 45 52 28 54 48 45 22 | TO ANOTHER(THE"|
000000D0: 00 EA 08 50 00 99 22 44 45 53 54 49 4E 41 54 49 |...P.."DESTINATI|
000000E0: 4F 4E 20 44 49 53 4B 29 2E 22 00 06 09 5A 00 99 |ON DISK)."...Z..|
000000F0: 22 11 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 |".INSERT SOURCE |
00000100: 44 49 53 4B 2E 22 00 16 09 64 00 4D B2 32 35 36 |DISK."...d.M.256|
00000110: AC C2 28 35 32 29 00 23 09 6E 00 9F 31 35 2C 38 |..(52).#.n..15,8|
00000120: 2C 31 35 00 3E 09 78 00 99 22 57 48 41 54 20 49 |,15.>.x.."WHAT I|
00000130: 53 20 54 48 45 20 4E 41 4D 45 20 4F 46 22 00 5D |S THE NAME OF".]|
00000140: 09 82 00 99 22 54 48 45 20 46 49 4C 45 20 4F 52 |...."THE FILE OR|
00000150: 20 50 52 4F 47 52 41 4D 22 3A 85 46 24 00 82 09 | PROGRAM":.F$...|
00000160: 8C 00 54 24 B2 22 50 22 3A 99 22 11 57 48 41 54 |..T$."P":.".WHAT|
00000170: 20 49 53 20 54 48 45 20 46 49 4C 45 20 54 59 50 | IS THE FILE TYP|
00000180: 45 22 00 A2 09 96 00 99 22 11 28 20 27 50 27 20 |E"......".( 'P' |
00000190: 50 52 4F 47 52 2E 20 27 53 27 20 46 49 4C 45 20 |PROGR. 'S' FILE |
000001A0: 29 22 00 AA 09 AA 00 85 54 24 00 C4 09 B4 00 9F |)"......T$......|
000001B0: 32 2C 38 2C 32 2C 46 24 AA 22 2C 22 AA 54 24 AA |2,8,2,F$.",".T$.|
000001C0: 22 2C 52 22 00 E7 09 BE 00 84 31 35 2C 45 2C 45 |",R"......15,E,E|
000001D0: 24 2C 58 2C 58 3A 8B 45 B3 B1 30 A7 99 45 24 3A |$,X,X:.E..0..E$:|
000001E0: A0 32 3A 89 31 32 30 00 01 0A C8 00 A1 23 32 2C |.2:.120......#2,|
000001F0: 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 30 |A$:.A$."".A$..(0|
00000200: 29 00 20 0A D2 00 97 4D AA 4A 2C C6 28 41 24 29 |). ....M.J,.(A$)|
00000210: 3A 4A B2 4A AA 31 3A 8B 53 54 B2 30 A7 32 30 30 |:J.J.1:.ST.0.200|
00000220: 00 27 0A DC 00 A0 32 00 41 0A E6 00 99 22 49 4E |.'....2.A...."IN|
00000230: 53 45 52 54 20 44 45 53 54 49 4E 41 54 49 4F 4E |SERT DESTINATION|
00000240: 22 00 5A 0A F0 00 99 22 44 49 53 4B 20 41 4E 44 |".Z...."DISK AND|
00000250: 20 12 52 45 54 55 52 4E 92 22 00 6A 0A FA 00 99 | .RETURN.".j....|
00000260: 22 54 4F 20 43 4F 50 59 2E 22 00 81 0A 04 01 A1 |"TO COPY."......|
00000270: 43 24 3A 8B 43 24 B3 B1 C7 28 31 33 29 A7 32 36 |C$:.C$...(13).26|
00000280: 30 00 A1 0A 0E 01 99 22 11 11 11 50 52 45 53 53 |0......"...PRESS|
00000290: 20 12 52 45 54 55 52 4E 92 20 49 46 20 59 4F 55 | .RETURN. IF YOU|
000002A0: 22 00 BE 0A 18 01 99 22 57 41 4E 54 20 54 4F 20 |"......"WANT TO |
000002B0: 4B 45 45 50 20 54 48 45 20 4E 41 4D 45 22 00 C6 |KEEP THE NAME"..|
000002C0: 0A 22 01 99 46 24 00 DD 0A 2C 01 85 22 46 49 4C |."..F$...,.."FIL|
000002D0: 45 20 4E 41 4D 45 21 1D 1D 22 3B 46 24 00 F7 0A |E NAME!..";F$...|
000002E0: 36 01 9F 32 2C 38 2C 32 2C 46 24 AA 22 2C 22 AA |6..2,8,2,F$.",".|
000002F0: 54 24 AA 22 2C 57 22 00 1A 0B 40 01 84 31 35 2C |T$.",W"...@..15,|
00000300: 45 2C 45 24 2C 58 2C 58 3A 8B 45 B3 B1 30 A7 99 |E,E$,X,X:.E..0..|
00000310: 45 24 3A A0 32 3A 89 33 30 30 00 37 0B 4A 01 81 |E$:.2:.300.7.J..|
00000320: 4B B2 30 A4 4A AB 31 3A 98 32 2C C7 28 C2 28 4D |K.0.J.1:.2,.(.(M|
00000330: AA 4B 29 29 3B 3A 82 00 42 0B 54 01 A0 32 3A A0 |.K));:..B.T..2:.|
00000340: 31 35 00 5E 0B 5E 01 97 35 32 2C C2 28 32 35 31 |15.^.^..52,.(251|
00000350: 29 3A 97 35 36 2C C2 28 32 35 31 29 3A 9C 00 00 |):.56,.(251):...|
00000360: FF |. |
....... 'FILE COPIER' C-64/20.,....251,B
(52).H....52,B(44).4:.56,B(52):..D....".
RUN THIS PROGRAM TO".}.(.."COPY A PROGRA
M OR"...2.."SEQUENTIAL FILE FROM"...<.."
ONE DISK(THE SOURCE".P.F.."DISK) TO ANOT
HER(THE"...P.."DESTINATION DISK)."...Z..
".INSERT SOURCE DISK."...D.M.256.B(52).#
.N..15,8,15.>.X.."WHAT IS THE NAME OF".]
...."THE FILE OR PROGRAM":.F$.....T$."P"
:.".WHAT IS THE FILE TYPE"......".( 'P'
PROGR. 'S' FILE )"......T$.D....2,8,2,F$
.",".T$.",R"......15,E,E$,X,X:.E..0..E$:
2:.120...H..#2,A$:.A$."".A$.G(0). .R..M
.J,F(A$):J.J.1:.ST.0.200.'... 2.A...."IN
SERT DESTINATION".Z...."DISK AND .RETURN
.".J...."TO COPY."......C$:.C$..G(13).26
0......"...PRESS .RETURN. IF YOU"......"
WANT TO KEEP THE NAME".F."..F$...,.."FIL
E NAME!..";F$...6..2,8,2,F$.",".T$.",W".
..@..15,E,E$,X,X:.E..0..E$: 2:.300.7.J..
K.0.J.1:.2,G(B(M.K));:..B.T. 2: 15.^.^..
52,B(251):.56,B(251):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL