7-108 Chapter7
Programming Examples
Report Generation Examples
120 !
130 OUTPUT @Nwa;”OPC?;SING;” ! Single sweep and stop for print
140 ENTER @Nwa;Reply ! Read the 1 when complete
150 !
160 OUTPUT @Nwa;”CLES;” ! Clear status registers
170 OUTPUT @Nwa;”ESNB128;” ! Enable copy complete
180 OUTPUT @Nwa;”SRE4;” ! Enable Event Status Register B
190 OUTPUT @Nwa;”PRNTRAUTF OFF;” ! Set printer auto feed off
200 OUTPUT @Nwa;”PRNTYPLJ;” ! Select LaserJet printer
210 OUTPUT @Nwa;”PRNPRTPARA;” ! Select parallel port for output
240 !
250 OUTPUT @Nwa;”PRINALL;” ! Print screen
260 !
270 DISP “PRINTING”
280 !
290 ! Set up next measurement over HP-IB
300 OUTPUT @Nwa;”CONT;” ! Restore continuous sweep
310 !
320 ! Measurements can continue but wait for print to finish
330 REPEAT ! Test for bit 2 (4) ESRB
340 Stat=SPOLL(@Nwa)
350 UNTIL BIT(Stat,2) ! Wait for printer to complete
360 !
370 DISP “DONE”
380 LOCAL @Nwa ! Release HP-IB control
390 END