AMSTRAD CPC 6128 Manual Del Usario página 403

470 340
GOTO
480 '
490 '
500 pelotas=pelotas-1:SOUND 132,19,46,12,2,2:IF
510 GOSUB 660:GOTO
520 '
530 '
540 IF (INKEY(8)=0
550 IF (INKEY(1)=0
560 RETURN
570 '
580 '
590 LOCATE xz,yz:PRINT"
600 '
610 '
620 IF puntos>=maximo THEN maximo=puntos
630 GOSUB 660:puntos=0:pelotas=5:GOTO
640 '
650 '
660 SOUND 130,0,20,13,3,0,31:LOCATE 1,25:PRINT
670 LOCATE 15,25:PRINT "Puntos";puntos:LOCATE 30,25:PRINT "Pelotas";pelotas:RETURN
680 LOCATE 3,23:PRINT"Pulse barra espaciadora para
690 LOCATE 1,25:PRINT SPACE$(40);:RETURN
280
OR INKEY(74)=0) AND
OR INKEY(75)=0) AND
":RETURN
Manual de Amstrad CPC 6128 (revisión 2008) - Página 402
pelotas=0
bx>2 THEN bx=bx-2:
bx<32 THEN bx=bx+2
130
"Maximo";maximo;
empezar":RETURN
THEN GOTO 620
RETURN
:RETURN