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

Added copyyear

This commit is contained in:
mysticbbs 2012-03-18 18:31:33 -04:00
parent bc435314d5
commit 082d63aa2b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mystic/mplc.pas
View File

@ -19,16 +19,18 @@
// //
// ==================================================================== // ====================================================================
{$I m_OPS.PAS}
Program MPLC; Program MPLC;
{$I M_OPS.PAS}
Uses Uses
DOS,
m_Output, m_Output,
m_Strings, m_Strings,
Dos,
MPL_Compile; MPL_Compile;
{$I RECORDS.PAS}
Var Var
SavedX : Byte; SavedX : Byte;
Console : TOutput; Console : TOutput;
@ -63,7 +65,7 @@ Begin
Console := TOutput.Create(True); Console := TOutput.Create(True);
Console.WriteLine (#13#10'Mystic BBS Programming Language Compiler Version ' + mysVersion); Console.WriteLine (#13#10'Mystic BBS Programming Language Compiler Version ' + mysVersion);
Console.WriteLine ('Copyright (C) 1997-2011 By James Coyle. All Rights Reserved.'#13#10); Console.WriteLine ('Copyright (C) ' + mysCopyYear + ' By James Coyle. All Rights Reserved.'#13#10);
If ParamCount = 0 Then If ParamCount = 0 Then
WriteLn ('MPLC [filename] or MPLC -ALL') WriteLn ('MPLC [filename] or MPLC -ALL')