TI-83 waves

This program plots a sine wave and allows easy change of the amplitude and wavelength.

	\start83\
	\comment=manipulate a sine wave
	\name=WAVE
	Lbl R
	1\->\A:1\->\F:0\->\L
	"A*sin(F*X*2*\pi\)"\->\Y\1\
	ClrHome:GridOff:AxesOn:FnOff :FnOn 1
	PlotsOff :Connected
	LabelOff:RectGC:ExprOff
	Radian:Fix 2
	0\->\Xmin:1.5\->\Xmax:1\->\Xres:1\->\Yscl:1\->\Xscl
	\(-)\2\->\Ymin:2\->\Ymax
	Lbl M
	Menu("  GrapH a Wave  ","GrapH",G,"AMpLItude",A,"FreQ",F,"LabeLs On/OFF",L,"Reset",R,"QuIt",Q)
	Lbl G
	DispGraph
	Text(0,63,"<ENTER>")
	If L\!=\0
	Then
	Text(0,2,"AMp=",A)
	Text(0,30,"FrEQ=",F)
	End
	Trace
	Goto M
	Lbl A
	ClrHome
	Disp "Enter tHe"
	Disp "aMpLItude"
	Prompt A
	Goto M
	Lbl F
	ClrHome
	Disp "Enter tHe"
	Disp "FreQuencY"
	Prompt F
	Goto M
	Lbl L
	ClrHome
	not(L)\->\L
	ClrDraw
	Goto M
	Lbl Q
	ClrHome
	Disp ("PrOGraM wave.83p")
	Disp ("Rev 2/13/03")
	Stop
	\stop83\