extern void gdsa_wrcom_c(fchar,fint *,fchar,fchar,fint *);