Roland DXY-1300 Command Reference Manual page 128

Example 2:
100 ' DXY-1000 RS-232C DEVICE CONTROL COMMAND
110 ' SAMPLE PROGRAM FOR ENQ/ACK HANDSHAKE
120
'
130 OPEN "COM1:9600,N ,8,1" FOR OUTPUT AS #1 : OPEN
"DATA1" FOR INPUT AS #2
140 ON COM GOSUB 1000
150 COM ON
160 '<<< SET HANDSHAKE MODE ENQ/ACK
170 PRINT # 1 ,CHR$ (27); " . K " ;
180 PRINT #1,CHR$(27);".R";
190 PRINT #1,CHR$(27);".@;0:";
200 PRINT #1,CHR$(27);".Ml00;00;00;13;00;00:";
210 ' ENQ character = CHR$(5)
220 ' ACK character = CHR$(6)
230 PRINT #1,CHR$(27);" .H256;5;6:";
2 40 '<<< MAI N PROGRAM
250 PRINT "***ENQ !!":PRINT # I,CHR$(5);
♦
.
END
1000 ' << BLOCK TRANSFER
1010 COM OFF
1020 PRINT "ACK !!":INPUT #1,ACK$
1030 IF ACK$<>CHR$(6) THEN COM ON:RETURN
1040 FOR I=1 TO 256
1050 IF EOF(2) THEN GOTO 1120
1060 A$=INPUT$(1,#2)
1070 PRINT #1,A$;
1080 PRINT A$;
1090 NEXT I
1100 COM ON
1110 PRINT "***ENQ !!":PRINT #1,CHR$(5);:RETURN
1120 PRINT "DATA END ! ! ":RETURN
>>>
>>
5-14
>>>
Tasks other than
DATA1