Fractran: Difference between revisions

Content deleted Content added
Dinosaur (talk | contribs)
Dinosaur (talk | contribs)
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 lsit?
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 ",