HDTenEightyP/NetNews huggingface dataset:
From: sgccgjc@citec.oz.au (Graeme Cumming)
Subject: Internet news
Organization: CITEC
Date: Fri, 8 Jan 1993 06:33:04 GMT

	I am reading this newsgroup on a unix m/c, can anyone tell me how to access internet from a VMS m/c, as I will be changing place of employment soon to what is likely to be an all VAX environment. Please email replies to me if possible, as well as replying in the newsgroup,

	Thanks

Newsgroups: comp.os.vms
From: winalski@adserv.enet.dec.com (Paul S. Winalski)
Subject: Re: Help a student in distress....
Reply-To: winalski@adserv.enet.dec.com (Paul S. Winalski)
Organization: Digital Equipment Corporation, Nashua NH
Date: Thu, 7 Jan 1993 18:27:15 GMT


In article <20242.2b4c180e@ul.ie>, 9120092@ul.ie writes:
|>
|>Call me a buthead but I've got a few rather simplistic questions to 
|>pose to the great VMS minds out there.

There are no stupid questions, only stupid answers.

|>(1) How come DEC manuals have most of their examples in Fortran?

We've taken considerable pains over the years to provide the examples in
various major languages.  I know of examples in the manuals in C, FORTRAN,
Pascal, BASIC, COBOL, and MACRO.  Unlike Unix, the VMS world does not revolve
around a single programming language.  I haven't actually counted how many
examples there are in each language, so I can't say for sure whether or not most
of them are in FORTRAN.  I tend to think not.

|>(2) In DEC's RMS who does the FAB and the RAB work, is it much different
|>    from the FAT in Messy Dos (TM) ?

The FAB and RAB are data structures used to communicate between the application
program and RMS.  They don't have any direct relationship to the VMS file
system, which is called ODS-2 (On-Disk Structure version 2). ODS-2 is quite
different from FAT.  Most importantly, it's far more robust.  Structural
corruption of the file system on VMS is a rare occurrance.

--PSW
Newsgroups: comp.os.vms
From: beutel@chdasic.sps.mot.com (Jim Beutel)
Subject: Alpha, OSF and backups...??
Reply-To: beutel@chdasic.sps.mot.com
Organization: Motorola SPS ASIC, Chandler, AZ
Date: Mon, 11 Jan 1993 16:41:21 GMT

For years VMS backup has been an excellent tool for doing
backups. (may not have been perfect) Comparing it to Anything
available on the Unix platforms was impossible. Their are no
production quality backup products on present Unix systems.

My question is: 
Any of the OSF folks out thier have any info as to a solution
to backups on Alpha / OSF....?

Tar, Dump, CPIO, etc just dont cut it in a multi vendor production
environment.

Thanks,
Jim


---
-------------------------------------------------------
Jim Beutel	

Motorola SPS ASIC            beutel@chdasic.sps.mot.com
1300 N. Alma School Rd       Computer Operations 
M/S CH290  AZ50              office:  (602) 821-4967
Chandler, Arizona 85224	     telefax: (602) 821-4963
-------------------------------------------------------

The Surgeon General has determined that Skydiving is Extremely addicting.
From: simons/G=Colin/I=CB/S=Sewell/O=H.A.Simons.Ltd/OU=CORP@mhs.attmail.com
Newsgroups: comp.os.vms
Subject: re: DECwindows and the Starship Enterprise
Date: 8 Jan 93 16:37:59 GMT
Distribution: world
Organization: The Internet

ritley writes:

>In Kevin Barkes' "DCL Dialogue" column in this month's
>DECprofessional magazine, he indicates that by changing the
>value of sm.pointer_shape to -142, in the file
>DECW$SM_GENERAL.DAT, the DECwindows pointer
>>will be changed to an outline of the "starship Enterprise".
>
>This seems to work.
>
>Is there somewhere a list of accepted pointer types??????
>Possibly other arrow styles????

	i believe that SYS$COMMON:[DECW$INCLUDE]CURSORFONT.H and
	SYS$SHARE:DECW$CURSOR.H list the possible pointer
	shapes. the XC_trek shape is listed in CURSORFONT.H
	as 142; why it has to be negative in SM_GENERAL is
	unknown to me.


    colin sewell
    h.a.simons ltd.
    vancouver, bc
    "simons/g=colin/s=sewell"@mhs.attmail.com
