home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 August / 64er_Magazin_94-08_1994_Markt__Technik_de_Side_B.d64 / sinus.basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  93b  |  6 lines
  1. 10 a=0:b=1
  2. 20 forx=1to5
  3. 30 fori=0to32:poke4096+b*32+i,4+a*sin((NULL)*i*2/33):next
  4. 40 a=a-1:b=b+1
  5. 50 nextx
  6.