dPRIMES nP(200) x 1100L 2X=0:Y=10 :1700:"**WORKING**" 4NP=2:P(1)=2:P(2)=3 N=5 340T F>0 220 T=0.2~L:1400x NP=NP+1 P(NP)=N (X=14:Y=10 :1700:;N N=N+2 N<1000 160 #X=0:Y=10 :1700 "ENTER YOUR NUMBER " 21004:N=K N=0 : CN<1 N>999999t# Nɺ(N) "INVALID NUMBER"::250 " 340T ,(F=0 :"IT IS PRIME":320@ 6*:"= ";F;" X ";N/F::"AND IS NOT PRIME" @ J :250 T F=0 ^S=(N) hI=1 NP rP(I)>S I=NP:400 | R=N/P(I) R=(R) F=R:I=NP I  SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$):