CSUDOKU Y74[7 23658j\,8:N="a""a"+7:V:N,V:N:W$="W":Z$="W":B$=" ":E$="G":I$="O":R$="P":U$="Q":J$="A":600X M60<,66B,129,165,129,165,90Z,60< 2M$=" ":Q$=M$:N$=M$:P$=M$:497: WIZARD ;23560\,0:ACAL=0:WIZ=0350^ #ACA=HY:ACA>128350^ bNMB=1.05|L,7:PY,PX;6;ACA:ACER=ACER+1:ACER<81Q3106 ACER=82R900 ,ACA>7ACA=ACA-2:ACAL=1 H.05|L,7:PY,PX;ACA;ACAL;"":ACER=ACER+1:3106 ,DIBUJO CUADRICULA -XCOR=ALTO YCOR=IZDA. .]:L1=172:L2=116t:L3=60<:L4=3:L5=59;:L6=115s:381} /,K=19 :XCOR,YCOR:395:K 0"381}:XCOR:YCOR:395 1)400:ELEGIMOS SUDOKU E IMPRIMIMOS 2YHY=60000`:P1=175:P2=0:PY=1:PX=1:YB=1:X=1 3d379{:471:5;14,25;("0"M<10 );M;":00":100d:M=M-1 4*23673y\,0:23672x\,0 6U12 ,30;1;4;("0"((81Q-ACER)<10 ));81Q-ACER 7A$=¾23560\ 8@S=60<-(((23673y\*256)+23672x\)/502) 9/S<0M=M-1:315;+(M0) :r5;14,28;("0"S<10 );(SS60<);14,25;("0"M<10 );M;":":317= ;941:FIN RELOJ < 3084 =A$=J$P1>31(P1=143P1=111oP1=87W)379{:P1=P1-24:379{:PY=PY+3:HY=HY+9 :3117 >bA$=J$P1>31379{:P1=P1-16:379{:PY=PY+2:HY=HY+9 :3117 ?A$=U$P1<175(P1=142P1=119wP1=63?)379{:P1=P1+24:379{:PY=PY-3:HY=HY-9 :3117 @cA$=U$P1<175379{:P1=P1+16:379{:PY=PY-2:HY=HY-9 :3117 BA$=R$P2<144(P2=32 P2=88XP2=491)379{:P2=P2+24:379{:PX=PX+3:HY=HY+1:3117 EcA$=R$P2<144379{:P2=P2+16:379{:PX=PX+2:HY=HY+1:3117 GA$=I$P2>4(P2=568P2=112pP2=491)379{:P2=P2-24:379{:PX=PX-3:HY=HY-1:3117 IaA$=I$P2>5379{:PX=PX-2:P2=P2-16:HY=HY-1:379{:3117 JA$=" "345Y K A$=E$ LA$=Z$200 OA$"1"A$"9"337Q P 3117 Q"V1=A$:HY>128350^ RNMB=0351_ VeHY,V1+128:ACER=ACER+1:.05|L,7:PY,PX;6;A$:ACER=82R900 X 23560\,0:3106 YHY>192350^ Z6HY,0:PY,PX;" ":ACER=ACER-1:3106 ^u6:M$="":Q$="NO PUEDES":P$="":N$="":497:0:15:2:23560\,0:3117 _7ACAL=0+(V1>7):V1=V1-2*(V1>7) eg.05|L,7:HY,V1+128:ACER=ACER+1:PY,PX;V1;ACAL;"":ACER=82R900 f 23560\,0:3106 {23560\,0:2:P1=P1-4:P2=P2+4:23678~\,P1:23677}\,P2:1;14,0:1;-0,-14:1;-14,0:1;0,14:P1=P1+4:P2=P2-4: | 400 }L1,L4 ~L1,L5 L1,L6 L2,L4 L2,L5 L2,L6 L3,L4 L3,L5 L3,L6 =N=XCORXCOR-480-16:YCOR,N:480,0:N =N=YCORYCOR+48016:N,XCOR:0,-480:N  &N=60000`60120:N,N:N: *CARGAMOS DATOS EN MEMORIA Y EN LA MATRIZ /472:9996 ':L=10 :9950& LYAC=1:500+(20*DIF)+(*20):O$:ACER=O$-81Q B=60000`60080 EBA=(O$(YAC)="L"):B,O$(YAC+BA)+192*BA:YAC=YAC+1+BA:B  LO IMPRIMO (PX=1:PY=1:BA=60000` "416+20*(NMB=0) %417+3*((BA)>192) xBA=BA+1:PX=PX+2+(PX=5PX=12 ):PX>19PX=1:PY=PY+2+(PY=5PY=12 ) %416+25*(BA=60081) 4PY,PX;6;1;-192+BA:417  %437+3*((BA)>192) xBA=BA+1:PX=PX+2+(PX=5PX=12 ):PX>19PX=1:PY=PY+2+(PY=5PY=12 ) %436+25*(BA=60081) _YAC=(BA)-192:PY,PX;YAC-2*(YAC>7);(YAC>7);1;"":437 NMB=115 ZTI=1:N=1213:21,N+1;TI;TI;"":TI=TI+1:N w21,23;7;"8";6;1;"";21,26;0;7;"9";1;"";0;  15 "IMPRIMIMOS CIRCULILLO Y MENSAJES ع15:7:174,502:77M,0:4,-4:0,-30:-4,-4:-77M,0:-4,4:0,30:4,4 r1,21;3;1;"CONTROLES";3,21;7;0;"IZQUIERDA:";6;1;I$;4,21;7;0;"DERECHA: ";6;1;R$;5,21;7;0;"ARRIBA: ";6;1;U$;6,21;7;0;"ABAJO: ";6;1;J$;12 ,21;7;"QUEDAN: " BWIZ=18,21;"WIZARD: ";6;1;Z$ 7,21;7;0;"BORRAR: ";6;1;("ESP"B$=" ")+(" "+B$B$" ");9 ,21;7;0;"ABANDONAR:";6;1;E$;10 ,21;7;0;"MODO:"; +NMB=15;1;"NUMERO": 6A$="COLOR":N=15:1;N;A$(N);:N  [16,22;M$;17,22;N$;18,22;Q$;19,22;P$: z1:16,22;M$;17,22;N$;18,22;Q$;19,22;P$:BOR=1499  0 Y16,22;M$;17,22;N$;18,22;Q$;19,22;P$  FACIL q"OLCVTDLFLNLUSNDLUCLSOLVTFTFSLVNULODCCLTONLFLDSVLUDSLFUOVLCNTLVUNLSLTCFLODSOLCDULNTFVUNLTFLVSLDCOFLVLDLOCTULSN" s"FDVNSCOUTTNLULFVLOLSCDLSLOCLTDLUNLFLVLUTSOLCFVDLNLOLVNDUSFLTLCLDCFVLNTUSLOLNLUDLSTLVCLOLFCFLTLUOLNLDVSVSOCFDTNU" y"LVLTLDNLUSLOFCLNOUFDLCTLVSLFSCVLTONLDLULCLDLFLOSVLUTNSVTLUCLNFODUNLOTFLDLCLSLVLTLCNDLVFSULOOLUVLSNTDCLFDFLSCLOULVLNLT" r"VSLUOLDCNFLTFLOLTULVNLCSDLNCDLTSFOLUVLSFLCNLOLVDTUODNFLUTSVCTUVLSLCDLFOLNULVFDNLOTCLSCNLOVLTSLULDFLDTSCLFULVNO" q"ULOTFDLNLSVCLFSLNOCLVDULTCVLDTLUSNLOFLVLCFNOTLUSDNLUSVFDCLTOTDLOUSCVLFLNDLNVSLTFLOCULOTCLDVULFNLSSFLULCNOTLDV"  q"UOLSLDFTLCVNLDLNLCSLVUFOTVLFTLOCNUSDNSLFUTODLCVLCLTLUVNDLOLFLSOLDVCSFLNTUTVDNOLCSLUFSCNFLUVLTLDLOFULOTDLSLVNC"  s"VLNCDLFUSLOTSDULNOLTCVFTLOLFLSCLVLNLDUUCLVFSNLOTDLOTDLUVLCFSLNNFLSOTDLVUCDLULOLVNLFLTLCSCVNLTDLSUFOFLSTCLUODLNV" q"UOLSLDFTLCVNLDLNLCSLVUFOTVLFTLOCNUSDNSLFUTODLCVLCLTLUVNDLOLFLSOLDVCSFLNTUTVDNOLCSLUFSCNFLUVLTLDLOFULOTDLSLVNC" m"LNTVUCFLOSLDOCLSDLVTNUFLFUDLSNOVLCTSLOFLCDLNTVLUDNCVTUFOSLTVULFOLSDLNCULFNOSLDCTLVVDOTLUCLSFNLCSLTNFVUDLO" u"LCSVUDNOTLFTLFULOVLSDLNCLDLONLCFLTSLVLUSLCTLNULDFLOVVNDSOFCUTOLUFLTCLVNLDSLNLDCLFTLUVLSLOFLTSLVNLOULCDLUVODSCTFLN" u"LUSLTLDVLOLFNLCLNFVTUCSDLOCOLDFLSNLVTUOLUNLSFLVDLCTFVLCODTLUSNTLDSLNCLUOLVFDNLUVLTFLCOSLVCOUNSTFLDLSTLFLCOLDLNULV" &q"LFNVLDTOLUSLCSOUFCLNLTVDLDLTCLUSLVONFTLSLONFCLVDLUUDFVOSNCTLCVLNTUDLSLFOVFTLCNLUDLOLSOCLDLSVTFUNLNULSODLFCTLV" +o"OFNSDLTVLUCTVULFCNLSDOLSCDLVUOLNLFTVLUFNLOSLTCLDLDOTUVCFNLSLCNLSTLFDULOVFLSLODTLUCVLNUTLCONLVDSFNLDVLCSFOTU" /p"FDCVLNUTLOSLSLVNFTOCLDULUTOCDLSLFLVNCOLFTLSNLVUDLVNULDCLFOSLTDSLTOLUVLNCFOULDLNVTSFLCNLFSUOCDLTLVTLCVSLFDUNO" XMENU ]1:0:0:6::681:N=031:(*6)+1;0,N;"":N:N=121:N,31;(*6)+1;"":N ^N=300-1:21,N;(*6)+1;"";:N:N=210-1:N,0;(*6)+1;"":N bYK$="COLORES":M=10 :I$="O":R$="P":U$="Q":J$="A":D$="NOVATO ":Y$="WIZARD " d'NMB=0:WIZ=1:DIF=0 l1:2:7,6;"0. JUGAR";9 ,6;"1. DEFINE TECLAS";11 ,6;"2. DIFICULTAD:";6;D$;" ";13 ,6;2;"3. AYUDA ";4;Y$;15,6;2;"4. TIEMPO ";5;("0"M<10 );M;" MIN.";2;17,6;"5. MODO: ";7;K$;19,6;2;"6. INSTRUCCIONES":0 v0:A$= A$="0"300, A$="1"800  A$="2"700 A$="3"750 A$="4"730 A$="5"672 A$="6"732  630v 4K$="COLORES"K$="NUMEROS":NMB=1:620l 4K$="NUMEROS"K$="COLORES":NMB=0:620l TITULO ,ABA=18:LIM1=33!:LIM=162 SLIM1+ABA,LIM:-ABA,0:0,-ABA:ABA,0:0,-ABA:-ABA,0 JLIM1*2,LIM:0,-2*ABA:ABA,0:0,2*ABA XLIM1*3,LIM:0,-2*ABA:ABA,ABA/2:0,ABA:-ABA,ABA/2 XLIM1*4,LIM:ABA,0:0,-2*ABA:-ABA,0:0,2*ABA gLIM1*5,LIM:0,-2*ABA:LIM1*5,LIM-ABA:ABA,ABA:LIM1*5,LIM-ABA:ABA,-ABA JLIM1*6,LIM:0,-2*ABA:ABA,0:0,2*ABA  6D$="NOVATO "D$="MEDIA ":DIF=1:620l 6D$="MEDIA "D$="AVANZADA":DIF=2:620l 6D$="AVANZADA"D$="NOVATO ":DIF=0:620l %M=M+5:M=65AM=10  620l INSTRUCCIONES 770:6:1:8,2;"EL OBJETIVO ES COMPLETAR EL";9 ,2;"CUADRO 9X9,SIN QUE SE REPITA";10 ,2;"NINGUN NUMERO O COLOR DE SU";11 ,2;"FILA, COLUMNA O RECUADRO.":749:770 8,2;"CON LA OPCION DE DIFICULTAD,";9 ,2;"PUEDES ELEGIR EL NIVEL DE";10 ,2;"DIFICULTAD:AVANZADO, MEDIO Y"; 11 ,2;"NOVATO":749:770 f8,2;"CON LA OPCION AYUDA PUEDES";9 ,2;"ELEGIR ENTRE LA AYUDA WIZARD";10 ,2;"EN LA CUAL DISPONES DE UNA";11 ,2;"TECLA POR LA CUAL EL CUADRO";12 ,2;"SELECCIONADO SE REVELA Y NO";13 ,2;"TENER NINGUN TIPO DE AYUDA,Y";14,2;"PODER COMETER ERRORES.":749:770 '8,2;"PULSANDO LA OPCION TIEMPO";9 ,2;"PUEDES SELECCIONAR EL TIEMPO";10 ,2;"QUE EL PROGRAMA TE DA PARA";11 ,2;"RESOLVER EL SUDOKU, HASTA 60";12 ,2;"MINUTOS EN INTERVALOS DE 5";13 ,2;"MINUTOS.":749:770 D8,2;"CON LA OPCION MODO PUEDES";9 ,2;"ELEGIR JUGAR CON NUMEROS O";10 ,2;"CON COLORES. SI JUEGAS CON";11 ,2;"COLOR VERAS LA EQUIVALENCIA";12 ,2;"DE COLORES Y TECLAS EN LA";13 ,2;"PARTE BAJA DE LA PANTALLA.":749:770:620l Q20,1;6;1;" PULSE UNA TECLA ":0: 8Y$="WIZARD "Y$="NINGUNA ":WIZ=0:620l 8Y$="NINGUNA "Y$="WIZARD ":WIZ=1:620l BORRADO PARCIAL MA$=" ":N=720:N,1;A$:N:  PARAR RELOJ  3PR=(23673y\*256+23672x\)-502  CONTINUAR RELOJ CPR:23673y\,23671w\:23672x\,23670v\:3106  770 )-12 ,6;"PULSA UNA TECLA PARA..." *N14,10 ;"IZQUIERDA: ":0:I$=:I$"0"I$"9"810* 4L14,10 ;"DERECHA: ":0:R$=:R$"0"R$"9"8204 >K14,10 ;"ARRIBA: ":0:U$=:U$"0"U$"9"830> HJ14,10 ;"ABAJO: ":0:J$=:J$"0"J$"9"840H MG14,10 ;"WIZARD:":0:Z$=:Z$>"1"Z$<"9"845M RG14,10 ;"BORRAR:":0:B$=:B$>"1"B$<"9"850R WJ14,10 ;"ABANDONAR:":0:E$=:E$>"1"E$<"9"855W 770:2:620l FINAL 1:6:2: &3,8;"|| ENHORABUENA !!" s4,3;"HAS CONSEGUIDO TERMINAR ESTE SUDOKU EN TAN SOLO ... "''" ";M;" MINUTOS, ";S;" SEGUNDOS" L10 ,3;"|| SEGURO QUE LA PROXIMA VEZ LO HARAS MAS RAPIDO !!" B14,8;1;7;0;" PULSA UNA TECLA "  0::  FIN TIEMPO 7:7:1::2,6;"SE TE ACABO EL TIEMPO... "'''" SOLO HAS ACERTADO ";ACER;(" NUMEROS"NMB=1);(" COLORES"NMB=0)  935 &H(9 ):VU=1 &.LU=((*9 ))+1:N=19 &9955&+(LU=H(N)) &>N:H(VU)=LU:VU=VU+1:9952&+10 *(VU>9 ) & 9953& &U=H(1):D=H(2):T=H(3):C=H(4):F=H(5):S=H(6):V=H(7):O=H(8):N=H(9 ): ' N=19 :H(N);:N: ' -M$="ESPERE...":Q$="POR FAVOR":497: '&N=19 :A(N)=0:N: vWWbim!iKCOLORESm DNOVATO Y WIZARD miiIJRKULJOZSBTETt<;s /cocol 0  udtcfs-oaOmULOTFDLNLSVCLFSLNOCLVDULTCVLDTLUSNLOFLVLCFNOTLUSDNLUSVFDCLTOTDLOUSCVLFLNDLNVSLTFLOCULOTCLDVULFNLSSFLULCNOTLDVcec8xM Q N P cacAW