home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 June / 64er_Magazin_95-06_1995_Markt__Technik_de_Side_A.d64 / sinusberechner (.txt) < prev   
Encoding:
Commodore BASIC  |  1995-01-01  |  164 b   |  9 lines
  1. 1 rem sinusberechnung fuer plasma
  2. 2 :
  3. 10 fori=0to255
  4. 20 a=abs(sin(i/255*(NULL))*64)
  5. 30 poke 32768+i,a*2
  6. 40 poke 33280+i,a:poke 33536+i,a
  7. 50 poke 33024+i,(sin(i/128*(NULL))+1)*50
  8. 60 next
  9.