dAGE n 1100L xA=11 99c 2 N=A 9X=0:Y=2:1700:"AGE BEING TESTED ";A 250 T=1 230 N=1980-A 250 T=1 230 A1=(A/10 ) N1=N-10 *(N/10 ) 6A1=N1 "AGE = ";A:"YEAR OF BIRTH = ";N:1500 A :: TEST FOR PRIME  T=0 Q=3 ̻(N) 2 R=N/Q "R=(R) T=1:Q=(N) ,Q 6 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$):