identificationdivision. program-id. winskel. author. "JD". date-written. 31.1.2007. date-compiled. datadivision. working-storagesection.
77 P pic 9(16).
77 C pic 9(4). linkagesection.
77 m pic 9(4).
77 n pic 9(4).
77 r pic 9(16). proceduredivisionusing m n r. * computes r = m * n move 0 to P move 1 to C. performuntil C>n add m to P add 1 to C end-perform. move P to r. end-program winskel.
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.