ICS ELECTRONICS 4863 Manual page 40

520 REM Help Menu
530 PRINT
540 PRINT "HELP
550 PRINT "SPOL!
560 PRINT "DATA!
570 PRINT "CMD!
580 PRINT "ENTER
590 PRINT
600 A$="XXX"
610 RETURN
620 REM Serial Poll
630 PRINT
640 PRINT "********** SRQ INTERRUPT OCCURRED! **********"
650 PRINT "Serial Polling now..."
660 Stat=SPOLL(Adr)
670 PRINT "SRQ SPOLL RESULTS: Adr ";Devadr;"Status ";Stat
680 PRINT "*********************************************************"
690 A$="XXX"
700 ENABLE INTR 7
710 RETURN
720 REM DATA mode
730 PRINT "DATA Address selected!"
740 Adr=Devadr+701
750 A$="XXX"
760 RETURN
770 REM CMD Mode
780 PRINT "CMD Address selected!"
785 Adr=Devadr+700
790 SEND 7;UNL LISTEN Devadr
800 A$="XXX"
810 RETURN
820 REM GPIB Timeout routine
830 PRINT "GPIB Timeout Occurred!"
840 RETURN
850 END
Figure 2-2
for this menu"
to Serial Poll Device address"
select DATA address"
select CMD address"
to read data from Device address"
HP BASIC Command Entry/Readout Program
(Cont'd.)
2-11
2