Technical data

28 User’s and Service Guide
87050A Option K22 Example Programs
490 PRINT "and Test port to be used (respectively). Setting a port to `0'
will"
500 PRINT "terminate the corresponding port."
510 PRINT "Unless both numbers are `0', the two values cannot be the same."
520 PRINT "To terminate program, press STOP or PAUSE"
530 PRINT
540 PRINT "Example: 1,2,2,3 sets the switch box A1 I/P to Port 2 and B2 I/P
to"
550 PRINT "Port 3. 2,4,2,0 sets A2 I/P port to Port 4; B2 I/P is not used."
560 PRINT "To set A1 I/P to AUX1 and B1 I/P to AUX2 enter 1,13,1,13."
561 PRINT ""
570 PRINT " If you have selected GPIB you may also check the serial number"
580 PRINT "of the unit by typing SERIAL, or check the number of times the"
590 PRINT "switch has switched by typing SWITCH ##, where ## is the number"
600 LOOP
620 Refl=0
630 Trans=0
640 Ain=0
650 Bin=0
660 BEEP 500,.1
670 LINPUT "Enter the Ain/Port,Bin/Port Port selections separated by
commas: e.g. 1,2,2,4",Command$
680 Current_pos=POS(Command$,",")
690 Command_length=LEN(Command$)
700 Counter=0
710 IF Current_pos>0 THEN
720 WHILE Current_pos>0
730 Command_length=LEN(Command$)
740 Current$=Command$[1,(Current_pos-1)]
750 Command$=Command$[(Current_pos+1),
Command_length]
760 Current_pos=POS(Command$,",")
770 Set_no=VAL(Current$)
780 SELECT Counter
790 CASE 0
800 Ain=Set_no
810 CASE 1