const
 winit = $1000;
 wquit = $1003;
 wswitch = $1006;
 wsplit = $1009;
 wunsplit = $100c;
 whcopy = $100f;
begin
 load (8,$1000,0,"pas_screen.prg");
 if invalid = 64 then
  begin
   call (winit);
   (* Hauptprogramm *)
   call (wquit);
  end
 else
  writeln ("fehler: ", invalid );
end .