%%HP: T(3)A(D)F(.);
DIR
  TRM
    \<< CLLCD
"Term Entry 1.0" 1
DISP RCLF \-> f
      \<< 2 SF             
GETPROG f STOF
      \>>
    \>>
  GETPROG
    \<< OPENIO BUFLEN
DROP SRECV DROP            
DROP
"Term Entry 1.0" 13
CHR + 10 CHR + XMIT        
DROP
      DO READLN LIN        
FIXLN                      
      UNTIL LIN
"END" 13 CHR + SAME        
"" 'LIN' STO
      END CNVRT            
    \>>
  READLN
    \<<
      DO READCH DUP        
'LIN' SWAP STO+
      UNTIL 13 CHR
SAME LIN 2 DISP
      END
    \>>
  FIXLN
    \<< \-> l
      \<< 1 CF             
        DO l
          CASE l           
"\\<<" POS                 
            THEN l         
"\\<<" POS "\<<  "         
REPL                       
            END l          
"\\>>" POS                 
            THEN l         
"\\>>" POS "  \>>"
REPL
            END l
"\\->" POS
            THEN l
"\\->" POS "\->  "
REPL
            END 1
SF
          END 'l'
STO
        UNTIL 1 FS?       
        END l
      \>>
    \>>
  CNVRT
    \<< DROP "" DEPTH     
\-> d
      \<<
        IF d 1 >          
        THEN 2 d
          START +
          NEXT
        END OBJ\->        
      \>>
    \>>
  READCH
    \<<
      DO                  
      UNTIL BUFLEN
DROP 0 >
      END 1 SRECV         
DROP \-> c
      \<<
        CASE c 13         
CHR SAME
          THEN c 10
CHR + XMIT DROP c
          END c 8         
CHR SAME                  
          THEN c          
" " + c + XMIT DROP
DECLN ""
          END c
XMIT DROP c               
        END
      \>>
    \>>
  DECLN
    \<< LIN 1 LIN
SIZE 1 - SUB 'LIN'
STO
    \>>
  LIN ""
END
