GRANJA  }ڼ:ټ:缧::"":"""27e3":"27e3":"23296":ۼ;"16","12";٧+;"CARGANDO"''ç;;" GRANJA BASIC/Auto 1":"" v :[<> ͛ "[= *v\X@*v\~# "v\ɳgranja <<<<<<<<<<<8#L<<<<<<<<<<<2ST<<<<<<<<<<<*((T*T*T*((T*T*T*((T*T*T*T*((T*T*T m l *( m l (Tmmmmm*Tmmmmm*T*(mmmmm(mmmmmT*Tmmmmm*Tmmmmm*T*(mmmmm(mmmmm((mmmmmmTmmmmmm*T*Tmmmmmm*Tmmmmmm*((mmmmmmTmmmmmm*T*Tmmmmmm*(mmmmmm(T mmm m*T mmm m*T*((T*T*T*T*((T*T*T*((T*T*T*(()<s3T<<3<<<8OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOWWWWWWWWWWWWWWWWWWWWWWOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOmGRANJA I7;1;16,6;" PARA EL CASSETTE ":150: 7600 &1:1:1:0: 'VARIABLES (wGD=1:VI=4:PU=0:BU=500*GD:X(2):Y(2):H(2):V(2):C$="":D$="" 2^X=17:Y=15:X(1)=1:Y(1)=1:X(2)=1:Y(2)=29:LL=0:Z=2:W=8:P=0:O1=(*4)*2+5:O2=(*7)*2+4:O3=(*4)*2+19:O4=(*7)*2+4:B1=(*7)*2+2:B2=(*3)*2+13 F 7800x MOVIMIENTO ="O"H=0:V=-2 ="P"H=0:V=2 ="A"H=2:V=0 &="Q"H=-2:V=0 0=""800  :A=(X+H,Y+V) XA=72H700 b9A=74JA=76LA=79OA=78N1010 l 800  fX,Y;" ";X+1,Y;" ":X=X+H:Y=Y+V:5;X,Y;"";X+1,Y;"":0.003xD,0  P=P+1 %P=3P=1 2,N1=X-X(P):N2=Y-Y(P):p=1830> 33N1>0H(P)=2:V(P)=0:841I 44N1<0H(P)=-2:V(P)=0:841I >EN2>0H(P)=0:V(P)=2:C$="":D$="":841I GFN2<0H(P)=0:V(P)=-2:C$="":D$="":841I H 8193 ID=(X(P)+H(P),Y(P)+V(P)) J,W=8900:W=0:520 KD=77M7500L LD=78NPU>200PU=PU-200:0;20,25;" ":0;7;20,25;PU:.3,1 M/D72HH(P),V(P):W=W+1:841I NwX(P),Y(P);" ";X(P)+1,Y(P);" ":X(P)=X(P)+H(P):Y(P)=Y(P)+V(P):3;X(P),Y(P);C$;X(P)+1,Y(P);D$ R 520 2,0,2,0,0,2,0,2,-2,0,-2,0,0,-2,0,-2 XX=X+H:YY=Y+V AA=74JA=76LA$="":B$="":K1=4:K2=2 6A=78NB$="":A$=" ":K1=6:K2=6  6A=79OB$="":A$=" ":K1=7:K2=7 B=(XX+H,YY+V)  C=(XX+2*H,YY+2*V) B=72H1500 0B=75K(A=74JA=76L)1600@ ;(B=7B=568)B$=""LL=LL+1:5000 $XX=X+HYY=Y+VA79OA78NA77MA75K0.1}L,0:PU=PU+502:0;7;20,25;PU:700 8 520 XXX,YY;" ";XX+1,YY;" ":XX=XX+H:YY=YY+V:K1;XX,YY;A$;K2;XX+1,YY;B$ 0.005y# =,20  1039 @,X(1)=XX+HY(1)=YY+VP=1 J,X(2)=XX+HY(2)=YY+VP=2 TC=72HXX+H,YY+V;" ";XX+1+H,YY+V;" ";3;XX+2*H,YY+2*V;"";XX+2*H+1,YY+2*V;"":1039 ^X(P)=XX+H:Y(P)=YY+V:.3,-20:.3,-20:PU=PU+200:0;7;20,25;PU:1500 0;7;0;18-GD*2+LL,31;"":.05|L,30:.05|L,10 :XX,YY;" ";XX+1,YY;" " !XX,YY;" ";XX+1,YY;" " KLL2PU=PU+GD*500:7;20,25;PU:520 PU=PU+GD*1000:7;20,25;PU:GD=GD+1:8810j":V=113 :I,U:I,U:V:GD=7GD=1  :502 KMUERTE LVI=VI-1 QVI=07550~ S/1;5;X,Y;"";X+1,Y;"" VT=10 -10 -1:.03{u\,T:T:0;X,Y;" ";X+1,Y;" ":X=17:Y=15:H=0:V=0 `7;20,8;VI j 700 } FINAL ~ 8820t" /1;5;X,Y;"";X+1,Y;"" !A=111 :I,U:I,U:A p2;1;1;1,1;" G A M E O V E R ":R=0200:R:30 PRESENTACION ;23658j\,8:2:4:0:0: 2,8;"***LA GRANJA***";5,1;"TE ENCUENTRAS ENCERRADO EN UNA GRANJA EN LA QUE LOS CERDOS SE HAN SUBLEVADO E INTENTAN TERMI- NAR CONTIGO. PARA EVITARLO HAS DE DIRIGIRTE HACIA LAS LLAVES Y METERLAS EN LAS CERRADURAS. POR CADA TOMATE QUE CHAFES, TU PUNTUACION AUMENTARA. PUEDES ALEJAR LOS CERDOS DE TI SI LOS EMPUJAS CON UN TOMATE PERO OJO PORQUE SI UN CERDO TOCA LA BE- LLOTA TU PUNTUACION DISMINUYE.";19,3;1;"PULSA UNA TECLA PARA JUGAR"  85004!:0: xFIGURAS z 8830~" {C=031:F |!1;0;3;21,C;F;:.02,F/2:C A=031 50;0;0,A;"";19,A;"":A A=019 50;0;A,0;"";A,31;"":A 20,0;7;1;0;" VIDAS= ";VI,7;1;"PUNTOS= ";PU:#0;1,10 ;"PANTALLA= ";GD C=130-3*GD !B=(*14)*2+1  A=(*9 )*2+1 2A,B;4;"";A+1,B;2;"":C n5;17,15;"";18,15;"";3;1,1;"";2,1;"";1,29;"";2,29;"";7;O2,O1;"";O4,O3;"";O2-1,O1;" ";O4-1,O3;" ";6;B1,B2;"";B1-1,B2;" ";0;0;7;20-2*GD,31;"";19-2*GD,31;"" " !4GRAFICOS !9 8560p! !>a=121:a$ !Rb=07:c !f a$+b,c !kb:a: !pc"a",0,63?,127,15,29,15,7,63?,"b",128,252,254,240,184,240,224,252,"c",127,96`,224,255,191,31,127,254,"d",254,6,7,255,253,248,254,127,"e",0,0,0,0,0,7,159,191,"f",0,0,0,0,0,0,192,232,"g",127,127,127,63?,31,12 ,24,16,"h",252,244,255,255,248,96`,32 ,32 ,"i",0,2,2,3,25,5,19,15,"j",0,0,0,32 ,64@,204,152,224,"k",31,127,127,255,255,127,127,31,"l",248,254,254,255,255,254,254,248,"m",7,15,31,63?,127,159,143,7,"n",0,248,254,255,255,254,248,0,"o",0,0,0,0,0,0,3,23,"p",0,0,0,0,0,224,249,253,"q",63?,47/,255,255,31,6,4,4,"r",254,254,254,252,248,480,24,8,"s",480,120x,204,207,207,204,120x,480,"t",0,0,0,255,255,14,10 ,10 ,"u",255,231,195,195,231,195,129,255 "j.2~L,-2,.2~L,1,.5,1,.2~L,-1,.2~L,3,.5,3,.2~L,5,.2~L,5,.2~L,3,.2~L,5,.2~L,6,.2~L,8,.6,10 "t1,-1.7Y,1,-1.7Y,.2~L,-1.7Y,1,-1.7Y,.5,1.43333,.5,.353333,.5,.353333,.5,-1.7Y,1,-1.7Y,.2~L,-1.7Y,1,-1.7Y "~"32 ,127,32 ,80P,69E,80P,69E,32 ,79O,89Y,65A,32 ,38&,32 ,65A,78N,68D,82R,69E,83S,32 ,85U,78N,73I,79O,78N,32 ,491,579,568,535,32 '