%INTEGER A,B,C,D,E,F,G;   !W1,W2,W3,MONI,NEST,LE,GE
%INTEGER H,I,J,K,L,M,N,O; !AREF,ADEC,SHIFT,OR,MULT,DIV,IDIV,EXP
%INTEGER P,Q,R,S,T,U,V;   !ENT,FLT,DA,SPARE,BAREF,BGET,BPUT
%INTEGER W,X,Y,Z;         !SPARE,SPARE,UNKNOWN,UNKNOWN
%ENDOFPRIM
%CONSTINTEGER NL=10
%INTEGERFNSPEC ADDR(%INTEGERNAME V); !TAG NO 28
%INTEGERMAPSPEC INTEGER(%INTEGER A); !TAG NO 29
%ROUTINESPEC SELECTINPUT(%INTEGER I)
%ROUTINESPEC SELECTOUTPUT(%INTEGER I)
%ROUTINESPEC READCH(%INTEGERNAME I)
%ROUTINESPEC PRINTCH(%INTEGER I)
%INTEGERFNSPEC NEXTSYMBOL
%ROUTINESPEC READSYMBOL(%INTEGERNAME I)
%ROUTINESPEC SKIPSYMBOL
%ROUTINESPEC PRINTSYMBOL(%INTEGER I)
%ROUTINESPEC PRINTTEXT;              !TAG NO 38
%ROUTINESPEC NEWLINE
%ROUTINESPEC NEWLINES(%INTEGER I)
%ROUTINESPEC SPACE
%ROUTINESPEC SPACES(%INTEGER I)
%ROUTINESPEC READ(%INTEGERNAME P)
%ROUTINESPEC WRITE(%INTEGER N, I)
%ROUTINESPEC CLOSEINPUT
%ROUTINESPEC CLOSEOUTPUT
%ROUTINESPEC READDA(%INTEGER U,B,%INTEGERNAME S,L)
%ROUTINESPEC WRITEDA(%INTEGER U,B,%INTEGERNAME S,L)
%INTEGERFNSPEC INSTREAM
%INTEGERFNSPEC OUTSTREAM
%INTEGERFNSPEC INDEV
%INTEGERFNSPEC OUTDEV
%INTEGERFNSPEC INPUT
%ROUTINESPEC PROMPT(%INTEGER I)
%INTEGERFNSPEC FREESTORE
%INTEGERFNSPEC TINT
%ENDOFPERM