; 鉄道模型プログラム(センサーテスト1)
:LOOP
V111=INPUTADC(3)
JUMPIF(V111,=,255,LOOP)
CALL(OKBEEP)
WAIT(200)
JUMP(LOOP)

;============================
;SUBROUTINE
;============================ 
:OKBEEP
V00=62
V01=192
V02=0
V03=20
V04=0
SOUND
WAIT(100)
RETURN