1 C -+-+-+-+-+
\ e H P T O A S . F T
\ e -+-+-+-+-+
2 INTEGER FUNCTION TOASCI (IPA1)
3 C TOASCI: INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS
4 C LESS THAN 100. LEADING '0' IS NOT SUPPRESSED.
5 C THE RESULT IS L.J.B.F. .
9 EXTERNAL SHIFT,IOR,IATX
12 TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24,
13 * IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)),
14 * IOR(IATX(MOD(IPA1,10)),TE))))
16 C -+-+-+-+-+
\ e H P T O A S . F T
\ e -+-+-+-+-+
17 INTEGER FUNCTION TOASCI (IPA1)
18 C TOASCI: INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS
19 C LESS THAN 100. LEADING '0' IS NOT SUPPRESSED.
20 C THE RESULT IS L.J.B.F. .
24 EXTERNAL SHIFT,S1,IOR,IATX
27 TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24,
28 * IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)),
29 * IOR(IATX(MOD(IPA1,10)),TE))))