↓10進数→2進数↓
DEF BIN$(BIT,N)
WHILE N!=0
N$=STR$(N MOD 2)+N$
N=N DIV 2
WEND
RETURN FORMAT$("%0"+STR$(BIT)+"S",N$)
END
↓2or16進数→10進数↓
DEF TEN(MODE,N$)
IF MODE==2 THEN M$="&B"
IF MODE==16THEN M$="&H"
RETURN VAL(M$+N$)
END
プチコン3号で1000分の1秒単位の時間を取得するTIMER関数(TIMERSTART命令を実行してからの時間を取得できます)
※グローバル変数 _TIMER0、_TIMER1、_TIMER2を使用しています。
DEF TIMERSTART
XON MIC:MICSTART 3,0,0
_TIMER1=0:_TIMER2=0
END
DEF TIMER()
_TIMER0=MICPOS
IF _TIMER0<_TIMER1 THEN INC _TIMER2,262112
_TIMER1=_TIMER0
RETURN FLOOR((_TIMER2+_TIMER0)/32.73)
END