home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 January / Ahoy_Magazine_86-01_1986_Double_L.d64 / alarm clock (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  2.2 KB  |  87 lines
  1. 100 poke56,158:clr
  2. 110 print"[147]one moment please..."
  3. 120 forad=40449to40739:readop:ck=ck+op:pokead,op:next
  4. 130 ifck<>31161thenprint"[147]error in data statements.":stop
  5. 140 pm=0:input"[147]what is the hour";h:ifh<0orh>23then140
  6. 150 ifh=0thenh=12:goto180
  7. 160 ifh>12thenh=h-12:pm=-1
  8. 170 ifpm=0thengosub420
  9. 180 ifh=12thenpm=not pm
  10. 190 num=h:gosub370:poke56331,-128*pm+16*fd+sd
  11. 200 input"what is the minute";m:ifm<0orm>59then140
  12. 210 num=m:gosub370:poke56330,16*fd+sd
  13. 220 input"what is the second";s:ifs<0ors>59then140
  14. 230 num=s:gosub370:poke56329,16*fd+sd
  15. 240 print"continuous time display? (y[146]/n[146])"
  16. 250 geta$:ifa$=""then250
  17. 260 ifa$="n"thenpoke40739,0
  18. 270 pm=0:input"[147]what is the alarm hour";ah:ifah<0orah>23then270
  19. 280 ifah>12thenah=ah-12:pm=-1
  20. 290 ifpm=0thengosub420
  21. 300 num=ah:gosub370:poke40737,-128*pm+16*fd+sd
  22. 310 input "what is the alarm minute";am:ifam<0oram>59then270
  23. 320 num=am:gosub370:poke40738,16*fd+sd
  24. 330 print"audio alarm? (y[146]/n[146])"
  25. 340 geta$:ifa$=""then340
  26. 350 ifa$="n"thenpoke40680,0
  27. 360 sys40449:print"[147]":end
  28. 370 rem ** subroutine
  29. 380 a$=str$(num):iflen(a$)=3thenfd=val(mid$(a$,2,1)):goto400
  30. 390 fd=0
  31. 400 sd=val(right$(a$,1))
  32. 410 return
  33. 420 rem ** subroutine
  34. 430 print"a[146]m or p[146]m"
  35. 440 geta$:ifa$=""then440
  36. 450 ifa$="p"thenpm=-1
  37. 460 return
  38. 40449 data120,173,20,3,73,40
  39. 40455 data141,20,3,173,21,3
  40. 40461 data73,116,141,21,3,88
  41. 40467 data169,0,141,8,220,96
  42. 40473 data173,35,159,240,121,160
  43. 40479 data31,173,32,208,153,0
  44. 40485 data216,200,192,40,208,248
  45. 40491 data173,11,220,41,16,74
  46. 40497 data74,74,74,9,176,201
  47. 40503 data176,208,2,169,160,141
  48. 40509 data31,4,173,11,220,41
  49. 40515 data15,9,176,141,32,4
  50. 40521 data173,11,220,41,128,240
  51. 40527 data8,169,144,141,39,4
  52. 40533 data76,93,158,169,129,141
  53. 40539 data39,4,169,186,141,33
  54. 40545 data4,173,10,220,41,112
  55. 40551 data74,74,74,74,9,176
  56. 40557 data141,34,4,173,10,220
  57. 40563 data41,15,9,176,141,35
  58. 40569 data4,169,186,141,36,4
  59. 40575 data173,9,220,41,112,74
  60. 40581 data74,74,74,9,176,141
  61. 40587 data37,4,173,9,220,41
  62. 40593 data15,9,176,141,38,4
  63. 40599 data173,11,220,41,159,205
  64. 40605 data33,159,208,100,173,10
  65. 40611 data220,41,127,205,34,159
  66. 40617 data208,90,173,2,159,208
  67. 40623 data36,169,181,141,0,212
  68. 40629 data169,23,141,1,212,169
  69. 40635 data0,141,5,212,169,240
  70. 40641 data141,6,212,169,33,141
  71. 40647 data4,212,173,32,208,141
  72. 40653 data3,159,169,255,141,2
  73. 40659 data159,206,32,159,208,38
  74. 40665 data174,32,208,236,3,159
  75. 40671 data208,14,173,4,159,141
  76. 40677 data32,208,169,15,141,24
  77. 40683 data212,76,250,158,173,3
  78. 40689 data159,141,32,208,169,0
  79. 40695 data141,24,212,169,30,141
  80. 40701 data32,159,76,26,159,0
  81. 40707 data0,10,173,2,159,240
  82. 40713 data16,173,3,159,141,32
  83. 40719 data208,169,0,141,24,212
  84. 40725 data169,0,141,2,159,173
  85. 40731 data8,220,76,49,234,30
  86. 40737 data0,0,255
  87.