==?d MINDREAD n 1100L x"NUMBER MINDREADING" : "THINK OF A NUMBER"  "1 TO 100 BUT DON'T"  "TELL ME WHAT IT IS" T=6:1400x 2800 :"DIVIDED BY 3 THE" :"REMAINDER IS? "; 21004 A=K :"DIVIDED BY 5 THE" :"REMAINDER IS? ";  21004 B=K ":"DIVIDED BY 7 THE" ,:"REMAINDER IS? "; 6 21004 @C=K JT=1:1400x T 2800 ^ h:"SHH! I'M THINKING" r |T=4:1400x  D=0 N=1 100d ,(N-A)/3ɺ((N-A)/3) 450 ,(N-B)/5ɺ((N-B)/5) 450 ,(N-C)/7ɺ((N-C)/7) 450 D=N:N=100d N %D=0 "I GIVE UP!":510 "WAS IT ";(D);"? Y OR N";  1500 : +G$="Y""HA! I READ YOUR MIND":540 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$): K