> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 6E 00 8F 20 2A 20 |*******.M.n.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.|
00000050: 78 00 8F 20 2A 20 20 20 20 44 55 41 4C 2D 44 52 |x.. * DUAL-DR|
00000060: 49 56 45 20 46 49 4C 45 20 43 4F 50 59 20 20 20 |IVE FILE COPY |
00000070: 20 20 2A 00 99 08 82 00 8F 20 2A 20 20 20 20 42 | *...... * B|
00000080: 59 20 53 54 45 56 45 20 43 41 54 45 53 20 20 31 |Y STEVE CATES 1|
00000090: 39 38 34 20 20 20 20 20 2A 00 BF 08 8C 00 8F 20 |984 *...... |
000000A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000000C0: E5 08 96 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 00 EB 08 A0 00 3A 00 1F 09 AA 00 |*****.....:.....|
000000F0: 86 50 24 28 31 35 30 29 3A 86 52 24 28 31 35 30 |.P$(150):.R$(150|
00000100: 29 3A 43 24 B2 22 12 20 20 20 C4 C9 D3 CB 20 CE |):C$.". .... .|
00000110: C1 CD C5 20 3D 20 22 3A 4E 24 B2 C7 28 30 29 00 |... = ":N$..(0).|
00000120: 4E 09 B4 00 5A 24 B2 22 20 20 20 20 20 20 20 20 |N...Z$." |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 6A | ".j|
00000150: 09 BE 00 97 35 33 32 37 32 2C 32 31 3A 58 B2 31 |....53272,21:X.1|
00000160: 3A 5A B2 31 3A 58 24 B2 22 22 00 99 09 C8 00 99 |:Z.1:X$.""......|
00000170: 22 93 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |". .............|
00000180: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 D5 C3 |................|
00000190: C3 C3 C3 C3 C3 C3 C3 C3 C9 00 C7 09 D2 00 99 22 |..............."|
000001A0: 20 DD 20 20 44 55 41 4C 2D 44 52 49 56 45 20 46 | . DUAL-DRIVE F|
000001B0: 49 4C 45 20 43 4F 50 59 20 20 20 DD DD 20 53 2E |ILE COPY .. S.|
000001C0: 43 41 54 45 53 20 DD 00 F5 09 DC 00 99 22 20 CA |CATES ......." .|
000001D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000001E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 CB CA C3 C3 C3 C3 C3 |................|
000001F0: C3 C3 C3 C3 CB 00 1D 0A E6 00 85 22 11 20 20 20 |...........". |
00000200: 44 49 53 4B 20 44 45 56 49 43 45 20 4E 55 4D 42 |DISK DEVICE NUMB|
00000210: 45 52 20 20 20 38 9D 9D 9D 22 3B 44 4E 00 4C 0A |ER 8...";DN.L.|
00000220: F0 00 99 22 11 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 |...". ..........|
00000230: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000240: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 00 7E 0A FA |.............~..|
00000250: 00 99 22 20 DD 50 4C 41 43 45 20 12 20 20 53 4F |.." .PLACE . SO|
00000260: 55 52 43 45 20 20 20 92 20 44 49 53 4B 20 49 4E |URCE . DISK IN|
00000270: 20 44 52 49 56 45 20 12 20 4F 4E 45 92 DD 00 AC | DRIVE . ONE....|
00000280: 0A 04 01 99 22 20 DD 20 20 20 20 20 20 20 20 20 |...." . |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 DD 00 DE 0A 0E | .....|
000002B0: 01 99 22 20 DD 50 4C 41 43 45 20 12 44 45 53 54 |.." .PLACE .DEST|
000002C0: 49 4E 41 54 49 4F 4E 92 20 44 49 53 4B 20 49 4E |INATION. DISK IN|
000002D0: 20 44 52 49 56 45 20 12 5A 45 52 4F 92 DD 00 0C | DRIVE .ZERO....|
000002E0: 0B 18 01 99 22 20 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 |...." ..........|
000002F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000300: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 00 3F 0B 22 |.............?."|
00000310: 01 8F 50 52 49 4E 54 22 20 DD 20 20 20 20 20 20 |..PRINT" . |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 | ..|
00000340: 6D 0B 2C 01 99 22 20 DD 20 20 20 41 4E 53 57 45 |m.,.." . ANSWE|
00000350: 52 20 27 59 27 20 54 4F 20 43 4F 50 59 20 46 49 |R 'Y' TO COPY FI|
00000360: 4C 45 20 4C 49 53 54 45 44 20 20 20 DD 00 9B 0B |LE LISTED ....|
00000370: 36 01 99 22 20 DD 20 20 20 20 20 20 20 20 20 20 |6.." . |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 DD 00 C9 0B 40 01 | ....@.|
000003A0: 99 22 20 DD 20 20 20 41 4E 53 57 45 52 20 27 4E |." . ANSWER 'N|
000003B0: 27 20 54 4F 20 50 41 53 53 20 54 4F 20 4E 45 58 |' TO PASS TO NEX|
000003C0: 54 20 46 49 4C 45 20 20 DD 00 FC 0B 4A 01 8F 50 |T FILE ....J..P|
000003D0: 52 49 4E 54 22 20 DD 20 20 20 20 20 20 20 20 20 |RINT" . |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 DD 00 2A 0C 54 | ..*.T|
00000400: 01 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.." ............|
00000410: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000420: C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 00 3C 0C 5E 01 9F |...........<.^..|
00000430: 35 2C 44 4E 2C 31 35 3A 8D 37 30 30 00 70 0C 68 |5,DN,15:.700.p.h|
00000440: 01 85 22 11 20 20 4E 45 45 44 20 54 4F 20 46 4F |..". NEED TO FO|
00000450: 52 4D 41 54 20 44 45 53 54 49 4E 41 54 49 4F 4E |RMAT DESTINATION|
00000460: 20 44 49 53 4B 20 20 20 4E 9D 9D 9D 22 3B 41 24 | DISK N...";A$|
00000470: 00 81 0C 72 01 8B 41 24 B3 B1 22 59 22 A7 34 30 |...r..A$.."Y".40|
00000480: 30 00 AD 0C 7C 01 85 22 11 20 20 44 49 53 4B 20 |0...|..". DISK |
00000490: 4E 41 4D 45 20 22 3B 41 24 3A 85 22 11 20 20 49 |NAME ";A$:.". I|
000004A0: 44 20 4E 55 4D 42 45 52 20 22 3B 42 24 00 C9 0C |D NUMBER ";B$...|
000004B0: 86 01 98 35 2C 22 4E 30 3A 22 AA 41 24 AA 22 2C |...5,"N0:".A$.",|
000004C0: 22 AA 42 24 3A 8D 37 30 30 00 FB 0C 90 01 99 22 |".B$:.700......"|
000004D0: 93 12 20 D2 45 41 44 49 4E 47 20 44 49 53 4B 20 |.. .EADING DISK |
000004E0: 44 49 52 45 43 54 4F 52 59 20 4F 4E 20 44 52 49 |DIRECTORY ON DRI|
000004F0: 56 45 20 4F 4E 45 2E 2E 2E 20 22 00 1B 0D 9A 01 |VE ONE... ".....|
00000500: 97 35 33 32 37 32 2C 32 33 3A 9F 36 2C 44 4E 2C |.53272,23:.6,DN,|
00000510: 30 2C 22 24 31 22 3A 8D 37 30 30 00 35 0D A4 01 |0,"$1":.700.5...|
00000520: A1 23 36 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C |.#6,A$,A$,A$,A$,|
00000530: 41 24 2C 41 24 00 4B 0D AE 01 A1 23 36 2C 41 24 |A$,A$.K....#6,A$|
00000540: 3A 8B 41 24 B2 22 22 A7 34 35 30 00 5D 0D B8 01 |:.A$."".450.]...|
00000550: 58 24 B2 58 24 AA 41 24 3A 89 34 33 30 00 9E 0D |X$.X$.A$:.430...|
00000560: C2 01 42 24 B2 CA 28 58 24 2C 32 31 2C 32 29 AA |..B$..(X$,21,2).|
00000570: 22 20 22 3A 41 24 B2 CA 28 58 24 2C 33 2C 31 36 |" ":A$..(X$,3,16|
00000580: 29 3A 44 4E 24 B2 43 24 AA C7 28 33 34 29 AA 41 |):DN$.C$..(34).A|
00000590: 24 AA C7 28 33 34 29 AA 22 20 22 AA 42 24 00 B7 |$..(34)." ".B$..|
000005A0: 0D CC 01 A1 23 36 2C 41 24 2C 41 24 3A 8B 41 24 |....#6,A$,A$:.A$|
000005B0: B2 22 22 A7 35 31 30 00 D3 0D D6 01 99 22 13 11 |."".510......"..|
000005C0: 11 20 20 20 C6 49 4C 45 20 4E 55 4D 42 45 52 20 |. .ILE NUMBER |
000005D0: 22 3B 58 00 01 0E E0 01 A1 23 36 2C 41 24 2C 42 |";X......#6,A$,B|
000005E0: 24 3A 42 24 B2 C4 28 C6 28 41 24 AA 4E 24 29 AA |$:B$..(.(A$.N$).|
000005F0: C6 28 42 24 AA 4E 24 29 AC 32 35 36 29 AA 22 20 |.(B$.N$).256)." |
00000600: 22 00 2D 0E EA 01 A1 23 36 2C 41 24 3A 8B 41 24 |".-....#6,A$:.A$|
00000610: B2 22 22 A7 50 24 28 58 29 B2 42 24 3A 58 B2 58 |."".P$(X).B$:X.X|
00000620: AA 31 3A 42 24 B2 22 22 3A 89 34 36 30 00 3F 0E |.1:B$."":.460.?.|
00000630: F4 01 42 24 B2 42 24 AA 41 24 3A 89 34 39 30 00 |..B$.B$.A$:.490.|
00000640: 54 0E FE 01 99 22 93 22 44 4E 24 22 20 20 20 22 |T...."."DN$" "|
00000650: 3A 43 B2 30 00 6D 0E 08 02 81 42 B2 31 A4 58 AB |:C.0.m....B.1.X.|
00000660: 32 3A 99 22 20 20 20 22 50 24 28 42 29 00 84 0E |2:." "P$(B)...|
00000670: 12 02 41 B2 C2 28 32 30 33 29 3A 8B 41 B2 36 34 |..A..(203):.A.64|
00000680: A7 35 33 30 00 93 0E 1C 02 81 44 B2 31 A4 32 30 |.530......D.1.20|
00000690: 30 3A 82 00 B2 0E 26 02 8B 41 B2 33 39 A7 99 22 |0:....&..A.39.."|
000006A0: 91 22 5A 24 22 91 22 3A 42 24 B2 22 22 3A 89 35 |."Z$".":B$."":.5|
000006B0: 39 30 00 CA 0E 30 02 8B 41 B2 31 A7 99 22 91 22 |90...0..A.1.."."|
000006C0: 5A 24 22 91 22 3A 89 36 30 30 00 D9 0E 3A 02 8B |Z$".":.600...:..|
000006D0: 41 B3 B1 32 35 A7 35 33 30 00 EF 0E 44 02 43 B2 |A..25.530...D.C.|
000006E0: 43 AA 31 3A 52 24 28 43 29 B2 50 24 28 42 29 00 |C.1:R$(C).P$(B).|
000006F0: F6 0E 4E 02 82 42 00 1F 0F 58 02 99 22 20 20 20 |..N..B...X.." |
00000700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 11 22 00 |-------------.".|
00000720: 3D 0F 62 02 8B 43 B2 30 A7 99 A3 31 34 29 22 CE |=.b..C.0...14)".|
00000730: CF 20 C6 C9 CC C5 D3 22 3A 89 36 39 30 00 5D 0F |. .....":.690.].|
00000740: 6C 02 81 41 B2 31 A4 43 3A 41 24 B2 CA 28 52 24 |l..A.1.C:A$..(R$|
00000750: 28 41 29 2C 38 2C 31 36 29 3A 42 B2 31 00 7E 0F |(A),8,16):B.1.~.|
00000760: 76 02 8B CA 28 41 24 2C 42 2C 31 29 B3 B1 C7 28 |v...(A$,B,1)...(|
00000770: 33 34 29 A7 42 B2 42 AA 31 3A 89 36 33 30 00 A5 |34).B.B.1:.630..|
00000780: 0F 80 02 41 24 B2 C8 28 41 24 2C 42 AB 31 29 3A |...A$..(A$,B.1):|
00000790: 99 22 91 22 5A 24 22 91 22 3A 99 22 20 20 20 22 |."."Z$".":." "|
000007A0: 52 24 28 41 29 00 BE 0F 8A 02 98 35 2C 22 43 30 |R$(A)......5,"C0|
000007B0: 3A 22 AA 41 24 AA 22 3D 31 3A 22 AA 41 24 00 E3 |:".A$."=1:".A$..|
000007C0: 0F 94 02 84 35 2C 45 2C 45 53 24 3A 8B 45 B3 B1 |....5,E,ES$:.E..|
000007D0: 30 A7 99 22 91 22 A3 32 37 29 22 12 22 45 53 24 |0..".".27)"."ES$|
000007E0: 22 11 22 00 F9 0F 9E 02 8B 45 B2 37 32 A7 98 35 |"."......E.72..5|
000007F0: 2C 22 53 30 3A 22 AA 41 24 00 0D 10 A8 02 81 44 |,"S0:".A$......D|
00000800: B2 31 A4 31 30 30 30 3A 82 44 3A 82 41 00 35 10 |.1.1000:.D:.A.5.|
00000810: B2 02 A0 35 3A A0 36 3A 97 31 39 38 2C 30 3A 99 |...5:.6:.198,0:.|
00000820: A3 31 33 29 22 11 11 12 C4 CF CE C5 20 21 21 21 |.13)"....... !!!|
00000830: 21 21 22 3A 80 00 42 10 BC 02 84 35 2C 45 2C 45 |!!":..B....5,E,E|
00000840: 53 24 00 4D 10 C6 02 8B 45 B2 30 A7 8E 00 69 10 |S$.M....E.0...i.|
00000850: D0 02 99 22 11 11 20 20 20 12 C4 C9 D3 CB 20 C5 |...".. ..... .|
00000860: D2 D2 CF D2 20 22 45 53 24 00 73 10 DA 02 A0 36 |.... "ES$.s....6|
00000870: 3A A0 35 00 00 00 |:.5... |
..'.D.. *******************************.
M.N.. * *.S.
X.. * DUAL-DRIVE FILE COPY *.....
. * BY STEVE CATES 1984 *......
* *...... **
*****************************... .:.....
.P$(150):.R$(150):C$.". DISK NAME = ":
N$.G(0).N...Z$."
".J....53272,21:X.1:Z.1:X$.
""...H..". UCCCCCCCCCCCCCCCCCCCCCCCCCIUC
CCCCCCCCI.G.R.." . DUAL-DRIVE FILE COPY
.. S.CATES ......." JCCCCCCCCCCCCCCCC
CCCCCCCCCKJCCCCCCCCCK......". DISK DEV
ICE NUMBER 8...";DN.L....". UCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCI.~...." .PLA
CE . SOURCE . DISK IN DRIVE . ONE....
...." .
......." .PLACE .DESTINATION. DISK IN
DRIVE .ZERO........" .CCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCC..?."..PRINT" .
..M.,.." .
ANSWER 'Y' TO COPY FILE LISTED ....
6.." .
..I.@.." . ANSWER 'N' TO PASS TO NEX
T FILE ....J..PRINT" .
..*.T.." JCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCK.<.^..5,DN,15:
.700.P.H..". NEED TO FORMAT DESTINATION
DISK N...";A$...R..A$.."Y".400...|.."
. DISK NAME ";A$:.". ID NUMBER ";B$.I.
...5,"N0:".A$.",".B$:.700......".. READI
NG DISK DIRECTORY ON DRIVE ONE... ".....
.53272,23:.6,DN,0,"$1":.700.5....#6,A$,A
$,A$,A$,A$,A$.K....#6,A$:.A$."".450.]...
X$.X$.A$:.430...B.B$.J(X$,21,2)." ":A$.J
(X$,3,16):DN$.C$.G(34).A$.G(34)." ".B$..
.L..#6,A$,A$:.A$."".510.S.V.."... FILE
NUMBER ";X......#6,A$,B$:B$.D(F(A$.N$).
F(B$.N$).256)." ".-....#6,A$:.A$."".P$(X
).B$:X.X.1:B$."":.460.?...B$.B$.A$:.490.
T...."."DN$" ":C.0.M....B.1.X.2:." "
P$(B).....A.B(203):.A.64.530......D.1.20
0:....&..A.39.."."Z$".":B$."":.590.J.0..
A.1.."."Z$".":.600.Y.:..A..25.530...D.C.
C.1:R$(C).P$(B)...N..B...X.." --------
---------------------.".=.B..C.0...14)"N
O FILES":.690.].L..A.1.C:A$.J(R$(A),8,16
):B.1.~.V..J(A$,B,1)..G(34).B.B.1:.630..
...A$.H(A$,B.1):."."Z$".":." "R$(A)...
...5,"C0:".A$."=1:".A$......5,E,ES$:.E..
0..".".27)"."ES$"."......E.72..5,"S0:".A
$......D.1.1000:.D:.A.5... 5: 6:.198,0:.
.13)"...DONE !!!!!":..B....5,E,ES$.M.F..
E.0...I.P..".. .DISK ERROR "ES$.S.Z. 6
: 5...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL