1 ! +++++++++++++++++++++++++++++++++++
2 ! Program ....   L[SLIB
3 ! Utg}va  1.0    1982-04-18
4 ! av (c) Bo Kullmar
8 ! Ins{nt av Bo Kullmar, 1789.
9 ! +++++++++++++++++++++++++++++++++++
10 ! L[SLIB, L{sning av fil som
20 ! inneh}ller alla LIB modulerna.
21 ! Kompleterat med f|rtida slut genom
22 ! nertryckning av S eller s.
60 FLOAT 
80 EXTEND 
300 DIM Volym$=125%
1000 ! Huvudprogram
1005 GOSUB 2000 ! \ppning av fil
1010 Datum$=NUM$(Datum)
1020 H$=CHR$(12%)+CUR(0%,0%)+'** ABC800 L[S LIB FIL FR]N '+Datum$+'  **'
1030 ; H$
1040 ; : ; 
1060 GET #1%,Antalblock$ COUNT 2%
1070 Antalblock%=CVT$%(Antalblock$)
1080 ; H$
1090 ; : ; 
1100 GET #1%,Volym$ COUNT 120%
1110 ; 
1120 ; 'Volym: ' Volym$
1130 ; : ; : ; 
1140 K%=0% : R%=9%
1150 FOR I%=1% TO Antalblock%
1160   GET #1%,Filnamn$ COUNT 12%
1170   ; CUR(R%,K%) Filnamn$
1180   K%=K%+14%
1190   IF K%>28% THEN R%=R%+1% : K%=0%
1200   IF R%>20% THEN ; : ; 'Tryck p} en tangent  f|r ny sida! '; : GET \$ : R%=9% : ; H$ : ; CUR(4%,0%) 'Volym: ' Volym$
1210 NEXT I% 
1220 ; : ; 
1225 IF INP(34)=83 OR INP(34)=115 THEN 6000
1230 ; 'Tryck f|r ny diskfil ! ';
1240 GET \$
1250 Filpekare%=POSIT(1%)
1260 IF Filpekare%<Filslut% THEN 1060
1270 ; 
1280 ; 
1290 GOSUB 6000 ! Slut
2000 ! \ppning av fil
2020 OPEN 'LIBREG.DAT' AS FILE 1%
2030 GET #1%,Datum$ COUNT 4%
2040 Datum=CVT$F(Datum$)
2045 POSIT #1%,5%
2050 GET #1%,Filslut$ COUNT 2%
2060 Filslut%=CVT$%(Filslut$)
2070 RETURN 
6000 ! Slutsektion
6010 CLOSE 1%
6020 ; 'Slut!'
6030 END