'this file sends commands to the serial port
'for testing the DDS6m module
CLS
LOCATE 1, 1
'
' open port for communications, disable hardware control lines.
OPEN "com1:9600,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 DDS6m
    PRINT
    INPUT "Enter command to send to DDS6m: ", cmnd$
   
    ' send command to DDS6m
    PRINT #1, cmnd$

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