HP3000-L Archives

August 2000, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Larry Barnes <[log in to unmask]>
Reply To:
Larry Barnes <[log in to unmask]>
Date:
Mon, 21 Aug 2000 09:48:11 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (37 lines)
Dean Goulding wrote:

> Here's how I've got CLS set up....
>
> setvar CLS_ESCAPE chr(%33)
> setvar CLS_CLEAR_SCREEN CLS_ESCAPE+"h"+CLS_ESCAPE+"J"
> echo !CLS_CLEAR_SCREEN
> deletevar CLS_@

and here's another version:

PARM HELP = " "
OPTION NOHELP
SETVAR HELP "!HELP"
IF HELP = "?"
 ECHO
 ECHO This command will return your cursor to the absolute home
 ECHO position on your screen and then clear the screen.
 ECHO
 ECHO         Author : Larry A. Barnes   08/03/92
 ECHO
ELSE
 ECHO ![CHR(27)]H ![CHR(27)]J
ENDIF
DELETEVAR HELP


--
Larry Barnes
Director of I.T.
Mitek Corp.
602-438-4545 x1366
Phoenix, AZ 85040

Check Us Out !
http://www.mitekcorp.com

ATOM RSS1 RSS2