1 REM Ins{nd av Curt Rehnborg <1121> 1986-02-21 14.45.30
20 REM ver 1 810415 ver 2 810822
40 DIM R9$=40%,S$=1%
50 ; CHR$(12)TAB(15%)'-SNABBKOPIA-'
60 ; : ; : ; 'Programmet snabbkopierar disketten i drive 0 till disketten i drive 1.'
70 ; : ; 'Om en programskiva anv{nds flitigt,med ofta }terkommande {ndringar av program och filer ';
80 ; 'b|r du d} och d} g|ra en "tv{ttad" kopia av originalskivan med hj{lp av COPYLIB.ABS,';
90 ; 'ett av systemprogrammen.'
100 ; : ; 'Tv} alternativ ges:Helkopia som kopi- erar ALLT p} originalet och Filkopia somendast kopierar upptagna';
110 ; 'filer.'
120 ; : ; 'Kom ih}g:Originalet i DR0, kopian i DR1!'
130 ; : ; 'Tryck p} RETURN n{r du {r klar'; : GET S$
140 DATA '-SNABBKOPIA-','HELKOPIA AV ORIGINALSKIVAN','FILKOPIA'
150 H=PEEK(65056%)+256*PEEK(65057%)+256% : T=PEEK(65063%)+256*PEEK(65064%)-1000% : POKE 65056%,T,SWAP%(T)
160 POKE 64769%,0% : POKE 64786%,0%,250%
170 Z%=CALL(24678%,224%) : REM SP 0 SEKT 7
180 S%=2% : FOR I%=64003% TO 64255% : IF PEEK(I%)=0% S%=S%+1% : NEXT I%
190 RESTORE : N9%=2% : GOSUB 480
200 ; CUR(15%,0%)'DISKETTEN I DR1 KOMMER ATT RADERAS !' : ; 'VILL DU DET (N)'; : INPUT S$
210 IF S$<>'J' AND S$<>'j' END
220 REM HELKOPIA
230 ON I9% GOTO 240,340
240 GOSUB 540 : J=-32% : FOR I=0% TO 256*S% STEP 32%
250 Z%=CALL(24678%,I) : GOSUB 550
260 IF D>T GOSUB 290
270 NEXT I
280 GOSUB 290 : GOTO 560
290 REM L[GG \VER P] DR1
300 GOSUB 540 : POKE 64769%,1% : FOR J=J+32% TO 256*S% STEP 32%
310 Z%=CALL(24675%,J) : GOSUB 550
320 IF D