20 'Press 'p' to play alarm music;press enter to resume.  *song data in lines 400-499)
21 'Press space to tell time(with voice synthesizer connected)
22 'Press 'q' to goto Menu
50 st$="07:00:00":as=-1:'set time & alarm is on
120ifmd=1thenpp=5232elsepp=5522
240 IFK$<>"t"THEN250ELSEPRINT@30,"IT'S NOW":H=VAL(LEFT$(T$,2)):A=(H>11):H=H+12*A-12*(H=0orh=12):PRINT@69,STR$(H)+RIGHT$(T$,6)" ";
260 IFK$=" "THENGOSUB700:goto155
265 IFK$="p"THEN300
270ifk$="q"thenmenu
300 'alarm
305 restore400
307rem -1 indicates end of song
310 READF,D:iff=-1then305elseSOUNDF,D:K$=INKEY$:IFK$=""THEN310ELSEIFK$=" "THEN320ELSEIFK$<>CHR$(13)THEN305ELSESN=-1:GOTO200
320 K$=CHR$(13):SN=0:GOTO200
330 rem
400 DATA 4697,15,0,5,2348,10,2793,10,3134,10,3718,10,3134,30,4184,30
401 DATA 4697,15,0,5,2348,10,2793,10,3134,10,3718,10,3134,60
402 DATA 2793,10,2959,10,2793,10,3718,10,3516,10,3134,10,2793,20,3516,10
403 DATA 4184,30,2793,20,2793,10,2793,10,2484,10,2348,10,2092,10,2484,10
404 DATA 2793,10,3134,10,3718,10,4184,10
405 DATA 4697,15,0,5,2348,10,2795,10,3134,10,3718,10,3134,30,4148,20,4148,10
406 DATA 4697,20,4148,10,3718,10,3516,10,3134,10,2793,40,2793,10,2484,10
407 DATA 2348,15,0,10,2348,15,0,10,2348,10,2484,10,2793,10,3134,10,3321,10,3134,10
408 DATA 2793,30,2484,30,2348,60
409 DATA-1,-1
628 TA$=LEFT$(ST$,5):IFVAL(RIGHT$(ST$,2))<30ANDTA$="00:00"ORTA$="12:00"THENST$=LEFT$(ST$,6)+"30"
700 callpp,0
702 RESTORE842:GOSUB795:CALLPP,3
705 IFH=0THENT=12ELSET=H
707 GOSUB790:CALLPP,3:RESTORE843:GOSUB795:CALLPP,4
710 T=M:GOSUB790:IFM<2THENRESTORE844ELSERESTORE845
715 CALLPP,3:GOSUB795:CALLPP,4:RESTORE846:GOSUB795:CALLPP,4
720 T=S:GOSUB790:CALLPP,3:IFT<2THENRESTORE850ELSERESTORE852
725 GOSUB795
730 callpp,0:return
790 C=T:IFC<20THENGOSUB855:GOTO795
792 C=20
793 T=T-10:IFT>19THENC=C+1:GOTO793
794 GOSUB855:GOSUB795:C=TMOD10:IFCTHENGOSUB855ELSERETURN
795 READA:IFA<>-1THENCALLPP,A:GOTO795
797 RETURN
800 DATA43,60,53,-1
801 DATA46,15,15,11,-1
802 DATA13,31,-1
803 DATA29,14,19,-1
804 DATA40,40,58,-1
805 DATA40,40,6,35,-1
806 DATA55,55,12,12,2,41,55,-1
808 DATA55,55,7,7,35,12,11,-1
809 DATA20,2,13,-1
810 DATA11,24,6,11,-1
811 DATA13,7,7,11,-1
812 DATA12,45,7,7,35,12,11,-1
813 DATA13,48,7,7,45,35,-1
814 DATA29,51,1,2,13,19,11,-1
815 DATA40,58,1,2,13,19,11,-1
816 DATA40,12,40,1,2,13,19,11,-1
817 DATA55,55,12,2,41,55,1,2,13,19,11,-1
818 DATA55,55,7,35,29,11,1,2,13,19,11,-1
819 DATA20,1,2,13,19,11,-1
820 DATA11,6,11,1,2,13,19,11,-1
821 DATA13,48,7,7,11,1,2,13,19,-1
822 DATA29,52,1,2,13,19,-1
823 DATA40,58,2,13,19,-1
824 DATA40,40,12,40,40,1,2,13,19,-1
825 DATA55,55,12,2,41,55,1,2,13,19,-1
826 DATA55,55,7,35,12,11,1,2,13,19,-1
827 DATA20,2,13,19,-1
828 DATA11,6,11,2,13,19,-1
829 DATA57,15,15,11,1,33,39,12,12,0,21,-1
830 DATA29,24,32,43,29,0,0,11,21,-1
831 DATA16,12,12,45,49,21,15,11,-1
842 DATA12,17,55,-1
843 DATA23,42,45,24,24,2,41,-1
844 DATA16,12,11,12,2,13,-1
845 DATA16,12,11,12,2,13,55,-1
846 DATA26,11,21,-1
850 DATA55,55,7,2,42,12,11,1,21,-1
852 DATA55,55,7,1,42,12,11,33,43,-1
855 ONCGOTO861,862,863,864,865,866,867,868,869,870,871,872,873,874,875,876,877,878,879,880,881,882,883,884,885,886,887,888,889,890
860 RESTORE800:RETURN
861 RESTORE801:RETURN
862 RESTORE802:RETURN
863 RESTORE803:RETURN
864 RESTORE804:RETURN
865 RESTORE805:RETURN
866 RESTORE806:RETURN
867 RESTORE808:RETURN
868 RESTORE809:RETURN
869 RESTORE810:RETURN
870 RESTORE811:RETURN
871 RESTORE812:RETURN
872 RESTORE813:RETURN
873 RESTORE814:RETURN
874 RESTORE815:RETURN
875 RESTORE816:RETURN
876 RESTORE817:RETURN
877 RESTORE818:RETURN
878 RESTORE819:RETURN
879 RESTORE820:RETURN
880 RESTORE821:RETURN
881 RESTORE822:RETURN
882 RESTORE823:RETURN
883 RESTORE824:RETURN
884 RESTORE825:RETURN
885 RESTORE826:RETURN
886 RESTORE827:RETURN
887 RESTORE828:RETURN
888 RESTORE829:RETURN
889 RESTORE830:RETURN
890 RESTORE831:RETURN