Sample Script

The script contains the following information:

A sample statement written in the calling routine.
Variables set in the calling routine and passed to the Units_Rates function.

Variable names in the calling routine set to be the same as the Units_Rates function.

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