- 843 名前：名前は開発中のものです。 mailto:sage [2010/01/16(土) 11:35:02 ID: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
