{Test program for CSC450, Compiler Design
 This fill will contain all of the constructs
 of an ICPL program.  Included will be 
 "string constants", 'integer constants', each
 operation, as well as loop and selection
 statements.  

 -- one line comments will be included
                                               }

program Test
  integer Alpha, Beta, Gamma;  
  integer Zulu;
begin
  put "Enter a value for John's age: "; -- string with single '
  get Alpha;
  put 'Enter a value for "Height": ';   -- string with double "
  get Beta;
  Zulu := 0;
  Gamma := -5;                          -- negative number
  loop                        -- loop statement
    put "Enter value: ";
    get Zulu;
  when Zulu <= 0 exit;        -- first exit
    Gamma := Alpha ^ Zulu;
    put "Alpha power: ";
    put Gamma;
    putln;
    Beta := 1;
    put Zulu;
    loop                            -- nested loop
    when Zulu <= 0 exit;            -- inside exit
      Beta := Beta * Zulu;
      Zulu := Zulu - 1;
    end loop;
    put ' factorial is ';
    put Beta;
    putln;
    if Alpha > 100 then                -- if then elseif else end if
      Beta := Alpha - (90 - 3 * Alpha ^ 3);
      put 'John is too old ';
      put Beta;  putln;
    elseif Alpha > 18 then
      put 'John is middle age'
    else
      put 'John is still young'
    end if;
    putln;  
  end loop;
end Test.
{ This is the end of the program }