1 REM Written by Frank Kienast 2 REM Compuserve user [73327,3073] 5 CLS:PRINT 10 INPUT"Number to factor";N 15 N=INT(ABS(N)) 17 IF N=0 THEN 199 18 PRINT 20 LET A=2 25 LET B=INT(SQR(N)) 30 FOR I=A TO B 40 IF N/I<> INT(N/I) THEN 90 50 LET N=INT(N/I) 60 LET A=I 65 LET B=INT(SQR(N)) 70 PRINT I; 80 GOTO 30 90 NEXT I 100 IF N>1 THEN PRINT N; 105 PRINT:PRINT:PRINT"Done." 110 K$=INKEY$:IF K$="" THEN 110 ELSE 5 199 MENU 999 END