Hp rocky mountain basic program – Max Machinery 120 FLOW RATE & TOTAL INDICATOR User Manual
Page 33
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