YOKOGAWA WT200 User Manual page 156

IM 253421-01E
ENDODDISP:
RETURN
' display measured data for adjust sensor range
ODDISPEX:
PRINT "S: refresh and save adjusted data"
PRINT "C: cancel (not save)"
WRTDATAEX:
WRT$ = "OD"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
LOCATE 15, 1
RDDATAEX:
RD$ = SPACE$(255)
CALL IBRD(DEV%, RD$)
IF (ibsta% AND EERR) THEN
CALL gpiberr("Ibrd error")
GOTO ENDODDISPEX
ELSE
RD$ = LEFT$(RD$, ibcnt% - 2)
PRINT RD$
IF (RD$ <> "END") GOTO RDDATAEX
END IF
GOSUB WAITING
IF C$ = "S" THEN
WRT$ = "ENT"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
WRT$ = "END"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
RTN = 1: GOTO ENDODDISPEX
ELSEIF C$ = "C" THEN
WRT$ = "CAN"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
RTN = 1: GOTO ENDODDISPEX
END IF
GOTO WRTDATAEX
ENDODDISPEX:
RETURN
' adjust normal mesurement range
RANGE:
WRT$ = "CAL1"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
RANGESEL:
CLS
PRINT "range adjust"
PRINT ""
PRINT "1: 30.00 V range"
PRINT "2: 300.0 V range"
PRINT "3: 1.000 A range"
PRINT "4: 10.00 A range"
PRINT "5: 100.0mA range"
PRINT "S: save adjusted data"
PRINT "C: cancel(not save)"
PRINT "Command >> "; : LINE INPUT C$
IF C$ = "1" THEN
WRT$ = "CR0"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
GOTO DISPDATA
ELSEIF C$ = "2" THEN
WRT$ = "CR1"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
13.2 Sample Program
13-17
13