home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 53 / Commodore_Disc_53_19xx_-_de.d64 / itime64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  77 lines
  1. 100 rem ==itime64===============c64
  2. 110 :
  3. 120 rem written by a.m.
  4. 130 :
  5. 140 rem ====anpassung==============
  6. 150 :
  7. 160 data 0,0:rem zeile,spalte
  8. 170 data 176:rem revers (48 normal)
  9. 180 :
  10. 190 rem ====wichtige adressen======
  11. 200 :
  12. 210 rem sys49310 installieren
  13. 220 rem sys49316 aus-/einschalten
  14. 230 rem sys49152 ausgaberoutine
  15. 240 rem 49216 adr. fuer normal/revers
  16. 250 rem 49218-49219 adr. fuer position
  17. 260 :
  18. 270 rem ===definitionen=============
  19. 280 :
  20. 290 deffnur(n)=val(mid$(ur$,3*n+1,2))
  21. 300 deffnbc(ur)=ur+6*int(ur/10)
  22. 310 uh=56331:goto480
  23. 320 :
  24. 330 rem ===== uhr stellen =========
  25. 340 :
  26. 350 printchr$(147)"uhrzeit  00-00-00[157][157][157][157][157][157][157][157][157][157]";
  27. 360 inputur$
  28. 370 pokeuh+3,peek(uh+3)or128:rem 50hz
  29. 380 pokeuh+4,peek(uh+4)and127:rem uhr
  30. 390 ur=fnur(0):ifur>=12thenur=ur+68
  31. 400 fori=0to2:pokeuh-i,fnbc(ur)
  32. 410 ur=fnur(i+1):next
  33. 420 print:print"start auf tastendruck"
  34. 430 geta$:ifa$=""then430
  35. 440 pokeuh-3,0:return
  36. 450 :
  37. 460 rem ====== hauptprogramm =======
  38. 470 :
  39. 480 gosub350:printchr$(147);
  40. 490 ready:readx:readrv:gosub580
  41. 500 ad=40*y+1024+x
  42. 510 ah=int(ad/256):al=ad-256*ah
  43. 520 poke49218,al:poke49219,ah
  44. 530 poke49216,rv
  45. 540 sys49310:end
  46. 550 :
  47. 560 rem ====== maschinencode =======
  48. 570 :
  49. 580 fori=49152to49324
  50. 590 reada:pokei,a:next:return
  51. 600 data 173,011,220,201,018,208,004
  52. 610 data 169,000,240,012,144,010,248
  53. 620 data 233,104,216,201,036,208,002
  54. 630 data 169,018,162,000,032,052,192
  55. 640 data 160,010,185,000,220,032,045
  56. 650 data 192,136,192,008,208,245,173
  57. 660 data 008,220,096,072,169,010,032
  58. 670 data 063,192,104,072,074,074,074
  59. 680 data 074,032,063,192,104,041,015
  60. 690 data 009,048,157,000,004,232,096
  61. 700 data 165,162,041,015,208,003,032
  62. 710 data 000,192,076,049,234,072,138
  63. 720 data 072,152,072,169,127,141,013
  64. 730 data 221,172,013,221,048,039,032
  65. 740 data 002,253,208,003,108,002,128
  66. 750 data 032,188,246,032,225,255,208
  67. 760 data 023,032,021,253,032,163,253
  68. 770 data 173,014,220,009,128,141,014
  69. 780 data 220,032,139,192,032,024,229
  70. 790 data 108,002,160,076,114,254,169
  71. 800 data 070,141,020,003,169,082,141
  72. 810 data 024,003,169,192,141,021,003
  73. 820 data 141,025,003,096,120,032,139
  74. 830 data 192,088,096,173,072,192,073
  75. 840 data 032,141,072,192,096
  76. 850 rem ======ende==================
  77.