Code: Select all
Global Count
Procedure.l Number(Max.l)
lResult.l = Count
Count + 1
ProcedureReturn lResult % Max
EndProcedure
Dim counts(10)
For i=0 To 1000
counts(Number(10)) + 1
;The following works
;x = Number(10)
;counts(x) + 1
Next
For n=0 To 9
Debug counts(n)
Next