100 PRINT "INPUT NUMBER TO BE FACTORED.  TO END PROGRAM INPUT 0"
110 INPUT N  
115 IF N=0 THEN 260
120 PRINT 
130 PRINT "FACTORS"   
135 PRINT SGN(N)    
136 N=ABS(N)    
140 FOR I=2 TO N    
150     S=0 
160     IF N/I<>INT(N/I) THEN 200  
170     N=N/I 
180     S=S+1
190 GOTO 160  
200     IF S=0 THEN 220
210 PRINT I;"^";S   
220 NEXT I  
230 PRINT 
240 PRINT "NUMBER"; 
250 GOTO 110  
260 END 

