1 REM ++++++++++++++++++++++++++++++++ 2 REM ! Program .... NYLIB 3 REM ! Utg}va 1.1 80-09-31 4 REM ! av (c) JAN K[RRB[CK OCH H.B 7 REM ! Minne 16 Kbytes f|r flexskiva 8 REM ! Ins{nt av 765 9 REM ++++++++++++++++++++++++++++++++ 10 REM 11 REM Screened by C R LERIN. 12 REM 20 ; : ; '* ABC80 LIBRARY LIST Vers 1.1 *' : ; : ; '(0-1) Disk' 30 ; '(-S-) Skydd' : ; '(-P-) Printer' : ; '(-F-) Filstorlekar' : ; : ; '(Nej)...'; : INPUTLINE O$ 40 DEFFNT%(X$,Y$)=INSTR(1%,O$,X$)+INSTR(1%,O$,Y$) 50 D%=FNT%('0','1') : S%=FNT%('S','s') : P%=-(FNT%('P','p')>0%) : F%=FNT%('F','f') 60 F0%=0% : F1%=1% : IF D% IF INSTR(1%,O$,'0') F0%=0% : F1%=0% ELSE F0%=1% : F1%=1% 70 IF P% ; : ; : ; '(PR:) Printer '; : INPUT O$ : IF LEN(O$)=0% O$='PR:' ELSE IF INSTR(1%,O$,':')=0% O$=O$+':' 80 IF P% OPEN O$ ASFILE 1% : ; #1%CHR$(10%,10%,10%,10%) ELSE ; CHR$(12%); 90 FOR F2%=F0% TO F1% : POKE 64769%,F2% : C%=CALL(24678%) : R%=1% : P9%=32% : P2%=62944% 100 IF PEEK(64789%) 280 ELSE ; #P%'>DR'CHR$(F2%+48%)': '; 110 P1%=PEEK(65065%)+SWAP%(PEEK(65066%))+6% : POKE P1%,P2%,SWAP%(P2%),P9%,0% 120 IF ASC(O$)>64% AND ASC(O$)<94% ; #P%O$;"<"; ELSE IF P9%=32% P9%=8% : P2%=62968% : GOTO 110 130 GOSUB 290 : GOSUB 290 : POKE 65408%,205%,102%,96%,42%,18%,253%,17%,0%,0%,106%,6%,239%,126%,35%,14%,8% 140 POKE 65424%,15%,56%,1%,19%,13%,32%,249%,16%,243%,235%,201% 150 L%=CALL(65408%,224%) : L1%=CALL(65408%,192%) : FOR I0%=0% TO 7% : M%(I0%)=PEEK(I0%+62959%) : NEXT I0% 160 POKE 65408%,235%,86%,35%,94%,6%,16%,205%,15%,96%,42%,18%,253%,17%,0%,0%,66% 170 POKE 65424%,46%,4%,36%,52%,32%,2%,235%,201%,35%,126%,230%,31%,60%,79%,235%,9%,235%,35%,24%,239% 180 FOR I%=0% TO 224% STEP 32% : IF M%(I%/32%)>1% C%=CALL(24678%,512%+I%) ELSE 260 190 FOR J%=62736% TO 62960% STEP 16% : POKE P1%,J%+4%,SWAP%(J%+4%),11% 200 IF PEEK(J%)=255% 260 ELSE O1$=LEFT$(O$,8%)+'.'+RIGHT$(O$,9%) 210 IF F%+S%=0% ; #P%O1$' '; : IF R%/3%=R%/3 GOSUB 290 : GOTO 250 ELSE 250 ELSE IF S%=0% O1$=' '+O1$ : GOTO 230 220 IF PEEK(J%+1%) AND 1% O1$='S '+O1$ ELSE IF PEEK(J%+1%) AND 2% O1$='R '+O1$ ELSE O1$=' '+O1$ 230 IF F% C%=CALL(65408%,J%) : O1$=O1$+NUM$(C%) 240 IF (R% AND 1%) ; #P%O1$; ELSE ; #P%TAB(20%)O1$; : GOSUB 290 250 R%=R%+1% 260 NEXT J% : NEXT I% : IF S%+F%=0% IF (R%-1%)/3%<>(R%-1%)/3 GOSUB 290 ELSE P%=P% ELSE IF (R% AND 1%)=0% GOSUB 290 270 GOSUB 290 : ; #P%L1%' av'L%' sektorer kvar'; : GOSUB 290 : GOSUB 290 280 NEXT F2% : POKE 65011%,PEEK(65011%)+(P%=0%) : END 290 ; #P% : IF P%=0% AND PEEK(65011%)=23% GET X$ : IF ASC(X$)=13% END ELSE RETURN ELSE RETURN