Category : BBS Programs+Doors
Archive   : FORMQUOT.ZIP
Filename : LINEEDIT.QUO

 
Output of file : LINEEDIT.QUO contained in archive : FORMQUOT.ZIP

procedure quote;
procedure addit(oogledoogle:byte; JBlives:lstr);
begin
curline:=oogledoogle;
input:=JBlives;
insertline;
end;

var
b:bulrec;
Start,ND,NumLines,Dave,Cdt,Cnt:integer; Counter:byte;
Whom:mstr;
label exit;
begin
input:='';
if curbul>0 then begin
seek (bfile,curbul-1);
read (bfile,b); che;
if b.line<0 then goto exit;
reloadtext(b.line,Quoteit);
end;
if Quoteit.numlines<1 then Begin
Writeln('There is nothing to quote!'^M);
WriteStr('Press '^U'Enter:');;
Goto Exit;
end;
Counter:=curline;
if Counter<1 then Counter:=1;
ClearScr;
WriteHdr('Message Quoting');
For Cnt:=1 to Quoteit.NumLines Do WriteLn(^S,cnt,': '^U+Quoteit.Text[Cnt]);
ThereAre(Quoteit.NumLines,'line','lines');
ParseRange(Quoteit.NumLines,Start,ND);
If Start=0 then Begin WriteStr('Press '^U'Enter:');; goto Exit;end;
WriteLn(^R'Lines '^S,Start,^R' through '^S,nd,^R' will be added to your message.');
WriteStr('Press '^U'Enter:');;
NumLines:=Nd;
if Start>1 then dec(numlines,start);
if b.anon then Whom:=ConfigSet^.anonymousst else Whom:=b.leftby;
if curbul>0 then
Addit(Counter+1,'-/- Quoting '+Whom+' to '+B.LeftTo+' -\-')
else addit(Counter+1,'');
AddIt(Counter+2,'');
Dave:=Numlines+2;
Cdt:=1;
For Cnt := 3 to Dave do Begin (* Add the text to msg *)
AddIt(Counter+Cnt,'¯'+Copy(Quoteit.Text[(Start-1)+Cdt],1,79));
Inc(Cdt);
End;
AddIt(Counter+Cnt+1,'');
Exit:
writeln;
ClearScr;
For Counter:=1 to m.numlines do writeln(m.text[Counter]);
End;