Technical data

5-16 User’s and Service Guide
Controlling the Test Set and Making Measurements
Commands
1020 DISP "Port selections MUST be different if
non-zero; Range= 0 to 16.
Entered """&Current$&","&Command$&""""
1030 BEEP 1500,.3
1040 WAIT 5
1050 ELSE
1060 Set_switches(Addr,"REFL",VAL$(Refl),
Controller$)
1070 ! Sets Ports
1080 Set_switches(Addr,"TRANS",VAL$(Trans),
Controller$)
1090 ! Sets Ports
1100 PRINT TABXY(1,28)," "
1110 PRINT TABXY(1,28),"Current Port = ";Refl;"
to Reflection Port"
1120 PRINT TABXY(1,29)," "
1130 PRINT TABXY(1,29),"Current Port = ";Trans;"
to Transmission Port"
1140 END IF
1150 ELSE
1160 SELECT UPC$(Command$)
1170 CASE "SERIAL"
1180 OUTPUT 712;"sn?"
1190 ENTER 712;Sn$
1200 PRINT TABXY(1,29)," "
1210 PRINT TABXY(1,29),"serial number is ";Sn$
1220 CASE "ALL_TERM"
1230 IF Controller$="H" THEN
1240 Output_cmd$="*all_term"
1250 OUTPUT Addr;Output_cmd$
1260 ELSE
1270 Output_cmd$="34"
1280 OUTPUT Addr;"PARALGPIO;"
1290 OUTPUT Addr;"PARAOUT"&Output_cmd$&";"
1300 END IF
1310 PRINT TABXY(1,28)," "