Flight script

with Ada.Text_IO;         use Ada.Text_IO;
with Ada.Float_Text_IO;   use Ada.Float_Text_IO;

procedure Flight_Sim is

   type Vector3 is record
      X : Float := 0.0;
      Y : Float := 0.0;
      Z : Float := 0.0;
   end record;

   function "+" (A, B : Vector3) return Vector3 is
   begin
      return (A.X + B.X, A.Y + B.Y, A.Z + B.Z);
   end;

   function "*" (A : Vector3; S : Float) return  is
   begin
       (A.X * S, A.Y * S, A.Z * S);
   ;

   Position :  := (, , );
   Velocity :  := (, , );

   Flying   : Boolean := False;
   Speed    : Float   := ;

   Input    : Character;

begin
   ();
   ();

   loop
      ();
      (Input);

       Input =    Input =  
         Flying :=  Flying;
          Flying 
            ();
         
            ();
            Velocity := (, , );
          ;
       ;

       Flying 
         declare
            Move :  := (, , );
         begin
            case Input is
               when  |  => Move.Z := Move.Z + ;
               when  |  => Move.Z := Move.Z - ;
               when  |  => Move.X := Move.X - ;
               when  |  => Move.X := Move.X + ;
               when        => Move.Y := Move.Y + ; 
               when  |  => Move.Y := Move.Y - ;
               when others    => null;
             case;

            Velocity := Move * Speed;
            Position := Position + Velocity * ; 
         ;
       ;

      ();
      (Position.X, Fore => , Aft => , Exp => );
      ();
      (Position.Y, Fore => , Aft => , Exp => );
      ();
      (Position.Z, Fore => , Aft => , Exp => );
      New_Line;

      exit when Input =    Input = ;
    loop;

   ();

 Flight_Sim;