1 bit 145=0 : REM ON/OFF
2 bit 178=0 : REM PTO
5 dby 51=0: s=0
6 n=0 : dby 49=n
7 input 'enter interval (h)';i
8 e=0 : dby 50=e
12 s=dby 51 :e=dby 50 :n=dby 49
15 print s,e,n
30 bit 145=0
35 bit 178=0
38 if s=i goto 42
40 goto 12
42 if dby 49=0 goto 50
44 goto 42 
50 x=dby 49 : bit 145=1
55 print 'on'
60 if dby 49>=x+2 goto 80
70 goto 60
80 bit 145=0
90 y=dby 49
100 if dby 49>=y+10 goto 120
110 goto 100
120 bit 178=1
125 print 'photo'
130 if dby 49>=y+13 goto 150
140 goto 130
150 bit 178=0
160 z=dby 49
170 if dby 49>=z+10 goto 190
180 goto 170
190 bit 145=1
210 if dby 49>z+17 goto 230
220 goto 210
230 dby 49=0 :dby 50=0 
240 dby 51=0 :print 'off'
250 goto 12