TI-83 Frequency Measurement

This program graphs a sound measurement made by the CBL and CBL microphone.

		\start83\
		\comment=
		\name=FREQ
		\file=F:\WEBPAGES\CAL\PROGRAMS\FREQ.TXT
		Lbl S
		ClrHome
		Disp "   SettInG up"
		Disp "     TI-83"
		LabelOff:PlotsOff
		FnOff :ClrDraw:Full
		Fix 5
		seq(I,I,0,.0511,.0001)\->\L\1\
		"FreQ.83p 2/25/03"\->\Str1

		Lbl C
		Disp " "
		Disp "  CHecKInG TI83"
		Disp "   tO CBL LInK"
		Send({1,0})
		{0}\->\L\2\
		Send({7})
		Get(L\2\)
		If dim(L\2\)=1 and L\2\(1)=0
		Then
		ClrHome
		Menu("CabLe LInK ErrOr!  ","TrY AGaIn",C,"EXIt",M)
		End
		Disp " "
		Disp "   SettInG up"
		Disp "      CBL"
		Send({1,1,2,0,0,0})
		Send({2,1,1})
		{0}\->\L\2\

		Lbl M
		Menu(Str1,"RecOrd",R,"Restart",S,"CHecK CBL",L,"HeLp",H,"QuIt",Q)

		Lbl R
		ClrHome
		Disp "   RecOrdInG"
		Send({3,.0001,512,0,0,0,0,0,0,0})
		Disp ""
		Disp "  GettInG data"
		Get(L\2\)

		Lbl G
		ClrDraw
		ClrHome
		If dim(L\2\)=1 and L\2\(1)=0
		Then
		Disp "   Data ErrOr  "
		Disp " Press ENTER"
		Disp "  FOr Menu  "
		Pause
		Goto M
		End
		max(L\1\)/2\->\Xmax
		min(L\1\)\->\Xmin
		max(L\1\)/10\->\Xscl
		min(L\2\)\->\A
		max(L\2\)\->\B
		B+(B-A)/20\->\Ymax
		A-(B-A)/5\->\Ymin
		max(L\2\)/10\->\Yscl
		AxesOn
		Plot1(xyLine,L\1\,L\2\,\dot\)
		DispGraph
		Text(0,63,"")
		Trace
		Goto M

		Lbl L
		ClrHome
		Output(1,1,"GettInG status")
		{0}\->\L\2\
		Send({7})
		Get(L\2\)
		Fix 0
		If dim(L\2\)=1 and L\2\(1)=0
		Then
		Output(3,6,"NO LInK")
		Else
		Output(3,1,"ErrOr cOde=")
		Output(3,12,L\2\(2))
		End
		Output(5,4,"Press ENTER")
		Output(6,6,"FOr Menu"
		Pause
		Fix 5
		Goto M

		Lbl H
		ClrHome
		Disp " HeLp HeLp HeLp"
		Disp " "
		Disp "  SOMebOdY !!"
		Disp " We need HeLp"
		Disp ""
		Disp " OH, aH, Ha Ha "
		Disp "  Press Enter"
		Pause
		Goto M

		Lbl Q
		ClrHome
		Disp Str1
		Stop

		\stop83\