MIDE 50 line mode option

mystic/mide.pas

@@ -1164,7 +1164,7 @@ Begin
       CurX  := 77;
     End;
 
-    If CurY < 21 Then Begin
+    If CurY < mideWinSize - 3 Then Begin
       Inc (CurY);
       DrawPage;
     End Else
@@ -1548,10 +1548,11 @@ Begin
 End;
 
 Var
-  Ch  : Char;
+  Ch     : Char;
-  A   : Byte;
+  A      : Byte;
-  Str : String;
+  Str    : String;
-  FN  : String;
+  FN     : String;
+  Mode50 : Boolean = False;
 Begin
   GetDir (0, StartDir);
 
@@ -1562,26 +1563,34 @@ Begin
 
   Console.SetWindowTitle('MIDE');
 
-  (* FOR 50 line mode development *)
+  For A := 1 to ParamCount Do Begin
-//  Console.SetScreenSize(50);
+    If Pos('-50', ParamStr(A)) > 0 Then
-//  mideBotY    := 49;
+      Mode50 := True
-//  mideWinSize := 49;
+    Else
+      Str := ParamStr(A);
+  End;
+
+  If Mode50 Then Begin
+    Console.SetScreenSize(50);
+
+    mideBotY    := 49;
+    mideWinSize := 49;
+  End;
 
   FillScreen;
 
   TotalWinNum := 0;
   CurWinNum   := 0;
 
-  If ParamCount = 1 Then Begin
+  If Str <> '' Then Begin
-    If Pos(PathSep, ParamStr(1)) = 0 Then
+    If Pos(PathSep, Str) = 0 Then
-      Str := StartDir + ParamStr(1)
+      Str := StartDir + Str;
-    Else
-      Str := ParamStr(1);
 
     If Pos('.', Str) = 0 Then
       Str := Str + '.mps';
 
     LoadAndOpen(Str);
+
     ReDrawScreen;
   End;
 
@@ -1597,7 +1606,7 @@ Begin
         If CurLine = TotalLines Then
           BarPos := mideBotY - 1
         Else
-          BarPos := Round(CurLine / TotalLines * 100) DIV 5 + 3;
+          BarPos := Round(CurLine / TotalLines * (mideWinSize - 4)) + 3;
 
         Console.WriteXY (80, BarPos, colEditPosBar, 'Û');