adauser.ada

来自「c#设计模式WithCla」· ADA 代码 · 共 28 行

--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;