source: trunk/Demos/Simple/System.pas

unit System;

interface

type
  Integer = type; internal;
  String = type; internal;
  
function ReadLn: string; internal;
procedure WriteLn(Text: string); internal;
procedure SetPort(Index: Integer; Value: Byte);
function GetPort(Index: Integer): Byte;
property Port[Index: Integer]: Byte read GetPort write SetPort;

implementation

function ReadLn: string;
begin
  Result := '';
end;

procedure WriteLn(Text: string);
begin
end;

end.