1 REM Ins{nd av: Kristoffer Eriksson <5357>    1985-06-24 01.11.46
10 ! save BAKGRUND,  1985-06-22
15 ! Av Kristoffer Eriksson <5357>
20 ! F|r ABC806 med f{rgsk{rm. St{ller permanent bakgrundsf{rg med HR-grafik.
30 ! 
40 EXTEND : INTEGER 
50 ! Link$ = Program som chainas, eller bara Link$=""
60 ! F$    = F|rgrundsf{rg, t ex F$=YEL
70 ! B$    = Bakgrundsf{rg, t ex B$=BLU
80 ! 
90 Link$=""
100 F$=YEL
110 B$=BLU
120 ! 
130 IF PEEK(39)<>4 THEN 220 ! Kolla om ABC806
140 ! 
150 POKE 65421,201 ! St{ng av HRCLR1. Kan }terst{llas med POKE 65421,195
160 FGCTL BLK+B$
170 FGPOINT 0,0,1
180 FGFILL 511,239,1
190 ATTRIBUTE 5
200 ; F$;
210 ! 
220 IF LEN(Link$) THEN ON ERROR GOTO 230 : CHAIN Link$
230 CHAIN "NUL:"