CAB A+ Series Programming Manual page 409

a-Series basic compiler
409
Small program to print a 100mm long ruler with 1mm markings:
Example:
cab Produkttechnik GmbH & Co KG
; Test label for ruler
m m
J
S l1;0,0,68,71,104
G 0,10,0;L:100,.1
<ABC>
FOR X=0 TO 100
IF MOD(X,10) = 0 THEN
PRINT "G ",X,",10,270;L:4,.1"
ELSE
PRINT "G ",X,",10,270;L:2,.1"
END IF
NEXT X
END
</ABC>
A 1
409
409