Agilent Technologies 8960 10 Series Reference Manual page 208

Comprehensive Program Example
1010 ENTER Test_set;Orfs_mod_offs(*),Tx_power,Pwr_30khz,Orfs_mod_res(*)
1020 PRINT "ORFS Mod Results: TCH =";Traf_chan;"and TXL =";Ms_pwr_lvl
1030 PRINT USING "18X,""30 KHz BW Power ="",M2D.2D,"" dBm""";Pwr_30khz
1040 PRINT "
1050 PRINT "
1060 FOR J=1 TO Points
1070
1080 NEXT J
1090 DEALLOCATE Orfs_mod_res(*),Orfs_mod_offs(*)
1100 END IF
1110 ELSE
1120 GOSUB Bad_measurement
1130 END IF
1140 END SELECT
1150 EXIT IF Meas_done$="NONE"
1160 END LOOP
1170 NEXT Ms_pwr_lvl
1180 NEXT Traf_chan
1190 OUTPUT Test_set;"CALL:END;CONN:STAT?"
1200 ENTER Test_set;Call_connected
1210 IF Call_connected THEN
1220 BEEP
1230 PRINT "Unable to complete BS termination. Program terminated."
1240 STOP
1250 END IF
1260 PRINT "Program completed."
1270 STOP
1280 !
1290 Bad_measurement: !
1300 PRINT "Measurement error: "&Meas_done$
1310 PRINT "Measurement Integrity value =";Integrity
1320 RETURN
1330 !
1340 END
1350 !
1360 SUB Chk_err_msg_que
1370 COM /Address/ Test_set
1380 DIM Error_message$[255]
1390 Error_flag=0
1400 LOOP
1410 OUTPUT Test_set;"SYST:ERR?"
1420 ENTER Test_set;Error_number,Error_message$
1430 EXIT IF Error_number=0
1440 IF Error_number=-350 THEN
1450 Error_flag=1
1460 PRINT "Error Message Queue overflow. Error messages have been lost."
1470 ELSE
1480 Error_flag=1
1490 PRINT Error_number,Error_message$
1500 END IF
1510 END LOOP
1520 IF NOT Error_flag THEN
1530 PRINT "No errors in Error Message Queue."
208
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Reference_Manual\Chapters\prog_prog_guide_comprehensive_prog_example.fm
Offset(kHz)
-----------
PRINT USING Orfs_image;(Orfs_mod_offs(J)/1.E+3),Orfs_mod_res(J)
Level(dB)"
---------"