a-Series basic compiler
414
Small program for measuring the label distance:
Example:
cab Produkttechnik GmbH & Co KG
<ABC>
DO
REM read measured distance
dy=PEEK(„mlength")
IF dy>0 BREAK
PRINT „f"
WAIT 0.25
REM wait until standing again REPEAT
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 label distance: „,dy,"mm"
PRINT „A 1"
</ABC>
414
414