%%HP: T(1)A(D)F(.);
 1 CF # 0d 'POST'
STO # 131d # 63d
BLANK PICT STO {
# 0d # 0d } PVIEW
  DO DUP 10 CHR POS
    IF DUP 0 ==
    THEN 1 SF
    ELSE OVER OVER
1 - 1 SWAP SUB 1
GROB PICT SWAP
# 0d POST 2 LIST
SWAP REPL # 7d
'POST' STO+ 1 +
OVER SIZE SUB
      IF POST # 63d

      THEN 0 WAIT
DROP # 0d 'POST'
STO # 131d # 63d
BLANK PICT STO
      END
    END
  UNTIL 1 FS?
  END DROP 1 GROB
PICT SWAP # 0d POST
2 LIST SWAP REPL
'POST' PURGE 1 CF 0
WAIT DROP

