10 DIM M(10), MONTH$(10), DAY$(10),SWT(16),LMW$(10)60 DIM WARP$(10)

4 CONT

5 CLR

10 DIM M(10), MONTH$(10), DAY$(10),SWT(16),LMW$(10)

60 DIM WARP$(10), FR$(10),LWNWT$(20),CON$(10)

65 WARP$="OFF":LWNWT PADDLE (3): WT 20:HWTC=3:CON="ON":LMWS="

75 SHUP 7: SHDN=9: SWT (1)=7: SWT (2)=12: SWT (3)=17: SWT (4) 8:SWT (5)=13:SWT (6)=2:SWT (7)

=0: SWT (B)=0

BO SWT (9)=0: SWT (10)=0:SWT (11)=0: SWT (12)=0:SWT (13)=0: SWT (14)=0: SWT (15)=0:SWTC 0

100 PRINT CHR$(125): POKE 752,1

200 PRINT "ENVIROTECH CONTROL SYSTEM"

: INPUT DAY

220 PRINT PRINT "ENTER MONTH AND DATE": POSITION 22,3: INPUT MONTHS: POSITION 28,3

225 POSITION 0,5: PRINT "ENTER HOUR": POSITION 10, 5: INPUT H: POSITION 15, 5: PRINT "M

IN": POSITION 18,5: INPUT MN

227 POSITION 0.3: PRINT "DATE" MONTH$;""; DAY;"

228 GOSUB 2000

229 LOOP=0

230 REM **** RETURN FROM OPTIONS*****

231 POSITION 2,1: PRINT "ENVIROTECH CONTROL SYSTEM"

232 POSITION 03:PRINT DATE", MONTHS;""; DAY;

244 POSITION 0,7: PRINT "PERIFERAL STATUS

245 POSITION O.B: PRINT ""

250 POSITION 0.9: PRINT "SHUTTER UP AT"; SHUP" 260 POSITION 0,11: PRINT "SWITCH ONE ON AT WT(7) SWT(1);""; SWT (2);" DOWN AT "SHDN;" "; SWT (3);" "15

262 POSITION 0,12: PRINT "SWITCH ONE OFF AT WT (8) "; SWT (4);" "; SWT (5);" ";SWT (6);" ";S

264 POSITION 0,13: PRINT "SWITCH TWO OFF AT SWT (12);" "; SWT (10);" ";SWT(11);" " "; SWT (9);"

";SWT (14);" ";SWT (15);" TION 0,14: PRINT "SWITCH TWO ON AT "; SWT (13);" 266 POSITION "SWT(16);

270 IF SW1-1 THEN POSITION 0,11:PRINT "SWITCH ONE ON" 275 IF SW1-0 THEN POSITION 0,11: PRINT "SWITCH ONE ON"

398 REM ********** CACULATE TIME ***************BEGINING OF MAIN LOOP ******

400 IF TWARP=1 THEN H=H+1

405 A-PEEK (20): B-PEEK (19):C-PEEK (18) 410 POSITION 28,0: PRINT READ FIME

450 SEC (4.267*256*C)+(B*4.267)+(A/60): SEC=INT(SEC*100)/100

500 IF SEC139.72 THEN MN MN+1

542 IF SEC>59.72 THEN POKE 20,0: IF SEC>59.72 THEN POKE 19,0: IF SEC>59.72 THEN 2

KE 18,0 544 IF MN-60 THEN H=H+1: IF MN=60 THEN MN-0

545 POSITION 18,3: PRINT TIME "H":"MN;""SECI

546 IF LOOP=1 THEN GOTO 549 548 IF H=24 THEN GOSUB 2000

549 IF H-25 THEN H=1

550 IF H-1 THEN LOOP=0

556 REM

557 REM ******SHUTTER CONTROL****

576 IF UP-1 THEN GOTO 582

580 IF H=SHUP THEN GOSUB 1000

582 IF DN 1 THEN GOTO 590.

585 IF H=SHDN THEN GOSUB 1110

590 REM

592 REM

600 REM ******* LAWN WATER CONTROL****

605 LWNWT PADDLE (3)

620 IF WATOF-1 THEN GOTO 650 630 IF H=5 THEN GOSUB 1260

650 POSITION 0,5: PRINT "LAWN DRYNESS LEVEL "; LWNWT;" 655 IF WATON 1 THEN GOTO 680

660 IF LWNWT>=WT AND H=HWTC THEN GOSUB 1200

680 REM

685 IF MAN1=1 THEN GOTO 695

