Table of Contents
Advertisement
PRODUCT MARKING AND BARCODE IDENTIFICATION
Small program to show ON GOSUB. Uses ASCII dump mode to show what happens:
a
<ABC>
for number=0 to 6
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
else
next number
error "Program finished"
label names
data
data "seven","eight","nine"
</ABC>
Small program for measuring the label length:
<ABC>
DO
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>
[TABLE OF CONTENTS] [COMMAND LIST]
244
on number+1 gosub sorry,one,two,three,four,five,sorry
if (number>=1 and number<=maxnum) then
print "; ",number,"=",names$(number)
print "; Sorry, can't convert ",number
endif
9,"one","two","three","four","five","six"
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)
[ESC] [i] [L] [S]
cab Produkttechnik GmbH & Co KG
244
This
function is
available
for:
A-series
Apollo
no
Hermes
no
M-series
[INDEX]
Advertisement
Table of Contents
