SuperHack/SuperHack CD.bin/CODING/CPP/WCLASS95.ZIP/ADAUSER.ADA

Text File | 1994-12-18 | 966 b | 28 lines

--Getting Started Ada Script
--The purpose of this script is to generate an Ada package
--Created by Richard Felsinger, RCF Associates, 960 Scottland Dr
--Mt Pleasant, SC 29464 e-mail 71162,[e-mail]
--1-803-881-3648

--Enter the basic Ada types in the attribute and operation
--specification forms: BOOLEAN, CHARACTER, INTEGER, FLOAT,
--POSITIVE, NATURAL, DURATION, STRING
--
--Enter operation parameters in the operation specification
--form parameter_type parameter_name.  Then use the variable
--

--Question - What additional With Class script variables or additional
--dialog boxes, text boxes, or check boxes are required to fully
--support Ada-83 and Ada-9X.  Please submit new Ada scripts.

----------------------------------------------------------------------------------
with text_io; use text_io;
with Cars; use Cars;
procedure adauser is
  a_AdaCar : Car;
begin
  Text_io.Put ("This is a test.");
end adauser;