10 MODE 1:PRINT"MICROCOPY":DEFSTR p-z:a=&A000:b=&1000:c=&A020:WINDOW#1,1,40,3,3:FOR i=a TO a+26:POKE i,VAL("&"+MID$("DD7E003218A0DD6E02DD6603DD4E04DD56061E00DF18A0C900C607",(i-a+1)*2-1,2)):NEXT:q="162738495":r="Quell" 20 s="diskette einlegen.":t="Ziel":r=r+s:t=t+s:FOR d=0 TO 4:PRINT#1,r:CALL &BB06:PRINT#1,"Reading.":IF d=0 THEN OPENOUT"d":CLOSEOUT:FOR k=1 TO 9:l(k)=PEEK(&A89F)-1+VAL(MID$(q,k,1)):NEXT 30 e=b:FOR f=0 TO 7:FOR g=1 TO 9:GOSUB 50:CALL a,d*8+f,l(g),e,&66:e=e+512:NEXT g,f:PRINT#1,t:CALL &BB06:e=b:PRINT#1,"Writing.":FOR f=0 TO 7:h=1:FOR j=c TO c+35 STEP 4:POKE j,d*8+f:POKE j+1,0:POKE j+2,l(h):POKE j+3,2:h=h+1:NEXT 40 CALL a,d*8+f,l(1),c,&52:FOR g=1 TO 9:CALL a,d*8+f,l(g),e,&4E:e=e+512:GOSUB 50:NEXT g,f,d:PRINT#1,"Fertig.":CALL &BB06:RUN 50 LOCATE 1,5:PRINT"Spur:";d*8+f;" Sektor:";g:RETURN