0 ' ALARM.BA - AUTHOR UNKNOWN
1 ' CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:GOSUB7:PRINT"Enter Time To Wake-up:";:INPUTA$:IFA$=""THENRUN
3 IFTIME$<>A$THENGOSUB7:GOTO3
4 CLS:PRINT@130,"Hit any key to stop..."
5 Z$=INKEY$:IFZ$=""THENBEEPELSEMENU
6 FORI=1TO10:NEXTI:GOTO5
7 PRINT@0,"Time is now: "TIME$:RETURN