10/01/16 11:35:02 gCfJy1b1
作ってみた。
time1=0
cnt=0
do
cls
pr$=""
if keystate(0x11)
pr$=pr$+" W"
if time1=0
time1=TIMER()+1000
else if TIMER() >= time1 then inc cnt:time1=0
endif
else
time1=0
endif
if keystate(0x1f) then pr$=pr$+" S"
print pr$
print " Long Count ";str$(cnt)
loop