CY545 Stepper System Controller
www.ControlChips.com
620 '
630 '
keys to COM port. Stop when Escape key input
640 A$=INKEY$
:
IF A$=ES$ GOTO 930
650 IF A$<>" " THEN PRINT #1,A$;
:
PRINT #2,A$;
700 '
710 '
720 '
730 '
740 '
750 '
Check for any received data from COM port, and
display it, with line feeds filtered out. Loop back
to check keyboard again when no more received data
760 WHILE NOT EOF(1)
770 J%=LOC(1) B$=INPUT$(J%,#1)
780 LF%=INSTR(LF%+1,B$,LF$)
790 IF LF%>0 THEN MID$(B$,LF%,1)=NL$
800 PRINT #2,B$;
810 WEND
:
:
LF%=0
GOTO 780
:
820 GOTO 640
900 '
910 '
920 '
Exit program when Escape key is pressed
930 CLOSE #1
940 STOP
:
CLOSE #2
© 2002 Cybernetic Micro Systems
100
Chapter 20 - Getting Your CY545 Running
ETC [ ETC ]
