Listing of file='32' on disk='vmedia/glbr_22.wvd.zip'
# Sector 169, program filename = '32' 0100 PRINT "INPUT NUMBER TO BE FACTORED. TO END PROGRAM INPUT 0" 0110 INPUT N 0115 IF N=0 THEN 260 0120 PRINT 0130 PRINT "FACTORS" 0135 PRINT SGN(N) 0136 N=ABS(N) 0140 FOR I=2 TO N 0150 S=0 0160 IF N/I<>INT(N/I) THEN 200 0170 N=N/I 0180 S=S+1 0190 GOTO 160 0200 IF S=0 THEN 220 0210 PRINT I;"^";S 0220 NEXT I 0230 PRINT 0240 PRINT "NUMBER"; 0250 GOTO 110 0260 END