From: HOLDREGE+_MP%A1%PacifiCare@MCIMAIL.COM (Matthew Holdrege)
Newsgroups: comp.os.vms
Subject: RE: DECterm across DECnet to X Terminal
Date: 4 Jan 93 06:20:00 GMT
Distribution: world
Organization: The Internet


>I've got an X Terminal (VT1200, only does X with LAT), which I'm using 
>DECwindows/Motif on now.
>...
>It seems, from trying to get this to work most of today, and from talking to 
>some other people, that it isn't possible because I've got an X terminal 
>(instead of a workstation, where SET DISPLAY/NODE=xx/TRANSPORT=DECNET would
>work).  I'd appreciate it if someone could tell me to quit wasting my time 
>or lead me in the right direction.

Are you sure that SET DISPLAY/NODE=LAT_08002Bxxxxxx/TRANSPORT=LAT doesn't 
work? Or are you going through decrouters?

Anyhow my recommendation would be to replace the VT1200 with an NCD 
xterminal. The NCD's can be DECNET nodes (with the appropriate license) so 
you can easily accomplish your task. Plus they have many other desirable 
features in an X terminal.

Matt Holdrege                5156065@mcimail.com
Pacificare Health Systems    holdrege@eisner.decus.org
From: tihor@acf3.NYU.EDU (Stephen Tihor)
Newsgroups: comp.os.vms
Subject: Re: PASSWORDS & SCHEMES
Date: 9 Jan 93 18:57:00 GMT
Organization: New York University

Nope, I am installing systems this month so I just tested in on a
vanilla system, no password policy module loaded, and it rejected any
password containing the username.
From: Stafford@Vax2.Winona.MSUS.EDU (John Stafford)
Newsgroups: comp.os.vms
Subject: Re: Date incorrect after reboot
Date: 6 Jan 93 22:06:45 GMT
Followup-To: comp.os.vms
Organization: MSUS

In article <1993Jan6.092134.22@sfpp.com>, longo@sfpp.com (Bob Longo) wrote:
> 
 
> Seriously - you are correct that SHUTDOWN.COM does the SET TIME, but systems
> do occasionally crash, lose power, etc.  Issuing the SET TIME shortly after
> midnight after the new year change covers you in case of such a disaster.

Another handy facility is remote date/time setting (RDATE, in Multinet)
which we fire up in batch towards the end of SYSTARTUP_V5.
From: rgoldstone@OAVAX.CSUCHICO.EDU (Robin, Girl Wonder)
Newsgroups: comp.os.vms
Subject: need used VAX equipment vendors
Date: 7 Jan 93 16:49:34 GMT
Reply-To: rgoldstone@OAVAX.CSUCHICO.EDU
Organization: California State University, Chico
NNTP-Posting-Host: oavax.csuchico.edu

We are looking at adding additional disk capacity to our VAX 6310.  I am looking
for used RA7x disks (SA7x storage arrays) and a KDB50 controller.  Does someone
have some names and phone numbers of vendors who sell used VAX equipment?

Thanks in advance.
-Robin
******************************************************************************
Robin Goldstone, Systems Software Specialist                   ____
California State University, Chico  Computing Services         \  /
rgoldstone@oavax.csuchico.edu                                   \/
                                                       Closets are for clothes
From: gezelter@rlgsc.com
Newsgroups: comp.os.vms
Subject: Re: What does the GOLD key do?
Date: 4 Jan 93 12:23:31 GMT
Organization: Robert Gezelter Software Consultant, Flushing, NY

In article <9301040153.AA20239@ucbvax.Berkeley.EDU>, FZC@CU.NIH.GOV ("Paul Robinson, Contractor") writes:
> Does anyone know what escape sequence is generated by the
> GOLD key on a DEC keyboard?  I'd like to add it to the
> VT100 emulation my PC software does.
> 
> Thank you,
> Paul Robinson -- TDARCOS@MCIMAIL.COM
> 
> 
> 
-- 
Paul,
 
