Hacker News new | ask | show | jobs
by WalterBright 429 days ago
Here's that TECO macro (have fun!):

    [4 [5 [6 [7 [8 [9 +0U7 0,0X4 10U4 [4 ETU4 [4 EDU4 [4 EUU4 [4
    ^D ET&(128#64#32#1^_)#512#16#8#2ET ED"G 0ED '
    @^U5/U9 ET#1ET 27^T Q9^T ET&(1^_)ET/
    @^U6/.U8 ZU4 -3U6 ^^HM5 13^T ^^KM5 10^T ^^KM5 13^T :G4
     < ^TU7 !F! Q7^T ZJ Q7@I%%
      Q7-10"E 13^T ^^KM5 -1%6 '
      Q7-21"E Q6^W 0U7 0; '
      Q7-127"E -D Z-Q4"N -1AU9 -D Q9-27"E 32U9 '
       Q9-31"G ^^DM5 ^^KM5 1+ ' 0"E
 13^T -Q6-2< ^^KM5 ^^AM5 > 10^T 13^T :G4 Q4,ZT '
       ' '
      Q7-27"E ^TU7 Q7-27"E !F0! 27@I%% Q4,ZX4 ^^HM5 13^T -1U7 0; '
       Q7-^^?"E ^T^[ @O!F0! ' @O!F! '
     > Q4,ZK Q8J Q7/
    0,0X7 G_ ^YX8 ^YK 0,0X9
    ^^HM5 13^T ^^=M5
    < !A! 0U4 0U6 !B! 1U5
    ET#32ET ^TU7 ET&(32^_)ET Q7"L -1^W ^TU7 ' !V!
    Q7-127"E .-Q5"L .U5 ' -Q5D @O!A! '
    Q7-31"G Q7@I%% @O!A! '
    Q7-26"E 0; '
    Q7-21"E 0K @O!A! '
    Q7-11"E Q5K @O!A! '
    Q7-8"E Q5L .-1"G 2R ' @O!A! '
    Q7-4"E Q5K @13I%% 10@I%% 2R @O!A! '
    Q7-3"E 0; '
    Q7-27"N Q7@I%% @O!A! '
    ^TU7
     Q7-^^C"E Z-.-Q5"L Z-.U5 ' Q5C @O!A! '
     Q7-^^D"E .-Q5"L .U5 ' Q5R @O!A! '
     Q7-^^?"E ^T&31#32U7
      Q7-^^0"E Q5L @O!A! '
      Q7-^^1"E Q5-1"E 0U5 ' Q5J @O!A! '
      Q7-^^2"E ZJ @O!A! '
      Q7-^^3"E 0L @O!A! '
      Q7-^^4"E -Q5L @O!A! '
      Q7-^^5"E Z-.-Q5"L Z-.U5 ' Q5D @O!A! '
      Q7-^^6"E @FR%% @O!A! '
      Q7-^^7"E Q5< 13@I%% 10@I%% 2R > @O!A! '
      Q7-^^8"E Q5P @O!A! '
      Q7-^^9"E Q5-1"E ^TU5 ' Q5@I%% @O!A! '
      Q7-045"E @^U4%Search: % M6"F @O!A! ' G4 ^Y-2X8 ^YK @O!S! '
      Q7-^^."E 0U6 !S! Q5:@S%^EQ8%^[ Q6"N Q6^W ' @O!A! '
      @O!A!
     '
     Q7"D 0U5 < Q5*10+Q7-^^0U5 ^TU7 Q7"D > ' @O!V! '
     0U8
     Q7-^^A"E -1U8 '
     Q7-^^B"E 1U8 '
     Q8"N Q5*Q8U5 Q6"E 0U7 .U8 0L
      Q8-.%6< 0A-32"L 0A-27"N 0A-9"E 6-(Q7&7)%6^[ -2U7 ' %7 1%6 ' ' C %7 > '
      Q5L -Q6U9 0U7 Q6< .-Z; 0A-32"L 0A-13"E 0; '
      0A-27"N 0A-9"E 6-(Q7&7)%9^[ -2U7 ' %7 1%9 ' ' C %7 1%9"G R ' Q9; >
      0U4 @O!B! '
     Q7-^^Q"E @^U4%Command: % M6"F @O!A! ' G4 ^YX9 ^YK @O!C! '
     Q7-27"E 0U6 !C! ]4 Q4EU ]4 Q4ED ]4 Q4ET ]4 Q4-10"N ^O ' M9
      10U4 [4 ETU4 [4 EDU4 [4 EUU4 [4
      ^D ET&(128#64#32#1^_)#512#16#8#2ET ED"G 0ED ' -1EU
      Q6"N Q6^W ' @O!A! '
     Q7-^^R"E G7 @O!A! '
     Q7-^^P"E Q4"E .+1U4 ' Q5L Q4-1,.X7 Q4-1,.K G7 0U6 @O!B! '
    >
    ET#16ET ^^>M5 ^^YM5 23+32^T 0+32^T ^^KM5 13^T
    !Z! ]4 Q4EU ]4 Q4ED ]4 Q4ET ]4 Q4-10"N ^O ' ]9 ]8 ]7 ]6 ]5 ]4
    
Obviously, the TECO programming language was a challenge to understand. Mitigating this is it needed to be extremely compact, as it was used on a 64Kb PDP-11.
1 comments

That has a texture reminiscent of the J/k family.
I love this use of texture; will steal ;)