%%HP: T(3)A(R)F(.);
@ CFD (Chemical Formula Display Utility) by Frank Seipel
\<< 0 \-> px py str cn
  \<< 1 str SIZE
    FOR j str j j
SUB DUP NUM 'cn'
STO
      IF '57\>=cn AND
cn\>=48'
      THEN 1 \->GROB
PICT SWAP px py 4 +
2 \->LIST SWAP REPL
px 4 + 'px' STO
      ELSE DUP
        IF "@" SAME
        THEN DROP
str DUP SIZE j 1 +
SWAP SUB 2 \->GROB
PICT SWAP # 50d py
2 \->LIST SWAP REPL '
j=80' DEFINE
        ELSE 2
\->GROB PICT SWAP px
py 2 \->LIST SWAP
REPL px 6 + 'px'
STO
        END
      END
    NEXT
  \>>
\>>
