From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=1.0 required=5.0 tests=BAYES_00,FROM_STARTS_WITH_NUMS,
	INVALID_MSGID,REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,465e65cde8032faa,start
X-Google-Attributes: gid103376,public
From: Beamish <019522b@axe.acadiau.ca>
Subject: Help in translating
Date: 1997/03/12
Message-ID: <3327A7EC.1C11@axe.acadiau.ca>#1/1
X-Deja-AN: 225094863
Organization: Acadia University
Reply-To: 019522b@axe.acadiau.ca
Newsgroups: comp.lang.ada
Date: 1997-03-12T00:00:00+00:00
List-Id: <comp.lang.ada>


I need some help in doing this assignment. If anyone can answer this and
e-mail me back I'd really appreciate it. Thanks in advance.

Rewrite the following Modula-2 code in Ada:
MODULE Swap;
     IMPORT XIO;
     VAR this, that : INTEGER;
     PROCEDURE Exchange(VAR First, Second : INTEGER);
       VAR Temp : INTEGER;
       BEGIN
         Temp := First;
         First := Second;
         Second := Temp;
       END Exchange;
  BEGIN
     XIO.IntIn(this);
     XIO.IntOut(that);
     Exhange(this, that);
     XIO.IntOut(this, 1);
     XIO.IntOut(that, 1);
  END Swap.