This program displays all the factors of a specified number.

PROGRAM:CAPTOR

:ClrHome
:Disp "NUMBER"
:Input N
:Output(4,1,"FACTORS:")
:1->I
:0->F
:Lbl 1
:If int(N/I)=(N/I)
:Then
:1+F->F
:iPart(F/4)->R
:If 4*R=F
:R–1->R
:F–4*R->C
:Output(5+R,4*C–2,I)
:End
:I+1->I
:If I<=N
:Goto 1
:Pause
:ClrHome

Notes:

1. This program makes use of the screen command OUTPUT which enables multiple expressions displayed simultaneously.
2. The PAUSE command freezes the screen until you press the ENTER button.
3. When you run program CAPTOR, you can use it to check if you missed any of the factors during your round of FACTOR CAPTOR.