Laserfiche WebLink
<br />SEEDING CONDITIONS ROUTINE THIS PART CAN BE A SUBROUTINE SO IT DOES <br />NOT HAVE TO BE REPEATED 10 TIMES <br /> <br />ELSE <br /> <br />IF ICING >= 2 <br />THEN ICING (SET FLAG 2 HIGH) <br /> <br />THEN NOT ICING (SET FLAG 2 LOW) <br /> <br />END <br />IF WIND SPEED > 1 m/s <br />THEN WINDY (SET FLAG 3 HIGH) <br /> <br />ELSE <br /> <br />THEN NOT WINDY (SET FLAG 3 LOW) <br /> <br />END <br />IF WIND DIR >= 180 DEG <br />IF WIND < 330 DEG <br />THEN WINDY (SET FLAG 4 HIGH) <br /> <br />END <br /> <br />ELSE <br /> <br />THEN NOT WINDY (SET FLAG 4 LOW) <br /> <br />END <br />IF AIR TEMP < 0 DEG C <br />THEN COLD (SET FLAG 5 HIGH) <br /> <br />ELSE <br /> <br />END <br /> <br />THEN NOT COLD (SET FLAG 5 LOW) <br /> <br />IF ICING (FLAG 2 IS HIGH) <br />IF WINDY (FLAG 3 IS HIGH) <br />IF WIND DIR (FLAG 4 IS HIGH) <br />IF COLD (FLAG 5 IS HIGH) <br />THEN SEEDING CONDITION (SET FLAG 6 HIGH) <br /> <br /> END <br /> END <br /> END <br />END <br />IF NOT ICING (FLAG 2 IS HIGH) <br /> THEN NOT SEEDING CONDITION (SET FLAG 6 LOW) <br />IF NOT WINDY (FLAG 3 IS HIGH) <br /> THEN NOT SEEDING CONDITION (SET FLAG 6 LOW) <br />IF NOT WIND DIR (FLAG 4 IS HIGH) <br /> THEN NOT SEEDING CONDITION (SET FLAG 6 LOW) <br />IF NOT COLD (FLAG 5 IS HIGH) <br /> THEN NOT SEEDING CONDITION (SET FLAG 6 LOW) <br /> <br />B-3 <br />