BigNum.c24 :
   1281 PRINT' "(0 q Q ) quit,  (d  n  n1)  Datum,  last factor, test."'"(  h  *) help   display  spool (save).    <ESC> exit."'"factor base Q%(";K1%")"
   2300DIM P%(56),Q%(56), R%(t2%/LN t2%), ans$(990):  REM , s(56)
   2480 Q%() = P%()
   2500 PRINT "copy Q%() = P%(),  K%=0. R%(K%) = 23# * 8. primorials."'"?? 19# x (2.3.5.7).  slow.    continue any key."'CHR$(7) GET$:
   2700 P%=Q%(J%)
   2740IF J%>=48 THEN PRINT ",";: P%= P% : Q%()=Q%()+(210): J% = J% MOD 48: IF POS>60 THEN PRINT "?"
   3320  Q%()=P%()+ ((P% DIV 210)*210)
   3340    PRINT '">? pmax. continue using test, to INT sqrn = "; Q%(1)" - "INT SQR n,CHR$(7)
   3400  IF (n/Q%(1) > t ) THEN PRINT '"cofactor too big.  Programming fix would need hcf for initial divides."'"  n, n/Q%(1) > t = ";n "  "n/Q%(1); :ans$=ans$+STR$(n)+"? >"+STR$(Q%(1))+"^3 cofactor?":  ENDPROC : ERROR
   3520X% = n - INT(n/ Q%(J%))* Q%(J%)
   3580IF X%=0 THEN PRINT CHR$(7):  PROCf(Q%(J%)) : n = n/Q%(J%)
   3590 IF J%>48 THEN Q%() = Q%() +(210) : J% = J% MOD 48: REM ELSE  changed
   3600C% += 1:  IF C% MOD 40 = 1 THEN C%=1 : PRINT ",";: IF POS > 52 THEN PRINT; Q%(J%)", "(TIME-now)DIV6000"mn. <esc>"
   3620 UNTIL Q%(J%) > SQR n    : REM >= try fix problem with *1prime.
