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