HPHP49-B,*0h « 1. USOCKET # 17h UBIND Ť s
  « 34. SF
    DO CLLCD "DISCONNECTED" 1. DISP s UACCEPT "CONNECTION !" 1. DISP VERSION
      IF TYPE 2. ==
      THEN 9. 12. SUB
      ELSE # 30794h SYSEVAL 3. 6. SUB
      END "
" + s UWRITE
      WHILE "" -55. CF "> " s UWRITE
        IFERR
          DO DROP s UREAD
          UNTIL DUP "" ‹
          END
          IF DUP "EXIT" ==
          THEN DROP s UDISCONNECT 0.
          ELSE 1.
          END
        THEN DROP 0.
        END
      REPEAT DUP 1. DISP "« " SWAP + " »" + -55. CF
        IFERR STRŤ EVAL
        THEN DROP
        END DEPTH DUPN DEPTH 2. / ŤLIST ŤSTR 3. OVER SIZE 2. - SUB "
" + DUP 2. DISP s UWRITE
      END
      IFERR s UDISCONNECT
      THEN DROP
      END
      IFERR
        DO s UREAD
        UNTIL 0.
        END
      THEN DROP
      END
    UNTIL 0.
    END
  »
»