5  REM POKE49166,X:POKE49184,X+2
10 FORT=49152TO49204:READD:POKET,D:NEXT:SYS49152
20 DATA120,173,32,208,72,173,17,208,41,239,141,17,208,162,0,142,32,208,173,1
30 DATA220,201,255,208,13,232,234,234,234,234,234,224,2,208,236,76,13,192,173
40 DATA17,208,9,16,141,17,208,104,141,32,208,88,96,208