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