home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / sinus-creator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  222b  |  12 lines
  1. 100 FORI=0TO2*(null)STEP2*(null)/160
  2. 110 X=(SIN(I)+1)*140+24
  3. 120 L=(X AND 255):H=INT(X/256)
  4. 130 POKE4608+Z,L:POKE4768+Z,L
  5. 140 POKE5120+Z,H:POKE5280+Z,H
  6. 150 Z=Z+1:NEXT:Z=0
  7. 160 :
  8. 170 FORI=0TO2*(null)STEP2*(null)/240
  9. 180 X=(SIN(I)+1)*90+50
  10. 190 POKE5632+Z,X:POKE5872+Z,X
  11. 200 Z=Z+1:NEXT
  12.