Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

  

0U* -1ECE?current-text-bufferU10,0Xa0,0X%0,0Xk
E.(separator)Z"E I	-	^(.)	-	-	|	-	-	(..)v	-'


E.(fc_table_normal)HK @I#
 ANY:("C","c"): {FC(fc_save_insert)PUSH   {Change}U(command-prompt)       0U(insert_flag)   Q(auto-count)U(save_count) 0U(auto-count)    FC(fc_change_change)REPLACE}
 ANY:("I","i"): {FC(fc_save_insert)PUSH   {Insert}U(command-prompt)   1U(insert_flag)   Q(auto-count)U(save_count) 0U(auto-count)    FC(fc_change_insert)REPLACE}
 "	": {I  {I}U(terminal-input-buffer)}
 ANY:("S","s"): {.U(search_start)  0U(search_length) 0,0X(search_string)   FC(fc_save_search)PUSH  {Search}U(command-prompt)}
 "": {42U(command-prompt)   FCREMOVE  :M(screen)"F 21,24E$(command-buffer)'} 
 ANY:("A","D","J","K","L","R","a","d","j","k","l","r") |
  ANY:("+","-","0"-"9")+ ANY:("D","J","K","L","R","d","j","k","l","r") |
  ANY:("Z","z") ANY:("J","j") |
  ANY:("G","g") ALPHABETIC | ANY:("X","x") ALPHABETIC |
  ANY:("M","m") ALPHABETIC
: {M(execute)}
 ANY:("V","v"): {0,0X% {case_flag}M(toggle_flag)"N  {case_inversion }U%'
M(tell_status)}

 "": {.U0 :FW :Q0,.W(%)}
 "?": {:EP DSKB:ITECO.HLP[34,43,TEC]/NODEFAULT"S
  EVREFRESH EVOFF Q*=  0U* 
--cont--
  :EVON'}
#


E.(fc_table_insert) HK @I#"": {Q(save_count)U(auto-count)  FCPOP M(tell_status)  300,-1-33"E '}
"": {R}
"": {}
DELETE | "": {-D}
"" ALPHANUMERIC |"(" ANY:(" "-"(","+"-"z")+ ")"
: {U0 I0}

"": {.U0 :R:0FW"S .,Q0K'}
VALUE:22: {:-3 I:-4}
VALUE:25: {0K}
VALUE:30 ANY:("O","o") :{I
 2R}

VALUE:30 VALUE:30 : {Q(insert_flag)"N  {Change}U(command-prompt) 0U(insert_flag) FC(fc_change_change)REPLACE'"F
  {Insert}U(command-prompt) 1U(insert_flag) FC(fc_change_insert)REPLACE'}

OTHER: {}
"": {L 2R}"": {C}"

": { EVrefresh}#
E.(fc_table_search) HK @I#"": { FCPOP Q(search_length)"E :S '
:Q(search_start),.M(%) M(tell_status)
  300,-1-33"E '}
"":{ {HK}W(edit_search_string)}

"" ALPHANUMERIC |"(" ALPHANUMERIC+ ")"
: {U0 {I0}W(edit_search_string)}

"" | "" | DELETE: {{:-D}W(edit_search_string)}

"": {{0K}W(edit_search_string)}

"": { {:R:0FWZK}W(edit_search_string)}

OTHER: {U0 {(search_string)0}U(search_string)
 %(search_length) W(do_search)}
#

E.(fc_table_pseudo) HK @I@
 "": {:R:0FW}
 "#": {{flag_split}M(toggle_flag)"N E.(..) 1,9E$(.) 10,10E$(separator) 11,20E$(..) 1U(flag_|)
'"F E.(.) 1,20E$(text-buffer) 0U(flag_|)'}

"|": {E.(..){flag_|}M(toggle_flag)"E E.(.)'}
 "": {.U0L 1A"N R'0A-13"E R':Q0,.W(%)' }
"": {       .U(0)       S[D,L][.,!,?,:]       :Q0,.M(%)}
"'": {
E?display-linesU1U2E?screen-addressU3U4(Q2-Q3)+((Q2-Q1)/2)+1}
"""": {E?display-linesU1U2E?screen-addressU3U4(Q1-Q3)-((Q2-Q1)/2)-1}
ANY:("B","b") "
" : {E?display-linesU1U2E?screen-addressU3U4Q1-Q3}
".
": {E?display-linesU1U2E?screen-addressU3U4((Q2-Q1)/2+Q1+1)-Q3 }
ANY:("Z","z") "
" : {E?display-linesU1U2E?screen-addressU3U4Q2-Q3}
 "~": {:R"S:.-1,.X0"S -D C G0''}"&": { 0L -1X0 -K L G0 -L}"
": {X0 {a0}Ua L}"": {X0 {k0}Uk K}"" ANY:("C","c") : {<1A"A 0;' C>.U0 :FW Q0,.X1-FS11}"" ANY:("L","l") : { .U0 :FW Q0,.X1-FS11}"" ANY:("U","u") : {.U0 :FW Q0,.X1-FS11}
  "B" | "b": { 0,.V 0V} ".": {E?display-linesU0U1 Q1-Q0/2,.V 0V} "Z" | "z":
{ E?display-linesU0U1 Q1-1,.V 0V}

"/":{ Q(error-text)=}
@


{U0 Q(0)"E 1U(0)'"F 0U(0)' Q(0)}U(toggle_flag)

E.(compile) HK @I#U0FC(fc_table_0)PUSHFC(fc_save_0)SAVEFCPOP0U(fc_table_0)#


FC(fc_table_pseudo)REPLACE FCON
0Ue E.(E) @I~ 0Ue

E?current-text-bufferU1
{Teco	[^X? for help. MAIL 43 bugs/suggestions]
}U(command-prompt)
E.(command-prompt):1,8"S :EP(0)TMP:EDS./NODEFAULT -2D I	0'

E.(tell_status) HK @I#
{%Teco>}U(command-prompt)
#

E.(case_inversion) HK @I#
U1U0 .U2 Q0J Q1-Q0<.,.+1X3 1A"W :FS3 
'"F :FS3 ';>
 Q2J#

E.(fc_replace_insert) HK @I#
OTHER:{I :.-1,.M%}
#

E.(fc_change_insert) HK @I#OTHER : {I}#
E.(fc_change_change) HK @I# 
OTHER: {U0  {0},{
}"E K G0 OEND '   1A-13"N :FS0"S  OEND''  G0  !END!}#

{U0 W0}U(execute)
E.(do_search) HK @I#
:.-Q(search_length)+1,ZS(search_string)"S
{Search:(search_string)}U(command-prompt)
'"F{Search failed:(search_string)}U(command-prompt)'
#

E.(edit_search_string) HK @I#U1 E?CURRENT-TEXT-BUFFERU0 E.(search_string)
M1 ZU(search_length)  E.(0)
Q(search_start)+Q(search_length)J W(do_search)}
#

2U(auto-count)
{0,0X(error-text)}U(auto-buffer)

:{insert}M(compile):{search}M(compile)
0U(compile)

 {
1,20E$(text-buffer) 21,21E$(error-text)
22,23E$(command-buffer) 24,24E$(a)

FC(fc_table_normal)OVERLAY FCON
}UE

ME
0U(insert_delete)
0U(fc_table_pseudo)
E.(1)-1EC
~

E.(1)0U* -1EC