CAB A+ Series Programming Manual page 410

a-Series basic compiler
410
Small program to print a text in a circle:
Example:
cab Produkttechnik GmbH & Co KG
; 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
410
410