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
