%%HP: T(1)A(D)F(.);
DIR
  HC11
    « CLLCD OPENIO
RCLF -40 CF DEPTH ¨
Z
      «
        IFERR -1
          WHILE 1
          REPEAT
            IF
BUFLEN DROP
            THEN
LEE 440 .1 BEEP
SWAP 1 + "0" OVER
¨STR + DUP SIZE DUP
1 - SWAP SUB "¨" +
ROT + OVER 7 MOD 1
+ "" OVER 1 + DISP
DISP
            ELSE
              IF
KEY
              THEN
¨CAR XMIT
IF NOT
THEN DROP
END
              END
            END
          END
        THEN DEPTH
Z - DROPN
        END
      » STOF
CLOSEIO
    »
  SELTI
    «
"TIPO DE DATOS" { {
"Caracteres" 1 } {
"Nśmeros 8 bits" 2
} { "Strings" 3 } }
TIPO CHOOSE
      IF 0 ‹
      THEN
        CASE DUP 1
==
          THEN
            « LCHR
            »
          END DUP 2
==
          THEN
            « LNUM
            »
          END DUP 3
==
          THEN
            « LSTR
            »
          END
        END 'LEE'
STO 'TIPO' STO
      END
    »
  TIPO 3
  LEE
    « LSTR
    »
  ¨CAR
    « IP 10 /
      IF DUP 4.6 ‰
      THEN DUP IP 1
- 6 * SWAP FP 10 *
1 - + 65 + CHR
      ELSE DUP IP 5
- 5 * SWAP FP 10 *
1 - +
"!YZ?#_789/_456*_123-_0. +"
SWAP 1 + DUP SUB
      END
    »
  LCHR
    « 1 SRECV DROP
    »
  LNUM
    « 1 SRECV DROP
NUM ¨STR
    »
  LSTR
    « ""
      DO 1 SRECV
DROP +
      UNTIL BUFLEN
DROP 0 ==
      END
    »
END