CAB A+ Series - Page 414

414
414
414cab Produkttechnik GmbH & Co KG
Small program for measuring the label distance:
<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>
a-Series basic compiler
Example: