C -+-+-+-+-+  H P T O A S . F T  -+-+-+-+-+ INTEGER FUNCTION TOASCI (IPA1) C TOASCI: INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS C LESS THAN 100. LEADING '0' IS NOT SUPPRESSED. C THE RESULT IS L.J.B.F. . INTEGER IPA1, * SHIFT,IOR,IATX, * TE EXTERNAL SHIFT,IOR,IATX C TE=IATX(48) TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24, * IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)), * IOR(IATX(MOD(IPA1,10)),TE)))) END C -+-+-+-+-+  H P T O A S . F T  -+-+-+-+-+ INTEGER FUNCTION TOASCI (IPA1) C TOASCI: INTEGER INTO ASCII CHARACTER CONVERSION FOR UNSIGNED INTEGERS C LESS THAN 100. LEADING '0' IS NOT SUPPRESSED. C THE RESULT IS L.J.B.F. . INTEGER IPA1, * SHIFT,S1,IOR,IATX, * TE EXTERNAL SHIFT,S1,IOR,IATX C TE=IATX(48) TOASCI=IOR (SHIFT(12,1H0),SHIFT(-24, * IOR(SHIFT(-6,IOR(IATX(IPA1/10),TE)), * IOR(IATX(MOD(IPA1,10)),TE)))) END