home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 August / 64er_Magazin_93-08_1993_Markt__Technik_de_Side_A.d64 / sinmaker2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  182b  |  10 lines
  1. 5 ad=8192
  2. 10 fort=0to2*(NULL)step(2*(NULL))/256
  3. 20 e=30+(sin(t*8)*25)
  4. 25 pokead+n,e:pokead+256+n,e
  5. 30 n=n+1:next:n=512
  6. 40 fort=0to2*(NULL)step(2*(NULL))/256
  7. 50 e=35+(sin(t*3)*30)
  8. 55 pokead+n,e:pokead+256+n,e
  9. 60 n=n+1:next
  10.