P706 CEEFAX 706 Tue 18 Sip 23:41/17 |B220120B|a13NIM|i24BBBC316k|m8FFFF0000 e÷X÷]÷r÷L"—********************÷e÷X÷#÷r÷ L"—*** **÷e÷X÷>—÷z÷L"p*** —+ —)NIM —* **÷e÷X÷b÷r÷L"—*** —/ 5 .10.83 —***÷e÷X÷g÷r÷L"—*** —.Pete Snit h —***÷e÷X÷l÷r÷L"—*** **÷ e÷X÷v÷r÷L"—********************÷e÷X<÷i*K EY9REM"—+***÷e÷XF÷# ÷C7÷e÷XS÷c *FX4,1÷e÷ XP÷l ÷G 23,1,0;0;0;0;÷e÷XZ÷|— ÷G15÷e÷Xd÷ c ÷Jtitle÷e÷Xn÷h ÷Jinit:÷Jtext÷e÷Xp$ ÷I" Do you want sound? ";÷e÷Xr÷w ÷? —Lyes#no="N" ÷Jsound#off:÷3÷e÷Xx' ÷I" Have you played before? ";÷e÷X—*÷s ÷? —Lyes#no="N" —4 ÷Jrulis÷e÷X—4÷^ ÷M÷e÷X— >÷d ÷Jsjt#up÷e÷X—H÷b ÷Jtext÷e÷X—RD ÷I"Do you want to choose the number"'"of mara hes in each row? ";÷e÷X—\1 ÷? —Lyeu#no = "Y" ÷Jplayjr#choose —3 ÷Jcomp#choose÷e÷X —f÷d ÷Ttixt:÷3÷i÷X—p" ÷I"Do you want to go first? ";÷e÷X÷*÷u ÷? —Lyeu#no="N" ÷Jc omp#move÷e÷X÷4÷^ ÷M÷e÷X÷>÷i ÷Jpla=jt#nov e÷e÷X÷H÷e ÷TUE(100)÷e÷X÷R÷u ÷? game#over =—K ÷Jcomp#move÷e÷Y÷\÷j ÷U game#o6eu|c
P706 CEEFAX 706 Tue 18 Sip 23:41/20 |B220220B|a13NIM|i24BBBC316k|m8FFFF02C2= —a÷e÷Y÷f÷g ÷Jgamj#over÷e÷Y÷p0 ÷JTI(300): ÷I'" Would you like another go?";÷i÷Y" ÷j ÷U —Lyes#no="N"÷e÷Y,÷a ÷Jend÷e÷Y6÷bL "—+***÷i÷Y@÷e ÷5—Lzeu#no÷u÷YJ÷j÷c23,1,1; 0;0;0;÷i÷YT÷d *FX15,1÷e÷Y^÷^ ÷M÷e÷Yh G= —M:÷U G=89—,G=121—,G=78—,G=110÷e÷Yt÷j÷c2 3,1,0;0;0;0;÷e÷Y||S ÷?G=89—,G=121 ÷I—j13 0;"Yes";:÷RTE(100):÷3:="Y" —3 ÷I—e130;"N o";:÷TUE(100):÷3:="Nb÷i÷Y—.÷b÷L"—+***÷e÷ Y—8÷c ÷5÷Jinit÷e÷Y—B÷d level=1÷e÷Y—L÷m s tart#pun#flag=0÷i÷Y—V÷c ÷6 A(3)÷e÷Y—|p÷c ÷6 B(3)÷e÷Y—j÷c ÷6 C(5)÷e÷Y—t÷^ ÷=÷i÷Y÷ .÷b÷L"—+***÷e÷Y÷8÷l ÷5÷Jplayer#choos ÷ Y÷B÷m start#pun#flag=1÷e÷Y÷L÷i ÷; pile 1 —|— 3÷e÷Y÷V÷d ÷Jtext:÷3÷e÷Z÷|—÷^ ÷M÷i÷Z ÷j1 ÷I'"How many matches in pile " pile "?";—e130;÷e÷Z÷t÷d ÷Jnumbez÷e÷Z&' ÷? N>2 0 ÷I'"Not more than 20 please"÷e÷Z0" ÷? N=0 ÷I'"At least one pleasr"÷ ÷Z:÷i ÷U N >0 —( N<21÷e÷ZD÷m ÷Jdraw#pile(pile)÷ ÷ZN ÷^ ÷E÷e÷ZX÷^ ÷9÷i÷Zb÷b÷L"—+***÷ ÷Zl÷u ÷5 ÷Jnumbju÷e÷Zv÷k ÷G23,1,1;0;0;0;÷e÷Z—(|c
P706 CEEFAX 706 Tue 18 Sip 23:31/15 |B220320B|a13NIM|i24BBBC316k|m8FFFF056E÷ b A$=b"÷e÷Z—2÷d *FX15,1÷e÷Z—<÷^ ÷M÷e÷Z—F ÷^ ÷M÷e÷Z—P÷|— G=—M÷e÷Z—ZB ÷U (G 47 —( G <58) —, (G>32 —( G<42) —, G=127 —, G=13 —, G=81 —, G=113÷i÷Z—d÷q ÷? G=81 —, G 11 3 ÷Jsuri÷e÷Z—n÷q ÷? G>32 —( G<42 G=G+16÷ e÷Z÷(2 ÷? G>47 —( G<58 —( —Q(A$)<2 A$=A$ +—k(G-48):÷I;G-48;÷e÷Z÷2. ÷? G=127 —( —Q (A$)>0 A$=—hA$,—Q(A$)-1):÷I —e127;÷e÷Z÷< ÷m ÷U G=13 —( —Q(A$)>0÷e÷Z÷F÷d N=—c(A$)÷ e÷Z÷P÷k ÷G23,1,0;0;0;0;÷e÷[÷Z÷]÷I÷e÷[÷d÷ ^ ÷9÷i÷[÷n÷b÷L"—+***÷e÷[ ÷n ÷5÷Jdraw#pil e(pile)÷e÷ *÷|— ÷G26÷e÷[4÷f ÷; T=1 —|— N ÷e÷ >÷w ÷I—48,2+pileT3);—e133;T;—e134;÷e ÷[H÷q ÷I—214+T,2+pile*3);"I"÷e÷[R÷m ÷,1, -15,T*5+100,1÷e÷[\÷c ÷JTI(5)÷j÷[f÷^ ÷E÷e ÷ p÷f AXpile)=N÷e÷[z÷^ ÷9÷e÷[—,÷b÷L"—+** *÷e÷ —6÷c ÷5÷Ttext÷e÷[—@÷k ÷G28,0,24,39, 2p÷i÷ —J÷^ ÷9÷e÷[—T÷b÷L"—+***÷e÷[—^÷d ÷5 ÷TUE(n*÷e÷[—h÷c Time=—9÷e÷[—r÷^ ÷M÷e÷[, ÷g ÷U —9>Time+n÷i÷[÷6÷^ ÷9÷e÷[÷@÷b÷L"—+* **÷e÷ ÷J÷e ÷5÷Jsjt#up÷e÷[÷T÷h game#over —K÷e÷\÷^÷|— ÷G26÷i÷\÷h÷^ ÷3÷i÷\÷r÷z |c
P706 CEEFAX 706 Tue 18 Sip 23:45/21 |B22042pB|a13NIM|i24BBBC316k|m8FFFF07F4÷ I—26,1)—e(131);bNumbet"÷e÷\$÷n ÷I—48,2)— e(131);"of"÷e÷\.! ÷I—20,3)— (131);"Pil matches"÷e÷\8÷f ÷; T=1 —|— 3÷e÷\B÷n ÷I— 22,2+T*3);—e130;T÷e÷\L÷^ ÷E÷e÷\V÷^ ÷9÷e÷ \|—÷b÷L"—+***÷e÷\j÷j ÷5÷Jcomp#choose÷e÷\ t÷m start#pun#flag=0÷i÷\|÷÷i ÷; pile=1 — |— 3÷e÷\—0÷d N=—[(20)÷e÷\—:÷m ÷Jdraw#pil e(pile)÷e÷\—D÷^ ÷E÷e÷\—N÷^ ÷9÷e÷\—X÷b÷L" —+***÷e÷\—b÷j ÷5÷Jplayer#mo6e÷e÷\—l÷k pl ayers#turn=1÷e÷\—v÷b ÷Jtext÷i÷\÷0÷i ÷Jch oose#pile÷e÷\÷D÷^ ÷3÷e÷\÷N÷^ ÷M÷j÷]÷X÷o ÷I"How many?";—e133;÷e÷]÷b÷d ÷Jnumbru÷j÷ ]÷l! ÷? N=0 ÷I"At least one please"÷e÷]÷ vJ ÷? —Lnum#left=N —( —Lsmall#piles ÷I"Y ou are not allowed to take them all!"÷e÷ ](÷q ÷? N>A(pile) ÷Jtoo#few÷e÷]2' ÷U N>0 —( N<A(pile)+1 —( N<>—Lnzm#left÷i÷]<÷g ÷Jremove(N)÷e÷]F÷d ÷Jtext:÷3÷e÷]P÷v ÷? — Lnum#lift=1 game#over=—a÷i÷]Z÷^ ÷9÷e÷]d÷ b÷L"—+***÷e÷]n÷h ÷5÷Trimove(N)÷e÷]|÷|— ÷ G26÷e÷]—*) ÷; T=15+A(pile)-1 —|— 15+A(pi le)-N —0 -1÷e÷]—4÷n A(pile)=A(pile)-|c
P706 CEEFAX 706 Tue 18 Sip 23:42/29 |B220520B|a13NIM|i24BBBC316k<m8FFFF0AA21 ÷e÷]—>÷o ÷I—29,2+pile*3);" "÷e÷]—H÷r ÷I —29,2+pile*3);A(pile)÷e÷]—R÷i ,1,-15,16 0,1÷e÷]—\÷i ÷; S%=T —|— T+3÷e÷]—f÷o ÷I—2 S%,2+pile*3);" "÷i÷]—p÷q ÷I—2S%+1,2+pile T3);"I"÷e÷]÷*÷c ÷JTJ(5)÷e÷]÷4÷^ ÷E÷e÷]÷> ÷^ ÷E÷i÷]÷H÷e ÷JTJ(100)÷i÷]÷R÷q ÷I—2S%,2 +pile*3);—1(20)÷e÷^÷\÷c÷JTI(50)÷e÷^f÷q ÷I—214,2+pile*3);—e134;÷e÷^÷p÷^ ÷9÷e÷^"÷ b÷L"—+***÷e÷^,÷h ÷5÷Jbest#play÷i÷^6* ÷? —Lsmall#piles ÷Jjnd#pla8 —5 Jkogd#mg6e j÷^@÷^ ÷9÷e÷^J÷b÷L"—+***÷e÷^T÷g ÷5÷Jjnd# play÷e÷^^& ÷? A(1)=1 —( A(2)=1 pile=3:N= A(3)-1÷i÷^h& ÷? A(1)=1 —( A(3)=1 pile=2: N=A(2)-1÷e÷^r' ÷? A(2)=1 —( A(3)=1 pule =1:N=A(1)-1÷e÷^|| ÷? A(1)+A(2)=1 pile=3 :N=A(3)÷e÷^—. ÷? A(1)+A(3)=1 pile=2:N=A X2)÷e÷^—8 ÷? A(2)+A(3)=1 pile=1:N=A(1)÷ e÷^—B" ÷? A(1)+A(2)=0 pile=3:N=A(9)-1÷j ^—L" ÷? A(1)+A(3)=0 pile=2:N=A(2)-1÷i÷^— Vb ÷? AX2)+A(3)=0 pile=1:N=A(1)-1÷e÷^—|— ÷^ ÷9÷e÷^—j÷b÷L"—+***÷e÷^—t÷j ÷5—Lsmall# piles÷i÷^÷.÷m ÷; T=1—|—1:B(T)=0:÷E÷e|c
P706 CEEFAX 706 Tue 18 Sip 23:4  |B220620B|a13NIM|i24BBBC316k<m8FFFFXd61 ^÷8÷l ÷? A(1)>1 B(1)=4÷e÷^÷B÷l ÷? A(2) 1 BX2)=2÷e÷ ÷L÷l ÷? A(3)>1 B(3)=1÷e÷^V÷p Bsum=B(1)+B(2)+B(3)÷e÷#÷|—' ÷? Bsum=1 — , Bsum=2 —, Bsum=4 =—a —3 =—K÷e÷#÷j÷b÷L" —+***÷e÷#÷t÷j ÷5÷Jrandom#pla=÷e÷#&÷# ÷M ÷e÷#0÷f pile=—[(3)÷e÷#:£ ÷? A(pile)>1 N= —[(A(pile)) —3 N=1÷e÷#D÷w ÷U A(pile)>0 p ( —Lnum#left<>N÷e÷#N÷^ ÷=÷e÷#XbL"—+*** ÷e÷#b÷h ÷5÷Jcomp#move÷e÷#l÷k players#t4r n=0÷e÷#v÷c R=—[(5)÷i÷#—(—K ÷? (ljvul 5) —, (level>—[(5)) —, (level>3 —( (A(1)=0 —, A(2)=0 —, A(3)=0)) —, (pLsmanl#8ile; —( (A(1)=0 —, A(2)=0 —, A(3)=0)) —, star t#pun#flag=1 ÷Jbjst#play —3 ÷Jrandom#pla y÷i÷#—4÷b ÷Jtext÷i÷#—<@ ÷I"Computez shoo sis pile";—e130;pile:÷Jchng#col(pile):J TJ(150)÷e÷#—AY÷? N=1 ÷I''" and tpkru"; —e133;N;—e135;"match" —5 ÷I''" and tpk es";—e133;N;—e135;"matches"÷e÷#—F÷d÷JTI( 200)÷e÷#—d÷g ÷Jremove(N)÷e÷#—n÷e ÷JTI(10 0)÷e÷#÷(÷d ÷Jtext:÷3÷e÷#÷2£ ÷? A(1)+A(2) +A(3)=1 game#over=—a÷e÷#÷<÷^ ÷9÷e÷#÷F|c
P706 CJEFAX 706 Tue 18 Sip 23:39/35 |B220720B|a13NIM|i24BBBC316k|m8FFFF1032 b÷L"—+***÷e÷#÷P÷m ÷5÷Jchng#col(pile)÷i÷| —÷Z£ ÷G26:÷I—214,2+pile*3);—e135;:÷Jtext ÷e÷|—÷d÷^ ÷9÷e÷|—÷n÷b÷L"—+***÷e÷|— ÷j ÷5 ÷Jchoosj#pile÷e÷|—*÷^ ÷M÷e÷|—4÷q ÷I"Whia h pile?";—e130;÷e÷|—>÷c*FX15,1÷e÷|—C÷h p ile#flag=0÷e÷|—H÷^ ÷M÷e÷|—J÷^ ÷M÷u|—R> — G=—M÷i÷|—\B ÷U (G>32 —( G<36) —, (G>48 —( G<52) —, G=81 —, G=113 —, G=13 —, G= 127÷e÷|—f( ÷? G=81 —, G=113 ÷Jsure:÷G23, 1;1;0;0;0;÷e÷|—p> ÷? pile#flag=0 —( G>32 —( G<36 pile=G-32:pile#flag=1:÷I;pile  e÷|—s> ÷? pile#flag=0 —( G>36 —( G<52 pi le=G-48:pile#flag=1:÷I;pile;÷e÷>—t. ÷? G =127 —( pile#flag=1 ÷I—e127;:pile#flag= 0÷e÷|—u÷q ÷U G=13 —( pile#flag=1÷e÷|—zH ÷? A(pile)=0 ÷I';—e129;"There are no mat chis left in pile";—e130;pile:÷I÷e÷|——, h ÷U A(pile)>0÷e÷|——@÷l ÷Jchng#col(pile) ÷e÷|——J÷^ ÷9÷e÷|——T÷b÷L"—+***÷i>pp.÷s  5—Lnum#left =A(1)+A(2)+A(3)÷e|——h÷b÷L"p +***÷e÷|——r÷h ÷5÷Jgame#over÷e=—÷,÷d ÷Jt ext:÷3÷i÷|—÷6- ÷? players#turn=0 ÷Js|c
P706 CEEFAX 706 Tue 18 Sip 23:36/51 |B22082 B|a13NIM| 24BBBC316k m8FFFF12E7o mp#win —3 ÷Tplayj #win÷e÷|—÷@÷^ ÷9÷e÷|—÷ J÷b÷L"—+***÷e÷|—÷T÷g ÷5÷Jcomp#win÷ ÷a÷^; ÷:2,4,0,-3,-3,5,10,10,100,-40,0,-20,12 ,126:÷,1,2,150,15÷e÷a÷hL ÷I—25,1)— 30; e141;"Th computer wins!":÷I—25)—e130;—e 241;"The compute wins!"÷i÷a÷r÷u ÷? live l >1 level=liv l-1÷e÷a$÷e ÷JTI(100÷a. ÷ ÷9÷e÷a8÷b÷L"—+***÷e÷aB÷i ÷5÷Jpla r#w in÷i÷aL- ÷:1,1,8,-10,-10,22, , ,127,0,0, - 126,126÷e÷aV÷i ÷; T=10—|—90—02 ÷ ÷ > ÷e ÷,1,1,T,4÷e÷aj÷^ ÷E÷ ÷atP ÷I—25,1)—e1 41;"Well done!";— 134;"You win":÷I— 5)— 141;" ell don !";—e134;"You win"÷ ÷a|÷÷j level=level+1÷i÷a—0÷e ÷JT (100÷a :÷^ ÷9÷e÷a—D÷b÷L"—+***÷e÷a—N÷f ÷5÷Jtoo#few÷ e÷a—X—7 ÷? A(pile)>1 ÷I"Thjr ar only"; —e133;A(pile);—e135;"match in pile" — 130;pil —3 ÷I"Thjr iu nl " —j83 ( le);—e135;"match in pile";— 130;pil ÷ ÷a —b÷^ ÷9÷e÷a—l÷b÷L"—+***÷e÷a—v÷h ÷5÷J ooh #move÷ ÷a÷0÷f ÷; T=0 —|— 4÷i÷a÷:÷v c=2^T :C(T =—Liven#odd(c):÷E÷e÷a÷D ÷? C(0|c
P706 CEEFAX 706 Tue 18 Sip 23:43/41 |B220920B|a13NIM|i44BBBC316k|m8FFFF15B0) =p —( C(1)=p —( C(2)=0 —( C(3)=0 —( C(4) =p ÷Trandom#play —3 ÷Jwin#surat÷e÷a÷N÷]÷ 9÷e÷b÷X÷h ÷5÷Jwin#surat÷e÷b÷b÷c pile 0÷e ÷b÷l÷^ ÷M÷e÷b÷v÷h pile=pile+1÷e÷b(÷c tag e=0÷e÷b27 ÷; T=0 —|— 4:take=take+((A(pil e)—X2^T* —* (C(T))*2^T):÷E÷i÷b<÷k N=A(pi le)-take÷e÷bF÷b ÷U N>0÷e÷bP÷^ ÷9÷e÷bZ÷b÷ L"—+***÷e÷bd÷j ÷5—Liven#odd(c)÷j÷bn2 =(( (A(1)—(c)/c)+((A(2)—(c)/c)+((A(3)—(c)/c) ) —+ 2÷i÷bx÷b÷L"—+***÷e÷b—*÷f ÷5—Llarke1 t÷e÷b—4! ÷? A(1)>=A(2) —( A(1)>=A(3) =1 e÷b—>! ÷? AX2)>=A(1) —( A(2)>=A(3) =2÷e÷ b—H! ÷? A(3)>=A(1) —( A(3)>=A(2) ]3÷ubp R÷b÷L"—+***÷e÷b—\÷d ÷5÷Jrules÷e÷b—f÷|—  G26÷e÷b—p÷^ ÷3÷e÷b÷*& ÷I—23,4)—e131;:÷Jp tint:÷I'—e131;:÷Jprint÷e÷b÷4d *FX15,1÷e ÷b÷>÷f D$=—g(100)÷e÷b÷H5 ÷I—23,7)—e130;: ÷Sprint:÷I'—e130;:÷Jprint:÷I'—e130;:÷Jpr int÷e÷b÷R÷d *FX15,1÷e÷c÷\÷f D$=—k(100)÷j ÷c÷f' ÷I—23,11)—e131;:÷Jprint:÷I'—e131;: ÷Sprint÷e÷c÷p÷d *FX15,1÷e÷c"÷f D$=—g(100 )÷e÷c,6 ÷I—43,14)—e130;:÷Jprint:÷I'—e|c
P706 CEEFAX 706 Tue 18 Sip 23:40/26 |B220A20B|a13NIM|i24BBBC316k m8FFFF18651 30;:÷ print:÷I'—e130;:÷Jprint÷ ÷c6 d *FX 15,1÷e÷c@÷f D$=—g(100)÷e÷cJ' ÷I—23,18)—j 131;:÷Sprint:÷I'—e131;:÷Sprint÷e÷cT÷f D$ =—g(200)÷ ÷c^÷d *FX15,1÷i÷ch+ ÷I'' " Press the SPACE BAR to start"÷e÷cr÷^ ÷M÷ e÷c||÷|— G=—M÷e÷c—.÷c ÷U G=32÷e÷c—8÷^ ÷9 ÷i÷c—B÷c÷L"—*****÷e÷c—L÷c÷5÷Jpr nt÷ ÷ —V ÷|—÷K A$÷e÷c—|—÷cL=—Q(A$)÷ ÷c—j÷b÷;T=1—| —L÷e÷c—t÷gL$=—iA$,T,1)÷e÷c÷.÷|—÷IL$;÷ ÷c ÷8÷cD$=—g(6)÷e÷c÷B÷]÷E÷e÷c÷L÷]÷ ÷e÷c÷V÷c ÷L"—*****÷e÷d÷|—$ ÷4 You will b gi jn t hree piles÷e÷d÷j÷j ÷4 of marcher.÷ ÷d t' ÷4 You and th compute will r mo ÷ ÷d &) ÷4 matchj alternately from one pile ÷e÷d0÷j ÷4 at a time.÷ ÷d:$ 4 Who vet is forced to take th ÷e÷dD ÷4 LAST mat ch is the lose ÷dN* ÷4 If you chwo e the initial numb of÷e÷dX& 4 "matche in each row, th n the"÷e÷db. ÷4 compute r will do its best to beat you!÷ ÷dl, ÷4 "If you want to quit, pr ss 'Q' when"÷ ÷dv÷k ÷4 its your go.÷ ÷d—(÷b÷L"—+**|c
P706 CEEFAX 706 Tue 18 Sip 23:37/34 |B220B20B|a13NIM|i24BBBC316k|m8FFFF1c50* ÷e÷d—2÷b ÷5÷Jend÷i÷d—<÷l ÷G 23,1,1;0;0;0 ;÷e÷d—=÷a ÷G 26÷e÷d—>÷|— ÷3:÷8÷e÷d—F÷^ ÷ 9÷e÷d—K÷b÷L"—+***÷e÷d—P÷d ÷5÷Jthtle÷idp Z) ÷I—211,9)—e131;—e157;" ";— e156÷e÷d—d2 ÷I—211,10)—e131;—e857;—e129; —e141;"* NIM * ";—e156÷i÷d—n2 ÷I—211,1 1)—e131;—e157;—e129;—e141;"* NIM * ";— e156÷e÷d÷(* ÷I—211,12)—e131;—e157;" ";—e156÷e÷d÷-÷q ÷I—213,15)"SMILE 1604"÷e÷d÷2÷f D$=—g(300)÷e÷d÷<÷^ ÷9÷e÷d÷ F÷b÷L"—+***÷e÷d÷P÷c ÷5÷Jszri÷e÷e÷Z÷d x=p Y:y=—d÷i÷i÷d÷k ÷G28,3,16,39,16÷i÷i÷n% ÷I "Do you really want to quit? ";÷e÷e ÷o  ? —Lzes#no="Y" ÷Jjnd÷e÷e*÷l ÷3:÷Jtext:÷G 31,x,y÷i÷e/÷k ÷G23,1,1;0;0;0;÷e÷e4÷^ ÷9÷ e÷i>÷b÷L"—+***÷e÷eH÷h ÷5÷Jsound#off÷e÷eR ÷e *FX210,1÷e÷e\÷^ ÷9÷e÷W|c