On 2019-02-18 06:40:08 +0000, Nick Andre -> Ozz Nixon said:

> On 17 Feb 19  11:10:48, Ozz Nixon said the following to All:
>
> ON> A couple nights ago, I was testing my terminal program, went to the
Telnet
> ON> Guide, and worked my way through different BBS packages.
> ON>
> ON> However, when I got to the Renegade 3 listings, two of them send the
wrong
> ON>  handshake string.
> ON>
> ON> It is supposed to be (based upon FTSC) **EMSI_REQ#### and I reply back
> ON> **EMSI_INQ####. Instead these two BBSes sent **EMSI_INQ#### ... is this a
 B
> ON> or is the FTSC wrong?
>
> Good question. This is the code from Renegade Y2KA2 for EMSI.
>
>
>    write('Attempting IEMSI negotiation ... ');
>    EMSI_IRQ := '**EMSI_IRQ8E08'^M^L;
>    com_flush_rx;
>    SerialOut(EMSI_IRQ);
>          if (pos('**EMSI_ICI', s) > 0) then
>            begin
>              delete(s, 1, pos('EMSI_ICI',s) - 1);
>
>                  ISI :=
'{Renegade,'+ver+'}{'+General.BBSName+'}{'+u.citystate+
>                         '}{'+General.SysOpName+'}{'+Hex(getpackdatetime, 8)+
>                         '}{Live free or die!}{}{Everything!}';
>                  ISI := 'EMSI_ISI'+Hex(length(ISI), 4) + ISI;
>                  ISI := ISI + Hex(UpdateCRC32($FFFFFFFF, ISI[1],
length(ISI)),
> 8);
>                  ISI := '**' + ISI + ^M;
>                  com_flush_rx;
>                  SerialOut(ISI);

Looks like it is setup correctly, but every EMSI sample I find from the 90's
flow like, client to BBS->

begin
 { Assumes connection has been made at this point }

 Tries := 0;
 Repeat
   Write2Port(EMSI_INQ);