Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site ucbvax.ARPA
Path: utzoo!watmath!clyde!cbosgd!ucbvax!info-vax
From: info-vax@ucbvax.ARPA
Newsgroups: fa.info-vax
Subject: RE: Using EDT on GIGI's...
Message-ID: <4020@ucbvax.ARPA>
Date: Fri, 4-Jan-85 00:14:24 EST
Article-I.D.: ucbvax.4020
Posted: Fri Jan  4 00:14:24 1985
Date-Received: Fri, 4-Jan-85 08:01:05 EST
Sender: daemon@ucbvax.ARPA
Organization: University of California at Berkeley
Lines: 85

From: DAVID DRAKE <drake@pax>

The following is a command file which I came by, so I touched it up
and have it assigned as a symbol in our SYLOGIN.COM.  I use the 
following : 

      $GEDT :== SYS$MANAGER:GIGIEDT.COM

It is ofcourse placed in the sysmgr directory and access set correctly
for all to use it.  Its beauty is that anyone can use the GEDT command
rather than the EDT command, so even pseudo terms are taken care of.

Enjoy ...
Dave Drake
DRAKE@PAXRV-NES

=================== Start of command file ===========================


$  VERIFY = 'F$VERIFY(0)
$! ------------------------------------------------------------------
$! This procedure is necessary to operate EDT on a GIGI so that it
$!     acts like a VT100 during EDT execution.  The command to run
$!     this command file is set up to be $GEDT 'filename'
$!-------------------------------------------------------------------
$!
$! created 31 AUG 1984 ---- Dave Drake
$!
$! If no file was entered to edit ... then ask for it
$!
$	IF P1 .NES. ""  THEN GOTO SET_UP
$	INQUIRE/NOPUNCT P1 "  File:  "
$!
$SET_UP:
$!
$! Set terminal to a VK100 for GIGI Commands
$!
$	SET TERM /DEV=VK100  
$!
$! Inform terminal that gigi is being set up
$!
$	WRITE SYS$OUTPUT "Setting up your GIGI"
$!
$! Now do the necessaries
$!
$	WRITE SYS$OUTPUT "Pp"
$	WRITE SYS$OUTPUT "l(a1'GGEDT')"
$	WRITE SYS$OUTPUT "l' '00;"
$	WRITE SYS$OUTPUT "l'<'0001041040100401;"
$	WRITE SYS$OUTPUT "l'>'0040100401041040;"
$	WRITE SYS$OUTPUT "l'^'0008142241;"
$	WRITE SYS$OUTPUT "l'q'00000000FF;"
$	WRITE SYS$OUTPUT "l'l'000000001F1010101010;"
$	WRITE SYS$OUTPUT "l'm'101010101F;"
$	WRITE SYS$OUTPUT "l'x'10101010101010101010;"
$	WRITE SYS$OUTPUT "l'w'00000000FF1010101010;"
$	WRITE SYS$OUTPUT "l'v'10101010FF;"
$	WRITE SYS$OUTPUT "l'j'1010101070;"
$	WRITE SYS$OUTPUT "l'k'00000000701010101010;"
$	WRITE SYS$OUTPUT "l'u'10101010F01010101010;"
$	WRITE SYS$OUTPUT "l'n'10101010FF1010101010;"
$	WRITE SYS$OUTPUT "l't'101010101F1010101010;"
$	WRITE SYS$OUTPUT "<asc>\"
$	WRITE SYS$OUTPUT "PrVM1TM1\PpS(E)\"
$	WRITE SYS$OUTPUT "(B)0"
$!
$!
$!---------------------------------------------------------
$! Now set term type back to a VT100 for EDT to work
$!
$	SET TERM /DEV=VT100  ! MAKE EDT THINK gigi IS VT100
$	ASSIGN/USER 'F$LOGICAL("SYS$COMMAND")  SYS$INPUT
$	EDIT/EDT/COMMAND=SYS$MANAGER:EDTINI.EDT 'P1' 'P2' 'P3'
$!
$! Reset the GIGI back to Original
$!
$	WRITE SYS$OUTPUT "Resetting the GIGI"
$	WAIT 00:00:00.5
$	WRITE SYS$OUTPUT "PrVM0\"
$	WRITE SYS$OUTPUT "[23;1f"
$! EXIT
$	IF VERIFY THEN SET VERIFY
$	EXIT
=================== End of command file ======================
------