... continued
450 !
460 ! Wait for "Operation Complete"
470 !
480 Task=1
490 WHILE Task=1
500 DISP "Reading..."
510 WAIT .5
520 DISP " "
530 WAIT .5
540 END WHILE
550 !
560 OFF INTR Hpib ! Disable interrupts
570 END
580 !
590 ! After SRQ is generated, transfer the readings to the output buffer and print
600 !
610 SUB Read_data ! Subprogram is called after INIT complete and trigger is received
620 DIM Rdgs(1:5) ! Dimension array for readings
630 COM @Meter ! Use same address as in main program
640 OUTPUT @Meter;"FETC?" ! Transfer readings to output buffer
650 ENTER @Meter;Rdgs(*) ! Enter readings
660 PRINT Rdgs(*) ! Print readings
670 STOP
680 SUBEND
Chapter 6 Application Programs
HP BASIC Language Programs
220
To Next Page
Loading...
