Fractran: Difference between revisions
Content deleted Content added
Line 922: | Line 922: | ||
END DO FP !The P'th prime's power's produced. |
END DO FP !The P'th prime's power's produced. |
||
IF (POW.GT.0) THEN !So, was it a factor? |
IF (POW.GT.0) THEN !So, was it a factor? |
||
IF (NF.GE.LASTP) THEN !Yes. Have I room in the |
IF (NF.GE.LASTP) THEN !Yes. Have I room in the list? |
||
WRITE (MSG,1) IT,LASTP !Alas. |
WRITE (MSG,1) IT,LASTP !Alas. |
||
1 FORMAT ("Factoring ",I0," but with provision for only ", |
1 FORMAT ("Factoring ",I0," but with provision for only ", |