Technical data

User’s and Service Guide 29
87050A Option K22 Example Programs
820 Refl=Set_no
830 CASE 2
840 Bin=Set_no
850 CASE 3
860 Trans=Set_no
870 CASE ELSE
880 PRINT "Too many numbers"
890 END SELECT
900 Counter=Counter+1
910 END WHILE
920 Set_no=VAL(Command$)
930 Trans=Set_no
940 IF NOT (((Refl<>Trans) OR (Refl=0 AND Trans=0) OR
(Trans=13 AND Refl=13)) AND Refl<14 AND Trans<14 AND Refl>=0 AND
Trans>=0) THEN
950 DISP "Port selections MUST be different if non-zero; Range= 0 to
13. Try again!"
960 BEEP 1500,.3
970 WAIT
980 ELSE
990 IF NOT (Ain<5 AND Bin<5 AND Ain>=0 AND Bin>=0) THEN
1000 DISP "Input port selections MUST be different if non-zero; Range= 0
to 5. Try again!"
1010 BEEP 1500,.3
1020 WAIT 5
1030 ELSE
1040 Set_switches(Addr,"REFL",VAL$(Ain),VAL$(Refl),
Controller$) ! Sets Reflection Port
1050 Set_switches(Addr,"TRANS",VAL$(Bin),VAL$(Trans),
Controller$) ! Sets Transmission Port
1060 PRINT TABXY(1,20),"Current Port = A";Ain;" To ";Refl
1070 PRINT TABXY(1,21),"Current Port = B";Bin;" To ";Trans
1080 END IF
1090 END IF
1100 ELSE
1110 IF POS(Command$,"SERIAL")>0 THEN
1120 OUTPUT 712;"sn?"
1130 ENTER 712;Sn$