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)