! THIS IS THE FILE TECO.INI, 29 NOV 1988. LOGICAL TEC$INIT IS ASSIGNED TO IT.! ! MACROS FOR TECO PER SE: L N S U Z. (TKO ADDS OTHERS FROM TKO.TEC.)! ! ALL SWITCHES PER VMS3.6 INIT: ED=0 EH=0 EJ=7 EO=38 ES=0 ET=518 EU=-1 EV=0 ! ! THE RELEVANT LINES FROM LOGIN.COM IN DIRECTORY [BW.KOENIG] FOLLOW: ! ! $ASSIGN "$[BW.KOENIG]TECO.INI" TEC$INIT ! ! $TEC*O:==$SYS$SYSTEM:TECO TECO/NOMEM ! ! $MAKE :==$SYS$SYSTEM:TECO MAKE ! ! $MUNG:==$SYS$SYSTEM:TECO MUNG """ ! ! TKO:=="$SYS$SYSTEM:TECO MUNG [BW.KOENIG]TKO.TEC" ! ! ! ! MN$ PRINTS NUMBER OF CHARACTERS IN CURRENT LINE TERMINATED BY LF AND/OR CR,! ! THEN PRINTS THE LINE (INCLUDING CONTROL CHARS, EXCEPT LINE'S TERMINATORS), ! ! THEN PUTS POINTER AT BEGINNING OF LINE (OR AT BUFFER TOP IF IT WAS AT Z). ! @^UN/0L-.UNL.%N"EONO' 2<-1A-10"E-C-1%N|-1A-13"E-C-1%N|0;''>' QN=0LT Z-(QN+.)-2"L!NO! ***END OF TECO BUFFER ON MN SEARCH*** J^C'/ @^UL\23L23T\ @^US\-SSFR -T MNQN-71"G72C0T|T'\ @^UU\-23L23T\ @^UZ\ZLQZ-.CT\ ! ENABLE POINTER HELD FIXED AFTER UNSUCC SEARCH, IMMED-MODE COMMANDS.! 16+32ED ! ENABLE ACCENT GRAVE "`" AS TYPE-IN ESCAPE SURROGATE TECO-11 V.40! 8192+ETET @:@ TECO.INI: IMMED-MODE COMMANDS ENABLED, ACCENT GRAVE ` IS A TOP-LEVEL . ED=48 **POINTER HOLDS AT LAST SEARCH SUCCESS. ** TO ENABLE JUMP TO 0, DO 32ED$ EE=24416, EH=0, EJ=@EJ:=@@, EO=40, ES=0, ET=@ET:=@@, EU=-1, EV=0, ^X=@^X:=@@ ** IF NON-ZERO, SEARCHES ETC ARE CASE-SENSITIVE. ** @