Manual

120-200-350 © 1993 (Rev 5/97) Max Machinery, Inc. Page 33
74 I=I+1
75 PRINT Return dat$(I);
76 UNTIL Return_dat$(I)=CHR$(13) ! FIND END OF DATA CARRIAGE RETURN
78 Send more$=”Y”
79 DISP “DO YOU WANT TO SEND MORE DATA Y/N, DEFAULT = “;Send_more$;
80 LINPUT “ “,Variable$
81 IF LEN(VariableS) THEN
82 Send_more$=Variable$
83 END IF
84 CLEAR SCREEN
85 IF Send_more$=”Y” THEN
86 Send_more$=”N”
87 DISP “DO YOU WANT TO CHANGE THE SERIAL FORMAT Y/N, DEFAULT = “;Send_more$ ;
88 LINPUT “”,Variable$
89 IF LEN(Variable$) THEN
90 Send_more$=VariableS
91 END IF
92 IF Send_more$=”Y” THEN GOTO Change_port
93 GOTO New_send
94 END IF
97 END
98 SUB Message
99 !
100 !*************************ERROR MESSAGE****************************
101 !
102 OFF ERROR
104 CLEAR SCREEN
105 PRINT “ “
106 PRINT “ “
108 Sc=9
109 SELECT ERRN
110 CASE 167
111 STATUS Sc,10;Uart_error !GET UART ERROR INFO
112 IF BIT(Uart_error,1) THEN
113 PRINT “UART HAS A OVERRUN ERROR”
114 END IF
115 IF BIT(Uart_error,2) THEN
116 PRINT “UART HAS A PARITY ERROR”
117 END IF
118 IF BIT(Uart error,3) THEN
119 PRINT “UART HAS A FRAMING ERROR”
120 END IF
121 IF BIT(Uart_error,4) THEN
122 PRINT “UART BREAK RECEIVED”
123 END IF
131 CASE ELSE
132 PRINT ERRM$
133 END SELECT
135 PRINT “ “
136 PRINT “DETERMINE SOURCE OF ERROR”
137 DISP “PRESS ENTER TO CONTINUE “;” “;
138 LINPUT “ “,Variable$
139 CLEAR SCREEN
140 SUBEND
HP ROCKY MOUNTAIN BASIC PROGRAM