sunputc
savk = sunputc(p);
sunputc(p);
sk1 = sunputc(arg1);
sk2 = sunputc(arg2);
sunputc(p);
sunputc(strptr);
skp = sunputc(p);
skq = sunputc(q);
n = sunputc(p);
savk = sunputc(arg1);
sunputc(p);
savk = sunputc(p);
if (sunputc(arg1) != 0)
savk = sunputc(arg2);
skd = sunputc(dd);
skr = sunputc(dr);