MS-DOS/v2.0/source/WSBAUD.BAS

<EFBFBD>T
:<EFBFBD><EFBFBD> WSBAUD.BAS\:<EFBFBD><EFBFBD><EFBFBD>:<EFBFBD><EFBFBD> Simple program to set the baud rate of the communications<EFBFBD>(:<EFBFBD><EFBFBD> card of the IBM PC.  The new baud rate stays in effect until2:<EFBFBD><EFBFBD> the next re-boot of the system.<:<EFBFBD><EFBFBD>LF:<EFBFBD><EFBFBD> MicroPro International Corporation, May 24, 1982TP:<EFBFBD><EFBFBD>ZZ<EFBFBD>~d<EFBFBD> "         ----- WSBAUD -----"<EFBFBD>n<EFBFBD><EFBFBD>x<EFBFBD><EFBFBD><EFBFBD><EFBFBD> 110,300,1200,2400,4800,9600<EFBFBD><EFBFBD><EFBFBD> I<EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD> B<EFBFBD><EFBFBD><EFBFBD> "        ";I;" => ";B;" baud"<EFBFBD><EFBFBD><EFBFBD> I<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "Which baud rate do you want? ",BAUDG<EFBFBD><EFBFBD> (BAUD<EFBFBD> <EFBFBD> BAUD<EFBFBD>) <EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>():<EFBFBD> ZM<EFBFBD><EFBFBD>r<EFBFBD><EFBFBD> BAUD <EFBFBD> 
,,
,@
,T
,h
,|
|<EFBFBD><EFBFBD> Z<EFBFBD><EFBFBD>:<EFBFBD><EFBFBD> NOTE: The communications card is always opened w/<EFBFBD><EFBFBD>:<EFBFBD><EFBFBD>       8 data bits<EFBFBD>
:<EFBFBD><EFBFBD>       NO parity
:<EFBFBD><EFBFBD>       1 stop bit  (except for 110 baud)5
<EFBFBD> "COM1:110,N,8,2" AS #?"
<01> <0E>
\,
<01> "COM1:300,N,8,1" AS #h6
<01>   <0E>
<00>@
<01> "COM1:1200,N,8,1" AS #<00>J
<01>   <0E>
<00>T
<01> "COM1:2400,N,8,1" AS #<00>^
<01>   <0E>
<00>h
<01> "COM1:4800,N,8,1" AS #<00>r
<01>   <0E>
|
<01> "COM1:9600,N,8,1" AS #<12>
<01>   <0E>
<12>
<01> <12>
<01> <0E>1<12>
<01> I<> <20> BAUD><12>
     <20> BF<12>
<01> I~<12>
<01> "Communications card i/o rate set to ";B;" baud."<EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD>
<EFBFBD> <EFBFBD>
<EFBFBD> <EFBFBD>1<EFBFBD>
<EFBFBD> I<EFBFBD> <EFBFBD> BAUD><EFBFBD>
     <EFBFBD> BF