690 IF STRIG(1)=0 THEN GOSUB 1300 695 IF STRIG(1)-0 THEN GOSUB 1350

699 POSITION 28,0: PRINT "END LOOP

898 REM BURGALAR DETERENT***************************************************

899 IF SW1-1 THEN GOTO 904

902 IF H=SWT (1) OR H=SWT (2) DR H=SWT (3) OR H-SWT (7) THEN GOSUB 10000

904 IF SW2=1 THEN GOTO 910 908 IF H-SWT (4) OR H-SWT (5) OR H=SWT (6) OR H=SWT (8) THEN GOSUB 10030

910 REM

920 REM 930 IF PEEK(764)=28 THEN GOTO 5000

2070 IF MONTHS="JUL" AND DAY 31 THEN IF H = 24

2080 IF MONTHS="AUG" AND DAY 31 THEN IF H = 2 * 4 THEN DAY=0: MONTHS="SEP

2090 IF MONTHS="SEP" AND DAY 30 THEN A = 24 THEN DAY-O: MONTHS="OCT"

2100 IF MONTHS="OCT" AND DAY 31 THEN IF H = 24 THEN DAY=0: MONTH$="NOV" 2110 IF MONTH$="NOV" AND DAY 30 THEN IF H = 24 THEN DAY=0: MONTHS="DEC

2120 IF MONTH$="DEC" AND DAY 31 THEN IF H = 24 THEN DAY=0: MONTH AN

2140 MN MN+1

2150 IF H 24 THEN DAY DAY+1

2180 POSITION 0,3: PRINT" DATE "MONTH$;" "; DAY;"

2190 POSITION 28,0 PRINT "CAL CHANGE"

2195 POSITION 18, 3: PRINT " TIME "H":"MN":"SEC"

2200 REM ****** WEEKEND SCHEDULE*********************

2205 D-DAY

2215 IF D = 6 OR D = 7 OR D = 13 OR D = 14 OR D = 20 OR D = 21 OR D = 27 OR D = 28 THEN IF MONTH

$="APRL" -11:-18

2220 IF D = 4 OR D = 5 OR D = 11 OR D = 12 OR D = 1B OR D = 19 OR D = 25 OR D = 26 THEN IF MONTH $="MAY SHUP11:18

2225 IF D = 1 OR D = 2 OR D-8 OR D = 9 OR D = 15 OR D = 16 OR D = 22 DR D = 23 OR D = 30 THEN IF MONTHS=" SHUP=11: DN = 1

2230 IF D = 6 OR D = 7 OR D-13 OR D = 14 OR D = 20 OR D = 21 OR D = 27 DR D = 28 THEN IF MONTH $="JUL" SHUP11:SHDN=18

2235 IF D-3 OR D=4 DR D=10 DR D = 11 OR D = 17 OR D = 18 OR D = 24 DR D = 25 OR D = 31 THEN

IF MONTH$="AUG" THEN SHUP=11 2240 IF D-7 OR D-0 OR D-14 OR D = 15 OR D = 21 OR D = 22 OR D = 28 OR D = 29 THEN IF MONTH

$="SEP" THEN SHUP=11:SHDN=18

2245 IF D-5 OR D=6 DR D=12 OR D = 13 OR D = 19 OR D = 20 OR D = 26 OR D = 27 THEN IF MONTH

$="OCT" THEN SHUP=11:SHDN-18

2250 IF D = 2 OR overline D = 3 OR D=9 OR D = 10 DR D = 16 OR D = 17 OR D = 23 OR D = 24 DR D = 30 THEN I F MONTH$NOV" THEN SHUP=12: DN = 7

2265 IF D-7 OR D=8 OR D = 14 OR D = 15 OR D = 21 OR D = 22 OR D = 25 OR D = 2B OR D = 29 THEN

IF MONTHS="DEC" THEN SHUP11: SHDN8

3378 IF SHUP 11 THEN GOSUB 2900

2275 IF SHUP 7 THEN GOSUB 2920

2300 REM ******* HOLIDAY SCHEDULE*********************************

2305 IF DAY 12 THEN IF MONTHS="MAY" THEN X=1:POSITION 0,20: PRINT "MOTHERS DAY

2310 IF DAY-20 THEN IF MONTH$="MAY" THEN x = 1 :POSITION 0, 20: PRINT "VICTORIA DAY

2320 IF DAY 16 THEN IF MONTH$="JUN" THEN x = 1 :POSITION 0,20: PRINT "FATHERS DAY

2325 IF DAY=1 THEN IF MONTH$="JUL" THEN x = 1 : POSITION 0,20: PRINT "CANADA DAY

