%externalintegermapspec Comreg%alias "S#COMREG"(%integer N)
%externalroutinespec compile%alias "S#COMPILE"(%string(255) s, %string(31) entry,
%integername flag)
%externalstringfnspec failuremessage %alias"s#failuremessage" (%integer n)
%externalroutine orionimp %alias "ORIONIMP"
%integer flag
%string(255) s
s=""
compile(s,"ICL(CEZORIONIMP",flag)
printstring(failuremessage(flag)) %and %stop %unless flag=0
%end
%externalroutine DRSIMP %alias "DRSIMP"
%integer flag
%string(32) File
compile(file,"ICL9CEZDRSIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine PERQ3IMP%alias "PERQ3IMP"
%integer flag
%string(32) File
compile(File,"ICL9CEZPERQ3IMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine eamdimp %alias "EAMDIMP"(%string(63)ss)
%integer flag
%string(32)s; s=ss
compile (s,"ICL9CEZEAMDIMP",flag)
printstring(failuremessage(flag)) %and %stop %unless flag=0
%end
%externalroutine gouldIMP %alias "GOULDIMP"
%integer flag
%string(32) File
compile(File,"ICL9CEZGOULDIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine WWCIMP%alias "WWCIMP"
%integer flag
%string(32) File
compile(file,"ICL9CEZWWCIMP",flag)
printstring( failuremessage(flag)) %and %stop %unless flag=0
%return %unless comreg(24)=0 %or comreg(24)=8
%end
%externalroutine VNSIMP %alias "VNSIMP"
%integer flag
%String(32)s; s=""
compile(s,"ICL9CEZVNSIMP",flag)
printstring(failuremessage(flag)) %and %stop %unless flag=0
%end
%externalroutine PNXIMP %alias "PNXIMP" (%string(255) s)

%integer flag,ad
%dynamicroutinespec pnxgenerateobject(%string(255)%name s)
%string(255) objname
s->(",").objname
%while objname->objname.(",") %cycle; %repeat
compile (s,"ICL9CEZPNXIMP",flag)
printstring(failuremessage(flag)) %unless flag=0
%return %unless (flag=218 %or flag=0) %and comreg(24)=0
pnxgenerateobject(objname)
%end
%endoffile