Lakeshore Learning Materials 622 - Manual (Page 88)

Lake Shore Model 620/622/623/647 Magnet Power Supply User’s Manual
Mainframe Control Bus Operation B-4
B7.0 CONTROL BUS SERIAL INTERFACE SAMPLE PROGRAM
The following PC program is an interactive program that prompts the user for a Mainframe command and
displays 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 = 1000
TERM$ = CHR$(13) + CHR(10)
OPEN "com1:9600,o,7,1,RS" FOR RANDOM AS #1 LEN = 256
L1: INPUT "ENTER COMMAND (END TO EXIT):", CMD$
CMD$ = UCASE$(CMD$)
IF CMD$ = "END" THEN CLOSE #1: END
PRINT #1, CMD$ + TERM$
IF INSTR(CMD$, "W") <> 0 OR INSTR(CMD$, "XD") <> 0 OR INSTR(CMD$, "?") <> 0 THEN
RS$ = ""
N = 0
WHILE (N < COUNT) AND ((INSTR(RS$, TERM$) = 0) OR (RS$ = "")
R$ = INPUT$(LOC(1), #1)
IF R$ = "" THEN N = N + 1 ELSE N = 0
RS$ = RS$ + R$
WEND
IF RS$ <> "" THEN
RS$ = MID$(RS$, 1, (INSTR(RS$, TERM$) - 1))
PRINT "RESPONSE:"; RS$
ELSE
PRINT "NO RESPONSE"
END IF
END IF
GOTO L1
END