home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh23c.d64 / timer-servo (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  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.