home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / SNOOZE-ALARM (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  142 lines
  1. 2 GOSUB100
  2. 3 PRINT"[147][159]":GOSUB5000
  3. 5 PRINT"[159]"LEFT$(TI$,2)":"MID$(TI$,3,2)":"RIGHT$(TI$,2):PRINT"TIME"
  4. 7 PRINTTAB(29)"[145][145]"LEFT$(A$,2)":"MID$(A$,3,2)":"RIGHT$(A$,2)
  5. 8 PRINTTAB(29)"WAKE-UP"
  6. 10 POKE53281,0:POKE53280,0:IFTI$="130000"THENTI$="010000"
  7. 15 IFTI$=A$THENGOTO3000
  8. 20 GOTO5
  9. 100 POKES+4,W2:POKE53281,3:POKE53280,11:PRINT"[147]"TAB(13)"ALARM  CLOCK V.6"
  10. 101 PRINTTAB(13)"BY DANNY USELTON":PRINTTAB(13)"2329 BREYMAN ST. N.E.
  11. 103 [153][163]13)"SALEM OREGON, 97301":[153][163]10)"KNOWN ON Q-LINK AS DAN BOY"
  12. 104 [153][163]15)"CONTMAIN MENUE"
  13. 105 [153]"1. LOOK AT SOME INSTRUCTIONS":[153]"2. LISTEN TO ALARM SOUND"
  14. 110 [153]"   HIT SPACE BAR TO RETURN TO MENUE":[153]"3. START ALARM CLOCK"
  15. 111 [153]"WHICH ONE (1,2,3)?"
  16. 155 [161]M$:[139]M$[178]""[167]155
  17. 156 M[178][197](M$):[139]M[178]1[176]M[178]2[176]M[178]3[167]158
  18. 157 [153]"SILLY NOT THE "M$" KEY.":[137]155
  19. 158 [145]M[137]300,400,500
  20. 300 [153]"LOAD"[163]14)"INSTRUCTIONS":[153]"FIRST, SELECT 'LISTEN TO ALARM' AND"
  21. 305 [153]" ADJUST THE VOLUME ON YOUR T.V. SET OR  MONITOR TO WHAT YOU THINK"
  22. 310 [153]"WILL BE LOUD ENOUGH TO WAKE YOU UP.     THEN SELECT 'START ALARM'."
  23. 315 [153]" AT THIS POINT YOU WILL BE PROMPTED TO  ENTER THE CORRECT TIME AND"
  24. 320 [153]"THE TIME YOU WANT TO WAKE UP AND        LENGTH OF SNOOZE."
  25. 325 [153]"[SNOOZE ALLOWS YOU TO SLEEP FOR A        FEW EXTRA MINUTES BEFORE THE"
  26. 330 [153]"ALARM SOUNDS AGAIN.]"
  27. 331 [153]"FOR YOUR FIRST TIME YOU SHOULD MAKE A   TEST RUN. FIRST SET CLOCK."
  28. 332 [153]"THEN SET ALARM TO GO OFF ONE OR TWO     MINUTES LATER.MORE..."
  29. 345 [153][163]11)"PRESS ANY KEY"
  30. 350 [161]M2$:[139]M2$[178]""[167]350
  31. 355 [153]"LOAD  ENTER TIME'S IN REGULAR TIME NOT      MILITARY TIME LIKE A";
  32. 357 [153]" LOT OF AMATURE     PROGRAMS REQUEST."
  33. 360 [153]"AFTER TIMES HAVE BEEN SET THE SCREEN    WILL GO BLACK BUT THE TIME"
  34. 361 [153]"DISPLAYES WILL BE SEEN. ADJUST DARKNESS ON YOUR TV/MONITOR"
  35. 362 [153]"FOR THE DARKNESS THAT IS COMFORTABLE TO SLEEP WITH."
  36. 363 [153]"IN THE MORNING THE SCREEN WILL LIGHT    BACK UP AND ALARM WILL SOUND."
  37. 380 [153]"I WROTE THE   BASIC ROUTINE WHEN MY"
  38. 381 [153]"ALARM CLOCK BROKE ONE NIGHT."
  39. 384 [153]"    PRESS ANY KEY TO RETURN TO MENU"
  40. 385 [161]M2$:[139]M2$[178]""[167]385
  41. 390 [137]100
  42. 400 [153]"LOAD        LISTEN TO ALARM HERE"
  43. 401 [153]"  ADJUST VOLUME TO DESIRED WAKE UP TONE   WHEN YOU HEAR ALARM."
  44. 402 [153]"   HIT   SPACE BAR WAIT  TO TOGGLE ALARM"
  45. 403 [153]"ON    ON/OFF AND RETURN TO MAIN MENUE":[161]B$:[139]B$[179][177][199](32)[167]403
  46. 405 LSN[178]1:[141]3000
  47. 410 LSN[178]0:[151]S[170]4,W2:[137]100
  48. 500 [137]3:[143] START MAIN PROGRAM
  49. 600 [153]"";
  50. 601 [153][163]9)"SILLY,CMDCMDCMDTYPE IN 6 DIGITS ONLY":[153][163]9)"NON MILITARY TIME
  51. 602 FORZ9=1TO1900:NEXTZ9:E=1:RETURN
  52. 3000 S=54272:FORSW=STOS+24:POKESW,0:NEXT:K=-1:B$=""
  53. 3001 N2=85:N1=36:W1=33:W2=32:AD=136:SR=129:V=15:Q=2:DR=350
  54. 3002 POKES+2,P2:POKES+3,P1:POKES+5,AD:POKES+6,SR:POKES+1,N1:POKES,N2
  55. 3003 IFQ=2THENQ=3
  56. 3004 IFQ=2THENPOKES+1,64:POKES,188
  57. 3005 POKES+4,W1
  58. 4000 FORVL=15TOVSTEPK:POKES+24,VL:FORT=1TODR:NEXTT:NEXTVL
  59. 4002 PRINT"[147]"
  60. 4005 FORZ=1TO100:NEXTZ
  61. 4006 IFA=0ORA=2ORA=6ORA=9THENA=13
  62. 4007 IFA=12ORA=10ORA=11ORA=5THENA=1
  63. 4009 PRINT"[145][145][145]                                       [158][146]":POKE53280,A
  64. 4010 PRINT" W A K E  U P !   HIT   S P A C E  BAR [146]":POKE53281,9
  65. 4011 PRINT"                                       [158][146]":A=INT(RND(1)*15)+1
  66. 4012 IFB$=CHR$(32)ANDLSN=1THENGOTO410
  67. 4013 IFB$=CHR$(32)THEN4016
  68. 4014 IFB$=CHR$(133)THENGOTO11000
  69. 4015 GETB$:IFB$<>CHR$(133)ORB$<>CHR$(32)THEN4005
  70. 4016 PRINT"[147]RISE AND SHINE ! ! !":POKES+4,W2
  71. 4017 PRINT"FORZ=1TO3000:NEXTZ:GOSUB9000
  72. 4018 [153]"LOADSNOOZE OPERATING
  73. 4019 FORZ=SNTO1STEP-1:POKE53281,0:POKE53280,0:PRINT""Z
  74. 4021 NEXTZ
  75. 4022 GOTO3000
  76. 4045 GETZ$:IFZ$=""THEN4019
  77. 5000 PRINT"[147][145]          ENTER CORRECT TIME            "
  78. 5002 PRINT"[145]  IN HOURS, MINUTES, SECONDS":PRINTTAB(6)"8:35 AM OR PM = 083500"
  79. 5003 PRINT:PRINT:POKE53281,9:PRINT:PRINT"[145] ACTUAL TIME[146]"
  80. 5004 PRINT"    [158]  [158]  [158] [146]"
  81. 5005 PRINT"   H M S
  82. 5006 [153]"   O I E":[153]"   U N C":[153]"   R U O":[153]"   S T N"
  83. 5007 [153]"     E D":[153]"     S S"
  84. 5008 E[178]0:[133]" ONONONONONONONON";TM$
  85. 5009 [139][195](TM$)[179][177]6[176][197](TM$)[177]125959[176][197](TM$)[179]010000[167][141]600
  86. 5010 [139][197]([201](TM$,2))[177]59[167][141]600
  87. 5013 [139]E[178]1[167]5000
  88. 5014 [136]TI$[178]TM$
  89. 5015 [153]"":[153]""[200](TI$,2)":"[202](TI$,3,2)":"[201](TI$,2)
  90. 5016 [153]"IS THIS"
  91. 5017 [153]"CORRECT (Y/N)"
  92. 5018 [133]"  YCMDCMDCMD";Y$:[139]Y$[179][177]"Y"[167]5000
  93. 5019 [139]E[178]1[167][153]"LOAD"
  94. 5020 [153]"ONONONONONONONONON    WHAT TIME DO YOU WANT TO GET UPWAIT"
  95. 5024 [139]E[178]1[167][153][163]14)" LETS TRY AGAINONON"
  96. 5025 [153]"ALARM TIMEWAIT"
  97. 5027 [153]" SYS  SYS  SYS SYSWAIT"
  98. 5028 [153]"H M SCMDCMDCMDCMDCMDO I ECMDCMDCMDCMDCMDU N CCMDCMDCMDCMDCMDR U O"
  99. 5029 [153]"S T NCMDCMDCMDE DCMDCMDCMDS S"
  100. 5050 E[178]0:[133]"ONONONONONONONON";A$
  101. 5051 [153]""
  102. 5052 [139][195](A$)[179][177]6[176][197](A$)[177]125959[176][197](A$)[179]010000[167][141]600
  103. 5053 [139][197]([201](A$,2))[177]59[167][141]600
  104. 5054 [139]E[178]1[167]5019
  105. 5055 [153]""[200](A$,2)":"[202](A$,3,2)":"[201](A$,2);
  106. 5056 [153]"WAIT IS THISCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCORRECT? (Y/N)"
  107. 5057 [133]" YCMDCMDCMD";Y$
  108. 5059 [139]Y$[179][177]"Y"[167]5019
  109. 5060 [153]"SNOOZE ALARM TIME INWAIT"
  110. 5062 [153]"MINUTES (DEFAULT=5)WAIT"
  111. 5065 [153]"SYS  SYSWAIT"
  112. 5067 [133]"ON";SN:[139]SN[178]0[167]SN[178]5
  113. 5068 [153]:[153]:[153]" SNOOZE TIME IS SET":[153]"  FOR "SN"WAIT MINUTE(S)"
  114. 5069 [133]" IS THIS CORRECT  YCMDCMDCMD";Y$:[139]Y$[179][177]"Y"[167]5060
  115. 5070 [153]"ONONONONONONONONOPEN                    "
  116. 5074 [153][163]19)" ALARM CLOCK ARMED  "
  117. 5075 [153][163]19)"                    "
  118. 5076 [153][163]19)" CURRENT TIME "TI$
  119. 5077 [153][163]19)" WAKE-UP TIME "A$
  120. 5079 [153][163]19)"  SNOOZE TIME"SN"CMD MIN "
  121. 5080 [153][163]19)"  OK    (Y/N)      OPEN";
  122. 5082 [133]"YCMDCMDCMD";Y$:[139]Y$[179][177]"Y"[167]5000
  123. 5083 [153]Y$
  124. 5105 SN[178]SN[172]1810
  125. 5205 [153]"SYS                             "
  126. 5230 [153]"   T O   A C T I V A T E     "
  127. 5235 [153]"                             "
  128. 5238 [153]"   A L A R M  C L O C K.     "
  129. 5245 [153]"                             "
  130. 5250 [153]"   H I T   A N Y  K E Y      "
  131. 5260 [153]"    (ADJUST DARKNESS NOW     "
  132. 5265 [153]"   UNTIL BORDER DISAPPEARS.  "
  133. 5270 [153]"                             "
  134. 5500 [161]W$:[139]W$[178]""[167]5500
  135. 6010 [153]"ON  G   O   O   D    "
  136. 6015 [153]"                   "
  137. 6025 [153]"                   "
  138. 6030 [153]" N   I   G   H   T."
  139. 6100 [129]Z[178]1[164]2700:[130]Z
  140. 8000 [153]"LOAD":[142]
  141. 11001 [151]S[170]4,W2
  142.