UniBasic Commands Reference - Rocket Software

Examples
In the following example, the program segment processes the dynamic array
CLIENT:
DIM VAR(5,2)
CLIENT = "G.Flaubert":@VM:"Guy":@SM:"12":@VM:"Yvette":@SM:"7"
FOR I = 1 TO 5
REMOVE VAR(I,1) FROM CLIENT SETTING VAR(I,2)
NEXT I
CLIENT = CLIENT;*reset REMOVE pointer
After the loop terminates, VAR contains the following:
VAR(1,1) = "G.Flaubert" VAR(1,2) = 3
VAR(2,1) = "Guy" VAR(2,2) = 4
VAR(3,1) = "12" VAR(3,2) = 3
VAR(4,1) = "Yvette" VAR(4,2) = 4
VAR(5,1) = "7" VAR(5,2) = 0
Notice that each element in the array VAR contains the extracted array element and
the associated delimiter.
In the next example, the program segment starts at the beginning of the array
AMOUNTS, successively removes each element from the array, calculates a 3.5
percent tax amount, and adds it into the variable TAX.AMT. When MARK = 0
(delim.var is 0), processing terminates.
COL = 1
LOOP
REMOVE INV.AMT FROM AMOUNTS AT COL SETTING MARK
TAX.AMT += INV.AMT*.035
WHILE MARK DO REPEAT
In the next example, the program segment demonstrates the difference between
UniBasic and other implementations of BASIC:
ARRAY = "AB":@AM:"CD":@AM:"EF"
COL = 1
LOOP
REMOVE LINE FROM ARRAY AT COL SETTING MARK
PRINT LINE, COL, MARK
WHILE MARK REPEAT
In UniBasic, the result is the following:
AB 4 2
CD 7 2
EF 9 0
REMOVE 1-677