5  REM
10 FORT=49152TO49205: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,14,232,232,232,232,232,232,232,224,255,208,235,76,13,192
40 DATA173,17,208,9,16,141,17,208,104,141,32,208,88,96,9