Set FileMode to RWDN at startup

This commit is contained in:
mysticbbs 2012-04-17 18:34:06 -04:00
parent 365c307928
commit 90c925c38c
1 changed files with 3 additions and 1 deletions

View File

@ -13,7 +13,7 @@ Uses
{$I RECORDS.PAS} {$I RECORDS.PAS}
Type Type
OldLastOnRec = Record { CALLERS.DAT } OldLastOnRec = Record { CALLERS.DAT }
Handle : String[30]; { User's Name } Handle : String[30]; { User's Name }
City : String[25]; { City/State } City : String[25]; { City/State }
Address : String[30]; { user's address } Address : String[30]; { user's address }
@ -1315,6 +1315,8 @@ End;
Var Var
ConfigFile : File of RecConfig; ConfigFile : File of RecConfig;
Begin Begin
FileMode := 66;
WarningDisplay; WarningDisplay;
//COMMENT this out if mystic.dat is being converted: //COMMENT this out if mystic.dat is being converted: