Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!gatech!hao!noao!arizona!amethyst!face
From: face@amethyst.UUCP (Chris Janton)
Newsgroups: comp.os.vms
Subject: Re: clearing the screen
Message-ID: <128@amethyst.UUCP>
Date: Fri, 8-May-87 16:10:14 EDT
Article-I.D.: amethyst.128
Posted: Fri May  8 16:10:14 1987
Date-Received: Sun, 10-May-87 03:34:22 EDT
References: <8705080712.AA06381@ucbvax.Berkeley.EDU>
Reply-To: face@amethyst.UUCP (Chris Janton)
Distribution: world
Organization: CCIT, Univ. of Arizona at Tucson
Lines: 50
Keywords: Screen

To clear the screen and ring the bell, leaving the cursor positioned on
the first line do the following - (assumes a VT100)

1.  Create a file with the proper escape sequences: (assume name clear_bell)

	<esc>[;H<esc>[J<bel>

2.  Create an FDL file that looks like this (assume name clear_bell.fdl)

 IDENT	" 8-MAY-1987 12:40:05	VAX/VMS ANALYZE/RMS_FILE Utility"

 SYSTEM
	SOURCE                  VAX/VMS

 FILE
	ALLOCATION              3
	BEST_TRY_CONTIGUOUS     no
	CLUSTER_SIZE            3
	CONTIGUOUS              no
	EXTENSION               0
	GLOBAL_BUFFER_COUNT     0
	NAME                    "CLEAR_BELL."
	ORGANIZATION            sequential
	OWNER                   [25,14]
	PROTECTION              (system:RWED, owner:RWED, group:RE, world:E)

 RECORD
	BLOCK_SPAN              yes
	CARRIAGE_CONTROL        none
	FORMAT                  variable
	SIZE                    255

The key point here is the carriage_control entry of "none"

3.  Execute the command

	Convert/Fdl=clear_bell clear_bell clear_bell
 which creates a new version of the file clear_bell with the appropriate
file attributes.

4.  Put the new clear_bell file in a suitable place.

5.  In DCL procedures use the command

	$ type clear_bell.

to clear the screen and ring the bell.

Note:  I realize that this requires an image activation but TYPE is usually
installed so it shouldn't matter too much.  How often do you clear the screen
anyway?