pinkblueZXd `Od ******** pinkblue ******** compiuter soft 02-11-05 Carlos Monroe Roig 80:0::0:4:0:4  VARS A(9 ,20) M=17:N=16 462:pre00 0382~:pre01 S4:0:4:0:0::0:4:0:4  PANT1 en estos dos era brillo1 "CF=220 :F,4;0;4;4;"":F $DF=220 :F,28;0;4;4;"":F &*21,16;4;0;"?" (F=3 19 *I1:F,7;"";F,13 ;"";F,19;"";F,25;"" ,F .(2,7;"" 0)20,7;"" 2 0 48,13 ;" " 69 ,13 ;" " 810 ,13 ;" " :12 ,19;" " <13 ,19;" " >14,19;" " @ B 03084 D F 0096` H 452 J INKEY L0338R:VAAMIRASCR NI= P I=480180 RI=112pN<22M-1,N-1;8;8;0;1;" ";M,N-1;" ";M+1,N-1;" ":N=N+6 TI=111oN>10 M-1,N-1;0;8;8;1;" ";M,N-1;" ";M+1,N-1;" ":N=N-6 VI=113qM>5M-1,N-1;8;8;0;1;" ";M,N-1;" ";M+1,N-1;" ":M=M-4 XI=97aM<17M-1,N-1;8;8;0;1;" ";M,N-1;" ";M+1,N-1;" ":M=M+4 Z(I=32 138:VAASOLARIUM \nM-1,N-1;1;8;8;1;" ";M,N-1;" ";M+1,N-1;" " ^ 078N `PINTADASPRI b|A(1,4),A(1,5);A(1,7);A(1,6);A(1,3);A(1,2);A(1,4)-1,A(1,5)-1;3;" ";A(1,4)+1,A(1,5)-1;3;" ";A(1,4),A(1,5)-1;3;" ";A(1,4),A(1,5)+1;3;" " d Q=2 f(A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;3;" ";A(Q,4)+1,A(Q,5)-1;3;" ";A(Q,4),A(Q,5)-1;3;" ";A(Q,4),A(Q,5)+1;3;" " h Q=3 j(A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;3;" ";A(Q,4)+1,A(Q,5)-1;3;" ";A(Q,4),A(Q,5)-1;3;" ";A(Q,4),A(Q,5)+1;3;" " l Q=4 n(A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;3;" ";A(Q,4)+1,A(Q,5)-1;3;" ";A(Q,4),A(Q,5)-1;3;" ";A(Q,4),A(Q,5)+1;3;" " p Q=5 r(A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;2;" ";A(Q,4)+1,A(Q,5)-1;2;" ";A(Q,4),A(Q,5)-1;2;" ";A(Q,4),A(Q,5)+1;2;" " t Q=6 v(A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;1;" ";A(Q,4)+1,A(Q,5)-1;1;" ";A(Q,4),A(Q,5)-1;1;" ";A(Q,4),A(Q,5)+1;1;" " x Q=7 z(A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;1;" ";A(Q,4)+1,A(Q,5)-1;1;" ";A(Q,4),A(Q,5)-1;1;" ";A(Q,4),A(Q,5)+1;1;" " | Q=8 ~(A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;1;" ";A(Q,4)+1,A(Q,5)-1;1;" ";A(Q,4),A(Q,5)-1;1;" ";A(Q,4),A(Q,5)+1;1;" " Q=9 (A(Q,4),A(Q,5);A(Q,7);A(Q,6);A(Q,3);A(Q,2);A(Q,4)-1,A(Q,5)-1;1;" ";A(Q,4)+1,A(Q,5)-1;1;" ";A(Q,4),A(Q,5)-1;1;" ";A(Q,4),A(Q,5)+1;1;" " xA(9 ,4),A(9 ,5);A(9 ,7);A(9 ,6);A(9 ,3);A(9 ,2)  SOLARIUM -------- V=(M,N) F; 9,0;V V=32 \V=35#21,16;0;0;"#":1/10 ,2:0234 [V=73I21,16;0;0;"I":1/10 ,9 :186 [V=80P21,16;0;0;"P":1/10 ,9 :170 [V=78N21,16;0;0;"N":1/10 ,9 :202 \V=75K21,16;0;0;"K":1/10 ,9 :0218 ]V=66B21,16;0;0;"B":1/10 ,11 :0246 ]V=76L21,16;0;0;"L":1/10 ,11 :0262 ]V=85U21,16;0;0;"U":1/10 ,11 :0278 ]V=69E21,16;0;0;"E":1/10 ,11 :0294& 138 MERCURIO I= HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;3;7;"P":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;3;7;"P":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;3;7;"P":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;3;7;"P":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J 170 VENUS I= HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;3;7;"I":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;3;7;"I":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;3;7;"I":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;3;7;"I":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J 186 TIERRA I= HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;3;7;"N":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;3;7;"N":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;3;7;"N":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;3;7;"N":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J 202 MARTE I= HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;3;7;"K":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;3;7;"K":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;3;7;"K":3:3:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;3;7;"K":3:3:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J 0218 JUPITER I= 0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;2;7;"#":2:2:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;2;7;"#":2:2:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 fI=32 I=0:21,16;0;1;"?":1/10 ,6:074J 0234 SATURNO I= HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;1;7;"B":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;1;7;"B":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;1;7;"B":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;1;7;"B":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J  0246  URANO I= HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;1;7;"L":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4  /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;1;7;"L":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4  0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;1;7;"L":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;1;7;"L":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J  0262  NEPTUNO I= HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;1;7;"U":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 /I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;1;7;"U":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;1;7;"U":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;1;7;"U":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4  fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J " 0278 $ PLUTON &I= (HI=112pƫ(M,N+3)=32 ƫ(M,N+6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N+6:M,N;1;7;"E":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 */I=97aƫ(M+3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M+4:M,N;1;7;"E":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 ,0I=113qƫ(M-3,N)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":M=M-4:M,N;1;7;"E":1:1:M,N-1;" ";M,N+1;" ";M-1,N-1;" ";M+1,N-1;" ":0:4 .HI=111oƫ(M,N-3)=32 ƫ(M,N-6)=32 M-1,N-1;0;4;0;" ";M,N-1;" ";M+1,N-1;" ":N=N-6:M,N;1;7;"E":1:1:M-1,N-1;" ";M+1,N-1;" ";M,N-1;" ";M,N+1;" ":0:4 0fI=32 I=0:21,16;0;1;"?":1/10 ,2:074J 2 0294& 4TABLA1 1-NUM 2-CODE 6A(1,1)=1:A(2,1)=2:A(3,1)=3:A(4,1)=4:A(5,1)=5:A(6,1)=6:A(7,1)=7:A(8,1)=8:A(9 ,1)=9 8A(1,2)=80P:A(2,2)=73I:A(3,2)=78N:A(4,2)=75K:A(5,2)=35#:A(6,2)=66B:A(7,2)=76L:A(8,2)=85U:A(9 ,2)=69E :Q=3:FLAGBRILLO <A(1,Q)=0:A(2,Q)=0:A(3,Q)=0:A(4,Q)=0:A(5,Q)=0:A(6,Q)=0:A(7,Q)=0:A(8,Q)=0:A(9 ,Q)=0 >Q=4:FILAS @A(1,Q)=5:A(2,Q)=9 :A(3,Q)=13 :A(4,Q)=17:A(5,Q)=5:A(6,Q)=5:A(7,Q)=9 :A(8,Q)=13 :A(9 ,Q)=17 BQ=5:COLUMNAS DA(1,Q)=10 :A(2,Q)=10 :A(3,Q)=10 :A(4,Q)=10 :A(5,Q)=16:A(6,Q)=22:A(7,Q)=22:A(8,Q)=22:A(9 ,Q)=22 FQ=6:TINTAS HA(1,Q)=3:A(2,Q)=3:A(3,Q)=3:A(4,Q)=3:A(5,Q)=2:A(6,Q)=1:A(7,Q)=1:A(8,Q)=1:A(9 ,Q)=1 JQ=7:PAPELES LA(1,Q)=7:A(2,Q)=7:A(3,Q)=7:A(4,Q)=7:A(5,Q)=7:A(6,Q)=7:A(7,Q)=7:A(8,Q)=7:A(9 ,Q)=7 N P MIRASCR R(5,10 )"B" T(9 ,10 )"L" V(13 ,10 )"U" X(17,10 )"E" Z(5,22)"P" \(9 ,22)"I" ^(13 ,22)"N" `(17,22)"K" b fin01 d f&6::6:6:1 h1:4,31;1;7;"P";8,31;"I";12 ,31;"N";16,31;"K";4,0;3;"B";8,0;"L";12 ,0;"U";16,0;"E" j0:1:127,92\:F=513-524-1:127,92\:-120x,F:1/255,7:F l{3:128,92\:F=513-524-1:128,92\:120x,F:1/255,9 :F n0,0;1;1;0;0;7;"J U E G O C O M P L E T A D O":452:458:452:458:452:458 pN$= rc21,0;1;1;1;0;7;"*** Quieres jugar mas? (s/n) ***" tN$="n"0378z vN$="s"14 x 0368p z | PRE01 ~(7::7:7:1: >1:3,3;3;1;1;"" F4,7;3;1;1;"";5,7;"" F4,3;3;1;1;"";5,3;"" 56,3;3;1;1;"" [7,3;3;1;1;"";8,3;"";9 ,3;"" :0,0;0;0;0;0;" " [3,9 ;3;1;1;"";4,9 ;"";5,9 ;"" [6,9 ;3;1;1;"";7,9 ;"";8,9 ;"" ]9 ,9 ;3;1;1;"";9 ,11 ;"";8,11 ;"" ^7,11 ;3;1;1;"";6,11 ;"";5,11 ;"" ^4,11 ;3;1;1;"";3,11 ;"";5,12 ;"" H6,13 ;3;1;1;"";7,14;"" ^6,15;3;1;1;"";7,15;"";8,15;"" ^3,15;3;1;1;"";4,15;"";5,15;"" ^9 ,15;3;1;1;"";4,15;"";5,15;"" ^9 ,17;3;1;1;"";4,17;"";5,17;"" ^3,17;3;1;1;"";4,17;"";5,17;"" ^6,17;3;1;1;"";7,17;"";8,17;"" ^3,20;3;1;1;"";6,18;"";5,19;"" ^9 ,20;3;1;1;"";6,18;"";4,20;"" ^8,20;3;1;1;"";7,19;"";4,20;"" pF=1420:F,9 ;1;3;1;"";F,13 ;"";F,15;"";F,20;"" <1;3;1;F,24;"";F,26;"" F N1;3;1;20,10 ;"";14,10 ;"" N1;3;1;17,10 ;"";20,16;"" N1;3;1;20,27;"";20,21;"" N1;3;1;14,27;"";17,27;"" Q2;7;0;11 ,5;"# compiuter soft 2005 " 0;7;0;12 ,0;"Controles=OPQA-Space Pulsa";12 ,26;0;7;" Space":458 " "444    son01 ,F=125:1/200,F:F   son02 5F=251-1:1/200,F:F  S5:1:5:0:0::0:5:1:5 Ж1:1:3,12 ;3;1;"PINK";3,16;3;1;"BLUE":5:1:0:0:0 :0;"Instrucciones:": "El juego PinkBlue es un","rompecabezas clasico en el que","hay que intercambiar la posicion"+"de las fichas del lado izquierdo"+"con las del lado derecho para","cambiar el significado a","BluePink." e0;"La ficha roja ";2;"#";0;" es un estorbo y "+"solo se mueve arriba o abajo." ؚ0;"Las fichas rosas ";3;"P I N K";0;" y las ","fichas azules ";1;"B L U E";0;" se mueven "+"tambien hacia los lados." 31;"Pulsando Espacio seleccionas la ficha." ܄0;7;0;21,0;"compiuter soft 2005 Pulsa ";21,27;0;7;"Space":458  452 " "444  mnq ivNNs