1 PRINT"Written by James L. Nunn, 1989 [76666,2512] 2 CLS 3 SLP$=TIME$ 5 INPUT"what time do you wish a wake-up call? (xx:xx:xx)?";W$ 6 A=10:CLS:IF W$="" THEN W$="06:30:00" 7 PRINT"Your wake up call will be at ";W$;:PRINT" am":PRINT" Have a good night's rest, James" 9 IF INKEY$<>"" THEN 3000 10 PRINT @176,TIME$: IF TIME$=W$ THEN 1000 ELSE 9 1000 FOR I=1 TO A:BEEP:NEXT I 1010 FOR I=1 TO 390:PRINT@176,TIME$:PRINT"wake up now..another day is waiting!!!" 1012 IF INKEY$<>"" THEN 3000 1013 NEXT I 1015 A=A*1.3 1017 IF A>89 THEN 2010 1020 GOTO1000 2010 FORI=2000TO1700STEP-15 2015 IF INKEY$<>"" THEN 3000 2020 SOUNDI,A 2025 IF INKEY$<>"" THEN 3000 ELSE NEXT I 2035 SOUND0,5 2036 A=1 2037 IF INKEY$<>"" THEN 3000 2038 Q=Q+1:IF Q=2400 THEN 3000 2040 GOTO2010 3000 CLS 3001 PRINT: PRINT"You have been asleep since ";SLP$ 3002 PRINT" Don't Worry...Be Happy!!!! 3010 PRINT@176, TIME$ 3015 IF INKEY$<>"" THEN POWER OFF 3020 GOTO 3010