program ositest;
program systest; external;
$if (target <> TA) AND (target <> RC3502) 
type str=record length: byte; alfa:array(1..12) of char end;

function load(var s:str): integer; external;

procedure do_load(s: string);
var help: str;
begin
  help.length:= s!length;
  for i:=1 to s!length do help.alfa(i):=s(i);
  if load(help)=0 then;
end;
$endif
var
    proc: process;



   
begin
$if (target <> ta) AND (target <> RC3502)  
(*  do_load("RTPLIBPA");*)
  do_load("TESTIO");
  do_load("SYSTEST1");
  do_load("SYSTEST2");
  do_load("TESTVER9");
$endif
$IF (target = ta) OR  (target = RC3502) 
  if link("systest", systest)=link_ok then trace(0) else trace(1);
$ELSE
  trace(link("SYSTEST", systest));--=link_ok then trace(0) else trace(1);
$ENDIF
  if create("SYSTEST", systest, proc, 0, stdpriority)=create_ok 
   then trace(0) else trace(1);
end.