According to my copy of the "Terminals and Printers Handbook" 
(DEC #EB-23909-54), the codes generated by the GOLD (aka PF1 key) 
are as follows:
 
ANSI Mode:  ESC O P
VT52 Mode:  ESC P
 
I hope that the above is useful.
 
- Bob
+--------------------------------------------------------------------------+
| Robert "Bob" Gezelter                       E-Mail:  gezelter@rlgsc.com  |
| Robert Gezelter Software Consultant         Voice:   +1 718 463 1079     |
| 35-20 167th Street, Suite 215               Fax:       (on Request)      |
| Flushing, New York  11358-1731                                           |
| United States of America                                                 |
+--------------------------------------------------------------------------+
From: gavron@spades.aces.com (Ehud Gavron 602-570-2000 x. 2546)
Newsgroups: comp.os.vms
Subject: Re: SYSDUMP.DMP File Question...
Date: 11 Jan 93 16:23:00 GMT
Reply-To: gavron@ACES.COM
Organization: ACES Consulting Inc.
News-Software: VAX/VMS VNEWS 1.4-b1

In article <1993Jan11.185512.1@tango.cchs.su.oz.au>, brennan@tango.cchs.su.oz.au (Luke Brennan) writes...
#In article <10JAN199322171089@spades.aces.com>, gavron@spades.aces.com (Ehud Gavron 602-570-2000 x. 2546) writes:
#> In article <199301101043.AA29439@sunb.ocs.mq.edu.au>, EC_TIAN@VAXA.OCS.MQ.EDU.AU writes...
# 
#	[...]
# 
#> 	If you're searching for people in the USA and other counties
#> 	(the USA is not a county by the way, it's a major portion of
#> 	one continent and some of others as it encompasses 50 states
#> 	and several territories) you need to try more mundane means,
#> 	such as telephone books.
# 
#	Ehud,
#		are you telling me that all those little squares on that
#		bit of the map to the right AREN'T part of Queensland???
# 
#		hell.. just when I thought I had the world figured.. :-}
#		ahh.. *now* I understand why the timezones are so far
#		behind for that part of OZ.. er.. USA.. :-)
# 
#	Okay.. VMS question.. my upgrade to 5.5-2 bombed until I
#	increased CTLPAGES and PIOPAGES *up* from the DEFAULT..
# 
#	Can you (or some other knowledgable type) explain how/why
#	the upgrade needs larger numbers, yet a running 5.4-3
#	system seemed perfectly happy??

VMS systems are designed so that an installation will always work,
since the parameters in the installatin kit will work on any VMS
system (like a VAX 11/780 with 4MB memory, last I looked).

An upgrade, however, is not an installation, and for the first phase
it uses parameters found in your running system.  If these are not
sufficient, then that part of the upgrade shall fail.  In this case,
your standard parameters were insufficient.

#	hmm.. time to go laze in the sun :-) :-) :-)

Yeah, watch out you don't burn yourself ;-)

#	Luke.
#+ EDP Unit, S209                          brennan%cchs.su.oz.au@cunyvm.BITNET +

	Ehud

--
Ehud Gavron        (EG76)     
gavron@vesta.sunquest.com
Youth of today!  Join me in a mass rally for traditional mental attitudes!
From: ewilts@galaxy.gov.bc.ca (Ed Wilts)
Newsgroups: comp.os.vms
Subject: Re: File Transfer
Date: 11 Jan 93 08:14:42 -0800
Organization: BC Systems Corporation

In article <Jan.11.02.12.15.1993.25326@clam.rutgers.edu>, dalessan@clam.rutgers.edu (Gene) writes:
> This may be a dumb question, but I need an answer. How
> does one go about upload file from an ibm to a vax/vms machine?
> No it does'nt have kermit. Please responed by mail.

What kind of IBM?  IBM makes many systems and offers many operating systems
(and many versions).  What kind of physical connection do you have?

Please remember that you've posted your query to over 100,000 people.  The more
information you supply, the better your odds of receiving an answer and the
lesser the odds of being flamed by Carl or Ehud.  You haven't supplied enough
information to allow anyone to answer the question without making lots of
assumptions about your configuration.

-- 
Ed Wilts, BC Systems, 4000 Seymour Place, Victoria, B.C., Canada, V8X 4S8
EWilts@Galaxy.Gov.BC.CA     Office:  (604) 389-3430   Fax: (604) 389-3412
From: isenhour@LAMBIC.FNAL.GOV ("John L. Isenhour")
Newsgroups: comp.os.vms
Subject: c-kermit.exe with multinet?
Date: 5 Jan 93 21:43:09 GMT
Distribution: world
Organization: The Internet

Anyone know where I ftp the new vms c-kermit with multinet (and scripting etc.)
support compiled in?  Watsun only has the stripped down version.  

tnx,

-                                         
John L. Isenhour                          internet: isenhour@lambic.fnal.gov 
DRA Systems Analyst, et al  NASA/NSF/ES/HEP decnet: FNAL::isenhour       
Fermi National Accelerator Laboratory       bitnet: isenhour@fnlib     
"When your work speaks for itself, don't interrupt" - Henry Kaiser

Newsgroups: comp.os.vms
From: ted@airplane.sharebase.com (Ted Marshall)
Subject: Re: Image activator hates me
Reply-To: ted@airplane.sharebase.com (Ted Marshall)
Organization: NCR/ShareBase Corporation
Date: Fri, 8 Jan 93 01:33:42 GMT

In article <1993Jan7.171336.29418@mksol.dseg.ti.com> pyron@skndiv.dseg.ti.com writes:
>%IMGACT-F-NONAME, the image name is a required parameter

At one point, I was seeing this message frequently on a uVAX II with an
Emulex disk controller connected to a Fuji Super-Eagle disk. The problem
was solved by field service replacing the disk controller or the cable
to the disk (I'm sorry, I can't remember which).

I wouldn't have believed it if I hadn't seen it. And I have absolutely
no understanding of what was actually happening. However, I would now
believe that it could be a memory problem; no more outragous than it
being caused by a disk cable.

-- 
Ted Marshall                             ted@sharebase.com   (408)369-5574
NCR Corp. (ShareBase Div.)             2055A Logic Dr., San Jose, CA 95124
The opinions expressed above are those of the poster and not his employer.
From: longo@sfpp.com (Bob Longo)
Newsgroups: comp.os.vms
Subject: Re: DECwindows and the Starship Enterprise
Date: 8 Jan 93 12:42:53 PST
Organization: Santa Fe Pacific Pipelines

In article <C0JI5x.Erw@news.cso.uiuc.edu>, ritley@uimrl7.mrl.uiuc.edu () writes:
> 
> 
> In Kevin Barkes' "DCL Dialogue" column in this month's
> DECprofessional magazine, he indicates that by changing the
> value of sm.pointer_shape to -142, in the file
> DECW$SM_GENERAL.DAT, the DECwindows pointer
> will be changed to an outline of the "starship Enterprise".
> 
> This seems to work.
> 
> Is there somewhere a list of accepted pointer types??????
> Possibly other arrow styles????
-- 
The following pointer types are defined:

X_cursor		0
arrow			2
based_arrow_down	4
based_arrow_up		6
boat			8
bogosity		10
bottom_left_corner	12
bottom_right_corner	14
bottom_side		16
bottom_tee		18
box_spiral		20
center_ptr		22
circle			24
clock			26
coffee_mug		28
cross			30
cross_reverse		32
crosshair		34
diamond_cross		36
dot			38
dotbox			40
double_arrow		42
draft_large		44
draft_small		46
draped_box		48
exchange		50
fleur			52
gobbler			54
gumby			56
hand1			58
hand2			60
heart			62
icon			64
iron_cross		66
left_ptr		68
left_side		70
left_tee		72
leftbutton		74
ll_angle		76
lr_angle		78
man			80
middlebutton		82
mouse			84
pencil			86
pirate			88
plus			90
question_arrow		92
right_ptr		94
right_side		96
right_tee		98
rightbutton		100
rtl_logo		102
sailboat		104
sb_down_arrow		106
sb_h_double_arrow	108
sb_left_arrow		110
sb_right_arrow		112
sb_up_arrow		114
sb_v_double_arrow	116
shuttle			118
sizing			120
spider			122
spraycan		124
star			126
target			128
tcross			130
top_left_arrow		132
top_left_corner		134
top_right_corner	136
top_side		138
top_tee			140
trek			142
ul_angle		144
umbrella		146
ur_angle		148
watch			150
xterm			152

I forget the rule for making the value negative.  I think all non-DEC pointers
need to be set to negative values.

Enjoy!
-Bob

==============================================================================
Bob Longo (longo@sfpp.com)
Santa Fe Pacific Pipelines
Los Angeles, CA
Newsgroups: comp.os.vms
From: pawlak@vxdesy.desy.de
Subject: Re: Help a student in distress....
Organization: (DESY, Hamburg, Germany)
Date: Fri, 8 Jan 1993 18:06:27 GMT

In article <1993Jan7.202903.6170@dbased.nuo.dec.com>, lionel@quark.enet.dec.com (Steve Lionel) writes:
> 
> In article <20242.2b4c180e@ul.ie>, 9120092@ul.ie writes:
>
> |>(3) Does anybody have any working examples of SMG's used in Cobol (cough
> |>cough)?
> |>    In particular SMG$CREATE_MENU. I would really appreciate this as the
> |>    VMS ver 3 manuals that are available to me don't mention a thing
> |>    about it. I know about it 'cause it's in the Ver 5.? help facility.
> 
> The SMG$ manual in chapter 7 has a complete COBOL example of using SMG$
> routines.  I don't know if this was in the VMS Version 3 (?!) manuals you
> have.  Time to buy some new manuals!
> --
Ah, VMS 3.. Those were the happy days... To se ne vrati...
Seriosly - best you can find in VMS 3 manuals are LIB$SET_CURSOR and
LIB$ERASE_PAGE - SMG came with VMS 4.
					Michal (pawlak@vxdesy.desy.de)
