MODE8
      *FLOAT64
      REPEAT
        REPEAT
          INPUT'"Whole Number to be factorised : "num%
        UNTIL num%>0
        PROCfac(num%)
      UNTIL FALSE
      END
      :
      DEFPROCfac(n)
      PRINT'TAB(2);n;" = ";
      i=2:inc=1
      fac$=""
      REPEAT
        REPEAT
          test=(n/i) - INT(n/i)
          IF  test=0 THEN
            fac$=fac$+STR$(i)
            IF n/i>1 THEN fac$=fac$+" * "
            n=n/i
          ENDIF
        UNTIL test>0
        IF i=3 THEN inc=2
        i=i+inc
      UNTIL (i*i)>n
      IF n=num% OR num%=2 THEN PRINT"Prime Number":ENDPROC
      IF n>1 THEN fac$=fac$+STR$(n)
      PRINTfac$
      ENDPROC