image of READY prompt

Wang2200.org

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