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

Updated copyright

This commit is contained in:
mysticbbs 2012-02-18 01:52:42 -05:00
parent 13a99d4615
commit e12a159b20
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mystic/mbbsutil.pas
View File

@ -363,11 +363,10 @@ Begin
FindNext(Dir); FindNext(Dir);
End; End;
{$IFNDEF MSDOS}
FindClose(Dir); FindClose(Dir);
{$ENDIF}
Update_Status ('Completed'); Update_Status ('Completed');
WriteLn; WriteLn;
End; End;
@ -444,9 +443,7 @@ Begin
FindNext(Dir); FindNext(Dir);
End; End;
{$IFNDEF MSDOS}
FindClose(Dir); FindClose(Dir);
{$ENDIF}
End Else End Else
SortList; SortList;
@ -507,9 +504,7 @@ Begin
FindNext(Dir); FindNext(Dir);
End; End;
{$IFNDEF MSDOS}
FindClose(Dir); FindClose(Dir);
{$ENDIF}
End Else End Else
PackFile; PackFile;
@ -839,7 +834,7 @@ Begin
TextAttr := 7; TextAttr := 7;
WriteLn; WriteLn;
WriteLn ('MBBSUTIL: ', mysSoftwareID, ' BBS Utilities Version ', mysVersion, ' (', OSID, ')'); WriteLn ('MBBSUTIL: ', mysSoftwareID, ' BBS Utilities Version ', mysVersion, ' (', OSID, ')');
WriteLn ('Copyright (C) 1997-2011 By James Coyle. All Rights Reserved.'); WriteLn ('Copyright (C) 1997-2012 By James Coyle. All Rights Reserved.');
WriteLn; WriteLn;
FileMode := 66; FileMode := 66;