TSI Instruments 3022A User Manual

8-10 Model 3022A Condensation Particle Counter
393 J$ = INKEY$ : IF J$ = "1" THEN GOSUB 2050 : GOTO 270
394 IF J$ = "2" THEN GOSUB 3000 : GOTO 270
395 IF J$ = "3" THEN GOSUB 3050 : GOTO 270
396 IF J$ = "4" THEN GOSUB 4000 : GOTO 270
397 IF J$ = "5" THEN GOSUB 4050 : GOTO 270
398 IF J$ = "6" THEN GOSUB 5000 : GOTO 270
399 IF J$ = "7" THEN GOSUB 5050 : GOTO 270
400 IF J$ = "8" THEN GOSUB 6000 : GOTO 270
401 IF J$ = "9" THEN GOSUB 6050 : GOTO 270
402 IF J$ = "A" THEN GOSUB 7000 : GOTO 270
403 IF J$ = "B" THEN GOSUB 7050 : GOTO 270
404 IF J$ = "C" THEN GOSUB 8000 : GOTO 270
405 IF J$ = "D" THEN GOSUB 8050 : GOTO 270
406 IF J$ = "E" THEN GOSUB 8950 : GOTO 270
407 IF J$ = CHR$(27) THEN RETURN
408 GOTO 393
409 RETURN
495 REM
496 REM -------------------------------------------------------------------------
497 REM
498 REM COMMANDS CORRESPOND TO THE TASK MENU
499 REM
500 PRINT # 3, "X0" : RETURN
510 PRINT # 3, "X1" : RETURN
520 PRINT # 3, "X2" : RETURN
530 PRINT # 3, "X3" : RETURN
540 PRINT # 3, "X4" : RETURN
550 PRINT # 3, "X5" : RETURN
560 PRINT # 3, "X6" : RETURN
570 PRINT # 3, "X7" : RETURN
580 PRINT # 3, "X8" : RETURN
590 REM
1996 REM ------------------------------------------------------------------------
1997 REM
1998 REM SUBROUTINE FOR PURGING
1999 REM
2000 PRINT # 3, P$
2001 CLS : LOCATE 5,15 : PRINT "PURGING IS IN PROGRESS"
2002 TT = TIMER + PTIME
2003 LOCATE 10,15 : PRINT "PURGING TIME IS IN " : LOCATE 10,42 : PRINT "SEC
ONDS:
2004 WHILE TIMER < (TT - .5)
2006 LOCATE 10,35 : PRINT INT(TT - TIMER)
2008 WEND
2009 GOSUB 9000
2010 RETURN
2012 REM
2046 REM-------------------------------------------------------------------------
2047 REM
2048 REM SUBROUTINE FOR READING THE LIQUID LEVEL
2049 REM
2050 PRINT # 3, "R0"
2052 GOSUB 9000 : IF ZZ$ = "" THEN 2052 ELSE 2054
2054 LIQLEVEL$ = ZZ$
2056 CLS : LOCATE 5,15 : PRINT "THE LIQUID LEVEL IS "; LIQLEVEL$
2058 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"
2060 I$ = INKEY$ : IF I$ = "M" OR I$ = "m" THEN RETURN ELSE 2060

TSI Instruments 3022A Specifications

General

Brand	TSI Instruments
Model	3022A
Category	Cash Counter
Language	English