DIVIDE は、x/y の商を p と q で指定された精度で戻します。 結果の基数、スケール、およびモードは、PRECTYPE コンパイラー・オプションによって規則が変更されないかぎり、式の評価規則に従います。
>>-DIVIDE(x,y,p-+----+-)--------------------------------------->< '-,q-'