
Programming
2714 & 2715 Programmer Manual
6–63
GOTO MENU
CASE 60
'F2 pressed
GOSUB SAVE.SET
GOTO MENU
CASE 61
'F3 pressed
GOSUB RES.SET
GOTO MENU
CASE 62
'F4 pressed
GOSUB SAVE.FILE
GOTO MENU
CASE 63
'F5 pressed
GOSUB RES.FILE
GOTO MENU
CASE 64
'F6 pressed
GOSUB INT.CUR
GOTO MENU
CASE 68
'F10 pressed
SYSTEM
'returns to dos
END SELECT
GOTO MENU
'regenerates the menu
'
' subroutine to send a command or query
' and receive the response
SEND.RCV:
CLS
PRINT : PRINT "ENTER MESSAGE TO SEND"
INPUT wrt$
CALL ibwrt(bd%, wrt$)
GOSUB GPIB.ERR
hold.time = TIMER
'slight delay; srq check
DO WHILE TIMER < hold.time + 1
LOOP
QUES = INSTR(1, wrt$, "?")
' if ques=0,there is no response;
IF QUES = 0 THEN GOTO SEND.RCV
'
' if message contains "?" get response and print it
CALL IBRD(bd%, RD$)
GOSUB GPIB.ERR
PRINT : PRINT "THE RESPONSE IS:"
PRINT : PRINT MID$(RD$, 1, IBCNT%)
PRINT : PRINT
INPUT "SEND MORE (ENTER Y OR N)?"; Y$
IF Y$ = "Y" THEN GOTO SEND.RCV
RETURN
'
Summary of Contents for 2714
Page 4: ......
Page 11: ...Introduction ...
Page 12: ......
Page 38: ...Introduction to Programming 1 26 2714 2715 Programmer Manual ...
Page 39: ...Message Structure ...
Page 40: ......
Page 54: ...Instrument Specific Message Structure 2 14 2714 2715 Programmer Manual ...
Page 55: ...Functional Groups ...
Page 56: ......
Page 85: ...Command Query ...
Page 86: ......
Page 179: ...Status Reporting ...
Page 180: ......
Page 197: ...Programming ...
Page 198: ......
Page 266: ...Programming 6 68 2714 2715 Programmer Manual ...
Page 267: ...Appendices ...
Page 268: ......
Page 276: ...Appendix A RS 232 Concepts A 8 2714 2715 Programmer Manual ...
Page 296: ...Appendix B GPIB System Concepts B 20 2714 2715 Programmer Manual ...
Page 297: ...Index ...
Page 298: ......
Page 307: ......
Page 308: ......