10 CLS
20 PRINT "PRIME FACTORS OF INTEGERS" 
30 PRINT 
40 PRINT "(ENTER 0 TO END PROGRAM)" 
50 PRINT "NUMBER"; 
60 INPUT Z 
70 IF Z=0 THEN 210  
80 PRINT SGN(Z) 
90 Z=ABS(Z) 
100 FOR I=2 TO Z
110 S=0 
120 IF Z/I<>INT(Z/I) THEN 160  
130 Z=Z/I 
140 S=S+1 
150 GOTO 120  
160 IF S=0 THEN 180  
170 PRINT I;"[";S 
180 NEXT I 
190 PRINT 
200 GOTO 50   
210 END