%%HP: T(3)A(R)F(.);
@ by Ullrich Horlacher
DIR
IN
\<< \->INL \-> s p t
  \<< s "" \=/ s ":" + s IFTE 's' STO ""
    WHILE DUP s SWAP + "_" + p DISP
      DO
      UNTIL KEY
      END DUP 51 \=/
    REPEAT DUP
      IF 61 ==
      THEN DROP LCD\-> \-> s d
        \<< HALT s "" d \->LCD
        \>>
      END DUP
      IF 55 ==
      THEN DROP 1 OVER SIZE 1 - SUB
      ELSE t DUP ROT POS 1 +
        IF DUP 1 \=/
        THEN GET +
        ELSE DROP2
        END
      END
    END DROP s OVER + p DISP
  \>>
\>> 

\->INL
{ 93 "." 92 "0" 82 "1" 83 "2" 84 "3" 72 "4" 73 "5" 74 "6" 62 "7"
63 "8" 64 "9" 11 "A" 12 "B" 13 "C" 14 "D" 15 "E" 16 "F" 21 "G" 22 "H"
23 "I"24 "J" 25 "K" 26 "L" 31 "M" 32 "N" 33 "O" 34 "P" 35 "Q" 36 "R"
41 "S" 42 "T" 43 "U" 44 "V" 45 "W" 46 "X" 52 "Y" 53 "Z" 94 " " }
END