Newsgroups: comp.os.vms
From: mores@eavax.sanders.lockheed.com (David C. Mores)
Subject: Re: help on SET WATCH?
Reply-To: mores@eavax.sanders.lockheed.com (David C. Mores)
Organization: Lockheed Sanders, Inc.
Date: Tue, 12 Jan 93 20:17:11 GMT


--
From the DECUServe System:

                 <<< EISNER::DUA0:[NOTES$LIBRARY]VMS.NOTE;2 >>>
                         -< VMS and bundled utilities >-
================================================================================
Note 600.0                      SET WATCH utility                      2 replies
EISNER::LEDERMAN "Bart Z. Lederman"                  62 lines  24-JUL-1989 14:07
--------------------------------------------------------------------------------

    There has been some discussion in various places on DECUServe,
    including note 591 in this conference, about the SET WATCH facility.
    This is a very useful, but undocumented, utility.  As a start on
    documenting it, I pulled out the CLD using VERB, made some tests
    and some other investigations, and wrote a very brief help text.
    I extracted the SET module from SYS$HELP:HELPLIB.HLB, put in the
    text, and put the SET module back.  I also did a DIFFERENCE/SLP
    on the original and edited SET modules, and the following is that
    difference list.
    
- 5610
2 WATCH
  SET WATCH/CLASS={class type} FILE

  is an unsupported command which reports information about the files
  you access.  The option FILE is the only currently valid option, and
  must be included in the command line.  The qualifier /CLASS is the
  only valid qualifier and must be supplied.

  You can stop watching with

  SET WATCH/CLASS=NO{class type} FILE or
  SET WATCH/CLASS=NONE FILE
