Hello !
I have a kind of a project manager built upon 4NT (now TCC).
When I run it it shows a list of projects (@select). Then I pick one and enter into that project.
The project for me is a "context". So, when I enter it, it brings back to me all the histories from THAT project. So, directories for all drives are set according to that project . Also ALIAS and many other things.
When I leave the project, it saves it all back.
So far, so good.
However, I'd like to restore the SCREEN of the project, as I left it last time I entered it.
Currently I do it using an EXE of my onw.
But I found a BTM for doing that. This is an old BTM that I inserted at the end of this message.
The BTM work but, it DOES not reposition the cursor position (the prompt) where it was.
Do you have something similar ? Or other idea ?
Follows the original btm :
---------------------
:: SCAP.BTM Utility to capture and restore the screen contents
:: By: Frederick Sohn
:: Date: 27 Mar 96 05:18:00
::
:: Slightly modified from SCREEN.BAT by Stian Jakobsen, DOS World May
:: 1996 p. 22
::
:: Here's a neat little *.BAT, just copied from a magazine and slightly
:: modified. It captures and then restores the current screen. Anybody
:: want to improve upon it as a 4DOS *.BTM? The magazine editors would
:: like to find the author; all they know is that he posted it from Norway.
@echo off
*setlocal
*unalias *
if "%1"=="r" .or. "%1" == "/r" goto RESTORE
if "%1"=="s" .or. "%1" == "/s" goto SAVE
:SYNTAX
echo.
echo SCAP /R = Restore Screen.
echo /S = Save Screen.
goto END
:RESTORE
if not exist %temp\screen.tmp goto nofile
echo N%temp\screen.tmp > %temp\restore.scr
echo L >> %temp\restore.scr
echo M CS:100 FA0 B800:0 >> %temp\restore.scr
echo Q >> %temp\restore.scr
debug < %temp\restore.scr>nul
*del /q %temp\restore.scr
*del /q %temp\screen.tmp
echo [24;0H
goto END
:SAVE
echo N%temp\screen.tmp > %temp\save.scr
echo R BX >> %temp\save.scr
echo 0 >> %temp\save.scr
echo R CX >> %temp\save.scr
echo FA0 >> %temp\save.scr
echo W B800:0 >> %temp\save.scr
echo Q >> %temp\save.scr
debug < %temp\save.scr>nul
*del /q %temp\save.scr
goto END
:NOFILE
echo.
echo Could not find %temp\SCREEN.TMP
:END
echo.
quit
I have a kind of a project manager built upon 4NT (now TCC).
When I run it it shows a list of projects (@select). Then I pick one and enter into that project.
The project for me is a "context". So, when I enter it, it brings back to me all the histories from THAT project. So, directories for all drives are set according to that project . Also ALIAS and many other things.
When I leave the project, it saves it all back.
So far, so good.
However, I'd like to restore the SCREEN of the project, as I left it last time I entered it.
Currently I do it using an EXE of my onw.
But I found a BTM for doing that. This is an old BTM that I inserted at the end of this message.
The BTM work but, it DOES not reposition the cursor position (the prompt) where it was.
Do you have something similar ? Or other idea ?
Follows the original btm :
---------------------
:: SCAP.BTM Utility to capture and restore the screen contents
:: By: Frederick Sohn
:: Date: 27 Mar 96 05:18:00
::
:: Slightly modified from SCREEN.BAT by Stian Jakobsen, DOS World May
:: 1996 p. 22
::
:: Here's a neat little *.BAT, just copied from a magazine and slightly
:: modified. It captures and then restores the current screen. Anybody
:: want to improve upon it as a 4DOS *.BTM? The magazine editors would
:: like to find the author; all they know is that he posted it from Norway.
@echo off
*setlocal
*unalias *
if "%1"=="r" .or. "%1" == "/r" goto RESTORE
if "%1"=="s" .or. "%1" == "/s" goto SAVE
:SYNTAX
echo.
echo SCAP /R = Restore Screen.
echo /S = Save Screen.
goto END
:RESTORE
if not exist %temp\screen.tmp goto nofile
echo N%temp\screen.tmp > %temp\restore.scr
echo L >> %temp\restore.scr
echo M CS:100 FA0 B800:0 >> %temp\restore.scr
echo Q >> %temp\restore.scr
debug < %temp\restore.scr>nul
*del /q %temp\restore.scr
*del /q %temp\screen.tmp
echo [24;0H
goto END
:SAVE
echo N%temp\screen.tmp > %temp\save.scr
echo R BX >> %temp\save.scr
echo 0 >> %temp\save.scr
echo R CX >> %temp\save.scr
echo FA0 >> %temp\save.scr
echo W B800:0 >> %temp\save.scr
echo Q >> %temp\save.scr
debug < %temp\save.scr>nul
*del /q %temp\save.scr
goto END
:NOFILE
echo.
echo Could not find %temp\SCREEN.TMP
:END
echo.
quit