Call IOCLEAR(DEV&)
Call IOOUTPUTS(DEV&, INFO 1$, LENGTH1%)
Call IOOUTPUTS(DEV&, INFO 2$, LENGTH2%)
ON PEN GOSUB RESULTS
PEN ON
Call IOPEN(ISC&,0)
Call IOOUTPUTS(DEV&, INFO 3$, LENGTH3%)
Call IOOUTPUTS(DEV&, INFO 4$, LENGTH4%)
Call IOOUTPUTS(DEV&, INFO 5$, LENGTH5%)
Call IOENTER(DEV&,Readi ng)
Call IOOUTPUTS(DEV&, INFO 6$, LENGTH6%)
Call IOOUTPUTS(DEV&, INFO 7$, LENGTH7%)
Call IOOUTPUTS(DEV&, INFO 8$, LENGTH8%)
Call IOOUTPUTS(DEV&, INFO 9$, LENGTH9%)
BACK:GOTO BACK
RESULTS:
Call IOOUTPUTS(DEV&, INFO 10$, LENGTH10%)
Call IOOUTPUTS(DEV&, INFO 11$, LENGTH11%)
Call IOOUTPUTS(DEV&, INFO 12$, LENGTH12%)
Call IOENTERA(DEV&, Seg A(1) ,3,Actual%)
For I=1 to 3
Print A(I);
Next I
Call IOOUTPUTS(DEV&, INFO 13$, LENGTH13%)
END
GPIB Operation Using Qu ic k B A SIC (continued)
6
Chapter 6 Application Programs Using the Status Registers 191