IM 253401-01E
App1-13
App
Appendix 1.2 Sample Program
Communication Commands 1
CALL IBRD(WT%, BUF$): GOSUB ERRCHK
PRINT LEFT$(BUF$, IBCNT% - 2)
LOOP WHILE LEFT$(BUF$, 3) <> “END”
FOR J = 0 TO 500
C$ = INKEY$: IF C$ <> “” THEN PRINT C$: EXIT FOR
NEXT J
IF C$ = “1” THEN
CMD$ = “ENT”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK: EXIT DO
ELSEIF C$ = “0” THEN
EXIT DO
END IF
LOOP
RETURN
‘
SHUNT:
CMD$ = “CAL2”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
PRINT “S: Adjustment values of this range will be updated and kept”
PRINT “C: Adjustment values of this range will not be kept”
D O
CMD$ = “OD”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
LOCATE 15, 1
BUF$ = SPACE$(255)
DO
CALL IBRD(WT%, BUF$): GOSUB ERRCHK
PRINT LEFT$(BUF$, IBCNT% - 2)
LOOP WHILE LEFT$(BUF$, 3) <> “END”
FOR J = 0 TO 500
C$ = INKEY$: IF C$ <> “” THEN PRINT C$: EXIT FOR
NEXT J
IF C$ = “S” THEN
CMD$ = “ENT”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
CMD$ = “END”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
EXIT DO
ELSEIF C$ = “C” THEN
CMD$ = “CAN”: CALL IBWRT(WT%, CMD$): GOSUB ERRCHK
EXIT DO
END IF
LOOP
RETURN
‘
‘ When IBFIND call failed
ERRDISP:
PRINT “ ===== No such board or device name ===== “
GOTO PRGEND
‘
‘ GP-IB error check
ERRCHK:
IF IBSTA% >= 0 THEN RETURN
PRINT “ ===== Error ===== “
GOTO PRGEND
