%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:179
File Name:PRIME
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"IS NUMBER PRIME?"
"NUMBER="?\->N
2\->K
\Frac (N/2)=0\=>\Goto0
\Int (\sqrtN)\->M
M<3\=>\Goto1
\Frac (M/2)=0\=>\Isz M
\For 3\->K \To M \Step 2
\Frac (N/K)=0\=>\Goto0
\Next 
\Goto1
\Lbl 0
"NUMBER IS COMPOSITE"
"IT IS DIVISIBLE BY"
K
\Stop
\Lbl 1
"NUMBER IS PRIME"
%End