« UNCOERCE SWAP UNCOERCE SWAP → s k
  «
    CASE
      k 30 < THEN k END
      k 46 > THEN k 14 - END
      k 5 MOD 0 == THEN -1 END
      k 5 MOD 4 < THEN 0 END
      k 34 - 5 / FLOOR 30 +
    END
    → l
    «
      IF l 0 >
      THEN
        LBL
        WHILE l OVER SIZE >
          REPEAT { "" } +
        END
        DUP l GET "Enter command name:" SWAP α 2 →LIST 28.01 MENU INPUT l SWAP PUT 'LBL' STO
      END
    »
    RCLF HEX CDS
    k 1 - Size * 1 + DUP2 DUP Size 1 - + SUB S→B DUP →STR "Old: " SWAP + SWAP
    IF s 3 ==
    THEN READ
    END →STR SWAP "
Enter code:" + SWAP α 2 →LIST 28.01 MENU INPUT OBJ→ B→S REPL 'CDS' STO STOF
  »
»