10 ! ***********************************
20 ! *   LIB rutin av Magnus <8042>    *
21 ! *          Ver. 1.1               *
30 ! *         1992-05-03              *
40 ! *  F}r kopiaras fritt och f}r     *
50 ! *  Andv{ndas i egna program.      *
60 ! *   GJORT P] EN ABC806 UFD-DOS    *
70 ! *   DATADISC 54  (ABC830)         *
80 ! ***********************************
90 EXTEND : INTEGER 
100 ; "***** Lib program av Magnus 1992 *****"
110 DIM Sek$=0% : POKE VAROOT(Sek$),255%,SWAP%(255%),62720%,SWAP%(62720%),255%,SWAP%(0%)
120 Z%=INP(7%) : INPUT "Drive ";Dri$
130 ; " " : GOSUB 270 : IF Dri$="ufd:" THEN Ufd%=PEEK2(65527%) ELSE Ufd%=16%
140 FOR Sek%=Ufd% TO 15%+Ufd% ! Bibliotekets sektorer
150   Z%=CALL(24678%,Sek%)
160   FOR F%=0% TO 15% : F$=MID$(Sek$,(F%*16%)+1%,15%)
170     GOSUB 200 : IF SYS(5%)=0% THEN 180 ELSE GET A$ : GET A$
180 NEXT F% : NEXT Sek% : Z%=INP(7)
190 END 
200 N$=MID$(F$,5%,8%) : T$=MID$(F$,13%,3%)
210 IF ASCII(N$)=255% THEN GOTO 260
220 Sl$=MID$(F$,3%,1%) : Sh$=MID$(F$,4%,1%)
230 Sl%=ASCII(Sl$) : Sh%=ASCII(Sh$) : St%=(Sh%*255%)+Sl%
240 IF ASCII(N$)=0% THEN 260
250 ; N$+".";T$;" ";St%,
260 RETURN 
270 ON ERROR GOTO 310
280 OPEN Dri$ AS FILE 1%
290 CLOSE 1%
300 RETURN 
310 IF ERRCODE=42% THEN ; "Enheten ej klar" : GOTO 190
320 GOTO 290