1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   LIBPOKE
3 REM ! Utg}va
4 REM ! av (c) Per Lindberg <816>
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
20 REM skapar LIB :
21 REM g|r RUN
22 REM och sedan RUN LIB :
23 REM eller RUN LIB :  1
24 REM f|rst|r inte minnesinneh}llet
25 A=PEEK(65034)+PEEK(65035)*256
26 IF A<>64296 THEN 29
27 PRINT "LIB finns nog redan inne!"
28 GOTO 31
29 GOSUB 32 : REM poke LIB
30 A=CALL(64256) : REM link LIB
31 POKE 65061,255 : END 
32 POKE 64256,42%,10%,254%,34%,40%,251%,33%
33 POKE 64263,40%,251%,34%,10%,254%,201%,195%
34 POKE 64270,47%,251%,195%,204%,0%,195%,204%
35 POKE 64277,0%,195%,204%,0%,195%,204%,0%
36 POKE 64284,195%,204%,0%,195%,204%,0%,195%
37 POKE 64291,204%,0%,195%,204%,0%,179%,110%
38 POKE 64298,76%,73%,66%,13%,251%,26%,254%
39 POKE 64305,13%,40%,12%,254%,49%,40%,19%
40 POKE 64312,254%,48%,32%,4%,62%,0%,24%
41 POKE 64319,13%,62%,0%,50%,1%,253%,205%
42 POKE 64326,89%,251%,205%,129%,251%,62%,1%
43 POKE 64333,50%,1%,253%,205%,89%,251%,205%
44 POKE 64340,129%,251%,195%,204%,0%,198%,48%
45 POKE 64347,50%,124%,251%,33%,104%,251%,1%
46 POKE 64354,25%,0%,205%,168%,1%,201%,13%
47 POKE 64361,10%,13%,10%,32%,32%,32%,32%
48 POKE 64368,32%,32%,32%,32%,32%,32%,68%
49 POKE 64375,82%,73%,86%,69%,58%,48%,13%
50 POKE 64382,10%,13%,10%,17%,0%,2%,213%
51 POKE 64389,33%,64%,254%,209%,213%,229%,205%
52 POKE 64396,102%,96%,209%,58%,21%,253%,167%
53 POKE 64403,32%,48%,33%,0%,245%,1%,16%
54 POKE 64410,0%,9%,125%,167%,40%,37%,126%
55 POKE 64417,254%,0%,40%,243%,254%,255%,40%
56 POKE 64424,239%,229%,1%,4%,0%,9%,1%
57 POKE 64431,8%,0%,237%,176%,62%,46%,18%
58 POKE 64438,19%,1%,3%,0%,237%,176%,62%
59 POKE 64445,32%,18%,19%,18%,19%,225%,24%
60 POKE 64452,211%,235%,227%,125%,198%,32%,111%
61 POKE 64459,227%,32%,186%,209%,17%,64%,254%
62 POKE 64466,68%,77%,167%,237%,82%,229%,17%
63 POKE 64473,41%,0%,33%,104%,254%,229%,167%
64 POKE 64480,237%,66%,225%,242%,238%,251%,62%
65 POKE 64487,13%,119%,35%,119%,25%,24%,240%
66 POKE 64494,33%,64%,254%,193%,205%,168%,1%
67 POKE 64501,201%
68 RETURN