home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111b.d64 / regen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  59 lines
  1. 280 GOSUB60000 : REM HIER KANN FUNKUHRROUTINE EINGEBAUT WERDEN
  2. 535 GOSUB 60170
  3. 5000 REN
  4. 13000 REM ************************************
  5. 13010 REM * REGENMODUL                       *
  6. 13020 REM * UEBERGABE: ANALOGPORTNUMMER IN BS*
  7. 13030 REM ************************************
  8. 13040 RW=0
  9. 13050 NT=28.000:NS=0.946405
  10. 13060 POKE56579,PEEK(56579)OR224
  11. 13070 POKE56577,M*32
  12. 13080 IF RE=1THENRE=0:GOSUB13170
  13. 13090 FORTE=1TO1000
  14. 13100 NEXT
  15. 13110 GOSUB 5000
  16. 13120 AN =INT((FZ-NT)/NS)
  17. 13130 IFAN<0THENAN=0
  18. 13140 RM=AN
  19. 13150 IFAN>=10000THENAN=9999
  20. 13160 RETURN
  21. 13170 REM *************************************
  22. 13180 REM * REGENMESSERRESET                  *
  23. 13190 REM *************************************
  24. 13200 POKE56579,16
  25. 13210 POKE56577,PEEK(56577)ANDNOT16
  26. 13220 POKE56577,PEEK(56577)OR16
  27. 13230 POKE56579,0
  28. 13240 PRINT"TAGESREGENMENGE: "RM
  29. 13250 FORIX=1TO2000:NEXT
  30. 13260 RETURN
  31. 60000 PRINT"BITTE ZEIT EINGEBEN! (HH,MM)"
  32. 60010 INPUTH$,M$
  33. 60020 H1=VAL(LEFT$(H$,1)):H2=VAL(RIGHT$(H$,1))
  34. 60030 IFH1=2THENHH=144:GOTO60060
  35. 60040 IFH1=1ORH1=0THENHH=H1*16:GOTO60060
  36. 60050 PRINT"BITTE FORMAT BEACHTEN (HH,MM)":GOTO60000
  37. 60060 IFH2>=0ANDH2<=9THENHH=HH+H2:GOTO60080
  38. 60070 GOTO60050
  39. 60080 M1=VAL(LEFT$(M$,1)):M2=VAL(RIGHT$(M$,1))
  40. 60090 IFM1<0ORM1>9ORM2<0ORM2>9THEN60050
  41. 60100 MM=M1*16+M2
  42. 60110 POKE56587,HH
  43. 60120 HL=H1*10+H2
  44. 60130 POKE56586,MM
  45. 60140 POKE56585,0
  46. 60150 POKE56584,0:REM UHR STARTET
  47. 60160 RETURN
  48. 60170 HH=PEEK(56587):REM UHR STOPPT
  49. 60180 MM=PEEK(56586)
  50. 60190 ZS=PEEK(56584):REM UHR LAEUFT WEITER
  51. 60200 H1=INT(HH/16):IFH1=9THENH1=2
  52. 60210 H=H1*10+(HHAND15)
  53. 60220 IFH=24THENH=0
  54. 60230 IFHL<>RW ANDH=RWTHENRE=1:REM RESETZEIT ERREICHT
  55. 60240 HL=H
  56. 60250 MI=INT(MM/16)*10+(MMAND15)
  57. 60260 PRINT"              [157][157][157][157][157][157][157][157][157][157][157][157][157][157]"H":"MI" UHR"
  58. 60270 RETURN
  59.