FTN,L 
      INTEGER FUNCTION NUM(I),92076-1X012 REV.2001 92076-12001
C 
C 
C 
C 
C  **************************************************************** 
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS      * 
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
C  **************************************************************** 
C 
C   NAME:   NUM 
C   SOURCE: 92076-18012 
C   RELOC:  PART OF 92076-12001 
C   PGMR:   B.J.L.
C 
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 
C THE FUNCTION'S DESCRIPTION THAT MUST BE INPUT TO THE TABLE
C GENERATOR TO CREATE THE PROPER ENTRY IN THE BRANCH AND MNEMONIC 
C TABLE IS AS FOLLOWS:
C 
C   NUM(R), OV=NN , INTG, ENT=NUM, FIL=FILXX
C 
C   WHERE:   R     INDICATES REAL PARAMETER(STRINGS ARE ALWAYS REAL)
C            NN    INDICATES THE OVERLAY NUMBER 
C            FILX  INDICATES THE FILE NAME OF THE RELOCATABLE FOR 
C                  FOR THIS FUNCTION. 
C 
C 
C 
      DIMENSION I(2)
C 
C RIGHT JUSTIFY CHARACTER BY DIVIDING 
C 
C RIGHT HALF OF THE FIRST WORD OF A STRING IS THE CHARACTER COUNT 
C AND MUST NOT BE DISTURBED.
C 
      NUM =I(2)/256 
      RETURN
      END 
END$
                                                                                                                                                                                                                                                              