%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:160
File Name:PRIMES
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"LIST ALL PRIMES \<="?\->N
[[2]]\->\Mat P
[[0]]\->\Mat E
3\->T
\While T<N
\Dim \Mat P
\List \Ans[2]\->C
1\->P
\For 1\->I \To C
\Frac (T/\Mat P[1,I])=0\=>0\->P
\Next 
\If P=1
\Then \Augment(\Mat P,\Mat E)\->\Mat P
T\->\Mat P[1,C+1]
\IfEnd
T+2\->T
\WhileEnd
\Trn \Mat P
%End