home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / chars.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  690 b   |  36 lines
  1.                                        -- Chapter 11 - Program 1
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Chars is
  6.  
  7.    My_Char : CHARACTER;
  8.    Another : CHARACTER := 'D';
  9.  
  10. begin
  11.  
  12.    My_Char := 'A';
  13.    if My_Char < Another then
  14.       Put_Line("My_Char is less than Another.");
  15.    end if;
  16.  
  17.    Put(My_Char);
  18.    Put(Another);
  19.    Put(My_Char);
  20.    Put_Line(" character output.");
  21.  
  22.    My_Char := CHARACTER'SUCC(My_Char);             -- 'B'
  23.    My_Char := CHARACTER'FIRST;                     -- nul code
  24.    My_Char := CHARACTER'LAST;                      -- del code
  25.  
  26. end Chars;
  27.  
  28.  
  29.  
  30.  
  31. -- Result of execution
  32.  
  33. -- My_Char is less than Another.
  34. -- ADA character output.
  35.  
  36.