home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / sinus-creator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  222b  |  12 lines
  1. 100 fori=0to2*(NULL)step2*(NULL)/160
  2. 110 x=(sin(i)+1)*140+24
  3. 120 l=(x and 255):h=int(x/256)
  4. 130 poke4608+z,l:poke4768+z,l
  5. 140 poke5120+z,h:poke5280+z,h
  6. 150 z=z+1:next:z=0
  7. 160 :
  8. 170 fori=0to2*(NULL)step2*(NULL)/240
  9. 180 x=(sin(i)+1)*90+50
  10. 190 poke5632+z,x:poke5872+z,x
  11. 200 z=z+1:next
  12.