Agilent Technologies 34401A - Page 195

GPIB Operation Using BASIC (continued)
280 Task=1
290 WHILE Task=1
300 DISP "Taking Readings"
310 WAIT .5
320 DISP ""
330 WAIT .5
340 END WHILE
350 DISP "AVE = ";Aver; " MIN = ";Min_rdg; " MAX = ";Max_rdg
360 STOP
370 !
380 Read_data: !
390 OUTPUT @Dmm; "CALC:AVER:AVER?;MIN?;MAX?" ! Read the average, min, and max
400 ENTER @Dmm; Aver, Min_rdg, Max_rdg
410 OUTPUT @Dmm; "*CLS" ! Clear dmm status registers
420 Task=0
430 RETURN
440 END
6
Chapter 6 Application Programs
Using the Status Registers
189