{$G+}
Unit BarTalk;

Interface

Uses Crt, ddplus, DOS, pipecode,overway,simreg;

Procedure StartBarTalk;
Procedure Addline;

Implementation

Type
  linestring = String [80];
  inputs = String [67];
  lines = Record
            oldlines: Array [1..18] Of String [100];
          End;
Var
  File1, linerfile: Text;
  lineentered, currentline, reallong: String;
  i, a, b, e, f, count, lengtht: Integer;
  c: Char;
  D: String [2];
  cr, CH: Char;
  cp: lines;

Procedure YesErNo (default: Char);
Begin
  swrite (default);
  Repeat
    sread_char (CH);
    CH := UpCase (CH);
    If CH = cr Then CH := default;
  Until CH In ['Y', 'N'];
  If CH = 'Y' Then pipeln (#8 + '|09Yeah!!') Else pipeln (#8 + '|09Nope!!');
End;

Procedure Addrandomline;
var
  yyy:Integer;
  nameadd:String;
Procedure addit;
begin
Assign (linerfile, 'bar.dat');
  Reset (linerfile);
  If Not EoF (linerfile) Then Begin
    ReadLn (linerfile, currentline);
    ReadLn (linerfile, currentline);
  End;
  For i := 1 To 16 Do Begin
    If Not EoF (linerfile) Then ReadLn (linerfile, cp. oldlines [i] );
  End;
  Close (linerfile);
  Rewrite (linerfile);
  For i := 1 To 16 Do Begin
    WriteLn (linerfile, cp. oldlines [i] );
  End;
  Close (linerfile);
  Append (linerfile);
  WriteLn (linerfile, '|01- |03', nameadd);
  WriteLn (linerfile, '|01', lineentered,'|16');
  Close (linerfile);
end;

Procedure One;
begin
nameadd:='Jezebel';
lineentered:='Has anyone seen my sister, Samantha?';
end;

Procedure Two;
begin
nameadd:='Samantha';
lineentered:='I''ve been saved! I once was lost, but now I''m found.';
end;

Procedure Three;
begin
nameadd:='Brian Schulteis';
if not isregistered then
lineentered:='|20|15Register me!'
else
lineentered:='Thank you for supporting Zodian Software.';
end;

Procedure Four;
begin
nameadd:='Dave Cutler';
lineentered:='Who''s the idiot that wrote this game?';
end;

Procedure Five;
begin
nameadd:='Illusion';
lineentered:='I hear Norton really knows what he''s talking about.';
end;

Procedure Six;
begin
nameadd:='Jasmine';
lineentered:='Hey guys! How''s it goin?';
end;

Procedure Seven;
begin
nameadd:='Mary';
lineentered:='If I told you I loved you, I lied.';
end;

Procedure Eight;
begin
nameadd:='Bill Gates';
lineentered:='Please buy my crappy software!';
end;

begin
Randomize;
yyy:=random(16)+1;
Case yyy of
  1: begin one; addit; end;
  2: begin two; addit; end;
  3: begin three; addit; end;
  4: begin seven; addit; end;
  5: begin eight; addit; end;
  6: begin six; addit; end;
  7: begin four; addit; end;
  8: begin five; addit; end;
  9: begin one; addit; end;
 10: begin two; addit; end;
 11: begin three; addit; end;
 12: begin four; addit; end;
 13: begin five; addit; end;
 14: begin six; addit; end;
 15: begin seven; addit; end;
 16: begin eight; addit; end;
end;
end;





Procedure addline;
Var
  XXX:Integer;
Begin
  pipeln ('|11Tell us what''s on your mind.');
  prompt (lineentered, 70, TRUE);
  Assign (linerfile, 'bar.dat');
  Reset (linerfile);
  If Not EoF (linerfile) Then Begin
    ReadLn (linerfile, currentline);
    ReadLn (linerfile, currentline);
  End;
  For i := 1 To 16 Do Begin
    If Not EoF (linerfile) Then ReadLn (linerfile, cp. oldlines [i] );
  End;
  Close (linerfile);
  Rewrite (linerfile);
  For i := 1 To 16 Do Begin
    WriteLn (linerfile, cp. oldlines [i] );
  End;
  Close (linerfile);
  Append (linerfile);
  WriteLn (linerfile, '|01- |03', alias);
  WriteLn (linerfile, '|09', lineentered,'|16');
  Close (linerfile);
  Randomize;
  XXX:=Random(5)+1;
  If XXX=3 then addrandomline;
End;

procedure crlf; begin swriteln(''); end;
Procedure make_a_line;
Begin
  pipe ('|08');
  For i := 1 To 70 Do Begin
    pipe ('Ä');
  End;
  crlf;
End;
Procedure StartBarTalk;
Begin
  sclrscr;
  cr:=#13;
  If Not exist ('bar.dat') Then Begin
    Assign (File1, 'bar.dat');
    Rewrite (File1);
    For i := 1 To 16 Do Begin
      WriteLn (File1, '');
    End;
    WriteLn (File1, '|01- |03Brian Schulteis');
    WriteLn (File1, '|09Greetings Fellow Sysops! Good luck!');
    Close (File1);
  End;
  Assign (File1, 'bar.dat');
  Reset (File1);
  pipeln ('|09You listen for a little while, and hear: ');
  make_a_line;
  While Not EoF (File1) Do
  Begin
    ReadLn (File1, currentline);
    pipeln (currentline);
  End;
  make_a_line;
  Close(File1);
  pipe ('|11Say Something? |03');
  YesErNo ('N');
  If CH = 'Y' Then addline;
End;


End.