home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 53 / Commodore_Disc_53_19xx_-_de.d64 / time (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  693b  |  30 lines
  1. 100 deffnur(n)=val(mid$(ur$,3*n+1,2))
  2. 110 deffnbc(ur)=ur+6*int(ur/10)
  3. 115 deffndz(ur)=ur-6*int(ur/16)
  4. 120 uh=56331:goto360
  5. 130 :
  6. 140 rem ===== uhr stellen =========
  7. 150 printchr$(147)"uhrzeit  00-00-00[157][157][157][157][157][157][157][157][157][157]";
  8. 160 inputur$
  9. 170 pokeuh+3,peek(uh+3)or128:rem 50hz
  10. 180 pokeuh+4,peek(uh+4)and127:rem uhr
  11. 190 ur=fnur(0):ifur>=12thenur=ur+68
  12. 200 fori=0to2:pokeuh-i,fnbc(ur)
  13. 210 ur=fnur(i+1):next
  14. 220 print:print"start auf tastendruck"
  15. 230 geta$:ifa$=""then230
  16. 240 pokeuh-3,0:return
  17. 250 :
  18. 260 rem ===== uhr lesen ==========
  19. 270 ur=fndz(peek(uh)):ifur=12thenur=0
  20. 280 ifur>12thenur=ur-68
  21. 290 ifur=24thenur=12
  22. 300 ur$="":fori=1to3
  23. 310 ur$=ur$+chr$(48+int(ur/10))+chr$(48+ur-10*int(ur/10))+":"
  24. 320 ur=fndz(peek(uh-i)):next
  25. 330 ur$=left$(ur$,8):return
  26. 340 :
  27. 350 rem ====== hauptprogramm =======
  28. 360 gosub150:printchr$(147);
  29. 370 gosub270:printchr$(19)ur$;:goto370
  30.