Trio Motion Coordinator MC216 - Page 386

9-14 Programming Examples
Example Programs
Trio Motion Technology
pos=40
num=0
PRINT#4,CHR(20);
REPEAT
PRINT#4,CURSOR(pos);num[6,0];
GET#4,k
IF k=69 THEN GOTO getnum
IF k>=59 AND k<=61 THEN k=k-7
IF k>=66 AND k<=68 THEN k=k-17
IF k=71 THEN k=48
IF k>47 AND k<58 THEN
k=k-48
num=num*10+k
ENDIF
UNTIL k=73
RETURN
initial:
PRINT #3,CHR(20);CHR(14);
PRINT #3,CURSOR(0);
PRINT #3," Demonstration of "
PRINT #3,"Motion Coordinator "
WA(3000)
' Set Global Variable Pointers:
start=0
length=1
' Set any none zero local variables:
in_length=VR(length)
VR(start)=0
RUN "cycle"
RETURN
Motion Cycle Program
'
' Motion Cycle demonstration program:
'
GOSUB setvar
GOSUB initial