GE Druck DPI 740 User Manual page 71

DPI 740 User Manual
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
K0200 Issue No. 1
63