2330 IF DAY 2 THEN IF MONTHS="SEPT" THEN x = 1 : POSITION 0,20: PRINT "LABOUR DAY

2340 IF DAY 14 THEN IF MONTHS="OCT" THEN X = 1 :POSITION 0,20: PRINT "THANKSGIVING D AY

2345 IF DAY 31 THEN IF MONTHS="OCT" THEN X-1:POSITION 0,20: PRINT "HALLOWEEN

2350 IF DAY 11 THEN IF MONTHS="NOV" THEN x = 1 : POSITION 0,20: PRINT "REMEMBRANCE DA

2355 IF DAY-25 THEN IF MONTH$="DEC" THEN X=1:POSITION 0,20: PRINT "CHRISTMAS DAY

2360 IF DAY 26 THEN IF MONTH$="DEC" THEN x = 1 :POSITION 0,20: PRINT "BOXING DAY

2400 REM ****** SPIECIAL DAYS*************************************************

2405 IF DAY 14 THEN IF MONTHS="FEB" THEN X=1&POSITION 0,20: PRINT "JENIFERS BIRTH DAY

2410 IF DAY-14 THEN IF MONTH$="NOV" THEN X=1:POSITION 0,20: PRINT "MOMS BIRTHDAY

2415 IF DAY 17 THEN IF MONTHS="SEP" THEN X=1:POSITION 0,20: PRINT "MELANIE'S BIRT HDAY

2420 IF DAY=1 THEN IF MONTH$="MAY" THEN x = 1 :POSITION 0,20: PRINT "RANDY'S BIRTH DAY

2425 IF DAY-29 THEN IF MONTH$="APRL" THEN x = 1 : POSITION 0,20: PRINT "PATS BIRTHDA

2435 IF DAY 21 THEN IF MONTH$="MAR" THEN x = 1 : POSITION 0,20: PRINT "DARCY'S BIRTHD AY

2460 LOOP=1

2470 IF H-SWT(1) OR H-SWT (2) OR H=SWT (3) OR H=SWT (7) THEN GOSUB 10000

2500 RETURN

2900 SWT (1)=11:SWT (2)=0: SWT (3)=0: SWT (7)=0: SWT (4)=4: SWT (5)=0: SWT (6)=0: SWT (8)=0 2918 GOTO 2951

2920 SWT (1)=7: SWT (2)=12:SWT (3)=17:SWT (7)=0: SWT (4)=8: SWT (5)=13: SWT (6)=2:SWT (8)=0

2951 POSITION 09: PRINT "SHUTTER UP AT SHUP DOWN AT "SHDNE 2952 POSITION 19,11: PRINT SWT (1);""; SWT (2);" "; SWT (3);" "SWT (7);"

2953 POSITION 0, 12: PRINT "SWITCH ONE OFF AT "; SWT (4); ";SWT (5); ";SWT (6);" SWT (8);

5500 GRAPHICS 0: PRINT "PROGRAM NOT CONSTRUCTED"

5520 FOR TM O TO 50: NEXT TM

5580 GOTO 5000

5600 REM *********** WATER TIMER BY-PASS*=*=*=***=*=*=*=*=*=*=***

5610 PRINT CHR$ (125): POKE 764,255

5615 IF WATON=1 THEN POSITION 0,0: PRINT "WATER ON 5617 IF WATOF-1 THEN POSITION 0,0: PRINT

5620 PRINT "LAWN IS WATERED AT "HITE;" EVERY DAY.

EATER THAN "WT

5623 IF WATOF=1 THEN POSITION 30,5: PRINT "

5624 PRINT PRINT PRINT "ENTER CHOICE":PRINT PRINT 5625 PRINT

IF MOISTURE LEVEL IE

2-SET TIME/CALIBRATE PROE

1-BYPASS TIMER CONTROL 3-TURN WATER OFF"

5626 PRINT PRINT "ESC TO EXIT"

5627 POKE 764,255

5628 OP-PEEK (764)

5630 IF OP = 31 THEN GOSUB 5690

5635 IF OP = 30 THEN GOSUB 5670

5640 IF DP = 28 THEN GOTO 5000

5648 IF P = 26 THEN GOSUB 5730

5650 REM

5652 GOTO 5628

5670 POKE 764, 255: POSITION 0,17: PRINT "ENTER LEVEL TO WATER LAWN": INPUT WT

5672 POSITION 0,19: PRINT "ENTER TIME TO CHECK LAWN": INPUT HWTC

5674 GOTO 5600

5675 GOTO 5628

