Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!cs.utexas.edu!uunet!tektronix!tekgen!tekigm2!marks From: marks@tekigm2.MEN.TEK.COM (Mark D. Salzman) Newsgroups: comp.binaries.ibm.pc.d Subject: Re: Good date programs Message-ID: <4789@tekigm2.MEN.TEK.COM> Date: 22 May 89 14:59:56 GMT References: <1163@marlin.NOSC.MIL> <2219@uwovax.uwo.ca> Reply-To: marks@tekigm2.MEN.TEK.COM (Mark D. Salzman) Followup-To: comp.binaries.ibm.pc.d Distribution: na Organization: Tektronix, Inc., Vancouver, WA. Lines: 42 Here is another variation on the use of the prompt to show the time and other good information. It creates a status line at the top of the screen that is updated whenever the prompt is shown. It is somewhat slow on XT class machines and my version is set up for color screens, so it would need modification for monochrome. It's only drawback is that it clobbers the top line, so programs that end up showing something there will be affected. I set this up as a seperate batch file so I can type "prompt" to disable it and run such programs, then call the batch file to restore it. BTW, ANSI.SYS or an equivalent must be installed and the screen must be in 80 columb text mode for this to work right. It has been tested on DOS version 3.0 and up. This was inspired by several ideas gleaned from the net. Enjoy! # Mark D. Salzman Phone: (206) 253-5542. # The more complex the mind, # Tektronix Inc., P.O. Box 3500, M/S C1-936 # the greater the need for # Vancouver, Washington. 98668 # the simplicity of play. # E-MAIL: marks@tekigm2.MEN.TEK.COM # James T. Kirk ############################ CUT HERE ############################ echo off rem STATUS.BAT rem This sets up a status line using the Prompt command. rem rem PROMPT $E[s Save current cursor position, rem $E[0;0H go to home position, rem $E[36;44m set foreground and background colors, rem Path$Q $P print the current directory, rem $E[K erase rest of line, rem $E[0;54H move cursor to right part of the line, rem $D $T print date and time, rem $E[0m restore normal colors, rem $E[u restore cursor position, rem $N$G print the usual DOS prompt. rem prompt $E[s$E[0;0H$E[36;44mPath$Q $P$E[K$E[0;54H$D $T$E[0m$E[u$N$G exit -- # Mark D. Salzman Phone: (206) 253-5542. # The more complex the mind, # Tektronix Inc., P.O. Box 3500, M/S C1-936 # the greater the need for # Vancouver, Washington. 98668 # the simplicity of play. # E-MAIL: marks@tekigm2.MEN.TEK.COM # James T. Kirk