Add README.md

[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / hpenum.ft

C	-+-+-+-+-+ \ e  H P E N U M . F T  \ e -+-+-+-+-+\r
C\r
C	E FORMAT NUMBER ROUTINE FOR REAL NUMBERS\r
C\r
	SUBROUTINE ENUMBR (X,Y,H,N,A,C)\r
	REAL X,Y,		@ LOWER LEFT CORNER OF STARTING CHARACTER\r
     *  H,			@ HEIGHT OF CHARACTERS\r
     *  N,			@ NUMBER TO BE CONVERTED AND PLOTTED\r
     *  A			@ ANGLE AT WHICH THE TEXT IS TO BE PRINTED\r
        INTEGER C		@ NUMBER THAT CONTROLS THE FORMAT OF THE MANTISSA\r
C\r
C\r
	REAL MA			@ MANTISSA OF THE NUMBER TO BE PLOTTED\r
	INTEGER EX		@ EXPONENT OF N\r
C\r
C\r
	MA=ALOG10(N)		@ TEMP EXPONENT\r
	EX=INT(MA+SIGN(.009,MA))	@ ROUND TO INTEGER\r
	MA=N/(10.**FLOAT(EX))	@ COMPUTE MANTISSA\r
	CALL NUMBER (X,Y,H,MA,A,C)\r
	CALL SYMBOL (999.,999.,H,1HE,A,1)\r
	CALL NUMBER (999.,999.,H,EX,A,-1)\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0