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