comment A15 -- taken from KQX;

procedure writetext(dv, s);
   value dv;
   integer dv;  string s;
   kdf9 12/9/14/0;
      {s}; {dv}; JSP288; exit 
    (P288 now in A1 on account of being used by R16P295);
   algol 
****