5  REM POKE 49166,X:POKE 49183,X+2
10 FORT=49152TO49203:READD:POKET,D:NEXT:SYS49152
20 DATA120,173,32,208,72,173,17,208,41,239,141,17,208,162,1,142,32,208,173,1
30 DATA220,201,255,208,12,232,234,234,234,234,224,3,208,237,76,13,192,173,17
40 DATA208,9,16,141,17,208,104,141,32,208,88,96,96