Panasonic AJ-D950 Operating Instructions Manual page 82

RS-232C interface
(3) Microsoft QuickBASIC sample program
CLS
STX$ = CHR$(&H2): ETX$ = CHR$ (&H3): NAK$ = CHR$(l5): ACK$ = CHR$(&H6)
PRINT "***
RS-232C
PRINT "Type Command
PRINT
REM *** Communication
REM Port 1,9600Bps,No
OPEN "COM1:9600,N,8,1" FOR RANDOM AS #l LEN = 256
REM *** Input Command & Send Command ***
SendCmd:
INPUT "Input
IF SEND$ = "QUIT" THEN GOTO ProgEnd
PRINT #l, STX$ + SEND$ + ETX$
REM *** Wait for Receive Command ***
WHILE LOC(1) = 0
WAITKEY$
IF WAITKEY$ = "Q" THEN PRINT "*** Quit ***": GOTO ProgEnd
WEND
REM *** Receive
RecvCmd:
RECV$ = INPUT$(l,
IF RECV$ = STX$ THEN RECV$ = "[Stx]"
IF RECV$ = ACK$ THEN RECV$ = "[Ack]"
IF RECV$ = NAK$ THEN RECV$ = "[Nak]"
IF RECV$ = ETX$ THEN BUFFER$ = BUFFER$ + "[Etx]": GOTO DispOut
BUFFER$ = BUFFER$
GOTO RecvCmd
REM *** Output
DispOut:
PRINT "Receive
PRINT
BUFFER$ = ""
GOTO SendCmd
REM *** End Program ***
ProgEnd:
CLOSE
END
MICROSOFT QUICKBASIC is a registered trade mark of Microsoft Corporation.
COMMUNICATION
'QUIT' to quit."
Port Initial
parity,8 bit
Command ="; SEND$
= INKEY$
Command ***
#l)
+ RECV$
Receive Command ***
Command ="; BUFFER$
- 8 2 -
SAMPLE PROGRAM ***"
& Open ***
data,1 stop bit