home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / clock (.txt) < prev    next >
Commodore BASIC  |  1989-07-18  |  2KB  |  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 PRINT"    CHANGE CLOCK COLOR BY ENTERING:
  4. 40 [153]"       POKE 40981, COLOR NUMBER
  5. 50 GOSUB290
  6. 60 INPUT"HOUR";HR
  7. 70 IFHR<1ORHR>12THENPRINT"MUST BE IN RANGE 1-12":GOTO60
  8. 80 H$=STR$(HR):IFLEN(H$)=2THENH=0:R=HR:GOTO100
  9. 90 H=VAL(LEFT$(H$,2)):R=VAL(RIGHT$(H$,1))
  10. 100 HR=(H*16)+R
  11. 110 INPUT"MIN";MI
  12. 120 IFMI<0ORMI>59THENPRINT"MUST BE IN RANGE 0-59":GOTO110
  13. 130 M$=STR$(MI):IFLEN(M$)=2THEN160
  14. 140 M=VAL(LEFT$(M$,2)):I=VAL(RIGHT$(M$,1))
  15. 150 MI=(M*16)+I
  16. 160 INPUT"SEC";SE
  17. 170 IFSE<0ORSE>59THENPRINT"MUST BE IN RANGE 0-59":GOTO160
  18. 180 S$=STR$(SE):IFLEN(S$)=2THEN210
  19. 190 S=VAL(LEFT$(S$,2)):E=VAL(RIGHT$(S$,1))
  20. 200 SE=(S*16)+E
  21. 210 PRINT"A[146]M OR P[146]M";:INPUTA$
  22. 220 IFA$<>"A"ANDA$<>"P"THEN210
  23. 230 IFA$="P"THENHR=HROR128
  24. 240 IFA$="P"ANDHR=146THENHR=18
  25. 250 IFA$="A"ANDHR=18THENHR=146
  26. 260 PRINT"PRESS ANY KEY WHEN READY TO START CLOCK"
  27. 270 GETG$:IFG$=""THEN270
  28. 280 POKE679,HR:POKE680,MI:POKE681,SE:SYS695:PRINT"[147]":NEW
  29. 290 I=682
  30. 300 READA:IFA=256THEN320
  31. 310 POKEI,A:I=I+1:GOTO300
  32. 320 I=40960
  33. 330 READA:IFA=256THENRETURN
  34. 340 POKEI,A:I=I+1:GOTO330
  35. 350 DATA 120,169,210,141,20,3,169
  36. 360 DATA 2,141,21,3,88,96,32
  37. 370 DATA 170,2,173,167,2,141,11
  38. 380 DATA 220,173,168,2,141,10,220
  39. 390 DATA 173,169,2,141,9,220,169
  40. 400 DATA 0,141,8,220,96,169,54
  41. 410 DATA 133,1,32,0,160,169,55
  42. 420 DATA 133,1,76,49,234,256
  43. 430 DATA 169,32,162,12,157,0,4
  44. 440 DATA 232,224,40,208,248,169,32
  45. 450 DATA 141,0,4,141,9,4,169
  46. 460 DATA 1,162,0,157,0,216,232
  47. 470 DATA 224,12,208,248,169,58,141
  48. 480 DATA 3,4,141,6,4,173,11
  49. 490 DATA 220,72,41,15,24,105,48
  50. 500 DATA 141,2,4,104,72,41,112
  51. 510 DATA 74,74,74,74,24,105,48
  52. 520 DATA 201,48,208,5,169,32,76
  53. 530 DATA 74,160,169,49,141,1,4
  54. 540 DATA 104,42,176,8,169,1,141
  55. 550 DATA 10,4,76,94,160,169,16
  56. 560 DATA 141,10,4,169,13,141,11
  57. 570 DATA 4,173,10,220,72,41,15
  58. 580 DATA 24,105,48,141,5,4,104
  59. 590 DATA 41,240,74,74,74,74,24
  60. 600 DATA 105,48,141,4,4,173,9
  61. 610 DATA 220,72,41,15,24,105,48
  62. 620 DATA 141,8,4,104,41,240,74
  63. 630 DATA 74,74,74,24,105,48,141
  64. 640 DATA 7,4,173,8,220,96,0,256
  65.