大家好，小弟看不懂此程序 请高人来指点 谢谢了
MAIN CONTROL PPCL
00040 AAA = $LOC2?
00060 DEFINE(A,"DWL.A5.")?
00070 DEFINE(B,"DWL.JH4.")?
00600 $LOC6 = "%A%AVRT"?
01020 IF("%A%MOD" .NE. 2) THEN DISABL(1030,1500,1700) ELSE ENABLE(1030,1500,1700)?
01030 LOOP(0,"%A%DEW",$LOC1,"%A%DEWSP",10000,250,0,1,0.0,0.0,100.0,0)?
01120 IF("%A%SEA" .EQ. 1) THEN GOTO 1200?
01160 $LOC3 = 20?
01170 $LOC4 = 16?
01180 $LOC5 = 24?
01190 GOTO 1500?
01220 $LOC3 = 22?
01230 $LOC4 = 16?
01240 $LOC5 = 32?
01250 GOTO 1500?
01500 LOOP(128,$LOC6,"%A%SATSP","%A%RTSP",400,8,0,1,$LOC3,$LOC4,$LOC5,0)?
01530 TIMAVG("%A%SAPAV",15,2,"%A%SAP")?
01540 LOOP(128,"%A%SAP",$LOC15,"%A%SAPSP",400,8,0,2,0.0,0.0,100.0,0)?
01700 LOOP(128,"%A%SAT",$LOC2,"%A%SATSP",5000,100,0,1,0,-100.0,100.0,0)?
01730 IF("%B%RS" .EQ. ON) THEN SET(0,SECND1)?
01740 IF("%B%RS" .EQ. OFF) THEN SET(0,SECND2)?
02000 IF("%A%MOD" .EQ. 0) THEN GOTO 7000?
02010 IF("%A%MOD" .EQ. 1) THEN GOTO 3000?
02020 IF("%A%MOD" .EQ. 2) THEN GOTO 4000?
02040 GOTO 10000?
03050 IF("%A%SEA" .EQ. 0) THEN GOTO 3200?
03060 IF("%A%SEA" .EQ. 1) THEN GOTO 3300?
03080 SET(0,"%A%RAD")?
03090 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
03100 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
03110 GOTO 10000?
03210 SET(100,"%A%CV")?
03220 SET(50,"%A%RAD")?
03225 SET(50,"%A%HZ")?
03230 SET(0,"%A%EHC")?
03240 OFF("%A%EHCT")?
03260 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
03270 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
03280 GOTO 10000?
03320 SET(50,"%A%RAD")?
03330 SET(100,"%A%CV")?
03335 SET(50,"%A%HZ")?
03340 ON("%A%EHCT")?
03350 SET(100,"%A%EHC")?
03370 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
03380 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
03390 GOTO 10000?
04060 IF("%B%RS" .EQ. ON) THEN SET(0,SECND1)?
04070 IF($LOC11 .GE. 1) THEN ON("%A%DEWA") ELSE OFF("%A%DEWA")?
04090 DBSWIT(0,"DWL.ODDEW",11,12.5,$LOC11)?
04100 IF("%A%SEA" .EQ. 1) THEN GOTO 5000?
04110 IF($LOC11 .GE. 1) THEN GOTO 4500 ELSE GOTO 4200?
04200 TABLE($LOC2,"%A%HV",-100,100,-55,0)?
04210 TABLE($LOC2,"%A%CV",-45,100,-5,0)?
04220 TABLE($LOC2,"%A%EHC",5,0,100,100)?
04230 DBSWIT(0,$LOC2,0,5,"%A%EHCT")?
04235 TABLE($LOC15,"%A%HZ",0,30,100,50)?
04240 "%A%RAD" = 50?
04245 DBSWIT(1,"%A%MINRH",40,45,"%A%HDC")?
04250 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
04260 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
04270 GOTO 5100?
04505 TABLE($LOC2,$LOC7,-100,100,-5,0)?
04510 MAX($LOC8,$LOC1,$LOC7)?
04515 OFF("%A%HDC")?
04520 TABLE($LOC8,"%A%CV",0,0,45,100)?
04530 TABLE($LOC8,"%A%HV",55,0,100,100)?
04540 TABLE($LOC2,"%A%EHC",5,0,100,100)?
04550 DBSWIT(0,$LOC2,0,5,"%A%EHCT")?
04555 TABLE($LOC15,"%A%HZ",0,30,100,50)?
04560 "%A%RAD" = 50?
04570 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
04580 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
04590 GOTO 10000?
05015 IF($LOC11 .GE. 1) THEN GOTO 5050?
05024 TABLE($LOC2,"%A%CV",-100,100,-55,0)?
05026 TABLE($LOC2,"%A%HV",-45,0,-5,100)?
05028 TABLE($LOC2,"%A%EHC",5,0,100,100)?
05030 DBSWIT(0,$LOC2,1,5,"%A%EHCT")?
05032 TABLE($LOC15,"%A%HZ",0,30,100,50)?
05034 "%A%RAD" = 50?
05038 DBSWIT(1,"%A%MINRH",43,47,"%A%HDC")?
05040 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
05042 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
05044 GOTO 10000?
05053 TABLE($LOC2,$LOC7,-100,100,-5,0)?
05056 MAX("%A%CV",$LOC1,$LOC7)?
05059 "%A%HV" = 0?
05062 TABLE($LOC2,"%A%EHC",5,0,100,100)?
05065 DBSWIT(0,$LOC2,0,5,"%A%EHCT")?
05068 TABLE($LOC15,"%A%HZ",0,30,100,50)?
05071 "%A%RAD" = 50?
05074 OFF("%A%HDC")?
05077 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
05080 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
05150 GOTO 10000?
07040 IF("%A%SC" .EQ. 0 .AND. "%B%RS" .EQ. ON) THEN GOTO 10000?
07050 SET(0,"%A%EHC","%A%HZ")?
07059 OFF("%A%EHCT","%A%DEWA")?
07070 SET(0,"%A%CV","%A%HV")?
07080 OFF("%A%HDC")?
07100 IF(SECND2 .GT. 10) THEN ON("%A%CTRL")?
07110 IF(SECND1 .GT. 10) THEN OFF("%A%CTRL")?
07120 GOTO 10000?
10000 GOTO 10

