サンプル・スクリプト

このスクリプトには、次の情報が含まれます:

呼出しルーチンで記述されたサンプル文。
呼出しルーチンに設定され、Units_Rates関数に渡される変数。

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

Sub Calculate()
Dim Destination
Dim Units      
Dim Rates      
Destination = "A#Sales"
Units = "A#UnitsSold"
Rates = "A#Price"
Call Units_Rates(Destination,Units,Rates)
End Sub
' Beginning of the Units_Rates function
Sub Units_Rates(Destination,Units,Rates)
HS.EXP Destination & " = " & Units & " * " & Rates
End Sub