150
!
160
USING
"3/,K,/";"ENTER
BOTH
FREQ
AND
CAL
SEPARATED
BY
A
COMMA."
170
"ENTERING
A
NEG
FREQ
WILL
BACK
UP."
180
USING
"3/,K,/";"
#
FREQ
CAL%"
190
!
200
FOR
I=1
TO
50
!
50
POINTS
MAX
210
Entry:
!
220
BEEP
200,.02
230
DISP
I;"
Enter
FREQ
(in
GHz)
and
CAL
(in
%).
""0,0
EXITS""";
240
INPUT
"",Freq,Pct
250
IF
Freq=0
OR
Pct=0
THEN
GOTO
Done
260
Freq=Freq*1000
270
IF
Freq<0
THEN
280
I=I-1
290
BEEP
1000,.02
300
GOTO
Entry
310
END
IF
320
IF
I>1
THEN
330
IF
Freq<=Cal(I-1,1)
THEN
340
DISP
"FREQ
MUST
BE
GREATER
THAN
LAST
ENTRY...
TRY
AGAIN!"
350
BEEP
2000,.5
360
WAIT
2
370
GOTO
Entry
380
END
IF
390
END
IF
400
Cal(I,1)=Freq
410
Cal(I,2)=Pct
420
USING
"DD,3X,6D.D,5X,3D.D";I,Freq,Pct
430
NEXT
I
440
!
450
Done:
!
DISPLAY
ENTERED
VALUES
460
Pm_points=I-1
470
OUTPUT
1;CHR$(12)
480
USING
"K,/,K,/";"
ENTERED
VALUES","
#
FREQ
CAL%"
490
FOR
I=1
TO
Pm_points
500
USING
"DD,3X,6D.D,5X,3D.D";I,Cal(I,1),Cal(I,2)
510
NEXT
I
9-6
Automated
Program
Listing
Agilent
85025A/B/D/E
Содержание 85025A
Страница 10: ......
Страница 12: ...Figure 1 1 85025A B D E Detector 1 2 General Information Agilent 85025A B D E...
Страница 24: ......
Страница 37: ......
Страница 66: ......
Страница 68: ......
Страница 71: ...Figure 6 1 Module Exchange Program Agilent 85025A B D E Replaceable Parts 6 3...
Страница 72: ......
Страница 78: ......
Страница 82: ......
Страница 96: ......