同じような処理は旧プチコンで何度もやっています。ちょっと即興で書いてみました。 IF P>0 THEN FOR I=P TO 1 STEP -1 SC=SC+1 LOCATE 0,0:PRINT SC; BEEP 2 WAIT 3 NEXT ENDIF