'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