ClrHome
PlotsOff 
AxesOn:ClrDraw
CoordOn
"A*sin((2*¹*F*X+D)"YÚ
0A:0F:0D
FnOff 
ClrHome
Disp "CONNECT"
Disp "MICROPHONE"
Disp "TO CHANNEL 1."
Output(8,10,"[ENTER]")
Pause 
ClrHome
Menu("SELECT MICROPHON","CBL",Z,"ULI",Y,"MPLI",Z)

Lbl Z
0I
Goto 0

Lbl Y
1I

Lbl 0
0W
0T
Menu("COLLECTION MODE","WAVEFORM",1,"WAVEFORM/TRIGR",2,"FREQUENCY",3,"RETURN",4)

Lbl 1
If I=1
{1,1,1}LÚ
If I=0
{1,1,2}LÚ
Send(LÚ)
ClrHome
Disp "HOLD SOUND"
Disp "SOURCE CLOSE"
Disp "TO THE"
Disp "MICROPHONE."
Disp ""
Disp "PRESS [ENTER] TO"
Disp "RECORD SOUND."
Pause 
{3,.000165,99,0,0,0,0,0,1,0}Lß
Send(Lß)
ClrHome
Disp "PRESS [ENTER] TO"
Disp "GET DATA."
Pause 
Disp "ANALYZING..."
Get(LÛ)
Get(LÚ)
prgmPHZGRAPH
ClrHome
Menu("REPEAT","NO",0,"YES",1)

Lbl 2
{1,1,2}Lß
Send(Lß)
If I=1
Then
ClrHome
Disp "THIS MODE WILL"
Disp "ONLY WORK WITH"
Disp "THE CBL OR MPLI"
Disp "MICROPHONE."
Output(8,10,"[ENTER]")
Pause 
Goto 0
End
Lbl 5
ClrHome
Disp "TRIGGER MODE"
Disp ""
Disp "PRESS [ENTER] TO"
Disp "READY THE CBL"
Disp "MICROPHONE."
Pause 
{3,.000165,99,2,1,.2,0,0,1,0}Lß
Send(Lß)
ClrHome
Disp "HOLD SOUND"
Disp "SOURCE CLOSE"
Disp "TO THE"
Disp "MICROPHONE."
Disp "PRESS [ENTER]"
Disp "WHEN CBL SHOWS"
Disp "DONE."
Pause 
Get(LÛ)
Get(LÚ)
Plot1(xyLine,LÚ,LÛ,Ê)
ZoomStat
Text(50,72,"T(S)")
Trace
ClrHome
Menu("REPEAT","NO",0,"YES",5)

Lbl 3
ClrHome
{1,1,6}Lß
Send(Lß)
If I=1
Then
Disp "THIS MODE WILL"
Disp "ONLY WORK WITH"
Disp "THE CBL OR MPLI"
Disp "MICROPHONE."
Output(8,10,"[ENTER]")
Output(8,10,"[ENTER]")
Pause 
Goto 0
End
Lbl 6
ClrHome
Disp "PRESS [ENTER] TO"
Disp "READY CBL."
Pause 
Lbl C
{3,.25,1,2,1,.2}Lß
Send(Lß)
ClrHome
Disp "HOLD SOUND"
Disp "SOURCE CLOSE"
Disp "TO THE"
Disp "MICROPHONE."
Get(LÚ)
ClrHome
Disp "FREQUENCY",LÚ(1)
Output(8,10,"[ENTER]")
Pause 
ClrHome
Menu("REPEAT","NO",0,"YES",C)

Lbl 4
Return