10 INPUT"CODE";A$:B=1:IFLEFT$(A$,1)<>"T"THENB=VAL(A$)
 20 PRINT:PRINT:PRINT B;"=";
 30 FOR I=1 TO B-1
 40 IF B/I=INT(B/I) THEN PRINT I;:K=I
 50 NEXT I
 60 B=B+1
 70 IF K=1 THEN PRINT "PRIME";
 80 GOTO 20