10 REM CHECK TO SEE IF IPA LOOP TEMP OUTSIDE SETPOINT AND REQUEST CHILLER SWITCH 20 IF MAN THEN GOTO 300 , , REM IF MAN SET THEN BYBASS ALL CONTROL 30 IF IP2STR > IPA2SP OR I2CSR AND I2D = 0 THEN I2CSR = 1 , I2LONT = TIME , I2LOND = DOY ELSE I2CSR = 0 40 IF IP3WSTR > IPA3SP OR I3CSR AND I3D = 0 THEN I3CSR = 1 , I3LONT = TIME , I3LOND = DOY ELSE I3CSR = 0 50 REM ADD CHILLER SWITCH DELAY 60 IF I2LOND >= DOY AND I2LONT > TIME - CSD THEN I2D = 1 ELSE I2D = 0 70 IF I3LOND >= DOY AND I3LONT > TIME - CSD THEN I3D = 1 ELSE I3D = 0 80 REM 90 REM START OF IPA2 CHILLER SWITCH LOGIC 100 REM CHILLERS 1=CSA, 2=CSB, 3=ZARSKY, 4= ICSCOOL 0 = NA 110 IF I2CSR THEN I2CC = I2NC 120 I2CSR = 0 130 IF I2CC = 4 AND I2NC <> 0 THEN I2CC = I2NC 140 IF I2CC = 1 OR I2CC = 4 AND ZS THEN I2NC = 3 150 IF I2CC = 3 OR I2CC = 4 AND CSS THEN I2NC = 1 160 IF I2CC = 1 AND ZS = 0 OR I2CC = 3 AND CSS = 0 OR I3CC = 4 AND CSS = 0 AND TIP = 2 THEN I2NC = 4 , I3CC = 0 170 IF I2CC = 1 AND ZS = 0 OR I2CC = 3 AND CSS = 0 OR I3NC = 3 AND CSS = 0 AND TIP = 3 THEN I2NC = 0 180 REM START OF IPA3 CHILLER SWITCH LOGIC 190 REM CHILLERS 1=CSA, 2=CSB, 3=ZARSKY, 4= ICSCOOL 0 = NA 200 IF I3CSR THEN I3CC = I3NC 210 I3CSR = 0 220 IF I3CC = 3 AND I3NC <> 0 THEN I3CC = I3NC 230 IF I3CC = 4 OR I3CC = 3 AND CSS THEN I3NC = 2 240 IF I3CC = 2 OR I3CC = 3 AND ICS THEN I3NC = 4 250 IF I3CC = 4 AND CSS = 0 OR I3CC = 2 AND ICS = 0 OR I2CC = 3 AND CSS = 0 AND TIP = 3 THEN I3NC = 3 , I2CC = 0 260 IF I3CC = 4 AND CSS = 0 OR I3CC = 2 AND ICS = 0 OR I2NC = 3 AND CSS = 0 AND TIP = 2 THEN I3NC = 0 270 IF I2CC = 0 AND CSS AND ICS OR ZS THEN I2CC = 1 280 IF I3CC = 0 AND ICS AND CSS OR ZS THEN I3CC = 4 290 TODAY = DOY 300 REM END