DIM D(4)
D(0)=&B0110
D(1)=&B1111
D(2)=&B1111
D(3)=&B0110
X=60
Y=8
WHILE 1
IF SW AND 8 THEN X=X+1
IF SW AND 4 THEN X=X-1
IF SW AND 2 THEN Y=Y+1
IF SW AND 1 THEN Y=Y-1
IF X<0 THEN X=0
IF X>120 THEN X=120
IF Y<0 THEN Y=0
IF Y>28 THEN Y=28
CLS
BITMAP D,X,Y,4
WEND
