[Coco] RS DOS RS232 application?

[RETRO Innovations]

On 4/14/2016 11:16 PM, Dave Philipsen wrote:
> Here's something you could start out with.  I'm just doing this on the 
> fly without testing but you should be able to tweak it if it doesn't 
> work:
>
> 10 POKE &HFF69,0 : 'RESET RS232 PAK
> 20 POKE &HFF6A,9 : 'ENABLE XMTR/RCVR, NO PARITY
> 30 POKE &HFF6B,?? : 'SET BIT RATE/DATA FORMAT PER YOUR SPECS (replace 
> ?? with correct value)
> 100 IF PEEK (&HFF69) AND &H10 THEN R=PEEK (&HFF68) : PRINT CHR$ (R); : 
> 'CHECK RECV REGISTER & PRINT
> 110 T$=INKEY$ : 'CHECK KEYBOARD
> 120 IF T$ <> "" THEN IF PEEK (&HFF69) AND &H08 THEN POKE &HFF68, ASC 
> (T$): 'XMT DATA IF ANY FROM KYBD
> 130 GOTO 100

thanks.  I will try this out.