5 REMVC64-02 - INTERCEPTAR 10 GOSUB3000 100 GOSUB1000 300 END 1000 REMVC64-02 - INTERCEPTAR 1020 PRINT"[147]":POKE53280,6:POKE53281,8:DIMM%(9,11),T%(5,2):POKE649,1 1030 G=1024:H=55296:H$="[198][198][198][198] [198][198][198][198]" 1040 FORK=1TO11 1050 FOR J=0 TO 9 1060 READ M%(J,K) 1070 NEXT:NEXT 1080 PRINT"";TAB(18)"[206][221][205] 1090 [153] [163]17)"(null)CLOSE(null)CLOSE(null)":[153][163]16)"(null) (null)CLOSECLOSE(null)" 1100 [153][163]15)"(null) (null) (null)":[153][163]15)H$ 1110 [153][163]14)"(null)(null) (null) (null)(null)" 1120 [153][163]14)"(null) (null) (null) (null) (null)" 1130 [153][163]14)"(null) (null)CLOSE(null) (null) (null)" 1140 [153][163]14)"(null) (null)(null)(null)CLOSECLOSECLOSE(null)":[153][163]15)H$ 1150 [153][163]14)"(null) (null)(null)(null) (null)" 1160 [153][163]14)"(null) (null) (null) (null) (null)" 1170 [153][163]14)"(null) (null)CLOSE (null)CLOSECLOSE(null)CLOSE(null)" 1180 [153][163]14)"(null)(null) CLOSE (null)CLOSECLOSE (null)(null)":[153][163]15)H$ 1190 [153][163]15)"(null) (null) (null)" 1200 [153][163]16)"(null) (null) (null)" 1210 [153][163]17)"(null) (null) (null)" 1220 [153][163]18)"(null)(null)(null)" 1230 [129]K[178]1[164]11 1240 [151]H[170]M%(9,K),M%(0,K) 1250 [151]G[170]M%(9,K),81 1260 [130] 1270 [153]"" 1280 [153]"TU COLOR? ON" 1290 C$[178]"" 1300 [161]C$ 1310 C[178][197](C$) 1320 [139]C[179]6[176]C[177]8[167]1290 1330 C[178]C[171]1 1340 [153]"MUEVES TU: ON" 1350 [161]M$:[139]M$[178]""[167]1350 1360 [139]M$[178]"Y"[167]M[178]8:[137]1420 1370 [139]M$[178]"U"[167]M[178]1:[137]1420 1380 [139]M$[178]"I"[167]M[178]5:[137]1420 1390 [139]M$[178]"H"[167]M[178]4:[137]1420 1400 [139]M$[178]"J"[167]M[178]3:[137]1420 1410 [137]1350 1420 K[178]1 1430 [139]M%(0,K)[179][177]C[167]K[178]K[170]1:[137]1430 1440 V[178]M%(M,K)[175]15:[139]V[178]0[167][153]"NO ES POSIBLE !ON":[129]J[178]1[164]2000:[130]:[137]1280 1450 V[178]M%(M,K)[175]15 1455 [139]M%(0,V)[177]0[167][153]"ESTA OCUPADO !!! ON":[129]J[178]0[164]2000:[130]:[137]1280 1460 [129]L[178]0[164]2 1470 [129]J[178]5[164]1[169][171]1 1480 T%(J,L)[178]T%(J[171]1,L) 1490 [130] 1500 T%(0,L)[178]0 1510 [130] 1520 D[178]C[171]5:Q[178]M%(M,K)[175]15:T%(0,D)[178]Q 1530 [139]T%(2,D)[178]Q[175]T%(4,D)[178]Q[175]T%(1,D)[178]T%(3,D)[175]T%(3,D)[178]T%(5,D)[167]1900 1540 M%(0,K)[178]0:[151]H[170]M%(9,K),0:M%(0,M%(M,K)[175]15)[178]C:[151]H[170]M%(9,M%(M,K)[175]15),C 1550 [153]"MI TURNO ON" 1560 [129]L[178]1[164]100:[130]:K[178]1 1570 [139]M%(0,K)[179][177]4[167]K[178]K[170]1:[137]1570 1580 [139]K[178]1[175]M%(0,2)[177]4[175]M%(0,3)[177]4[175]M%(0,4)[177]4[167]2100 1590 [139]K[178]5[175]M%(0,2)[177]4[175]M%(0,6)[177]4[175]M%(0,8)[177]4[167]1700 1600 [139]K[178]7[175]M%(0,4)[177]4[175]M%(0,6)[177]4[175]M%(0,10)[177]4[167]1700 1610 CR[178]64:[141]2500:[139]W[177]0[167]1650 1620 CR[178]0:[141]2500:[139]W[177]0[167]1650 1630 CR[178]16:[141]2500:[139]W[177]0[167]1650 1640 CR[178]32:[141]2500 1650 [139]M%(0,NK)[177]0[167]1610 1660 M%(0,K)[178]0:[151]H[170]M%(9,K),0 1670 M%(0,NK)[178]4:[151]H[170]M%(9,NK),4 1680 X[178]M%(R,K)[175]16:[139]X[178]0[167]M%(R,K)[178]M%(R,K)[170]16 1690 [129]J[178]5[164]1[169][171]1 1700 U%(J)[178]U%(J[171]1) 1710 [130] 1720 U%(0)[178]NK 1730 [139]NK[178]11[167]1900 1740 [139]U%(2)[178]NK[175]U%(4)[178]NK[175]U%(1)[178]U%(3)[175]U%(3)[178]U%(5)[167]1900 1750 VV[178]0:[129]K[178]1[164]4:VV[178]VV[170]M%(0,K):[130]:[139]VV[177]18[175]M%(0,1)[179][177]4[167]1900 1760 [137]1280 1900 [153]"HE GANADO !!! " 1910 [129]J[178]1[164]3000:[130] 1920 [129]J[178]0[164]4 1930 [129]L[178]1[164]8 1940 V[178]M%(L,U%(J[170]1))[175]15 1950 [139]V[178]U%(J)[167]M%(L,U%(J[170]1))[178]V[170]64 1960 [130]:[130] 1970 VW[178]VW[170]1 1980 [137]2200 2100 [129]J[178]0[164]4 2110 [129]L[178]1[164]8 2120 V[178]M%(L,U%(J[170]1))[175]15 2130 [139]V[178]U%(J)[167]M%(L,U%(J[170]1))[178]V[170]32 2140 [130] 2150 [130] 2160 VL[178]VL[170]1 2170 [153]" HE PERDIDO !!!" 2180 [129]J[178]1[164]3000 2190 [130] 2200 [153]"LOAD" 2210 [143] POKE53280,2:POKE53281,13 2220 [153]"HE GANADO ";VW;" JUEGOS" 2230 [153]"DE UN TOTAL DE ";VW[170]VL 2240 [153]"QUIERES PROBAR OTRA VEZ ?" 2250 [161]A$:[139]A$[178]""[167]2250 2255 [139]A$[178]"N"[167]2999 2260 [153]"LOAD":[151]53280,6:[151]53281,8 2270 [129]K[178]1[164]11 2280 M%(0,K)[178]0 2290 [130] 2300 M%(0,3)[178]4:M%(0,8)[178]5:M%(0,9)[178]6:M%(0,10)[178]7 2310 [129]J[178]0[164]5 2320 U%(J)[178]0 2330 [130] 2340 [129]J[178]1[164]8 2350 [129]L[178]1[164]11 2360 V[178]M%(J,L)[175]112:X[178]M%(J,L)[175]15 2370 [139]V[178]16[167]M%(J,L)[178]X 2380 [139]V[178]48[167]M%(J,L)[178]X[170]32 2390 [139]V[178]80[167]M%(J,L)[178]64 2400 [130]:[130] 2410 [137]1080 2500 W[178]0:NK[178]0:[129]J[178]1[164]8 2510 V[178]M%(J,K)[175]CR 2520 X[178]M%(J,K)[175]15 2530 [139]V[178]CR[175]M%(0,X)[178]0[167]W[178]1 2540 [130] 2550 [139]W[178]0[167][142] 2560 R[178][181]([187](1)[172]8)[170]1 2570 V[178]M%(R,K)[175]CR 2580 X[178]M%(R,K)[175]15 2590 [139]V[178]CR[175]M%(0,X)[178]0[167]NK[178]M%(R,K)[175]15 2600 [139]NK[178]0[167]2550 2610 [142] 2999 [142] 3000 [151]53280,11:[151]53281,12:[153]"LOAD"; 3010 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3020 [153]"SGN I N T E R C E P T A R +"; 3030 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3040 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3050 [153]"SGN UN JUEGO TRADICIONAL: +"; 3060 [153]"SGN SE MUESTRA UN TABLERO CON 4 +"; 3070 [153]"SGN FICHAS: LAS TRES TUYAS (VERDE, +"; 3080 [153]"SGN AZUL Y AMARILLA) Y LA DEL ORDE- +"; 3090 [153]"SGN NADOR, DE COLOR PURPURA. +"; 3100 [153]"SGN LAS LINEAS QUE LAS UNEN TE +"; 3110 [153]"SGN MUESTRAN LOS POSIBLES CAMINOS. +"; 3120 [153]"SGN EL ORDENADOR MUEVE SU FICHA +"; 3130 [153]"SGN A RAZON DE UNA CASILLA CADA +"; 3140 [153]"SGN TURNO, EN CUALQUIER DIRECCION. +"; 3150 [153]"SGN TU MUEVES UNA DE LAS TUYAS +"; 3160 [153]"SGN EN CADA TURNO, PERO NUNCA HACIA +"; 3170 [153]"SGN ATRAS. NO SE PUEDE SALTAR SOBRE +"; 3180 [153]"SGN OTRA FICHA NI SITUARSE EN UNA +"; 3190 [153]"SGN CASILLA OCUPADA. +"; 3200 [153]"SGN EL JUEGO COMIENZA CON LA +"; 3210 [153]"SGN FICHA DEL ORDENADOR EN LA CA- +"; 3220 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3230 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3240 [153]"SGN PULSA 'SPACE' PARA CONTINUAR +"; 3250 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3255 [161]A$:[139]A$[179][177]" "[167]3255 3260 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3270 [153]"SGN I N T E R C E P T A R +"; 3280 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3290 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3300 [153]"SGN SILLA CENTRAL DE LA FILA SUPE- +"; 3310 [153]"SGN RIOR. +"; 3320 [153]"SGN +"; 3330 [153]"SGN GANAS TU SI ACORRALAS AL +"; 3340 [153]"SGN ORDENADOR EN LA CASILLA SUPE- +"; 3350 [153]"SGN RIOR DEL TABLERO. +"; 3360 [153]"SGN +"; 3370 [153]"SGN GANA EL ORDENADOR SI LLEGA +"; 3380 [153]"SGN A LA CASILLA INFERIOR, O BIEN +"; 3390 [153]"SGN ACORRALA A TUS TRES FICHAS, O +"; 3400 [153]"SGN BIEN AMBOS JUGADORES REPITEN +"; 3410 [153]"SGN TRES VECES EL MISMO MOVIMIENTO +"; 3420 [153]"SGN HACIA ADELANTE O HACIA ATRAS. +"; 3430 [153]"SGN +"; 3440 [153]"SGN LOS COLORES DE TUS FICHAS SON +"; 3450 [153]"SGN +"; 3460 [153]"SGN 6=VERDE; 7=AZUL; 8=AMARILLO. +"; 3470 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3480 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3490 [153]"SGN PULSA 'SPACE' PARA CONTINUAR +"; 3500 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3505 [161]A$:[139]A$[179][177]" "[167]3505 3510 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3520 [153]"SGN I N T E R C E P T A R +"; 3530 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3540 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3550 [153]"SGN TUS MOVIMIENTOS SON: +"; 3560 [153]"SGN +"; 3570 [153]"SGN Y--> ARRIBA DIAGONAL IZQDA. +"; 3580 [153]"SGN U--> HACIA ARRIBA. +"; 3590 [153]"SGN I--> ARRIBA DIAGONAL DCHA. +"; 3600 [153]"SGN H--> HACIA LA IZQUIERDA +"; 3610 [153]"SGN J--> HACIA LA DERECHA +"; 3620 [153]"SGN +"; 3630 [153]"SGN TEN EN CUENTA QUE EL ORDE- +"; 3640 [153]"SGN NADOR IRA APRENDIENDO A LO LAR- +"; 3650 [153]"SGN GO DEL JUEGO. ES DECIR, EMPEZA- +"; 3660 [153]"SGN RA CON MOVIMIENTOS AL AZAR, PERO +"; 3670 [153]"SGN IRA TOMANDO NOTA DE LOS MOVIMIEN- +"; 3680 [153]"SGN TOS ADECUADOS Y DE LOS ERRONEOS +"; 3690 [153]"SGN CON LO QUE EN CADA NUEVA PARTI- +"; 3700 [153]"SGN DA...TE SERA MAS DIFICIL VEN- +"; 3710 [153]"SGN CERLE !!! +"; 3720 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3730 [153]"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"; 3740 [153]"SGN PULSA 'SPACE' PARA CONTINUAR +"; 3750 [153]"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"; 3950 [161]A$:[139]A$[179][177]" "[167]3950 3999 [142] 4000 [131]0,0,3,0,0,0,4,2,0,99,0,0,5,3,0,1,6,0,0,294 4010 [131]4,1,6,4,2,0,0,0,0,299,0,0,7,0,3,0,0,6,1,304 4020 [131]0,2,8,6,0,0,0,0,0,494,0,3,9,7,5,4,10,8,2,499 4030 [131]0,4,10,0,6,0,0,0,0,504,5,5,0,9,0,6,11,0,0,694 4040 [131]6,6,11,10,8,0,0,0,0,699,7,7,0,0,9,0,0,11,6,704 4050 [131]0,9,0,0,0,10,0,0,8,899 4500 [153]"SGN +";