Yokogawa DA100 - Manual (Page 83)

IM DA100-11E 8-2
8.1 GP-IB Sample Programs
Output the Unit and Decimal Point Data
Read out the unit and decimal point data from DA100, display them on CRT of personal computer,
and save them to floppy disk.
10 'TS2 LF
20 OPEN "TS2.DAT" FOR OUTPUT AS #1
30 ISET IFC
40 CMD DELIM=0
50 PRINT @1;"TS2"
60 WBYTE &H3F,&H21,&H8,&H3F;
70 PRINT @1;"LF001,010"
80 LINE INPUT @1;D$:PRINT D$:PRINT #1,D$
90 GOTO 110
100 LINE INPUT @;D$:PRINT D$:PRINT #1,D$
110 IF MID$(D$,2,1)<>"E" THEN 100
120 CLOSE:STOP
130 END
Output the measurement data (ASCII Code)
Read out the measurement data by ASCII code from DA100, display on CRT of personal computer,
and save to floppy disc.
10 'TS0 FM0
20 OPEN "TS0ASC.DAT" FOR OUTPUT AS #1
30 ISET IFC
40 CMD DELIM=0
50 PRINT @1;"TS0"
60 WBYTE &H3F,&H21,&H8,&H3F;
70 PRINT @1;"FM0,001,010"
80 LINE INPUT @1;D$:PRINT D$:PRINT #1,D$
90 LINE INPUT @;D$:PRINT D$:PRINT #1,D$
100 IF MID$(D$,2,1)<>"E" THEN 90
110 CLOSE:STOP
120 END