Computer Interface and Commands 8-13
7062 REM-------------------------------------------------------------------------
7996 REM-------------------------------------------------------------------------
7997 REM
7998 REM SUBROUTINE FOR READING THE 1 SECOND BUFFER
7999 REM
8000 PRINT # 3, "RB"
8002 GOSUB 9000 : IF ZZ$ = "" THEN 8002 ELSE 8004
8004 BUF1 = VAL(ZZ$)
8006 CLS : LOCATE 5,15 : PRINT "THE 1 SECOND BUFFER IS "; BUF1
8008 LOCATE 22,15 : PRINT "HIT 'M' TO RETURN TO THE MAIN MENU"
8010 I$ = INKEY$ : IF I$ = "M" OR I$ = "m" THEN RETURN ELSE 8010
8012 REM
8046 REM-------------------------------------------------------------------------
8047 REM
8048 REM MENU FOR THE CONCENTRATION, COUNTS AND TIME MEASUREMENTS
8049 REM
8050 CLS : LOCATE 4,25 : PRINT "CONCENTRATION MENU"
8052 LOCATE 7,15 : PRINT "( 1 ) START THE MEASUREMENT"
8054 LOCATE 8,15 : PRINT "( 2 ) SET THE TIME INTERVAL"
8056 LOCATE 9,15 : PRINT "( 3 ) STORE DATA IN DATA FILE"
8058 LOCATE 10,15 : PRINT "( 4 ) HAVE PRINTOUT DURING MEASUREMENT"
8059 LOCATE 11,15 : PRINT "( 5 ) NO PRINTOUT DURING MEASUREMENT"
8060 LOCATE 12,15 : PRINT "(ESC) RETURN TO THE READ MENU"
8061 LOCATE 22,5 : PRINT "PRINTER IS '" ; PSIG$ ; "' :"
8062 LOCATE 22,30 : PRINT "FILENAME IS '" ; FILE$ ; "' "
8063 LOCATE 23,5 : PRINT "TIME INTERVAL IS " ; DT ; "seconds"
8064 I$ = INKEY$ : IF I$ = "1" THEN GOSUB 8500 : GOTO 8050
8065 IF I$ = "2" THEN GOSUB 8800 : GOTO 8050
8066 IF I$ = "3" THEN GOSUB 8900 : GOTO 8050
8068 IF I$ = "4" THEN PFLAG = 1 : PSIG$ = "ON" : GOTO 8050
8070 IF I$ = "5" THEN PFLAG = 2 : PSIG$ = "OFF" : GOTO 8050
8072 IF I$ = CHR$(27) THEN CLOSE # 1 : RETURN
8074 GOTO 8064
8076 RETURN
8078 REM
8496 REM-------------------------------------------------------------------------
8497 REM
8498 REM SUBROUTINE FOR THE CONCENTRATION, COUNTS AND TIME MEASUREMENTS
8499 REM
8500 CLS : LOCATE 4,10 : PRINT "THE TIME INTERVAL IN seconds"
8503 LOCATE 16,10 : PRINT "THE AVERAGE CONCENTRATION OVER THE TIME INTERVAL IN p
articles/cc"
8504 LOCATE 8,10 : PRINT "THE CPC CONCENTRATION IN particles/cc"
8506 LOCATE 12,10 : PRINT "THE COUNTS SINCE THE LAST MEASUREMENT "
8508 LOCATE 22,10 : PRINT "HIT 'S' TO STOP:
8509 IF PFLAG = 1 THEN LPRINT " TIME CONCENTRATION COUNTS"
8510 REM
8512 GOSUB 8568 : IF I$ = "S" OR I$ = "s" THEN RETURN ELSE GOSUB 8532 : GOSUB 860
0
8514 REM
8516 IF FFLAG = 1F THEN PRINT # 1, REALT$, CON, TCOUNT, AVECON
8517 IF PFLAG = 1 THEN LPRINT REALT$, CON, TCOUNT, AVECON
8518 REM
8520 I$ = INKEY$ : IF I$ = "S" OR I$ = "s" THEN RETURN ELSE 8522
8522 IF I$ = "" THEN 8512 ELSE 8520
8526 REM
8528 REM READ CONCENTRATION
To Next Page
Need help?
General
