10 REM EXTLIB 20 REM Ursprungsprogram KILLER av ok{nd tysk f|rfattare 30 REM programmet modifierat 1980-10-17 av Gunnar Tidner 40 ; CHR$(12)"EXTLIB" 50 ; CUR(2,11)"LIB *.extension" 60 ; CUR(6,0)"Enter Extension:"; : K1$=' ' : K2$=' ' : K3$=' ' 70 GET K1$ : ; K1$; : IF K1$=CHR$(13%) K1$=' ' : GOTO 190 ELSE IF K1$>'^' K1$=CHR$(ASC(K1$)-32%) 80 GET K2$ : ; K2$; : IF K2$=CHR$(13%) K2$=' ' : GOTO 190 ELSE IF K2$>'^' K2$=CHR$(ASC(K2$)-32%) 90 GET K3$ : ; K3$; : IF K3$=CHR$(13%) K3$=' ' ELSE IF K3$>'^' K3$=CHR$(ASC(K3$)-32%) 100 ; CHR$(12);"Drive?" 110 ; : ; "0 Drive 0" 120 ; : ; "1 Drive 1" 130 ; : ; "2 B}da" 140 ; : ; "V{lj:"; : GET \$ 150 IF \$<'0' OR \$>'2' THEN 100 160 IF \$='0' THEN D0%=0 : D1%=0 170 IF \$='1' THEN D0%=1 : D1%=1 180 IF \$='2' THEN D0%=0 : D1%=1 190 K1$=K1$+K2$+K3$ : ; CHR$(12%)"EXTLIB" 200 ; " *** ABC-80 LIBRARY ***" 210 ; "Filer med ext.= ";K1$ 220 FOR D%=D0% TO D1% : J9%=0 : ; : POKE -767%,D% 230 ; "Drive";D%;':' : POKE -767%,D% 240 GOSUB 450 : IF S1%<>0% THEN GOSUB 390 250 R%=1% : T%=2% : FOR S%=0% TO 7% 260 IF M%(S%)<2% 370 ELSE GOSUB 430 270 IF S1%<>0% 480 ELSE B%=-2816% 280 FOR N%=1% TO 16% 290 R1%=PEEK(B%)*256+PEEK(B%+1%) 300 GOSUB 390 310 IF (ASC(N$)=255%) OR (ASC(N$)=0%) 360 320 K2$=MID$(N$,5%,8%) 330 IF RIGHT$(K2$,LEN(K2$))=' ' K2$=LEFT$(K2$,LEN(K2$)-1%) : GOTO 330 340 IF MID$(N$,13%,3%)<>K1$ 360 350 GOSUB 490 360 NEXT N% 370 NEXT S% 380 NEXT D% : END 390 REM SUB 400 N$="" : FOR I%=0% TO 15% 410 N$=N$+CHR$(PEEK(B%+I%)) : NEXT I% 420 B%=B%+16% : RETURN 430 S1%=CALL(24678%,SWAP%(T%)+S%*32%) 440 S1%=PEEK(-747%) : RETURN 450 T%=0% : S%=6% : GOSUB 430 460 B%=-2577% : FOR I%=0% TO 7% 470 M%(I%)=PEEK(B%+I%) : NEXT I% : RETURN 480 ; "Diskfel Drive:"D%,S1% 490 REM SUBRUTIN f|r att hantera filen k2$ 500 POKE -1024%,6%,112%,195%,15%,96% 510 Z%=CALL(-1024%,R1%) : IF PEEK(-747%) THEN 480 520 Y%=0% : FOR J%=0% TO 254% STEP 2% 530 IF PEEK(J%-1020%)=255% GOTO 560 540 V%=PEEK(J%-1019%) 550 Y%=Y%+(V% AND 31%)+1% : NEXT J% 560 REM SUB filhantering 570 ; TAB(J9%*20)K2$;TAB(J9%*20+10)K1$;SPACE$(4-LEN(NUM$(Y%)));Y%; : REM slut hantering av K2$ 580 IF J9% THEN ; 590 IF J9%=0 THEN J9%=1 ELSE J9%=0 600 RETURN