5 ; "Enter Extension:"; : K1$=' ' : K2$=' ' : K3$=' ' 6 GET K1$ : ; K1$; : IF K1$=CHR$(13%) K1$=' ' : GOTO 10 ELSE IF K1$>'^' K1$=CHR$(ASC(K1$)-32%) 7 GET K2$ : ; K2$; : IF K2$=CHR$(13%) K2$=' ' : GOTO 10 ELSE IF K2$>'^' K2$=CHR$(ASC(K2$)-32%) 8 GET K3$ : ; K3$; : IF K3$=CHR$(13%) K3$=' ' ELSE IF K3$>'^' K3$=CHR$(ASC(K3$)-32%) 10 K1$=K1$+K2$+K3$ : PRINT CHR$(12%)"ABC80 LIBRARY KILLER Killing *."K1$ : ; 50 FOR D%=0% TO 1% : ; : POKE -767%,D% 60 GOSUB 310 : IF S1%<>0% THEN 250 80 R%=1% : T%=2% : FOR S%=0% TO 7% 90 IF M%(S%)<2% 180 ELSE GOSUB 290 100 IF S1%<>0% 340 ELSE B%=-2816% 110 FOR N%=1% TO 16% : GOSUB 260 120 IF (ASC(N$)=255%) OR (ASC(N$)=0%) 170 140 K2$=MID$(N$,5%,8%) 141 IF RIGHT$(K2$,LEN(K2$))=' ' K2$=LEFT$(K2$,LEN(K2$)-1%) : GOTO 141 142 K2$=K2$+'.'+MID$(N$,13%,3%) 150 IF MID$(N$,13%,3%)<>K1$ 170 160 ; 'DR'CHR$(D%+48%)': 'K2$' killed.' : KILL 'dr'+CHR$(D%+48%)+':'+K2$ : GOTO 60 170 NEXT N% 180 NEXT S% 250 NEXT D% : END 260 N$="" : FOR I%=0% TO 15% 270 N$=N$+CHR$(PEEK(B%+I%)) : NEXT I% 280 B%=B%+16% : RETURN 290 S1%=CALL(24678%,SWAP%(T%)+S%*32%) 300 S1%=PEEK(-747%) : RETURN 310 T%=0% : S%=6% : GOSUB 290 320 B%=-2577% : FOR I%=0% TO 7% 330 M%(I%)=PEEK(B%+I%) : NEXT I% : RETURN 340 ; "Disketten Fehler Drive:"D%,S1%