サンプル・スクリプト

• 呼出しルーチンで記述されたサンプル文。

• 呼出しルーチンに設定され、Increase_Decrease関数に渡される変数。

• Increase_Decrease関数と同一になるように設定された呼出しルーチンの変数名。

  Sub Calculate()
  Dim Destination
  Dim Source
  Dim Factor
  Dim Scale
  Dim Inverse 
  Destination = "A#Telephone"
  Source = "A#Telephone"
  Factor = "A#Factor.C1#[None]"
  Scale = "100"
  Inverse = False
  Call Increase_Decrease(Destination,Source,Factor,Scale,
  Inverse)
  End Sub
  ' Beginning of the Increase_Decrease function 
  Sub Increase_Decrease(Destination,Source,Factor,Scale,Inverse)
  If Inverse = False Then
  HS.EXP Destination & " = " & Source & " * 
  (1 + (" & Factor & " / " & Scale & "))"
  Else
  HS.EXP Destination & " = " & Source & " * 
  (1 + ((" & Factor & " * -1) / " & Scale & ))"
  End If
  End Sub