R FORTRA SY1:RTCOMN,SY1:RTCOMN=SY1:RTCOMN/S SY1:HP67,SY1:HP67=SY1:HP67/S SY1:RTINIT,SY1:RTINIT=SY1:RTINIT/S SY1:RTOTS,SY1:RTOTS=SY1:RTOTS/S SY1:ERRSUB,SY1:ERRSUB=SY1:ERRSUB/S SY1:PUSH,SY1:PUSH=SY1:PUSH/S SY1:POP,SY1:POP=SY1:POP/S SY1:STEPPC,SY1:STEPPC=SY1:STEPPC/S SY1:INSERT,SY1:INSERT=SY1:INSERT/S SY1:DELETE,SY1:DELETE=SY1:DELETE/S SY1:REPLCE,SY1:REPLCE=SY1:REPLCE/S SY1:JUMPTO,SY1:JUMPTO=SY1:JUMPTO/S SY1:READIT,SY1:READIT=SY1:READIT/S SY1:CMPRES,SY1:CMPRES=SY1:CMPRES/S SY1:CODEIT,SY1:CODEIT=SY1:CODEIT/S SY1:LOOKUP,SY1:LOOKUP=SY1:LOOKUP/S SY1:MATCH,SY1:MATCH=SY1:MATCH/S SY1:GETX,SY1:GETX=SY1:GETX/S SY1:GETN,SY1:GETN=SY1:GETN/S SY1:LOADIT,SY1:LOADIT=SY1:LOADIT/S SY1:RECODE,SY1:RECODE=SY1:RECODE/S SY1:FETCH,SY1:FETCH=SY1:FETCH/S SY1:DOIT1,SY1:DOIT1=SY1:DOIT1/S SY1:DOIT2,SY1:DOIT2=SY1:DOIT2/S SY1:DOIT3,SY1:DOIT3=SY1:DOIT3/S SY1:DOIT4,SY1:DOIT4=SY1:DOIT4/S SY1:DOIT5,SY1:DOIT5=SY1:DOIT5/S SY1:DOIT6,SY1:DOIT6=SY1:DOIT6/S SY1:DOIT7,SY1:DOIT7=SY1:DOIT7/S SY1:SHOWX,SY1:SHOWX=SY1:SHOWX/S SY1:SHOWP,SY1:SHOWP=SY1:SHOWP/S ^C