@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E A
C-FOCAL , 8/68

01.02 T "DAPED SNE ON AXES",!
01.03 ASK "SINE WAVE AMPLITUDE", AMPL,!
01.04 ASK "DAPIN @ACTOR COEFFICIENT", T,!
01.05 F K=0,71; TYPE "."
01.06 T !; F I=0,.5,15; DO1.11;T "*"; DO 3
01.07 QUI
01.11 F J=0,34+AMPL*SIN(I)*FEXP(-*I); DO 2; T " 

02.10 I (J-35) 2.3,2.2,2.3
02.20 T ":"
02.30 RETURN

03.10 I (34-J) 3.3,32; F =J,33; T " "
03.20 T ":"
03.30 T !; RETRN
*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@