100 '           programma 8         10 SINUSCURVEN 
110 CLEAR ,19202 : SCREEN 105,,3,3
120 DEF FNX(X)=INT(1.55*(50+X)+.5)
130 CLS: KEY OFF
140 V=160:K=160:H=.5:P=4*ATN(1)/9:C=2*4*ATN(1)/320
150 FOR N=0 TO 9
160     X1=0: Y1=INT(V-K*SIN(N*P)+H)
170	   FOR J=5 TO 320 STEP 5
180		  X2=J: Y2=INT(V-K*SIN(C*J+N*P)+H)
190		  LINE (FNX(X1),Y1)  (FNX(X2),Y2),1
200		  X1=X2 : Y1=Y2
210	   NEXT J		  
220 NEXT N
230 LINE (FNX(0),0)(FNX(320),320),1,B	
240 A$=INKEY$: IF A$="" THEN 240
250 CLS: KEY ON: END
