REAL	X(100),Y(100),S(100)
1	CALL	QPLOT(X,Y,S,60,0,NCHAR)
	CALL ASKF('Y Orogin ? ',YORG,,,0.)
	CALL ASKF('Y height ? ',YSIZ,YORG/10.**6,,1.)
	CALL ASKF('Y stats  ? ',YSTS,0.,1.,.1)
	type *,YORG,YSIZ,YSTS
	DO 10 I = 1,60
	THETA	= 6*I
	X(I)	= THETA
	Y(I)	= YORG + YSIZ*SIND(THETA)
	S(I)	= YSIZ*YSTS*COSD(THETA)
10	CONTINUE
20	WRITE(5,1000)
	READ(5,1001,ERR=1,end=1) MODE,NCHAR
	CALL	QPLOT(X,Y,S,60,MODE,NCHAR)
	GO TO 20
1000	FORMAT(' Mode = -1(plot) 0(erase) 1(replot)'
	1 /' CHAR=  0(line)  1-7(line+char)  -(char only)  +100(sts)'
	2 /'$ENTER MODE,CHAR: ')
1001	FORMAT(2I10)
900	CALL	ERASE
	END