"Fossies" - the Fresh Open Source Software Archive

Member "gpc-20060325/p/test/alpha2.pas" (23 Sep 2002, 236 Bytes) of package /linux/misc/old/gpc-20060325.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) delphi source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 Program Alpha2;
    2 
    3 Var
    4   OK: array [ 1..2 ] of Integer;
    5   i: Integer;
    6 
    7 begin
    8   for i:= 1 to 2 do
    9     if i = 1 then
   10       OK [ i ]:= ord ( 'O' )
   11     else
   12       OK [ i ]:= ord ( 'K' );
   13   writeln ( chr ( OK [ 1 ] ), chr ( OK [ 2 ] ) );
   14 end.