Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / test / twrstr7.pp
Size: Mime:
{ from GPC test suite }

{$mode objfpc}
Program WriteByte;

var
  a: array [ 0..3 ] of Byte = ( ord ( 'O' ), ord ( 'K' ), 42, 137 );

var
  S: String [ 255 ];

begin
  WriteStr ( S, a [ 0 ], a [ 1 ] );
  halt(ord(S <> '7975'));
end.