home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / timer-servo (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  443b  |  20 lines
  1. 10 rem **** timer-servo ****
  2. 50 data 120,162,73,160,3,142,20,3
  3. 51 data 140,21,3,88,96
  4. 52 data 165,252,141,4,221,165,253
  5. 53 data 141,5,221,169,31,141,14,221
  6. 54 data 76,49,234
  7. 56 data 76,49,234
  8. 100 p0=0:p1=5:poke252,p0:poke253,p1:we=p0+256*p1
  9. 110 fori=828to858:readk:pokei,k:next
  10. 120 sys828
  11. 140 if peek(203)=4then200
  12. 150 if peek(203)=5then250
  13. 190 goto 140
  14. 200 we=we+1
  15. 205 if we<500 then we=500
  16. 210 if we>2000 then we=2000
  17. 220 printwe;:p1=int(we/256):p0=we-256*p1
  18. 230 poke252,p0:poke253,p1:goto140
  19. 250 we=we-1:goto205
  20.