100  REM ADAPTED FROM A WANG LISTING DATED 5/13/86
110  PRINT "THIS PROGRAM FINDS THE PRIME FACTORS OF NUMBERS."
120  PRINT "AVOID VERY LARGE NUMBERS AS THEY CAN TAKE AN EXTREMELY"
130  PRINT "LONG TIME TO COMPLETE IF AT ALL. ENTER 0 TO EXIT."
140  PRINT
150  PRINT "NUMBER TO FACTOR ";
160  INPUT T
170  T=INT(T)
180  IF T <= 0 THEN 380
190  PRINT "PRIME FACTORS: ";
200  P=2
210  IF T/P=INT(T/P) THEN 310
220  IF T=1 THEN 340
230  IF P=2 THEN 360
240  P=P+2
250  I=3
260  IF T/P <> INT(T/P) THEN 240
270  IF P/I=INT(P/I) THEN 240
280  IF I >= INT(P/2) THEN 210
290  I=I+2
300  GOTO 270
310  T=T/P
320  PRINT P;
330  GOTO 210
340  PRINT
350  GOTO 150
360  P=3
370  GOTO 210
380  END
