10 RESTORE 170
     FOR n=1 TO 19
     READ a$
     FOR m=0 TO 7
     READ a
     POKE USR a$+m,a
     NEXT m
     NEXT n
  20 PAPER 4
     INK 0
     BRIGHT 1
     BORDER 2
     CLS 
     OVER 0
  30 LET lx=1
     LET ly=1
     LET px=4
     LET py=4
     LET x$="*"
     DIM e$(2,6)
     LET pe=0
  40 PRINT INK 6; FLASH 1;AT 1,8;"%%% FUTB�LIN %%%"; FLASH 0; INK 2;AT 2,2;"por Gines G.M. para M.HOBBIT"; INK 0;AT 5,4;"PARTIDO DE LA JORNADA";AT 10,1;"EQUIPO 1 :";AT 12,1;"EQUIPO 2 :";AT px,py;"�"; PAPER 7;AT 10,11;"      ";AT 12,11;"      "
  50 PRINT #0;"INTRODUCE LOS NOMBRES"
  60 FOR n=1 TO 2
     FOR m=1 TO 6
  70 PRINT PAPER 7;AT 10,11;e$(1);AT 12,11;e$(2)
  80 IF INKEY$=x$ THEN GO TO 80
  90 LET x$=INKEY$
 100 PRINT ; INK 8; OVER 1; PAPER 8; FLASH 8;AT px,py;"�"
     LET px=px+lx 
     LET py=py+ly
 110 PRINT ; INK 8; OVER 1; PAPER 8; FLASH 8;AT px,py;"�"
     LET lx=lx+(-2*lx AND (px>20 OR px<1))
     LET ly=ly+(-2*ly AND (py>30 OR py<1))
 120 LET co=CODE x$
     IF (co>64 AND co<91) OR (co>96 AND co<123) OR co=32 THEN LET e$(n,m)=x$
     NEXT m
     NEXT n
     GO TO 150
 130 IF co=12 AND m>1 THEN LET m=m-1
     LET e$(n,m)=" "
     GO TO 70
 140 GO TO 90
 150 PRINT PAPER 7;AT 12,16;x$
     INPUT "DURACION (1-10):";dura
     IF dura >10 OR dura <1 THEN GO TO 150
 160 RESTORE 160
     DIM w$(4,9)
     FOR n=1 TO 4
     READ l$
     LET w$(n)=l$
     NEXT n
     DATA "� ALTA !","AL POSTE","FUERA","POR POCO"
 170 DATA "a",63,31,17,20,32,20,8,39,"b",252,132,130,252,16,31,32,33,"c",30,19,18,30,34,66,126,0,"d",0,128,192,192,64,128,128,0
 180 DATA "e",128,128,128,128,128,0,128,128,"f",92,36,164,100,20,12,0,0,"g",0,1,3,3,2,1,1,0,"h",1,1,1,1,1,0,1,1,"i",58,36,37,38,40,48,0,0,"j",240,248,136,46,2,46,16,228,"k",127,161,65,191,88,248,84,172
 190 DATA "l",120,200,72,120,68,66,126,0,"p",63,33,34,60,36,36,36,60,"q",66,66,60,34,34,33,49,97,"r",226,242,242,114,12,18,18,12
 200 DATA "m",48,72,72,48,110,95,111,87,"n",174,220,172,84,108,60,66,66,"o",60,36,36,36,60,68,132,252,"s",60,70,193,153,153,131,98,60
 210 DATA 10,0,3,15,2,0,19,4,2,15,5,1,12,5,2,9,6,1,6,6,1,2,7,2,6,8,2,9,9,2,12,10,0,15,11,1,19,12,0,15,13,0,12,14,1
 220 DATA 8,16,2,5,17,0,1,18,0,5,19,2,8,20,0,11,21,1,14,22,1,18,23,1,14,24,2,11,24,2,8,25,1,5,25,2,1,26,1,5,28,0,10,31,4
 230 PAPER 4
     INK 7
     OVER 0
     CLS 
     PLOT 0,0
     DRAW 0,175
     DRAW 255,0
     DRAW 0,-175
     DRAW -255,0
     PLOT 124,175
     DRAW 0,-175
     CIRCLE 124,87,20
 240 PLOT 0,46
     DRAW 26,0
     DRAW 0,76
     DRAW -26,0
     PLOT 0,22
     DRAW 56,0
     DRAW 0,131
     DRAW -56,0
     PLOT 56,50
     DRAW 0,70,1.5
 250 PLOT 255,46
     DRAW -26,0
     DRAW 0,76
     DRAW 26,0
     PLOT 255,22
     DRAW -56,0
     DRAW 0,131
     DRAW 56,0
     PLOT 199,50
     DRAW 0,70,-1.5
 260 PLOT 0,7
     DRAW 7,-7,-2
     PLOT 0,168
     DRAW 7,7,2
     PLOT 255,168
     DRAW -7,7,-2
     PLOT 255,7
     DRAW -7,-7,2
     INK 0
 270 IF pe=1 THEN LET pe=0
     RETURN 
 280 RESTORE 210
     DIM p(30,3)
     FOR n=1 TO 30
     READ a,b,c
     LET p(n,1)=a+1
     LET p(n,2)=b
     LET p(n,3)=c
     NEXT n
 290 FOR n=2 TO 29
 300 IF p(n,3)=0 THEN PRINT BRIGHT 1; PAPER 7;AT p(n,1),p(n,2);" "
 310 IF p(n,3)=1 THEN LET a=p(n,1)-2
     LET b=p(n,2)-2
     PRINT AT a,b;"��";AT a+1,b;"��";AT a+2,b;"��"; PAPER 7; BRIGHT 1;AT a+2,b+2;" "
 320 IF p(n,3)=2 THEN LET a=p(n,1)-2
     LET b=p(n,2)+1
     PRINT ; OVER (1 AND n=27);AT a,b;"��";AT a+1,b;"��";AT a+2,b;"��"; BRIGHT 1; PAPER 7;AT a+2,b-1;" "
 330 NEXT n
 340 PRINT AT 8,0;"�";AT 12,31;"�"; AT 9,0;"�";AT 13,31;"�";AT 10,0;"�";AT 14,31;"�"; PAPER 7; BRIGHT 1;AT 11,0;" ";AT 11,31;" "
 350 PRINT #0;"PULSA UNA TECLA PARA TIRAR"
 360 PRINT INK 7;AT 0,1;"1a P.";AT 0,7;E$(1);" 0";AT 0,16;E$(2);" 0";AT 13,14; INK 0; PAPER 7;"�"
     LET t=15
     LET l=1
     LET p1=0 
     LET p2=0
     LET dado=1
 370 FOR y=1 TO 2
     LET a$="SAQUE INICIAL"
     GO SUB 570
     LET a$=STR$ y+"a PARTE"
     GO SUB 570
     FOR n=1 TO dura*10+INT (RND*dura)
     LET dado=INT (RND*6)+1
 380 IF dado=7 THEN LET dado=1
 385 IF (E$(1)="ordena" AND l=1) OR (E$(2)="ordena" AND l=-1) THEN GO TO 400
 390 IF INKEY$="" THEN PRINT AT 1,1;dado
     LET dado=dado+1
     PAUSE 3
     GO TO 380
 400 FOR q=1 TO 60
     PRINT AT 1,1;dado
     NEXT q
 410 FOR m=1 TO dado
 420 PRINT ; BRIGHT 1; PAPER 7;AT p(t,1),p(t,2);" "
 430 LET t=t+1*l
 440 IF t=0 THEN GO TO 590
 450 IF t=31 THEN GO TO 620
 460 PRINT ; BRIGHT 1; PAPER 7;AT p(t,1),p(t,2);"�"
     PAUSE 10
 470 BEEP .015,l*6
     NEXT m
 480 IF t=2 AND dado=6 THEN LET a$="FUERA DE JUEGO"
     GO SUB 570
     PRINT PAPER 7;AT 7,6;"�";AT 16,2;" "
     LET t=7
     LET l=1
     GO TO 540
 490 IF t=29 AND dado=6 THEN LET a$="FUERA DE JUEGO"
     GO SUB 570
     PRINT PAPER 7;AT 15,24;"�";AT 6,28;" "
     LET t=24
     LET l=-1
     GO TO 540
 500 IF t=1 OR t=30 THEN LET a$="��PARADON!!"
     GO SUB 570
 510 IF t=13 OR t=18 THEN LET a$="FUERA..."
     GO SUB 570
     LET a$="SAQUE DE BANDA"
     GO SUB 570
     LET l=-l
     GO TO 540
 520 IF p(t,3)=1 OR p(t,3)=3 THEN LET l=1
 530 IF p(t,3)=2 OR p(t,3)=4 THEN LET l=-1
 540 PRINT ; INK 7;AT 0,1;y;"a P.";AT 0,7;e$(1);" ";p1;AT 0,16;e$(2);" ";p2;AT 0,28;INT ((n/dura)*4.5);"'"
     NEXT n
 550 PRINT AT p(t,1),p(t,2); PAPER 7;" ";AT 9,16;"�"
 560 LET a$="FINAL "+STR$ y+" PARTE"
     GO SUB 570
     PAUSE 200
     LET l=-1
     LET t=16
     NEXT y
     FOR k=1 TO 3
     LET a$="FINAAAL "
     GO SUB 570
     NEXT k
     GO TO 670
 570 OVER 1
     PRINT AT 1,10;a$
     FOR q=1 TO 12
     BEEP .01,35
     BEEP .01,65
     NEXT q
     PAUSE 50
 580 PRINT INK 7;AT 1,10;a$
     OVER 0
     RETURN 
 590 IF dado-m>0 THEN LET a$="�HUI!..."
     GO SUB 570
     LET a$=w$(1+INT (RND*4))
     PRINT ; PAPER 7;AT 7,6;"�"
     GO SUB 570
     LET t=7
     LET l=1
     GO TO 540
 600 GO SUB 650
     LET t=15
     PRINT PAPER 7;AT 13,14;"�"
     LET l=1
     LET p2=p2+1
     IF p2 > p1 AND p2>2 THEN LET a$="QUE GOLEADA"
     GO SUB 570
 610 GO TO 540
 620 IF dado-m>0 THEN LET a$="�HUI!..."
     GO SUB 570
     LET a$=w$(1+INT (RND*4))
     PRINT ; PAPER 7;AT 15,24;"�"
     GO SUB 570
     LET t=24
     LET l=-1
     GO TO 540
 630 GO SUB 650
     LET t=16
     PRINT ; PAPER 7;AT 9,16;"�"
     LET l=-1
     LET p1=p1+1
     IF p1 > p2 AND p1>2 THEN LET a$="QUE GOLEADA"
     GO SUB 570
 640 GO TO 540
 650 FOR r=1 TO 5
     RESTORE 650
     FOR e=17 TO 21
     READ z$
     PRINT ; OVER 1; PAPER 7;AT e,8;z$
     BEEP .005,(e*4+0)-40
     BEEP .005,(e*4+1)-40
     BEEP .005,(e*4+2)-40
     BEEP .005,(e*4+3)-40
     BEEP .005,(e*4+4)-40
     NEXT e
     NEXT r
 660 RESTORE 650
     LET a$="�GOL!"
     GO SUB 570
     FOR e=17 TO 21
     READ z$
     PRINT ; OVER 1; PAPER 4; INK 7;AT e,8;z$
     NEXT e
     PRINT AT 20,12; PAPER 7;" "
     RETURN 
     DATA "���� ���� �  ","�    �  � �  ","� �� �  � �  ","�  � �  � �  ","���� ���� ���"
 670 IF p1=p2 THEN LET a$="EMPATE A "+STR$ p1
     GO SUB 570
     LET a$="PENALTIS"
     GO SUB 570
     GO SUB 700
     GO TO 670
 680 IF p1> p2 THEN PRINT AT 1,3;e$(1);" GANADOR POR ";p1;"-";p2
     PAUSE 100
     PAUSE 100
     PRINT AT 21,0;"PULSE PARA VOLVER A JUGAR "
     PAUSE 0
     RUN 
 690 PRINT AT 1,3;e$(2);" GANADOR POR ";p1;"-";p2
     PAUSE 100
     PAUSE 100
     PRINT AT 21,0;"PULSE PARA VOLVER A JUGAR "
     PAUSE 0
     RUN 
 700 DIM b$(2,5)
     LET pe=1
     GO SUB 230
 710 PRINT AT 8,0;"�";AT 9,0;"�";AT 10,0;"�"; PAPER 7;AT 11,0;" "
 720 FOR n= 4 TO 8
     LET c=p(n,1)
     LET f=p(n,2)
     PRINT AT c-2,f+1;"��";AT c-1,f+1;"��";AT c,f+1;"�� ";n-2; PAPER 7 ;AT c,f;" "
     NEXT n
 730 FOR m=1 TO 5
     FOR l=1 TO 2
     PRINT AT 3,23;e$(1);" ";p1;AT 5,23;e$(2);" ";p2
     LET u$=e$(l)
     LET a$="TIRA EL "+u$
     GO SUB 570
 740 LET dado=INT (RND*6)+1
     PRINT AT 1,1;dado
 750 LET dado=dado+1
     IF dado=7 THEN LET dado=1
 760 IF INKEY$="" THEN PRINT AT 1,1;dado
     GO TO 750
 770 PRINT AT 1,1;dado
     LET a$="PREPARADO PARA TIRAR"
     GO SUB 570
 780 IF dado=1 THEN LET a$="MUY FLOJO, FALLASTE"
     GO SUB 570
     LET b$(l,m)="O"
     GO TO 850
 790 PAPER 7
 800 LET a=8
     FOR n=4 TO 8
     PRINT AT p(a,1),p(a,2);" ";AT p(n,1),p(n,2);"�"
     LET a=n
     IF INKEY$="" THEN PAUSE 2
     NEXT n
     GO TO 800
 810 PAPER 4
     FOR q=1 TO 100
     NEXT q
 820 IF n-2=dado THEN PRINT AT p(n,1),p(n,2); PAPER 7;" "; PAPER 4;"� "; PAPER 7;AT 11,0;"�"
     LET a$="GOOL"
     GO SUB 570
     PRINT AT p(n,1),p(n,2)+2;"�"; PAPER 7;AT 11,0;" "
     LET p1=p1+(1 AND l=1)
     LET p2=p2+(1 AND l=2)
     LET b$(l,m)="1"
     GO TO 850
 830 PRINT AT p(n,1),p(n,2); PAPER 7;" "; PAPER 4;"� ";AT 10,1;"�"
     LET b$(l,m)="O"
     PRINT AT p(n,1),p(n,2)+2;"�"
 840 LET a$="FALLASTE"
     GO SUB 570
     PRINT AT 10,1;" "
 850 PRINT AT 3,23;e$(1);" ";p1;AT 4,23;b$(1);AT 5,23;e$(2);" ";p2;AT 6,23;b$(2)
     NEXT l
     NEXT m
     PAUSE 200
     RETURN