AMSTRAD CPC 6128 Manual Del Usario página 407

470 LOCATE xb,yb:PRINT
480 punto=0
IF THEN
490 RETURN
500 LOCATE xb+dx,yb+dy:ch$=COPYCHR$(#0)
510 nota=0
520 IF ch$=" " THEN xb=xb+dx:yb=yb+dy:RETURN
530 IF ch$="|" THEN dx=2-dx-2:dy=INT(RND*3)-1:nota=200:RETURN
540
IF
ch$=LEFT$(borde2$,1)
550 IF ch$=borde$
560 RETURN
570 IF dx>0 THEN puntosl=puntosl+1
580 punto=1:nota=2000
590 RETURN
600 p(1)=(INKEY(69)>=0)+(INKEY(72)>=0)+ABS((INKEY(71)>=0)
610 IF comp=1 THEN p(2)=ABS(y(2)<yb)*2+(y(2)>yb):GOTO
620 p(2)=(INKEY(4)>=0)+(INKEY(48)>=0)+ABS((INKEY(5)>=0)+(
630 PEN 3
640 FOR i=1 TO 2
650 LOCATE x(i),y(i)+p(i):ch$=COPYCHR$(#0)
660 IF ch$=" " THEN LOCATE x(i),y(i):PRINT
670 LOCATE x(i),y(i):PRINT
680 NEXT
690 1
PEN
700 RETURN
710 PEN 2:PRINT:PRINT TAB(15)"Ping-Pong":PRINT
720 PEN 3:PRINT:PRINT
730 PRINT:PRINT:PEN
740 PRINT" Jugador 1
750 PRINT" A
760 PRINT" Z
770 PEN 3:PRINT:PRINT
780 PRINT:PRINT:PRINT:PRINT
790 PEN 2
800 PRINT TAB(7)"Elija <1> o <2> jugadores"
810 i$=INKEY$:IF i$<>"1"
820 IF i$="1" THEN
830 MODE 1:RETURN
pel$
420
THEN
570
THEN dy=2-dy-2:nota=250
ELSE
raq$;
TAB(10)"Para mover raquetas: "
1
Jugador 2 Direccion":PRINT
6
3
TAB(14)"o con joysticks"
AND i$<>"2"
comp=1 ELSE comp=0
Manual de Amstrad CPC 6128 (revisión 2008) - Página 406
puntos2=puntos2+1
630
bor$;:y(i)=y(i)+ROUND(p(i)/2)
TAB(15)"---------"
ARRIBA"
ABAJO":PRINT
THEN 810
+(INKEY(73)>=0))*2
INKEY(49)>=0))*2