start tok64 d64-GUgCv7
10 REM ****************
20 REM *              *
30 REM * line lighter *
40 REM *              *
50 REM ****************
60 REM
70 REM ob. computer 4/1987
80 REM
100 FORa=49152TO49267:READx:POKEa,x:NEXT
110 DATA241,250,84,0,120,169,35,141,20,3,169,192,141,21,3,173,17,208,41,127,141
120 DATA17,208,169,0,141,18,208,169,129,141,26,208,88,96,173,25,208,141,25,208
130 DATA48,7,173,13,220,88,76,49,234,165,214,197,2,240,21,133,2,165,214,141,0,192
140 DATA24,42,42,42,105,49,141,0,192,105,9,141,1,192,173,18,208,205,1,192,176,15
150 DATA173,2,192,141,33,208,173,1,192,141,18,208,76,112,192,173,3,192,141,33,208
160 DATA173,0,192,141,18,208,76,188,254,0
200 PRINT"{clear}{down*2}{right}sys pd 1991
210 PRINT"{down*2}{right}line lighter
220 PRINT"{down}{right}poke 49154,radf[rg:poke 49155,peek{space*6}(53281):sys 49156 startar
stop tok64
(bastext 1.0)