%externalroutinespec Pack %alias "GLDPACK"(%string(63) S)
%externalroutinespec Icl9cezgouldimp
%externalroutinespec Emonon
%externalroutinespec Emonoff
%externalroutinespec Mmonon
%externalroutinespec Mmonoff
%externalroutinespec Mcodeon
%externalroutinespec msetfiles(%stringname source,object)
%externalroutinespec mgenerate object(%stringname objname)
%externalintegermapspec Comregmap %alias "S#COMREGMAP" (%integer I)
%externalroutine Gimpentry
%string(31) S,T,Y,P
%integer I
   S=string(comregmap(52))
   %unless S->T.(".").Y %thenstart
      %unless S->T.(":").Y %then Y=S
   %finish
   %unless Y->S.("g") %or y->S.("G") %then S="source"
   P=Y."p"
    Y=Y."g"
   msetfiles(S,Y)
   I = comregmap(59)
   %if I&1#0 %then Emonon %else Emonoff
   %if I&2#0 %then Mcodeon
   %if I&4#0 %then Mmonon %else Mmonoff
   comregmap(24)=-1
   Icl9cezgouldimp
   %if comregmap(24)=0 %thenstart
      mgenerate object(Y)
      pack(Y.",".P)
   %finish
%end
%endoffile