CHINOS  ~ڼ:ټ:缧::"":"""27e3":"27e3":"23296":ۼ;"16","12";٧+;"CARGANDO"''ç;;" ~CHINOS~ BASIC/Auto 1":"" v :[<> ͛ "[= *v\X@*v\~# "v\ɳchinos$ <<<<<<<<<<<8#L<<<<<<<<<<<2ST<<<<<<<<<<<*((T*T*T*((T*T*T*((T*T*T*T*((T*T*T mmmlm*( mmmlm(Tmmmmmm*Tmmmmmm*T*(mmmmmm(mmmmmmT*Tmmmmm*Tmmmmm*T*(mmmmmm(mmmmmm((mmmmmmTmmmmmm*T*Tmmmmmm*Tmmmmmm*((mmmmmmTmmmmmm*T*Tmmmmmm*(mmmmmm(T mmmlm*T mmmlm*T*((T*T*T*T*((T*T*T*((T*T*T*(()<s3T<<3<<<8OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOmCHINOS k!k!m!2G7;1;16,6;" PARA EL CASSETTE ":200 d:6:6::23658j\,0:f=1502:.01z# =,f:f:20,0;0;0;6;" pulse una tecla":0:.1}L,20 n 9000(# x{5::5::f=020:f,0;2;5;"":.01z# =,f:f ]f=416:f,4;1;5;"":.01z# =,f:f Uf=812 :f,8;4;5;"":.01z# =,f:f l25:f=119:f,1;5;" ":.01z# =,2*f:f 4,9 ;1;4;7;" LOS CHINOS ":8,3;" MICROHOBBY CASSETTE 1985";16,4;0;1;5;" Instrucciones ? (s/n) ":0:="n"300,:.1}L,20 Q1:6,3;" Este es un juego de intui-";7,3;"cion" 8,3;" ";9 ,3;" Consiste en averiguar la";10 ,3;"suma de chinos que tienen ";11 ,3;"entre los dos jugadores." 13 ,3;" Para ello cada uno ira pen-";14,3;"sando por turnos un numero";15,3;"de chinos comprendido entre";16,3;"0 y 3 ambos inclusive. " 502:0.25~,12 :0.25~,12 :2:0.25~,12 :0.25~,12 :0.5,9 :0.5,9 :0.45ffff,7:0.45ffff,7:1,9 L502:19,1;" Pulsa una tecla":0:.1}L,20 19,1;" ";6,3;" Primero,por turnos uno ira";7,3;"diciendo los chinos que cree";8,3;"que tienen entre los dos ";9 ,3;"y puede acertar o no. " 10 ,1;" ";11 ,3;" Si no gana ninguno de ";12 ,3;"los dos,no pasa nada. ";13 ,3;" " 14,3;" Esto se ira repitiendo ";15,3;"sucesivamente tantos turnos";16,3;"como sean elegidos. ";17,3;" BUENA SUERTE " 502:0.15~,12 :0.15~,12 :2:0.15~,12 :0.15~,12 :0.353333,9 :0.353333,9 :0.3,7:0.3,7:.8L,9 L502:19,1;" Pulsa una tecla":0:.1}L,20 "******************** #* * $* ciclo/principal * %* * &******************** ,3::3:9 ,4;4;9 ;"Cuantos turnos quieres ?";t:.1}L,20:t<1t>900300, 1 20 6tugan=0:spgan=0 @ f=1t J&f/2=(f/2)2000 T 20 P7:7::7,9 ;6;1;1;"preparado ??" .4L,7:.2~L,7:.2~L,7:.2~L,9 :.5,7:8:.4L,11 :.6,12 ******************** * * * sp/turno * * * ******************** 4::4 spchi=(*4)  9060d#  .1}L,10 U1:" Cuantos chinos pones ? ";tuchi:tuchi<0tuchi>31040  9070n# .1}L,20 $+spchi=0sphab=(1+*2) .-spchi=1sphab=(1.5@+*2) 8-spchi=2sphab=(2+*2.5 ) B-spchi=3sphab=(2.5 +*3) GP2,2;1;" Hablo :";4,4;sphab:.1}L,10 Lw;1;" Tu hablas : ";tuhab:.1}L,20:tuhab=sphab1100L:tuhab<0tuhab>61100L V 3000 ******************** * * * tu/turno * * * ******************** 4::4 V;1;" Cuantos chinos pones ? ";tuchi:tuchi<0tuchi>32020  9070n# .1}L,20 spchi=(*4)  9060d# .1}L,10 ^;1;" Tu hablas : ";tuhab:.1}L,20:tuhab<0tuhab>62055  Htuhab=0sphab=spchi:tuhab=0spchi=0sphab=1 )tuhab=1sphab=(spchi+*2) )tuhab=2sphab=(spchi+*2) )tuhab=3sphab=(spchi+*3)  )tuhab=4sphab=(spchi+*3) %)tuhab=5sphab=(spchi+*3) *Ptuhab=6sphab=spchi+3:tuhab=6spchi=3sphab=5 /sphab=tuhab2060  4Q2,2;" Hablo :";4,4;sphab:.1}L,10 :502 ******************** * no hagas trampas * ******************** * * * quien/gana * * * ******************** suma=tuchi+spchi 3suma=sphabo$=" G A N O Y O " !suma=sphabspgan=spgan+1 3suma=tuhabo$=" G A N A S T U " !suma=tuhabtugan=tugan+1 @sumatuhabsumasphabo$=" N A D I E G A N A " 2a$=" ":b$=" ":c$=" ":d$=" " spchi=0s$=a$ spchi=1s$=b$ spchi=2s$=c$ spchi=3s$=d$ tuchi=0t$=a$ &tuchi=1t$=b$ 0tuchi=2t$=c$ :tuchi=3t$=d$ D42,2;" ";4,4;" " N110 ,0;3;5;1;o$ X(8,17;1;6;s$ b)20,10 ;1;6;t$ lo6:169,0:0,80P:86V,0:0,-80P:-86V,0:1 vS14,22;"yo dije ";15,22;7;3;1;sphab V18,22;"tu dijiste ";19,22;7;3;1;tuhab ******************** * * * retorno/bucle * * * ******************** 200:.1}L,20 6:6::4 ʚ31,128:185,0:31,104h:185,0:31,80P:185,0:31,568:185,0 w31,128:0,-72H:175,128:0,-72H:216,128:0,-72H t7,5;1;"Partidas jugadas";10 ,5;"Vas ganando tu";13 ,5;"Voy ganando yo" P0:7,23;f;10 ,23;tugan;13 ,23;spgan !200:.1}L,20:f ******************** * * * fin *  * *  ******************** 4spgan>tugang$=" T E H E G A N A D O " spgan>tugangos=9030F# 4spgan