Tabla de contenido
600 IF
w=33
OR
w=34
THEN LET dx
=-dx
:
PLAY "V1507N1g"
:
LET
dy= INT
(
RND
_3 ) -1:
RETURN
610 IF w=
38
THEN GO TO 640
620
IF
w=37
THEN PLAY
"V1507N1c
lO
:
LET dy=-dy
630
RETURN
640 PLAY "03V15#d": IF dx
>0
THE
N LET sc1=sc1+1: GO TO 660
650 LET se2=se2+1
660 LET d=(sc1=15)+2_(se2=15):
LET sed=1
670 IF dú0 THEN GO SUB 380: PRI
NT INK 7; AT 10,4j"El jugad
or "¡d;" gana."¡ AT
12,4 j"]
Jugar otra vez (sin)?": GO
ID
690
680 RETURN
690 IF INKEY$ ="" THEN GO TO 69
o
700 IF INKEY$ ="s" THEN RUN
710 IF INKEY$ ="n" THEN STOP
720
GO TO 690
730
FOR 1=0 TO 7
740 READ n
750 POKE USR "a"+1,n
760 NEXT
i
770 RETURN
780 DATA 0,60,126,126,126,126,6
0,0
Sección 33. Programas de ejemplo
335
Tabla de contenido
