  5 HIMEM :29999:DIM d(20): q=20: n=1: i=0
 10 DATA         1,0,0,17,0,0,62,4,33,24,121,205,243,252,201
 15 FOR x=30000 TO 30014:READ d:POKE x, d:NEXT
 20 HOME:? " INSERT SOURCE IN DISK DRIVE":?:? " PRESS RETURN":GET z$
 30 ?:? "#"; n
 40 VTAB (9):? " READING "; (i*1024); " BYTES":POKE 30004, a:CALL 30000
 50 POKE 30010, PEEK(30010)+4: d(j)=a
 55 i=i+1: j=j+1
 60 IF i=159 THEN  q=i
 70 IF i=159 OR j=20 THEN 100
 80 GOTO 40
 100 HOME:? " INSERT TARGET IN DISK DRIVE":?:? " PRESS RETURN":GET a$
 105 POKE 30012, 246:POKE 30010, 117
 110 FOR s=0 TO 19:VTAB 9:? " WRITING "; (((i-20)+s)*1024); " BYTES"
 120 IF s=q THEN ? " END"
 130 POKE 30004, d(s):POKE 30010, PEEK(30010)+4:CALL 30000
 135 NEXT s
 140 n=n+1: j=0:RESTORE:GOTO 15
