home *** CD-ROM | disk | FTP | other *** search
- 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
-