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$