42 lines
433 B
Plaintext
42 lines
433 B
Plaintext
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
|