100 REM DISC-COPY64=============C64
110 REM (P) COMMODORE WELT TEAM
120 REM ===========================
130 REM (C) BY ALFONS MITTELMEYER
140 REM
150 REM
160 REM BASIC V2,0
170 REM C64,(C128 IM C64-MODUS)
180 REM ===========================
190 POKE55,0:POKE56,14:CLR:POKE250,0
200 GOSUB480:READT:READEN:READWE
210 SA=1:SD=871
220 READA:IFA=-1THEN250
230 READB:FORI=SATOA:POKESD+I,B:NEXT
240 SA=I:GOTO220
250 POKE198,0
260 PRINT:PRINT:INPUT"QUELLDISKETTE";A$:PRINTCHR$(147)
270 OPEN15,8,15:OPEN8,8,8,"#"
280 POKE251,14:A=T-1+WE:IFA>ENTHENA=EN
290 FORI=T TO A:GOSUB370:NEXT
300 CLOSE8:CLOSE15:POKE198,0
310 PRINT:PRINT:INPUT"ZIELDISKETTE ";A$:PRINTCHR$(19)
320 OPEN15,8,15
330 OPEN8,8,8,"#":POKE251,14
340 FORI=T TO A:GOSUB410:NEXT
350 T=I:CLOSE8:CLOSE15:IFA<>ENTHEN250
360 PRINT:PRINT:PRINT"FERTIG             ":END
370 PRINT:PRINTRIGHT$(STR$(I),2)": ";
380 SE=PEEK(SD+I):FORS=0TOSE
390 PRINT#15,"U1:";8;0;I;S:SYS828
400 PRINT"-";:NEXT:RETURN
410 PRINT:PRINTRIGHT$(STR$(I),2)": ";
420 SE=PEEK(SD+I):FORS=0TOSE
430 PRINT#15,"B-P";8;0:SYS848
440 PRINT#15,"U2:";8;0;I;S:PRINT"+";:NEXT:RETURN
450 REM ------------------------
460 REM  LESE-SCHREIB-ROUTINE
470 REM ------------------------
480 PRINTCHR$(147):FORI=828TO870
490 READA:POKEI,A:NEXT:RETURN
500 DATA 162,008,032,198,255,160
510 DATA 000,032,207,255,145,250
520 DATA 200,208,248,230,251,076
530 DATA 204,255,162,008,032,201
540 DATA 255,160,000,177,250,234
550 DATA 234,234,032,210,255,200
560 DATA 208,245,230,251,076,204
570 DATA 255
580 REM ------------------------
590 REM  DISKETTEN-DATAS
600 REM ------------------------
610 DATA 1,35,6
620 DATA 17,20,24,18,30,17,35,16,-1
630 REM =P=R=O=G=R=A=M=M=E=N=D=E