eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor formatting

This commit is contained in:
mysticbbs 2012-06-30 23:59:38 -04:00
parent 9490f24bab
commit 0de9a68569
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mystic/mystic.pas
View File

@ -408,13 +408,13 @@ Begin
CheckPathsAndDataFiles; CheckPathsAndDataFiles;
{$IFNDEF UNIX} {$IFNDEF UNIX}
Session.LocalMode := Session.CommHandle = -1; Session.LocalMode := Session.CommHandle = -1;
If Not Session.LocalMode Then Begin If Not Session.LocalMode Then Begin
Session.Client.FSocketHandle := Session.CommHandle; Session.Client.FSocketHandle := Session.CommHandle;
Session.io.LocalScreenDisable; Session.io.LocalScreenDisable;
End; End;
{$ENDIF} {$ENDIF}
ExitSave := ExitProc; ExitSave := ExitProc;
@ -440,12 +440,12 @@ Begin
If Session.Baud = -1 Then Session.Baud := 0; If Session.Baud = -1 Then Session.Baud := 0;
{$IFNDEF UNIX} {$IFNDEF UNIX}
Screen.TextAttr := 7; Screen.TextAttr := 7;
Screen.ClearScreen; Screen.ClearScreen;
{$ENDIF} {$ENDIF}
{$IFNDEF UNIX} {$IFNDEF UNIX}
UpdateStatusLine(0, ''); UpdateStatusLine(0, '');
{$ENDIF} {$ENDIF}
Set_Node_Action (Session.GetPrompt(345)); Set_Node_Action (Session.GetPrompt(345));