2 GOSUB100
3 PRINT"[147][159]":GOSUB5000
5 PRINT"[159]"LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2):PRINT"TIME"
7 PRINTTAB(29)"[145][145]"LEFT$(A$,2)":"MID$(A$,3,2)":"RIGHT$(A$,2)
8 PRINTTAB(29)"WAKE-UP"
10 POKE53281,0:POKE53280,0:IFTI$="130000"THENTI$="010000"
15 IFTI$=A$THENGOTO3000
20 GOTO5
100 POKES+4,W2:POKE53281,3:POKE53280,11:PRINT"[147]"TAB(13)"ALARM  CLOCK V.6"
101 PRINTTAB(13)"BY DANNY USELTON":PRINTTAB(13)"2329 BREYMAN ST. N.E.
103 [153][163]13)"SALEM OREGON, 97301":[153][163]10)"KNOWN ON Q-LINK AS DAN BOY"
104 [153][163]15)"CONTMAIN MENUE"
105 [153]"1. LOOK AT SOME INSTRUCTIONS":[153]"2. LISTEN TO ALARM SOUND"
110 [153]"   HIT SPACE BAR TO RETURN TO MENUE":[153]"3. START ALARM CLOCK"
111 [153]"WHICH ONE (1,2,3)?"
155 [161]M$:[139]M$[178]""[167]155
156 M[178][197](M$):[139]M[178]1[176]M[178]2[176]M[178]3[167]158
157 [153]"SILLY NOT THE "M$" KEY.":[137]155
158 [145]M[137]300,400,500
300 [153]"LOAD"[163]14)"INSTRUCTIONS":[153]"FIRST, SELECT 'LISTEN TO ALARM' AND"
305 [153]" ADJUST THE VOLUME ON YOUR T.V. SET OR  MONITOR TO WHAT YOU THINK"
310 [153]"WILL BE LOUD ENOUGH TO WAKE YOU UP.     THEN SELECT 'START ALARM'."
315 [153]" AT THIS POINT YOU WILL BE PROMPTED TO  ENTER THE CORRECT TIME AND"
320 [153]"THE TIME YOU WANT TO WAKE UP AND        LENGTH OF SNOOZE."
325 [153]"[SNOOZE ALLOWS YOU TO SLEEP FOR A        FEW EXTRA MINUTES BEFORE THE"
330 [153]"ALARM SOUNDS AGAIN.]"
331 [153]"FOR YOUR FIRST TIME YOU SHOULD MAKE A   TEST RUN. FIRST SET CLOCK."
332 [153]"THEN SET ALARM TO GO OFF ONE OR TWO     MINUTES LATER.MORE..."
345 [153][163]11)"PRESS ANY KEY"
350 [161]M2$:[139]M2$[178]""[167]350
355 [153]"LOAD  ENTER TIME'S IN REGULAR TIME NOT      MILITARY TIME LIKE A";
357 [153]" LOT OF AMATURE     PROGRAMS REQUEST."
360 [153]"AFTER TIMES HAVE BEEN SET THE SCREEN    WILL GO BLACK BUT THE TIME"
361 [153]"DISPLAYES WILL BE SEEN. ADJUST DARKNESS ON YOUR TV/MONITOR"
362 [153]"FOR THE DARKNESS THAT IS COMFORTABLE TO SLEEP WITH."
363 [153]"IN THE MORNING THE SCREEN WILL LIGHT    BACK UP AND ALARM WILL SOUND."
380 [153]"I WROTE THE   BASIC ROUTINE WHEN MY"
381 [153]"ALARM CLOCK BROKE ONE NIGHT."
384 [153]"    PRESS ANY KEY TO RETURN TO MENU"
385 [161]M2$:[139]M2$[178]""[167]385
390 [137]100
400 [153]"LOAD        LISTEN TO ALARM HERE"
401 [153]"  ADJUST VOLUME TO DESIRED WAKE UP TONE   WHEN YOU HEAR ALARM."
402 [153]"   HIT   SPACE BAR WAIT  TO TOGGLE ALARM"
403 [153]"ON    ON/OFF AND RETURN TO MAIN MENUE":[161]B$:[139]B$[179][177][199](32)[167]403
405 LSN[178]1:[141]3000
410 LSN[178]0:[151]S[170]4,W2:[137]100
500 [137]3:[143] START MAIN PROGRAM
600 [153]"";
601 [153][163]9)"SILLY,CMDCMDCMDTYPE IN 6 DIGITS ONLY":[153][163]9)"NON MILITARY TIME
602 FORZ9=1TO1900:NEXTZ9:E=1:RETURN
3000 S=54272:FORSW=STOS+24:POKESW,0:NEXT:K=-1:B$=""
3001 N2=85:N1=36:W1=33:W2=32:AD=136:SR=129:V=15:Q=2:DR=350
3002 POKES+2,P2:POKES+3,P1:POKES+5,AD:POKES+6,SR:POKES+1,N1:POKES,N2
3003 IFQ=2THENQ=3
3004 IFQ=2THENPOKES+1,64:POKES,188
3005 POKES+4,W1
4000 FORVL=15TOVSTEPK:POKES+24,VL:FORT=1TODR:NEXTT:NEXTVL
4002 PRINT"[147]"
4005 FORZ=1TO100:NEXTZ
4006 IFA=0ORA=2ORA=6ORA=9THENA=13
4007 IFA=12ORA=10ORA=11ORA=5THENA=1
4009 PRINT"[145][145][145]                                       [158][146]":POKE53280,A
4010 PRINT" W A K E  U P !   HIT   S P A C E  BAR [146]":POKE53281,9
4011 PRINT"                                       [158][146]":A=INT(RND(1)*15)+1
4012 IFB$=CHR$(32)ANDLSN=1THENGOTO410
4013 IFB$=CHR$(32)THEN4016
4014 IFB$=CHR$(133)THENGOTO11000
4015 GETB$:IFB$<>CHR$(133)ORB$<>CHR$(32)THEN4005
4016 PRINT"[147]RISE AND SHINE ! ! !":POKES+4,W2
4017 PRINT"FORZ=1TO3000:NEXTZ:GOSUB9000
4018 [153]"LOADSNOOZE OPERATING
4019 FORZ=SNTO1STEP-1:POKE53281,0:POKE53280,0:PRINT""Z
4021 NEXTZ
4022 GOTO3000
4045 GETZ$:IFZ$=""THEN4019
5000 PRINT"[147][145]          ENTER CORRECT TIME            "
5002 PRINT"[145]  IN HOURS, MINUTES, SECONDS":PRINTTAB(6)"8:35 AM OR PM = 083500"
5003 PRINT:PRINT:POKE53281,9:PRINT:PRINT"[145] ACTUAL TIME[146]"
5004 PRINT"    [158]  [158]  [158] [146]"
5005 PRINT"   H M S
5006 [153]"   O I E":[153]"   U N C":[153]"   R U O":[153]"   S T N"
5007 [153]"     E D":[153]"     S S"
5008 E[178]0:[133]" ONONONONONONONON";TM$
5009 [139][195](TM$)[179][177]6[176][197](TM$)[177]125959[176][197](TM$)[179]010000[167][141]600
5010 [139][197]([201](TM$,2))[177]59[167][141]600
5013 [139]E[178]1[167]5000
5014 [136]TI$[178]TM$
5015 [153]"":[153]""[200](TI$,2)":"[202](TI$,3,2)":"[201](TI$,2)
5016 [153]"IS THIS"
5017 [153]"CORRECT (Y/N)"
5018 [133]"  YCMDCMDCMD";Y$:[139]Y$[179][177]"Y"[167]5000
5019 [139]E[178]1[167][153]"LOAD"
5020 [153]"ONONONONONONONONON    WHAT TIME DO YOU WANT TO GET UPWAIT"
5024 [139]E[178]1[167][153][163]14)" LETS TRY AGAINONON"
5025 [153]"ALARM TIMEWAIT"
5027 [153]" SYS  SYS  SYS SYSWAIT"
5028 [153]"H M SCMDCMDCMDCMDCMDO I ECMDCMDCMDCMDCMDU N CCMDCMDCMDCMDCMDR U O"
5029 [153]"S T NCMDCMDCMDE DCMDCMDCMDS S"
5050 E[178]0:[133]"ONONONONONONONON";A$
5051 [153]""
5052 [139][195](A$)[179][177]6[176][197](A$)[177]125959[176][197](A$)[179]010000[167][141]600
5053 [139][197]([201](A$,2))[177]59[167][141]600
5054 [139]E[178]1[167]5019
5055 [153]""[200](A$,2)":"[202](A$,3,2)":"[201](A$,2);
5056 [153]"WAIT IS THISCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCORRECT? (Y/N)"
5057 [133]" YCMDCMDCMD";Y$
5059 [139]Y$[179][177]"Y"[167]5019
5060 [153]"SNOOZE ALARM TIME INWAIT"
5062 [153]"MINUTES (DEFAULT=5)WAIT"
5065 [153]"SYS  SYSWAIT"
5067 [133]"ON";SN:[139]SN[178]0[167]SN[178]5
5068 [153]:[153]:[153]" SNOOZE TIME IS SET":[153]"  FOR "SN"WAIT MINUTE(S)"
5069 [133]" IS THIS CORRECT  YCMDCMDCMD";Y$:[139]Y$[179][177]"Y"[167]5060
5070 [153]"ONONONONONONONONOPEN                    "
5074 [153][163]19)" ALARM CLOCK ARMED  "
5075 [153][163]19)"                    "
5076 [153][163]19)" CURRENT TIME "TI$
5077 [153][163]19)" WAKE-UP TIME "A$
5079 [153][163]19)"  SNOOZE TIME"SN"CMD MIN "
5080 [153][163]19)"  OK    (Y/N)      OPEN";
5082 [133]"YCMDCMDCMD";Y$:[139]Y$[179][177]"Y"[167]5000
5083 [153]Y$
5105 SN[178]SN[172]1810
5205 [153]"SYS                             "
5230 [153]"   T O   A C T I V A T E     "
5235 [153]"                             "
5238 [153]"   A L A R M  C L O C K.     "
5245 [153]"                             "
5250 [153]"   H I T   A N Y  K E Y      "
5260 [153]"    (ADJUST DARKNESS NOW     "
5265 [153]"   UNTIL BORDER DISAPPEARS.  "
5270 [153]"                             "
5500 [161]W$:[139]W$[178]""[167]5500
6010 [153]"ON  G   O   O   D    "
6015 [153]"                   "
6025 [153]"                   "
6030 [153]" N   I   G   H   T."
6100 [129]Z[178]1[164]2700:[130]Z
8000 [153]"LOAD":[142]
11001 [151]S[170]4,W2