3 ALL
  [NO]ALL

  Sets all classes on.
3 ATTRIBUTES
  [NO]ATTRIBUTES

  Shows all file attribute operations including reading  
  information about an existing file (creation date, size,  
  protection, ACLs, journalling, etc.). 
3 CONTROL_FUNCTION
  [NO]CONTROL_FUNCTION

  No information available.
3 DIRECTORY_OPERATIONS
  [NO]DIRECTORY_OPERATIONS

  All directory scans, directory enter or delete, etc.
3 DUMP
  [NO]DUMP

  Dumps the FIB of each file accessed.
3 ATTACHED
  [NO]ATTACHED

  No information available.  Probably not implemented.
3 MAJOR_FUNCTION
  [NO]MAJOR_FUNCTION

  File Access, Deaccess, Lookup, Modify, etc.  No FIB dump.
3 NONE

  Turns watching off.
3 QUOTA_OPERATIONS
  [NO]QUOTA_OPERATIONS

  Assumed to show file space quota operations.  Not tested here.
/


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
David C. Mores            Principal Systems Specialist             Keep it short
Lockheed Sanders, Inc.    Nashua, NH                               and sweet.
Internet E-mail: mores@rapnet.sanders.lockheed.com                 do da do da
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

"Sometimes I think that the surest sign that intellegent life exists elsewhere
in the universe is that none of it has tried to contact us." -Calvin
Newsgroups: comp.os.vms
From: bern@Uni-Trier.DE (Jochen Bern)
Subject: Re: Detecting directory of invoked .com
Originator: bern@kleopatra
Organization: Theor. CS, FB IV / CS, Univ. of Trier, Germany (Internet TI.Uni-Trier.DE)
Date: Mon, 11 Jan 1993 21:03:45 GMT

1. Concerning site-dependent Logicals: Since there are only two Sites here,
   I'ld prefer to have a separate Command Proc doing the differing Thingies
   being executed by the Main Proc. If these Things aren't changed, you may
   even use Group Table Logicals; Define them once, they will stay forever
   and apply to all your Processes. Just to have the Enumeration complete ...

