Fixing exit to DOS by reopening IOCB#0 to screen; correcting a visual error when playing a TAB of 128 lines

Author: GSoftwareDevelopment

SFXMM.pas

@@ -4,7 +4,7 @@
 
 {$DEFINE ROMOFF}
 
-uses SFX_API, sysutils, strings, gr2, ui, pmgraph;
+uses SFX_API, sysutils, strings, gr2, ui, pmgraph,cio;
 {$I-}
 {$i types.inc}
 

modules/tab/tab_play.inc

@@ -3,7 +3,7 @@ var i:byte;
 
    procedure updateTabView();
    begin
-      cursorPos:=channels[_tabOfs];// shr 1;
+      cursorPos:=channels[_tabOfs] and $7f;
       if (cursorPos>4) then
       begin
          if (cursorPos>TAB_maxLength-TAB_winHeight) then

modules/ui_helpers.inc

@@ -123,6 +123,7 @@ end;
 procedure exit2DOS();
 begin
    SFX_End();
+   Cls(0); Opn(0,12,0,'E:');
    halt;
 end;