MasterMind>%>+@%:0:0:0::10 ,0;:"":"" MasterMind@rLJ߻û߻ûûû<B<<<<<|||~<<<BFFBBD888D8B8DxB88 D<8<<@ 8 apply = 1 HshowRow:apply = 0 Rrow = row + 1 \$row = 7termine = 2: f showRow p Q00000111,11100000,11111111,11111111,00011000 Q00001111,11110000,01111111,11111110,00111100< Q00011111,11111000,01111111,11111110,00111100< Q00111111?,11111100,00111111?,11111100,01111110~ Q00111111?,11111100,00111111?,11111100,01111110~ Q01111111,11111110,00011111,11111000,00111100< Q01111111,11111110,00001111,11110000,00111100< Q11111111,11111111,00000111,11100000,00011000  3000 &i = 07 0 d:"a"+i,d : d:"b"+i,d D d:"c"+i,d N d:"d"+i,d X d:"e"+i,d bi l p ShowInfo z /0,10 ;:a$="Master Mind":printer i2,0;:a$="La idea del juego es descubrir el codigo secreto compuesto de 4items.":printer {a$="Cada item tiene un color de entre una paleta de 7 colores enla opcion facil y 10 colores en la dificil.":printer Ba$="Los colores NO se repiten en lositems a descubrir.":printer a$="Al probar una combinacion se indican los items encontrados exactamente, y los que difieren solo en la posicion.":printer X16,0;:a$="Comentarios/Sugerencias: alegus@adinet.com.uy":printer B21,1;:a$="Pulse una tecla para continuar":printer  0: did =(a$):" "; ni = 1id x (8);a$(i);1;""; .01z# =, 1:i (8);" "  X ShowRow bcol < 1col = 4 lcol > 4col = 1 v(j(col) < 1j(col) = 6+dif (j(col) > 6+difj(col) = 1 i = 14 4color = j(i):color > 7color=color-7 Orow * 3,i*3+ loc;0;color;col = i;col = i(apply);"" 4color = j(i):color>7color = 15-j(i) Vrow * 3+1,i*3+loc;0;color;col = i;col = i(apply);"" i  @GmindTab=19:0:0:9 ::8800`":8200 JZ1:2:3:4:5:4:3:1:""8100 TZ6:5:4:3:2:1:0:1:""8100 ^Z6:4:2:0:1:3:5:1:""8100 h 2 rZ7:5:3:1:2:6:4:1:=""8050r s$=() s$="s"8200 s$="c"8300l s$="t"8400 s$="d"8550f! s$="r"8600! s$="i"showInfo:8000@  s$=" "  8010J Uk$(1)="6":k$(2)="7":k$(3)="9":k$(4)="8":k$(5)="0" (.01z# =,2:.02{# =, 10 )10 ,5;6;"S Sinclair" '11 ,5;0;"C Cursor" &(12 ,5;0;"T Teclado" 0 85004! lUk$(1)="5":k$(2)="8":k$(3)="7":k$(4)="6":k$(5)="0" q(.01z# =,2:.02{# =, 10 v)10 ,5;0;"S Sinclair" '11 ,5;6;"C Cursor" (12 ,5;0;"T Teclado" 85004! }k$(1)=t$(1):k$(2)=t$(2):k$(3)=t$(3):k$(4)=t$(4):k$(5)=t$(5) (.01z# =,2:.02{# =, 10 )10 ,5;0;"S Sinclair" '11 ,5;0;"C Cursor" (12 ,5;6;"T Teclado" 85004! !4014,5;0;"R Redefine teclas" !>>15,5;0;"D Dificultad: " + d$(dificultad) !H,16,5;0;"I Informacion" !R/18,5;0;"Espacio Comenzar" !WQ20,0;0;6;1;" 2003, Gustavo Brown Rodriguez"; !XP21,0;0;6;0;"1' Torneo de Programacion ECSS"; !\ !f#dificultad = 3 - dificultad !k(.01z# =,2:.02{# =, 10 !p 85004! ! 8400 !>20,0;0;" " !>21,0;0;" " !a$="Pulse tecla para " !+20,2;0;a$;"izquierda" !0:t$(1)= !(.05|L, 1:.1}L, 15 !+20,2;0;a$;"derecha " !0:t$(2)= !(.05|L, 1:.1}L, 15 !)20,2;0;a$;"arriba " !0:t$(3)= !(.05|L, 1:.1}L, 15 !(20,2;0;a$;"abajo " !0:t$(4)= !(.05|L, 1:.1}L, 15 !-20,2;0;a$;"seleccionar" "0:t$(5)= " (.05|L, 1:.1}L, 15 "<20,2;0;" " "<21,2;0;" " " 8400 "`1,0; "j(1;1;" " "t(1;0;" " "~(1;0;" " "*mindTab;4;1;"" "*mindTab;4;0;" " ")mindTab;4;0;" " " #(Fin #2loc=18:row=5:col=0:j(1) = v(1):j(2) = v(2):j(3) = v(3) :j(4) = v(4) #<13 ,23;"Codigo" #FshowRow+502 #PMtermine = 119,23;1;6;2;"Ganaste!" #ZNtermine = 219,22;1;6;2;"Perdiste!" #d.2~L,10 #n.3,5 #x 0 # 100d & mindTab=19 & 8800`" &F15,10 ;1;6;9 ;1;"Cargando..." & 8535W! &"MasterMind" ' "MasterMind"1 indta