10 ! LIBABS.BAS
20 ; '** Library list **'
30 Par$='LIB     ABS'+CHR$(14,255,205,27,96,208,33,0,0,201)
40 ! 255 {ndras till 29 om ABS-filen anropas fr}n RAM:
50 Adr=VARPTR(Par$)
60 Z=CALL(Adr+11,Adr)
70 IF Z=0 THEN ; : ; 'Kan inte ladda LIB.ABS!' : GOTO 130
80 IF PEEK(Z)<>205 THEN ; 'F|r gammal version av LIB.ABS anv{nds!' : GOTO 130
90 POKE -688,254
100 POKE 64864,255,255,32,32,32,32,32,32,32,32,32,32,32,32,32,32
110 Z=CALL(Z-16)
120 ; 
130 END