home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 93xx / 9308a.d64 / sinmaker1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  183b  |  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*10)*30)
  8. 55 POKEAD+N,E:POKEAD+256+N,E
  9. 60 N=N+1:NEXT
  10.