VaxForth Screen Editor for VT52
Annie Brooking KSBC
ksbc at hirst1.UUCP
Wed Oct 3 15:03:45 AEST 1984
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)
More information about the Comp.sources.unix
mailing list