10 PMGRAPHICS 1
20 PMMOVE 4,96
30 PMCLR 4
40 POKE PMADR(4)+255,1
50 POKE 53278,0
60 PMMOVE 4;1
65 X=PEEK(20)
66 IF X=PEEK(20) THEN 66
70 IF BUMP(4,10)=0 THEN 60
80 GOTO 30