5690 POSITION 0,0: PRINT "WATER ON"

5692 REM

5695 POKE 54018,56

5700 POKE 34016,1

5710 POKE 54018,60

5720 GOTO 5628

5730 POSITION 0,0: PRINT"

5732 POKE 54018,56

5740 POKE 54016.0

5750 POKE 54018,60

5760 GOTO 5628

8000 REM *******TEST SECTION********

8010 PRINT CHR$ (125): PRINT PRINT "1-GATE TEST

WARP"

8012 PRINT PRINT "ESC TO EXIT"

8015 POKE 764,255

8020 OP PEEK (764)

8027 IF OP = 28 THEN GOTO 5000

8030 IF OP = 31 THEN GOTO 8200

8031 IF QP = 30 THEN GOTO 8033

8032 GOTO

8034 TWARP=1: WARP$="ON"

2-F

8033 PRINT CHR$(125)

8035 PRINT "ADVANCE BY HOUR"

8040?:? "1-DN

2=OFF"

8045 PRINT "CURRENT" WARPS

8047 POKE 764,255

8050 OP PEEK (764)

8060 IF OP = 31 THEN GOTO 8100

8063 IF OP THEN GOTO 8067 8065 IF OP-30 THEN GOTO 8110

8066 GOTO 8050

8070 PRINT CHRS (125)

8067 PRINT "NEW:" WARP$: FOR TM=0 TO 10: NEXT TM

8075 PRINT 1/0 GATES ACTIVATION"

8080 PRINT "1=ON

8082 PRINT "CURRENT: ", CONS

2=0FF"

8084 POKE 764,255

8085 OP-PEEK (764)

8086 IF OP 12 THEN GOTO 8099

8087 IF overline OP = 31 THEN GOTO 8120

8088 IF THEN GOTO 8130

8098 GOTO 8085

8099 PRINT "NEW"; CONS: FOR TM-0 TO 10: NEXT TM:0000 5000

8100 WARPS="ON"

8105 TWARP=1

8107 GOTO 8067

B110 WARP$="OFF"

8115 TWARP=0

8117 GOTO 8067.

8120 CONS="ON"

8125 CONC=0

8127 BOTO 8099

8130 CON$="OFF"

8135 CONC-1

8137 GOTO 8099

8200 PRINT CHR$(125)

8205 LTC-0: RESTORE 8550: POKE 764,255

8220 PRINT "PLEASE DEACTIVATE RELAYS"

8225 INPUT FR$

8227 PRINT "1=ON

8228 POKE 764,255

8230 OP-PEEK (764)

8240 IF RST-31 THEN GOTO 8300

8245 IF OP=30 THEN GOTO 8260

8250 GOTO 8230

8260 POKE 54018,56: POKE 54016,0:POKE 54018,60

8265 POKE 54019,56: POKE 54017,0: POKE 54019,60

8270 GOTO 5000

8300 LTC=0:OP=PEEK(764)

8310 READ LT: OP PEEK (764)

8320 IF OP-30 THEN GOTO 8260

8340 POKE 54018,56: POKE 54016,LT: POKE 54018,60

8350 LTC LTC+1: IF LTC-9 THEN GOTO 8400

8360 GOTO 8310

8400 READ LT

8405 IF OP 30 THEN GOTO 8260

8410 POKE 54019,56: POKE 54017,LT: POKE 54019,60

8420 LTC LTC+1: IF LTC=13 THEN GOTO 8500

8440 GOTO 8400

8500 RESTORE 8550: GOTO 8300

8550 DATA 8,4,2,1,128,64,32,16,8,4,2,1,0 10000 POSITION 28,0: PRINT "SWION' 16''

10005 SW1-1

10007 SW2-0

10008 POKE 54018, 56

10010 POKE 54016,4

10020 POKE 54018,60

2=OFF"

10024 POSITION 0,11:? "SWITCH ONE ON": POSITION 0,12: PRINT "SWITCH ONE OFF"

10025 IF TWARP=1 THEN FOR TM=0 TO 150:NEXT TM

10027 RETURN

10030 POSITION 28,0: PRINT "SW10F 1/0"

10035 SW2=1

10037 SW1=0

10038 POKE 54018,56 10040 POKE 54016,0

10050 POKE 54018, 60

10052 POSITION 0,11: PRINT "SWITCH ONE ON": POSITION 0,12: PRINT "SWITCH ONE OFF"

10055 RETURN 10060 GOTO 10000

10100 REM

10130 GRAPHICS 2: PRINT #6; "YOU ZAPPED ME!"

10140 END