FORMT#
B
4


PIP B:=A:*.*[V
SUB TEST800