Xref: utzoo comp.lang.pascal:1099 comp.lang.misc:1947 comp.lang.modula2:1086
Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!mailrus!cornell!uw-beaver!tektronix!percival!qiclab!randy
From: randy@qiclab.UUCP (Randy Bush)
Newsgroups: comp.lang.pascal,comp.lang.misc,comp.lang.modula2
Subject: Re: Is this Pascal?
Summary: no, it's Modula-2
Message-ID: <1710@qiclab.UUCP>
Date: 3 Oct 88 15:11:05 GMT
References: <942@naucse.UUCP>
Reply-To: randy@qiclab.UUCP (Randy Bush)
Distribution: na
Organization: Qic Laboratories, Portland, Oregon.
Lines: 25

No, it's Modula-2, and might be formatted to look something like:

PROCEDURE LongSub (A, B : LONG;VAR Result : LONG);
    (* Subtract two LONGs (A - B), giving Result *)

VAR
    Borrow : INTEGER;
    i      : CARDINAL;

BEGIN
    Borrow := 0;
    FOR i := 1 TO DIGITS DO
        Result[i] := (A[i] - Borrow) - B[i];
        IF Result[i] < 0 THEN
            Result[i] := Result[i] + BASE;
            Borrow := 1
        ELSE
            Borrow := 0
            END
        END
    END LongSub;
-- 
..!qiclab!randy or ..!qiclab!m2xenix!randy              voice +1 (503) 245-2202
{..!mcvax!uunet,..!tektronix,..!sun!nosun}!oresoft!randy  BBS +1 (503) 297-8820
also ..!oresoft!m2xenix!randy  also  randy@dawggon.fidonet.org  FidoNet 1:105/6