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