GE Druck DPI 740

K0200 Issue No. 1
6 2 DP I 7 4 0 U s e r M a n u a l
Table 6-3
Example Program in QBASIC
start:
EOFch=26
CLS
port%=1
PRINT SPC(20); "DPI 740 Druck Iniversal Communications
Interface : Example Program" PRINT SPC (19);
"=============================================="
PRINT
PRINT Before commencing, ensure that the DPI 740 Communications
Parameters are set as follows:"
PRINT
PRINT "Baudrate : 9600, Parity : None, Handshaking : None, Databits :
8, Stopbits : 1"
PRINT
PRINT "The PC serial comms port used is COM";
PRINT port%
PRINT
PRINT "Please note DOS File Name : Pressure Readings will be Logged
in this File"
PRINT
INPUT Nm$
PRINT
PRINT "Ready"
PRINT "Press <CTRL><BREAK> to exit"
PRINT "Starting communications"
OPEN Nm$ FOR OUTPUT AS #2
IF port% = 2 THEN
OPEN "COM2:9600,N,8,1,RS,RB6000" FOR RANDOM AS #1
ELSE
OPEN "COM2:9600,N,8,1,RS,RB6000" FOR RANDOM AS #1
END IF
PRINT "Comm port opened OK"
a$=""
PRINT #1, "#sa?" = CHR$(13);
PRINT #2, "#sa?" = CHR$(13) = CHR$(10);
GOSUB GetReply
address$=RIGHT$(a$,4)
address$=LEFT$(address$,2)