Industrial Data Systems IDS Scale Basic - Manual (Page 29)

Scale Basic 4.2E Reference
Set Memory1, 20
Loop1 For Memory1 = 20 down-to 0
Index id, Memory1
Set Id1, 0 ID[Memroy1].register 1 = 0
Dec Memory1
If Positive
Next1
End if End For …
End End of function
Make id [r] 235 [r]
Purpose: to open an ID record. If the ID number in register [r] in not found, open a new ID
record and assign ID[r] to it.
Remarks: condition code Positive is set true if the Id is made or found, condition code Zero is
set true if the Id could not be made (memory full).
Example: Get an ID number from the keyboard, open/make the ID, get tare from keyboard, save
the data.
Get data, Memory1 Get an ID number from the keyboard
If not, Clear key If NOT Clear key
Make id, Memory1 Open/Make ID
Get data, Id2 put keyboard tare into ID register 2
Write id Save ID data
End if End if
End End of function
Mul [r] = [a] * [b] 202 [r] [a] [b]
Purpose: multiply register [a] by register [b], put results into register [r].
Remarks: sets condition codes Positive, Negative, and Zero to reflect results. The decimal
position of the result = decimal position of register a + decimal position of register b. NOTE:
it is preferable to use a multiply in place of a divide (see Div instruction example)
Example: convert net weight pounds to tons. Scale is calibrated x10 lb.
Set Memory1, 5
Dp adjust, Memory1, 4 Memory1 = 0.0005
Mul, Memory2, Net, Memory1 Memory2 = Net * 0.0005
Dp adjust, Memory2, 2 set result to 2 decimal positions
Display, Memory2 display tons
End End of function