From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 15 Sep 93 08:31:42 GMT
From: cis.ohio-state.edu!math.ohio-state.edu!sol.ctr.columbia.edu!xlink.net!rz.
uni-karlsruhe.de!news.uni-stuttgart.de!ucaa2385@ucbvax.Berkeley.EDU  (Peter Her
mann)
Subject: Re: Pragma's for Ada ????
Message-ID: <276jte$tqd@info2.rus.uni-stuttgart.de>
List-Id: <comp.lang.ada>

In article <CDD47G.9nq@zeno.fit.edu> ecs28926@zach.fit.edu ( STREETER) writes:

>HELP !!!!!

calm down (it's too loud ;-)

>  1. I need to check the HOST-ID of both RISC-6000 and Sparc-4 machines

                     WITH Text_IO , System ;
PROCEDURE Sysnam IS BEGIN Text_IO.put_Line
(System.Name'IMAGE(System.SYSTEM_NAME) & " selected from:");
FOR I IN System.Name LOOP
Text_IO.put(System.Name'IMAGE(I)); Text_IO.put(' ');
END LOOP;
END Sysnam; -- ph

Regards,

Peter Hermann