dslgsy

procedure dslgsy(

  n: ArbInt;

  rwidth: ArbInt;

  var alt: ArbFloat;

  var p: ArbInt;

  var q: Boolean;

  var b: ArbFloat;

  var x: ArbFloat;

  var term: ArbInt

);