mensor PCS 400 - Page 102

‘ THIS SECTION WAITS FOR THE STABLE
‘ SIGN BEFORE CONTINUING
DO
CALL IBWRT(BRD3%, “_PCS4 STAT?” + CHR$(10))
RD$ = SPACE$(33)
CALL IBRD(BRD3%, RD$)
LOOP UNTIL MID$(RD$, 7, 1) = “S”
‘ READS PCS400 AND PRINTS THE MEASURED
‘ CONTROL PRESSURE TO THE SCREEN
RD$ = SPACE$(99): CALL IBRD(BRD3%, RD$)
PCS! = VAL(MID$(RD$, 2, 8))
‘ DELAYS PRINTING MEASURED CONTROL
‘ PRESSURE FOR 10 SECONDS
TIME! = TIMER: DO: LOOP UNTIL TIMER > TIME! + 10
PRINT “THE MEASURED CONTROL PRESSURE IS ”; PCS!; “ PSI ”
‘ DELAYS VENTING THE PCS400 FOR 1 SECOND
TIME! = TIMER: DO: LOOP UNTIL TIMER > TIME! + 1
‘ VENTS THE PCS400.
CALL IBWRT(BRD3%, “_PCS4 FUNC VENT” + CHR$(10))
‘ THIS COMMAND TAKES THE PCS400 OUT OF REMOTE.
CALL IBLOC(BRD3%)
PRINT “ ”
PRINT “END OF PROGRAM”
‘ END OF PROGRAM
PCS 400 APPENDIX
www.mensor.com 9-9