Technical data

User’s and Service Guide 5-15
Controlling the Test Set and Making Measurements
Commands
720 LOOP
730 Refl=0
740 Trans=0
750 BEEP 500,.1
760 LINPUT "Enterthe Reflection Port/Transmission Port
selections separated by commas: e.g. 1,2
",Command$
770 Current_pos=POS(Command$,",")
780 Command_length=LEN(Command$)
790 Counter=0
800 Cmd$=Command$
810 IF Current_pos>0 THEN
820 WHILE Current_pos>0
830 Command_length=LEN(Command$)
840 Current$=Command$[1,(Current_pos-1)]
850 Command$=Command$[(Current_pos+1),Command
_length]
860 Current_pos=POS(Command$,",")
870 Set_no=VAL(Current$)
880 SELECT Counter
890 CASE 0
900 Refl=Set_no
910 CASE ELSE
920 PRINT TABXY(1,29),"Too many numbers
entered. Try again! Entered ";Cmd$
930 BEEP 500,.1
940 WAIT 1
950 END SELECT
960 Counter=Counter+1
970 END WHILE
980 Set_no=VAL(Command$)
990 Trans=Set_no
1000 PRINT TABXY(1,29)," "
1010 IF NOT (((Refl<>Trans) OR (Refl=0 AND Trans=0)
OR (Trans=16 AND Refl=16)) AND Refl<17 AND
Trans<17 AND Refl>=0 AND Trans>=0) THEN