%%HP: T(3)A(R)F(.);
\<<
  \<< STD PICT PURGE
CLLCD "Checking:" 1
DISP { { # 0h
    \<< 0 SWAP \->TAG
OBJ\-> SWAP DROP DUP
" " SWAP + 3 DISP
    \>> } { # 37h
    \<< VTYPE 1 +
TYPSTRS SWAP GET
    \>> } { # 6Ah
    \<< BYTES SWAP
DROP DUP 5 ROLL + 4
ROLLD
    \>> } } VARS DUP
SIZE 6 * 12 + R\->B
# 83h SWAP BLANK
# 83h # 6h BLANK \->
pro var dg bl
    \<< 0 1 var SIZE
      FOR i bl 1 3
        FOR j 'pro'
j GET 1 GETI # 0h 2
\->LIST 3 ROLLD GET
'var' i GET SWAP
EVAL 1 \->GROB REPL
        NEXT # 0h i
1 - 6 * R\->B 2 \->LIST
dg SWAP ROT REPL
'dg' STO
      NEXT dg
    \>> CLLCD DUP
SIZE # 6h - SWAP
DROP # 0h SWAP 2
\->LIST ROT
"TOTAL BYTES USED: "
SWAP \->STR + 1 \->GROB
REPL PICT STO { }
PVIEW PICT PURGE
  \>> PRESERVE
\>>