Lake Shore Model 620/622/623/647 Magnet Power Supply User’s ManualMainframe Control Bus OperationB-4B7.0 CONTROL BUS SERIAL INTERFACE SAMPLE PROGRAMThe following PC program is an interactive program that prompts the user for a Mainframe command anddisplays the Mainframe response. The command must include a query for the Mainframe to respond.'This QuickBasic 4.0 program is for an IBM PC or compatible. Enter the'Mainframe command at the prompt. The Mainframe response then displays.'"END" exits the program.COUNT = 1000TERM$ = CHR$(13) + CHR(10)OPEN "com1:9600,o,7,1,RS" FOR RANDOM AS #1 LEN = 256L1: INPUT "ENTER COMMAND (END TO EXIT):", CMD$CMD$ = UCASE$(CMD$)IF CMD$ = "END" THEN CLOSE #1: ENDPRINT #1, CMD$ + TERM$IF INSTR(CMD$, "W") <> 0 OR INSTR(CMD$, "XD") <> 0 OR INSTR(CMD$, "?") <> 0 THENRS$ = ""N = 0WHILE (N < COUNT) AND ((INSTR(RS$, TERM$) = 0) OR (RS$ = "")R$ = INPUT$(LOC(1), #1)IF R$ = "" THEN N = N + 1 ELSE N = 0RS$ = RS$ + R$WENDIF RS$ <> "" THENRS$ = MID$(RS$, 1, (INSTR(RS$, TERM$) - 1))PRINT "RESPONSE:"; RS$ELSEPRINT "NO RESPONSE"END IFEND IFGOTO L1END
