> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 01 00 9F 31 35 2C 38 2C 31 35 00 31 |.......15,8,15.1|
00000010: 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 00 47 08 14 00 8F 2A 20 44 49 53 43 20 52 45 |*.G....* DISC RE|
00000040: 41 4C 20 43 4F 50 59 00 61 08 1E 00 8F 2A 20 26 |AL COPY.a....* &|
00000050: 20 54 41 50 45 20 44 49 52 45 43 54 20 43 4F 50 | TAPE DIRECT COP|
00000060: 59 00 68 08 28 00 8F 2A 00 8B 08 32 00 8F 2A 2A |Y.h.(..*...2..**|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 08 3C 00 |***********...<.|
00000090: 8F 2A 20 42 59 20 4A 4F 48 4E 20 48 4F 4C 4C 45 |.* BY JOHN HOLLE|
000000A0: 4E 42 45 52 47 00 C8 08 46 00 8F 2A 2A 2A 2A 2A |NBERG...F..*****|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 08 50 00 8F 2A 20 |********...P..* |
000000D0: 49 4E 20 45 58 54 45 4E 44 45 44 20 42 41 53 49 |IN EXTENDED BASI|
000000E0: 43 00 F4 08 5A 00 8F 2A 2A 2A 2A 20 4C 45 56 45 |C...Z..**** LEVE|
000000F0: 4C 20 49 49 00 01 09 62 00 54 B2 31 37 3A 53 B2 |L II...b.T.17:S.|
00000100: 30 00 0C 09 63 00 99 C7 28 31 34 29 00 3E 09 64 |0...c...(14).>.d|
00000110: 00 99 22 93 12 43 4F 50 49 45 52 20 42 59 20 CA |.."..COPIER BY .|
00000120: 4F 48 4E 20 C8 4F 4C 4C 45 4E 42 45 52 47 20 20 |OHN .OLLENBERG |
00000130: 28 43 29 20 20 42 41 53 49 43 20 20 20 92 00 59 |(C) BASIC ..Y|
00000140: 09 6E 00 99 22 11 11 11 11 5B 31 5D 20 54 41 50 |.n.."....[1] TAP|
00000150: 45 20 54 4F 20 54 41 50 45 00 70 09 78 00 99 22 |E TO TAPE.p.x.."|
00000160: 5B 32 5D 20 54 41 50 45 20 54 4F 20 44 49 53 4B |[2] TAPE TO DISK|
00000170: 00 87 09 82 00 99 22 5B 33 5D 20 44 49 53 4B 20 |......"[3] DISK |
00000180: 54 4F 20 54 41 50 45 00 9F 09 8C 00 99 22 5B 34 |TO TAPE......"[4|
00000190: 5D 20 44 49 53 4B 20 54 4F 20 44 49 53 4B 22 00 |] DISK TO DISK".|
000001A0: B8 09 96 00 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |....."----------|
000001B0: 2D 2D 2D 2D 2D 2D 2D 22 00 D5 09 A0 00 A1 41 24 |-------"......A$|
000001C0: 3A 8B C5 28 41 24 29 B3 31 B0 C5 28 41 24 29 B1 |:..(A$).1..(A$).|
000001D0: 34 A7 31 36 30 00 F0 09 AA 00 91 C5 28 41 24 29 |4.160.......(A$)|
000001E0: 89 33 30 30 2C 34 30 30 2C 35 30 30 2C 36 30 30 |.300,400,500,600|
000001F0: 00 1E 0A 58 02 99 22 93 D4 48 49 53 20 57 49 4C |...X.."..HIS WIL|
00000200: 4C 20 57 4F 52 4B 20 4F 4E 4C 59 20 57 49 54 48 |L WORK ONLY WITH|
00000210: 20 41 20 34 30 34 30 20 44 52 49 56 45 22 00 46 | A 4040 DRIVE".F|
00000220: 0A 5C 02 99 22 11 50 55 54 20 54 48 45 20 12 53 |.\..".PUT THE .S|
00000230: 4F 55 52 43 45 92 20 44 49 53 4B 20 49 4E 20 44 |OURCE. DISK IN D|
00000240: 52 49 56 45 20 30 00 6F 0A 60 02 99 22 11 26 20 |RIVE 0.o.`..".& |
00000250: 54 48 45 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 |THE DESTINATION |
00000260: 44 49 53 4B 20 49 4E 20 44 52 49 56 45 20 31 00 |DISK IN DRIVE 1.|
00000270: 95 0A 64 02 99 22 11 48 49 54 20 41 20 CB C5 D9 |..d..".HIT A ...|
00000280: 20 57 48 45 4E 20 59 4F 55 20 41 52 45 20 52 45 | WHEN YOU ARE RE|
00000290: 41 44 59 2E 22 00 A8 0A 68 02 A1 41 24 3A 8B 41 |ADY."...h..A$:.A|
000002A0: 24 B2 22 22 A7 36 31 36 00 BF 0A 6C 02 99 22 41 |$."".616...l.."A|
000002B0: 52 45 20 59 4F 55 20 53 55 52 45 2E 2E 2E 22 00 |RE YOU SURE...".|
000002C0: DE 0A 70 02 A1 41 24 3A 8B C8 28 41 24 2C 31 29 |..p..A$:..(A$,1)|
000002D0: B2 22 59 22 A7 99 22 93 22 3A 89 36 32 38 00 E7 |."Y"..".":.628..|
000002E0: 0A 71 02 89 36 32 34 00 00 0B 74 02 8F 2A 2A 2A |.q..624...t..***|
000002F0: 20 47 45 4E 45 52 41 4C 20 52 4F 55 54 49 4E 45 | GENERAL ROUTINE|
00000300: 00 22 0B 75 02 85 22 56 41 4E 20 44 52 49 56 45 |.".u.."VAN DRIVE|
00000310: 20 5B 2A 5D 22 3B 44 3A 85 22 4E 41 41 52 20 22 | [*]";D:."NAAR "|
00000320: 3B 45 00 2B 0B 76 02 8D 37 39 39 00 34 0B 7A 02 |;E.+.v..799.4.z.|
00000330: 8D 39 35 30 00 3D 0B 7E 02 89 36 33 30 00 52 0B |.950.=.~..630.R.|
00000340: BC 02 8F 20 54 52 41 43 4B 20 26 20 53 45 43 54 |... TRACK & SECT|
00000350: 4F 52 00 5E 0B 1F 03 98 31 35 2C 22 49 22 00 6D |OR.^....15,"I".m|
00000360: 0B 20 03 9F 31 2C 38 2C 32 2C 22 23 22 00 87 0B |. ..1,8,2,"#"...|
00000370: 21 03 A1 23 31 2C 47 24 3A 8B 47 24 B2 22 22 A7 |!..#1,G$:.G$."".|
00000380: 47 24 B2 C7 28 30 29 00 94 0B 22 03 42 46 B2 C6 |G$..(0)...".BF..|
00000390: 28 47 24 29 00 AA 0B 24 03 98 31 35 2C 22 55 31 |(G$)...$..15,"U1|
000003A0: 3A 22 3B 32 3B 44 3B 54 3B 53 00 C2 0B 2B 03 99 |:";2;D;T;S...+..|
000003B0: 22 13 11 11 11 11 52 45 41 44 49 4E 47 22 3B 54 |".....READING";T|
000003C0: 3B 53 00 D6 0B 84 03 8F 20 57 52 49 54 45 20 52 |;S...... WRITE R|
000003D0: 4F 55 54 49 4E 45 00 F2 0B 8A 03 8F 20 20 20 20 |OUTINE...... |
000003E0: 50 52 49 4E 54 23 31 35 2C 22 42 2D 50 22 3B 32 |PRINT#15,"B-P";2|
000003F0: 3B 30 00 07 0C 8C 03 98 31 35 2C 22 55 32 22 3B |;0......15,"U2";|
00000400: 32 3B 45 3B 54 3B 53 00 0E 0C 8E 03 A0 31 00 2A |2;E;T;S......1.*|
00000410: 0C 8F 03 99 22 13 11 11 11 11 11 11 57 52 49 54 |....".......WRIT|
00000420: 49 4E 47 22 3B 54 3B 53 3A 8E 00 4F 0C B6 03 8F |ING";T;S:..O....|
00000430: 2A 2A 54 52 41 43 4B 20 26 20 53 45 43 54 4F 52 |**TRACK & SECTOR|
00000440: 20 54 4F 45 57 49 4A 5A 49 4E 47 20 2A 2A 2A 00 | TOEWIJZING ***.|
00000450: 5D 0C B7 03 8B 54 B3 31 38 A7 39 35 35 00 70 0C |]....T.18.955.p.|
00000460: B8 03 8B 54 B1 31 37 AF 54 B3 32 35 A7 39 35 37 |...T.17.T.25.957|
00000470: 00 83 0C B9 03 8B 54 B1 32 34 AF 54 B3 33 31 A7 |......T.24.T.31.|
00000480: 39 35 39 00 96 0C BA 03 8B 54 B1 33 30 AF 54 B3 |959......T.30.T.|
00000490: 33 36 A7 39 36 31 00 A8 0C BB 03 8B 53 B3 32 30 |36.961......S.20|
000004A0: A7 53 B2 53 AA 31 3A 8E 00 B8 0C BC 03 54 B2 54 |.S.S.1:......T.T|
000004B0: AA 31 3A 53 B2 30 3A 8E 00 CA 0C BD 03 8B 53 B3 |.1:S.0:.......S.|
000004C0: 31 39 A7 53 B2 53 AA 31 3A 8E 00 DA 0C BE 03 54 |19.S.S.1:......T|
000004D0: B2 54 AA 31 3A 53 B2 30 3A 8E 00 EC 0C BF 03 8B |.T.1:S.0:.......|
000004E0: 53 B3 31 38 A7 53 B2 53 AA 31 3A 8E 00 FC 0C C0 |S.18.S.S.1:.....|
000004F0: 03 54 B2 54 AA 31 3A 53 B2 30 3A 8E 00 0E 0D C1 |.T.T.1:S.0:.....|
00000500: 03 8B 53 B3 31 37 A7 53 B2 53 AA 31 3A 8E 00 1E |..S.17.S.S.1:...|
00000510: 0D C2 03 54 B2 54 AA 31 3A 53 B2 30 3A 8E 00 31 |...T.T.1:S.0:..1|
00000520: 0D C4 03 8B 53 B1 31 37 A7 41 4C 24 B2 22 4F 4B |....S.17.AL$."OK|
00000530: 22 00 47 0D E8 03 99 22 45 4E 44 20 4F 46 20 43 |".G...."END OF C|
00000540: 4F 50 49 45 22 3A 80 00 00 00 |OPIE":.... |
.......15,8,15.1....********************
*********.G....* DISC REAL COPY.A....* &
TAPE DIRECT COPY.H.(..*...2..**********
*******************...<..* BY JOHN HOLLE
NBERG.H.F..*****************************
...P..* IN EXTENDED BASIC...Z..**** LEVE
L II...B.T.17:S.0...C..G(14).>.D.."..COP
IER BY JOHN HOLLENBERG (C) BASIC ..Y
.N.."....[1] TAPE TO TAPE.P.X.."[2] TAPE
TO DISK......"[3] DISK TO TAPE......"[4
] DISK TO DISK"......"-----------------"
.U. ..A$:.E(A$).1.E(A$).4.160......E(A$)
.300,400,500,600...X..".THIS WILL WORK O
NLY WITH A 4040 DRIVE".F.\..".PUT THE .S
OURCE. DISK IN DRIVE 0.O.`..".& THE DEST
INATION DISK IN DRIVE 1...D..".HIT A KEY
WHEN YOU ARE READY."...H..A$:.A$."".616
...L.."ARE YOU SURE..."...P..A$:.H(A$,1)
."Y"..".":.628...Q..624...T..*** GENERAL
ROUTINE.".U.."VAN DRIVE [*]";D:."NAAR "
;E.+.V..799.4.Z..950.=.~..630.R.... TRAC
K & SECTOR.^....15,"I".M. ..1,8,2,"#"...
!..#1,G$:.G$."".G$.G(0)...".BF.F(G$)...$
..15,"U1:";2;D;T;S.B.+..".....READING";T
;S.V.... WRITE ROUTINE...... PRINT#15
,"B-P";2;0......15,"U2";2;E;T;S..... 1.*
....".......WRITING";T;S:..O....**TRACK
& SECTOR TOEWIJZING ***.]....T.18.955.P.
...T.17.T.25.957......T.24.T.31.959.....
.T.30.T.36.961......S.20.S.S.1:......T.T
.1:S.0:..J....S.19.S.S.1:..Z...T.T.1:S.0
:.......S.18.S.S.1:......T.T.1:S.0:....A
..S.17.S.S.1:....B.T.T.1:S.0:..1.D..S.17
.AL$."OK".G...."END OF COPIE":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL