home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8602.d64 / echtzeituhr (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  64 lines
  1. 110 REM *    BEISPIELPROGRAMM ZUR    *
  2. 120 REM *   NUTZUNG DER ECHTZEITUHR  *
  3. 140 CIA = 56576:REM BASISADRESSE CIA #2
  4. 150 REM 50 HERTZ NETZFREQUENZ
  5. 160 POKE CIA+15,PEEK(CIA+15) OR 128
  6. 170 PRINT "ALARMZEIT SETZEN"
  7. 180 GOSUB 1000
  8. 190 GOSUB 2000
  9. 200 REM ALARMZEITFLAG
  10. 210 POKE CIA + 15,PEEK (CIA+15) OR 128
  11. 220 GOSUB 3000
  12. 230 PRINT "UHRZEIT SETZEN"
  13. 240 GOSUB 1000
  14. 250 GOSUB 2000
  15. 260 REM UHRZEITFLAG
  16. 270 POKE CIA + 15,PEEK (CIA+15) AND 127
  17. 280 GOSUB 3000
  18. 290 GOSUB 4000
  19. 300 PRINT CHR$ (147)
  20. 310 PRINT H;":";M;":";S;",";Z
  21. 320 REM ALARM ?
  22. 330 A = PEEK (CIA+13)
  23. 340 POKE CIA+13,A
  24. 350 IF (A AND 4) = 0 GOTO 290
  25. 360 FOR I=0 TO 20:PRINT "ALARM":NEXT
  26. 370 END
  27. 1000 REM EINGABE
  28. 1010 INPUT"0 = AM  1 = PM ";FL
  29. 1020 IF FL <> 0 AND FL <> 1 THEN 1010
  30. 1030 INPUT"STD.,MIN.,SEK.,1/10 SEK";H,M,S,Z
  31. 1040 RETURN
  32. 1050 RETURN
  33. 2000 REM UMRECHNUNG IN BCD-FORMAT
  34. 2010 H1=INT (H/10)
  35. 2020 H2 = H - H1*10
  36. 2030 H = H1*16 + H2
  37. 2040 M1 = INT (M/10)
  38. 2050 M2 = M - M1*10
  39. 2060 M = M1*16 + M2
  40. 2070 S1 = INT (S/10)
  41. 2080 S2 = S - S1*10
  42. 2090 S = S1*16 + S2
  43. 2100 RETURN
  44. 3000 REM REGISTER SETZEN
  45. 3010 H = H + FL * 128:REM AM/PM
  46. 3020 POKE CIA + 11,H
  47. 3030 POKE CIA + 10,M
  48. 3040 POKE CIA + 9,S
  49. 3050 POKE CIA + 8,Z
  50. 3060 RETURN
  51. 4000 REM REGISTER LESEN
  52. 4010 H = PEEK (CIA+11)
  53. 4020 FL = (H AND 128)/ 128 * 12
  54. 4030 H1 = (H AND 16) / 16 * 10
  55. 4040 H = H1 + FL + (H AND 15)
  56. 4050 M = PEEK (CIA+10)
  57. 4060 M1 = (M AND 112) / 16 * 10
  58. 4070 M = M1 + (M AND 15)
  59. 4080 S = PEEK (CIA+9)
  60. 4090 S1 = (S AND 112) / 16 * 10
  61. 4100 S = S1 + (S AND 15)
  62. 4110 Z = PEEK (CIA+8) AND 15
  63. 4120 RETURN
  64.