FTN,L 
      INTEGER FUNCTION NUM(I) 
C 
C     RELOC:  92101-16016 
C     SOURCE: 92101-18016 
C     (REV. 1614, 760329) 
C 
C  THIS FUNCTION RETURNS THE NUMERIC VALUE OF THE FIRST CHARACTER 
C  OF THE STRING EXPRESSION ACCORDING TO THE STANDARD CHARACTER CODE
C 
C  FOR EXAMPLE: 
C 
C     10 PRINT NUM("A") 
C     20 END
C 
C     >RUN
C 
C     65
C 
C 
C  THE REQUIRED BRANCH & MNEMONIC TABLE GENERATOR ENTRY IS AS FOLLOWS:
C 
C     NUM(R), OV=NN, INTG, ENT=NUM, FIL=XX
C 
C     WHERE:  NN=OVERLAY NUMBER 
C             XX=ASSOCIATED FILE NAME (IF APPLICABLE) 
C 
C  OPERATION IS AS FOLLOWS: 
C 
C    RIGHT JUSTIFY CHARACTER BY DIVIDING. 
C    THE RIGHT HALF OF THE 1ST WORD OF THE STRING CONTAINS THE CHAR 
C    COUNT AND MUST NOT BE DISTURBED. 
C 
      DIMENSION I(2)
      NUM=I(2)/256
      RETURN
      END 
      END$
                                                                                                                                                                