1RESTORE
2POKE 16953, 0:REM       by  Paul Pereira
3POKE 17115, 20:POKE 17059, 6
4GOSUB 10000
5HIMEM :29999:DIM d(15): q=20
6TEXT:? "SOURCE":?:? "Data #1=8":? "Data #2=24":? "Disk #1=4":? "Disk #2=5":INPUT "-->"; t
7? "Target":INPUT "-->"; l
8 j=160:IF t=8 AND l=8 OR t=24 AND l=24 OR t=8 AND l=24 OR t=24 AND l=8 THEN  j=256
9IF t=4 OR t=24 OR t=5 THEN 1000
10DATA                          1,0,0,17,0,0,62,8,33,24, 121,205,243,252,201 
12FOR x=30000 TO 30014:READ d:POKE x, d:NEXT
20IF t=l THEN GOSUB 7000
21 i=0
30POKE 30004, a:CALL 30000
35IF PEEK((a-INT(a/16)*16)*1024+31000)=255 THEN 64
40POKE 30010, PEEK(30010)+4: d(i)=a
55VTAB 10:? "READING "; r: r=r+1
60 i=i+1:IF i=16 THEN 100
64 a=a+1:IF a=j THEN  q=i:GOTO 100
65GOTO 30
100POKE 30007, l:POKE 30012, 246:POKE 30010, 117
101IF t=l THEN GOSUB 8000
110FOR s=0 TO 15:VTAB 14:? "WRITING"; c: c=c+1
111IF s=q THEN 20000
120POKE 30004, d(s):POKE 30010, PEEK(30010)+4:CALL 30000
121NEXT s
130RESTORE:IF t=8 THEN 12
1000IF t=4 THEN 4999
1010IF t=5 THEN 5999
1020IF t=24 THEN 1999
1999POKE 30000, 1
2000POKE 30001, 0
2001POKE 30002, 0
2002POKE 30003, 17
2003POKE 30004, 0
2004POKE 30005, 0
2005POKE 30006, 62
2006POKE 30007, 24
2007POKE 30008, 33
2008POKE 30009, 24
2009POKE 30010, 121
2010POKE 30011, 205
2011POKE 30012, 243
2012POKE 30013, 252
2013POKE 30014, 201
2014GOTO 20
4999POKE 30000, 1
5000POKE 30001, 0
5001POKE 30002, 0
5002POKE 30003, 17
5003POKE 30004, 0
5004POKE 30005, 0
5005POKE 30006, 62
5006POKE 30007, 4
5007POKE 0008, 33
5008POKE 30009, 24
5009POKE 30010, 121
5010POKE 30011, 205
5011POKE 30012, 243
5012POKE 30013, 252
5013POKE 30014, 201
5014GOTO 20
5999POKE 30000, 1
6000POKE 30001, 0
6001POKE 30002, 0
6002POKE 30003, 17
6003POKE 30004, 0
6004POKE 30005, 0
6005POKE 30006, 62
6006POKE 30007, 5
6007POKE 30008, 33
6008POKE 30009, 24
6009POKE 30010, 121
6010POKE 30011, 205
6011POKE 30012, 243
6012POKE 30013, 252
6013POKE 30014, 201
6014GOTO 20
7000VTAB 22:? "Place Source in drive and      press return":? CHR$(7); :GET o$
7001RETURN
8000? CHR$(7); :VTAB 22:? "Place Target in drive and      press return":GET p$
8001RETURN
10000GOSUB 30000
10004? "Place SOURCE and TARGET in     drive"
10005FOR u=0 TO 7000:NEXT
10006RETURN
20000HOME:?:?:? "Copy Copleted":?:? "copy another? ":GET w$:RESTORE
20001IF w$="Y" OR w$="y" THEN 6
20002END
30000POKE 17126, 10*16+4
30001TEXT:FLASH:? " SUPERcopy":VTAB 22:? " SUPERcopy":VTAB 12:HTAB 14:INVERSE:? "by"
30002VTAB 1:HTAB 18:? "Paul Pereira":VTAB 22:HTAB 18:? "Paul Pereira":NORMAL
30003FOR g=0 TO 4000:NEXT
30004HOME:VTAB 11:HTAB 10:NORMAL:? "distributed":HTAB 14:? "by":HTAB 12:? "ADAMware"
30005FOR g=0 TO 3000:NEXT:HOME:RETURN
