diff --git a/mystic/bbs_cfg_theme.pas b/mystic/bbs_cfg_theme.pas
index 9d987da..9cf87f1 100644
--- a/mystic/bbs_cfg_theme.pas
+++ b/mystic/bbs_cfg_theme.pas
@@ -306,812 +306,4 @@ Begin
   ThemeFile.Free;
 End;
 
-End.
-
-Uses
-  m_Types,
-  m_Output,
-  m_Strings,
-  m_FileIO,
-  m_MenuInput,
-  m_MenuBox,
-  m_MenuForm,
-  MCFG_Common;
-
-Procedure CompileTheme;
-
-  Procedure UpdateBar (Cur : Integer);
-  Var
-    Percent : Byte;
-  Begin
-    Percent := Round(Cur / mysMaxThemeText * 100 / 5);
-
-    Console.WriteXY (34, 12, 113, strRep(#178, Percent) + strRep(#176, 20 - Percent) +
-                       strPadL(strI2S(Percent * 5) + '%', 5, ' '));
-  End;
-
-Var
-  InFile     : Text;
-  PromptFile : File of RecPrompt;
-  Prompt     : RecPrompt;
-  Count      : LongInt;
-  Done       : Array[0..mysMaxThemeText] of Boolean;
-  Temp       : String;
-  DoneNum    : LongInt;
-Begin
-  Assign  (PromptFile, BbsConfig.PathData + Theme.FileName + '.thm');
-  ReWrite (PromptFile);
-
-  If IoResult <> 0 Then Begin
-    ShowMsgBox(0, 'Cannot compile theme when Mystic is loaded');
-    Exit;
-  End;
-
-  Assign (InFile, BbsConfig.PathSystem + Theme.FileName + '.txt');
-  Reset  (InFile);
-
-  ShowMsgBox (3, 'Compiling:                          ');
-
-  Prompt  := '';
-  DoneNum := 0;
-
-  For Count := 0 to mysMaxThemeText Do Begin
-    Done[Count] := False;
-    Write (PromptFile, Prompt);
-  End;
-
-  Reset (PromptFile);
-
-  While Not Eof(InFile) Do Begin
-    ReadLn (InFile, Temp);
-
-    If Copy(Temp, 1, 3) = '000'      Then Count := 0 Else
-    If strS2I(Copy(Temp, 1, 3)) > 0 Then Count := strS2I(Copy(Temp, 1, 3)) Else
-    Count := -1;
-
-    If Count <> -1 Then Begin
-      Inc (DoneNum);
-
-      UpdateBar(DoneNum);
-
-      If Count > mysMaxThemeText Then Begin
-        CloseMsgBox;
-        ShowMsgBox(0, 'Prompt #' + strI2S(Count) + ' was not expected');
-        Close (InFile);
-        Close (PromptFile);
-        Erase (PromptFile);
-        Exit;
-      End;
-
-      Done[Count] := True;
-      Seek (PromptFile, Count);
-      Prompt := Copy(Temp, 5, Length(Temp));
-      Write (PromptFile, Prompt);
-    End;
-  End;
-
-  Close (InFile);
-  Close (PromptFile);
-
-  For Count := 0 to mysMaxThemeText Do Begin
-    If Not Done[Count] Then Begin
-      CloseMsgBox;
-      ShowMsgBox (0, 'Prompt #' + strI2S(Count) + ' was not found');
-      Erase (PromptFile);
-      Break;
-    End;
-  End;
-
-  CloseMsgBox;
-End;
-
-Const
-  LinesPerPage = 16;
-  LineWidth    = 72;
-  WinStartX    = 5;
-  WinStartY    = 2;
-  WinCommentY  = 20;
-
-Type
-  TopicRec = Record
-    Position : Word;
-    Name     : String[50];
-  End;
-
-Var
-  AreaData    : Array[1..65535] of ^TopicRec;
-  TextData    : Array[1..65535] of ^String;
-  PageData    : Array[1..65535] of ^Word;
-  TextSize    : Word;
-  AreaSize    : Word;
-  PageSize    : Word;
-  Total       : Word;
-  Comment     : Array[1..LinesPerPage] of Array[1..3] of String[LineWidth];
-  CurPageData : Array[1..LinesPerPage] of Word;
-  CurPageSize : Byte;
-  CurPage     : Word;
-  CurLine     : Word;
-  LastArea    : LongInt;
-  SearchMask  : String;
-
-Procedure DrawPage (Silent: Boolean);
-Var
-  Str   : String;
-  A     : Byte;
-  Count : Word;
-Begin
-  For A := 1 to LinesPerPage Do Begin
-    Comment[A][1] := '';
-    Comment[A][2] := '';
-    Comment[A][3] := '';
-  End;
-
-  CurPageSize := 0;
-  Count       := PageData[CurPage]^;
-
-  While (CurPageSize < LinesPerPage) and (Count <= TextSize) Do Begin
-    Str := TextData[Count]^;
-    Inc (Count);
-    If Str[1] = ';' Then Begin
-      Delete (Str, 1, 2);
-
-      Comment[CurPageSize + 1][1] := Comment[CurPageSize + 1][2];
-      Comment[CurPageSize + 1][2] := Comment[CurPageSize + 1][3];
-      Comment[CurPageSize + 1][3] := Str;
-    End Else
-    If (Str <> '') and (Str[1] <> '#') and (Str[1] <> '$') Then Begin
-      Inc(CurPageSize);
-      CurPageData[CurPageSize] := Count - 1;
-      If Not Silent Then
-        Console.WriteXYPipe (WinStartX, WinStartY + CurPageSize, 7, LineWidth, Copy(Str, 5, 255));
-    End;
-  End;
-
-  If Not Silent Then
-    If CurPageSize < LinesPerPage Then
-      For A := CurPageSize + 1 to LinesPerPage Do
-        Console.WriteXY (WinStartX, A + WinStartY, 7, strRep(' ', LineWidth));
-End;
-
-Procedure Search (Again: Boolean);
-Var
-  Temp    : String;
-  Start   : Byte;
-  A       : Byte;
-  B       : Integer;
-  PageEnd : Integer;
-  LineNum : Integer;
-Begin
-  If (Not Again) or ((Again) and (SearchMask = '')) Then Begin
-    SearchMask := GetStr('Search', 'Enter search text:', SearchMask, 50, 255);
-
-    If SearchMask = '' Then Begin
-      DrawPage(False);
-      Exit;
-    End;
-
-    Start := 1;
-    Again := False;
-  End Else
-    Start := CurPage;
-
-  For A := Start to PageSize Do Begin
-
-    If A = PageSize Then
-      PageEnd := Total
-    Else
-      PageEnd := PageData[A+1]^ - 1;
-
-    LineNum := 0;
-
-    For B := PageData[A]^ to PageEnd Do Begin
-      Temp := TextData[B]^;
-      If (Temp[1] <> ';') and (Temp[1] <> '#') Then Begin
-        Inc (LineNum);
-
-        If Again and (A = CurPage) Then
-          If (LineNum <= CurLine) and (LineNum < LinesPerPage) Then Continue;
-
-        If Pos(strUpper(SearchMask), strUpper(strStripMCI(TextData[B]^))) > 0 Then Begin
-          If Not ((A = CurPage) and (CurLine = LineNum)) Then Begin
-            CurPage := A;
-            CurLine := LineNum;
-            DrawPage(False);
-            Exit;
-          End;
-        End;
-      End;
-    End;
-  End;
-
-  ShowMsgBox(0, 'No matching text was found');
-  DrawPage(False);
-End;
-
-Function GetPromptArea (LineNum: Byte) : Word;
-Var
-  Count : LongInt;
-Begin
-  Result := AreaSize;
-
-  For Count := AreaSize DownTo 1 Do
-    If CurPageData[LineNum] < AreaData[Count]^.Position Then
-      If Count > 1 Then Begin
-        If CurPageData[LineNum] > AreaData[Count - 1]^.Position Then Begin
-          Result := Count - 1;
-          Break;
-        End;
-      End Else
-        Result := 1;
-End;
-
-Procedure DrawComments;
-Var
-  Area : Word;
-Begin
-  Console.WriteXY (WinStartX, WinCommentY    , 15, strPadR(Comment[CurLine][1], LineWidth, ' '));
-  Console.WriteXY (WinStartX, WinCommentY + 1, 15, strPadR(Comment[CurLine][2], LineWidth, ' '));
-  Console.WriteXY (WinStartX, WinCommentY + 2, 15, strPadR(Comment[CurLine][3], LineWidth, ' '));
-
-  Area := GetPromptArea(CurLine);
-
-  If LastArea <> Area Then Begin
-    Console.WriteXY (4, WinCommentY - 1, 3, strRep('Ä', 74));
-    Console.WriteXY (4, WinCommentY - 1, 3, '(' + strRep(' ', Length(AreaData[Area]^.Name)) + ')');
-    Console.WriteXY (5, WinCommentY - 1, 7, AreaData[Area]^.Name);
-
-    LastArea := Area;
-  End;
-End;
-
-Function LoadPromptFile (FN: String) : Byte;
-Const
-  MemoryCheck = 32 * 1024;
-Var
-  TF    : Text;
-  Buf   : Array[1..4096] of Char;
-  Str   : String;
-  Count : LongInt;
-  Lines : LongInt;
-  Last  : LongInt;
-Begin
-  Result   := 0;
-  TextSize := 0;
-  AreaSize := 0;
-  PageSize := 0;
-  LastArea := -1;
-
-  Assign     (TF, FN);
-  SetTextBuf (TF, Buf, 4096);
-  Reset      (TF);
-
-  If IoResult <> 0 Then Exit;
-
-  While Not Eof(TF) Do Begin
-
-    {$IFNDEF FPC}
-    If MaxAvail < MemoryCheck Then Begin
-      Result := 2;
-      Close (TF);
-      Exit;
-    End;
-    {$ENDIF}
-
-    ReadLn (TF, Str);
-    Inc    (TextSize);
-    New    (TextData[TextSize]);
-
-    TextData[TextSize]^ := Str;
-  End;
-
-  Close (TF);
-
-  // FIND PROMPT SECTIONS
-
-  For Count := 1 to TextSize Do
-    If TextData[Count]^[1] = '$' Then Begin
-      {$IFNDEF FPC}
-      If MaxAvail < MemoryCheck Then Begin
-        Result := 2;
-        Exit;
-      End;
-      {$ENDIF}
-
-      Inc (AreaSize);
-      New (AreaData[AreaSize]);
-
-      AreaData[AreaSize]^.Position := Count;
-      AreaData[AreaSize]^.Name     := strStripB(Copy(TextData[Count]^, 2, Length(TextData[Count]^)), ' ');
-    End;
-
-  // FIND PAGE BREAKS
-
-  Total := 0;
-  Lines := 0;
-  Last  := 1;
-
-  For Count := 1 to TextSize Do Begin
-    Str := strStripL(TextData[Count]^, ' ');
-
-    If (Str <> '') and (Str[1] <> ';') and (Str[1] <> '#') and (Str[1] <> '$') Then Begin
-      Inc (Total);
-      Inc (Lines);
-
-      If Lines = 1 Then Begin
-        {$IFNDEF FPC}
-        If MaxAvail < MemoryCheck Then Begin
-          Result := 2;
-          Exit;
-        End;
-        {$ENDIF}
-
-        Inc (PageSize);
-        New (PageData[PageSize]);
-
-        PageData[PageSize]^ := Last;
-      End;
-    End;
-
-    If Lines = LinesPerPage Then Begin
-      Lines := 0;
-      Last  := Count + 1;
-    End;
-  End;
-
-  Result := 1;
-End;
-
-Procedure DisposeData;
-Var
-  Count : LongInt;
-Begin
-  For Count := AreaSize DownTo 1 Do Dispose(AreaData[Count]);
-  For Count := PageSize DownTo 1 Do Dispose(PageData[Count]);
-  For Count := TextSize DownTo 1 Do Dispose(TextData[Count]);
-End;
-
-Procedure JumpToArea;
-Var
-  List  : TMenuList;
-  Count : Word;
-  Page  : LongInt;
-Begin
-  List := TMenuList.Create(Console);
-
-  List.Box.Header := ' Select Prompt Category ';
-
-  For Count := 1 to AreaSize Do
-    List.Add(AreaData[Count]^.Name, 0);
-
-  List.Open (19, 7, 62, 18);
-  List.Close;
-
-  If List.ExitCode = #13 Then Begin
-    For Count := 1 To PageSize Do
-      If Count < PageSize Then Begin
-        If AreaData[List.Picked]^.Position > PageData[Count]^ Then
-          If AreaData[List.Picked]^.Position < PageData[Count + 1]^ Then Begin
-            Page := Count;
-            Break;
-          End;
-      End Else Begin
-        Page := PageSize;
-        Break;
-      End;
-
-    CurPage := Page;
-
-    DrawPage(False);
-
-    For Count := 1 to LinesPerPage Do
-      If GetPromptArea(Count) = List.Picked Then Begin
-        CurLine := Count;
-        Break;
-      End;
-  End;
-
-  List.Free;
-End;
-
-Procedure EditPrompts;
-Var
-  Box      : TMenuBox;
-  Input    : TMenuInput;
-  Image    : TConsoleImageRec;
-  Res      : LongInt;
-  Changed  : Boolean;
-  EditStr  : String;
-  UndoStr  : String;
-  CurStr   : String[3];
-  CopyStr  : String;
-  NeedUndo : Boolean;
-  Saved    : Boolean;
-  InFile   : Text;
-Begin
-  Console.GetScreenImage(1, 1, 80, 25, Image);
-
-  Console.WriteXY (1, 1,  8,   strRep('°', 80));
-  Console.WriteXY (1, 2,  8,   strRep('°', 80));
-  Console.WriteXY (1, 3,  8,   strRep('°', 80));
-  Console.WriteXY (1, 24, 8,   strRep('°', 80));
-
-  ShowMsgBox(3, 'Loading prompt data...');
-
-  Res := LoadPromptFile(bbsConfig.PathSystem + Theme.FileName + '.txt');
-
-  CloseMsgBox;
-
-  Case Res of
-    0 : Begin
-          DisposeData;
-          ShowMsgBox(0, bbsConfig.PathSystem + 'Unable to open: ' + Theme.FileName + '.txt');
-          Console.PutScreenImage(Image);
-          Exit;
-        End;
-    2 : Begin
-          DisposeData;
-          ShowMsgBox(0, 'Out of memory');
-          Console.PutScreenImage(Image);
-          Exit;
-        End;
-  End;
-
-  Box   := TMenuBox.Create(Console);
-  Input := TMenuInput.Create(Console);
-
-  Box.Shadow    := False;
-  Box.FrameType := 1;
-  Box.Box3D     := False;
-  Box.BoxAttr   := 3;
-
-  Box.Open (3, 2, 78, 23);
-
-  Console.WriteXY (4, 2, 3, '(   /   )');
-  Console.WriteXY (72 - Length(Theme.FileName), 2, 3, '(' + strRep(' ', Length(Theme.FileName) + 4) + ')');
-  Console.WriteXY (9, 2, 7, strI2S(Total));
-  Console.WriteXY (73 - Length(Theme.FileName), 2, 7, Theme.FileName + '.txt');
-  Console.WriteXY (1, 25, 112, '          CTRL+ (K) Copy   (P)aste   (U)ndo   (F)ind   (A)gain  (J)ump          ');
-  Console.WriteXY (78, 3,  3, #25);
-  Console.WriteXY (78, 18, 3, #24);
-
-  Changed  := False;
-  CurPage  := 1;
-  CurLine  := 1;
-  NeedUndo := True;
-
-  DrawPage(False);
-
-  Input.HiChars := #72#73#80#81#117#119;
-  Input.LoChars := #01#06#10#11#16#21#27;
-
-  Repeat
-    For Res := 4 To 17 Do
-      Console.WriteXY (78, Res, 3, '°');
-
-    Res := (CurPage * 15) DIV PageSize;
-    If CurPage = PageSize Then Res := 14;
-    If (Res < 0) Then Res := 0;
-    Console.WriteXY (78, 3 + Res, 3, '²');
-
-    DrawComments;
-
-    CurStr  := Copy(TextData[CurPageData[CurLine]]^, 1, 3);
-    EditStr := Copy(TextData[CurPageData[CurLine]]^, 5, 255);
-
-    If NeedUndo Then
-      UndoStr := EditStr
-    Else
-      NeedUndo := True;
-
-    Console.WriteXY (5, 2, 7, CurStr);
-
-    EditStr := Input.GetStr(WinStartX, WinStartY + CurLine, LineWidth, 254, 1, EditStr);
-
-    Case Input.ExitCode of
-      #16 : If CopyStr <> '' Then Begin
-              UndoStr  := EditStr;
-              EditStr  := CopyStr;
-              Changed  := True;
-              NeedUndo := False;
-            End;
-      #21 : Begin
-              EditStr := UndoStr;
-            End;
-    End;
-
-    Console.WriteXYPipe (WinStartX, WinStartY + CurLine, 7, LineWidth, EditStr);
-    TextData[CurPageData[CurLine]]^ := CurStr + ' ' + EditStr;
-
-    Changed := Changed or Input.Changed;
-
-    Case Input.ExitCode of
-      #01 : Search(True);
-      #06 : Search(False);
-      #10 : JumpToArea;
-      #11 : CopyStr := EditStr;
-      #27 : Break;
-      #72 : If CurLine > 1 Then
-              Dec(CurLine)
-            Else Begin
-              If CurPage > 1 Then Begin
-                Dec (CurPage);
-                DrawPage(False);
-                CurLine := CurPageSize;
-              End;
-            End;
-      #73 : If CurPage > 1 Then Begin
-              Dec (CurPage);
-              DrawPage(False);
-            End Else
-              CurLine := 1;
-      #80 : If CurLine < CurPageSize Then
-              Inc(CurLine)
-            Else Begin
-              If CurPage < PageSize Then Begin
-                Inc (CurPage);
-                DrawPage(False);
-                CurLine := 1;
-              End;
-            End;
-      #81 : If CurPage < PageSize Then Begin
-              Inc (CurPage);
-              DrawPage(False);
-              If CurLine > CurPageSize Then CurLine := CurPageSize;
-            End Else
-              CurLine := CurPageSize;
-      #117: Begin
-              CurPage := PageSize;
-              DrawPage(False);
-              CurLine := CurPageSize;
-            End;
-      #119: Begin
-              CurPage := 1;
-              CurLine := 1;
-              DrawPage(False);
-            End;
-    End;
-  Until False;
-
-  Input.Free;
-
-  Saved := False;
-
-  If Changed Then
-    If ShowMsgBox(1, 'Save changes?') Then Begin
-      Saved := True;
-
-      Assign  (InFile, BbsConfig.PathSystem + Theme.FileName + '.txt');
-      ReWrite (InFile);
-
-      For Res := 1 to TextSize Do Begin
-        EditStr := TextData[Res]^;
-        WriteLn (InFile, EditStr);
-      End;
-
-      Close (InFile);
-    End;
-
-  DisposeData;
-
-  If Saved Then
-    If ShowMsgBox(1, 'Compile changed theme file?') Then
-      CompileTheme;
-
-  Box.Close;
-  Box.Free;
-
-  Console.PutScreenImage(Image);
-End;
-
-Procedure EditSettings;
-Var
-  Box   : TMenuBox;
-  Form  : TMenuForm;
-  Topic : String;
-Begin
-  Box  := TMenuBox.Create(Console);
-  Form := TMenuForm.Create(Console);
-
-  Topic      := '|03(|09Theme|03) |01-|09> |15';
-  Box.Header := ' Theme Settings ';
-
-  Form.AddBol  ('L', ' Use Lightbar Yes/No ',  7,  7, 30,  7, 21, 3,       @Theme.LightbarYN,   Topic + 'Use lightbar Yes/No prompts');
-  Form.AddChar ('W', ' Password Echo Char ' ,  8,  8, 30,  8, 20, 32, 255, @Theme.PasswordEcho, Topic + 'Password input mask character');
-  Form.AddChar ('I', ' Input Field Char '   , 10,  9, 30,  9, 18, 32, 225, @Theme.InputChar,    Topic + 'Input field fill character');
-  Form.AddAttr ('N', ' Input Field Color 1 ',  7, 11, 30, 11, 21,          @Theme.InputField1,  Topic + 'Input field text color');
-  Form.AddAttr ('P', ' Input Field Color 2 ',  7, 12, 30, 12, 21,          @Theme.InputField2,  Topic + 'Input field fill color');
-  Form.AddTog  ('F', ' Username Input Type ',  7, 13, 30, 13, 21, 9, 0, 4, 'AsTyped Uppercase Lowercase Proper eLiTe', @Theme.UserInputFmt, Topic + 'User name input format');
-
-  Form.AddAttr ('0', ' Theme Color #0 ', 45, 7,  63,  7, 16, @Theme.Colors[0], Topic);
-  Form.AddAttr ('1', ' Theme Color #1 ', 45, 8,  63,  8, 16, @Theme.Colors[1], Topic);
-  Form.AddAttr ('2', ' Theme Color #2 ', 45, 9,  63,  9, 16, @Theme.Colors[2], Topic);
-  Form.AddAttr ('3', ' Theme Color #3 ', 45, 10, 63, 10, 16, @Theme.Colors[3], Topic);
-  Form.AddAttr ('4', ' Theme Color #4 ', 45, 11, 63, 11, 16, @Theme.Colors[4], Topic);
-  Form.AddAttr ('5', ' Theme Color #5 ', 45, 12, 63, 12, 16, @Theme.Colors[5], Topic);
-  Form.AddAttr ('6', ' Theme Color #6 ', 45, 13, 63, 13, 16, @Theme.Colors[6], Topic);
-  Form.AddAttr ('7', ' Theme Color #7 ', 45, 14, 63, 14, 16, @Theme.Colors[7], Topic);
-  Form.AddAttr ('8', ' Theme Color #8 ', 45, 15, 63, 15, 16, @Theme.Colors[8], Topic);
-  Form.AddAttr ('9', ' Theme Color #9 ', 45, 16, 63, 16, 16, @Theme.Colors[9], Topic);
-  Form.AddAttr ('E', ' Line Chat #1 '  , 47, 18, 63, 18, 14, @Theme.LineChat1, Topic);
-  Form.AddAttr ('C', ' Line Chat #2 '  , 47, 19, 63, 19, 14, @Theme.LineChat2, Topic);
-
-  Box.Open (5, 5, 73, 20);
-
-  VerticalLine (28,  7, 9);
-  VerticalLine (28, 11, 13);
-  VerticalLine (61,  7, 16);
-  VerticalLine (61, 18, 19);
-
-  Form.Execute;
-
-  Box.Close;
-
-  Form.Free;
-  Box.Free;
-
-  If Theme.InputChar < #32 Then Theme.InputChar := ' ';
-End;
-
-Procedure EditTheme;
-Var
-  Box   : TMenuBox;
-  Form  : TMenuForm;
-  Topic : String;
-Begin
-  Box  := TMenuBox.Create(Console);
-  Form := TMenuForm.Create(Console);
-
-  Topic      := '|03(|09Themes|03) |01-|09> |15';
-  Box.Header := ' Theme Editor ';
-
-  Form.LoExitChars := #05#16#27;
-
-  Form.AddStr  ('F', ' File Name '    , 16,  8, 29,  8, 11, 20, 20, @Theme.FileName,     Topic + 'File name of theme');
-  Form.AddStr  ('D', ' Description '  , 14,  9, 29,  9, 13, 40, 40, @Theme.Description,  Topic + 'Theme description');
-  Form.AddPath ('T', ' Text Path '    , 16, 10, 29, 10, 11, 40, 60, @Theme.PathText,     Topic + 'Path where display files are stored');
-  Form.AddPath ('M', ' Template Path ', 12, 11, 29, 11, 15, 40, 60, @Theme.PathTemplate, Topic + 'Path where template files are stored');
-  Form.AddPath ('U', ' Menu Path '    , 16, 12, 29, 12, 11, 40, 60, @Theme.PathMenu,     Topic + 'Path where menu files are stored');
-  Form.AddPath ('S', ' Scripts Path ' , 13, 13, 29, 13, 14, 40, 60, @Theme.PathScripts,  Topic + 'Path where MPL scripts are stored');
-  Form.AddBol  ('B', ' Path Fallback ', 12, 15, 29, 15, 15,  3,     @Theme.PathFallback, Topic + 'Theme checks default paths if file not found');
-  Form.AddBol  ('C', ' Allow ASCII '  , 14, 16, 29, 16, 13,  3,     @Theme.AllowASCII,   Topic + 'Theme allows ASCII graphics');
-  Form.AddBol  ('A', ' Allow ANSI '   , 15, 17, 29, 17, 12,  3,     @Theme.AllowANSI,    Topic + 'Theme allows ANSI graphics');
-
-  Box.Open (11, 6, 70, 20);
-
-  VerticalLine    (27,  8, 13);
-  VerticalLine    (27, 15, 17);
-  Console.WriteXY (13, 19, 112, '(CTRL-P) Edit Prompts              (CTRL-E) Edit Options');
-
-  Repeat
-    Case Form.Execute of
-      #05 : Begin
-              Box.Hide;
-              EditSettings;
-              Box.Show;
-            End;
-      #16 : EditPrompts;
-      #27 : Break;
-    End;
-  Until False;
-
-  Box.Close;
-  Form.Free;
-  Box.Free;
-End;
-
-Function ThemeGetFileName (Select: Boolean) : String;
-Var
-  Box       : TMenuBox;
-  List      : TMenuList;
-  ThemeFile : TBufFile;
-Begin
-  ThemeFile := TBufFile.Create(SizeOf(recTheme));
-
-  If Not ThemeFile.Open (bbsConfig.PathData + 'themes.dat', fmOpenCreate, fmReadWrite + fmDenyNone, SizeOf(recTheme)) Then Begin
-    ShowMsgBox(0, 'Unable to open/create themes.dat');
-    ThemeFile.Free;
-    Exit;
-  End;
-
-  Box  := TMenuBox.Create(Console);
-  List := TMenuList.Create(Console);
-
-  Box.Header    := ' Theme ';
-  List.LoChars  := #1#4#13#27;
-  List.NoWindow := True;
-  List.HiAttr   := 31;
-
-  If Select Then
-    Box.Header := Box.Header + 'Selector '
-  Else
-    Box.Header := Box.Header + 'Editor ';
-
-  Box.Open (8, 6, 73, 18);
-
-  Console.WriteXY (10,  8, 112, 'File Name             Description');
-  Console.WriteXY (10,  9, 112, strRep('Ä', 62));
-  Console.WriteXY (10, 16, 112, strRep('Ä', 62));
-
-  If Not Select Then
-    Console.WriteXY (10, 17, 112, '(CTRL-A) Add            (CTRL-D) Delete           (ENTER) Edit');
-
-  Repeat
-    List.Clear;
-
-    ThemeFile.Reset;
-
-    While Not ThemeFile.EOF Do Begin
-      ThemeFile.Read(Theme);
-      List.Add (strPadR(Theme.FileName, 20, ' ') + '  ' + Theme.Description, 0);
-    End;
-
-    List.Add ('', 0);
-
-    List.Open (8, 9, 73, 16);
-    List.Close;
-
-    Case List.ExitCode of
-      #13 : If (List.ListMax > 0) And (List.Picked <> List.ListMax) Then
-              If Select Then Begin
-                ThemeFile.Seek (List.Picked - 1);
-                ThemeFile.Read (Theme);
-                Result := strStripB(Copy(List.List[List.Picked]^.Name, 1, 20), ' ');
-                Break;
-              End Else Begin
-                Box.Hide;
-                ThemeFile.Seek (List.Picked - 1);
-                ThemeFile.Read (Theme);
-                EditTheme;
-                ThemeFile.Seek  (List.Picked - 1);
-                ThemeFile.Write (Theme);
-                Box.Show;
-              End;
-      #27 : Break;
-      #01 : If Not Select Then Begin
-              ThemeFile.RecordInsert(List.Picked);
-
-              With Theme Do Begin
-                FileName       := 'new';
-                Description    := 'New Theme';
-                PathText       := bbsConfig.PathText;
-                PathMenu       := bbsConfig.PathMenu;
-                PathScripts    := bbsConfig.PathScripts;
-                PathTemplate   := bbsConfig.PathTemplate;
-                PathFallback   := True;
-                AllowAnsi      := True;
-                AllowAscii     := True;
-                LightbarYN     := True;
-                UserInputFmt   := 0;
-                PasswordEcho   := '*';
-                InputChar      := '°';
-                InputField1    := 31;
-                InputField2    := 23;
-                LineChat1      := 9;
-                LineChat2      := 11;
-                Colors[0]      := 1;
-                Colors[1]      := 9;
-                Colors[2]      := 11;
-                Colors[3]      := 8;
-                Colors[4]      := 7;
-                Colors[5]      := 15;
-                Colors[6]      :=  8 + 1 * 16;
-                Colors[7]      :=  7 + 1 * 16;
-                Colors[8]      :=  9 + 1 * 16;
-                Colors[9]      := 15 + 1 * 16;
-              End;
-
-              ThemeFile.Write(Theme);
-            End;
-      #04 : If Not Select Then
-              If List.Picked <> List.ListMax Then
-                ThemeFile.RecordDelete(List.Picked);
-    End;
-  Until False;
-
-  Box.Close;
-  Box.Free;
-  List.Free;
-  ThemeFile.Free;
-End;
-
-End.
+End.
\ No newline at end of file