1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   COPYFAST
3 REM ! Utg}va  1.0    81-01-21
4 REM ! av (c) JAN K[RRB[CK
7 REM ! Minne 16 Kbytes f|r flexskiva
8 REM ! Ins{nt av 765
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screened by C R LERIN.
12 REM 
40 POKE 65408%,83%,30%,0%,67%,203%,8%,205%,15%,96%,58%,21%,253%,33%,255%,255%
50 POKE 65423%,167%,192%,62%,32%,131%,95%,48%,236%,42%,18%,253%,111%,201%
60 POKE 65436%,83%,30%,0%,67%,203%,8%,205%,18%,96%,58%,21%,253%,33%,255%,255%
70 POKE 65451%,167%,192%,62%,32%,131%,95%,48%,236%,42%,18%,253%,111%,201%
80 ; CHR$(12%);
90 ; '* ABC80 COPYFAST Vers 1.0 *'
100 ; : ; 'Programmet kopierar allt inneh}ll'
110 ; 'fr}n den ena driven till den andra.'
120 ; 
130 ; 'Kontrollera att v{rdefull information'
140 ; 'inte finns p} skivan du skall kopiera'
150 ; 'till !!! Kopieringen tar ung. 90 sek.'
160 ONERRORGOTO 360 : ; : ; 'Fr}n drive';
170 INPUT D% : IF (D% AND 254%) GOTO 80
180 D1%=D% XOR 1%
190 POKE 65011%,PEEK(65011%)-1%
200 ; 'Fr}n drive'D%' till drive'D1%
210 ; : ; 'Ok f|r kopiering '; : GOSUB 410
220 IF T%=0% GOTO 360
230 ; : ; 'Absolut s{ker '; : GOSUB 410
240 IF T%=0% GOTO 360
250 REM - KOPIERING -
260 FOR I%=0% TO 39%
270 ; CUR(15%,0%)'L{ser sp}r   'I%
280 POKE -767%,D%
290 Z%=CALL(-128%,I%)
300 IF PEEK(-747%) GOTO 380
310 ; CUR(17%,0%)'Skriver sp}r 'I%
320 POKE -767%,D1%
330 Z%=CALL(-100%,I%)
340 IF PEEK(-747%) GOTO 380
350 NEXT I%
360 POKE -100%,255% : POKE -128%,255%
370 END 
380 REM - FELMEDDELANDE -
390 ; : ; CHR$(7%)'Diskfel drive'PEEK(-767%)' !!!'
400 GOTO 360
410 INPUT T$ : T%=-(T$='J')-(T$='j') : RETURN