%externalroutinespec insert(%string (255) s)
%externalroutinespec remove(%string (255) s)

%externalroutine new(%string(255) s)
remove("iprogs_alist11y")
remove("iprogs_code11y")
remove("iprogs_link11y")
insert("ercs09.imp11y")
insert("ercs09.recodey")
insert("ercs09.link11y")
printstring("Gone to new compiler
")
%end
%externalroutine old(%string (255) s)
remove("ercs09.imp11y")
remove("ercs09.link11y")
remove("ercs09.recodey")
insert("iprogs_alist11y")
insert("iprogs_code11y")
insert("iprogs_link11y")
%end
%endofprogram