:"PRIME
ClrHome
Prompt N
2->I
1->P
0->C
{1}->L1
N/2->L
Disp "DIVIDES BY:
While I<=L
	If N/I=int(N/I
	Then
		I->L1(dim(L1)+1
		0->P
		1->C
	End

	If P
	N/(I+1)->L

	I+1->I
End

If N!=1
Then
	N->L1(dim(L1)+1
	Else
	0->P
End

If P
Output(4,12,"PRIME
If C
Output(4,8,"COMPOSITE

Pause L1

ClrHome
Output(1,1,"