1 ! +++++++++++++++++++++++++++++++++++
2 ! Program ....   CASLIB.800
3 ! Utg}va  1.0    1982-04-18
4 ! av (c) Bo Kullmar
8 ! Ins{nt av Bo Kullmar, 1789.
9 ! +++++++++++++++++++++++++++++++++++
10 ! F|r kassettminne ABC820!
15 ! CASLIB, biblioteksprogam som 
20 ! skriver ut inneh}llet p} en kassett
60 FLOAT 
80 EXTEND 
1000 ; CHR$(12%)
1010 ; CUR(0%,6%) '*** ABC800 CASSETTE LIB ***'
1020 ; CUR(2%,0%) 'Vid slut stoppa programmet manuellt!'
1030 Rad%=6%
1040 Kolum%=0%
1050 IF Varv%=9% THEN 1090
1060 ; CUR(4%,0%) '[r bandspelaren klar? (J/N) ';
1070 GET \$
1080 IF (ASCII(\$) AND 223%)=74% THEN 1090 ELSE 1060
1090 ; CUR(22%,0%)
1100 ; CHR$(8%);
1110 OPEN 'cas:' AS FILE 1%
1120 IF PEEK(32720%)=70% THEN 1130 ELSE 1120
1130 Rubrik$=''
1140 FOR I%=32726% TO 32737%
1150   Rubrik$=Rubrik$+CHR$(PEEK(I%))
1160 NEXT I% 
1170 ; CUR(23%,0%) SPACE$(20%);
1180 ; CUR(Rad%,Kolum%) Rubrik$;
1190 Kolum%=Kolum%+14%
1200 IF Kolum%>28% THEN Rad%=Rad%+1% : Kolum%=0%
1210 IF Rad%=21% AND Kolum%=0% THEN 1230
1220 GOTO 1090
1230 ; CUR(22%,0%) 'Forts{ttning, denna sida blankas ut!'
1240 ; CUR(23%,0%) 'Tryck p} en tangent! ';
1250 Varv%=9%
1260 GET \$
1270 GOTO 1000