Im not expecting this to win anything but like i say its useful. ive attatched the sound file youll need (all 2k of it!), but you can use any sound you want for the alarm. it works best if you set it on windowed mode at 400x200.
` Alarm clock - By Froggie - http://www.freewebs.com/froggiesstuff
SYNC ON : SYNC RATE 60 : DO : mx = MOUSEX() : my = MOUSEY() : IF mx>232 AND mx<347 AND my>46 AND my<106 : selected = 1 : ELSE : selected = 0 : ENDIF
IF MOUSECLICK() = 1 AND selected = 1 AND alarm_time$ = "" : GOSUB _input_time : ENDIF : GOSUB _screen_draw : GOSUB _draw_text_1 : IF alarm_time$ = GET TIME$() THEN GOSUB _sound_alarm
IF alarm_time$<>"" : INK RGB(0,255,255),0 : CENTER TEXT 200,175,"Press space to enable alarm" : IF SPACEKEY() = 1 : SET WINDOW TITLE "Alarm set" : MINIMIZE WINDOW : ENDIF : ENDIF : SYNC : LOOP
_screen_draw: : INK RGB(0,255,255),0 : BOX 4,4,392,192 : INK RGB(0,0,0),0 : BOX 6,6,390,190 : INK RGB(0,255,255),0 : BOX 23,45,181,78 : BOX 23,137,181,170 : IF selected = 1 AND alarm_time$ = "" : INK RGB(255,255,255),0 : BOX 232,46,347,106 : ELSE
INK RGB(0,255,255),0 : BOX 232,46,347,106 : ENDIF : INK RGB(0,0,0),0 : BOX 24,46,180,77 : BOX 24,138,180,169 : BOX 233,47,346,105 : RETURN
_draw_text_1: : INK RGB(0,255,255),0 : TEXT 23,30,"Time:" : CENTER TEXT 102,54,GET TIME$() : TEXT 23,122,"Alarm:" : IF alarm_time$ = "" : CENTER TEXT 102,146,"no alarm set" : ELSE : CENTER TEXT 102,146,alarm_time$ : ENDIF
IF alarm_time$ = "" : IF selected = 1 : INK RGB(255,255,255),0 : TEXT 254,68,"Set alarm" : ELSE : INK RGB(0,255,255),0 : TEXT 254,68,"Set alarm" : ENDIF : ELSE : INK RGB(0,255,255),0 : TEXT 254,68,"alarm ok" : ENDIF : RETURN
_input_time: : INK RGB(0,255,255),0 : BOX 4,4,392,192 : INK RGB(0,0,0),0 : BOX 6,6,390,190 : INK RGB(0,255,255),0 : SET CURSOR 40,50 : INPUT "Hour (24hr)";hour : SET CURSOR 40,66 : INPUT "Minute";min : IF hour>24 : hour = 0 : ENDIF : IF min>59 : min = 0 : ENDIF
hour$ = STR$(hour) : IF hour<10 : hour$ = "0"+hour$ : ENDIF : min$ = STR$(min) : IF min<10 : min$ = "0"+min$ : ENDIF : alarm_time$ = hour$+":"+min$+":00" : RETURN
_sound_alarm: : RESTORE WINDOW : SET WINDOW TITLE "Alarm sounding" : LOAD SOUND "alarm.wav",1 : LOOP SOUND 1
DO : INK RGB(0,255,255),0 : BOX 4,4,392,192 : INK RGB(0,0,0),0 : BOX 6,6,390,190 : INK RGB(0,255,255),0 : CENTER TEXT 200,92,"Alarm sounding" : SYNC : LOOP : RETURN
(misspelled title)
