CAB A Series - Page 244

244 cab Produkttechnik GmbH & Co KG
244
PRODUCT MARKING AND BARCODE IDENTIFICATION
Hermes
Apollo
A-series
This
function is
available
for:
[TABLE OF CONTENTS]
[COMMAND LIST][INDEX][ESC][i][L][S]
M-series
Small program to show ON GOSUB. Uses ASCII dump mode to show what happens:
a
<ABC>
for number=0 to 6
on number+1 gosub sorry,one,two,three,four,five,sorry
next number
end
label sorry:print "; Sorry, can’t convert ",number:return
label one:print "; 1=one":return
label two:print "; 2=two":return
label three:print "; 3=three":return
label four:print "; 4=four":return
label five:print "; 5=five":return
</ABC>
Small program to show READ,DATA and RESTORE. Uses ASCII dump mode to show what happens:
a
<ABC>
restore names
read maxnum
dim names$(maxnum)
for a=1 to maxnum:read names$(a):next a
for number=0 to 10
if (number>=1 and number<=maxnum) then
print "; ",number,"=",names$(number)
else
print "; Sorry, can’t convert ",number
endif
next number
error "Program finished"
label names
data 9,"one","two","three","four","five","six"
data "seven","eight","nine"
</ABC>
Small program for measuring the label length:
<ABC>
DO
REM read measured length
dy=PEEK("mlength")
IF dy>0 BREAK
PRINT "f"
WAIT 0.25
REM wait until standing again REPEAT
UNTIL (PEEK("direction")=0)
LOOP
PRINT "J"
PRINT "S l1;0,0,",dy-2,",",dy,",100"
PRINT "T 0,10,0,3,5;Measured length: ",dy,"mm"
PRINT "A 1"
</ABC>
no
no