start tok64 d64-a0aRXj
0 REM  different colour on bourder
1 REM
2 REM  on screen 525 raster lines from
3 REM  top to bottom (european tv's 100        more lines)
4 REM  they are paired up into 262             double lines on adress 53266
5 REM  you can see witch one is                currently being draw
6 REM  --------------------------------        do this poke before sys 828
7 REM                                             poke2,change line
8 REM     poke3,top colour
9 REM     poke4,bottom colour
10 REM"{delete*7}{-*40}
11 POKE2,146:POKE3,23:POKE4,18
12 REM"{delete*7}{-*40}
15 FORa=828TO893:READb:POKEa,b:NEXT:SYS828
20 DATA 120,169,88,141,20,3
30 DATA 169,3,141,21,3,169
40 DATA 129,141,26,208,169,27
50 DATA 141,17,208,169,127,141
60 DATA 13,220,88,96,169,1
70 DATA 141,25,208,166,4,160
80 DATA 0,173,18,208,197,2
90 DATA 176,4,166,3,164,2
100 DATA 142,32,208,140,18,208
110 DATA 173,13,220,74,144,3
120 DATA 76,49,234,76,188,254
stop tok64
(bastext 1.0)