5  REM POKE 49166,X:POKE 49182,X
10 FORT=49152TO49202:READD:POKET,D:NEXT:SYS49152
20 DATA120,173,32,208,72,173,17,208,41,239,141,17,208,162,5,142,32,208,173,1
30 DATA220,201,255,208,11,232,234,232,234,224,9,208,238,76,13,192,173,17,208,9
40 DATA16,141,17,208,104,141,32,208,88,96,96