HP 16500C Programmer's Guide

270 ! *********************** SEND THE SETUP QUERY **************************
280 OUTPUT 707;":SYSTEM:HEADER ON"
290 OUTPUT 707;":SYSTEM:LONGFORM ON"
300 OUTPUT @Comm;"SELECT 0"
310 OUTPUT @Comm;":SYSTEM:SETUP?"
320 !
330 ! ******************** ENTER THE BLOCK SETUP HEADER *********************
340 ! Enter the block setup header in the proper format.
350 !
360 ENTER @Comm USING "#,B";Byte
370 PRINT CHR$(Byte);
380 WHILE Byte<>35
390 ENTER @Comm USING "#,B";Byte
400 PRINT CHR$(Byte);
410 END WHILE
420 ENTER @Comm USING "#,B";Byte
430 PRINT CHR$(Byte);
440 Byte=Byte-48
450 IF Byte=1 THEN ENTER @Comm USING "#,D";Numbytes
460 IF Byte=2 THEN ENTER @Comm USING "#,DD";Numbytes
470 IF Byte=3 THEN ENTER @Comm USING "#,DDD";Numbytes
480 IF Byte=4 THEN ENTER @Comm USING "#,DDDD";Numbytes
490 IF Byte=5 THEN ENTER @Comm USING "#,DDDDD";Numbytes
500 IF Byte=6 THEN ENTER @Comm USING "#,DDDDDD";Numbytes
510 IF Byte=7 THEN ENTER @Comm USING "#,DDDDDDD";Numbytes
520 IF Byte=8 THEN ENTER @Comm USING "#,DDDDDDDD";Numbytes
530 PRINT Numbytes
540 !
550 ! ******************** TRANSER THE SETUP ********************************
560 ! Transfer the setup from the mainframe to the buffer.
570 !
580 TRANSFER @Comm TO @Buff;COUNT Numbytes,WAIT
600 ! Clear the terminator from the message queue
610 ENTER @Comm USING "-K";Length$
620 PRINT "LENGTH of Length string is";LEN(Length$)
630 !
640 PRINT "**** GOT THE SETUP ****"
650 PAUSE
660 ! ********************* SEND THE SETUP **********************************
670 ! Make sure buffer is not empty.
680 !
690 IF Numbytes=0 THEN
700 PRINT "BUFFER IS EMPTY"
710 GOTO 1170
720 END IF
Programming Examples
Transferring the Mainframe Configuration
15–4

HP 16500C Specifications

General

Brand	HP
Model	16500C
Category	Measuring Instruments
Language	English