TSI Instruments 3022A User Manual

Computer Interface and Commands 8-11
2062 REM
2996 REM-------------------------------------------------------------------------
2997 REM
2998 REM SUBROUTINE FOR READING THE CONDENSOR TEMPERATURE
2999 REM
3000 PRINT # 3, "R1"
3002 GOSUB 9000 : IF ZZ$ = "" THEN 3002 ELSE 3004
3004 CONDTEMP = VAL(ZZ$)
3006 CLS : LOCATE 5,15 : PRINT "THE CONDENSOR TEMPERATURE IS "; CONDTEMP ;
"oC"
3008 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"
3010 I$ = INKEY$ : IF I$ = "M" OR I$ = "m" THEN RETURN ELSE 3010
3012 REM
3046 REM-------------------------------------------------------------------------
3047 REM
3048 REM SUBROUTINE FOR READING THE SATURATOR TEMPERATURE
3049 REM
3050 PRINT # 3, "R2"
3052 GOSUB 9000 : IF ZZ$ = "" THEN 3052 ELSE 3054
3054 SATTEMP = VAL(ZZ$)
3056 CLS : LOCATE 5,15 : PRINT "THE SATURATOR TEMPERATURE IS ";SATTEMP ; "o
C"
3058 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"
3060 I$ = INKEY$ : IF I$ = "M" OR I$ = "m" THEN RETURN ELSE 3060
3062 REM
3996 REM-------------------------------------------------------------------------
3997 REM
3998 REM SUBROUTINE FOR READING THE OPTICS TEMPERATURE
3999 REM
4000 PRINT # 3, "R3"
4002 GOSUB 9000 : IF ZZ$ = "" THEN 4002 ELSE 4004
4004 OPTTEMP = VAL(ZZ$)
4006 CLS : LOCATE 5,15 : PRINT "THE OPTICS TEMPERATURE IS "; OPTTEMP ; "oC"
4008 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"
4010 I$ = INKEY$ : IF I$ = "M" OR I$ = "m" THEN RETURN ELSE 4010
4012 REM
4046 REM-------------------------------------------------------------------------
4047 REM
4048 REM SUBROUTINE FOR REDING THE FLOW
4049 REM
4050 PRINT # 3, "R4"
4052 GOSUB 9000 : IF ZZ$ = "" THEN 4052 ELSE 4054
4054 FFLOW = VAL(ZZ$)
4056 CLS : LOCATE 5,15 : PRINT "THE FLOW IS "' FFLOW ; "cc/second"
4058 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"
4060 I$ = INKEY$ : IF I$ = "M" OR I$ = "m" THEN RETURN ELSE 4060
4062 REM
4996 REM-------------------------------------------------------------------------
4997 REM
4998 REM SUBROUTINE FOR READING THE ENVIRONMENT
4999 REM
5000 PRINT # 3, "R5"
5002 GOSUB 9000 : IF ZZ$ = "" THEN 5002 ELSE 5004
5004 ENV$ = ZZ$
5006 CLS : LOCATE 5,15 : PRINT " THE ENVIRONMENT IS "; ENV$
5008 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"

TSI Instruments 3022A Specifications

General

Brand	TSI Instruments
Model	3022A
Category	Cash Counter
Language	English