ACLS:CLEAR:SC=130
SPSET 0,130,0,0,0,1
SPANIM 0,2,8:JF=1
@LOOP
VSYNC 1
B=BUTTON()
IF !!(B AND 16)AND !JF THEN MV=-7:JF=1:BEEP 8
MV=(MV+0.3)*JF
PY=PY+MV
IF B AND 4 THEN PX=PX-4:SC=132
IF B AND 8 THEN PX=PX+4:SC=128
IF PX<-16 THEN PX=256
IF PX>256 THEN PX=-16
IF PY>176 THEN PY=176:JF=0:BEEP 9
SPCHR 0.SC
SPOFS 0,PX,PY
GOTO@LOOP
