0035#				FILE=CPRTLN.RAT FOR RATFOR0059   COMMON/CPRTLN/ FORTYP, IFTYP, READY, PRTBUF(MAXLINE)0072      INTEGER FORTYP		#=YES TO - 1 FTN LINE NUM;UNTILS,FORCOD&PRTLIN0071      INTEGER IFTYP		#=YES IF CURRENT LINE IS 'IF'; 'OUTIF'&'PRTLN'0067      INTEGER READY		#=YES IF THERE IS A LINE TO PRINT, INIT=NO0070      CHARACTER PRTBUF	#HOLD RAT SOURCE LINE WAITING TO BE PRINTED^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^