MODE PPCL
00060 DEFINE(A,"DWL.A5.")?
01000 IF("%A%SC" .EQ. 0) THEN GOTO 7000?
01010 IF("%A%SC" .EQ. 1) THEN GOTO 2000?
01020 IF("%A%SC" .EQ. 2) THEN GOTO 5000?
01030 GOTO 10000?
02040 IF($LOC2 .GE. 1) THEN GOTO 5000?
02050 IF("%A%SEA" .EQ. 0) THEN GOTO 2500?
02060 IF("%A%SEA" .EQ. 1) THEN GOTO 3000?
02070 IF("%A%SEA" .EQ. 2) THEN GOTO 3500?
02080 GOTO 10000?
02520 $LOC1 = "%A%RTSP" + 2?
02530 IF("%A%AVRT" .LE. $LOC1) THEN GOTO 5000?
02540 SET(1,"%A%MOD")?
02550 GOTO 10000?
03020 $LOC1 = "%A%RTSP" - 2?
03030 IF("%A%AVRT" .GE. $LOC1) THEN GOTO 5000?
03040 SET(1,"%A%MOD")?
03050 GOTO 10000?
05040 SET(2,"%A%MOD")?
05050 SET(1,$LOC2)?
05060 GOTO 10000?
07040 SET(0,"%A%MOD")?
07050 SET(0,$LOC2)?
07060 GOTO 10000?
10000 GOTO 10

DEWPOINT CONTROL PPCL
00180 DEFINE(B,"DWL.A5.")?
01170 SAMPLE(60) GOTO 1200?
01180 GOTO 10?
01230 LOCAL(PW,PWS,DEGF,DEW)?
01235 $DEGF = 1.8 * "%B%AVRT" + 32?
01250 IF($DEGF .GT. 32.0) THEN GOTO 1350?
01290 GOSUB 1580 $DEGF,$PWS?
01300 $PW = "%B%AVRH" * $PWS / 100.0?
01310 GOTO 1400?
01350 GOSUB 1750 $DEGF,$PWS?
01360 $PW = "%B%AVRH" * $PWS / 100.0?
01400 $LOC3 = LOG($PW)?
01440 IF($DEGF .GT. 32.0) THEN $LOC4 = 100.45 + 33.193 * $LOC3 + 2.319 * $LOC3 * $LOC3 + 0.17074 * $LOC3 * $LOC3 * $LOC3?
01450 IF($DEGF .GT. 32.0) THEN $DEW = $LOC4 + 1.2063 * $PW .ROOT. (1.0 / 0.1984)?
01470 IF($DEGF .LE. 32.0) THEN $DEW = 90.12 + 26.412 * $LOC3 + 0.8927 * $LOC3 * $LOC3?
01500 GOTO 1870?
01580 $LOC1 = $ARG1 + 459.67?
01600 $LOC2 = -(10214.16) / $LOC1 - 4.893242 - 5.376579 / 1000.0 * $LOC1 + 1.920238 / 10000.0 / 1000.0 * $LOC1 * $LOC1?
01610 $LOC2 = $LOC2 + 3.557583 / 100000.0 / 100000.0 * $LOC1 .ROOT. (1 / 3)?
01620 $LOC2 = $LOC2 - 9.034469 / 100000.0 / 100000.0 / 1000.0 * $LOC1 .ROOT. (1 / 4) + 4.163502 * LOG($LOC1)?
01660 $ARG2 = EXP($LOC2)?
01670 RETURN?
01750 $LOC1 = $ARG1 + 459.67?
01770 $LOC2 = -(10440.4) / $LOC1 - 11.29465 - 2.702235 / 100 * $LOC1 + 1.289036 / 100000.0 * $LOC1 * $LOC1?
01780 $LOC2 = $LOC2 - 2.478068 / 100000.0 / 10000.0 * $LOC1 .ROOT. (1 / 3) + 6.545967 * LOG($LOC1)?
01820 $ARG2 = EXP($LOC2)?
01830 RETURN?
01870 "%B%RTDEW" = 5 / 9 * ($DEW - 32)?
01890 GOTO 10