6 - 30
Example:
Written in Quick Basic;
CLS
CLOSE
OPEN "COM2:19200,N,8,1, CS0, DS0, CD0" FOR RANDOM AS #1
OPEN "HPGL.HGL" FOR OUTPUT AS #2
PRINT #1, "QP"; 1
Start! = TIMER
WHILE ((TIMER < Start! + 1) AND (LOC(1) = 0))
WEND
IF LOC(1) > 0 THEN
PRINT "Response = ";
DO
Byte$ = INPUT$(LOC(1),#1)
PRINT Byte$;
PRINT #2, Byte$;
Start! = TIMER
WHILE ((TIMER < Start! + 1) AND (LOC(1) = 0))
WEND
LOOP WHILE LOC(1) > 0
ELSE
PRINT "No Response"
END IF
CLOSE
THE CPL PROTOCOL
: 'Open output file
: 'Query print
: 'Sync on data
:'Read each data byte
:'Display databyte
:'Append databyte to file
: 'Error message