5  REM POKE 49166,X:POKE 49179,X+2
10 FORT=49152TO49199: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,8,232,224,3,208,241,76,13,192,173,17,208,9,16,141,17,208
40 DATA104,141,32,208,88,96,32