1REM              ***THIS PROGRAM WAS WRITTEN BY ALAN NEELEY CI$#74756,1104***
2REM              ***IT IS TO BE USED WITH THE EVE SPEECH SYNTHESIZER/CLOCK   C*
5LOMEM :29000
6? CHR$(4); "bload ml-ss-cc"
7CALL 28069
8CALL 28086
10 a=PEEK(28055): a=a*10: b=PEEK(28054): h=a+b
12 c=PEEK(28053): c=c*10: d=PEEK(28052): m=c+d
14 e=PEEK(28051): e=e*10: f=PEEK(28050): s=e+f
18HOME:VTAB 3:HTAB 6:INVERSE:? "CLOCK/ALARM PROGRAM":NORMAL
19? TAB(3); "-------------------------"
20VTAB 14:? TAB(3); "-------------------------":? TAB(3); 
21? "Press I to hear time"
22?:? TAB(3); "Press II to set alarm":?:? TAB(3); "Press III to reset alarm"
23?:? TAB(3); "Press IV to end program"
70CALL 28086: g=PEEK(28060): g=g*10: h=PEEK(28059): mo=g+h
72CALL 28086: i=PEEK(28058): i=i*10: j=PEEK(28057): da=i+j
74CALL 28086: k=PEEK(28062): k=k*10: l=PEEK(28061): yr=k+1
79VTAB 12:? TAB(10); "DATE "; mo; "/"; da; "/"; yr
80CALL 28086: a=PEEK(28055): a=a*10: b=PEEK(28054): h=a+b
81VTAB 6:? TAB(10); h; " HOURS"
82VTAB 8:? TAB(10); m; " MINUTES"
83CALL 28086: c=PEEK(28053): c=c*10: d=PEEK(28052): m=c+d
84VTAB 10:? TAB(10); s; " SECONDS"
85CALL 28086: e=PEEK(28051): e=e*10: f=PEEK(28050): s=e+f
90IF PEEK(64885)=132 THEN HOME:VTAB 10:? " Returning to SmartBASIC(tm)":END
91IF PEEK(64885)=131 THEN 155
92IF PEEK(64885)=130 THEN 200
93IF PEEK(64885)=129 THEN 1000
100REM              ***PUT IN ALARM VARIABLES AFTER LINE # 106***
101IF h=w AND m=y AND s=z THEN GOSUB 1000:GOSUB 5000:GOTO 8
102IF h=wa AND m=ya AND s=za THEN GOSUB 1000:GOSUB 6000:GOTO 8
103IF h=wb AND m=yb AND s=zb THEN GOSUB 1000:GOSUB 7000:GOTO 8
104IF h=wc AND m=yc AND s=zc THEN GOSUB 1000:GOSUB 8000:GOTO 8
105IF h=wd AND m=yd AND s=zd THEN GOSUB 1000:GOSUB 9000:GOTO 8
106IF h=we AND m=ye AND s=ze THEN GOSUB 1000:GOSUB 10000:GOTO 8
144IF s=0 AND m=0 THEN 80
145IF s=59 AND m=59 THEN 80
146IF s=0 THEN 82
147IF s=59 THEN 82
148IF h=12 AND m=0 THEN 70
149GOTO 84
150HOME:VTAB 10:? "Press SPACE BAR to continue":GET a$
151GOTO 8
155 w=0: wa=0: wb=0: wc=0: wd=0: we=0
156 y=0: ya=0: yb=0: yc=0: yd=0: ye=0
157 z=0: za=0: zb=0: zc=0: zd=0: ze=0
159GOTO 200
200REM              ***SET ALARM***
205HOME:VTAB 3:HTAB 11:INVERSE:? "SET ALARM":NORMAL
206? TAB(3); "-------------------------"
208VTAB 7:HTAB 10:INPUT "HOURS: "; w
209VTAB 9:HTAB 10:INPUT "MINUTES: "; y
210VTAB 11:HTAB 10:INPUT "SECONDS: "; z
220?:? TAB(3); "-------------------------"
221?:? TAB(3); "Press I to set another time"
222?:? TAB(3); "Press II to return to clock"
224GET a$
225IF ASC(a$)=129 THEN GOTO 230
226IF ASC(a$)=130 THEN GOTO 150
230HOME:VTAB 3:HTAB 11:INVERSE:? "SET ALARM":NORMAL
231? TAB(3); "-------------------------"
232VTAB 7:HTAB 10:INPUT "HOURS: "; wa
233VTAB 9:HTAB 10:INPUT "MINUTES: "; ya
234VTAB 11:HTAB 10:INPUT "SECONDS: "; za
235?:? TAB(3); "-------------------------"
236?:? TAB(3); "Press I to set another time"
237?:? TAB(3); "Press II to return to clock"
238GET a$
239IF ASC(a$)=129 THEN GOTO 245
240IF ASC(a$)=130 THEN GOTO 150
245HOME:VTAB 3:HTAB 11:INVERSE:? "SET ALARM":NORMAL
246? TAB(3); "-------------------------"
247VTAB 7:HTAB 10:INPUT "HOURS: "; wb
248VTAB 9:HTAB 10:INPUT "MINUTES: "; yb
249VTAB 11:HTAB 10:INPUT "SECONDS: "; zb
250?:? TAB(3); "-------------------------"
251?:? TAB(3); "Press I to set another time"
252?:? TAB(3); "Press II to return to clock"
253GET a$
254IF ASC(a$)=129 THEN GOTO 260
255IF ASC(a$)=130 THEN GOTO 150
260HOME:VTAB 3:HTAB 11:INVERSE:? "SET ALARM":NORMAL
261? TAB(3); "-------------------------"
262VTAB 7:HTAB 10:INPUT "HOURS: "; wc
263VTAB 9:HTAB 10:INPUT "MINUTES: "; yc
264VTAB 11:HTAB 10:INPUT "SECONDS: "; zc
265?:? TAB(3); "-------------------------"
266?:? TAB(3); "Press I to set another time"
267?:? TAB(3); "Press II to return to clock"
268GET a$
269IF ASC(a$)=129 THEN GOTO 275
270IF ASC(a$)=130 THEN GOTO 150
275HOME:VTAB 3:HTAB 11:INVERSE:? "SET ALARM":NORMAL
276? TAB(3); "-------------------------"
277VTAB 7:HTAB 10:INPUT "HOURS: "; wd
278VTAB 9:HTAB 10:INPUT "MINUTES: "; yd
279VTAB 11:HTAB 10:INPUT "SECONDS: "; zd
280?:? TAB(3); "-------------------------"
281?:? TAB(3); "Press I to set another time"
282?:? TAB(3); "Press II to return to clock"
283GET a$
284IF ASC(a$)=129 THEN GOTO 290
285IF ASC(a$)=130 THEN GOTO 150
290HOME:VTAB 3:HTAB 11:INVERSE:? "SET ALARM":NORMAL
291? TAB(3); "-------------------------"
292VTAB 7:HTAB 10:INPUT "HOURS: "; we
293VTAB 9:HTAB 10:INPUT "MINUTES: "; ye
294VTAB 11:HTAB 10:INPUT "SECONDS: "; ze
295?:? TAB(3); "-------------------------"
296?:? TAB(3); "Press I to set another time"
297?:? TAB(3); "Press II to return to clock"
298GET a$
299IF ASC(a$)=129 THEN GOTO 305
300IF ASC(a$)=130 THEN GOTO 150
305HOME:VTAB 10:? TAB(2); "This clock only has 6 settings"
307?:? TAB(3); "Press SPACE BAR to continue"
309GET a$
310GOTO 7
1000REM           ***ROUTINE THAT MAKES ADAM SAY TIME***
1001REM           ***THE TIME IS***
1002POKE 28067, 29:CALL 28256
1003POKE 28067, 19:CALL 28256
1004POKE 28067, 3:CALL 28256
1005POKE 28067, 13:CALL 28256
1006POKE 28067, 24:CALL 28256
1007POKE 28067, 6:CALL 28256
1008POKE 28067, 16:CALL 28256
1009POKE 28067, 3:CALL 28256
1010POKE 28067, 12:CALL 28256
1011POKE 28067, 43:CALL 28256
1012POKE 28067, 4:CALL 28256
1013POKE 28067, 1:CALL 28256
1014 q=1:REM          routine for saying the hour
1015IF h=1 THEN GOTO 2000
1017IF h=2 THEN GOTO 2010
1018IF h=3 THEN GOTO 2020
1019IF h=4 THEN GOTO 2030
1020IF h=5 THEN GOTO 2040
1021IF h=6 THEN GOTO 2050
1022IF h=7 THEN GOTO 2060
1023IF h=8 THEN GOTO 2070
1024IF h=9 THEN GOTO 2080
1025IF h=10 THEN GOTO 2090
1026IF h=11 THEN GOTO 2100
1027IF h=12 THEN GOTO 2110
1999REM          ***1-12***
2000POKE 28067, 46:CALL 28256
2001POKE 28067, 15:CALL 28256
2002POKE 28067, 15:CALL 28256
2003POKE 28067, 11:CALL 28256
2004POKE 28067, 3:CALL 28256
2005IF q=1 THEN GOTO 2500
2006IF q=2 THEN GOTO 4000
2010POKE 28067, 13:CALL 28256
2011POKE 28067, 22:CALL 28256
2012POKE 28067, 3:CALL 28256
2013IF q=1 THEN GOTO 2500
2014IF q=2 THEN GOTO 4000
2020POKE 28067, 29:CALL 28256
2021POKE 28067, 14:CALL 28256
2022POKE 28067, 19:CALL 28256
2023POKE 28067, 3:CALL 28256
2024IF q=1 THEN GOTO 2500
2025IF q=2 THEN GOTO 4000
2030POKE 28067, 40:CALL 28256
2031POKE 28067, 40:CALL 28256
2032POKE 28067, 58:CALL 28256
2033POKE 28067, 3:CALL 28256
2034IF q=1 THEN GOTO 2500
2035IF q=2 THEN GOTO 4000
2040POKE 28067, 40:CALL 28256
2041POKE 28067, 40:CALL 28256
2042POKE 28067, 6:CALL 28256
2043POKE 28067, 35:CALL 28256
2044POKE 28067, 35:CALL 28256
2045POKE 28067, 3:CALL 28256
2046IF q=1 THEN GOTO 2500
2047IF q=2 THEN GOTO 4000
2050POKE 28067, 55:CALL 28256
2051POKE 28067, 55:CALL 28256
2052POKE 28067, 12:CALL 28256
2053POKE 28067, 2:CALL 28256
2054POKE 28067, 41:CALL 28256
2055POKE 28067, 55:CALL 28256
2056POKE 28067, 3:CALL 28256
2057IF q=1 THEN GOTO 2500
2058IF q=2 THEN GOTO 4000
2060POKE 28067, 55:CALL 28256
2061POKE 28067, 55:CALL 28256
2062POKE 28067, 7:CALL 28256
2063POKE 28067, 7:CALL 28256
2064POKE 28067, 35:CALL 28256
2065POKE 28067, 12:CALL 28256
2066POKE 28067, 11:CALL 28256
2067POKE 28067, 3:CALL 28256
2068IF q=1 THEN GOTO 2500
2069IF q=2 THEN GOTO 4000
2070POKE 28067, 20:CALL 28256
2071POKE 28067, 2:CALL 28256
2072POKE 28067, 13:CALL 28256
2073POKE 28067, 3:CALL 28256
2074IF q=1 THEN GOTO 2500
2075IF q=2 THEN GOTO 4000
2080POKE 28067, 11:CALL 28256
2081POKE 28067, 24:CALL 28256
2082POKE 28067, 6:CALL 28256
2083POKE 28067, 11:CALL 28256
2084POKE 28067, 3:CALL 28256
2085IF q=1 THEN GOTO 2500
2086IF q=2 THEN GOTO 4000
2090POKE 28067, 13:CALL 28256
2091POKE 28067, 7:CALL 28256
2092POKE 28067, 7:CALL 28256
2093POKE 28067, 11:CALL 28256
2094POKE 28067, 3:CALL 28256
2095IF q=1 THEN GOTO 2500
2096IF q=2 THEN GOTO 4000
2100POKE 28067, 12:CALL 28256
2101POKE 28067, 45:CALL 28256
2102POKE 28067, 7:CALL 28256
2103POKE 28067, 7:CALL 28256
2104POKE 28067, 35:CALL 28256
2105POKE 28067, 12:CALL 28256
2106POKE 28067, 11:CALL 28256
2107POKE 28067, 3:CALL 28256
2108IF q=1 THEN GOTO 2500
2109IF q=2 THEN GOTO 4000
2110POKE 28067, 13:CALL 28256
2111POKE 28067, 48:CALL 28256
2112POKE 28067, 7:CALL 28256
2113POKE 28067, 7:CALL 28256
2114POKE 28067, 45:CALL 28256
2115POKE 28067, 35:CALL 28256
2116POKE 28067, 3:CALL 28256
2117IF q=1 THEN GOTO 2500
2118IF q=2 THEN GOTO 4000
2500REM         ***ROUTINE TO SAY MINUTES***
2501 q=2
2502IF m=10 THEN GOTO 2090
2503IF m=11 THEN GOTO 2100
2504IF m=12 THEN GOTO 2110
2505IF m=13 THEN GOTO 3000
2506IF m=14 THEN GOTO 3010
2507IF m=15 THEN GOTO 3020
2508IF m=16 THEN GOTO 3040
2509IF m=17 THEN GOTO 3060
2510IF m=18 THEN GOTO 3080
2511IF m=19 THEN GOTO 3090
2512IF m=20 THEN GOTO 3110
2513IF m=21 THEN GOTO 3110
2514IF m=22 THEN GOTO 3110
2515IF m=23 THEN GOTO 3110
2516IF m=24 THEN GOTO 3110
2517IF m=25 THEN GOTO 3110
2518IF m=26 THEN GOTO 3110
2519IF m=27 THEN GOTO 3110
2520IF m=28 THEN GOTO 3110
2521IF m=29 THEN GOTO 3110
2522IF m=30 THEN GOTO 3200
2523IF m=31 THEN GOTO 3200
2524IF m=32 THEN GOTO 3200
2525IF m=33 THEN GOTO 3200
2526IF m=34 THEN GOTO 3200
2527IF m=35 THEN GOTO 3200
2528IF m=36 THEN GOTO 3200
2529IF m=37 THEN GOTO 3200
2530IF m=38 THEN GOTO 3200
2531IF m=39 THEN GOTO 3200
2532IF m=40 THEN GOTO 3300
2533IF m=41 THEN GOTO 3300
2534IF m=42 THEN GOTO 3300
2535IF m=43 THEN GOTO 3300
2536IF m=44 THEN GOTO 3300
2537IF m=45 THEN GOTO 3300
2538IF m=46 THEN GOTO 3300
2539IF m=47 THEN GOTO 3300
2540IF m=48 THEN GOTO 3300
2541IF m=49 THEN GOTO 3300
2542IF m=50 THEN GOTO 3400
2543IF m=51 THEN GOTO 3400
2544IF m=52 THEN GOTO 3400
2545IF m=53 THEN GOTO 3400
2546IF m=54 THEN GOTO 3400
2547IF m=55 THEN GOTO 3400
2548IF m=56 THEN GOTO 3400
2549IF m=57 THEN GOTO 3400
2550IF m=58 THEN GOTO 3400
2551IF m=59 THEN GOTO 3400
2552IF m=1 THEN GOTO 3600
2553IF m=2 THEN GOTO 3600
2554IF m=3 THEN GOTO 3600
2555IF m=4 THEN GOTO 3600
2556IF m=5 THEN GOTO 3600
2557IF m=6 THEN GOTO 3600
2558IF m=7 THEN GOTO 3600
2559IF m=8 THEN GOTO 3600
2560IF m=9 THEN GOTO 3600
2561IF m=0 THEN GOTO 3500
2999REM        ***13-59***
3000POKE 28067, 29:CALL 28256
3001POKE 28067, 51:CALL 28256
3002POKE 28067, 1:CALL 28256
3003POKE 28067, 2:CALL 28256
3004POKE 28067, 13:CALL 28256
3005POKE 28067, 19:CALL 28256
3006POKE 28067, 11:CALL 28256
3007POKE 28067, 3:CALL 28256
3008GOTO 4000
3010POKE 28067, 40:CALL 28256
3011POKE 28067, 58:CALL 28256
3012POKE 28067, 1:CALL 28256
3013POKE 28067, 1:CALL 28256
3014POKE 28067, 13:CALL 28256
3015POKE 28067, 19:CALL 28256
3016POKE 28067, 11:CALL 28256
3017POKE 28067, 3:CALL 28256
3018GOTO 4000
3020POKE 28067, 40:CALL 28256
3021POKE 28067, 12:CALL 28256
3022POKE 28067, 40:CALL 28256
3023POKE 28067, 1:CALL 28256
3024POKE 28067, 2:CALL 28256
3025POKE 28067, 13:CALL 28256
3026POKE 28067, 19:CALL 28256
3027POKE 28067, 11:CALL 28256
3028POKE 28067, 3:CALL 28256
3029GOTO 4000
3040POKE 28067, 55:CALL 28256
3041POKE 28067, 55:CALL 28256
3042POKE 28067, 12:CALL 28256
3043POKE 28067, 2:CALL 28256
3044POKE 28067, 41:CALL 28256
3045POKE 28067, 55:CALL 28256
3046POKE 28067, 1:CALL 28256
3047POKE 28067, 2:CALL 28256
3048POKE 28067, 13:CALL 28256
3049POKE 28067, 19:CALL 28256
3050POKE 28067, 11:CALL 28256
3051POKE 28067, 3:CALL 28256
3052GOTO 4000
3060POKE 28067, 55:CALL 28256
3061POKE 28067, 55:CALL 28256
3062POKE 28067, 7:CALL 28256
3063POKE 28067, 35:CALL 28256
3064POKE 28067, 12:CALL 28256
3065POKE 28067, 11:CALL 28256
3066POKE 28067, 1:CALL 28256
3067POKE 28067, 2:CALL 28256
3068POKE 28067, 13:CALL 28256
3069POKE 28067, 19:CALL 28256
3070POKE 28067, 11:CALL 28256
3071POKE 28067, 3:CALL 28256
3072GOTO 4000
3080POKE 28067, 20:CALL 28256
3081POKE 28067, 1:CALL 28256
3082POKE 28067, 2:CALL 28256
3083POKE 28067, 13:CALL 28256
3084POKE 28067, 19:CALL 28256
3085POKE 28067, 11:CALL 28256
3086POKE 28067, 3:CALL 28256
3087GOTO 4000
3090POKE 28067, 11:CALL 28256
3091POKE 28067, 6:CALL 28256
3092POKE 28067, 11:CALL 28256
3093POKE 28067, 1:CALL 28256
3094POKE 28067, 2:CALL 28256
3095POKE 28067, 13:CALL 28256
3096POKE 28067, 19:CALL 28256
3097POKE 28067, 11:CALL 28256
3098POKE 28067, 3:CALL 28256
3099GOTO 4000
3110POKE 28067, 13:CALL 28256
3111POKE 28067, 48:CALL 28256
3112POKE 28067, 7:CALL 28256
3113POKE 28067, 7:CALL 28256
3114POKE 28067, 11:CALL 28256
3115POKE 28067, 1:CALL 28256
3116POKE 28067, 2:CALL 28256
3117POKE 28067, 13:CALL 28256
3118POKE 28067, 19:CALL 28256
3119POKE 28067, 3:CALL 28256
3120IF m=20 THEN GOTO 4000
3121IF m=21 THEN GOTO 2000
3123IF m=22 THEN GOTO 2010
3124IF m=23 THEN GOTO 2020
3125IF m=24 THEN GOTO 2030
3126IF m=25 THEN GOTO 2040
3127IF m=26 THEN GOTO 2050
3128IF m=27 THEN GOTO 2060
3129IF m=28 THEN GOTO 2070
3130IF m=29 THEN GOTO 2080
3200POKE 28067, 29:CALL 28256
3201POKE 28067, 52:CALL 28256
3202POKE 28067, 1:CALL 28256
3203POKE 28067, 2:CALL 28256
3204POKE 28067, 13:CALL 28256
3205POKE 28067, 19:CALL 28256
3206POKE 28067, 3:CALL 28256
3207IF m=30 THEN GOTO 4000
3208IF m=31 THEN GOTO 2000
3209IF m=32 THEN GOTO 2010
3210IF m=33 THEN GOTO 2020
3211IF m=34 THEN GOTO 2030
3212IF m=35 THEN GOTO 2040
3213IF m=36 THEN GOTO 2050
3214IF m=37 THEN GOTO 2060
3215IF m=38 THEN GOTO 2070
3216IF m=39 THEN GOTO 2080
3300POKE 28067, 40:CALL 28256
3301POKE 28067, 58:CALL 28256
3302POKE 28067, 2:CALL 28256
3303POKE 28067, 13:CALL 28256
3304POKE 28067, 19:CALL 28256
3305POKE 28067, 3:CALL 28256
3306IF m=40 THEN GOTO 4000
3307IF m=41 THEN GOTO 2000
3308IF m=42 THEN GOTO 2010
3309IF m=43 THEN GOTO 2020
3310IF m=44 THEN GOTO 2030
3311IF m=45 THEN GOTO 2040
3312IF m=46 THEN GOTO 2050
3313IF m=47 THEN GOTO 2060
3314IF m=48 THEN GOTO 2070
3315IF m=49 THEN GOTO 2080
3400POKE 28067, 40:CALL 28256
3401POKE 28067, 40:CALL 28256
3402POKE 28067, 12:CALL 28256
3403POKE 28067, 40:CALL 28256
3404POKE 28067, 40:CALL 28256
3405POKE 28067, 1:CALL 28256
3406POKE 28067, 2:CALL 28256
3407POKE 28067, 13:CALL 28256
3408POKE 28067, 19:CALL 28256
3409POKE 28067, 3:CALL 28256
3410IF m=50 THEN GOTO 4000
3411IF m=51 THEN GOTO 2000
3412IF m=52 THEN GOTO 2010
3413IF m=53 THEN GOTO 2020
3414IF m=54 THEN GOTO 2030
3415IF m=55 THEN GOTO 2040
3416IF m=56 THEN GOTO 2050
3417IF m=57 THEN GOTO 2060
3418IF m=58 THEN GOTO 2070
3419IF m=59 THEN GOTO 2080
3499REM        ***O'CLOCK***
3500POKE 28067, 53:CALL 28256
3501POKE 28067, 3:CALL 28256
3502POKE 28067, 42:CALL 28256
3503POKE 28067, 45:CALL 28256
3504POKE 28067, 24:CALL 28256
3505POKE 28067, 24:CALL 28256
3506POKE 28067, 2:CALL 28256
3507POKE 28067, 41:CALL 28256
3508POKE 28067, 3:CALL 28256
3509GOTO 4000
3600REM        ***MINUTES 1-9***
3601POKE 28067, 53:CALL 28256
3602POKE 28067, 3:CALL 28256
3603IF m=1 THEN GOTO 2000
3604IF m=2 THEN GOTO 2010
3605IF m=3 THEN GOTO 2020
3606IF m=4 THEN GOTO 2030
3607IF m=5 THEN GOTO 2040
3608IF m=6 THEN GOTO 2050
3609IF m=7 THEN GOTO 2060
3610IF m=8 THEN GOTO 2070
3611IF m=9 THEN GOTO 2080
4000IF PEEK(64885)=129 THEN 150
4001RETURN
5000RETURN
6000RETURN
7000RETURN
8000RETURN
9000RETURN
10000RETURN
