Agilent Technologies 8960 10 Series Reference Manual page 205

2520 NEXT Ms_pwr_lvl
2530 !
2540 !*****************************************************************************
2550 ! Step 7: Perform an Intra-cell Handover
2560 !*****************************************************************************
2570 !
2580 NEXT Traf_chan
2590
2600 !
2610 !*****************************************************************************
2620 ! Step 8: Disconnect the Mobile Station From the BSE
2630 !*****************************************************************************
2640 !
2650 OUTPUT Test_set;"CALL:END"
2660 OUTPUT Test_set;"CALL:CONN:STAT?"
2670 ENTER Test_set;Call_connected
2680 IF Call_connected THEN
2690 BEEP
2700 PRINT "Unable to complete BS termination. Program terminated."
2710 STOP
2720 END IF
2730 PRINT "Program completed."
2740 STOP
2750 !
2760 Bad_measurement: !
2770 PRINT "Measurement error: "&Meas_done$
2780 PRINT "Measurement Integrity value =";Integrity
2790 RETURN
2800 !
2810 END ! End of program
2820 !
2830 SUB Chk_err_msg_que
2840 COM /Address/ Test_set
2850 DIM Error_message$[255]
2860 Error_flag=0
2870 LOOP
2880 OUTPUT Test_set;"SYST:ERR?"
2890 ENTER Test_set;Error_number,Error_message$
2900 EXIT IF Error_number=0
2910 IF Error_number=-350 THEN
2920 Error_flag=1
2930 PRINT "Error Message Queue overflow. Error messages have been lost."
2940 ELSE
2950 Error_flag=1
2960 PRINT Error_number,Error_message$
2970 END IF
2980 END LOOP
2990 IF NOT Error_flag THEN
3000 PRINT "No errors in Error Message Queue."
3010 SUBEXIT
3020 END IF
3030 STOP
3040 SUBEND
S:\Hp8960\E1960A GSM Mobile Test Application\A.04 Release\Reference_Manual\Chapters\prog_prog_guide_comprehensive_prog_example.fm
! The handover is performed at the top of the FOR loop at line
! 1300
Comprehensive Program Example
205