Campbell CR800 Series - Page 309

Section 7. Installation
309
BeginProg
counter(1) = 1
counter(2) = 2
Scan(1,Sec,0,0)
'Pass Counter() array to j() array, pi_pruduct() to OutVar()
Call ProcessSub (counter(),pi_product())
CallTable pi_results
NextScan
EndProg