5  REM FORT=49173TO49198STEP5:                 POKET,RND(1)*256:NEXT
10 FORT=49152TO49226:READD:POKET,D:NEXT:SYS49152
20 DATA120,173,32,208,72,173,17,208,41,239,141,17,208,173,1,220,201,255,208,40
30 DATA169,0,141,32,208,169,2,141,32,208,169,3,141,32,208,169,5,141,32,208,169
40 DATA6,141,32,208,169,7,141,32,208,234,230,2,230,2,165,2,76,13,192,173,17,208
50 DATA9,16,141,17,208,104,141,32,208,88,96,96