1 REM Ins{nd av Bengt Holgersson <559>    1986-07-06 21.57.49
100 REM * LIB.BAC
110 ; '** Library list **'
120 ; '   Copyright 1982 Dataindustrier AB'
130 ; '   Modifierad f|r ABC80 med UFD-DOS'
140 REM *  Skriven av G|ran Nordenborg
150 REM *  Modifierad f|r ABC80 av Bengt Holgersson <559>
160 REM ** ** ** ** ** ** ** ** ** ** **
170 REM *
180 REM * Ver date / Ver nb / Sign / Note
190 REM * 82-07-07 /  X.00  /  GN  / Main
200 REM * 82-09-10 /  X.01  /  FB  / No 'CMDINT.SYS' load.
210 REM * 82-09-28 /  6.00  /  FB  / Release.
220 REM * 86-06-23 /        /  BH  / N}gra patchar f|r ABC80
230 REM *
240 REM ** ** ** ** ** ** ** ** ** ** **
250 REM *
260 REM *
270 REM Ladda LIB.ABS
280 A$='LIB     ABS'+CHR$(14%,255%,205%,27%)+CHR$(96%,208%,33%,0%)+CHR$(0%,201%)
290 A%=PEEK(65065%)+PEEK(65066%)*256%
300 IF PEEK(A%)<>242% OR PEEK(A%+1%)<>65% ; 'Internt fel !' : GOTO 380
310 A%=PEEK(A%+6%)+PEEK(A%+7%)*256%
320 C%=CALL(A%+11%,A%)
330 IF C%=0% ; 'Fel vid laddning !' : GOTO 380
340 IF PEEK(C%)<>205% OR PEEK(C%-16%)<>205% GOTO 370
350 IF PEEK(51217%)+SWAP%(PEEK(51218%))<>254% GOTO 370
360 IF PEEK(52395%)+SWAP%(PEEK(52396%))=254% GOTO 390
370 ; 'Fel version av LIB.ABS !'
380 ; CHR$(7%); : END 
390 REM 
400 REM Spara filbeskrivning f|r BASICERR
410 FOR I%=1% TO 16% : E$=E$+CHR$(PEEK(64847%+I%)) : NEXT I%
420 REM 
430 POKE 64848%,254% : REM Annars ingen meny
440 POKE 64866%,32% : REM Annars alltid p} printer
450 POKE 64877%,32% : REM -  "  -
460 REM 
470 REM Fixa s} att 80 tecken fungerar p} ABC80
480 POKE 51217%,167%,58%,590%,SWAP%(590%)
490 REM 
500 REM Fixa s} att printer fungerar p} ABC80
510 POKE 53504%,205%,128%,209%,48%,3%,241%,55%,201%,229%,33%,177%,209%,34%,254%,206%,33%
520 POKE 53520%,35%,209%,34%,183%,204%,33%,110%,209%,34%,96%,205%,33%,82%,209%,34%,52%
530 POKE 53536%,205%,225%,201%,58%,24%,206%,183%,32%,20%,229%,213%,253%,229%,221%,229%,205%
540 POKE 53552%,64%,209%,221%,225%,253%,225%,209%,225%,62%,255%,50%,24%,206%,195%,247%,204%
550 POKE 53568%,253%,33%,22%,254%,17%,189%,209%,58%,117%,32%,254%,62%,194%,119%,32%,195%
560 POKE 53584%,117%,32%,221%,34%,201%,209%,253%,34%,203%,209%,253%,33%,22%,254%,253%,54%
570 POKE 53600%,13%,1%,205%,212%,8%,253%,42%,203%,209%,221%,42%,201%,209%,201%,253%,33%
580 POKE 53616%,22%,254%,17%,197%,209%,58%,189%,32%,254%,255%,194%,191%,32%,195%,189%,32%
590 POKE 53632%,229%,213%,205%,136%,209%,209%,225%,201%,42%,10%,254%,235%,235%,94%,35%,86%
600 POKE 53648%,35%,122%,179%,55%,200%,126%,35%,254%,80%,32%,241%,126%,35%,254%,82%,32%
610 POKE 53664%,235%,126%,35%,254%,32%,32%,229%,94%,35%,86%,235%,126%,254%,195%,200%,55%
620 POKE 53680%,201%,221%,34%,201%,209%,205%,11%,0%,221%,42%,201%,209%,201%,203%,39%,3%
630 POKE 53696%,80%,82%,58%,187%,184%,199%,1%,0%,186%
640 REM 
650 REM H{r l{nkas printerpatchningen f|r ABC80
660 POKE 52395%,167%,204%,53504%,SWAP%(53504%)
670 REM 
680 REM Anropa programmet
690 R%=CALL(C%-16%)
700 REM 
710 REM H{mta filbeskrivning f|r BASICERR
720 FOR I%=1% TO 16% : POKE 64847%+I%,ASC(RIGHT$(E$,I%)) : NEXT I%
730 END