home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 November / 1985-11.d64 / digi clock (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.8 KB  |  65 lines
  1. 10 print"[147]             digi-clock"
  2. 20 print"enter  sys 682 [146] to restart clock after  pressing run/stop-restore.
  3. 30 [153]"    change clock color by entering:
  4. 40 print"       poke 40981, color number
  5. 50 [141]290
  6. 60 [133]"hour";hr
  7. 70 [139]hr[179]1[176]hr[177]12[167][153]"must be in range 1-12":[137]60
  8. 80 h$[178][196](hr):[139][195](h$)[178]2[167]h[178]0:r[178]hr:[137]100
  9. 90 h[178][197]([200](h$,2)):r[178][197]([201](h$,1))
  10. 100 hr[178](h[172]16)[170]r
  11. 110 [133]"min";mi
  12. 120 [139]mi[179]0[176]mi[177]59[167][153]"must be in range 0-59":[137]110
  13. 130 m$[178][196](mi):[139][195](m$)[178]2[167]160
  14. 140 m[178][197]([200](m$,2)):i[178][197]([201](m$,1))
  15. 150 mi[178](m[172]16)[170]i
  16. 160 [133]"sec";se
  17. 170 [139]se[179]0[176]se[177]59[167][153]"must be in range 0-59":[137]160
  18. 180 s$[178][196](se):[139][195](s$)[178]2[167]210
  19. 190 s[178][197]([200](s$,2)):e[178][197]([201](s$,1))
  20. 200 se[178](s[172]16)[170]e
  21. 210 [153]"awaitm or pwaitm";:[133]a$
  22. 220 [139]a$[179][177]"a"[175]a$[179][177]"p"[167]210
  23. 230 [139]a$[178]"p"[167]hr[178]hr[176]128
  24. 240 [139]a$[178]"p"[175]hr[178]146[167]hr[178]18
  25. 250 [139]a$[178]"a"[175]hr[178]18[167]hr[178]146
  26. 260 [153]"press any key when ready to start clock"
  27. 270 [161]g$:[139]g$[178]""[167]270
  28. 280 [151]679,hr:[151]680,mi:[151]681,se:[158]695:[153]"load":[162]
  29. 290 i[178]682
  30. 300 [135] a:[139] a[178]256 [167]320
  31. 310 [151] i,a:i[178]i[170]1:[137]300
  32. 320 i[178]40960
  33. 330 [135] a:[139] a[178]256 [167] [142]
  34. 340 [151] i,a:i[178]i[170]1:[137]330
  35. 350 [131] 120,169,210,141,20,3,169
  36. 360 [131] 2,141,21,3,88,96,32
  37. 370 [131] 170,2,173,167,2,141,11
  38. 380 [131] 220,173,168,2,141,10,220
  39. 390 [131] 173,169,2,141,9,220,169
  40. 400 [131] 0,141,8,220,96,169,54
  41. 410 [131] 133,1,32,0,160,169,55
  42. 420 [131] 133,1,76,49,234,256
  43. 430 [131] 169,32,162,12,157,0,4
  44. 440 [131] 232,224,40,208,248,169,32
  45. 450 [131] 141,0,4,141,9,4,169
  46. 460 [131] 1,162,0,157,0,216,232
  47. 470 [131] 224,12,208,248,169,58,141
  48. 480 [131] 3,4,141,6,4,173,11
  49. 490 [131] 220,72,41,15,24,105,48
  50. 500 [131] 141,2,4,104,72,41,112
  51. 510 [131] 74,74,74,74,24,105,48
  52. 520 [131] 201,48,208,5,169,32,76
  53. 530 [131] 74,160,169,49,141,1,4
  54. 540 [131] 104,42,176,8,169,1,141
  55. 550 [131] 10,4,76,94,160,169,16
  56. 560 [131] 141,10,4,169,13,141,11
  57. 570 [131] 4,173,10,220,72,41,15
  58. 580 [131] 24,105,48,141,5,4,104
  59. 590 [131] 41,240,74,74,74,74,24
  60. 600 [131] 105,48,141,4,4,173,9
  61. 610 [131] 220,72,41,15,24,105,48
  62. 620 [131] 141,8,4,104,41,240,74
  63. 630 [131] 74,74,74,24,105,48,141
  64. 640 [131] 7,4,173,8,220,96,0,256
  65.