CAB A Series - abc Programming Examples

cab Produkttechnik GmbH & Co KG 243
243
[TABLE OF CONTENTS]
[COMMAND LIST][INDEX]
Hermes
Apollo
A-series
This
function is
available
for:
[ESC][i][L][S]
PRODUCT MARKING AND BARCODE IDENTIFICATION
M-series
Small program to print a 100mm long ruler with 1mm markings:
; Test label for ruler
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
Small program to print a text in a circle:
; Test label for rotated text
J
S l1;0,0,68,71,104
<ABC>
A$="Rotated text with Euro sign: "+CHR$(DEC("20AC"))+" "
N=LEN(A$)
D=360/N
FOR I=1 TO N
W=((I-1)*D)/180*PI
X=50-25*COS(W)
Y=30-25*SIN(W)
R=90-(I-1)*D
IF R<0 THEN
R = R + 360
ENDIF
PRINT "T ",X,",",Y,",",R,",3,6,b;",MID$(A$,I,1)
NEXT I
PRINT "T 0,30,0,3,5;[J:c100]",date$
PRINT "T 0,38,0,3,5;[J:c100]",time$
END
</ABC>
A 1
Small program to show usage of local and static variables. Uses ASCII dump mode to show
what happens:
a
<ABC>
for a=1 to 4:stars():next a
sub stars()
static a$
local b$
a$=a$+"*"
b$=b$+"*"
print "; ",a$," ",b$
end sub
</ABC>
no
no
abc - examples: