Filter
Top Products
o
o
t
o
I
I
o
o
o
t
a
t
a
I
)
I
a
t
o
a
t
a
o
o
t
o
o
o
o
t
)
o
I
o
)
o
o
o
o
o
o
a
o
t
237A
2380
2390
2400
2410
2420
2$A
2440
3000
3010
3020
3030
3040
3050
3060
3070
3080
3090
3100
31
10
3120
3130
3140
3150
3160
3170
3180
31
90
3200
3210
3220
3230
3240
3250
3260
3270
3280
51-sl+1
T1-tl+1
Next
i
Print
#a1:i$
Print
Print
Print "...
FINISHED'.."
Goto 10000
!
Acquire
Waveform
and
Settings.
i
X?
i.r
500
point
waveform,
t$
G
tower
readout,
lm$
is
upper
readout,
and
€g
is
an
er-i
i"""ag"
Delete
var
eg,hg,lg,m$,x9
Z-O
Dim
h$
to
1100
Integer
x9
(1000)
Dim
l$
to
So,m$
to
50
Print
#a1
:"SAVEA
OFF;DRECAL
A:",wl
Print
#al:"ERR?"
Input
#al:eg
E$*seg(e$,5;2)
lf
e$<>'62'then
goto
3190
v-0
X9:0
M$-""
L$*",'
Goto
3280
V-1
Print
#al:"UPRDO?"
lnput
#al:m$
Print
#al:"LORDO?'
Input
#a1:l$
M$-seg$(m$,8,40)
L$-seg$(l$,8,40)
PTint
#a1
:NVFM
WFID:A,ENCDG:BIN;CURVE?..
lnput
using "la,*Bo/o'dels
',"
#al
:h$,x9
Z-1
Return
Mafntenance
-
494A1494Ap
Service
Vot.
1
4000
!
Remove
memory
settings
(S$)
from
SPECTRUM
ANALYZER
4010
Z-0
4020
Delete
var
sg
4030
Dim
s$
to 700
4040
Print
#al
:'RECALL,,:s1
4050
Print
#a1:.ERR?,
4060
Input
#al:eg
4070
E$-seg$(e$,S,2)
4080
lf
e$<>'62"
then
goto
4120
a090
V1:0
4100
S$-"NULL"
4110
Goto
4170
4120
Print
#al
:,,SET?,'
4130
Input
#a1:s$
4140
Print
#al:"ReS
OFF"
4150
V1-1
4160
Z-1
41
70
Open #1
00:"FtL"&str$(r1)&'{opE:REp,stz_1
020),,
4180
Print
#100:v'l,s$
4190
Close 100
4200
Return
6-65