TSI Instruments 3022A User Manual

8-8 Model 3022A Condensation Particle Counter
126 REM
127 REM -------------------------------------------------------------------------
128 REM
130 A = INP (1021) : OPEN "COM1:1200,E,7,1,RS,CS,DS,CD" AS #3
132 PRINT # 3, "A00" : GOSUB 9000
140 CLS : LOCATE 4,25 : PRINT "MAIN MENU"
142 LOCATE 7,15 : PRINT "( 1 ) REINITIALIZE THE ADDRESS OF THE UNIT"
144 LOCATE 8,15 : PRINT "( 2 ) PURGE THE UNIT"
146 LOCATE 9,15 : PRINT "( 3 ) READ MENU"
148 LOCATE 10,15 : PRINT "( 4 ) SET ANALOG OUTPUT VOLTAGE"
150 LOCATE 11,15 : PRINT "( 5 ) WRITE MESSAGE TO DISPLAY"
151 LOCATE 12,15 : PRINT "( 6 ) DELETE MESSAGE ON DISPLAY"
152 LOCATE 13,15 : PRINT "( 7 ) TASK MENU"
154 LOCATE 14,15 : PRINT "(ESC) TERMINATE THE PROGRAM"
156 I$ = INKEY$ : IF I$ = "1" THEN GOSUB 180 : GOTO 140
158 IF I$ = "2" THEN GOSUB 190 : GOTO 140
160 IF I$ = "3" THEN GOSUB 200 : GOTO 140
162 IF I$ = "4" THEN GOSUB 210 : GOTO 140
164 IF I$ = "5" THEN GOSUB 220 : GOTO 140
165 IF I$ = "6" THEN GOSUB 230 : GOTO 140
166 IF I$ = "7" THEN GOSUB 240 : GOTO 140
168 IF I$ = CHR%(27) THEN CLOSE # 3 : CLS : END
170 GOTO 156
171 END
172 REM
175 REM -------------------------------------------------------------------------
176 REM
178 REM REINITIALIZE THE UNIT TO A POWER ON CONDITION
179 REM
180 CLS : PRINT # 3, CHR$(27);
181 LOCATE 8,15 : PRINT "ENTER A NEW ADDRESS TO THE UNIT "
182 LOCATE 9,15 : PRINT "(the address can be 00 thru 99)"
183 LOCATE 12,18 : INPUT ADRES : AD$ = STR$(ADRES) : ADD$ = A$ + AD$
184 PRINT # 3, ADD$ : GOSUB 9000
185 RETURN
187 REM
188 REM PURGE THE UNIT FOR THE GIVEN NUMBER OF SECONDS
189 REM
190 CLS : LOCATE 8,15 : PRINT "ENTER THE NUMBER OF SECONDS FOR PURGING"
191 LOCATE 9,15 : PRINT "(maximum is 999 seconds)"
192 LOCATE 10,15 : INPUT PTIME " PP$ = STR$(PTIME) : PL = LEN(PP$)
193 P% = "P" + RIGHT$(PP$,PL-1) : GOSUB 2000
194 RETURN
197 REM
198 REM GO TO THE READ MENU FOR VARIOUS READINGS
199 REM
200 CLS : GOSUB 270 : RETURN
207 REM
208 REM SET THE ANALOG OUTPUT VOLTAGE
209 REM
210 CLS : LOCATE 8,15 : PRINT "ENTER THE ANALOG OUTPUT VOLTAGE IN millivolt"
211 LOCATE 9,15 : PRINT "(maximum is 11000 millivolts)"
212 LOCATE 10,15 : INPUT AVOLT : AV$ = STR$(AVOLT) : AL = LEN(AV$)
213 AV$ = "V" + RIGHT$(AV$,AL-1)
214 PRINT # 3, AV$ : GOSUB 9000
215 RETURN
217 REM

TSI Instruments 3022A Specifications

General

Brand	TSI Instruments
Model	3022A
Category	Cash Counter
Language	English