[net.sources] VaxForth Screen Editor for VT52

ksbc@hirst1.UUCP (Annie Brooking KSBC) (10/03/84)

Below is a forth shar file that will extract keys/vt52.txt and termcap/vt52.txt
Extract in the vaxforth directory.  once extracted, run each through utf to 
give keys/vt52 and termcap/vt52.

	Yorick Phoenix (Systems Programmer @ The Knowledge-Based Systems centre)
	      
	      ..mcvax!ukc!hirst1!ksbc

---------------------C-U-T---H-E-R-E--------------------------------------------
: This is a shar archive. Extract with sh not csh.
: The rest of this file will extract: 
: ./termcap/vt52.txt ./keys/vt52.txt
echo extracting - ./termcap/vt52.txt
sed 's/^X//' > ./termcap/vt52.txt << '~FUNKEY STUFF~'
X( Terminal Capabilities for vt52           28/8/82 Y. Phoenix )
Xfind $INIT  " "          STR!     find $EXIT  " "          STR!
Xfind $UP    " \eA"       STR!     find $DN    " \J"        STR!
Xfind $RT    " \eC"       STR!     find $LF    " \H"        STR!
Xfind $CLR   " \eH\eJ"    STR!     find $HOME  " \eH"       STR!
Xfind $<FNC  " \eF"       STR!     find $FNC>  " \eG"       STR!
Xfind $RUFNC " k"         STR!     find $LBFNC " m"         STR!
Xfind $RBFNC " j"         STR!
Xfind $HFNC  " q"         STR!     find $VFNC  " x"         STR!
Xfind $CLRLN " \r\eK"     STR!     find $WIPE  " \eK"       STR!
X 
X: VTADDR  <# 32 + HOLD 32 + HOLD 89 HOLD 27 HOLD 0. #>
XTYPE ;
X' VTADDR  %CRS !       ( Cursor Addressing )
X-->
X 
X( Self/documentation of keystrokes for vt52 28/8/83 Y.Phoenix )
X: VTDOCUM CR                                                 ."
Xexit: ^C          tab: ^I       panic : ^P"
X                                                          CR ."
Xright: right arrow              up:   up arrow"
X                                                          CR ."
Xdown:  down arrow               left: left arrow"
X                                                          CR ."
Xinsert char: PF2  del char: PF1 insert line: PF3 del line: PF4"
X                                                          CR ."
Xbreak  line: ^B  join line: ^J  wipe  line : ^U  rplc line: ^R"
X ;
X' VTDOCUM %DOCUM !
X;S
X 
X 
~FUNKY STUFF~
echo extracting - ./keys/vt52.txt
sed 's/^X//' > ./keys/vt52.txt << '~FUNKEY STUFF~'
X( Keystroke/function assignments for vt52      28/8/82 YP )
X" \r"   FIND %CR    TRNOD
X" \?"   FIND %DEL   TRNOD
X" \U"   FIND %WIPE  TRNOD
X" \C"   FIND %EXIT  TRNOD
X" \I"   FIND %TAB   TRNOD
X" \P"   FIND %PANIC TRNOD
X" \eQ"  FIND %INSCH TRNOD      " \eP"  FIND %DELCH TRNOD
X" \eC"  FIND RT     TRNOD      " \eD"  FIND LFT    TRNOD
X" \eB"  FIND DN     TRNOD      " \eA"  FIND UP     TRNOD
X" \eR"  FIND %OPNLN TRNOD      " \R"   FIND %INSLN TRNOD
X" \eS"  FIND %DELLN TRNOD
X" \B"   FIND %BREAK TRNOD      " \J"   FIND %JOIN  TRNOD
X;S
X 
X 
~FUNKY STUFF~
--------------------C-U-T---H-E-R-E---------------------------------------------
-- 

Yorick Phoenix (Systems Programmer @ The Knowledge-Based Systems Centre)