'
' ****************************************
'
'    Actuator Drive Program Ver.0.2
'
'           2000/4/26 K. Hirata
'
' ****************************************
'
' ポート初期設定
'
Input 0 'スイッチ１
Input 1 'スイッチ２
Input 2 'スイッチ３
Input 3 'スイッチ４
Input 4 '未使用
Input 5 '未使用
Input 6 '未使用
Output 7 'アクチュエータ
'
' ****************************************
'
' プログラム開始デモンストレーション
'
loop1:

Low 7
Pause 400

High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400

Low 7
Pause 1000

High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400

Low 7
Pause 1000

High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7
Pause 400
High 7
Pause 400
Low 7

'
' スイッチ１の検知
'
loop2:
  if Pin0=0 then loop2out 'スイッチが押されたときがBit=0
  if Pin2=0 then loop1 'プログラムモード
  if Pin3=0 then manual 'マニュアルモード
Goto loop2
loop2out:
'
' スイッチ２の検知
'
W0=0
loop3:
  if Pin1=0 then loop3out 'スイッチが押されたときがBit=0
  if Pin2=0 then loop1 'プログラムモード
  if Pin3=0 then manual 'マニュアルモード
  W0=W0+1
Goto loop3
loop3out:
'
' インターバル調整
'
For W1=0 to W0
Next W1
'
' アクチュエータ駆動
'
W2=W0/10
High 7
Pause W2 'インターバル1sec
Low 7
Goto loop2
'
' ****************************************
' マニュアルモード
'
manual:
loop4:
  if Pin2=0 then loop1 'プログラムモード
  if Pin3=0 then highp 'スイッチが押されたときがBit=0
  if Pin3=1 then lowp
Goto loop4
'
highp:
High 7
Goto loop4
'
lowp:
Low 7
Goto loop4
'
End