Technical data

42 User’s and Service Guide
87050A Option K22 Example Programs
5350 Hswitch_code$="b4p12"
5360 Pswitch_code$="103"
5370 CASE "13","PORT AUX 2"
5380 Hswitch_code$="b4aux"
5390 Pswitch_code$="104"
5400 CASE "0","TERMINATE","RESET"
5410 Hswitch_code$="bterm"
5420 Pswitch_code$="105"
5430 CASE ELSE
5440 DISP "Unrecognized Switched_port$ parameter;
"""&Switched_port$&""""
5450 STOP
5460 END SELECT
5470 CASE ELSE
5480 DISP "Unrecognized Main_port$ parameter;
"""&Main_port$&""""
5490 STOP
5500 END SELECT
5510 END SELECT
5520 !
5530 IF Controller$="H" THEN
5540 Output_cmd$=TRIM$(Hswitch_code$)
5550 OUTPUT Addr;Output_cmd$ ! sent via GPIB
5560 ELSE
5570 Output_cmd$=VAL$(VAL(Pswitch_code$))
5580 OUTPUT Addr;"PARALGPIO;" ! sent via Centronics
5590 OUTPUT Addr;"PARAOUT"&Output_cmd$&";" ! port
5600 END IF
5610 WAIT .1
5620 SUBEND
5630 !*****************************************************