AMSTRAD CPC 6128 Manual Del Usario página 409

500
IF INKEY(63)=0
510
IF INKEY(10)=0
520 IF p1sa THEN p1dir=0
530 IF p2sa THEN p2dir=0
540 RETURN
550 '
560 '
570 pt=p1wp+p1dir:IF
580 p1dir=0
590 PEN 1:LOCATE 3,p1wp:CLS#3:PRINT CHR$(209);:RETURN
600 '
610 '
620 pt=p2wp+p2di•:IF
630 p2dir=0
640 PEN 2:LOCATE 18,p2wp:CLS#5:PRINT CHR$(211);:RETURN
650 '
660 '
670 PAPER #4,4:WINDOW #4,4,17,p1wp,p1wp:CLS#4:FRAME:FRAME
680 PAPER #4,0:CLS#4
690 GOTO 570
700 '
710 '
720 PAPER #6,5:WINDOW #6,4,17,p2wp,p2wp:CLS#6:FRAME:FRAME
730 PAPER #6,0:CLS#6
740 GOTO 620
750 '
760 '
770 pwpe=(p1wp=p2wp):IF p1sa AND
132,120,10,0,1,0:PRINT#1,a$(p1sc);:IF
780 IF p2sa AND NOT(p1sa)
(p2sc);:IF p2sc=9
790 IF p1sa THEN SOUND
800 IF p2sa THEN SOUND
810 p1sa=0
820 p2sa=0
830
RETURN
840 '
850 '
860 PEN 6
870 LOCATE 2,10:PRINT"FIN DE LA PARTIDA"
880 IF p1sc=9 THEN INK 1,2,20:INK
890 SOUND 129,1000,0,12,3:SOUND
900 WHILE INKEY$<>"":WEND
910 t!=TIME:WHILE t!+2000>TIME:WEND
920 WHILE INKEY$="":WEND
930 CLS
940 termina=-1
950 RETURN
960 ' 970 '
980 a$(0)="111101101101111"
990 a$(1)="001001001001001"
1000 a$(2)="111001111100111"
1010 a$(3)="111001111001111"
1020 a$(4)="100100101111001"
1030 a$(5)="111100111001111"
THEN p1sa=p1sa-1:IF
THEN p2sa=p2sa-1:IF
pt>25 OR pt<6 THEN RETURN ELSE p1wp=pt
pt>25 OR pt<6 THEN RETURN ELSE p2wp=pt
NOT(p2sa)
AND pwpe THEN p2sc=p2sc+1:SOUND
THEN 860
132,40,70,0,1,1
132,56,70,0,1,1
2,0
130,900,0,12,3
Manual de Amstrad CPC 6128 (revisión 2008) - Página 408
p1sa=-1
THEN AFTER
p2sa=-1
THEN AFTER
AND pwpe THEN p1sc=p1sc+1:SOUND
p1sc=9 THEN 860
ELSE INK 2,6,17:INK
15 770
GOSUB
15 770
GOSUB
132,100,10,0,1,0:PRINT#2,a$
1,0