codesett  ª´ÿrêCODE SETTER- CODEBREAKER was written F.W.Mander of Lincoln SU apr-84-81 ê !û:õ" CODE SETTER - CODEBREAKER" Oõ¬4,0;" Can you find the 4-digit code quicker than the Spectrum?" Nõ¬8,0;"Press ""m"" to go first"''"Press ""c"" for computer first" 2ñgms=0:ñgs=0:ñyou=0:ñme=0 # ò0 (ú¦="m"Ëì100d 2ú¦="c"Ëì900„ < ì35# d9ñgs=gs+1:û:ëf=1Ì9 :õ¬2*f,8; núf<10 ËõÚ6;" " x?õÚ6;¬2*f,8;f;" ++++ :::: ";Ú5;" ":óf }:õ¬20,8;Ú6;"10++++ :::: ";Ú5;" " ‚NõÚ5;Ù6;¬1,8;" ";Ý1;"ƒƒƒƒƒƒƒƒƒƒƒƒƒ";Ý0;" " Œ7õÚ5;Ù6;¬21,8;" ƒƒƒƒƒƒƒƒƒƒƒƒƒ " –ëf=3Ì19Í2  ?õÚ5;¬f,8;" ";Ú6;" ";Ú5;" " ªóf ´!õ¬0,10 ;"CODE SETTER" ¾£õ¬2,2;"YOU";¬2,27;"ME";¬4,0;"Goes ";gs;¬4,25;"Goes ";gms;¬6,0;"Scr. ";you;¬6,25;"Scr. ";me Èéa$(3,4) Ò=ëf=1Ì4:ña$(1,f)=Á(º(¥*6)+1):óf Ü-ëf=1Ì10 :ña$(2)=a$(1) á ña=0 æ6×.25~ÿÿÿ,1:î"I await your entry ";a$(3) è úa$(3)="Q "Ëì4000  ð*õÚ6;¬2*f,10 ;a$(3) úëg=1Ì4 ÿ õ¬21,28;a$(2) (úa$(2,g)Éa$(3,g)Ëì280 3ña=a+1:ña$(2,g)="|":ña$(3,g)="@" $õÚ6;¬2*f,14+a;"*" óg "!úa=4Ëñyou=you+f:ì360h ,&ëg=1Ì4:ëh=1Ì4 6(úa$(2,g)Éa$(3,h)Ëì340T @3ña=a+1:ña$(2,g)="|":ña$(3,g)="@" J$õÚ6;¬2*f,14+a;"o" T óh:óg:óf ^*õ¬0,8;" ";a$(2);" " c ñyou=you+f hH×.25~ÿÿÿ,24:õ¬6,5;you:î"Press ENTER to continue";p$ múgs+gms=10 Ëì4000  r ì900„ „Tñgms=gms+1:ñrr=1296:û:ëf=1Ì10 :õ¬22-2*f,8; Žñff=11 -f ˜2õÚ5;" ";Ú6;" :::: ++++ ";Ù3;ff; ¢úff<10 ËõÚ6;" "; §õÚ5;" " ¬óf ±NõÚ5;Ù6;¬1,8;" ";Ý1;"ƒƒƒƒƒƒƒƒƒƒƒƒƒ";Ý0;" " ¶7õÚ5;Ù6;¬21,8;" ƒƒƒƒƒƒƒƒƒƒƒƒƒ " Àëf=3Ì19Í2 Ê?õÚ5;¬f,8;" ";Ú6;" ";Ú5;" " Ôóf Þ!õ¬0,10 ;"CODEBREAKER" ã£õ¬2,2;"YOU";¬2,27;"ME";¬4,0;"Goes ";gs;¬4,25;"Goes ";gms;¬6,0;"Scr. ";you;¬6,25;"Scr. ";me èMém$(4):éw$(4):éz$(10 ,4):éz(10 ,2):éx$(rr) íñw=1:ñv=0 òëf=1Ì10 õúw$É" "Ëì2500Ä ÷'ñv=v+1:úv>1296Ëì3000¸ üñr=º(¥*rr)+1  ñz$(f)=x$(r) ñx$(r)=x$(rr):ñx$(rr)=z$(f)  ñrr=rr-1 9úf>1Ëëg=1Ìf-1:úz$(f)=z$(g)Ëì1013õ óg:úf>1Ëí2300ü $-õÚ6;Ù1;¬2*f,15;z$(f) ).õÚ6;Û1;¬2*f,10 ;"::::" .3×.25~ÿÿÿ,12 :î"Please mark using * & o ";m$ 0úm$="Q "Ëì4000  8* ëg=1Ì4:úm$(g)=" "Ëñm$(g)=":" B.úm$(g)="*"Ëñz(f,1)=z(f,1)+1 L.úm$(g)="o"Ëñz(f,2)=z(f,2)+1 V$óg:õÚ6;¬2*f,10 ;m$ j+úz(f,1)=4Ëñme=me+f:ì3050ê t-úz(f,1)+z(f,2)=4Ëñw$=z$(f) ºóf üIéy$(10 ,2,4):éy(10 ):ëg=f-1Ì1Í-1 -õÚ6;Ù1;¬2*f,15;z$(f) *ñy$(g,1)=z$(g):ñy$(g,2)=z$(f) @ëh=1Ì4:úy$(g,1,h)Éy$(g,2,h)Ëì2340$ >ñy(g)=y(g)+10 :ñy$(g,1,h)="|":ñy$(g,2,h)="@" $+óh:úy(g)Éz(g,1)*10 Ëì1013õ )óg .ëg=f-1Ì1Í-1 3&ëh=1Ì4:ëj=1Ì4 8-úy$(g,1,h)Éy$(g,2,j)Ëì2380L B=ñy(g)=y(g)+1:ñy$(g,1,h)="|":ñy$(g,2,j)="@" Lój:óh V7úy(g)É(z(g,1)*10 +z(g,2))Ëì1013õ `óg:þ Äúw>24Ëì3000¸ Éëg=1Ì4 Îñz$(f,g)=w$(°u$(w,g)) Øóg:ñw=w+1 â ì1040 ¸!î"Wrong marking.Press ENTER ";p$ Âúp$É""Ëì3000¸ Ì ì900„ êIõ¬6,30;me:×.25~ÿÿÿ,24:î"Press ENTER to continue ";p$ ïúp$="Q"Ëì4000  ôúgs+gms=10  Ëì4000  þ ì100d  [õ¬10 ,0;"ÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉ";¬11 ,0;"> <" ª5õ¬12 ,0;">To Start AgainÉEnter GO TO 10<" ´[õ¬13 ,0;"> <";¬14,0;"ÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉÉ" ¾â §mó§ó¹oõ­åæ Üaç8è,²òk¦ærawv¦Í****× Ú-  ši Ø PÁ32353235 å