[comp.os.msdos.misc] 4DOS screen blanker

derek@sun4dts.dts.ine.philips.nl (derek) (05/07/91)

If this is any use to anyone, here's a little batch file for blanking the
screen manually (i.e. type blank at the command line) when using 4dos.

------------cut here--------------------------------------------------
@echo off
echo off
cls black on black
rem for the following you need a 'cursor' program or similar
cursor off
pause > nul
rem change the following returning code to suite your setup
cls cyan on blue
drawbox 11 0 15 79 2 bri cyan on blue fill blue
scrput 13 20 bri yellow on blue Welcome back, its %_time on %_date
echo Press enter when ready
pause
------------------cut here--------------------------------------------

Best Regards, Derek Carr
DEREK@DTS.INE.PHILIPS.NL           Philips I&E TQV-5 Eindhoven, The Netherlands 
Standard Disclaimers apply.

witte@cunixf.cc.columbia.edu (Breck Witte) (05/08/91)

If you lack a cursor control routine, another screen blanker is the
following:

alias 0 'setdos /S32:32 ^ prompt $s ^ cls'	<--- to blank
alias 1 'setdos /S12:26 ^ prompt $P$G'		<--- to restore


/Breck
-------------------------------------------------------------------------------
      breck witte			    columbia university libraries
      witte@cunixf.cc.columbia.edu 	     systems office - 221m butler
      witte@support.cul.columbia.edu 	               new york, ny 10027
-------------------------------------------------------------------------------