program testsm(output);
const out='Pascal test maps OK';
      magic = 402653440;
      fname=' 23,t#             ';
type  str19=packed array [1..19]of char;
      ptr19=^str19;
      ftype=packed array [1..711]of char;
      fptr=^ftype;
var   len:integer;
      mapper:fptr;
      smfile:ptr19;
procedure define(i:integer;stref:ptr19);extern;
procedure opensm(chan,mode:integer;var mapper:fptr;var len:integer);extern;
procedure closesm(chan:integer);extern;
begin
      new(smfile);
      smfile^:=fname;
      smfile^[1]:=chr(5);
      define(magic,smfile);
      opensm(23,1,mapper,len);
      writeln(len:5,' bytes of data accessed');
      writeln(mapper^);
{      mapper^:=out;}
      closesm(23);
end.