Yokogawa DR240 User Manual
Page 104
8-6
IM DR231-11E
Output the measurement data (BINARY Code)
Read out the measurement data by BINARY code from DR130/DR230/DR240, display on CRT of
personal computer, and save to floppy disc.
10
'TS0 BO1 <ESC T> FM1
20
OPEN "COM1:E81N" AS #1
30
OPEN "TS0BIN.DAT" FOR OUTPUT AS #2
40
PRINT #1,"TS0"
50
LINE INPUT #1,D$:PRINT D$
60
PRINT #1,"BO1"
70
LINE INPUT #1,D$:PRINT D$
80
PRINT #1,CHR$(&H1B)+"T"
90
LINE INPUT #1,D$:PRINT D$
100
PRINT #1,"FM1,001,010"
110
D$=INPUT$(2,#1):PRINT #2,D$
120
A=CVI(MID$(D$,1,2)):PRINT A
130
D$=INPUT$(A,#1):PRINT #2,D$
140
L=0
150
PRINT ASC(MID$(D$,1,1));:PRINT "/";
160
PRINT ASC(MID$(D$,2,1));:PRINT "/";
170
PRINT ASC(MID$(D$,3,1));:PRINT
180
PRINT ASC(MID$(D$,4,1));:PRINT ":";
190
PRINT ASC(MID$(D$,5,1));:PRINT ":";
200
PRINT ASC(MID$(D$,6,1));:PRINT
210
L=0
220
FOR I=4 TO A-3
230
PRINT RIGHT$("0"+HEX$(ASC(MID$(D$,I+3,1))),2)+" ";
240
L=L+1
250
IF L=6 THEN L=0 :PRINT
260
NEXT I
270
CLOSE
Output the system configuration data
Read out the configuration data from DR130/DR230/DR240, display on CRT of personal computer,
and save to floppy disc.
10
'TS5 <ESC T> CF
20
OPEN "COM1:E81N" AS #1
30
OPEN "TS5.DAT" FOR OUTPUT AS #2
40
PRINT #1,"TS5"
50
LINE INPUT #1,D$:PRINT D$
60
PRINT #1,CHR$(&H1B)+"T"
70
LINE INPUT #1,D$:PRINT D$
80
PRINT #1,"CF0"
90
LINE INPUT #1,D$:PRINT D$:PRINT #2,D$
100
IF LEFT$(D$,2)<>"E:" GOTO 90
110
CLOSE
120
END
8.2 RS-232-C Sample Programs