DPI 740 User Manual
63
K0200 Issue No. 1
PRINT #1, "#fa=1"+ CHR$(13);
PRINT #2, "#fa=1" + CHR$(13) +CHR$(10);
PRINT #1, "#" + address$ + "99"+"ic=p" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"ic=p" + CHR$(13)+CHR$(10);
PRINT #1, "#" + address$ + "99"+"pc=~(ir,10,1)" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"pc=~(ir,10,1)" + CHR$(13)+CHR$(10);
PRINT #1, "#" + address$ + "99"+"iu=0" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"iu=0" + CHR$(13)+CHR$(10);
PRINT #1, "#" + address$ + "99"+"pr?" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"pr?" + CHR$(13)+CHR$(10);
GOSUB GetReply
pressure$=RIGHT$(a$,10)
pressure$=LEFT$(pressure$,8)
PRINT"Pressure of the Day is "+pressure$="mbar"+CHR$(13);
PRINT #1, "#" + address$ + "99"+"ir?" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"ir?" + CHR$(13)+CHR$(10);
GOSUB GetReply
PRINT #1, "#" + address$ + "99"+"iu=18" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"iu=18" + CHR$(13)+CHR$(10);
PRINT #1, "#" + address$ + "99"+"pr?" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"pr?" + CHR$(13)+CHR$(10);
GOSUB GetReply
pressure$=RIGHT$(a$,10)
pressure$=LEFT$(pressure$,8)
PRINT"Pressure of the Day is "+pressure$="inHg"+CHR$(13);
PRINT #1, "#" + address$ + "99"+"fa=0" + CHR$(13);
PRINT #2, "#" + address$ + "99"+"fa=0" + CHR$(13)+CHR$(10);
PRINT #1, "#iu?" + CHR$(13);
PRINT #2, "#iu?" + CHR$(13)+CHR$(10);
GOSUB GetReply
CLOSE#1
CLOSE#2
END
GetReply:
a$="""
DO
b$=INPUT$(1,#1)
a$=a$+b$
LOOP UNTIL b$=CHR$(10)
PRINT #2,a$
RETURN
Summary of Contents for Druck DPI 740
Page 1: ...GE Sensing Druck DPI 740 Precision Pressure Indicator User Manual K0200 ...
Page 2: ... The General Electric Company All rights reserved ...
Page 16: ...K0200 Issue No 1 8 DPI 740 UserManual Figure 2 2 Electrical connections ...
Page 32: ...K0200 Issue No 1 24 DPI 740 User Manual intentionally left blank ...
Page 46: ...K0200 Issue No 1 38 DPI740 UserManual ...
Page 72: ...K0200 Issue No 1 64 DPI 740 UserManual Approved Service Agents www gesensing com ...