2. Concerning Determination of the Proc from within an Image: Isn't it
   possible to simply read the Definition of SYS$COMMAND? (Unless you fiddle
   around with it, of Course.)

Just my .02,
								J. Bern
-- 
 /  \  I hate NN rejecting .sigs >4 lines. Even though *I* set up this one. /\
/ J. \ EMail: bern@[TI.]Uni-Trier.DE / ham: DD0KZ  / More Infos on me from /  \
\Bern/ X.400 Mail: S=BERN;P=Uni-Trier;A=dbp;C=de  /   X.400 Directory, see \  /
 \  /  Zurmaiener Str. 98-100, D-W-5500 Trier    /     X.29 # 45050230303.  \/
From: MA.TRD@forsythe.stanford.edu (Thomas Dorr)
Newsgroups: comp.os.vms
Subject: Printing at 16.7cpi on a Fast printer
Date: 6 Jan 1993 16:03:06 -0800
Organization: Stanford University
NNTP-Posting-Host: morrow.stanford.edu

Question Concerning Digital LP29 2000 printer.

At our site we have a need to print in compressed mode or
16.7cpi.

Does anyone know if a third party makes a printer band that
prints at 16.7cpi??

If I can't find a band, I need a fast printer comparable to the
LP29 that prints at 16.7cpi around 2000 lines per minute.
Does anyone know of such a printer??



Newsgroups: comp.os.vms
From: moxness@acs.ucalgary.ca (Jack Moxness)
Subject: DRV11-WA parallel I/O boards
Date: Wed, 06 Jan 93 20:54:20 GMT
Organization: The University of Calgary, Alberta
Keywords: parallel, I/O, drv
Followup-To: moxness@acs.ucalgary.ca

	I apologize if this is an incorrect News group for this query. I
would like to know a source of used (in other words cheap) fully functional
DRV11-WA boards for a DEC MicroVaxII. Thank-you.
---
Jack Moxness					moxness@acs.ucalgary.ca
Programmer/Analyst				phone: (403) 220 - 4950
Psychology Dept.				  FAX: (403) 282 - 8249
University of Calgary
Newsgroups: comp.os.vms
Subject: Re: Question: Reading keys with command procedures.
From: don@zl2tnm.gen.nz (Don Stokes)
Date: 8 Jan 93 14:29:55 GMT
Distribution: world
Organization: The Wolery

Chris_F_Chiesa@cup.portal.com writes:
> assign the obtained keystroke (I recommend VAX BASIC if you have it, because 
> its INKEY$ function implicitly parses the function keys for you and returns 
> strings such as "UP" for the up-arrow, "DOWN" for the down-arrow, etc. (as
> distinguished from you typing D,O,W,N, which would generate a "D" the first
> time you called INKEY$, an "O" the second time, etc., e.g.) to a DCL symbol.

For those without VAX BASIC, a calling sequence of:

	BAS$INKEY( key by descriptor, 0 by value, 0 by value, 0 by value)

(where key is the destination string for the key) will do the same thing.
What follows is a MACRO program that will call BAS$INKEY and place the 
result in the symbol GETKEY_KEY.

Note that this fits into the "not supported but will break too much if it
goes away" category.  All bets are off on Alpha.  8-)

        .title GETKEY   Get key and place in GETKEY_KEY
        .ident "9/1/93/dcs"

                $DSCDEF			; Descriptor definitions

key:            .word 0                 ; Dynamic descriptor to return key in
                .byte DSC$K_DTYPE_T
                .byte DSC$K_CLASS_D
                .long 0
sym:            .ascid "GETKEY_KEY"     ; Name of symbol to return key pressed

        .entry GETKEY, ^M<>
                pushl #0                ; Four parameters to BAS$INKEY
                pushl #0                ; First parameter is string to return
                pushl #0		; key pressed in (placed on stack last)
                pushaq key
                calls #4, g^BAS$INKEY
                blbc R0, 99$		; Abort on error
                pushaq key		; LIB$SET_SYMBOL(sym,key)
                pushaq sym
                calls #1, g^LIB$SET_SYMBOL
99$:            ret			; Done

                .end GETKEY
		
--
Don Stokes, ZL2TNM (DS555)                        don@zl2tnm.gen.nz (home)
Network Manager, Computing Services Centre            don@vuw.ac.nz (work)
Victoria University of Wellington, New Zealand              +64-4-495-5052