Table of Contents
Advertisement
PRODUCT MARKING AND BARCODE IDENTIFICATION
abc - examples:
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
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
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()
end sub
</ABC>
[TABLE OF CONTENTS] [COMMAND LIST]
cab Produkttechnik GmbH & Co KG
IF MOD(X,10) = 0 THEN
PRINT "G ",X,",10,270;L:4,.1"
ELSE
PRINT "G ",X,",10,270;L:2,.1"
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)
static a$
local b$
a$=a$+"*"
b$=b$+"*"
print "; ",a$," ",b$
[ESC] [i] [L] [S]
243
This
function is
available
for:
A-series
Apollo
no
Hermes
no
M-series
[INDEX]
243
Advertisement
Table of Contents
