Agilent Technologies 34401A - Page 197

Call IOCLEAR(DEV&)
Call IOOUTPUTS(DEV&, INFO1$, LENGTH1%)
Call IOOUTPUTS(DEV&, INFO2$, LENGTH2%)
ON PEN GOSUB RESULTS
PEN ON
Call IOPEN(ISC&,0)
Call IOOUTPUTS(DEV&, INFO3$, LENGTH3%)
Call IOOUTPUTS(DEV&, INFO4$, LENGTH4%)
Call IOOUTPUTS(DEV&, INFO5$, LENGTH5%)
Call IOENTER(DEV&,Reading)
Call IOOUTPUTS(DEV&, INFO6$, LENGTH6%)
Call IOOUTPUTS(DEV&, INFO7$, LENGTH7%)
Call IOOUTPUTS(DEV&, INFO8$, LENGTH8%)
Call IOOUTPUTS(DEV&, INFO9$, LENGTH9%)
BACK:GOTO BACK
RESULTS:
Call IOOUTPUTS(DEV&, INFO10$, LENGTH10%)
Call IOOUTPUTS(DEV&, INFO11$, LENGTH11%)
Call IOOUTPUTS(DEV&, INFO12$, LENGTH12%)
Call IOENTERA(DEV&, Seg A(1),3,Actual%)
For I=1 to 3
Print A(I);
Next I
Call IOOUTPUTS(DEV&, INFO13$, LENGTH13%)
END
GPIB Operation Using QuickBASIC (continued)
6
Chapter 6 Application Programs
Using the Status Registers
191