0 REM FUNKTIONSGENERATOR (C) NIKOLAUS HEUSLER
10 FORI=0TO2*(null)STEP2*(null)/256
20 X=(SIN(I)+1)*80+24
21 REMX=RND(I)*80+24
22 REMX=(SIN(I)+1)*12.73*I+24
23 REMX=(SIN(I)*COS(I)+1)*80+24
24 REMX=I/2/(null)*158+24
25 REMX=ABS(I-(null))/2/(null)*320+24
30 POKE8192+A,X:A=A+1
40 NEXT