start tok64 d64-vTGYqK
0 REM sv hemdator nytt #6/1989
10 b=49152
20 FORl=0TO90:READa:POKEb+l,a:NEXTl
30 DATA120,169,51,133,1,162
40 DATA0,189,0,208,157,0
50 DATA56,232,208,247,238,9
60 DATA192,238,12,192,173,12
70 DATA192,201,64,240,3,76
80 DATA5,192,169,208,141,9
90 DATA192,169,56,141,12,192
100 DATA169,55,133,1,88,169
110 DATA30,141,24,208,96,162
120 DATA9,169,0,157,0,56
130 DATA157,0,57,157,0,58
140 DATA157,0,59,157,0,60
150 DATA157,0,61,157,0,62
160 DATA157,0,63,173,54,192
170 DATA24,105,55,141,54,192
180 DATA96,96,96,255,0,255
190 SYS49152
200 GOSUB1000
210 GETa$:IFa$=""THEN210
220 SYS49152:POKE53272,21:END
1000 FORl=0TO255:SYS49205:NEXT:RETURN
stop tok64
(bastext 1.0)