Computer Interface and Commands 8-9
218 REM WRITE MESSAGE TO DISPLAY ON THE FRONT PANEL
219 REM
220 CLS : LOCATE 8,15 : PRINT "ENTER THE MESSAGE TO BE DISPLAY ON THE PANEL"
221 LOCATE 9,15 : PRINT "(maximum # of characters is 12)"
222 LOCATE 10,15 : INPUT D$ : D$ = D$ + " " : WW$ = "W" + D$
223 PRINT # 3, WW$ : GOSUB 9000
225 RETURN
227 REM
228 REM CLEAR THE MESSAGE ON THE FRONT PANEL DISPLAY
229 REM
230 CLS : PRINT # 3, "W " : GOSUB 9000 : PRINT # 3, "W@" :GOSUB 9000
231 RETURN
237 REM
238 REM PERFORM VARIOUS TASKS -- TASK MENU
239 REM
240 CLS : LOCATE 4,25 : PRINT "TASK MENU"
241 LOCATE 7,15 : PRINT "( 1 ) EXECUTE LASER OFF"
242 LOCATE 8,15 : PRINT "( 2 ) EXECUTE LASER ON"
243 LOCATE 9,15 : PRINT "( 3 ) EXECUTE PUMP MOTOR OFF"
244 LOCATE 10,15 : PRINT "( 4 ) EXECUTE PUMP MOTOR ON"
245 LOCATE 11,15 : PRINT "( 5 ) EXECUTE DRAINING"
246 LOCATE 12,15 : PRINT "( 6 ) EXECUTE FILLING"
247 LOCATE 13,15 : PRINT "( 7 ) EXECUTE RESET OF CONCENTRATION BUFFER"
248 LOCATE 14,15 : PRINT "( 8 ) LOW FLOW SETTING"
249 LOCATE 15,15 : PRINT "( 9 ) HIGH FLOW SETTING"
250 LOCATE 16,15 : PRINT "(ESC) RETURN TO THE MAIN MENU"
251 I$ = INKEY$ : IF I$ = "1" THEN GOSUB 500 : GOTO 240
252 IF I$ = "2" THEN GOSUB 510 : GOTO 240
253 IF I$ = "3" THEN GOSUB 520 : GOTO 240
254 IF I$ = "4" THEN GOSUB 530 : GOTO 240
255 IF I$ = "5" THEN GOSUB 540 : GOTO 240
256 IF I$ = "6" THEN GOSUB 550 : GOTO 240
257 IF I$ = "7" THEN GOSUB 560 : GOTO 240
258 IF I$ = "8" THEN GOSUB 570 : GOTO 240
259 IF I$ = "9" THEN GOSUB 580 : GOTO 240
260 IF I$ = CHR$(27) THEN RETURN
261 GOTO 251
262 RETURN
267 REM
268 REM -------------------------------------------------------------------------
269 REM
270 CLS : LOCATE 4,25 : PRINT "READ MENU" : FILE$ = ""
275 LOCATE 8,15 : PRINT "( 1 ) READ LIQUID LEVEL"
280 LOCATE 9,15 : PRINT "( 2 ) READ CONDENSOR TEMPERATURE"
290 LOCATE 10,15 : PRINT "( 3 ) READ SATURATOR TEMPERATURE"
300 LOCATE 11,15 : PRINT "( 4 ) READ OPTICS TEMPERATURE"
310 LOCATE 12,15 : PRINT "( 5 ) READ FLOW"
320 LOCATE 13,15 : PRINT "( 6 ) READ ENVIRONMENT"
330 LOCATE 14,15 : PRINT "( 7 ) READ REFERENCE DETECTOR"
340 LOCATE 15,15 : PRINT "( 8 ) READ DETECTOR VOLTAGE"
350 LOCATE 16,15 : PRINT "( 9 ) READ 200 SECOND BUFFER"
360 LOCATE 17,15 : PRINT "( A ) READ 20 SECOND BUFFER"
370 LOCATE 18,15 : PRINT "( B ) READ 2 SECOND BUFFER"
380 LOCATE 19,15 : PRINT "( C ) READ 1 SECOND BUFFER"
390 LOCATE 20,15 : PRINT "( D ) READ TIME, COUNTS AND CONCENTRATION"
391 LOCATE 21,15 : PRINT "( E ) READ THE MICROPROCESSOR PUMP CONTROL OUTPUT"
392 LOCATE 22M15 : PRINT "(ESC) RETURN TO THE MAIN MENU"
To Next Page
Loading...
Need help?
General
