home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / ringmod (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  273b  |  22 lines
  1. 100 rem demonstration
  2. 110 rem fuer ringmodulation
  3. 120 :
  4. 130 (NULL):(NULL) 15
  5. 140 (NULL) 1,0,0,15,0
  6. 150 (NULL) 3,0,0,15,0
  7. 160 :
  8. 170 (NULL) 1,1,r  :rem ringmodulation
  9. 180 (NULL) 3,3,30
  10. 190 :
  11. 200 (NULL) 3,on
  12. 210 (NULL) 1,on
  13. 220 :
  14. 230 for i=1 to 3000 step 100
  15. 240 for x=1 to 3000 step 50
  16. 250 (NULL) 3,x
  17. 260 next
  18. 270 (NULL) 1,i
  19. 280 next
  20. 290 :
  21. 300 (NULL)
  22.