اینو توی بسکام نوشتم:
BTN دکمه ای هست که فشار میدید
T متغیری هست که کارش مقدار گیری زمانه
I هم شمارش کنند ات هست
DIM T AS WORD,I AS BYTE
DO
T=200
DO
IF BTN=1 THEN INCR I
WAITMS T
IF BTN=1 THEN T=20 ELSE EXIT DO
LOOP
LOOP
BE GOOD