2 ! +++++++++++++++++++++++++++++++++++ 3 ! Program .... COPYFAST.800 4 ! Utg}va 2.0 1982-12-02 5 ! av (c) Jan K{rb{ck 6 ! {ndrat av till ABC800 av Jan-Olof P}vall. 8 ! Ins{nt av Jan-Olof P}vall, 1116. 9 ! F|r disk ABC830. M}ste {ndras f|r att k|ras under superdoset. 10 ! +++++++++++++++++++++++++++++++++++ 60 FLOAT 80 NO EXTEND 140 POKE 65024%,83% ! FE00 LD D,E 150 POKE 65025%,30%,0% ! FE01 LD E,0 160 POKE 65027%,67% ! FE03 LD B,E 170 POKE 65028%,203%,8% ! FE04 RRC B 180 POKE 65030%,205%,15%,96% ! FE06 CALL 600F (24591) 190 POKE 65033%,58%,21%,253% ! FE09 LD A,(FD15) 200 POKE 65036%,33%,255%,255% ! FE0C LD HL,FFFF 210 POKE 65039%,167% ! FE0F AND A 220 POKE 65040%,192% ! FE10 RET NZ 230 POKE 65041%,62%,32% ! FE11 LD A,20 240 POKE 65043%,131% ! FE13 ADD A,E 250 POKE 65044%,95% ! FE14 LD E,A 260 POKE 65045%,48%,236% ! FE15 JR NC,FE03 270 POKE 65047%,42%,18%,253% ! FE17 LD HL,(FD12) 280 POKE 65050%,111% ! FE1A LD L,A 290 POKE 65051%,201% ! FE1B RET 300 POKE 65052%,83% ! FE1C LD D,E 310 POKE 65053%,30%,0% ! FE1D LD E,0 320 POKE 65055%,67% ! FE1F LD B,E 330 POKE 65056%,203%,8% ! FE20 RRC B 340 POKE 65058%,205%,18%,96% ! FE22 CALL 6012 (24594) 350 POKE 65061%,58%,21%,253% ! FE25 LD A,(FD15) 360 POKE 65064%,33%,255%,255% ! FE28 LD HL,FFFF 370 POKE 65067%,167% ! FE2B AND A 380 POKE 65068%,192% ! FE2C RET NZ 390 POKE 65069%,62%,32% ! FE2D LD A,20 400 POKE 65071%,131% ! FE2F ADD A,E 410 POKE 65072%,95% ! FE30 LD E,A 420 POKE 65073%,48%,236% ! FE31 JR NC,FE1F 430 POKE 65075%,42%,18%,253% ! FE33 LD HL,(FD12) 440 POKE 65078%,111% ! FE36 LD L,A 450 POKE 65079%,201% ! FE37 RET 460 ; CHR$(12%); 470 ; '* ABC800 COPYFAST Vers 1.0 *' 480 ; : ; 'Programmet kopierar allt inneh}ll' 490 ; 'fr}n den ena driven till den andra.' 500 ; 510 ; 'Kontrollera att v{rdefull information' 520 ; 'inte finns p} skivan du skall kopiera' 530 ; 'till !!! Kopieringen tar ung. 90 sek.' 540 ON ERROR GOTO 830 550 ; 560 ; 'Fr}n drive'; 570 INPUT D% 580 IF (D% AND 254%) GOTO 460 590 D1%=D% XOR 1% 600 POKE 65363%,PEEK(65363%)-1% 610 ; 'Fr}n drive' D% ' till drive' D1% 620 ; 630 ; 'Ok f|r kopiering '; 640 GOSUB 920 650 IF T%=0% GOTO 830 660 ; 670 ; 'Absolut s{ker '; 680 GOSUB 920 690 IF T%=0% GOTO 830 700 ! 710 ! *** Kopiering *** 720 ! 730 FOR I%=0% TO 79% 740 ; CUR(15%,0%) 'L{ser sp}r ' I% 750 POKE -767%,D% 760 Z%=CALL(-512%,I%) 770 IF PEEK(-747%) GOTO 870 780 ; CUR(17%,0%) 'Skriver sp}r ' I% 790 POKE -767%,D1% 800 Z%=CALL(-484%,I%) 810 IF PEEK(-747%) GOTO 870 820 NEXT I% 830 POKE -484%,255% 840 POKE -512%,255% 850 END 860 ! 870 ! *** Felmeddelande *** 880 ! 890 ; 900 ; CHR$(7%) 'Diskfel drive' PEEK(-767%) ' !!!' 910 GOTO 830 920 INPUT T$ 930 T%=-(T$='J')-(T$='j') 940 RETURN