User`s manual

150 GOTO End
160 Kaboom: PRINT ""
170 PRINT ERRM$
180 PRINT "HERE IS THE E13XX ERROR STATUS"
190 E13xx_errors
200 End: END
210 !
This sub reads all errors from E13xx instruments.
220 SUB E13xx_errors
230 COM @Sys,@Dmm,@Dmm_bin
240 DIM A$[128]
250 ABORT 7
260 CLEAR @Dmm
270 REPEAT
280 OUTPUT @Dmm;"SYST:ERR?"
290 ENTER @Dmm;A,A$
300 PRINT "DMM ERROR ";A$
310 UNTIL A=0
320 !
330 CLEAR @Sys
340 REPEAT
350 OUTPUT @Sys;"SYST:ERR?"
360 ENTER @Sys;A,A$
370 PRINT "SYSTEM ERROR ";A$
380 UNTIL A=0
390 SUBEND
400 !
This subroutine is treated as the main line.
410 SUB Main
420 COM @Sys,@Dmm,@Dmm_bin
430 !
Put application code here.
440 !Program the DMM to take 10000 readings FAST.
450 OUTPUT @Dmm;"CONF:VOLT:DC;:VOLT:RANGE:AUTO
OFF;:CAL:ZERO:AUTO OFF;:VOLT:APER MIN"
460 OUTPUT @Dmm;"SAMP:SOUR TIM;SAMP:TIM 76E-6;SAMP:COUNT 10000"
470 !
Take the readings now
480 OUTPUT @Dmm;"INIT;*OPC?"
490 ENTER @Dmm;A
500 !
Now time taking the 10000 readings out in ASCII
510 OUTPUT @Dmm;"FORMAT ASCII"
520 DIM Readings(1:10000)
530 OUTPUT @Dmm;"FETCH?"
540 Start=TIMEDATE
Continued on Next Page
272 Measurement Speed and Accuracy Tradeoffs Appendix D