10 ?="NUMBER? ";
20 N=?
30 X=N
40 $=27
45 ?="[2J";
50 ?=N
60 ?=" IS ";
70 #=N/2*0+%=0*140
80 D=3
90 Q=N/D
100 #=%=0*160
110 #=D>Q*300
120 D=D+2
130 #=90
140 ?="EVEN."
150 #=10
160 ?=""
170 ?=D
180 N=Q
190 Q=N/D
200 #=%=0*220
210 #=120
220 ?="^";
230 P=1
240 N=Q
250 Q=N/D
260 P=P+1
270 #=%=0*240
280 ?=P
290 #=120
300 #=N=1*340
310 #=N=X*390
320 ?=""
330 ?=N
340 ?=""
350 ?="DONE"
370 ?=""
380 #=10
390 ?="PRIME."
400 ?=""
410 #=340