Agilent Technologies 8560E User Manual page 461

Example
10 DIM Err$[200]
20 OUTPUT 718;"ERR?;"
30 ENTER 718;Err$
40 PRINT Err$
50 !the following routine removes the comma between error
s in
a string
60 Position_comma=POS(Err$,",")
70 IF Position_comma>0 THEN
80 !multiple errors
90 First_error=VAL(Err$)
100 PRINT First_error
110 Err$=Err$[POS(Err$,",")+1]
120 REPEAT
130 Position_comma=POS(Err$,",")
140 Next_error=VAL(Err$)
150 PRINT Next_error
160 IF Position_comma THEN Err$=Err$[POS(Err$,",")+1]
170 UNTIL Position_comma=0
180 ELSE
190 Err=VAL(Err$)
200 IF Err<0 THEN
210 PRINT Err
220 ELSE
230 PRINT "NO ERRORS"
240 END IF
250 END IF
260 !end routine
270 END
Chapter 7
Language Reference
ERR Error
461