home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9104a.d64 / generator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  245b  |  11 lines
  1. 0 REM FUNKTIONSGENERATOR (C) NIKOLAUS HEUSLER
  2. 10 FORI=0TO2*(null)STEP2*(null)/256
  3. 20 X=(SIN(I)+1)*80+24
  4. 21 REMX=RND(I)*80+24
  5. 22 REMX=(SIN(I)+1)*12.73*I+24
  6. 23 REMX=(SIN(I)*COS(I)+1)*80+24
  7. 24 REMX=I/2/(null)*158+24
  8. 25 REMX=ABS(I-(null))/2/(null)*320+24
  9. 30 POKE8192+A,X:A=A+1
  10. 40 NEXT
  11.