Greetings,
Not sure how much help there is out there for me, but I figure it's worth
a try. I'm wanting to read Scantron sheets and parse the results with perl.
Most all of it works fine, except that the scantron machine spits out 310
characters at blinding speed with no regard for anyone else's feelings. In MPE
typically, this is no problem. Not so under the shell (and perl). There seems
To be no way to do the equivalent of (for FILE SCANTRON=$STDINX;REC=-132):
reset(Scantron,'*SCANTRON');
ScanFnum := fnum(Scantron);
rewrite(Opsfifo,'OPSFIFO');
{ Disable Break key -- Because sometimes reader stays locked
which requires reader to be turned off/on then <CR> to
unlock it. This sometimes causes a BREAK to occur. }
FControl(ScanFnum,14,Parm);
if CCode <> CCE then Ferr(ScanFnum,true);
FControl(ScanFnum,13,Parm); { Turn OFF echo }
if CCode <> CCE then Ferr(ScanFnum,true);
FSetMode(ScanFnum,4); { Turn off CR/LF after read 4=100 binary }
if CCode <> CCE then Ferr(ScanFnum,true);
Parm := hex('190D'); { $19 = ^Y , $0D = CR }
FControl(ScanFnum,41,Parm); { Set unedited input mode }
if CCode <> CCE then Ferr(ScanFnum,true);
{ Note with MPE XL: (from Asynch. Serial Comm. pg B-12)
FControl 41 - unedited input mode
DC1 and DC3 are NOT treated as data, but as protocol
Xon/Xoff characters (not put in read string).
FControl 27 - binary transfer mode
DC1 and DC3 ARE treated as data, not protocol
Xon/Xoff characters. }
Especially the FControl 41. Any Advice?
TIA,
Ted
--
Ted Ashton ([log in to unmask]), Info Serv, Southern Adventist University
==========================================================
Science, being human enquiry, can hear no answer except an answer couched
somehow in human tones. Primitive man stood in the mountains and shouted
against a cliff; the echo brought back his own voice, and he believed in a
disembodied spirit. The scientist of today stands counting out loud in the
face of the unknown. Numbers come back to him - and he believes in the Great
Mathematician.
-- Hughes, Richard
|