' Copyright 1993 NOVATECH INSTRUMENTS, INC.

' Example program to communicate with Novatech 2910A signal synthesizer
' in QBasic.
'
' Make sure that the 2910A User I/F mode has been set to Remote,
' Remote Echo to Off, and Baud Rate to 1200.
'
' The 2910A is assumed to be connected to COM1:.

' clear the screen
CLS

' open port for communications, disable hardware control lines.
OPEN "com1:1200,n,8,1,cd0,cs0,ds0,op0,rs" FOR RANDOM AS #1

' get a prompt
PRINT #1, ""
LINE INPUT #1, a$

' loop forever
DO WHILE 1 = 1

    'prompt for command to send to 2910A
    INPUT "Enter command to send to 2910A: ", cmnd$
   
    ' send command to 2910A
    PRINT #1, cmnd$

    ' get and print response
    LINE INPUT #1, resp$
    PRINT resp$

LOOP

END