A=100 @A SPSET 0,1 SPOSF 0,100,A IF BUTTN()==16 THEN A-1 IF A<=0 THEN SPCOR 0 END GOTO@A とか？