basic pro compiller

'例題1
'PORTBの0Bitに接続されているボタン(Active-Low)を押したときに1秒間隔でPORTAの0bitが
'点滅するプログラム

def: b2 var byte 'ボタンで使用する変数の定義

loop: button 0,0,100,100,b2,1,loop2 'ボタンの処理
Goto loop

loop2: high PORTA.0 'PORTAのbit0をHIGHレベルにする
pause 1000 '1000ミリ秒(=1秒)待つ
low PORTA.0 'PORTAのbit0をLowレベルにする
pause 1000
Goto loop2 'loop2を繰り返し実行する

END

--------------------------------------------------------------------------------

'例題2
'PORTBの0Bitに接続されているボタン(Active-Low)を押したときに1秒間隔でPORTAの0bitが
'10回点滅するプログラム

def: b2 var byte 'ボタンで使用する変数の宣言
i var byte 'ループカウンタの宣言

loop: button 0,0,100,100,b2,1,loop2 'ボタンの処理
Goto loop

loop2: For i = 1 to 10 '10回をカウントするFor文

high PORTA.0 'PORTAのbit0をHIGHレベルにする
pause 1000 '1000ミリ秒(=1秒)待つ
low PORTA.0 'PORTAのbit0をLowレベルにする
pause 1000

NEXT i

END