procedure checkstrings;
begin
{$i-} reset(strf,1); {$i+}
if ioresult<>0 then begin
                    rewrite(Strf,1);
                    str.str:='~CS~CR|15L|07o|08gin|07: ';
                    str.dsc:='Login Prompt';
                    str.mci:='%LP';
                    writestring;
                    str.str :='|15P|07a|08ssword|07: ';
                    str.dsc:='Password Prompt';
                    str.mci:='%PP';
                    writestring;
                    str.str :='|15User Found!~CR';
                    str.dsc:='User Found';
                    str.mci:='%UF';
                    writestring;
                    str.str :='|15User not Found!';
                    str.dsc:='User not found';
                    str.mci:='%NF';
                    writestring;
                    str.str :='~CR~CR|07Looking up User|15.|07.|08.';
                    str.dsc:='Looking up the user';
                    str.mci:='%LU';
                    writestring;
                    str.str :='~CSWelcome to |15~BL!~CR';
                    str.dsc:='Welcome User String';
                    str.mci:='%WS';
                    writestring;
                    str.str :='|08-|04*|08- |07Checking For |15ANSi.|07.|08. |07Hold yer fro, P|15u|07NK|08!~CR';
                    str.dsc:='Checking For Ansi';
                    str.mci:='%CA';
                    writestring;
                    str.str :='~CR~CRThe System Operator wants to Chat. Acknowledge? ';
                    str.dsc:='Chat Open';
                    str.mci:='%CO';
                    writestring;
                    str.str :='~CR~CR|15Ab|07or|08t Newuser Application? ';
                    str.dsc:='Abort Newuser App';
                    str.mci:='%AA';
                    writestring;
                    str.str :='~CR|15Pl|07ea|08se Select a Handle~CR|07: |09';
                    str.dsc:='Handle Select';
                    str.mci:='%HS';
                    writestring;
                    str.str :='~CR|15Ch|07ec|08king to see if handle is being Used|15.|07.|08.~CR';
                    str.dsc:='Checking handle';
                    str.mci:='%CH';
                    writestring;
                    str.str :='~CR|08Sorr|04y, Y|12ou ca|14nnot u|15se that Handle.~CR';
                    str.dsc:='Handle already exist';
                    str.mci:='%HE';
                    writestring;
                    str.str :='~CR|15Pl|07ea|08se Enter your Full Name~CR|07: |09';
                    str.dsc:='Full Name Input';
                    str.mci:='%FI';
                    writestring;
                    str.str :='~CR|08Yo|04u mu|12st e|14nter bo|15th your First and Last Names.~CR';
                    str.dsc:='Both Names';
                    str.mci:='%BN';
                    writestring;
                    str.str :='~CR|15En|07te|08r your Phone Number~CR|07: |09';
                    str.dsc:='Phone Input';
                    str.mci:='%PI';
                    writestring;
                    str.str :='~CR|15En|07te|08r Desired UserNote~CR|07: |09';
                    str.dsc:='User Note';
                    str.mci:='%UE';
                    writestring;
                    str.str :='~CR|15Pl|07ea|08se Select a Password~CR|07: |09';
                    str.dsc:='Password Selection';
                    str.mci:='%PS';
                    writestring;
                    str.str :='~CR|08Pa|04ssw|12ord|14s do n|15ot Match!';
                    str.dsc:='Password match wrong';
                    str.mci:='%PG';
                    writestring;
                    str.str :='~CR|15No|07w R|08e-Enter your Password for Verification. ~CR|07: |09';
                    str.dsc:='Re-enter Password to check';
                    str.mci:='%PC';
                    writestring;
                    str.str :='~CR|15Wo|07ul|08d you like Expert Mode? ';
                    str.dsc:='Expert Mode ask';
                    str.mci:='%EA';
                    writestring;
                    str.str :='~CRUse the Fullscreen Editor? ';
                    str.dsc:='Use the FSE for messages';
                    str.mci:='%FG';
                    writestring;
                    str.str :='~CRUse ANSI Graphics? ';
                    str.dsc:='Use ANSI graphics as Default';
                    str.mci:='%AD';
                    writestring;
                    str.str :='~CRPlease Wait..Filing User Data...~CR';
                    str.dsc:='Makeing User File';
                    str.mci:='%MF';
                    writestring;
                    str.str :='~CRNow you must leave a Note to the SysOp.~CR';
                    str.dsc:='Note Notify';
                    str.mci:='%NY';
                    writestring;
                    str.str :='~CRCall back in 48 Hours and Check to see if you have been validated!.~CR';
                    str.dsc:='Call Back time';
                    str.mci:='%CM';
                    writestring;
                    end;
end;
