PRIME.8xp.txt

PRIME
not protected

ClrHome
&statClrList &L1,&L2
Disp "START:"
Input T
ClrHome
Disp "STOP:"
Input P
ClrHome
1->Z
0->U
2->&L1(1)
For(X,3,P,1)
Lbl 2
For(C,1,Z,1)
&L1(C)->A
If A<=X/2
Then
If round(X/A,0)=X/A
Then
Goto 1
End
End
End
Z+1->Z
X->&L1(Z)
Disp X
Output(8,1,Z)
Lbl 1
End
End
If X<=P
Then
X+1->X
Else
1->V
For(Y,1,Z,1)
&L1(Y)->A
If A>=T and A<=P
Then
A->&L2(V)
1+V->V
End

ClrHome
Output(8,1,"THERE ARE:")
Output(1,4,"[")
Output(1,5,T)
6->F
If T>=10
Then
7->F
End
If T>=100
Then
8->F
End
If T>=1000
9->F
End
Output(1,F,"-")
Output(1,F+1,P)
F+1->F
If P>=10
F+1->F
If P>=100
F+1->F
If P>=1000
F+1->F
Output(1,F+1,"]"
Output(1,1,"&L2="
&stat1-VarStats &L2
Output(8,12,&statn)
Output(2,1,&L2)
Goto 5
End
Goto 2
End
Lbl 5