SPSET.,.WHILE 1B=BUTTON()X=X+(8AND B)-(4AND B)Y=Y+(2AND B)-(1AND B)X=MIN(MAX(X,0),399)X=MIN(MAX(X,0),239)SPOFS .,X,Y:WEND