1 REM < ins{nt av 832 > 5 REM Min 8 takter stulna 6 REM av Jan K{rrb{ck 7 REM och Thomas Nystr|m 10 REM (c) COPYDTOC Vers 1.0 20 REM Jan-Eric Lindquist 81-11-05 30 REM Tel 0155/54367 40 DIM Q0$=253%,C0$=253% 50 GOSUB 580 60 DEFFNT%(X$,Y$)=INSTR(1%,T$,X$)+INSTR(1%,T$,Y$) 70 DIM Q$(120%)=15%,T%(120%) : A%=0% 80 Z%=CALL(24678%,512%) : GOSUB 440 90 ONERRORGOTO 420 : ; : ; 'Drive '; : INPUT D% : IF (D% AND 254%) GOTO 70 100 ONERRORGOTO 0 : POKE -767%,D% : D$='DR'+NUM$(D%)+':' 110 ; : ; 'Fas 1, filnamn:' : ; : FOR S%=0% TO 7% 120 Z%=CALL(24678%,512%+S%*32%) 130 IF PEEK(-747%) ; CHR$(7%)'Diskfel drive'D%' !!!' : GOTO 420 140 FOR J%=62736% TO 62960% STEP 16% 150 IF PEEK(J%)=255% GOTO 250 160 Q$='' : FOR I%=4% TO 14% 170 Q$=Q$+CHR$(PEEK(J%+I%)) : NEXT I% 180 A%=A%+1% : Q$(A%)=LEFT$(Q$,8%)+'.'+RIGHT$(Q$,9%)+' ' 190 ; Q$(A%); : IF T% ; '?' : GOTO 240 200 INPUT T$ : T%(A%)=FNT%('Y','y') : IF T%(A%) Q%=1% 210 IF T$='I' AND A%=1% OR T$='i' AND A%=1% GOTO 420 220 IF FNT%('I','i') GOTO 260 230 IF FNT%('X','x') GOTO 420 240 IF FNT%('A','a') T%(A%)=1% : T%=1% 250 NEXT J% : NEXT S% 260 IF A%=0% GOTO 420 ELSE IF Q% OR T% ; : ; 'Fas 2, copiering!' : ; ELSE 420 270 FOR I%=1% TO A% : IF T%(I%)=0% GOTO 410 280 ; Q$(I%); 290 PREPARE "CAS:"+Q$(I%) ASFILE 1% 300 OPEN D$+Q$(I%) ASFILE 2% 310 J%=0% 320 ONERRORGOTO 550 330 Z%=CALL(28666%,2%) 340 Z%=CALL(28668%,J%) 350 Z%=CALL(49158%,1%) 360 C0$=Q0$ 370 Z%=CALL(49152%,1%) 380 J%=J%+1% : GOTO 330 390 CLOSE 1% : CLOSE 2% 400 ; SPACE$(3%-LOG10(J%+.1));J%;" Sektorer copierade" 410 NEXT I% 420 END 430 ; 'ERR'ERRCODE : GOTO 410 440 ; CHR$(12%)'* ABC80 COPY DISC TO CAS: *' 445 ; : ; 'Tryck ned PLAY/REC p} CAS.' : ; 450 ; : ; ' Till}tna kommandon:' : ; 460 ; ' A = Copiera alla filer.' 470 ; ' I = Ignorera resten av filerna.' 480 ; ' X = Exit, ingen }tg{rd.' 490 ; ' Y = Yes, copiera denna fil.' 500 ; 'RETURN = Copiera ej denna fil.' 510 RETURN 520 REM +-----------------------------+ 530 REM ! Felhantering vid sektorslut ! 540 REM +-----------------------------+ 550 IF ERRCODE=38% THEN 390 560 ; "ERR";ERRCODE 570 CLOSE 1% : CLOSE 2% : GOTO 410 580 REM +----------------------------+ 590 REM ! Maskinrutin THOMAS NYSTR\M ! 600 REM +----------------------------+ 610 POKE -16384%,195%,134%,192%,195%,84%,192%,195%,141%,192%,237%,75%,50%,254% 620 POKE -16371%,120%,177%,40%,31%,197%,221%,225%,123%,221%,190%,2%,32%,14% 630 POKE -16358%,221%,126%,5%,61%,32%,16%,221%,126%,4%,254%,5%,48%,9% 640 POKE -16345%,201%,221%,70%,1%,221%,78%,0%,24%,221%,215%,160%,237%,75%,41%,254% 650 POKE -16330%,120%,177%,40%,24%,197%,253%,225%,122%,253%,190%,0%,32%,7% 660 POKE -16317%,123%,253%,190%,1%,32%,1%,201%,253%,70%,3%,253%,78%,2% 670 POKE -16304%,24%,228%,55%,201%,205%,9%,192%,205%,153%,8%,253%,229%,17%,67%,2% 680 POKE -16289%,205%,50%,192%,56%,30%,221%,102%,9%,221%,110%,8%,253%,117%,6% 690 POKE -16275%,253%,116%,7%,17%,253%,0%,253%,115%,8%,253%,114%,9%,253%,115%,4% 700 POKE -16260%,253%,114%,5%,253%,225%,201%,253%,225%,215%,156%,205%,9%,192% 710 POKE -16247%,205%,156%,8%,201%,205%,9%,192%,253%,229%,17%,67%,2%,205%,50%,192% 720 POKE -16232%,56%,232%,221%,102%,9%,221%,110%,8%,253%,116%,7%,253%,117%,6% 730 POKE -16218%,17%,253%,0%,253%,114%,5%,253%,115%,4%,253%,225%,201% 740 RETURN