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$