diff --git a/mystic/bbs_common.pas b/mystic/bbs_common.pas index cea806a..9dfb9fd 100644 --- a/mystic/bbs_common.pas +++ b/mystic/bbs_common.pas @@ -356,7 +356,7 @@ Begin Screen.SetRawMode(True); {$ENDIF} - {$IFDEF WIN32} + {$IFDEF WINDOWS} Screen.SetWindowTitle (WinConsoleTitle + strI2S(Session.NodeNum)); {$ENDIF} diff --git a/mystic/bbs_doors.pas b/mystic/bbs_doors.pas index 1afea92..77a84e3 100644 --- a/mystic/bbs_doors.pas +++ b/mystic/bbs_doors.pas @@ -9,7 +9,7 @@ Procedure ExecuteDoor (Format: Byte; Cmd: String); Implementation Uses - {$IFDEF WIN32} + {$IFDEF WINDOWS} Windows, {$ENDIF} m_Types, @@ -206,7 +206,7 @@ Begin Close (tFile); End; -{$IFDEF WIN32} +{$IFDEF WINDOWS} Procedure Shell_DOOR32 (Cmd : String); Var PI : TProcessInformation; @@ -326,7 +326,7 @@ Begin {$ENDIF} End; - {$IFDEF WIN32} + {$IFDEF WINDOWS} If Format = 4 Then Shell_DOOR32(Temp) Else diff --git a/mystic/bbs_nodeinfo.pas b/mystic/bbs_nodeinfo.pas index d7ed127..f873318 100644 --- a/mystic/bbs_nodeinfo.pas +++ b/mystic/bbs_nodeinfo.pas @@ -70,7 +70,7 @@ Begin Write (ChatFile, Chat); Close (ChatFile); - {$IFDEF WIN32} + {$IFDEF WINDOWS} Screen.SetWindowTitle (WinConsoleTitle + strI2S(Session.NodeNum) + ' - ' + Session.User.ThisUser.Handle + ' - ' + Action); {$ENDIF} End; diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas index 7c90392..48f373d 100644 --- a/mystic/mpl_execute.pas +++ b/mystic/mpl_execute.pas @@ -997,7 +997,7 @@ End; Procedure TInterpEngine.FileWriteLine (Var F: File; Str: String); Begin - {$IFDEF WIN32} + {$IFDEF WINDOWS} Str := Str + #13#10; {$ENDIF} {$IFDEF UNIX}