Special Topics
Performing cool on-column injection onto 250-µm and 320-µm columns
179
210 PRINT
220 PRINT "ENTER THE INET ADDRESS OF THE SAMPLER."
230 INPUT AD
240 REM
250 REM ***** SET THE AUTOMATIC LIQUID SAMPLER TO MANUAL OPERATION
260 INET_IO AD,"MAN",JUNK$
270 REM
280 REM ******************************** SET UP THE VIAL SEQUENCE
290 PRINT "ENTER THE FIRST VIAL NUMBER:"
300 INPUT FIRST
310 PRINT "ENTER THE LAST VIAL NUMBER:"
320 INPUT LAST
330 IF LAST >= FIRST THEN GETSEQ "A:DUMMY" ELSE STOP
340 REM
350 REM ************************************* BEGIN SEQUENCE LOOP
360 FOR I=FIRST TO LAST
370 INET_IO AD,"RESET",JUNK$
380 INET_IO AD,"MOVE"&STR$(I)&",EXT3",JUNK$
390 INET_IO AD,"READ",RESP$
400 REM
410 REM ****************** FIND THE BEGINNING OF THE BAR CODE DATA
420 CODE=POS(RESP$,"=")+1
430 BARCODE$=RESP$(CODE:)
440 REM
450 REM ******************************* CHECK FOR A VALID BAR CODE
460 IF BARCODE$=’""’ THEN GOSUB INVAL_BC
470 IF BARCODE$<>’"" THEN GOSUB VALID_BC
480 NEXT I
485 INET_IO AD,"AUTO",JUNK$
490 PRINT
500 PRINT
510 PRINT "END OF DEMO--THANKS"
520 END
530 REM
540 REM ***************************************SUBROUTINES FOLLOW
550 VALID_BC:
560 PRINT
570 PRINT "=============================="
To Next Page
Loading...
Need help?
General
