@@@@@@@@@@@@@@@@@@@@@@@
C-8K4WTV4A @1969

01.10 SET DX=1E-6
01.20 ASK !,?C?,?D?,?K?
01.30 SET X0=0;SET XD=.5
01.40 FOR XX=X0,XD,5;DO 2
01.50 T ! "SEARCH TERMINATED";Q

02.05 I (X0-XX) 2.1; D 2.2; R
02.10 S Y(1)=YT; S X(1)=XT
02.20 S X=XX; D 2.72;S YT=Y;S XT=X
02.30 I (Y(1)*Y) 2.4;R
02.40 S IQ=2
02.50 S X(IQ)=X; S Y(IQ)=Y
02.60 I (X(2)-X(1)-DX)2.95
02.70 S DY=Y(1)-Y(2);S X=(X(2)*Y(1)-X(1)*Y(2))/DY
02.72 D 3; I (Y^2)2.95,2.95
02.80 S Y(3-IQ)=.5*Y(3-IQ);S IQ=1;I (Y/DY)2.4,2.95,2.5
02.95 D 4;R

03.10 SET Y=FSIN(C*X)*K
03.20 T %,!,X,Y

04.10 T %,!,"ROOT=",X
*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@w