%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