%%HP: T(3)A(R)F(.);
\<<
  WHILE \<-lst OBJ\->
DROP 2 PICK OBJ\-> \->
num
    \<< num DROPN num
2 / 0 RND # 18CEAh
SYSEVAL SWAP
    \>> SEL SWAP PUTG
BLINE "FREE MEM: "
MEM \->STR + " BYTES"
+ DISP1
"  ENTER 2 CHOOSE & CANCEL 2 QUIT"
DISP2 1 5
    START PCTEVAL
    NEXT # 18DBFh
SYSEVAL \-> d
    \<<
      CASE d 19 ==
        THEN DROP
# 18DBFh SYSEVAL 1
        END d 17 ==
        THEN 3
DROPN 0
        END 3 DROPN
-1 1
      END
    \>>
  REPEAT \-> c
    \<<
      IF c -1 \=/
      THEN OBJ\-> 1
        FOR i
          IF i c ==
          THEN i
ROLLD
          ELSE DROP
          END -1
        STEP EVAL
      END
    \>>
  END
\>>