************************************

Lbl 1
"1-LIST OR 2-TEST"?->C
C=2=>Goto 5
Lbl 2
"START"?->S
S<2=>Goto 2
S=2=>2_
S>2=>S-1->S
S->N
Lbl 3
N+1->N
2->D
Lbl 4
N/D=Int (N/D)=>Goto 3
D+1->D
D>\sqrtN=>N_
D>\sqrtN=>Goto 3
Goto 4
Lbl 5
?->N
2->D
Lbl 6
N=2=>"PRIME"
N=2=>Goto 1
N/D=Int (N/D)=>"NOT PRIME"
N/D=Int (N/D)=>Goto 1
D+1->D
D>\sqrtN=>"PRIME"
D>\sqrtN=>Goto 1
Goto 6