TELE TENIS 3   ALEASOFT  Prgramacion de Alvaro Alea. Sonido de Alvaro alea Graficos de Alvaro Alea Proibida su reproducion $4:0:0:4   730 ($x(2):y(2):p(2) 20comp=1:sc1=0:sc2=0:z$="0" (yb))):500 .49150191 p(2)=-1 -32766191 p(2)=2 i=12 a=(y(i)+p(i),x(i)) p(i)=2p(i)=1 La=32 0;y(i),x(i);" ";y(i)+1,x(i);" ":y(i)=y(i)+p(i) *y(i),x(i);i;"";y(i)+1,x(i);"" &p(i)=0 0i : Dw=(yb+dy,xb+dx) N"w=32 xb=xb+dx:yb=yb+dy: XPw=33!w=34"dx=-dx:0.005y# =,10 :dy=(*3)-1: bw=38&640 l)w=37%0.005y# =,0:dy=-dy v =0.005y# =,5:dx>0sc1=sc1+1:660 sc2=sc2+1 6d=(sc1=15)+2*(sc2=15):scd=1 d0380|:7;10 ,4;"el Jugador ";d;" gana.";12 ,4;"]Jugar otra vez(s/n)?":690  =""690  ="s"  690 i=07 n  "a"+i,n i   K0,60<,126~,126~,126~,126~,60<,0 n   omccZ0I1EFa xycw dARKANOID = = ?  by ALEASOFt 1989  Escrito por Alvaro Alea Graficos de Alvaro Alea sonido de Alvaro Alea Todos los derechos es- tan reservados Proibida "su reprodu- cion. &0:0:0::1  5600 #b$="" ('s$=" " 23,12 ;7;1;"FRONTON";0;6,9 ;1;"";7;" =20 puntos";8,9 ;4;"";7;" =10 puntos";10 ,9 ;2;"";7;" =5 puntos" <14,1;4;"Pulse ESPACIO o DISP para ceder";15,1;"una vida a cambio de una ";16,1;"pantalla nueva." F 200 Pmaximo=0 Ztpuntos=0 dvidas=5 npuntos=0 x _7:12 ,13 :0,160:230,0:0,-160:0 ;1,2;1;b$;2,2;4;b$ .r=56:r,2;2;b$:r bx=9 g19,2;6;"CUALQUIER TECLA PARA ENPEZAR";17,4;"Mueba raqueta con < y >" 0 j19,2;0;s$(28);20,0;s$(32 );17,4;s$(24) @21,0;0;s$(32 ):540:220 :20,bx;0;" ";5;"";0;" ": 6xa=1:ya=1:(*2)=1xa=-xa 210 &x=bx+4:y=11 :xc=x:yc=y bucle principal puntos>1100L110n -=" "Ŧ="0"vidas=vidas-1:110n xc=x+xa:yc=y+ya "explorar el teclado , 470 6{yc=20(yc,xc)=69E0.005y# =,-3:ya=-ya:yc=yc-2:xc=bx+1xc=bx+4xa=-xa:xc=x+xa @7yc=210.05|L,12 :y,x;" ":450 J 470 Tyc=20430 ^ t=(yc,xc) ht=71G410 rt=64@420 ||ya=-ya:xz=xc:yz=yc:yc=yc+ya:510 :t=66B0.005y# =,7:tpuntos=tpuntos+5:540:350^ jt=68D0.005y# =,4:puntos=puntos+10 :tpuntos=tpuntos+10 :540 :350^ jt=65A0.005y# =,2:puntos=puntos+20 :tpuntos=tpuntos+20:540:350^ /xa=-xa:xc=xc+2*xa:0.005y# =,5 yc=1ya=1 3y,x;0;" ";yc,xc;3;"":x=xc:y=yc  250 /vidas=vidas-1:vidas0530 540:220 a$= ?(a$=(8)a$="6")bx>1bx=bx-1:210: @(a$=(9 )a$="7")bx<25bx=bx+1:210:  yz=20 yz,xz;0;" ": 540:10 ,9 ;7;"FIN DEL JUEGO";12 ,4;"Puntos consegidos: ";tpuntos:i=1300,:i:90Z !tpuntos >maximomaximo=tpuntos &s21,14;6;"MAX.";maximo;21,1;"PUNTOS.";tpuntos;21,24;"VIDAS.";vidas: 0i="a""b"+7 :b Di,b Ni X lK0,60<,126~,126~,126~,126~,60<,0 11111111 10000001 10111101 10111101 10111101 10111101 10000001 11111111 FRONTON = @  by ALEASOFt 1989  Escrito por Alvaro Alea Graficos de Alvaro Alea sonido de Alvaro Alea Todos los derechos es- tan reservados Proibida "su reprodu- cion. &0:0:0::1  5600 #b$="" ('s$=" " 23,12 ;7;1;"FRONTON";0;6,9 ;1;"";7;" =20 puntos";8,9 ;4;"";7;" =10 puntos";10 ,9 ;2;"";7;" =5 puntos" <14,1;4;"Pulse ESPACIO o DISP para ceder";15,1;"una vida a cambio de una ";16,1;"pantalla nueva." F 200 Pmaximo=0 Ztpuntos=0 dvidas=5 npuntos=0 x _7:12 ,13 :0,160:230,0:0,-160:0 ;1,2;1;b$;2,2;4;b$ .r=56:r,2;2;b$:r bx=9 g19,2;6;"CUALQUIER TECLA PARA ENPEZAR";17,4;"Mueba raqueta con < y >" 0 j19,2;0;s$(28);20,0;s$(32 );17,4;s$(24) @21,0;0;s$(32 ):540:220 :20,bx;0;" ";5;"";0;" ": 6xa=1:ya=1:(*2)=1xa=-xa 210 &x=bx+4:y=11 :xc=x:yc=y bucle principal puntos>1100L110n -=" "Ŧ="0"vidas=vidas-1:110n xc=x+xa:yc=y+ya "explorar el teclado , 470 6{yc=20(yc,xc)=69E0.005y# =,-3:ya=-ya:yc=yc-2:xc=bx+1xc=bx+4xa=-xa:xc=x+xa @7yc=210.05|L,12 :y,x;" ":450 J 470 Tyc=20430 ^ t=(yc,xc) ht=71G410 rt=64@420 ||ya=-ya:xz=xc:yz=yc:yc=yc+ya:510 :t=66B0.005y# =,7:tpuntos=tpuntos+5:540:350^ jt=68D0.005y# =,4:puntos=puntos+10 :tpuntos=tpuntos+10 :540 :350^ jt=65A0.005y# =,2:puntos=puntos+20 :tpuntos=tpuntos+20:540:350^ /xa=-xa:xc=xc+2*xa:0.005y# =,5 yc=1ya=1 3y,x;0;" ";yc,xc;3;"":x=xc:y=yc  250 /vidas=vidas-1:vidas0530 540:220 a$= ?(a$=(8)a$="6")bx>1bx=bx-1:210: @(a$=(9 )a$="7")bx<25bx=bx+1:210:  yz=20 yz,xz;0;" ": 540:10 ,9 ;7;"FIN DEL JUEGO";12 ,4;"Puntos consegidos: ";tpuntos:i=1300,:i:90Z !tpuntos >maximomaximo=tpuntos &s21,14;6;"MAX.";maximo;21,1;"PUNTOS.";tpuntos;21,24;"VIDAS.";vidas: 0i="a""b"+7 :b Di,b Ni X lK0,60<,126~,126~,126~,126~,60<,0 11111111 10000001 10111101 10111101 10111101 10111101 10000001 11111111 ,bBS aximbpuntobidauntoxyt@ A6-TELE TENIS `    ALEASOFT  Prgramacion de Alvaro Alea. Sonido de Alvaro alea Graficos de Alvaro Alea Proibida su reproducion $4:0:0:4   730 ($x(2):y(2):p(2) 20comp=1:sc1=0:sc2=0:z$="0" <)2,10 ;7;"TELE TENIS" F08,2;"]UNO O DOS JUGADORES (1/2)?" Pi$= ZVi$="1"12 ,8;"A para subir";14,8;"Z para bajar":120x di$="2"10 ,3;"Jugador 1: A para subir";12 ,14;"Z para bajar":14,3;"Jugador 2: K para subir";16,14;"m para bajar":comp=0 :120x n 80P xi=0200:i (x(1)=2:y(1)=3 *x(2)=29:y(2)=18 e$="":f$="" 1,0; 400 i=319 7i,0;6;f$;0;30;6;f$ i 20,0; 400 V0,0;1;"Jugador 1: 00";0,19;1;"Jugador 2: 00" n=(*2) =i=12:y(i),x(i);"";y(i)+1,x(i);"":i /n=0xb=21:dx=1:280 xb=19:dx=-1 &yb=12 :dy=(*3)-1 " 440 ,oxb=xb:oyb=yb:scd=0 6 580D @oyb,oxb;0;" " Jyb,xb;7;"" Tscd=0290" ^yb,xb;0;" " h 380| r 240 |m0,11 ;1;z$(2-((sc1)));sc1;0,30;2;z$(2-((sc2)));sc2  i=164@ 5;e$; i  a$= a$="a" p(1)=-1 a$="z" p(1)=2 Scomp=1p(2)=(2*(y(2)<(yb))-(y(2)>(yb))):500 a$="k" p(2)=-1 a$="m" p(2)=2 i=12 a=(y(i)+p(i),x(i)) p(i)=2p(i)=1 La=32 0;y(i),x(i);" ";y(i)+1,x(i);" ":y(i)=y(i)+p(i) *y(i),x(i);i;"";y(i)+1,x(i);"" &p(i)=0 0i : Dw=(yb+dy,xb+dx) N"w=32 xb=xb+dx:yb=yb=dy: XPw=33!w=34"dx=-dx:0.005y# =,10 :dy=(*3)-1: bw=38&640 l)w=37%0.005y# =,0:dy=-dy v =0.005y# =,5:dx>0sc1=sc1+1:660 sc2=sc2+1 6d=(sc1=15)+2*(sc2=15):scd=1 d0380|:7;10 ,4;"el Jugador ";d;" gana.";12 ,4;"]Jugar otra vez(s/n)?":690  =""690  ="s"  690 i=07 n  "a"+i,n i   K0,60<,126~,126~,126~,126~,60<,0 n   omccZ0I2EFa"xycw%A