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

Code cleanup

This commit is contained in:
mysticbbs 2012-02-26 16:15:03 -05:00
parent 7f60eb3e69
commit b77f9578b7
1 changed files with 83 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/makelang.pas
View File

@ -41,7 +41,6 @@ Var
FName : NameStr; FName : NameStr;
FExt : ExtStr; FExt : ExtStr;
FDir : DirStr; FDir : DirStr;
Begin Begin
WriteLn; WriteLn;
WriteLn ('MAKELANG (' + OSID + ') - Mystic Language Compiler v', mysVersion); WriteLn ('MAKELANG (' + OSID + ') - Mystic Language Compiler v', mysVersion);
@ -50,10 +49,12 @@ Begin
Assign (ConfigFile, 'mystic.dat'); Assign (ConfigFile, 'mystic.dat');
{$I-}Reset (ConfigFile);{$I+} {$I-}Reset (ConfigFile);{$I+}
If IoResult <> 0 Then Begin If IoResult <> 0 Then Begin
WriteLn ('ERROR: MYSTIC.DAT not found. Run from main BBS directory.'); WriteLn ('ERROR: MYSTIC.DAT not found. Run from main BBS directory.');
Halt(1); Halt(1);
End; End;
Read (ConfigFile, Config); Read (ConfigFile, Config);
Close (ConfigFile); Close (ConfigFile);
@ -72,6 +73,7 @@ Begin
Assign (tFile, FName + FExt); Assign (tFile, FName + FExt);
{$I-} Reset (tFile); {$I+} {$I-} Reset (tFile); {$I+}
If IoResult <> 0 Then Begin If IoResult <> 0 Then Begin
WriteLn ('ERROR: Language file (' + FName + FExt + ') not found.'); WriteLn ('ERROR: Language file (' + FName + FExt + ') not found.');
Halt(1); Halt(1);