Technical data

30 User’s and Service Guide
87050A Option K22 Example Programs
1140 PRINT TABXY(1,23),"serial number is ";Sn$
1150 ELSE
1160 IF POS(Command$,"SWITCH")>0 THEN
1170 Nu$=TRIM$(Command$[7,Command_length])
1180 OUTPUT 712;"sw"&Nu$&"?"
1190 ENTER 712;Count$
1200 PRINT TABXY(1,24),"switch no ";Nu$;" has ";Count$
1210 ELSE
1220 DISP "Unknown command"
1221 WAIT 3
1230 END IF
1240 END IF
1250 END IF
1260 LOCAL Isc
1270 END LOOP
1280 END
1290 !
1300 SUB
Set_switches(Addr,Main_port$,Input_select$, Switched_port$,Controller$)
1310 !======================================================
1320 ! PURPOSE: To set the 87050A K22 switches.
1330 !------------------------------------------------------
1340 !
1350 ! PARAMETERS :
1360 !
1370 ! Controller$ [P|H] P= Parallel via 8720D or H= GPIB
1380 ! Main_port$ [REFL|TRANS]
1390 ! Switched_port$ [0|1|2|...|13]
1400 ! Addr GPIB addr of 8720D or K22 depending upon H or P above
1410 !------------------------------------------------------
1420 ! DESCRIPTION:
1430 !
1440 ! Commands can be sent via Centronics (Parallel) port or via GPIB.
1450 ! Choice depends upon variable Controller$ (P/H)
1460 !
1470 !======================================================