( Copyright PPC Paris 1986 )
HEX : VLIST LATEST
BEGIN
  DUP DUP DUP
  C@ 20 MOD
  DUP >R 1-
  SWAP 2+ SWAP
  TYPE
  R> 2* +
  C@ 80 - EMIT
  SPACE 5- @ ?DUP
0= UNTIL
E0005 D 1 DO
DUP @ 
BEGIN DUP COUNT 1F AND 1- DUP >R 2* SWAP DUP >R + C@ 7F AND R> R>
TYPE EMIT SPACE 5- @ ?DUP 0= UNTIL 5+ LOOP DROP ;