SetPin 1,8
Print "0=Sun, 1=Mon, 2=Tue, 3=Wed, 4=Thur, 5=Fri, 6=Sat"
Input "Enter The Day Using The Above Code (D): ", D
Input "Enter The Alarm Time: ", Alarm$
Input "Enter The Time: ", T$
Time$ = T$
Cls
Font 1,2
DRAWFACE
Do
Seconds = Val(Right$(Time$, 2))
Minutes = Val(Mid$(Time$, 4,2))
Hours = Val(Left$(Time$, 2))
If Hours > 12 Then
PM$ = "Yes"
Else
PM$ = "No"
EndIf
If Time$ = "00:00:00" Then
D = D+1
D = D Mod 7
EndIf
If Time$ = Alarm$ Then ALARM
Hours = Hours*5+(Minutes/12)
Minutes = Minutes+(Seconds/60)
''''''''
'Second Hand
''''''''
SDegrees = (60-(Seconds+30))*0.10467
XS = 240+200*Sin(SDegrees)
YS = 210+200*Cos(SDegrees)
''''''''
'Minute Hand
''''''''
MDegrees = (60-(Minutes+30))*0.10467
XM = 240+180*Sin(MDegrees)
YM = 210+180*Cos(MDegrees)
''''''''
'Hour Hand
''''''''
HDegrees = (60-(Hours+30))*0.10467
XH = 240+100*Sin(HDegrees)
YH = 210+100*Cos(HDegrees)
''''''''''''''''''
'Drawing The Hands
''''''''''''''''''
Cls
DRAWFACE
Print@(240,240) "PM:" PM$
Line(240,210)-(XS,YS),1
Line(240,210)-(XM,YM),1
Line(240,210)-(XH,YH),1
Pause 1000
Loop
''''''''''
'Drawing The Face
''''''''''
Sub DRAWFACE
Num = 0
Do
Num = Num+1
Digit = Num Mod 5
FaceDeg = (60-(Num+30))*0.10467
OX = 240+210*Sin(FaceDeg)
OY = 210+210*Cos(FaceDeg)
IX = 240+205*Sin(FaceDeg)
IY = 210+205*Cos(FaceDeg)
Line(IX,IY)-(OX,OY),1
If Digit = 0 Then Print@((OX-15),(OY-5)) (Num/5)
Loop Until Num > 59
End Sub
''''''''''
'Alarm
''''''''''
Sub ALARM
If D = 0 Or D = 6 Then GoTo 3
Cls
Decider = Fix(Rnd*4)
If Decider = 0 Then Print@(200,200) "Time To Get Up"
If Decider = 1 Then Print@(200,200) "Wake Up Sweetie"
If Decider = 2 Then Print@(200,200) "Mornin' Sunshine"
If Decider = 3 Then Print@(200,200) "Just Get Up"
If Decider = 4 Then Print@(200,200) "Helllooooo"
If Decider = 5 Then Print@(200,200) "Cmon, Get Up"
If Alarm$ = "07:00:00" Then Print@(200,200) "Its Just School :( "
If Hour < 7 And TOD$ = "AM" Then Print@(200,200) "Its A Bit Early! "
If D = 5 Then Print@(200,200) "Whoo, Its Friday! "
Print@(100,300) "Press <Space> to stop!"
K$ = ""
Do
Pin(1)=1
Pause 200
Pin(1)=0
Pause 100
Pin(1)=1
Pause 200
Pin(1)=0
Pause 500
K$ = UCase$(Inkey$)
Looped = Looped + 1
TimeRem = 180-Looped
Min = Fix(TimeRem/60)
Sec = TimeRem Mod 60
Font 1
Print@(50,350) "Or Alarm Will Stop In: " Min " Minutes and " Sec " Seconds"
Loop Until K$ = Chr$(32) Or Looped = 600
Cls
3 Font 2
End Sub