8-14 Model 3022A Condensation Particle Counter
8530 REM
8532 PRINT # 3, "RD"
8533 GOSUB 9000 : IF ZZ$ = "" THEN 8533 ELSE 8534
8534 CONL = VAL(ZZ$) : IF CONL > 10000 THEN 8542 ELSE 8550
8536 REM
8538 REM READ PHOTOMETRIC CONCENTRATION
8540 REM
8542 PRINT # 3, "RC"
8544 GOSUB 9000 : IF ZZ$ = "" THEN 8544 ELSE 8546
8546 CONH = VAL(ZZ$)
8548 CON = CONH : GOTO 8558
8550 CON = CONL
8552 REM
8554 REM PRINTOUT THE CONCENTRATION
8556 REM
8558 LOCATE 10,18 : PRINT " " : LOCATE 10,18 : PRINT CON
8559 RETURN
8560 REM
8561 REM-------------------------------------------------------------------------
8562 REM
8564 REM SUBROUTINE FOR COUNTING THE TIME INTERVAL IN SECONDS
8566 REM
8568 T = TIMER + DT
8570 WHILE TIMER < (T - .5)
8571 IF T > 86399! AND TIMER < .5 THEN T = T - 86400!
8575 LOCATE 6,20 : PRINT INT(T - TIMER)
8576 I$ = INKEY$:IF I% = "s" OR I$ = "S" THEN RETURN
8578 WEND
8579 REM RETRIEVE THE REAL TIME FROM THE COMPUTER
8580 REM
8582 REALT$ = TIME$ ' the real time has the form "hh:mm:ss"
8584 RETURN
8586 REM
8596 REM-------------------------------------------------------------------------
8597 REM
8598 REM SUBROUTINE FOR TAKING THE TOTAL COUNTS
8599 REM
8600 PRINT # 3, "D"
8602 GOSUB 9000 : TOTIME = VAL(ZZ$)
8604 GOSUB 9000 : N = LEN (ZZ$) : N1 = N - 2 : ZZZ$ = LEFT$(ZZ$,N1) : TCOUNT = VA
8605 AVECON = TCOUNT/(TOTIME*5)
L(ZZZ$)
8606 FOR I = 1 TO 15
8608 GOSUB 9000
8610 NEXT I
8612 LOCATE 14,18 : PRINT " " : LOCATE 14,18 : PRINT TCOUNT
8613 LOCATE 18,18 : PRINT " " : LOCATE 18,18 :
PRINT AVECON
8614 RETURN
8616 REM
8796 REM-------------------------------------------------------------------------
8797 REM
8798 REM GET THE TIME INTERVAL
8799 REM
8800 CLS : LOCATE 10,5 : PRINT "ENTER THE TIME INTERVAL IN SECONDS"
8802 LOCATE 12,8 : INPUT DT