program ositest;
program systest; external;

type str=record length: byte; alfa:array(1..12) of char end;

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

var
    proc: process;

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


   
begin
  do_load("TESTIO");
  do_load("SYSTEST1");
  do_load("SYSTEST2");
  
  if link("SYSTEST", systest)=link_ok then trace(0) else trace(1);
  if create("", systest, proc, 0, 200)=create_ok then;
end.