;redcode ;name Fast Factors 5 ;author Anders Ivner ;assert 1 np equ yes+4000 q equ yes+7500 x equ yes+1000 input dat #2 ;dividable found mov factor,