TH> TYPE xs
TH>  str as string * 15
TH> end type
TH> SUB pout (x%, x$, t$)
You need to tell the sub what kind of string to expect.  Try changing
it to
    SUB pout (x%, x$, t as string * 15)
 * RM 1.31 1209 * 
--- FidoPCB v1.4 [ff013/c]
---------------