Euro Cup  JÿŠê European Championship Cup by Kevin Toms from Personal Computer Games October 1984 Ü0 ('ñh$=" EUROPEAN CHAMPIONSHIP CUP " 2©éx(2):éj$(2):ég(16):éu(2):ét(16):ér$(4,10 ):ém(16):ép(16):ép$(2,12 ):és(16):ét$(16,12 ) 3dñb$=" ":ñu(1)=80P:ñu(2)=80P:ñround=0:ñi1=2:ñro=1 :Ýêx(2)=Success Points,j$()=Input Array,t$()=Team Names,m()=Fixture Store (teams in pairs),u()=Player Points,p$()=Player Names,g()=Team Goals,t()=Team Points,r$()=Cup Round,p()=Ownership subscript,s()=Round reached by team ;Vêb$=12 spaces,round="Teams through to" variable,i1=Input subscript,round=Round in Cup PÎr(xÈ)=º(¥*x+1) d í9000(# Ç ì1000è Èô23658j\,8:î(o$);Êi$ Éú±i$=0Ëì200È ÊIëo=1̱i$:ú((i$(o)>"@")Æ(i$(o)<"["))+(i$(o)=".")=0Ëì200È Ëóo Ñþ Òô23658j\,8:î(o$);Êi$ Óú±i$=0Ëì210Ò ÔIëo=1̱i$:ú((i$(o)>"/")Æ(i$(o)<":"))+(i$(o)=" ")=0Ëì210Ò Õóo ×ñn=°i$ Ûþ Ü(ô23658j\,8:î"PRESS ENTER";Êi$ åþ æñi$=¦:úi$=""Ëì230æ çú¦É""Ëì231ç èúi$<"0"Åi$>"9"Ëì230æ éñi1=2/i1 ê ñj$(i1)=i$ ëúi1=1Ëì230æ ìñn=°j$ ïþ ,<Ù2:Ú9 :û:õÝ1;"TEAMS THROUGH TO ";r$(round) 6õ,,"TEAM","PLAYER",,, @0ëj=1Ì16:ús(j)=roundËõt$(j),p$(p(j)) Eój J í220Ü þ è8Ú6:û:Ù2:õ" EUROPEAN CHAMPIONSHIP CUP " ê;ño$="PLAYER 1 TYPE YOUR NAME- ":í200È:ñp$(1)=i$ ë;ño$="PLAYER 2 TYPE YOUR NAME- ":í200È:ñp$(2)=i$ òëi=1Ì16 üõ"TEAM ";i,t$(i) ói ñj=1:ëi=1Ì16 Gño$=p$(j)+Â6+Â6+"please choose a team number- ":í210Ò $"ún<1Ån>16Ëì1050 %úp(n)>0Ëì1050 )ñp(n)=j . ñj=2/j 8õ¬n,0,,"" Bói Ð êMATCHES Ú2Ù1:Ú9 :û:õh$:õ­7;"DRAW- ";r$(ro) ä(ëi=1Ì2^(5-ro)Í2 î+ñm(i)=¨r(16):ús(m(i))ÉroËì2030î óñs(m(i))=0:ñj=p(m(i)) ø;ñm(i+1)=¨r(16):ús(m(i+1))ÉroËì2040ø ùúp(m(i+1))=jËì2040ø ýñs(m(i+1))=0 #õ,,t$(m(i));" V ";t$(m(i+1))  ói · í220Ü ¸Ù0:Ú6:û:õh$ Â(ëi=1Ì2^(5-ro)Í2 ÇÙ0:Ú6:û:õh$ ÌDõ,,Ù2;Ú7;"MATCH ";(i+1)/2;" COMING UP....." Ö#õ,,t$(m(i));" V ";t$(m(i+1)) àsõ¬14,0;Û1;p$(p(m(i)));Û0,,t$(m(i));" IS YOUR TEAM",,,"YOU HAVE ";u(p(m(i)));" POINTS LEFT" êkõ¬20,0;"HOW MANY POINTS DO YOU WANT TO GIVE TO THIS TEAM? ":í230æ:õ¬20,0,,,, ôún>u(p(m(i)))Ëì3040à þ$ñt(m(i))=n:ñu(p(m(i)))=u(p(m(i)))-n ‹õ¬14,0;Û1;p$(p(m(i+1)));Û0,,t$(m(i+1));" IS YOUR TEAM",,,"YOU HAVE ";u(p(m(i+1)));" POINTS LEFT" kõ¬20,0;"HOW MANY POINTS DO YOU WANT TO GIVE TO THIS TEAM? ":í230æ:õ¬20,0,,,, "ún>u(p(m(i+1)))Ëì3080 &<ñt(m(i+1))=n:ñu(p(m(i+1)))=u(p(m(i+1)))-n 0 í4000  :ói Dúro=4Ëì5000ˆ F9ñro=ro+1:ñu(1)=40(:ñu(2)=40( I%ëi=1Ì16:ñg(i)=0:ói N1ëi=1Ì16:ús(i)=roËñx(p(i))=x(p(i))+ro X"ús(i)=roËñu(p(i))=u(p(i))+5 bói äAÙ7:Ú1:û:õÝ1;" TEAMS LEFT IN THE CUP - " îõ:ëi=1Ì2 ø õp$(i),, ëj=1Ì16 úp(j)=iÆs(j)=roËõ" ";t$(j) ój õ:õ *ói 4 í220Ü Hñj=u(1)-u(2) Rúj=0Ëì3600 \!ñl=1:új<0Ëñl=2 fñk=½(j/10 ) p ëi=1Ìk u]Ù7:Ú0:û:õÝ1;" TEAMS OWNED BY ";p$(l),"--------------------------------",, zëj=1Ì16 „úp(j)=lÆs(j)=roËõj,t$(j) Žój ˜…ño$=p$(l)+Â6+Â6+"YOU HAVE MORE TEAMS LEFT THAN "+p$(2/l)+"-WHICH TEAM WILL YOUGIVE TO "+p$(2/l):í210Ò ¢"ún<1Ån>16Ëì3480˜ ¬úp(n)ÉlÅs(n)ÉroËì3480˜ ¶ñp(n)=2/l Àói  ì2000Ð Ÿâ  HÚ4:Ù9 :û:õ" MATCH ";(i+1)/2;" COMING UP....." ª#õ,,t$(m(i));" V ";t$(m(i+1)) ´0õ,,"POINTS= ";t(m(i));­24;t(m(i+1)) ¹ù ¾ëj=1Ì8 È1ñk=¨r(81Q)-41)+t(m(i))-t(m(i+1)) Ò1úk>20Ëñg(m(i))=g(m(i))+1:ì4080ð ÜBúk<-20Ëñg(m(i+1))=g(m(i+1))+1:ì4080ð æ ì4090ú ðAõt$(m(i));" ";g(m(i));" ";t$(m(i+1));" ";g(m(i+1)) ù+ñk=¨r(200È):ëo=1Ì300,+k:óo úój *õ,,Ù1;Ý1;" FINAL SCORE- " Lõt$(m(i));" ";g(m(i));" ";t$(m(i+1));" ";g(m(i+1)):í220Ü ‰úg(m(i))=g(m(i+1))Ëñg(m(i))=0:ñg(m(i+1))=0:û:õÚ9 ;Ù2;Ý1;"REPLAY--------":í220Ü:ì4000  "Múg(m(i))>g(m(i+1))Ëñs(m(i))=ro+1:ñs(m(i+1))=ro:ì41506 ,(ñs(m(i+1))=ro+1:ñs(m(i))=ro 6)úro<4Ëñround=ro+1:í300, “þ ˆ;ëi=1Ì16:ús(i)=5Ëñx(p(i))=x(p(i))+5 ‰ói ŠÜ1:Ú2:Ù6:û  õ,,,,,,,,,, ’°õ­10 ;"",­7;"",­7;" ",­7;" ",­7;" ",­7;"" œõ­11 ;"",­12 ;"",­13 ;"",­14;"",­15;"",­15;"",­15;"",­15;"" ¦Jõ­11 ;"",­10 ;"",­10 ;"" °aõ¬10 ,14;Ý1;"1984";¬19,12 ;"EUROPEAN";¬20,12 ;"CHAMPIONS" ºëi=1Ì16 Äús(i)É5Ëói Îëj=1Ì12 Ó-út$(i,jÌ12 )=b$(jÌ12 )Ëì5090â Øój âKõÝ1;¬8,16-º((j-1)/2);t$(i,1Ìj-1) ìNõÙ5;Ú0;¬2,0;p$(p(i));" IS THE CUP WINNER",:í220Ü P8Ù6:Ú0:û:õ"---------SUCCESS POINTS---------" Z5õ,,,,p$(1),x(1),,,p$(2),x(2) d-ñi=1:úx(1)