User guide

70 AX DRIVE USER GUIDE
1000 MOVE1$ = "1A1 1V2 1025,600 1G 1LF"
1005 CLS
1007 LOCATE
12,15: PRINT" DOING MOVE 1 "
1010 PRINT #1,MOVE1$
1015 ECHO$
= INPUT$(23,1)
1020
LF$ = INPUT$(l, 1)
1040 IF LF$ <> CHR$(10) OOTO 1020
1045 CLS
1047 LOCATE
12,15
, Define move for Axis 1
, Move axis 1.
, Read echoes from AX
, Wait for line feed from AX
, indicating end of move.
1050 PRINT "MOVE 1 DONE" , Let user know axis 1 is done
1060 LOCATE 15,15: PRINT" PRESS ANY KEY TO GO ON TO SECOND MOVE"
1070 V$ = INKEY$: IF LEN(V$) = 0 THEN 1060
1 900 ' ...... • .. * * * * * * * * * * * * * * • ............ * * ................ * .. * .. * ................ * ............ ..
1901 ' .. *
1902 ' .. After axis one is done, we request that you press any key to go on
1903 ' .. to the second move. In real application, we would expect you to
1904 ' .. go ahead with the process and work on the part before going on to
1905 ' .. next move. (i.e. Activate a punch)
1906
1907
1908
1909
1910
1911
, .. Now that first move is finished, we go on to move #2.
, .. AX also prints a line feed after finishing the second move.
, .. As soon as computer receives the line feed from AX, program will
, .. go back to the first move.
..
..
..
1912 ' .. * ...................... * .. * .................................... * .......................................... ..
2000 MOVE2$ = "A 10 V5 0-64000 G H G 1 LF"
2005 CLS
2007 LOCATE
12,15: PRINT" DOING MOVE 2"
2010 PRINT #l,MOVE2$
2015 ECHO$ = INPUT$(25,1)
2020
LF$ = INPUT$(l, 1)
2040 IF LF$ <> CHR$(10) GOTO 2020
2045 CLS
2047 LOCATE
12,15
2050 PRINT "MOVE 2 DONE"
2060 FOR I = 1 TO 1000: NEXT I
2070 GOTO 20
,
Go back to beginning of program.