ACLS:XSCREEN 2:DISPLAY 1:SPSET 0,0:SPHOME 0,8,8:SPCOL 0
X=160:Y=120:SPOFS 0,X,Y
?"TOUCH A STRAWBERRY"
WHILE TRUE
VSYNC 1:TOUCH OUT TM,TX,TY:LOCATE 0,1
IF TM>0 && SPHITRC(TX,TY,1,1)==0 THEN
?"TOUCHING"
ELSE
?" "
ENDIF
IF(SPCHK(0)AND #CHKXY)==0 THEN
X=RND(304)+8:Y=RND(224)+8:T=RND(40)+20
SPANIM 0,"XY",-T,X,Y,1
ENDIF
WEND
1そうだね 未プレイ