Technical data

User’s and Service Guide 5-17
Controlling the Test Set and Making Measurements
Commands
1320 PRINT TABXY(1,29)," "
1330 PRINT TABXY(1,28),"All ports are terminated
into 50 ohms."
1340 CASE "RESET"
1350 IF Controller$="H" THEN
1360 Output_cmd$="*rst"
1370 OUTPUT Addr;Output_cmd$ !
sent via GPIB
1380 ELSE
1390 Output_cmd$="35"
1400 OUTPUT Addr;"PARALGPIO"
1410 OUTPUT Addr;"PARAOUT"&Output_cmd$&";"!
sent via Centronics Port
1420 END IF
1430 PRINT TABXY(1,28)," "
1440 PRINT TABXY(1,29)," "
1450 PRINT TABXY(1,28),"Test set reset; Port 1
to REFL & Port 2 to TRANS."
1460 CASE ELSE
1470 Command$=UPC$(Command$)
1480 IF POS(Command$,"SWITCH") THEN
1490 Nu$=TRIM$(Command$[8,Command_length])
1491 SELECT Nu$
1492 CASE "10","11", "12", "14","15", "16",
"18", "19", "51", "53", "55", "57",
"62" TO "72", "74"
1510 OUTPUT 712;"sw"&Nu$;"?"
1520 ENTER 712;Count$
1530 PRINT TABXY(1,30)," "
1540 PRINT TABXY(1,30),"switch number
";Nu$;" has ";Count$
1550 CASE ELSE
1560 DISP "Installed switch numbers are
10, 11, 12, 14, 15, 16, 18, 19,
51, 53, 55, 57, 62 thru 72 and 74.
Try again! Entered ";Command$
1570 BEEP 300,.1