2346 lines
65 KiB
Plaintext
2346 lines
65 KiB
Plaintext
{$A+,B-,D+,E-,F+,I-,L+,N-,O+,R-,S+,V-}
|
||
|
||
UNIT Mail1;
|
||
|
||
INTERFACE
|
||
|
||
USES
|
||
Common;
|
||
|
||
FUNCTION Inputmessage(Pub,
|
||
IsReply: Boolean;
|
||
CONST MsgTitle: Str40;
|
||
VAR MHeader: MHeaderRec;
|
||
CONST ReadInMsg: Astr): Boolean;
|
||
PROCEDURE InputLine(VAR S: Astr);
|
||
PROCEDURE Anonymous(Offline: Boolean; VAR MHeader: MHeaderRec);
|
||
|
||
IMPLEMENTATION
|
||
|
||
USES
|
||
Crt,
|
||
File8,
|
||
File0,
|
||
Mail0,
|
||
TimeFunc;
|
||
|
||
CONST
|
||
TopScreen = 3; {first screen line for Text entry}
|
||
ScrollSize = 5; {number OF lines to scroll by}
|
||
LineMaxLen = 78;
|
||
|
||
VAR
|
||
InportFile: Text;
|
||
InportFileOpen: Boolean;
|
||
ScreenLines: Integer;
|
||
Escp: Boolean;
|
||
|
||
PROCEDURE Anonymous(Offline: Boolean; VAR MHeader: MHeaderRec);
|
||
VAR
|
||
An: Anontyp;
|
||
HeaderL: Astr;
|
||
UName: Str36;
|
||
Cmd: Char;
|
||
Counter: Byte;
|
||
BEGIN
|
||
IF (ReadMsgArea <> -1) THEN
|
||
BEGIN
|
||
An := MemMsgArea.Anonymous;
|
||
IF (An = ATNo) AND (AACS(General.AnonPubPost) AND (NOT Offline)) THEN
|
||
An := ATYes;
|
||
IF (RPostAn IN ThisUser.Flags) THEN
|
||
An := ATNo;
|
||
END
|
||
ELSE IF (AACS(General.AnonPrivPost)) THEN
|
||
An := ATYes
|
||
ELSE
|
||
An := ATNo;
|
||
IF (Offline) THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
IF (An = ATNo) THEN
|
||
FOR Counter := 1 TO 5 DO
|
||
BEGIN
|
||
HeaderL := Headerline(MHeader,FileSize(MsgHdrF),FileSize(MsgHdrF),Counter);
|
||
IF (HeaderL <> '') THEN
|
||
PrintACR(HeaderL);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
ReadMsg(FileSize(MsgHdrF),FileSize(MsgHdrF),FileSize(MsgHdrF));
|
||
Reset(MsgHdrF);
|
||
IF (IOResult = 2) THEN
|
||
ReWrite(MsgHdrF);
|
||
Reset(MsgTxtF,1);
|
||
IF (IOResult = 2) THEN
|
||
ReWrite(MsgTxtF,1);
|
||
IF (IOResult <> 0) THEN
|
||
SysOpLog('Anon: error opening message areas.');
|
||
END;
|
||
END;
|
||
CASE An OF
|
||
ATNo : ;
|
||
ATForced : IF (CoSysOp) THEN
|
||
MHeader.From.Anon := 2
|
||
ELSE
|
||
MHeader.From.Anon := 1;
|
||
ATYes : BEGIN
|
||
NL;
|
||
IF PYNQ(AOnOff(ReadMsgArea <> - 1,'Post anonymously? ','Send anonymously? '),0,FALSE) THEN
|
||
IF (CoSysOp) THEN
|
||
MHeader.From.Anon := 2
|
||
ELSE
|
||
MHeader.From.Anon := 1;
|
||
END;
|
||
ATDearAbby : BEGIN
|
||
NL;
|
||
Print(AOnOff(ReadMsgArea <> - 1,'Post as:','Send as:'));
|
||
NL;
|
||
Print('1. Abby');
|
||
Print('2. Problemed Person');
|
||
Print('3. '+Caps(ThisUser.Name));
|
||
NL;
|
||
Prt('Which? ');
|
||
OneK(Cmd,'123'^M,TRUE,TRUE);
|
||
CASE Cmd OF
|
||
'1' : MHeader.From.Anon := 3;
|
||
'2' : MHeader.From.Anon := 4;
|
||
END;
|
||
END;
|
||
ATAnyName : BEGIN
|
||
NL;
|
||
Print('You can post under any name in this area.');
|
||
NL;
|
||
Prt('Name: ');
|
||
InputDefault(UName,MHeader.From.A1S,36,[InterActiveEdit],TRUE);
|
||
IF (UName <> MHeader.From.A1S) THEN
|
||
BEGIN
|
||
MHeader.From.Anon := 5;
|
||
MHeader.From.A1S := Caps(UName);
|
||
END;
|
||
END;
|
||
END;
|
||
END;
|
||
|
||
FUNCTION Inputmessage(Pub,
|
||
IsReply: Boolean;
|
||
CONST MsgTitle: Str40;
|
||
VAR MHeader: MHeaderRec;
|
||
CONST ReadInMsg: Astr): Boolean;
|
||
TYPE
|
||
LinePointer = ^LineArray;
|
||
LineArray = ARRAY [1..500] OF STRING[120];
|
||
VAR
|
||
LinePtr: LinePointer;
|
||
PhyLine: ARRAY [1..20] OF STRING[78];
|
||
TotalLines: 1..500;
|
||
|
||
MsgSubj: Str40;
|
||
|
||
MsgTo,
|
||
UserName: Str36;
|
||
|
||
MaxLines,
|
||
LastQuoteLine,
|
||
MaxQuoteLines,
|
||
CurrentLine,
|
||
TopLine,
|
||
CCol: Integer;
|
||
|
||
DisableMCI,
|
||
CantAbort,
|
||
Insert_Mode,
|
||
SaveMsg: Boolean;
|
||
|
||
PROCEDURE ANSIG(X,Y: Byte);
|
||
BEGIN
|
||
IF (ComPortSpeed > 0) THEN
|
||
IF (OkAvatar) THEN
|
||
SerialOut(^V^H+Chr(Y)+Chr(X))
|
||
ELSE
|
||
SerialOut(#27+'['+IntToStr(Y)+';'+IntToStr(X)+'H');
|
||
IF (WantOut) THEN
|
||
GoToXY(X,Y);
|
||
END;
|
||
|
||
PROCEDURE DoLines;
|
||
BEGIN
|
||
IF (OkANSI OR OkAvatar) THEN
|
||
Print('^4<><34><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD>:<3A><>Ŀ^1')
|
||
ELSE
|
||
Print('[---:----:----:----:----:----:----:----|----:----:----:----:----:----:----:---]');
|
||
END;
|
||
|
||
PROCEDURE Count_Lines;
|
||
BEGIN
|
||
TotalLines := MaxLines;
|
||
WHILE (TotalLines > 0) AND (Length(LinePtr^[TotalLines]) = 0) DO
|
||
Dec(TotalLines);
|
||
END;
|
||
|
||
PROCEDURE Append_Space;
|
||
BEGIN
|
||
LinePtr^[CurrentLine] := LinePtr^[CurrentLine]+' ';
|
||
END;
|
||
|
||
FUNCTION CurLength: Integer;
|
||
BEGIN
|
||
CurLength := Length(LinePtr^[CurrentLine]);
|
||
END;
|
||
|
||
FUNCTION Line_Boundry: Boolean;
|
||
{is the cursor at either the start OF the END OF a line?}
|
||
BEGIN
|
||
Line_Boundry := (CCol = 1) OR (CCol > CurLength);
|
||
END;
|
||
|
||
FUNCTION CurChar: Char;
|
||
{return the character under the cursor}
|
||
BEGIN
|
||
IF (CCol <= CurLength) THEN
|
||
CurChar := LinePtr^[CurrentLine][CCol]
|
||
ELSE
|
||
CurChar := ' ';
|
||
END;
|
||
|
||
FUNCTION LastChar: Char;
|
||
{return the last character on the current line}
|
||
BEGIN
|
||
IF (CurLength = 0) THEN
|
||
LastChar := ' '
|
||
ELSE
|
||
LastChar := LinePtr^[CurrentLine][CurLength];
|
||
END;
|
||
|
||
PROCEDURE Remove_Trailing;
|
||
BEGIN
|
||
WHILE (Length(LinePtr^[CurrentLine]) > 0) AND (LinePtr^[CurrentLine][Length(LinePtr^[CurrentLine])] <= ' ') DO
|
||
Dec(LinePtr^[CurrentLine][0]);
|
||
END;
|
||
|
||
FUNCTION Delimiter: Boolean;
|
||
{return TRUE IF the current character is a Delimiter FOR words}
|
||
BEGIN
|
||
CASE CurChar OF
|
||
'0'..'9', 'a'..'z', 'A'..'Z', '_':
|
||
Delimiter := FALSE;
|
||
ELSE
|
||
Delimiter := TRUE;
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Reposition( x: Boolean);
|
||
VAR
|
||
Eol: Integer;
|
||
BEGIN
|
||
IF (x) THEN
|
||
BEGIN
|
||
Eol := (CurLength + 1);
|
||
IF (CCol > Eol) THEN
|
||
CCol := Eol;
|
||
END;
|
||
Count_Lines;
|
||
ANSIG(CCol,((CurrentLine - TopLine) + TopScreen));
|
||
IF (Pos('>',Copy(LinePtr^[CurrentLine],1,4)) > 0) THEN
|
||
Usercolor(3)
|
||
ELSE
|
||
Usercolor(1);
|
||
END;
|
||
|
||
PROCEDURE Set_PhyLine;
|
||
{set physical line to match logical line (indicates display update)}
|
||
BEGIN
|
||
PhyLine[((CurrentLine - TopLine) + 1)] := LinePtr^[CurrentLine];
|
||
END;
|
||
|
||
PROCEDURE Clear_Eol;
|
||
BEGIN
|
||
IF (NOT OkAvatar) THEN
|
||
SerialOut(#27'[K')
|
||
ELSE
|
||
SerialOut(^V^G);
|
||
IF (WantOut) THEN
|
||
ClrEOL;
|
||
END;
|
||
|
||
PROCEDURE Truncate_Line;
|
||
{update screen after changing END-OF-line}
|
||
BEGIN
|
||
IF (CCol > 0) THEN
|
||
LinePtr^[CurrentLine][0] := Chr(CCol - 1);
|
||
Reposition(TRUE);
|
||
Clear_Eol;
|
||
{Set_PhyLine; don't understand this}
|
||
END;
|
||
|
||
PROCEDURE Refresh_Screen;
|
||
VAR
|
||
PLine,
|
||
PCol,
|
||
Phline,
|
||
Junk: Integer;
|
||
BEGIN
|
||
IF (CurrentLine >= MaxLines) THEN
|
||
CurrentLine := MaxLines;
|
||
PLine := CurrentLine;
|
||
CurrentLine := TopLine;
|
||
PCol := CCol;
|
||
CCol := 1;
|
||
FOR Junk := TopLine TO ((TopLine + ScreenLines) - 1) DO
|
||
BEGIN
|
||
CurrentLine:= Junk;
|
||
Phline := ((CurrentLine - TopLine) + 1);
|
||
IF (CurrentLine > MaxLines) THEN
|
||
BEGIN
|
||
Reposition (TRUE);
|
||
Prompt('^9--');
|
||
PhyLine[Phline] := '--';
|
||
Clear_Eol;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF (LinePtr^[CurrentLine] <> PhyLine[Phline]) THEN
|
||
BEGIN
|
||
Reposition (TRUE);
|
||
MCIAllowed := FALSE;
|
||
ColorAllowed := FALSE;
|
||
AllowAbort := FALSE;
|
||
PrintMain(Copy(LinePtr^[CurrentLine],1,LineMaxLen));
|
||
MCIAllowed := TRUE;
|
||
ColorAllowed := TRUE;
|
||
AllowAbort := TRUE;
|
||
IF (CurLength < Length(PhyLine[Phline])) THEN
|
||
Clear_Eol;
|
||
Set_PhyLine;
|
||
END;
|
||
END;
|
||
END;
|
||
Tleft;
|
||
CCol := PCol;
|
||
CurrentLine := PLine;
|
||
Reposition(TRUE);
|
||
END;
|
||
|
||
PROCEDURE Scroll_Screen(Lines: Integer);
|
||
BEGIN
|
||
Inc(TopLine,Lines);
|
||
IF (CurrentLine < TopLine) OR (CurrentLine >= (TopLine + ScreenLines)) THEN
|
||
TopLine := ((CurrentLine - ScreenLines) DIV 2);
|
||
IF (TopLine < 1) THEN
|
||
TopLine := 1
|
||
ELSE IF (TopLine >= MaxLines) THEN
|
||
Dec(TopLine,ScrollSize DIV 2);
|
||
Refresh_Screen;
|
||
END;
|
||
|
||
PROCEDURE Cursor_Up;
|
||
BEGIN
|
||
IF (CurrentLine > 1) THEN
|
||
Dec(CurrentLine);
|
||
IF (CurrentLine < TopLine) THEN
|
||
Scroll_Screen(-ScrollSize)
|
||
ELSE
|
||
Reposition(FALSE);
|
||
END;
|
||
|
||
PROCEDURE Cursor_Down;
|
||
BEGIN
|
||
Inc(CurrentLine);
|
||
IF (CurrentLine >= MaxLines) THEN
|
||
BEGIN
|
||
CurrentLine := MaxLines;
|
||
IF (InportFileOpen) THEN
|
||
BEGIN
|
||
InportFileOpen := FALSE;
|
||
Close(InportFile);
|
||
END;
|
||
END;
|
||
IF ((CurrentLine - TopLine) >= ScreenLines) THEN
|
||
Scroll_Screen(ScrollSize)
|
||
ELSE
|
||
Reposition(FALSE);
|
||
END;
|
||
|
||
PROCEDURE Cursor_EndLine;
|
||
BEGIN
|
||
CCol := 79; (* Should this be 78 *)
|
||
Reposition(TRUE);
|
||
END;
|
||
|
||
PROCEDURE Cursor_StartLine;
|
||
BEGIN
|
||
CCol := 1;
|
||
Reposition(TRUE);
|
||
END;
|
||
|
||
PROCEDURE Cursor_Left;
|
||
BEGIN
|
||
IF (CCol = 1) THEN
|
||
BEGIN
|
||
Cursor_Up;
|
||
Cursor_EndLine;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
Dec(CCol);
|
||
IF (NOT OkAvatar) THEN
|
||
SerialOut(#27'[D')
|
||
ELSE
|
||
SerialOut(^V^E);
|
||
GoToXY((WhereX - 1),WhereY);
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Cursor_Right;
|
||
BEGIN
|
||
IF (CCol > CurLength) THEN
|
||
BEGIN
|
||
CCol := 1;
|
||
Cursor_Down;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
OutKey(CurChar);
|
||
Inc(CCol);
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Cursor_WordRight;
|
||
BEGIN
|
||
IF (Delimiter) THEN
|
||
BEGIN
|
||
{skip blanks right}
|
||
REPEAT
|
||
Cursor_Right;
|
||
IF (Line_Boundry) THEN
|
||
Exit;
|
||
UNTIL (NOT Delimiter);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
{find Next blank right}
|
||
REPEAT
|
||
Cursor_Right;
|
||
IF (Line_Boundry) THEN
|
||
Exit;
|
||
UNTIL (Delimiter);
|
||
{THEN move to a Word start (recursive)}
|
||
Cursor_WordRight;
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Cursor_WordLeft;
|
||
BEGIN
|
||
IF (Delimiter) THEN
|
||
BEGIN
|
||
{skip blanks left}
|
||
REPEAT
|
||
Cursor_Left;
|
||
IF (Line_Boundry) THEN
|
||
Exit;
|
||
UNTIL (NOT Delimiter);
|
||
{find Next blank left}
|
||
REPEAT
|
||
Cursor_Left;
|
||
IF (Line_Boundry) THEN
|
||
Exit;
|
||
UNTIL (Delimiter);
|
||
{move to start OF the Word}
|
||
Cursor_Right;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
{find Next blank left}
|
||
REPEAT
|
||
Cursor_Left;
|
||
IF (Line_Boundry) THEN
|
||
Exit;
|
||
UNTIL (Delimiter);
|
||
{AND THEN move a Word left (recursive)}
|
||
Cursor_WordLeft;
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Delete_Line;
|
||
{Delete the line at the cursor}
|
||
VAR
|
||
LineNum1: Integer;
|
||
BEGIN
|
||
FOR LineNum1 := CurrentLine TO (MaxLines - 1) DO
|
||
LinePtr^[LineNum1] := LinePtr^[LineNum1 + 1];
|
||
LinePtr^[MaxLines] := '';
|
||
IF (CurrentLine <= TotalLines) AND (TotalLines > 1) THEN
|
||
Dec(TotalLines);
|
||
END;
|
||
|
||
PROCEDURE Insert_Line(CONST Contents: Astr);
|
||
{open a new line at the cursor}
|
||
VAR
|
||
LineNum1: Integer;
|
||
BEGIN
|
||
FOR LineNum1 := MaxLines DOWNTO (CurrentLine + 1) DO
|
||
LinePtr^[LineNum1] := LinePtr^[LineNum1 - 1];
|
||
LinePtr^[CurrentLine] := Contents;
|
||
IF (CurrentLine < TotalLines) THEN
|
||
Inc(TotalLines);
|
||
IF (CurrentLine > TotalLines) THEN
|
||
TotalLines := CurrentLine;
|
||
END;
|
||
|
||
PROCEDURE Reformat_Paragraph;
|
||
BEGIN
|
||
Remove_Trailing;
|
||
CCol := CurLength;
|
||
{FOR each line OF the paragraph}
|
||
WHILE (CurChar <> ' ') DO
|
||
BEGIN
|
||
{FOR each Word OF the current line}
|
||
REPEAT
|
||
{determine Length OF first Word on the following line}
|
||
Inc(CurrentLine);
|
||
Remove_Trailing;
|
||
CCol := 1;
|
||
WHILE (CurChar <> ' ') DO
|
||
Inc(CCol);
|
||
Dec(CurrentLine);
|
||
{hoist a Word From the following line IF it will fit}
|
||
IF (CCol > 1) AND ((CCol + CurLength) < LineMaxLen) THEN
|
||
BEGIN
|
||
IF (CurLength > 0) THEN
|
||
BEGIN
|
||
{add a second space after sentences}
|
||
CASE LastChar OF
|
||
'.', '?', '!':
|
||
Append_Space;
|
||
END;
|
||
Append_Space;
|
||
END;
|
||
LinePtr^[CurrentLine] := LinePtr^[CurrentLine] + Copy(LinePtr^[CurrentLine + 1],1,(CCol - 1));
|
||
{remove the hoisted Word}
|
||
Inc(CurrentLine);
|
||
WHILE (CurChar = ' ') AND (CCol <= CurLength) DO
|
||
Inc(CCol);
|
||
Delete(LinePtr^[CurrentLine],1,(CCol - 1));
|
||
IF (CurLength = 0) THEN
|
||
Delete_Line;
|
||
Dec(CurrentLine);
|
||
END
|
||
ELSE
|
||
CCol := 0; {END OF line}
|
||
UNTIL (CCol = 0);
|
||
{no more lines will fit - either time FOR Next line, OR END OF paragraph}
|
||
Inc(CurrentLine);
|
||
CCol := 1;
|
||
Remove_Trailing;
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Word_Wrap;
|
||
{line is full AND a character must be inserted. perform Word-wrap,
|
||
updating screen AND leave ready FOR the insertion}
|
||
VAR
|
||
TempStr1: AStr;
|
||
PCol,
|
||
PLine: Integer;
|
||
BEGIN
|
||
Remove_Trailing;
|
||
PLine := CurrentLine;
|
||
PCol := CCol;
|
||
{find start OF Word to wrap}
|
||
CCol := CurLength;
|
||
WHILE (CCol > 0) AND (CurChar <> ' ') DO
|
||
Dec(CCol);
|
||
{cancel wrap IF no spaces IN whole line}
|
||
IF (CCol = 0) THEN
|
||
BEGIN
|
||
CCol := 1;
|
||
Cursor_Down;
|
||
Exit;
|
||
END;
|
||
{get the portion to be moved down}
|
||
Inc(CCol);
|
||
TempStr1 := Copy(LinePtr^[CurrentLine],CCol,LineMaxLen);
|
||
{remove it From current line AND refresh screen}
|
||
Truncate_Line;
|
||
{place Text on open a new line following the cursor}
|
||
Inc(CurrentLine);
|
||
Insert_Line(TempStr1);
|
||
{join the wrapped Text WITH the following lines OF Text}
|
||
Reformat_Paragraph;
|
||
{restore cursor to proper position after the wrap}
|
||
CurrentLine := PLine;
|
||
IF (PCol > CurLength) THEN
|
||
BEGIN
|
||
CCol := (PCol - CurLength); {position cursor after wrapped Word}
|
||
Inc(CurrentLine); {Cursor_Down;}
|
||
END
|
||
ELSE
|
||
CCol := PCol; {restore original cursor position}
|
||
IF ((CurrentLine - TopLine) >= ScreenLines) THEN
|
||
Scroll_Screen(ScrollSize)
|
||
ELSE
|
||
Refresh_Screen;
|
||
END;
|
||
|
||
PROCEDURE Join_Lines;
|
||
{join the current line WITH the following line, IF possible}
|
||
BEGIN
|
||
Inc(CurrentLine);
|
||
Remove_Trailing;
|
||
Dec(CurrentLine);
|
||
Remove_Trailing;
|
||
IF ((CurLength + Length(LinePtr^[CurrentLine + 1])) >= LineMaxLen) THEN
|
||
Exit;
|
||
IF (LastChar <> ' ') THEN
|
||
Append_Space;
|
||
LinePtr^[CurrentLine] := LinePtr^[CurrentLine]+LinePtr^[CurrentLine + 1];
|
||
Inc(CurrentLine);
|
||
Delete_Line;
|
||
Dec(CurrentLine);
|
||
Refresh_Screen;
|
||
END;
|
||
|
||
PROCEDURE Split_Line;
|
||
{splits the current line at the cursor, leaves cursor IN original position}
|
||
VAR
|
||
TempStr1: AStr;
|
||
PCol: Integer;
|
||
BEGIN
|
||
PCol := CCol;
|
||
Remove_Trailing; {get the portion FOR the Next line}
|
||
TempStr1 := Copy(LinePtr^[CurrentLine],CCol,LineMaxLen);
|
||
Truncate_Line;
|
||
CCol := 1; {open a blank line}
|
||
Inc(CurrentLine);
|
||
Insert_Line(TempStr1);
|
||
IF ((CurrentLine - TopLine) > (ScreenLines - 2)) THEN
|
||
Scroll_Screen(ScrollSize)
|
||
ELSE
|
||
Refresh_Screen;
|
||
Dec(CurrentLine);
|
||
CCol := PCol;
|
||
END;
|
||
|
||
PROCEDURE Cursor_NewLine;
|
||
BEGIN
|
||
IF (Insert_Mode) THEN
|
||
Split_Line;
|
||
CCol := 1;
|
||
Cursor_Down;
|
||
END;
|
||
|
||
PROCEDURE FS_Reformat;
|
||
{reformat paragraph, update display}
|
||
VAR
|
||
PLine: Integer;
|
||
BEGIN
|
||
PLine := CurrentLine;
|
||
Reformat_Paragraph;
|
||
{find start OF Next paragraph}
|
||
WHILE (CurLength = 0) AND (CurrentLine <= TotalLines) DO
|
||
Inc(CurrentLine);
|
||
{find top OF screen FOR Redisplay}
|
||
WHILE ((CurrentLine - TopLine) > (ScreenLines - 2)) DO
|
||
BEGIN
|
||
Inc(TopLine,ScrollSize);
|
||
PLine := TopLine;
|
||
END;
|
||
Refresh_Screen;
|
||
END;
|
||
|
||
PROCEDURE Insert_Char(C1: Char);
|
||
BEGIN
|
||
IF (CCol < CurLength) THEN
|
||
BEGIN
|
||
Remove_Trailing;
|
||
IF (CCol > CurLength) THEN
|
||
Reposition(TRUE);
|
||
END;
|
||
IF (Insert_Mode AND (CurLength >= LineMaxLen)) OR (CCol > LineMaxLen) THEN
|
||
BEGIN
|
||
IF (CCol <= LineMaxLen) THEN
|
||
Word_Wrap
|
||
ELSE IF (C1 = ' ') THEN
|
||
BEGIN
|
||
Cursor_NewLine;
|
||
Exit;
|
||
END
|
||
ELSE IF (LastChar = ' ') THEN
|
||
Cursor_NewLine {nonspace w/space at END-line is newline}
|
||
ELSE
|
||
Word_Wrap; {otherwise wrap Word down AND continue}
|
||
END;
|
||
{Insert character into the middle OF a line}
|
||
IF (Insert_Mode) AND (CCol <= CurLength) THEN
|
||
BEGIN
|
||
Insert(C1,LinePtr^[CurrentLine],CCol);
|
||
{update display line following cursor}
|
||
MCIAllowed := FALSE;
|
||
ColorAllowed := FALSE;
|
||
AllowAbort := FALSE;
|
||
PrintMain(Copy(LinePtr^[CurrentLine],CCol,LineMaxLen));
|
||
MCIAllowed := TRUE;
|
||
ColorAllowed := TRUE;
|
||
AllowAbort := TRUE;
|
||
{position cursor FOR Next insertion}
|
||
Inc(CCol);
|
||
Reposition(TRUE);
|
||
END
|
||
ELSE
|
||
BEGIN {append a character to the END OF a line}
|
||
WHILE (CurLength < CCol) DO
|
||
Append_Space;
|
||
LinePtr^[CurrentLine][CCol] := C1;
|
||
{advance the cursor, updating the display}
|
||
Cursor_Right;
|
||
END;
|
||
Set_PhyLine;
|
||
END;
|
||
|
||
PROCEDURE Delete_Char;
|
||
BEGIN
|
||
{Delete whole line IF it is empty}
|
||
IF (CCol > CurLength) AND (CurLength > 0) THEN
|
||
Join_Lines
|
||
ELSE IF (CCol <= CurLength) THEN
|
||
BEGIN {Delete IN the middle OF a line}
|
||
Delete(LinePtr^[CurrentLine],CCol,1);
|
||
MCIAllowed := FALSE;
|
||
ColorAllowed := FALSE;
|
||
AllowAbort := FALSE;
|
||
PrintMain(Copy(LinePtr^[CurrentLine],CCol,LineMaxLen)+' ');
|
||
MCIAllowed := TRUE;
|
||
ColorAllowed := TRUE;
|
||
AllowAbort := TRUE;
|
||
Reposition(TRUE);
|
||
Set_PhyLine;
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Delete_WordRight;
|
||
BEGIN
|
||
IF (CurChar = ' ') THEN
|
||
REPEAT {skip blanks right}
|
||
Delete_Char;
|
||
UNTIL (CurChar <> ' ') OR (CCol > CurLength)
|
||
ELSE
|
||
BEGIN
|
||
REPEAT {find Next blank right}
|
||
Delete_Char;
|
||
UNTIL (Delimiter);
|
||
Delete_Char;
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Page_Down;
|
||
BEGIN
|
||
IF ((TopLine + ScreenLines) < MaxLines) THEN
|
||
BEGIN
|
||
Inc(CurrentLine,ScrollSize);
|
||
Scroll_Screen(ScrollSize);
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE Page_Up;
|
||
BEGIN
|
||
IF (TopLine > 1) THEN
|
||
BEGIN
|
||
Dec(CurrentLine,ScrollSize);
|
||
IF (CurrentLine < 1) THEN
|
||
CurrentLine := 1;
|
||
Scroll_Screen(-ScrollSize);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
CurrentLine := 1;
|
||
CCol := 1;
|
||
Scroll_Screen(0);
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE FS_Insert_Line;
|
||
{open a blank line, update display}
|
||
BEGIN
|
||
Insert_Line('');
|
||
IF ((CurrentLine - TopLine) > (ScreenLines - 2)) THEN
|
||
Scroll_Screen(ScrollSize)
|
||
ELSE
|
||
Refresh_Screen;
|
||
END;
|
||
|
||
PROCEDURE FS_Delete_Line;
|
||
{Delete the line at the cursor, update display}
|
||
BEGIN
|
||
Delete_Line;
|
||
Refresh_Screen;
|
||
END;
|
||
|
||
PROCEDURE Display_Insert_Status;
|
||
BEGIN
|
||
ANSIG(69,1);
|
||
Prompt('^1(Mode: ');
|
||
IF (Insert_Mode) THEN
|
||
Prompt('INS)')
|
||
ELSE
|
||
Prompt('OVR)');
|
||
END;
|
||
|
||
PROCEDURE Prepare_Screen;
|
||
VAR
|
||
Counter: Integer;
|
||
BEGIN
|
||
CLS;
|
||
ANSIG(1,1);
|
||
IF (TimeWarn) THEN
|
||
Prompt(^G^G' |12Warning: |10You have less than '+IntToStr(NSL DIV 60 + 1)+' '+
|
||
Plural('minute',NSL DIV 60 + 1)+' remaining online!')
|
||
ELSE
|
||
BEGIN
|
||
Prompt('^1(Ctrl-Z = Help) ^5To:^1 '+PadLeftStr(MsgTo,20)+' ^5Subj: ^1');
|
||
IF (MHeader.FileAttached = 0) THEN
|
||
Print(PadLeftStr(MsgSubj,20))
|
||
ELSE
|
||
Print(PadLeftStr(StripName(MsgSubj),20));
|
||
Display_Insert_Status;
|
||
END;
|
||
ANSIG(1,2);
|
||
DoLines;
|
||
FOR Counter := 1 TO ScreenLines DO {physical lines are now invalid}
|
||
PhyLine[Counter] := '';
|
||
Scroll_Screen(0); {causes Redisplay}
|
||
END;
|
||
|
||
PROCEDURE Redisplay;
|
||
BEGIN
|
||
TopLine := ((CurrentLine - ScreenLines) DIV 2);
|
||
Prepare_Screen;
|
||
END;
|
||
|
||
PROCEDURE FS_Help;
|
||
BEGIN
|
||
CLS;
|
||
PrintF('FSHELP');
|
||
PauseScr(FALSE);
|
||
Prepare_Screen;
|
||
END;
|
||
|
||
PROCEDURE DoQuote(RedrawScreen: Boolean);
|
||
VAR
|
||
QuoteFile: Text;
|
||
TempStr1: AStr;
|
||
Fline,
|
||
Nline,
|
||
QuoteLi: Integer;
|
||
Done: Boolean;
|
||
|
||
PROCEDURE GetOut(x: Boolean);
|
||
BEGIN
|
||
IF (x) THEN
|
||
Close(QuoteFile);
|
||
IF (InvisEdit) AND (RedrawScreen) THEN
|
||
Prepare_Screen;
|
||
MCIAllowed := TRUE;
|
||
END;
|
||
|
||
BEGIN
|
||
Assign(QuoteFile,'TEMPQ'+IntToStr(ThisNode));
|
||
Reset(QuoteFile);
|
||
IF (IOResult <> 0) THEN
|
||
Exit;
|
||
IF (MaxQuoteLines = 0) THEN
|
||
BEGIN
|
||
WHILE NOT EOF(QuoteFile) DO
|
||
BEGIN
|
||
ReadLn(QuoteFile,TempStr1);
|
||
Inc(MaxQuoteLines);
|
||
END;
|
||
Close(QuoteFile);
|
||
Reset(QuoteFile);
|
||
END;
|
||
|
||
MCIAllowed := FALSE;
|
||
Done := FALSE;
|
||
|
||
REPEAT
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
CLS;
|
||
QuoteLi := 0;
|
||
IF (LastQuoteLine > 0) THEN
|
||
WHILE NOT EOF(QuoteFile) AND (QuoteLi < LastQuoteLine) DO
|
||
BEGIN
|
||
ReadLn(QuoteFile,TempStr1);
|
||
Inc(QuoteLi);
|
||
END;
|
||
IF EOF(QuoteFile) THEN
|
||
BEGIN
|
||
LastQuoteLine := 0;
|
||
QuoteLi := 0;
|
||
Reset(QuoteFile);
|
||
END;
|
||
WHILE (NOT EOF(QuoteFile)) AND ((QuoteLi - LastQuoteLine) < (PageLength - 4)) DO
|
||
BEGIN
|
||
ReadLn(QuoteFile,TempStr1);
|
||
Inc(QuoteLi);
|
||
TempStr1 := Copy(PadRightInt(QuoteLi,Length(IntToStr(MaxQuoteLines)))+':'+TempStr1,1,LineMaxLen);
|
||
PrintACR('^3'+TempStr1);
|
||
END;
|
||
Close(QuoteFile);
|
||
Reset(QuoteFile);
|
||
REPEAT
|
||
NL;
|
||
Prt('First line to quote [^5?^4=^5Help^4]: ');
|
||
Scaninput(TempStr1,'HQ?'^M);
|
||
IF (TempStr1 = '?') THEN
|
||
BEGIN
|
||
NL;
|
||
Print('^1<^3Q^1>uit, <^3H^1>eader, <^3?^1>Help, or first line to quote.');
|
||
END
|
||
ELSE IF (TempStr1 = 'H') THEN
|
||
BEGIN
|
||
WHILE (TempStr1 > '') AND (NOT EOF(QuoteFile)) AND (CurrentLine <= MaxLines) DO
|
||
BEGIN
|
||
ReadLn(QuoteFile,TempStr1);
|
||
IF (InvisEdit) THEN
|
||
Insert_Line(TempStr1)
|
||
ELSE
|
||
BEGIN
|
||
LinePtr^[TotalLines] := TempStr1;
|
||
Inc(TotalLines);
|
||
END;
|
||
Inc(CurrentLine);
|
||
END;
|
||
Close(QuoteFile);
|
||
Reset(QuoteFile);
|
||
TempStr1 := 'H';
|
||
END;
|
||
UNTIL ((TempStr1 <> '?') AND (TempStr1 <> 'H')) OR (HangUp);
|
||
Fline := StrToInt(TempStr1);
|
||
IF (Fline <= 0) THEN
|
||
LastQuoteLine := QuoteLi;
|
||
IF (TempStr1 = 'Q') THEN
|
||
Done := TRUE;
|
||
IF (Fline > MaxQuoteLines) OR (HangUp) THEN
|
||
BEGIN
|
||
GetOut(TRUE);
|
||
Exit;
|
||
END;
|
||
IF (Fline > 0) THEN
|
||
BEGIN
|
||
Prt('Last line to quote: ');
|
||
Scaninput(TempStr1,'Q'^M);
|
||
IF (TempStr1 <> #13) THEN
|
||
Nline := StrToInt(TempStr1)
|
||
ELSE
|
||
Nline := Fline;
|
||
IF (Nline < Fline) OR (Nline > MaxQuoteLines) THEN
|
||
BEGIN
|
||
GetOut(TRUE);
|
||
Exit;
|
||
END;
|
||
Nline := ((Nline - Fline) + 1);
|
||
WHILE (NOT EOF(QuoteFile)) AND (Fline > 1) DO
|
||
BEGIN
|
||
Dec(Fline);
|
||
ReadLn(QuoteFile,TempStr1);
|
||
END;
|
||
IF (NOT InvisEdit) THEN
|
||
CurrentLine := TotalLines;
|
||
WHILE (NOT EOF(QuoteFile)) AND (Nline > 0) AND (CurrentLine <= MaxLines) DO
|
||
BEGIN
|
||
Dec(Nline);
|
||
ReadLn(QuoteFile,TempStr1);
|
||
IF (InvisEdit) THEN
|
||
Insert_Line(TempStr1)
|
||
ELSE
|
||
BEGIN
|
||
LinePtr^[TotalLines] := TempStr1;
|
||
Inc(TotalLines);
|
||
END;
|
||
Inc(CurrentLine);
|
||
END;
|
||
Done := TRUE;
|
||
END;
|
||
UNTIL (Done) OR (HangUp);
|
||
GetOut(TRUE);
|
||
LastError := IOResult;
|
||
END;
|
||
|
||
PROCEDURE FS_Editor;
|
||
VAR
|
||
GKey: Word;
|
||
SaveTimeWarn: Boolean;
|
||
BEGIN
|
||
InvisEdit := TRUE;
|
||
Insert_Mode := TRUE;
|
||
SaveTimeWarn := TimeWarn;
|
||
Count_Lines;
|
||
IF (TotalLines > 0) THEN
|
||
CurrentLine := (TotalLines + 1)
|
||
ELSE
|
||
CurrentLine := 1;
|
||
CCol := 1;
|
||
TopLine := 1;
|
||
ScreenLines := (PageLength - 4);
|
||
IF (ScreenLines > 20) THEN
|
||
ScreenLines := 20;
|
||
WHILE (CurrentLine - TopLine) > (ScrollSize + 3) DO
|
||
Inc(TopLine,ScrollSize);
|
||
Prepare_Screen;
|
||
REPEAT
|
||
IF ((InportFileOpen) AND (Buf = '')) THEN
|
||
IF (NOT EOF(InportFile)) THEN
|
||
BEGIN
|
||
ReadLn(InportFile,Buf);
|
||
Buf := Buf + ^M
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
Close(InportFile);
|
||
InportFileOpen := FALSE;
|
||
END;
|
||
IF (TimeWarn) AND (NOT SaveTimeWarn) THEN
|
||
BEGIN
|
||
ANSIG(1,1);
|
||
Prompt(^G^G' |12Warning: |10You have '+IntToStr(NSL DIV 60)+' minute(s) remaining online!');
|
||
ANSIG(CCol,((CurrentLine - TopLine) + TopScreen));
|
||
SaveTimeWarn := TRUE;
|
||
END;
|
||
GKey := GetKey;
|
||
CASE GKey OF
|
||
47 :
|
||
IF (CCol = 1) AND (NOT InportFileOpen) THEN
|
||
GKey := 27
|
||
ELSE
|
||
Insert_Char(Char(GKey));
|
||
127 :
|
||
Delete_Char;
|
||
32..254 :
|
||
Insert_Char(Char(GKey));
|
||
8 : BEGIN
|
||
IF (CCol = 1) THEN
|
||
BEGIN
|
||
Cursor_Left;
|
||
Join_Lines;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
Cursor_Left;
|
||
Delete_Char;
|
||
END;
|
||
END;
|
||
F_CTRLLEFT,1 :
|
||
Cursor_WordLeft; { ^A }
|
||
2 : FS_Reformat; { ^B }
|
||
F_PGDN,3 :
|
||
Page_Down; { ^C }
|
||
F_RIGHT,4 :
|
||
Cursor_Right; { ^D }
|
||
F_UP,5 :
|
||
Cursor_Up; { ^E }
|
||
F_CTRLRIGHT,6 :
|
||
Cursor_WordRight; { ^F }
|
||
F_DEL,7 :
|
||
Delete_Char; { ^G }
|
||
9 : REPEAT
|
||
Insert_Char(' ');
|
||
UNTIL ((CCol MOD 5) = 0); { ^I }
|
||
10 :
|
||
Join_Lines; { ^J }
|
||
F_END,11 :
|
||
Cursor_EndLine; { ^K }
|
||
12 :
|
||
Redisplay; { ^L }
|
||
13 :
|
||
Cursor_NewLine; { ^M }
|
||
14 :
|
||
BEGIN
|
||
Split_Line;
|
||
Reposition(TRUE);
|
||
END; { ^N }
|
||
16 :
|
||
BEGIN { ^P }
|
||
GKey := GetKey;
|
||
IF (GKey IN [0..9,Ord('0')..Ord('9')]) THEN
|
||
BEGIN
|
||
Insert_Char('^');
|
||
Insert_Char(Char(GKey));
|
||
END
|
||
ELSE
|
||
Buf := Char(GKey);
|
||
GKey := 0;
|
||
END;
|
||
17 :
|
||
DoQuote(TRUE); { ^Q }
|
||
F_PGUP,18 :
|
||
Page_Up; { ^R }
|
||
F_LEFT,19 :
|
||
Cursor_Left; { ^S }
|
||
20 :
|
||
Delete_WordRight;{ ^T }
|
||
F_INS,22 :
|
||
BEGIN { ^V }
|
||
Insert_Mode := NOT Insert_Mode;
|
||
Display_Insert_Status;
|
||
Reposition(TRUE);
|
||
END;
|
||
F_HOME,23 :
|
||
Cursor_StartLine; { ^W }
|
||
F_DOWN,24 :
|
||
Cursor_Down; { ^X }
|
||
25 :
|
||
FS_Delete_Line; { ^Y }
|
||
26 :
|
||
FS_Help; { ^Z }
|
||
END;
|
||
UNTIL ((GKey = 27) AND (NOT InportFileOpen)) OR (HangUp);
|
||
IF (InportFileOpen) THEN
|
||
BEGIN
|
||
Close(InportFile);
|
||
InportFileOpen := FALSE;
|
||
END;
|
||
Count_Lines;
|
||
InvisEdit := FALSE;
|
||
END;
|
||
|
||
PROCEDURE PrintMsgTitle;
|
||
BEGIN
|
||
CLS;
|
||
(*
|
||
Print(FString.lentermsg1);
|
||
*)
|
||
lRGLngStr(6,FALSE);
|
||
(*
|
||
Print(FString.lentermsg2);
|
||
*)
|
||
lRGLNGStr(7,FALSE);
|
||
DoLines;
|
||
END;
|
||
|
||
PROCEDURE InputTheMessage(CantAbort1: Boolean; VAR DisableMCI1,SaveMsg1: Boolean);
|
||
VAR
|
||
LineStr,
|
||
TempStr1,
|
||
TempStr2,
|
||
TempStr3: AStr;
|
||
Cmd,
|
||
Drive: Char;
|
||
HelpCounter: Byte;
|
||
LineNum1,
|
||
LineNum2: Integer;
|
||
ShowCont,
|
||
ExitMsg,
|
||
SaveLine,
|
||
AbortMsg: Boolean;
|
||
|
||
PROCEDURE AddressMessage(CantAbort2: Boolean);
|
||
VAR
|
||
User: UserRecordType;
|
||
TempMsgTo: Str36;
|
||
TempMsgSubj: Str40;
|
||
UNum: Integer;
|
||
BEGIN
|
||
{ Print(FString.default + ^M^J); }
|
||
lRGLngStr(34,FALSE);
|
||
IF (Pub) AND (NOT (MAInternet IN MemMsgArea.MAFlags)) THEN
|
||
BEGIN
|
||
Prt('To: ');
|
||
IF (MsgTo <> '') THEN
|
||
InputDefault(TempMsgTo,MsgTo,36,[NoLineFeed,CapWords],FALSE)
|
||
ELSE
|
||
BEGIN
|
||
MPL(36);
|
||
InputMain(TempMsgTo,36,[NoLineFeed,CapWords]);
|
||
END;
|
||
MsgTo := TempMsgTo;
|
||
UserColor(6);
|
||
FOR UNum := 1 TO LennMCI(MsgTo) DO
|
||
BackSpace;
|
||
UNum := StrToInt(MsgTo);
|
||
IF (UNum >= 1) AND (UNum <= (MaxUsers - 1)) AND NOT (NetMail IN MHeader.Status) THEN
|
||
BEGIN
|
||
LoadURec(User,UNum);
|
||
MsgTo := Caps(User.Name);
|
||
MHeader.MTO.UserNum := UNum;
|
||
MHeader.MTO.Real := User.RealName;
|
||
IF (Pub) AND (MARealName IN MemMsgArea.MAFlags) THEN
|
||
MsgTo := Caps(User.RealName)
|
||
ELSE
|
||
MsgTo := Caps(User.Name);
|
||
END;
|
||
IF (SQOutSp(MsgTo) = '') THEN
|
||
MsgTo := 'All';
|
||
IF (MsgTo <> '') THEN
|
||
BEGIN
|
||
Prompt(MsgTo);
|
||
UserColor(1);
|
||
NL;
|
||
END;
|
||
NL;
|
||
END
|
||
ELSE IF (NOT (MAInternet IN MemMsgArea.MAFlags)) THEN
|
||
BEGIN
|
||
Print(PadLeftStr('^4To: ^6'+Caps(MsgTo),40));
|
||
NL;
|
||
END;
|
||
IF (MHeader.FileAttached = 0) AND (NOT CantAbort2) THEN
|
||
BEGIN
|
||
Prt('Subject: ');
|
||
IF (MsgSubj <> '') THEN
|
||
InputDefault(TempMsgSubj,MsgSubj,40,[NoLineFeed],FALSE)
|
||
ELSE
|
||
BEGIN
|
||
MPL(40);
|
||
InputMain(TempMsgSubj,40,[NoLineFeed]);
|
||
NL;
|
||
END;
|
||
IF (TempMsgSubj <> '') THEN
|
||
BEGIN
|
||
UserColor(1);
|
||
NL;
|
||
MsgSubj := TempMsgSubj;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF (MsgSubj <> '') THEN
|
||
Print('^6'+MsgSubj+'^1')
|
||
ELSE
|
||
Exit;
|
||
END;
|
||
END
|
||
ELSE
|
||
MsgSubj := MHeader.Subject;
|
||
END;
|
||
|
||
PROCEDURE FileAttach;
|
||
VAR
|
||
FName: Str40;
|
||
DOk,
|
||
KAbort,
|
||
AddBatch: Boolean;
|
||
TookTime: LongInt;
|
||
BEGIN
|
||
IF PYNQ('Attach a file to this message? ',0,FALSE) THEN
|
||
BEGIN
|
||
NL;
|
||
Prt('File name: ');
|
||
MPL(40);
|
||
Input(FName,40);
|
||
NL;
|
||
IF (NOT CoSysOp) OR (NOT IsUL(FName)) THEN
|
||
FName := General.FileAttachPath+StripName(FName);
|
||
IF (NOT Exist(FName)) AND (NOT InCom) AND (NOT Exist(FName)) AND (FName <> '') THEN
|
||
Print('^7That file does not exist!^1')
|
||
ELSE
|
||
BEGIN
|
||
IF Exist(FName) AND (NOT CoSysOp) THEN
|
||
Print('^7You cannot use that file name!^1')
|
||
ELSE
|
||
BEGIN
|
||
IF NOT Exist(FName) AND (InCom) THEN
|
||
BEGIN
|
||
Receive(FName,TempDir+'\UP',FALSE,DOk,KAbort,AddBatch,TookTime);
|
||
MHeader.FileAttached := 1;
|
||
END
|
||
ELSE IF Exist(FName) THEN
|
||
BEGIN
|
||
DOk := TRUE;
|
||
MHeader.FileAttached := 2;
|
||
END;
|
||
IF (DOk) THEN
|
||
BEGIN
|
||
MsgSubj := FName;
|
||
IF (CoSysOp) AND (NOT (NetMail IN MHeader.Status)) THEN
|
||
BEGIN
|
||
IF PYNQ('Delete file upon receipt? ',0,FALSE) THEN
|
||
MHeader.FileAttached := 1
|
||
ELSE
|
||
MHeader.FileAttached := 2
|
||
END
|
||
ELSE
|
||
MHeader.FileAttached := 1;
|
||
END
|
||
ELSE
|
||
MHeader.FileAttached := 0;
|
||
END;
|
||
END;
|
||
END;
|
||
UserColor(1);
|
||
END;
|
||
|
||
PROCEDURE ListMsg(LineNum1: Integer; DisplayLineNum: Boolean; VAR SaveLine: Boolean);
|
||
BEGIN
|
||
MCIAllowed := FALSE;
|
||
AllowContinue := TRUE;
|
||
DOSANSIOn := FALSE;
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
NL;
|
||
WHILE ((LineNum1 <= (TotalLines - 1)) AND (NOT Abort) AND (NOT HangUp)) DO
|
||
BEGIN
|
||
IF (DisplayLineNum) THEN
|
||
Print('^3'+IntToStr(LineNum1)+':');
|
||
Reading_A_Msg := TRUE;
|
||
IF (NOT DOSANSIOn) THEN
|
||
IF (Pos('>',Copy(LinePtr^[LineNum1],1,4)) > 0) THEN
|
||
UserColor(3)
|
||
ELSE
|
||
UserColor(1);
|
||
PrintACR(LinePtr^[LineNum1]);
|
||
Reading_A_Msg := FALSE;
|
||
Inc(LineNum1);
|
||
END;
|
||
IF (DisplayLineNum) THEN
|
||
BEGIN
|
||
NL;
|
||
Print(' ^7** ^3'+IntToStr(TotalLines - 1)+' '+(Plural('line',(TotalLines - 1))+' ^7**'));
|
||
END;
|
||
MCIAllowed := TRUE;
|
||
AllowContinue := FALSE;
|
||
DOSANSIOn := FALSE;
|
||
SaveLine := FALSE;
|
||
UserColor(1);
|
||
END;
|
||
|
||
PROCEDURE UploadFile;
|
||
VAR
|
||
TempStr1: AStr;
|
||
DOk,
|
||
KAbort,
|
||
AddBatch: Boolean;
|
||
TookTime: LongInt;
|
||
BEGIN
|
||
IF PYNQ('Import a file to this message? ',0,FALSE) THEN
|
||
BEGIN
|
||
NL;
|
||
TempStr1 := '';
|
||
IF (CoSysOp) THEN
|
||
BEGIN
|
||
Prt('Enter file to import [Enter=Upload]: ');
|
||
MPL(40);
|
||
InputL(TempStr1,40);
|
||
END;
|
||
IF (TempStr1 = '') THEN
|
||
BEGIN
|
||
TempStr1 := 'TEMPMSG.'+IntToStr(ThisNode);
|
||
IF Exist(TempStr1) THEN
|
||
Kill(TempStr1);
|
||
END;
|
||
IF (NOT Exist(TempStr1)) AND (InCom) THEN
|
||
BEGIN
|
||
Receive(TempStr1,TempDir+'UP\',FALSE,DOk,KAbort,AddBatch,TookTime);
|
||
TempStr1 := TempDir+'UP\'+TempStr1;
|
||
END;
|
||
IF ((TempStr1 <> '') AND (NOT HangUp)) THEN
|
||
BEGIN
|
||
Assign(InportFile,TempStr1);
|
||
Reset(InportFile);
|
||
IF (IOResult = 0) THEN
|
||
InportFileOpen := TRUE;
|
||
END;
|
||
END;
|
||
UserColor(1);
|
||
END;
|
||
|
||
BEGIN
|
||
FillChar(LinePtr^,(MaxLines * 121),0);
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
AbortMsg := FALSE;
|
||
SaveMsg1 := FALSE;
|
||
DisableMCI1 := FALSE;
|
||
TotalLines := 1;
|
||
LastLineStr := '';
|
||
|
||
IF (DiskKBFree(General.MsgPath) < General.MinSpaceForPost) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('Not enough disk space to save a message.');
|
||
Drive := Chr(ExtractDriveNumber(General.MsgPath) + 64);
|
||
IF (Drive = '@') THEN
|
||
SysOpLog('^8--->^3 Message save failure: Drive full.')
|
||
ELSE
|
||
SysOpLog('^8--->^3 Message save failure: '+Drive+' Drive full.');
|
||
MsgSubj := '';
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF (ReadInMsg <> '') THEN
|
||
BEGIN
|
||
Assign(InportFile,ReadInMsg);
|
||
Reset(InportFile);
|
||
IF (IOResult = 0) THEN
|
||
BEGIN
|
||
WHILE (NOT EOF(InportFile)) AND ((TotalLines - 1) <= MaxLines) DO
|
||
BEGIN
|
||
ReadLn(InportFile,LinePtr^[TotalLines]);
|
||
Inc(TotalLines);
|
||
END;
|
||
Close(InportFile);
|
||
END;
|
||
END
|
||
ELSE
|
||
AddressMessage(CantAbort1);
|
||
END;
|
||
|
||
IF (MsgSubj = '') THEN
|
||
IF (NOT CantAbort1) THEN
|
||
BEGIN
|
||
SaveMsg1 := FALSE;
|
||
Exit;
|
||
END;
|
||
|
||
IF (FSEditor IN ThisUser.SFlags) THEN
|
||
BEGIN
|
||
REPEAT
|
||
FS_Editor;
|
||
REPEAT
|
||
NL;
|
||
Prt('Full screen editor (^5?^4=^5Help^4): ');
|
||
OneK(Cmd,^M'ACFMQSTU?',TRUE,TRUE);
|
||
NL;
|
||
CASE Cmd OF
|
||
|
||
'A' : IF (CantAbort1) THEN
|
||
BEGIN
|
||
Print('^7You can not abort this message!^1');
|
||
Cmd := #0;
|
||
END
|
||
ELSE IF PYNQ('Abort message? ',0,FALSE) THEN
|
||
BEGIN
|
||
AbortMsg := TRUE;
|
||
SaveMsg1 := FALSE;
|
||
NL;
|
||
Print('Aborted!');
|
||
END;
|
||
|
||
'C' : BEGIN
|
||
IF PYNQ('Are you sure? ',0,FALSE) THEN
|
||
FOR LineNum1 := 1 TO (TotalLines - 1) DO
|
||
LinePtr^[LineNum1][0] := #0;
|
||
END;
|
||
|
||
'F' : IF (NOT AACS(General.FileAttachACS)) THEN
|
||
BEGIN
|
||
Print('^7You do not have access to this command!^1');
|
||
Cmd := #0;
|
||
END
|
||
ELSE
|
||
FileAttach;
|
||
|
||
'M' : IF (NOT AACS(MemMsgArea.MCIACS)) THEN
|
||
BEGIN
|
||
Print('^7You do not have access to this command!^1');
|
||
Cmd := #0;
|
||
END
|
||
ELSE
|
||
DisableMCI1 := PYNQ('Disable MCI Codes for this message ['+SQOutSp(ShowYesNo(DisableMCI1))+']? ',0,FALSE);
|
||
|
||
'Q' : BEGIN
|
||
InvisEdit := TRUE;
|
||
DoQuote(FALSE);
|
||
InvisEdit := FALSE;
|
||
END;
|
||
|
||
(*
|
||
'S' : BEGIN
|
||
WHILE (((TotalLines - 1) >= 1) AND ((LinePtr^[TotalLines - 1] = '') OR
|
||
(LinePtr^[TotalLines - 1] = ^J))) DO
|
||
Dec(TotalLines);
|
||
IF ((TotalLines - 1) = 1) THEN
|
||
BEGIN
|
||
LineNum2 := 0;
|
||
FOR LineNum1 := 1 TO Length(LinePtr^[1]) DO
|
||
IF (LinePtr^[1][LineNum1] <> ' ') THEN
|
||
Inc(LineNum2);
|
||
IF (LineNum2 = 0) THEN
|
||
Dec(TotalLines);
|
||
END;
|
||
IF (CantAbort1) AND ((TotalLines - 1) < 1) THEN
|
||
Print('^7You must complete this message!^1')
|
||
ELSE IF ((TotalLines - 1) < 1) THEN
|
||
Print('^7Nothing to save!^1')
|
||
ELSE
|
||
BEGIN
|
||
SaveMsg1 := TRUE;
|
||
AbortMsg := FALSE;
|
||
ShowCont := FALSE;
|
||
END;
|
||
END;
|
||
*)
|
||
|
||
'A','S': IF (CantAbort1) AND ((TotalLines = 0) OR (Cmd = 'A')) THEN
|
||
BEGIN
|
||
Cmd := #0;
|
||
Print('You cannot abort this message.');
|
||
END
|
||
ELSE IF (Cmd = 'A') THEN
|
||
BEGIN
|
||
IF (NOT PYNQ('Are you sure? ',0,FALSE)) THEN
|
||
Cmd := #0
|
||
ELSE
|
||
BEGIN
|
||
SaveMsg1 := FALSE;
|
||
AbortMsg := TRUE;
|
||
NL;
|
||
Print('Aborted!');
|
||
Exit;
|
||
END;
|
||
END
|
||
ELSE IF (Cmd = 'A') THEN
|
||
Cmd := #0;
|
||
|
||
'T' : AddressMessage(CantAbort1);
|
||
|
||
'U' : UploadFile;
|
||
|
||
'?' : BEGIN
|
||
Print('^1(^3<CR>^1)Continue message');
|
||
LCmds(16,3,'Abort message','Clear message');
|
||
LCmds(16,3,'File attach','MCI Codes Yes/No');
|
||
LCmds(16,3,'Quote message','Save message');
|
||
LCmds(16,3,'Title change','Upload message');
|
||
END;
|
||
|
||
END;
|
||
|
||
UNTIL (Pos(Cmd,^M'ACFMQSTU') > 0) OR (HangUp);
|
||
|
||
UNTIL (HangUp) OR (Pos(Cmd,'AS') > 0);
|
||
|
||
Inc(TotalLines);
|
||
|
||
IF (TotalLines > 1) AND (NOT HangUp) THEN
|
||
SaveMsg := TRUE
|
||
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
|
||
PrintMsgTitle;
|
||
|
||
TotalLines := 0;
|
||
|
||
HelpCounter := 1;
|
||
|
||
REPEAT
|
||
|
||
SaveLine := TRUE;
|
||
|
||
ExitMsg := TRUE;
|
||
|
||
InputLine(LineStr);
|
||
|
||
REPEAT
|
||
|
||
IF (LineStr = '/'^H) THEN
|
||
BEGIN
|
||
SaveLine := FALSE;
|
||
IF ((TotalLines - 1) >= 1) THEN
|
||
BEGIN
|
||
Dec(TotalLines);
|
||
LastLineStr := LinePtr^[TotalLines];
|
||
IF (LastLineStr[Length(LastLineStr)] = #1) THEN
|
||
LastLineStr := Copy(LastLineStr,1,(Length(LastLineStr) - 1));
|
||
NL;
|
||
Print('^3Backed up to line '+IntToStr(TotalLines)+':^1');
|
||
END;
|
||
END;
|
||
|
||
IF (LineStr = '/') AND (NOT (InportFileOpen)) THEN
|
||
BEGIN
|
||
|
||
SaveLine := FALSE;
|
||
|
||
ShowCont := TRUE;
|
||
|
||
NL;
|
||
Prt('Line editor (^5?^4=^5Help^4): ');
|
||
OneK(Cmd,^M'ACDFILMOPQRSTUZ?',TRUE,TRUE);
|
||
IF (Cmd <> ^M) THEN
|
||
NL;
|
||
CASE UpCase(Cmd) OF
|
||
'A' : IF (CantAbort1) THEN
|
||
Print('^7You can not abort this message!^1')
|
||
ELSE IF PYNQ('Abort message? ',0,FALSE) THEN
|
||
BEGIN
|
||
AbortMsg := TRUE;
|
||
SaveMsg1 := FALSE;
|
||
ShowCont := FALSE;
|
||
NL;
|
||
Print('Aborted!');
|
||
END;
|
||
'C' : IF (TotalLines = 0) THEN
|
||
Print('^7Nothing to clear!^1')
|
||
ELSE IF PYNQ('Clear message? ',0,FALSE) THEN
|
||
BEGIN
|
||
IF (TotalLines = MaxLines) THEN
|
||
ExitMsg := TRUE;
|
||
FOR LineNum1 := 1 TO TotalLines DO
|
||
LinePtr^[LineNum1][0] := #0;
|
||
TotalLines := 0;
|
||
Escp := FALSE;
|
||
ShowCont := FALSE;
|
||
NL;
|
||
Print('^0Message cleared ... Start over ...^1');
|
||
NL;
|
||
END;
|
||
'D' : IF (TotalLines = 0) THEN
|
||
Print('^7No lines to delete!^1')
|
||
ELSE
|
||
BEGIN
|
||
LineNum1 := -1;
|
||
InputIntegerWOC('Delete which line',LineNum1,1,TotalLines);
|
||
IF (LineNum1 >= 1) AND (LineNum1 <= TotalLines) THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
NL;
|
||
Print('^3Line '+IntToStr(LineNum1)+':');
|
||
MCIAllowed := FALSE;
|
||
PrintAcr('^1'+LinePtr^[LineNum1]);
|
||
MCIAllowed := TRUE;
|
||
NL;
|
||
IF (PYNQ('Delete this line? ',0,FALSE)) THEN
|
||
BEGIN
|
||
IF (TotalLines = MaxLines) THEN
|
||
ExitMsg := TRUE;
|
||
|
||
FOR LineNum2 := LineNum1 TO (TotalLines - 2) DO
|
||
LinePtr^[LineNum2] := LinePtr^[LineNum2 + 1];
|
||
|
||
Dec(TotalLines);
|
||
NL;
|
||
Print('^0Line '+IntToStr(LineNum1)+' deleted.^1');
|
||
END;
|
||
END;
|
||
END;
|
||
'F' : IF (NOT AACS(General.FileAttachACS)) THEN
|
||
Print('^7You do not have access to this command!^1')
|
||
ELSE
|
||
FileAttach;
|
||
'I' : IF ((TotalLines - 1) < 1) THEN
|
||
Print('^7No lines to insert before!^1')
|
||
ELSE IF ((TotalLines - 1) >= MaxLines) THEN
|
||
Print('^7You have reached the maximum line limit!^1')
|
||
ELSE
|
||
BEGIN
|
||
LineNum1 := -1;
|
||
InputIntegerWOC('Insert before which line',LineNum1,1,TotalLines);
|
||
IF (LineNum1 >= 1) AND (LineNum1 <= TotalLines) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('^3Line '+IntToStr(LineNum1)+':');
|
||
UserColor(1);
|
||
InputLine(TempStr1);
|
||
NL;
|
||
IF (PYNQ('Insert this line? ',0,FALSE)) THEN
|
||
BEGIN
|
||
FOR LineNum2 := TotalLines DOWNTO (LineNum1 + 1) DO
|
||
LinePtr^[LineNum2] := LinePtr^[LineNum2 - 1];
|
||
LinePtr^[LineNum1] := TempStr1;
|
||
Inc(TotalLines);
|
||
IF ((TotalLines - 1) = MaxLines) THEN
|
||
ExitMsg := FALSE;
|
||
NL;
|
||
Print('^0Line '+IntToStr(LineNum1)+' inserted.^1');
|
||
END;
|
||
END;
|
||
END;
|
||
'L' : IF ((TotalLines - 1) < 1) THEN
|
||
Print('^7Nothing to list!^1')
|
||
ELSE
|
||
BEGIN
|
||
IF (PYNQ('List entire message? ',0,TRUE)) THEN
|
||
BEGIN
|
||
NL;
|
||
ListMsg(1,PYNQ('List message with line numbers? ',0,FALSE),SaveLine);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
LineNum1 := -1;
|
||
NL;
|
||
InputIntegerWOC('Staring line number',LineNum1,1,(TotalLines - 1));
|
||
IF (LineNum1 >= 1) AND (LineNum1 <= (TotalLines - 1)) THEN
|
||
BEGIN
|
||
NL;
|
||
ListMsg(LineNum1,PYNQ('List message with line numbers? ',0,FALSE),SaveLine);
|
||
END;
|
||
END;
|
||
ShowCont := FALSE;
|
||
END;
|
||
'M' : IF (NOT AACS(MemMsgArea.MCIACS)) THEN
|
||
Print('^7You do not have access to this command!^1')
|
||
ELSE
|
||
DisableMCI1 := PYNQ('Disable MCI Codes for this message ['+SQOutSp(ShowYesNo(DisableMCI1))+']? ',0,FALSE);
|
||
'O' : PrintF('COLOR');
|
||
'P' : IF ((TotalLines - 1) < 1) THEN
|
||
Print('^7No lines to replace a string!^1')
|
||
ELSE
|
||
BEGIN
|
||
LineNum1 := -1;
|
||
InputIntegerWOC('Line to replace string',LineNum1,1,(TotalLines - 1));
|
||
IF (LineNum1 >= 1) AND (LineNum1 <= (TotalLines - 1)) THEN
|
||
BEGIN
|
||
TempStr3 := LinePtr^[LineNum1];
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
NL;
|
||
Print('^3Old line '+IntToStr(LineNum1)+':');
|
||
MCIAllowed := FALSE;
|
||
PrintACR('^1'+TempStr3);
|
||
MCIAllowed := TRUE;
|
||
NL;
|
||
Print('^4Enter string to replace:');
|
||
Prt(': ');
|
||
InputL(TempStr1,LineMaxLen);
|
||
IF (TempStr1 <> '') THEN
|
||
IF (Pos(TempStr1,LinePtr^[LineNum1]) = 0) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('^7String not found.^1');
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
NL;
|
||
Print('^4Enter replacement string:');
|
||
Prt(': ');
|
||
InputL(TempStr2,LineMaxLen);
|
||
IF (TempStr2 <> '') THEN
|
||
BEGIN
|
||
IF (Pos(TempStr1,TempStr3) > 0) THEN
|
||
BEGIN
|
||
Insert(TempStr2,TempStr3,(Pos(TempStr1,TempStr3) + Length(TempStr1)));
|
||
Delete(TempStr3,Pos(TempStr1,TempStr3),Length(TempStr1));
|
||
END;
|
||
NL;
|
||
Print('^3New line '+IntToStr(LineNum1)+':');
|
||
MCIAllowed := FALSE;
|
||
PrintACR('^1'+TempStr3);
|
||
MCIAllowed := TRUE;
|
||
NL;
|
||
IF (PYNQ('Save this line? ',0,FALSE)) THEN
|
||
BEGIN
|
||
Insert(TempStr2,LinePtr^[LineNum1],(Pos(TempStr1,LinePtr^[LineNum1]) + Length(TempStr1)));
|
||
Delete(LinePtr^[LineNum1],Pos(TempStr1,LinePtr^[LineNum1]),Length(TempStr1));
|
||
NL;
|
||
Print('^0Line '+IntToStr(LineNum1)+' saved.^1');
|
||
END;
|
||
END;
|
||
END;
|
||
END;
|
||
END;
|
||
'Q' : IF (NOT Exist('TEMPQ'+IntToStr(ThisNode))) THEN
|
||
Print('^7You are not replying to a message!^1')
|
||
ELSE IF ((TotalLines - 1) >= MaxLines) THEN
|
||
Print('^7You have reached the maximum line limit!^1')
|
||
ELSE
|
||
BEGIN
|
||
DoQuote(FALSE);
|
||
NL;
|
||
CLS;
|
||
PrintMsgTitle;
|
||
Print('^0Quoting complete ... Continue ...^1');
|
||
NL;
|
||
IF ((TotalLines - 1) >= 1) THEN
|
||
IF ((TotalLines - 1) > 10) THEN
|
||
ListMsg(((TotalLines - 1) - 10),FALSE,SaveLine)
|
||
ELSE
|
||
ListMsg(1,FALSE,SaveLine);
|
||
ShowCont := FALSE;
|
||
END;
|
||
'R' : IF ((TotalLines - 1) < 1) THEN
|
||
Print('^7No last line to delete!^1')
|
||
ELSE
|
||
BEGIN
|
||
LineNum1 := (TotalLines - 1);
|
||
Print('^3Line '+IntToStr(LineNum1)+':');
|
||
MCIAllowed := FALSE;
|
||
PrintAcr('^1'+LinePtr^[(LineNum1)]);
|
||
MCIAllowed := TRUE;
|
||
NL;
|
||
IF (PYNQ('Delete the last line? ',0,FALSE)) THEN
|
||
BEGIN
|
||
IF ((TotalLines - 1) = MaxLines) THEN
|
||
ExitMsg := TRUE;
|
||
Dec(TotalLines);
|
||
NL;
|
||
Print('^0Line '+IntToStr(LineNum1)+' deleted.^1');
|
||
END;
|
||
END;
|
||
'S' : BEGIN
|
||
WHILE (((TotalLines - 1) >= 1) AND ((LinePtr^[TotalLines - 1] = '') OR
|
||
(LinePtr^[TotalLines - 1] = ^J))) DO
|
||
Dec(TotalLines);
|
||
IF ((TotalLines - 1) = 1) THEN
|
||
BEGIN
|
||
LineNum2 := 0;
|
||
FOR LineNum1 := 1 TO Length(LinePtr^[1]) DO
|
||
IF (LinePtr^[1][LineNum1] <> ' ') THEN
|
||
Inc(LineNum2);
|
||
IF (LineNum2 = 0) THEN
|
||
Dec(TotalLines);
|
||
END;
|
||
IF (CantAbort1) AND ((TotalLines - 1) < 1) THEN
|
||
Print('^7You must complete this message!^1')
|
||
ELSE IF ((TotalLines - 1) < 1) THEN
|
||
Print('^7Nothing to save!^1')
|
||
ELSE
|
||
BEGIN
|
||
SaveMsg1 := TRUE;
|
||
AbortMsg := FALSE;
|
||
ShowCont := FALSE;
|
||
END;
|
||
END;
|
||
'T' : IF (CantAbort1) THEN
|
||
Print('^7Message subject can not be changed!^1')
|
||
ELSE
|
||
AddressMessage(CantAbort1);
|
||
'U' : IF ((TotalLines - 1) >= MaxLines) THEN
|
||
Print('^7You have reached the maximum line limit!^1')
|
||
ELSE
|
||
UploadFile;
|
||
'Z' : IF ((TotalLines - 1) < 1) THEN
|
||
Print('^7No lines to replace!')
|
||
ELSE
|
||
BEGIN
|
||
LineNum1 := -1;
|
||
InputIntegerWOC('Line number to replace',LineNum1,1,(TotalLines - 1));
|
||
IF ((LineNum1 >= 1) AND (LineNum1 <= (TotalLines - 1))) THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
NL;
|
||
Print('^3Old line '+IntToStr(LineNum1)+':');
|
||
MCIAllowed := FALSE;
|
||
PrintACR('^1'+LinePtr^[LineNum1]);
|
||
MCIAllowed := TRUE;
|
||
Print('^3New line '+IntToStr(LineNum1)+':');
|
||
UserColor(1);
|
||
InputLine(TempStr1);
|
||
NL;
|
||
IF PYNQ('Replace this line? ',0,FALSE) THEN
|
||
BEGIN
|
||
IF (LinePtr^[LineNum1][Length(LinePtr^[LineNum1])] = #1) AND (TempStr1[Length(TempStr1)]<>#1) THEN
|
||
LinePtr^[LineNum1] := TempStr1 + #1
|
||
ELSE
|
||
LinePtr^[LineNum1] := TempStr1;
|
||
NL;
|
||
Print('^0Line '+IntToStr(LineNum1)+' replaced.^1');
|
||
END;
|
||
END;
|
||
END;
|
||
^M : BEGIN
|
||
IF (HelpCounter = 5) THEN
|
||
BEGIN
|
||
NL;
|
||
PrintF('PRHELP');
|
||
HelpCounter := 0;
|
||
END;
|
||
Inc(HelpCounter);
|
||
END;
|
||
'?' : PrintF('PRHELP');
|
||
END;
|
||
|
||
IF (ShowCont) AND (ExitMsg) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('^0Continue...^1');
|
||
NL;
|
||
END;
|
||
|
||
END;
|
||
|
||
IF (SaveLine) THEN
|
||
BEGIN
|
||
LinePtr^[TotalLines] := LineStr;
|
||
Inc(TotalLines);
|
||
IF (LineStr <> '') THEN
|
||
HelpCounter := 1
|
||
ELSE
|
||
BEGIN
|
||
IF (HelpCounter = 5) THEN
|
||
BEGIN
|
||
Print('^0Enter "/?" on a blank line for help.^1');
|
||
Dec(TotalLines,5);
|
||
HelpCounter := 0;
|
||
END;
|
||
Inc(HelpCounter);
|
||
END;
|
||
|
||
IF ((TotalLines - 1) >= MaxLines) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('^7You have reached the maximum line limit!');
|
||
IF (InportFileOpen) THEN
|
||
BEGIN
|
||
InportFileOpen := FALSE;
|
||
Close(InportFile);
|
||
END;
|
||
HelpCounter := 1;
|
||
ExitMsg := FALSE;
|
||
LineStr := '/';
|
||
END;
|
||
|
||
END;
|
||
|
||
UNTIL (AbortMsg) OR (ExitMsg) OR (SaveMsg1) OR (HangUp);
|
||
|
||
UNTIL ((AbortMsg) OR (SaveMsg1) OR (HangUp));
|
||
|
||
END;
|
||
|
||
END;
|
||
|
||
PROCEDURE SaveIt(DisableMCI1: Boolean);
|
||
VAR
|
||
LineStr: AStr;
|
||
C: Char;
|
||
LineNum1,
|
||
Counter: Integer;
|
||
AddTagLine: Boolean;
|
||
BEGIN
|
||
|
||
IF (ReadInMsg <> '') THEN
|
||
BEGIN
|
||
|
||
Assign(InportFile,ReadInMsg);
|
||
ReWrite(InportFile);
|
||
IF (IOResult = 0) THEN
|
||
BEGIN
|
||
FOR LineNum1 := 1 TO (TotalLines - 1) DO
|
||
WriteLn(InportFile,LinePtr^[LineNum1]);
|
||
Close(InportFile);
|
||
END;
|
||
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
|
||
AddTagLine := FALSE;
|
||
IF (MAQuote IN MemMsgArea.MAFlags) THEN
|
||
AddTagLine := PYNQ('Add a tagline to your message? ',0,FALSE);
|
||
|
||
MHeader.Subject := MsgSubj;
|
||
MHeader.OriginDate := '';
|
||
MHeader.From.Anon := 0;
|
||
MHeader.MTO.Anon := 0;
|
||
MHeader.Replies := 0;
|
||
MHeader.ReplyTo := 0;
|
||
MHeader.Date := GetPackDateTime;
|
||
GetDayOfWeek(MHeader.DayOfWeek);
|
||
|
||
IF (Pub AND (MemMsgArea.MAType IN [1,2])) OR (NOT Pub AND (NetMail IN MHeader.Status)) THEN
|
||
BEGIN
|
||
NewEchoMail := TRUE;
|
||
IF (NOT (MAScanOut IN MemMsgArea.MAFlags)) THEN
|
||
UpdateBoard;
|
||
END;
|
||
|
||
MHeader.From.UserNum := UserNum;
|
||
UserName := AllCaps(ThisUser.Name);
|
||
IF (NOT Pub) AND (NetMail IN MHeader.Status) AND (ThisUser.Name <> AllCaps(ThisUser.RealName)) THEN
|
||
IF (General.AllowAlias) THEN
|
||
BEGIN
|
||
NL;
|
||
IF PYNQ('Send this with your real name? ',0,TRUE) THEN
|
||
UserName := AllCaps(ThisUser.RealName);
|
||
END;
|
||
MHeader.From.A1S := UserName;
|
||
MHeader.From.Real := AllCaps(ThisUser.RealName);
|
||
MHeader.From.Name := AllCaps(ThisUser.Name);
|
||
|
||
MHeader.Status := [] + (MHeader.Status * [NetMail]);
|
||
|
||
IF (Pub) AND (RValidate IN ThisUser.Flags) THEN
|
||
Include(MHeader.Status,Unvalidated);
|
||
|
||
IF (AACS(MemMsgArea.MCIACS)) THEN
|
||
BEGIN
|
||
Include(MHeader.Status,AllowMCI);
|
||
IF (DisableMCI1) THEN
|
||
Exclude(MHeader.Status,AllowMCI);
|
||
END;
|
||
|
||
IF (Pub) THEN
|
||
BEGIN
|
||
MHeader.MTO.Name := MsgTo;
|
||
MHeader.MTO.Real := MsgTo;
|
||
MHeader.MTO.A1S := MsgTo;
|
||
END;
|
||
|
||
IF (NOT (NetMail IN MHeader.Status)) THEN
|
||
Anonymous(FALSE,MHeader);
|
||
|
||
NL;
|
||
Prompt('^5Saving ...');
|
||
|
||
Reset(MsgTxtF,1);
|
||
IF (IOResult = 2) THEN
|
||
ReWrite(MsgTxtF,1);
|
||
MHeader.TextSize := 0;
|
||
MHeader.Pointer := (FileSize(MsgTxtF) + 1);
|
||
Seek(MsgTxtF,FileSize(MsgTxtF));
|
||
|
||
IF (NetMail IN MHeader.Status) AND (Pos('@',MHeader.MTO.A1S) > 0) THEN
|
||
BEGIN
|
||
FOR Counter := 1 TO Length(MHeader.MTO.A1S) DO
|
||
IF (MHeader.MTO.A1S[Counter] IN ['A'..'Z']) THEN
|
||
Inc(MHeader.MTO.A1S[Counter],32);
|
||
LineStr := 'To: '+MsgTo;
|
||
BlockWrite(MsgTxtF,LineStr,Length(LineStr) + 1);
|
||
Inc(MHeader.TextSize,Length(LineStr) + 1);
|
||
MHeader.MTO.A1S := 'UUCP';
|
||
END;
|
||
|
||
IF ((Pub) AND (MAFilter IN MemMsgArea.MAFlags)) THEN
|
||
FOR LineNum1 := 1 TO (TotalLines - 1) DO
|
||
IF (Length(LinePtr^[LineNum1]) > 0) THEN
|
||
BEGIN
|
||
LinePtr^[LineNum1] := StripColor(LinePtr^[LineNum1]);
|
||
FOR Counter := 1 TO Length(LinePtr^[LineNum1]) DO
|
||
BEGIN
|
||
C := LinePtr^[LineNum1][Counter];
|
||
IF (C IN [#0..#1,#3..#31,#127..#255]) THEN
|
||
C := '*';
|
||
LinePtr^[LineNum1][Counter] := C;
|
||
END;
|
||
END;
|
||
|
||
FOR LineNum1 := 1 TO (TotalLines - 1) DO
|
||
BEGIN
|
||
LineStr := LinePtr^[LineNum1];
|
||
Inc(MHeader.TextSize,(Length(LineStr) + 1));
|
||
BlockWrite(MsgTxtF,LineStr,(Length(LineStr) + 1));
|
||
END;
|
||
|
||
IF (AddTagLine) THEN
|
||
BEGIN
|
||
LineStr := '';
|
||
Inc(MHeader.TextSize,(Length(LineStr) + 1));
|
||
BlockWrite(MsgTxtF,LineStr,(Length(LineStr) + 1));
|
||
LineStr := '... '+TagLine;
|
||
Inc(MHeader.TextSize,(Length(LineStr) + 1));
|
||
BlockWrite(MsgTxtF,LineStr,(Length(LineStr) + 1));
|
||
END;
|
||
|
||
IF (MemMsgArea.MAType IN [1,2]) AND (MAAddTear IN MemMsgarea.MAFlags) THEN
|
||
BEGIN
|
||
LineStr := '';
|
||
Inc(MHeader.TextSize,(Length(LineStr) + 1));
|
||
BlockWrite(MsgTxtF,LineStr,1);
|
||
|
||
LineStr := Decode(';h<><68>l<>?<3F>k<><6B>f',183) + General.Version;
|
||
Inc(MHeader.TextSize,(Length(LineStr) + 1));
|
||
BlockWrite(MsgTxtF,LineStr,(Length(LineStr) + 1));
|
||
|
||
LineStr := ' * Origin: ';
|
||
IF (MemMsgArea.Origin <> '') THEN
|
||
LineStr := LineStr + MemMsgArea.Origin
|
||
ELSE
|
||
LineStr := LineStr + General.Origin;
|
||
|
||
IF (MemMsgArea.AKA > 19) THEN
|
||
MemMsgArea.AKA := 0;
|
||
|
||
LineStr := LineStr + ' (';
|
||
|
||
LineStr := LineStr + IntToStr(General.AKA[MemMsgArea.AKA].Zone)+':'+
|
||
IntToStr(General.AKA[MemMsgArea.AKA].Net)+'/'+
|
||
IntToStr(General.AKA[MemMsgArea.AKA].Node);
|
||
|
||
IF (General.AKA[MemMsgArea.AKA].Point > 0) THEN
|
||
LineStr := LineStr + '.'+IntToStr(General.AKA[MemMsgArea.AKA].Point);
|
||
|
||
LineStr := LineStr + ')';
|
||
Inc(MHeader.TextSize,(Length(LineStr) + 1));
|
||
BlockWrite(MsgTxtF,LineStr,(Length(LineStr) + 1));
|
||
|
||
END;
|
||
|
||
Close(MsgTxtF);
|
||
LastError := IOResult;
|
||
|
||
BackErase(9);
|
||
|
||
END;
|
||
|
||
InputMessage := TRUE;
|
||
|
||
END;
|
||
|
||
BEGIN
|
||
CLS;
|
||
InputMessage := FALSE;
|
||
|
||
MaxLines := ((MaxAvail DIV 120) - 20);
|
||
IF (MaxLines > 500) THEN
|
||
MaxLines := 500;
|
||
GetMem(LinePtr,(MaxLines * 120));
|
||
|
||
InportFileOpen := FALSE;
|
||
Escp := FALSE;
|
||
MaxQuoteLines := 0;
|
||
LastQuoteLine := 0;
|
||
|
||
IF (NOT IsReply) THEN
|
||
MsgTo := ''
|
||
ELSE
|
||
BEGIN
|
||
IF (MARealName IN MemMsgArea.MAFlags) THEN
|
||
MsgTo := Caps(MHeader.MTO.Real)
|
||
ELSE
|
||
MsgTo := Caps(MHeader.MTO.A1S)
|
||
END;
|
||
|
||
IF (InResponseTo <> '') THEN
|
||
MsgSubj := InResponseTo
|
||
ELSE
|
||
MsgSubj := MsgTitle;
|
||
|
||
IF (Copy(MsgSubj,1,1) <> '\') THEN
|
||
CantAbort := FALSE
|
||
ELSE
|
||
BEGIN
|
||
MsgSubj := Copy(MsgSubj,2,(Length(MsgSubj) - 1));
|
||
MHeader.Subject := MsgSubj;
|
||
CantAbort := TRUE;
|
||
END;
|
||
|
||
IF (MsgSubj[1] = #1) THEN
|
||
BEGIN
|
||
MsgSubj := Copy(MsgSubj,2,(Length(MsgSubj) - 1));
|
||
IF (MHeader.Subject[1] = #1) THEN
|
||
MHeader.Subject := Copy(MHeader.Subject,2,(Length(MHeader.Subject) - 1));
|
||
END
|
||
ELSE IF (MsgSubj <> '') AND (Copy(MsgSubj,1,3) <> 'Re:') THEN
|
||
MsgSubj := 'Re: '+Copy(MsgSubj,1,36);
|
||
|
||
MHeader.FileAttached := 0;
|
||
|
||
InputTheMessage(CantAbort,DisableMCI,SaveMsg);
|
||
|
||
IF (SaveMsg) THEN
|
||
SaveIt(DisableMCI);
|
||
|
||
Kill('TEMPQ'+IntToStr(ThisNode));
|
||
|
||
DOSANSIOn := FALSE;
|
||
|
||
FreeMem(LinePtr,(MaxLines * 120));
|
||
END;
|
||
|
||
PROCEDURE InputLine(VAR S: Astr);
|
||
VAR
|
||
CKeyPos,
|
||
RP,
|
||
Counter,
|
||
Counter1: Integer;
|
||
CKey,
|
||
ccc: Char;
|
||
HitCmdKey,
|
||
HitBkSpc,
|
||
DoThisChar: Boolean;
|
||
|
||
PROCEDURE BkSpc;
|
||
BEGIN
|
||
IF (CKeyPos > 1) THEN
|
||
BEGIN
|
||
IF (S[CKeyPos - 2] = '^') AND (S[CKeyPos - 1] IN [#0..#9]) THEN
|
||
BEGIN
|
||
Dec(CKeyPos);
|
||
UserColor(1);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
BackSpace;
|
||
Dec(RP);
|
||
END;
|
||
Dec(CKeyPos);
|
||
END;
|
||
END;
|
||
|
||
BEGIN
|
||
Write_Msg := TRUE;
|
||
HitCmdKey := FALSE;
|
||
HitBkSpc := FALSE;
|
||
ccc := '1';
|
||
RP := 1;
|
||
CKeyPos := 1;
|
||
S := '';
|
||
IF (LastLineStr <> '') THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
AllowAbort := FALSE;
|
||
Reading_A_Msg := TRUE;
|
||
PrintMain(LastLineStr);
|
||
Reading_A_Msg := FALSE;
|
||
AllowAbort := TRUE;
|
||
S := LastLineStr;
|
||
LastLineStr := '';
|
||
IF (Pos(^[,S) > 0) THEN
|
||
Escp := TRUE;
|
||
CKeyPos := (Length(S) + 1);
|
||
RP := CKeyPos;
|
||
END;
|
||
REPEAT
|
||
IF ((InportFileOpen) AND (Buf = '')) THEN
|
||
IF (NOT EOF(InportFile)) THEN
|
||
BEGIN
|
||
Counter1 := 0;
|
||
REPEAT
|
||
Inc(Counter1);
|
||
Read(InportFile,Buf[Counter1]);
|
||
IF (Buf[Counter1] = ^J) THEN
|
||
Dec(Counter1);
|
||
UNTIL (Counter1 >= 255) OR (Buf[Counter1] = ^M) OR (EOF(InportFile));
|
||
Buf[0] := Chr(Counter1);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
Close(InportFile);
|
||
InportFileOpen := FALSE;
|
||
DOSANSIOn := FALSE;
|
||
Buf := ^P+'1';
|
||
END;
|
||
CKey := Char(GetKey);
|
||
DoThisChar := FALSE;
|
||
IF ((CKey >= #32) AND (CKey <= #255)) THEN
|
||
BEGIN
|
||
IF (CKey = '/') AND (CKeyPos = 1) THEN
|
||
HitCmdKey := TRUE
|
||
ELSE
|
||
DoThisChar := TRUE;
|
||
END
|
||
ELSE
|
||
CASE CKey OF
|
||
^[ : DoThisChar := TRUE;
|
||
^H : IF (CKeyPos = 1) THEN
|
||
BEGIN
|
||
HitCmdKey := TRUE;
|
||
HitBkSpc := TRUE;
|
||
END
|
||
ELSE
|
||
BkSpc;
|
||
^I : BEGIN
|
||
Counter := (5 - (CKeyPos MOD 5));
|
||
IF ((CKeyPos + Counter) < StrLen) AND ((RP + Counter) < ThisUser.LineLen) THEN
|
||
FOR Counter1 := 1 TO Counter DO
|
||
BEGIN
|
||
OutKey(' ');
|
||
IF (Trapping) THEN
|
||
Write(TrapFile,' ');
|
||
S[CKeyPos] := ' ';
|
||
Inc(RP);
|
||
Inc(CKeyPos);
|
||
END;
|
||
END;
|
||
^J : BEGIN
|
||
OutKey(CKey);
|
||
S[CKeyPos] := CKey;
|
||
IF (Trapping) THEN
|
||
Write(TrapFile,^J);
|
||
Inc(CKeyPos);
|
||
END;
|
||
^N : BEGIN
|
||
OutKey(^H);
|
||
S[CKeyPos] := ^H;
|
||
IF (Trapping) THEN
|
||
Write(TrapFile,^H);
|
||
Inc(CKeyPos);
|
||
Dec(RP);
|
||
END;
|
||
^P : IF (OkANSI OR OkAvatar) AND (CKeyPos < (StrLen - 1)) THEN
|
||
BEGIN
|
||
CKey := Char(GetKey);
|
||
IF (CKey IN ['0'..'9']) THEN
|
||
BEGIN
|
||
ccc := CKey;
|
||
S[CKeyPos] := '^';
|
||
Inc(CKeyPos);
|
||
S[CKeyPos] := CKey;
|
||
Inc(CKeyPos);
|
||
UserColor(Ord(CKey) - Ord('0'));
|
||
END;
|
||
CKey := #0;
|
||
END;
|
||
^W : IF (CKeyPos = 1) THEN
|
||
BEGIN
|
||
HitCmdKey := TRUE;
|
||
HitBkSpc := TRUE;
|
||
END
|
||
ELSE
|
||
REPEAT
|
||
BkSpc
|
||
UNTIL (CKeyPos = 1) OR (S[CKeyPos] = ' ') OR ((S[CKeyPos] = ^H) AND (S[CKeyPos - 1] <> '^'));
|
||
^X,^Y : BEGIN
|
||
CKeyPos := 1;
|
||
FOR Counter := 1 TO (RP - 1) DO
|
||
BackSpace;
|
||
RP := 1;
|
||
IF (ccc <> '1') THEN
|
||
BEGIN
|
||
CKey := ccc;
|
||
S[CKeyPos] := '^';
|
||
Inc(CKeyPos);
|
||
S[CKeyPos] := CKey;
|
||
Inc(CKeyPos);
|
||
UserColor(Ord(CKey) - Ord('0'));
|
||
END;
|
||
CKey := #0;
|
||
END;
|
||
END;
|
||
IF (DoThisChar) AND ((CKey <> ^G) AND (CKey <> ^M)) THEN
|
||
IF ((CKeyPos < StrLen) AND (Escp)) OR ((RP < ThisUser.LineLen) AND (NOT Escp)) THEN
|
||
BEGIN
|
||
IF (CKey = ^[) THEN
|
||
Escp := TRUE;
|
||
S[CKeyPos] := CKey;
|
||
Inc(CKeyPos);
|
||
Inc(RP);
|
||
OutKey(CKey);
|
||
IF (Trapping) THEN
|
||
Write(TrapFile,CKey);
|
||
END;
|
||
UNTIL (((RP - 1) = LineMaxLen) AND (NOT Escp)) OR (CKeyPos = StrLen) OR (CKey = ^M) OR (HitCmdKey) OR (HangUp);
|
||
IF (HitCmdKey) THEN
|
||
BEGIN
|
||
IF (HitBkSpc) THEN
|
||
S := '/'^H
|
||
ELSE
|
||
S := '/';
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
S[0] := Chr(CKeyPos - 1);
|
||
IF (CKey <> ^M) AND (CKeyPos <> StrLen) AND (NOT Escp) THEN
|
||
BEGIN
|
||
Counter := (CKeyPos - 1);
|
||
WHILE (Counter > 1) AND (S[Counter] <> ' ') AND ((S[Counter] <> ^H) OR (S[Counter - 1] = '^')) DO
|
||
Dec(Counter);
|
||
IF (Counter > (RP DIV 2)) AND (Counter <> (CKeyPos - 1)) THEN
|
||
BEGIN
|
||
LastLineStr := Copy(S,(Counter + 1),(CKeyPos - Counter));
|
||
FOR Counter1 := (CKeyPos - 2) DOWNTO Counter DO
|
||
BackSpace;
|
||
S[0] := Chr(Counter - 1);
|
||
END;
|
||
END;
|
||
IF (Escp) AND (RP = ThisUser.LineLen) THEN
|
||
CKeyPos := StrLen;
|
||
IF (CKeyPos <> StrLen) THEN
|
||
NL
|
||
ELSE
|
||
BEGIN
|
||
RP := 1;
|
||
CKeyPos := 1;
|
||
S := S + #29;
|
||
END;
|
||
END;
|
||
Write_Msg := FALSE;
|
||
END;
|
||
|
||
END.
|