![ÿXNù‹@ ÿpN¹ŠÀAùöFCùöFEùN¹‹‚Iúÿþ'< m~'(ÿˆ m~Aèÿ²N¹Šd''<N¹†¶J›fNùòæIúÿþN¹ÞAùôªNÐIúÿþ'<N¹½T'<N¹†T'<N¹…æ'<( Ñ“-[ÿúIúÿþ'<N¹½T'<N¹†T'<N¹…æ'<( Ñ“-[ÿôIúÿþ m~'(ÿ| m~Aèÿ¾N¹Šd' m~'(ÿˆ m~Aèÿ¾N¹Šd' ‘“N¹½L'< N¹‡2J›fNùôªIúÿþ m~'(ÿ| m~Aèÿ¸N¹Šd''.ÿú Ñ“'< m~'(ÿˆ m~Aèÿ²N¹Šd ›Iúÿþ m~'(ÿ| m~Aèÿ¾N¹Šd''< m~'(ÿˆ m~Aèÿ²N¹Šd ›Iúÿþ'<'< m~'(ÿˆ m~Aèÿ²N¹Šd ›Iúÿþ'< : View Erase 9 Bload "b13.pac",13 : Bload "b14.pac",14 Unpack 13 To 3 : Curs Off : Screen Hide Unpack 14 To 4 : Screen Hide Screen 2 Reserve As Chip Work 6,60300 Bload "WAM1.SAM",6 Sam Raw 15,Start(6),60300,10000 Screen 2 : Get Palette 2 Bob 1,230,120,90 : Sprite 2,399,160,91 Move Y 2,"(1,1,20)(1,-1,20)L" : Move On 4 If Joy(0)<16 and Joy(1)<16 Then Goto 4 Move Off : Sprite Off Erase 6 Rem Routine di Inizializzazione Rem ##################################################################### Rem Rem ... Inizializzazione Rem 45 Dim SQU$(32) : Restore 46 : For I=1 To 32 : Read SQU$(I) : Next I SQU1=1 : SQU2=2 46 Data "ROLLER MONZA ","HC MONZA ","TRISSINO " Data "VERCELLI ","NOVARA "," CGC VIAREGG." Data "AMATORI LODI ","FORTE D. MARMI "," HOCKEY CASTIGL." Data "GRANATA LODI ","SANDRIGO ","BREGANZE " Data "REGGIANA ","SEREGNO ","THIENE " Data "VALDAGNO " Data "ROLLER MONZA","HC MONZA","TRISSINO","VERCELLI","NOVARA" Data "CGC VIAREGGIO","AMATORI LODI","FORTE MARMI","CASTIGLIONE" Data "GRANATA LODI","SANDRIGO","BREGANZE","REGGIANA","SEREGNO" Data "THIENE","VALDAGNO" Dim PROT$(67) : Restore 54 : For T=0 To 66 : Read PROT$(T) : Next T 54 Data "POLA","MILANO","MILANO","TRIESTINA","TRIESTINA","TRIESTINA" Data "TRIESTINA","TRIESTINA","NOVARA","NOVARA","NOVARA","NOVARA" Data "NOVARA","SKATING","NOVARA","TRIESTE","TRIESTE","TRIESTE" Data "TRIESTE","TRIESTE","TRIESTE"," "," ","TRIESTINA" Data "NOVARA","NOVARA","TRIESTE","NOVARA","NOVARA","MONZA","TRIESTINA" Data "MONZA","TRIESTINA","TRIESTINA","MONZA","MODENA","NOVARA","NOVARA" Data "MODENA","MONZA","TRIESTINA","TRIESTINA","TRIESTINA","MONZA" Data "MONZA","TRIESTINA","MONZA","NOVARA","NOVARA","NOVARA","NOVARA" Data "NOVARA","NOVARA","NOVARA","BREGANZE","NOVARA","TRISSINO" Data "BREGANZE","GIOVINAZZO","LODI","REGGIO","VERCELLI","VERCELLI" Data "NOVARA","VERCELLI","NOVARA","MONZA" Dim CCOL(8) : Dim CCOLS(3,16) : Restore 58 For I=1 To 8 : Read CCOL(I) : Next I For I=1 To 16 : For J=1 To 3 : Read CCOLS(J,I) : Next J : Next I 58 Data 1,$FFF,$8CC,$8D,$F22,$F82,$FC4,$2D0 Data 2,3,3,5,5,3,4,4,3,8,7,3,3,3,3,1,2,3,5,7,3,5,4,3,7,1 Data 3,2,2,3,7,7,3,5,1,3,5,2,3,8,8,3,6,6,3,2,4,3,2,2,3 Dim CAR(36) : Restore 60 : For I=1 To 36 : Read CAR(I) : Next I 60 Data 16,16,16,15,15,15,16,16,9,16,16,15,16,16,16,16,16,16,16 Data 15,16,16,16,16,15,16,16,12,16,16,16,16,16,16,16,16 61 DUR=5 62 Fade 4 : Wait 48 : Gosub 29000 63 Dim FRAME(3) : Restore 64 : For I=0 To 3 : Read FRAME(I) : Next I 64 Data 0,1,2,1 65 C_FRAM1=0 : C_FRAM2=0 66 Dim DRZ(10) : Restore 67 : For I=0 To 10 : Read DRZ(I) : Next I 67 Data 1,1,1,1,1,1,1,1,1,1,1 68 Dim BAL_POS(1,12) : Restore 69 For I=1 To 12 : Read BAL_POS(0,I),BAL_POS(1,I) : Next I 69 Data -3,-8,6,-8,10,-9,11,-4,11,5,10,7,6,8,-3,8,-8,7,-11,5,-11,-4,-8,-9 70 Dim XPL(10),YPL(10) : Restore 71 For I=0 To 10 : Read XPL(I),YPL(I) : Next I 71 Data 10,10,152,190,152,200,152,210,152,220,152,230 Data 168,190,168,200,168,210,168,220,168,230 72 Dim OBB(2,10) For I=1 To 10 : For J=0 To 2 : OBB(J,I)=0 : Next J : Next I Dim OTT(16),QUAR(8),SEMI(4),FINA(2) DIF=4 : DES=2 : LEF=3 : MAN=1 : OLD_DRZ=1 : OLD_DRZ2=1 KX=0 : KY=0 : KX2=0 : KY2=0 : MOV=0 : MOV2=0 : BAL_FLG=1 : BAL_PL=MAN IND=37 : YND=16 : VB=0 : AUM=6 : GOL1=0 : GOL2=0 : GOL=0 : PARTITA=1 COPPA=0 : GO1=0 : GO2=0 : BRP=10 : RIT=1 Ink 1,14, Text 82,147,"PRESS FIRE" Ink ,0, 74 QQ=0 : If Joy(0)<16 and Joy(1)<16 Then 74 75 Flash Off : Ink 3,0, : Bar 35,140 To 186,154 : Ink 0,0, Bar 36,141 To 185,153 76 T=Rnd(66) : If T=21 or T=22 Then Goto 76 77 Curs Off : Locate 5,18 : Pen 2 : Paper 0 : Print 1922+T;" - " PR$="" : K$="" : Q=1 : Clear Key 78 While K$="" K$=Inkey$ Wend 81 If Asc(K$)<>8 and Asc(K$)<>127 Then Goto 83 82 K$="" If Q>1 Q=Q-1 Mid$(PR$,Q,Q)=" " PR$=Mid$(PR$,1,Q-1) Locate 13+Q,18 : Print " " Goto 78 Else Goto 78 End If 83 If Asc(K$)=13 Then Goto 86 84 K$=Upper$(K$) : If Asc(K$)<65 or Asc(K$)>90 Then K$="" : Goto 78 85 PR$=PR$+K$ : Q=Q+1 : K$="" : Locate 14,18 : Print PR$ If Len(PR$)<10 Then Goto 78 86 Locate 14,18 : Print PR$ : QQ=QQ+1 87 If PR$=PROT$(T) Then Goto 90 88 If QQ=3 Then End 89 Goto 75 90 Ink 3,0, : Bar 35,131 To 196,163 : Ink 0,0, : Bar 36,132 To 195,162 Locate 5,17 : Print "1 - PRINCIPIANTE" Locate 5,18 : Print "2 - JUNIORES" Locate 5,19 : Print "3 - PROFESSIONISTA" : Clear Key 91 K$=Inkey$ : If K$="" Then 91 Rem If Not(K$="1" or K$="2" or K$="3") Then 91 92 If K$="1" Then RIT=3000 93 If K$="2" Then RIT=1000 94 Screen Copy 3,32,60,198,165 To 2,32,60 : View 95 Gosub 12000 : Gosub 13700 : If COPPA=1 Then DUR=5 96 Reserve Zone 2 Set Zone 1,35,78 To 46,98 : Set Zone 2,273,78 To 284,98 Limit Bob 0,0 To 340,177 97 PARA=15700 : SQUADRAAVV=24000 : If PARTITA=1 Then SQUADRAAVV=16000 : PARA=15500 Curs Off 98 Paper 15 : Pen 12 : Locate 2,23 : Print SQU$(SQU2+16) Locate 23,23 : Print SQU$(SQU1+16) : Locate 14,23 : Pen 2 Print GOL2 : Locate 36,23 : Print GOL1 Gosub 21500 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) Gosub 21000 : Gosub 21060 99 TIME=100 : Timer=0 : Locate 19,23 : Pen 6 : Print Using "##";TIME 100 Rem * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 101 Gosub 7000 : Rem Obbiettivi 102 Gosub 8000 : Rem Lettura Joystick 1 103 If PARTITA=1 Gosub 16000 Else Gosub 24000 End If 108 If Timer>3000 Timer=0 : Inc TIME : Locate 19,23 : Pen 6 : Print Using "##";TIME : End If 109 Inc C_FRAM1 If C_FRAM1>4 : C_FRAM1=0 : Inc C_FRAM2 If C_FRAM2>3 : C_FRAM2=0 End If : End If 112 I=DES : Gosub 8500 113 I=LEF : Gosub 8500 114 If MOV=1 Then XPL(MAN)=XPL(MAN)+KX*4 : YPL(MAN)=YPL(MAN)+KY*4 200 Gosub 9000 210 If Joy(1)>15 and Joy(1)-16<>0 and BAL_FLG=1 BAL_FLG=0 : DBX=((Joy(1) and 4)=4)+Abs((Joy(1) and 8)=8) DBY=((Joy(1) and 1)=1)+Abs((Joy(1) and 2)=2) VB=0 : AUM=6 : End If 220 If BAL_FLG=0 Then Gosub 10000 230 Gosub 11000 240 If GOL<>0 Then GOL=0 : Gosub 21500 : Gosub 21000 : Gosub 21060 500 If RIT<>1 Then For T=0 To RIT : Next T : Rem CICLO DI RITARDO 990 TUS$=Inkey$ If TIME-100<>DUR and Asc(TUS$)<>27 Then Goto 100 991 If Asc(TUS$)=27 GOL1=0 : GOL2=0 : Bob Off 14 : Bob Off 13 : Gosub 23000 : Goto 95 : End If 997 If COPPA=0 Locate 19,23 : Pen 6 : Print Using "##";TIME Volume 10 : Play 1,18,2 : Play 2,20,2 : Play 2,22,2 For T=25 To 60 Step 5 : Volume T : Wait 1 : Next T Gosub 22000 : GOL1=0 : GOL2=0 : Gosub 23000 : Goto 95 End If 998 Locate 19,23 : Pen 6 : Print Using "##";TIME Volume 0 : Play 1,18,2 : Play 2,20,2 : Play 3,22,2 For T=5 To 60 Step 5 : Volume T : Wait 1 : Next T : Wait 70 For T=60 To 0 Step -6 : Volume T : Wait 10 : Next T Gosub 22000 : GO1=GOL2 : GO2=GOL1 : GOL1=0 : GOL2=0 If GO1=GO2 Then Gosub 13700 : Gosub 28000 : Goto 98 999 Gosub 23500 : Goto 25900 7000 Rem Obbiettivi 7010 If OBB(0,DES)=1 Then 7030 7015 TTTT=Rnd(30)/4*4+40 : QQQQ=Rnd(30)/4*4+40 7020 If Abs(XPL(MAN)-XPL(DES))>10 OBB(2,DES)=YPL(MAN)+TTTT OBB(1,DES)=XPL(MAN) : OBB(0,DES)=1 If OBB(2,DES)>160 OBB(2,DES)=160 End If End If 7030 If OBB(0,LEF)=1 Then 7050 7040 If Abs(XPL(MAN)-XPL(LEF))>10 OBB(2,LEF)=YPL(MAN)-QQQQ OBB(1,LEF)=XPL(MAN) : OBB(0,LEF)=1 If OBB(2,LEF)<16 OBB(2,LEF)=16 End If End If 7050 Return 8000 Rem Lettura Joystick 1 8010 MOV=1 : J=Joy(1) and 15 : If J=0 Then MOV=0 : Return 8020 If J=1 Then 8100 If J=8 Then 8150 If J=2 Then 8200 If J=4 Then 8250 If J=9 Then 8120 If J=10 Then 8170 If J=6 Then 8220 If J=5 Then 8270 8100 If OLD_DRZ=1 or OLD_DRZ=12 or OLD_DRZ=11 or OLD_DRZ=10 or OLD_DRZ=9 or OLD_DRZ=8 DRZ(MAN)=1 : OLD_DRZ=DRZ(MAN) : KX=0 : KY=-1 : IND=37 : YND=16 : Return End If 8110 DRZ(MAN)=2 : OLD_DRZ=DRZ(MAN) : KX=0 : KY=-1 : IND=37 : YND=16 : Return 8120 If OLD_DRZ=2 or OLD_DRZ=3 or OLD_DRZ=4 DRZ(MAN)=3 : OLD_DRZ=DRZ(MAN) : KX=1 : KY=-1 : Return : End If 8130 If OLD_DRZ=1 or OLD_DRZ=12 or OLD_DRZ=11 or OLD_DRZ=10 or OLD_DRZ=9 DRZ(MAN)=2 : OLD_DRZ=DRZ(MAN) : Return : End If 8140 DRZ(MAN)=3 : OLD_DRZ=DRZ(MAN) : Return 8150 If OLD_DRZ=4 or OLD_DRZ=3 or OLD_DRZ=2 or OLD_DRZ=1 or OLD_DRZ=12 or OLD_DRZ=11 DRZ(MAN)=4 : OLD_DRZ=DRZ(MAN) : KX=1 : KY=0 : Return : End If 8160 DRZ(MAN)=5 : OLD_DRZ=DRZ(MAN) : KX=1 : KY=0 : Return 8170 If OLD_DRZ=5 or OLD_DRZ=6 or OLD_DRZ=7 DRZ(MAN)=6 : OLD_DRZ=DRZ(MAN) : KX=1 : KY=1 : Return : End If 8180 If OLD_DRZ=4 or OLD_DRZ=3 or OLD_DRZ=2 or OLD_DRZ=1 or OLD_DRZ=12 DRZ(MAN)=5 : OLD_DRZ=DRZ(MAN) : Return : End If 8190 DRZ(MAN)=7 : OLD_DRZ=DRZ(MAN) : Return 8200 If OLD_DRZ=7 or OLD_DRZ=6 or OLD_DRZ=5 or OLD_DRZ=4 or OLD_DRZ=3 or OLD_DRZ=2 DRZ(MAN)=7 : OLD_DRZ=DRZ(MAN) : KX=0 : KY=1 : IND=38 : YND=-18 : Return : End If 8210 DRZ(MAN)=8 : OLD_DRZ=DRZ(MAN) : KX=0 : KY=1 : IND=38 : YND=-18 : Return 8220 If OLD_DRZ=8 or OLD_DRZ=9 or OLD_DRZ=10 DRZ(MAN)=9 : OLD_DRZ=DRZ(MAN) : KX=-1 : KY=1 : Return : End If 8230 If OLD_DRZ=7 or OLD_DRZ=6 or OLD_DRZ=5 or OLD_DRZ=4 and OLD_DRZ=3 DRZ(MAN)=8 : OLD_DRZ=DRZ(MAN) : Return : End If 8240 DRZ(MAN)=10 : OLD_DRZ=DRZ(MAN) : Return 8250 If OLD_DRZ=10 or OLD_DRZ=9 or OLD_DRZ=8 or OLD_DRZ=7 or OLD_DRZ=6 or OLD_DRZ=5 DRZ(MAN)=10 : OLD_DRZ=DRZ(MAN) : KX=-1 : KY=0 : Return : End If 8260 DRZ(MAN)=11 : OLD_DRZ=DRZ(MAN) : KX=-1 : KY=0 : Return 8270 If OLD_DRZ=11 or OLD_DRZ=12 or OLD_DRZ=1 DRZ(MAN)=12 : OLD_DRZ=DRZ(MAN) : KX=-1 : KY=-1 : Return : End If 8280 If OLD_DRZ=10 or OLD_DRZ=9 or OLD_DRZ=8 or OLD_DRZ=7 or OLD_DRZ=6 DRZ(MAN)=11 : OLD_DRZ=DRZ(MAN) : Return : End If 8290 DRZ(MAN)=1 : OLD_DRZ=DRZ(MAN) : Return 8500 Rem Spostamento Sprite 8510 Rem ala DEStra 8520 If Abs(OBB(1,I)-XPL(I))<3 and Abs(OBB(2,I)-YPL(I))<3 Then OBB(0,I)=0 : Return 8530 If Abs(OBB(1,I)-XPL(I))>Abs(OBB(2,I)-YPL(I)) and XPL(I)Abs(OBB(2,I)-YPL(I)) and XPL(I)>OBB(1,I) XPL(I)=XPL(I)-4 : DRZ(I)=11 : Return : End If 8550 If XPL(I)OBB(2,I) XPL(I)=XPL(I)+4 : YPL(I)=YPL(I)-4 : DRZ(I)=3 : Return : End If 8560 If XPL(I)OBB(1,I) and YPL(I)OBB(1,I) and YPL(I)>OBB(2,I) XPL(I)=XPL(I)-4 : YPL(I)=YPL(I)-4 : DRZ(I)=12 : Return : End If 8590 If YPL(I)OBB(2,I) Then YPL(I)=YPL(I)-4 : DRZ(I)=2 : Return 8610 Return 8700 Rem 8720 If OBB(1,I)=XPL(I) and OBB(2,I)=YPL(I) Then OBB(0,I)=0 : Return 8730 If Abs(OBB(1,I)-XPL(I))>Abs(OBB(2,I)-YPL(I)) and XPL(I)Abs(OBB(2,I)-YPL(I)) and XPL(I)>OBB(1,I) XPL(I)=XPL(I)-2 : DRZ(I)=11 : Return : End If 8750 If XPL(I)OBB(2,I) XPL(I)=XPL(I)+2 : YPL(I)=YPL(I)-2 : DRZ(I)=3 : Return : End If 8760 If XPL(I)OBB(1,I) and YPL(I)OBB(1,I) and YPL(I)>OBB(2,I) XPL(I)=XPL(I)-2 : YPL(I)=YPL(I)-2 : DRZ(I)=12 : Return : End If 8790 If YPL(I)OBB(2,I) Then YPL(I)=YPL(I)-2 : DRZ(I)=2 : Return 8810 Return 9000 Rem Rem Output Grafico Rem Rem Visualizzazione Sprite e Porte 9036 For T=1 To 3 9037 If YPL(T)<=64 or YPL(T)>=110 Then 9064 9038 If XPL(T)>=66 and XPL(T)<=250 Then 9064 9041 If YPL(T)<71 and XPL(T)>18 and XPL(T)<66 YPL(T)=64 : OBB(0,T)=0 : Goto 9064 : End If 9042 If YPL(T)>103 and XPL(T)>18 and XPL(T)<66 YPL(T)=110 : OBB(0,T)=0 : Goto 9064 : End If 9043 If YPL(T)<71 and XPL(T)>250 and XPL(T)<302 YPL(T)=64 : OBB(0,T)=0 : Goto 9064 : End If 9044 If YPL(T)>103 and XPL(T)>250 and XPL(T)<302 YPL(T)=110 : OBB(0,T)=0 : Goto 9064 : End If 9045 If XPL(T)>18 and XPL(T)<36 Then XPL(T)=18 : OBB(0,T)=0 : Goto 9064 9046 If XPL(T)>250 and XPL(T)<280 Then XPL(T)=250 : OBB(0,T)=0 : Goto 9064 9047 If XPL(T)>36 and XPL(T)<66 Then XPL(T)=66 : OBB(0,T)=0 : Goto 9064 9048 If XPL(T)>280 and XPL(T)<302 Then XPL(T)=302 : OBB(0,T)=0 : Goto 9064 9064 Next T 9065 T=1 : If XPL(T)<=305 and XPL(T)>=15 and YPL(T)>=15 and YPL(T)<=161 Then 9115 9070 If XPL(T)>306 Then XPL(T)=306 : Goto 9115 9075 If XPL(T)<16 Then XPL(T)=16 : Goto 9115 9085 If YPL(T)<16 Then YPL(T)=16 : Goto 9115 9095 If YPL(T)>160 Then YPL(T)=160 9115 Bob 2,XPL(2),YPL(2),DRZ(2)*3+(FRAME(C_FRAM2))-2 9125 Bob 3,XPL(3),YPL(3),DRZ(3)*3+(FRAME(C_FRAM2))-2 9130 Bob MAN,XPL(MAN),YPL(MAN),DRZ(MAN)*3+(FRAME(C_FRAM2))*(MOV=1) 9135 T=77 : If YPL(5)<100 and(Joy(1)=2 or Joy(1)=6 or Joy(1)=10) Then Inc YPL(5) : T=78 9136 If YPL(5)>76 and(Joy(1)=1 or Joy(1)=5 or Joy(1)=9) Then Dec YPL(5) : T=76 9137 Bob 5,XPL(5),YPL(5),T 9145 If BAL_FLG=1 T=XPL(BAL_PL)+BAL_POS(0,DRZ(BAL_PL)) Q=YPL(BAL_PL)+BAL_POS(1,DRZ(BAL_PL)) : XPL(0)=T : YPL(0)=Q : End If 9147 If BAL_FLG=2 T=XPL(6)+BAL_POS(0,DRZ(6)) Q=YPL(6)+BAL_POS(1,DRZ(6)) : XPL(0)=T : YPL(0)=Q : End If 9150 Bob 15,XPL(0),YPL(0),39 9155 Bob 14,XPL(MAN)-2,YPL(MAN)+YND,IND 9166 Bob 4,XPL(DIF),YPL(DIF),DRZ(MAN)*3+(FRAME(C_FRAM2))*(MOV=1) 9185 Return 9195 Rem 10000 If VB=50 Then AUM=6 : Return 10010 If VB=10 Then AUM=5 10020 If VB=15 Then AUM=4 10030 If VB=22 Then AUM=3 10035 If VB=30 Then AUM=2 10038 If VB=40 Then AUM=1 10040 If XPL(0)<9 Then DBX=1 : Sam Play 1 : Goto 10180 10050 If YPL(0)<9 Then DBY=1 : Sam Play 1 : Goto 10180 10060 If XPL(0)>311 Then DBX=-1 : Sam Play 1 : Goto 10180 10070 If YPL(0)>167 Then DBY=-1 : Sam Play 1 : Goto 10180 10080 T=Zone(X Bob(15),Y Bob(15)) : If T<>0 Then 10150 10090 If YPL(0)>97 and YPL(0)<105 and XPL(0)>276 and XPL(0)<298 DBY=1 : Sam Play 2 : Goto 10170 : End If 10100 If YPL(0)>73 and YPL(0)<81 and XPL(0)>276 and XPL(0)<298 DBY=-1 : Sam Play 2 : Goto 10170 : End If 10110 If YPL(0)>73 and YPL(0)<81 and XPL(0)>22 and XPL(0)<44 DBY=-1 : Sam Play 2 : Goto 10170 : End If 10120 If YPL(0)>97 and YPL(0)<105 and XPL(0)>22 and XPL(0)<44 DBY=1 : Sam Play 2 : Goto 10170 : End If 10130 If XPL(0)>22 and XPL(0)<30 and YPL(0)>75 and YPL(0)<103 DBX=-1 : Sam Play 2 : Goto 10170 : End If 10140 If XPL(0)>290 and XPL(0)<298 and YPL(0)>75 and YPL(0)<103 DBX=1 : Sam Play 2 : Goto 10170 : End If 10150 If T=1 and DBX=-1 Inc GOL1 : Bob Off 15 Locate 36,23 : Pen 2 : Print GOL1 : GOL=1 Sam Play 3 : Wait 200 : Return : End If 10160 If T=2 and DBX=1 Inc GOL2 : Bob Off 15 Locate 14,23 : Pen 2 : Print GOL2 : GOL=1 Sam Play 3 : Wait 200 : Return : End If 10170 Rem 10180 XPL(0)=XPL(0)+DBX*AUM : YPL(0)=YPL(0)+DBY*AUM : Inc VB : Return 11000 ZZZ=Bob Col(1) : If Col(15)=False Then 11003 11001 If VB>14 Then BAL_FLG=1 : VB=0 : Return 11002 If BAL_FLG=2 VB=0 : AUM=6 : DBX=Rnd(2)-1 : DBY=Rnd(2)-1 : BAL_FLG=0 : Return : End If 11003 ZZZ=Bob Col(6) : If Col(15)=False Then 11006 11004 If VB>14 Then BAL_FLG=2 : VB=0 : OBB(0,6)=0 : Return 11005 If BAL_FLG=1 VB=0 : AUM=6 : DBX=Rnd(2)-1 : DBY=Rnd(2)-1 : BAL_FLG=0 : Return : End If 11006 ZZZ=Bob Col(15) : If(Col(5) and(Joy(1)>15)) Gosub 15000 : VB=0 : Return : End If 11007 If PARTITA<>1 Then 11009 11008 If Col(10) Then Gosub 15500 : VB=0 : Return 11009 If(Col(10) and(Joy(0)>15)) Then Gosub 15700 : VB=0 : Return 11110 If BAL_FLG=1 Then Return 11120 T=1 : T1=Abs(XPL(0)-XPL(1))+Abs(YPL(0)-YPL(1)) 11130 T2=Abs(XPL(0)-XPL(2))+Abs(YPL(0)-YPL(2)) : If T215 or Joy(0)>15 Then Goto 12020 Wait 10 12025 If(Joy(1)=1)<>0 and M>15 Gosub 12055 : M=M-35 : Wait 10 : End If 12030 If(Joy(1)=2)<>0 and M<155 Gosub 12055 : M=M+35 : Wait 10 : End If 12035 If Joy(1)>15 or Joy(0)>15 On(M-15)/35+1 Goto 12200,13000,13100,14000,12100 End If Ink 13 : Box 243,M To 302,M+29 Ink 2 : Box 242,M-1 To 303,M+30 : Goto 12025 12050 Return 12055 Ink 11 : Box 243,M To 302,M+29 : Box 242,M-1 To 303,M+30 : Return 12100 Rem Info del Programma 12105 If Joy(1)>15 or Joy(0)>15 Then 12105 12110 Screen Copy 4,0,0,96,200 To 2,224,0 Screen To Front 2 : Screen 2 : View Wait 50 12115 If Joy(1)<15 and Joy(0)<15 Then Goto 12115 12120 Screen Copy 3,224,0,320,200 To 2,224,0 View : Goto 12020 12200 Rem Rem ... Scelta delle Squadre 12212 If Joy(1)>15 or Joy(0)>15 Then 12212 Wait 20 12215 Screen Copy 4,96,0,193,200 To 2,224,0 Screen 2 : View Curs Off : Ink 14 Bar 0,0 To 200,180 12220 Pen 13 : Paper 7 : SQU1$=SQU$(SQU1) : SQU2$=SQU$(SQU2) Locate 30,3 : Print Mid$(SQU1$,1,8) : Locate 30,4 Print Mid$(SQU1$,9,8) : Locate 30,13 : Print Mid$(SQU2$,1,8) Locate 30,14 : Print Mid$(SQU2$,9,8) 12225 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) 12230 If Joy(1)>15 or Joy(0)>15 Then 12230 12231 Goto 12635 12235 Rem Scelta Nome Squadra 1 12240 Ink 13 : Box 237,11 To 307,81 : Ink 2 : Box 238,22 To 304,40 Goto 12250 12245 Ink 11 : Box 237,11 To 307,81 : Box 238,22 To 304,40 : Return 12250 If(Joy(1)=2)+(Joy(0)=2)<>0 Then Gosub 12245 : Wait 7 : Goto 12280 12255 If(Joy(1)=4)+(Joy(0)=4)<>0 : SQU1=SQU1-1 : Wait 10 If SQU1<1 : SQU1=16 : End If : End If 12260 If(Joy(1)=8)+(Joy(0)=8)<>0 : SQU1=SQU1+1 : Wait 10 If SQU1>16 : SQU1=1 : End If : End If 12265 If Joy(1)>15 or Joy(0)>15 A=30 : B=3 : Gosub 13200 : SQU$(SQU1)=A$ : SQU$(SQU1+16)=A$ If SQU1=SQU2 Locate 30,13 Print Mid$(SQU$(SQU2),1,8) : Locate 30,14 Print Mid$(SQU$(SQU2),9,8) End If : End If Rem Goto 12250 12270 SQU1$=SQU$(SQU1) : Locate 30,3 : Print Mid$(SQU1$,1,8) Locate 30,4 : Print Mid$(SQU1$,9,8) : Colour 5,CCOL(CCOLS(1,SQU1)) Colour 4,CCOL(CCOLS(2,SQU1)) : Colour 3,CCOL(CCOLS(3,SQU1)) 12275 Goto 12250 12280 Rem Scelta Colore 1 maglietta Squadra 1 12285 Ink 13 : Box 237,11 To 307,81 : Ink 2 : Box 280,63 To 300,71 Goto 12295 12290 Ink 11 : Box 237,11 To 307,81 : Ink 11 : Box 280,63 To 300,71 : Return 12295 If(Joy(1)=2)+(Joy(0)=2)<>0 Then Gosub 12290 : Wait 7 : Goto 12325 12300 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12290 : Wait 7 : Goto 12235 12305 If(Joy(1)=4)+(Joy(0)=4)<>0 CCOLS(1,SQU1)=CCOLS(1,SQU1)-1 : Wait 10 If CCOLS(1,SQU1)<1 : CCOLS(1,SQU1)=8 End If : End If 12310 If(Joy(1)=8)+(Joy(0)=8)<>0 CCOLS(1,SQU1)=CCOLS(1,SQU1)+1 : Wait 10 If CCOLS(1,SQU1)>8 : CCOLS(1,SQU1)=1 End If : End If 12315 Colour 5,CCOL(CCOLS(1,SQU1)) If SQU1=SQU2 Then Colour 10,CCOL(CCOLS(1,SQU2)) 12320 Goto 12295 12325 Rem Scelta Colore 2 maglietta Squadra 1 12330 Ink 13 : Box 237,11 To 307,81 : Ink 2 : Box 280,71 To 300,79 Goto 12340 12335 Ink 11 : Box 237,11 To 307,81 : Ink 11 : Box 280,71 To 300,79 : Return 12340 If(Joy(1)=2)+(Joy(0)=2)<>0 Then Gosub 12335 : Wait 7 : Goto 12415 12345 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12335 : Wait 7 : Goto 12280 12350 If(Joy(1)=4)+(Joy(0)=4)<>0 CCOLS(2,SQU1)=CCOLS(2,SQU1)-1 : Wait 10 If CCOLS(2,SQU1)<1 CCOLS(2,SQU1)=8 End If : End If 12355 If(Joy(1)=8)+(Joy(0)=8)<>0 CCOLS(2,SQU1)=CCOLS(2,SQU1)+1 : Wait 10 If CCOLS(2,SQU1)>8 CCOLS(2,SQU1)=1 End If : End If 12360 Colour 4,CCOL(CCOLS(2,SQU1)) If SQU1=SQU2 Then Colour 9,CCOL(CCOLS(2,SQU2)) 12365 Goto 12340 12415 Rem Scelta Nome Squadra 2 12420 Ink 13 : Box 237,91 To 307,161 : Ink 2 : Box 238,102 To 304,120 Goto 12430 12425 Ink 11 : Box 237,91 To 307,161 : Ink 11 : Box 238,102 To 304,120 Return 12430 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12425 : Wait 7 : Goto 12325 12435 If(Joy(1)=2)+(Joy(0)=2)<>0 Then Gosub 12425 : Wait 7 : Goto 12465 12440 If(Joy(1)=4)+(Joy(0)=4)<>0 SQU2=SQU2-1 : Wait 10 If SQU2<1 : SQU2=16 End If : End If 12445 If(Joy(1)=8)+(Joy(0)=8)<>0 SQU2=SQU2+1 : Wait 10 If SQU2>16 SQU2=1 End If : End If 12450 If Joy(1)>15 or Joy(0)>15 A=30 : B=13 : Gosub 13200 SQU$(SQU2)=A$ : SQU$(SQU2+16)=A$ If SQU2=SQU1 Locate 30,3 Print Mid$(SQU$(SQU1),1,8) : Locate 30,4 : Print Mid$(SQU$(SQU1),9,8) End If End If Rem Goto 12430 12455 SQU2$=SQU$(SQU2) : Locate 30,13 : Print Mid$(SQU2$,1,8) Locate 30,14 : Print Mid$(SQU2$,9,8) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) 12460 Goto 12430 12465 Rem Scelta Colore 1 maglietta Squadra 2 12470 Ink 13 : Box 237,91 To 307,161 : Ink 2 : Box 280,143 To 300,151 Goto 12480 12475 Ink 11 : Box 237,91 To 307,161 : Ink 11 : Box 280,143 To 300,151 Return 12480 If(Joy(1)=2)+(Joy(0)=2)<>0 Then Gosub 12475 : Wait 7 : Goto 12510 12485 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12475 : Wait 7 : Goto 12415 12490 If(Joy(1)=4)+(Joy(0)=4)<>0 CCOLS(1,SQU2)=CCOLS(1,SQU2)-1 : Wait 10 If CCOLS(1,SQU2)<1 CCOLS(1,SQU2)=8 End If End If 12495 If(Joy(1)=8)+(Joy(1)=8)<>0 CCOLS(1,SQU2)=CCOLS(1,SQU2)+1 : Wait 10 If CCOLS(1,SQU2)>8 CCOLS(1,SQU2)=1 End If End If 12500 Colour 10,CCOL(CCOLS(1,SQU2)) : If SQU2=SQU1 Then Colour 5,CCOL(CCOLS(1,SQU1)) 12505 Goto 12480 12510 Rem Scelta Colore 2 maglietta Squadra 2 12515 Ink 13 : Box 237,91 To 307,161 : Ink 2 : Box 280,151 To 300,159 Goto 12525 12520 Ink 11 : Box 237,91 To 307,161 : Ink 11 : Box 280,151 To 300,159 Return 12525 If(Joy(1)=2)+(Joy(0)=2)<>0 Then Gosub 12520 : Wait 7 : Goto 12635 12530 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12520 : Wait 7 : Goto 12465 12535 If(Joy(1)=4)+(Joy(0)=4)<>0 CCOLS(2,SQU2)=CCOLS(2,SQU2)-1 : Wait 10 If CCOLS(2,SQU2)<1 CCOLS(2,SQU2)=8 End If End If 12540 If(Joy(1)=8)+(Joy(0)=8)<>0 CCOLS(2,SQU2)=CCOLS(2,SQU2)+1 : Wait 10 If CCOLS(2,SQU2)>8 CCOLS(2,SQU2)=1 End If End If 12545 Colour 9,CCOL(CCOLS(2,SQU2)) If SQU2=SQU1 Then Colour 4,CCOL(CCOLS(2,SQU1)) 12550 Goto 12525 12635 Rem Uscita 12640 Ink 13 : Box 290,174 To 308,187 : Goto 12655 12645 Ink 11 : Box 290,174 To 308,187 : Return 12655 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12645 : Wait 7 : Goto 12510 12656 If(Joy(1)=4)+(Joy(0)=4)<>0 Then Gosub 12645 : Wait 7 : Goto 12700 12660 If(Joy(1)>15 or Joy(0)>15) and SQU1<>SQU2 Get Palette(3) Screen Copy 3 To 2 : Screen Show 2 : Goto 12020 : End If 12665 Goto 12655 12700 Rem Gestione Disco Load 12710 Ink 13 : Box 261,165 To 283,187 : Goto 12730 12720 Ink 11 : Box 261,165 To 283,187 : Return 12730 If(Joy(1)=4)+(Joy(0)=4)<>0 Then Gosub 12720 : Wait 7 : Goto 12800 12740 If(Joy(1)=8)+(Joy(0)=8)<>0 Then Gosub 12720 : Wait 7 : Goto 12635 12741 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12720 : Wait 7 : Goto 12510 12742 If Joy(1)<15 and Joy(0)<15 Then Goto 12730 12745 Screen Copy 2 To 4 : Show F$=Fsel$("*.dat","CARICO I DATI") 12750 Hide : Screen Copy 9 To 2 : Screen Copy 9 To 3 If F$="" Then Goto 12799 12755 Reserve As Work 7,560 : Bload F$,7 12760 T=Start(7) : For X=0 To 31 : For Y=0 To 15 Mid$(SQU$(X+1),Y+1,1)=Chr$(Peek(T+(X*16)+Y)) Next Y : Next X 12765 For X=0 To 15 : For Y=0 To 2 CCOLS(Y+1,X+1)=Peek(T+512+(X*3)+Y) Next Y : Next X 12770 Erase 7 12775 SQU1$=SQU$(SQU1) : SQU2$=SQU$(SQU2) : Locate 30,3 Print Mid$(SQU1$,1,8) : Locate 30,4 : Print Mid$(SQU1$,9,8) Locate 30,13 : Print Mid$(SQU2$,1,8) : Locate 30,14 Print Mid$(SQU2$,9,8) 12780 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) 12799 Goto 12730 12800 Rem Gestione Disco Save 12810 Ink 13 : Box 237,165 To 259,187 : Goto 12830 12820 Ink 11 : Box 237,165 To 259,187 : Return 12830 If(Joy(1)=8)+(Joy(0)=8)<>0 Then Gosub 12820 : Wait 7 : Goto 12700 12835 If(Joy(1)=1)+(Joy(0)=1)<>0 Then Gosub 12820 : Wait 7 : Goto 12510 12840 If Joy(1)<128 and Joy(0)<128 Then Goto 12830 12845 Reserve As Work 7,600 : T=Start(7) For X=T To T+511 : Poke X,32 : Next X For X=T+512 To T+559 : Poke X,0 : Next X 12850 For X=0 To 31 : For Y=0 To 15 Poke T+(X*16)+Y,Asc(Mid$(SQU$(X+1),Y+1,1)) Next Y : Next X 12855 For X=0 To 15 : For Y=0 To 2 Poke T+512+(X*3)+Y,CCOLS(Y+1,X+1) Next Y : Next X 12860 Screen Copy 2 To 3 : Show F$=Fsel$("*.dat","SALVO I DATI") 12865 Hide : Unpack 13 To 3 : Unpack 13 To 2 If F$="" Then Erase 7 : Goto 12899 12866 TT=-1 : For X=1 To Len(F$) 12867 If Mid$(F$,X,1)="." Then TT=X-1 12868 Next X 12869 If TT=-1 Then TT=Len(F$) 12870 F$=Mid$(F$,1,TT)+".DAT" : Bsave F$,T To T+560 : Erase 7 12899 Goto 12830 13000 Rem 13010 Rem partita per 1 giocatore 13020 Rem 13030 PARTITA=1 : COPPA=0 : BRP=10 13090 Goto 13300 13100 Rem ** 13110 Rem partita per 2 giocatori 13120 Rem ** 13130 PARTITA=2 : COPPA=0 13190 Goto 13300 13200 Rem ** 13201 Rem Editor Nome Squadre 13202 Rem ** 13205 A$=" " : C=1 : CC=0 : Clear Key 13210 Locate A+1,B : Print Space$(7) : Locate A,B+1 : Print Space$(8) Pen 2 : Paper 7 : Inverse On : Locate A,B : Print " " : Inverse Off 13215 If Joy(1)>15 or Joy(0)>15 Then 13215 13220 B$=Upper$(Inkey$) : D=Asc(B$) If(D<65 or D>90) and(D<48 or D>57) and D<>32 and D<>8 and D<>13 Goto 13220 End If 13221 If D=32 and C=1 Then 13220 13223 If D=32 Then Inc CC : If CC>1 Then 13220 13225 If D=13 A$=A$+Space$(16-Len(A$)) : Pen 13 : Locate A,B Print Mid$(A$,1,8) : Locate A,B+1 : Print Mid$(A$,9,8) Wait 20 : Return : End If 13230 If D=8 and C=1 Inverse On : Locate A,B : Print " " Inverse Off : Mid$(A$,C,1)=" " : Goto 13220 : End If 13235 If D=8 and C=9 Locate A,B+1 : Print " " : Inverse On Locate A+7,B : Print " " : Inverse Off : Mid$(A$,C-1,2)=" " Dec C : Goto 13220 : End If 13236 If D=8 and C=17 Inverse On : Locate A+7,B+1 : Print " " Inverse Off : Mid$(A$,16,1)=" " : Dec C : Goto 13220 : End If 13240 If D=8 and C<9 Locate A+C-1,B : Print " " : Inverse On Locate A+C-2,B : Print " " : Inverse Off : Mid$(A$,C-1,2)=" " Dec C : Goto 13220 : End If 13245 If D=8 and C>8 Locate A+C-9,B+1 : Print " " : Inverse On Locate A+C-10,B+1 : Print " " : Inverse Off : Mid$(A$,C-1,2)=" " Dec C : Goto 13220 : End If 13250 If D=13 or D=127 Then 13220 13255 If C>8 and C<17 Locate A+C-9,B+1 : Print B$ : Mid$(A$,C,1)=B$ : Inc C : End If 13260 If C<9 Then Locate A+C-1,B : Print B$ : Mid$(A$,C,1)=B$ : Inc C 13265 If C<9 Then Inverse On : Locate A+C-1,B : Print " " : Inverse Off 13270 If C>8 and C<17 Inverse On : Locate A+C-9,B+1 : Print " " : Inverse Off : End If 13275 Goto 13220 13300 Rem 13305 Rem Durata 13310 Rem Screen Copy 4,192,0,288,200 To 2,224,0 Screen 2 : View 13315 Rem Ink 0 : Bar 224,0 To 319,199 13320 If Joy(1)>15 or Joy(0)>15 Then Goto 13320 Gosub 13345 : Wait 20 13324 K$=Inkey$ : If Scancode=1 Sprite Off : Fade 5 : Wait 35 Unpack 13 To 3 : Screen Copy 4,144,5,192,24 To 3,96,32 Screen Copy 3 To 2 : Wait 35 : Goto 12020 End If 13325 If(Joy(1)=8)<>0 and DUR<20 For I=1 To 5 : DUR=DUR+1 : Gosub 13345 : Wait 3 : Next I End If 13330 If(Joy(1)=4)<>0 and DUR>5 For I=1 To 5 : DUR=DUR-1 : Gosub 13345 : Wait 3 : Next I End If 13335 If Joy(1)>15 or Joy(0)>15 Then Goto 12050 13340 Goto 13324 13345 B=Int(DUR/10) : A=DUR-(B*10) Screen Copy 4,288,A*17+17,304,A*17+34 To 2,272,53 Screen Copy 4,288,B*17+17,304,B*17+34 To 2,256,53 Rem Screen Copy 3 To 2 Return 13500 Rem 13501 Rem Stampa dei Titoli 13502 Rem 13505 For I=1 To Len(A$) : A=Asc(Mid$(A$,I,1)) : C=I If(A<65 or A>90) and(A<48 or A>57) Then Next I 13510 For I=Len(A$) To 1 Step -1 : A=Asc(Mid$(A$,I,1)) : D=I If(A<65 or A>90) and(A<48 or A>57) Then Next I 13515 J=0 : For I=C To D 13520 A=Asc(Mid$(A$,I,1)) 13525 If A=32 Then J=J+10 : Goto 13540 13530 If A>64 and A<91 Then A=A-65 : J=J+CAR(A+1)+2 : Goto 13540 13535 If A>47 and A<58 Then A=A-48 : J=J+CAR(27+A)+2 : Goto 13540 13540 Next I : J=J-2 13545 J=(220-J)/2 : For I=C To D 13550 A=Asc(Mid$(A$,I,1)) 13555 If A=32 Then J=J+10 : Goto 13570 13560 If A>64 and A<91 A=A-65 : Bob 15,J,B,78+A Wait Vbl : Put Bob 15 : J=J+CAR(A+1)+2 : End If 13565 If A>47 and A<58 A=A-48 : Bob 15,J,B,78+A Wait Vbl : Put Bob 15 : J=J+CAR(27+A)+2 : End If 13570 Next I : Bob Off 15 13575 Return 13700 Rem 13701 Rem Visualizzazione Campo 13702 Rem 13705 Fade 5 : Bload "b11.pac",11 : Unpack 11 To 3 : Screen Hide 13710 Screen Close 2 : Screen Open 2,320,200,16,Lowres : Curs Off : Flash Off Screen Copy 3 To 2 : Screen 2 : Double Buffer For W=0 To 31 : Colour W,0 : Next W Screen To Front 2 : View Fade 5 To 3 Get Sprite Palette $FFFF0000 : Limit Bob 0,0 To 336,160 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) : Wait 20 Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) : Wait 20 Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) : Wait 20 Return 14000 Rem ***************************** 14001 Rem * Coppa * 14002 Rem ***************************** 14005 Curs Off : Pen 6 : Paper 0 : Gosub 14900 : Rem Tabellone 14010 PARTITA=1 : COPPA=1 : FINE=0 : VITT=0 : DUR=5 : OLDUR=DUR VIT$=SQU$(SQU2) : Clear Key 14020 If Joy(1)>15 or Joy(0)>15 Then 14020 14021 K$=Inkey$ : If Scancode=1 Then Goto 14799 14022 If Joy(1)<16 and Joy(0)<16 Then 14021 14025 SQU1=SQU2+1 : If SQU1>16 Then SQU1=SQU1-16 14026 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) 14030 BRP=10 : Gosub 25000 : DUR=OLDUR : If GO2>GO1 Then FINE=1 Gosub 14900 14050 For T=0 To 7 : QUAR(T)=OTT(T*2) : If GO2>GO1 Then QUAR(T)=OTT(T*2+1) 14060 Paper 15 : Pen 8 : Locate 31,3+T : Print GO1 : Locate 33,3+T Print " -";GO2 14070 Gosub 14800 : Next T : Pen 6 14080 For Q=0 To 7 : Locate 18+(14*(Q=Q/2*2)),12+Q/2 14090 Print SQU$(QUAR(Q)) : Next Q 14095 Screen Copy 2 To 3 14100 If Joy(1)>15 or Joy(0)>15 Then 14100 14101 K$=Inkey$ : If Scancode=1 Then Goto 14799 14102 If Joy(1)<16 and Joy(0)<16 Then 14101 14110 SQU2=QUAR(0)-16 : SQU1=QUAR(1)-16 14120 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) 14130 If FINE=0 BRP=20 : Gosub 25000 : DUR=OLDUR If GO2>GO1 : FINE=1 : Goto 14140 : End If : End If Gosub 14900 14131 If FINE=1 Then Gosub 14800 14140 Unpack 9 To 3 : Screen Hide 3 : Get Palette(3) 14150 For T=0 To 3 : SEMI(T)=QUAR(T*2) If GO2>GO1 Then SEMI(T)=QUAR(T*2+1) 14160 Paper 15 : Pen 8 : Locate 31,12+T : Print GO1 : Locate 33,12+T Print " -";GO2 14170 Gosub 14800 : Next T : Pen 6 14180 For Q=0 To 3 : Locate 18+(14*(Q=Q/2*2)),17+Q/2 14190 Print SQU$(SEMI(Q)) : Next Q 14195 Screen Copy 2 To 3 14200 If Joy(1)>15 or Joy(0)>15 Then 14200 14201 K$=Inkey$ : If Scancode=1 Then Goto 14799 14202 If Joy(1)<16 and Joy(0)<16 Then 14201 14210 SQU2=SEMI(0)-16 : SQU1=SEMI(1)-16 14220 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) 14230 If FINE=0 BRP=30 : Gosub 25000 : DUR=OLDUR If GO2>GO1 : FINE=1 : Goto 14240 : End If : End If Gosub 14900 14231 If FINE=1 Then Gosub 14800 14240 Unpack 9 To 2 : Get Palette(2) 14250 For T=0 To 1 : FINA(T)=SEMI(T*2) If GO2>GO1 Then FINA(T)=SEMI(T*2+1) 14260 Paper 15 : Pen 8 : Locate 31,17+T : Print GO1 : Locate 33,17+T Print " -";GO2 14270 Gosub 14800 : Next T : Pen 6 14280 For Q=0 To 1 : Locate 18+(14*(Q=Q/2*2)),21 14290 Print SQU$(FINA(Q)) : Next Q 14295 Screen Copy 2 To 3 14300 If Joy(1)>15 or Joy(0)>15 Then 14300 14301 K$=Inkey$ : If Scancode=1 Then Goto 14799 14302 If Joy(1)<16 and Joy(0)<16 Then 14301 14310 SQU2=FINA(0)-16 : SQU1=FINA(1)-16 14320 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) 14330 If FINE=0 BRP=40 : Gosub 25000 : DUR=OLDUR If GO2>GO1 : FINE=1 : Goto 14340 : End If : End If 14331 If FINE=1 Then Gosub 14800 Gosub 14900 14340 Rem Unpack T Palette(9) 14350 VITT=FINA(0) : If GO2>GO1 Then VITT=FINA(1) 14360 Paper 15 : Pen 8 : Locate 31,21 : Print GO1 : Locate 33,21 Print " -";GO2 14370 If FINE=1 Then Goto 14797 14375 If Joy(1)>15 or Joy(0)>15 Then 14375 14376 If Joy(1)<16 and Joy(0)<16 Then 14376 14380 Fade 5 : Bload "WAM2.SAM",Start(6) : Bload "B7.PAC",9 Unpack 9 To 2 : Sam Raw 15,Start(6),0,10000 Fade 5 To 2 : Wait 7*5 14390 Bload "b8.pac",Start(9) : Unpack 9 To 3 : Appear 3 To 2,45 14797 If Joy(1)>15 or Joy(0)>15 Then 14797 14798 If Joy(1)<16 and Joy(0)<16 Then 14798 14799 Fade 5 : Wait 7*5 : Sprite Off 14800 GO1=Rnd(9) : GO2=Rnd(9) : If GO1=GO2 Then Goto 14800 14890 Return 14900 Rem 14901 Rem Tabellone 14902 Rem Erase 9 Reserve As Chip Work 9,6000 14910 Fade 5 : Screen Hide 2 Bload "b10.pac",9 : Unpack 9 To 2 Screen To Front 2 : Screen 2 : Screen Show : View Get Palette 2 14920 Curs Off : Flash Off : Paper 15 14930 For Q=0 To 15 : Locate 18+(14*(Q=Q/2*2)),3+Q/2 : T=SQU2+Q+16 If T>32 Then T=T-16 14940 Print SQU$(T) : OTT(Q)=T : Next Q 14950 Rem Screen Copy 2 To 4 14990 Return 15000 BAL_FLG=0 : XPL(0)=59 : DBX=1 : FF=0 15010 If YPL(5)<100 and(Joy(1)=18 or Joy(1)=22 or Joy(1)=26) Then YPL(5)=YPL(5)+1 15020 If YPL(5)>76 and(Joy(1)=17 or Joy(1)=21 or Joy(1)=25) Then YPL(5)=YPL(5)-1 15030 T=77+(Joy(1)=18 or Joy(1)=22 or Joy(1)=26)*-1+(Joy(1)=17 or Joy(1)=21 or Joy(1)=25) Bob 5,XPL(5),YPL(5),T 15040 Q=YPL(5)+((Joy(1)=18 or Joy(1)=22 or Joy(1)=26)*-10)+((Joy(1)=17 or Joy(1)=21 or Joy(1)=25)*5)-4 YPL(0)=Q : Bob 15,XPL(0),YPL(0),39 15050 DBY=(Joy(1)=17 or Joy(1)=21 or Joy(1)=25)+(Joy(1)=18 or Joy(1)=22 or Joy(1)=26)*-1 Wait 5 : Inc FF If Joy(1)>15 and FF<10 Then 15010 15100 Return 15500 If XPL(1)<240 or Rnd(100)76 and(Joy(0)=17) Then YPL(10)=YPL(10)-1 15730 T=80+(Joy(0)=18)*-1+(Joy(0)=17) Bob 10,XPL(10),YPL(10),T 15740 Q=YPL(10)+((Joy(0)=18)*-10)+((Joy(0)=17)*5)-4 YPL(0)=Q : Bob 15,XPL(0),YPL(0),39 15750 DBY=(Joy(0)=17)+(Joy(0)=18)*-1 : Wait 5 : Inc FF If Joy(0)>15 and FF<10 Then 15710 15800 Return 16000 Gosub 18000 : Rem obbiettivi 16010 Gosub 17000 : Rem "lettura" joy 2 16015 Gosub 17500 : Rem azione attacco 16020 I=7 : Gosub 8500 16030 I=8 : Gosub 8500 16040 Gosub 19000 : Rem controlli 16050 Gosub 20000 16500 Bob 7,XPL(7),YPL(7),DRZ(7)*3+39 16510 Bob 8,XPL(8),YPL(8),DRZ(8)*3+39 16520 Bob 6,XPL(6),YPL(6),W*3+39 16530 Bob 9,XPL(9),YPL(9),70 16540 T=80 : If YPL(10)>76 and YPL(10)>YPL(0) Then Dec YPL(10) : T=79 16545 If YPL(10)<100 and YPL(10)1)+Abs(XPL(0)-XPL(6)>1) 17010 Q=(YPL(6)-YPL(0)>1)+Abs(YPL(0)-YPL(6)>1) 17020 XPL(6)=XPL(6)+T*4 : YPL(6)=YPL(6)+Q*4 17025 W=OLDW 17030 If T=0 and Q=-1 Then W=1 17031 If T=1 and Q=-1 Then W=3 17032 If T=1 and Q=0 Then W=4 17033 If T=1 and Q=1 Then W=6 17034 If T=0 and Q=1 Then W=7 17035 If T=-1 and Q=1 Then W=9 17036 If T=-1 and Q=0 Then W=10 17037 If T=-1 and Q=-1 Then W=12 17040 OLDW=W : DRZ(6)=W 17400 Return 17500 If BAL_FLG<>2 Then Return 17510 If OBB(0,6)=1 Then 17570 17520 If XPL(6)>260 OBB(0,6)=1 : OBB(1,6)=Rnd(50)/2*2+210 OBB(2,6)=Rnd(150)/2*2+10 : Goto 17570 : End If 17530 If XPL(6)>210 OBB(0,6)=1 : OBB(1,6)=Rnd(50)/2*2+160 OBB(2,6)=Rnd(108)/2*2+30 : Goto 17570 : End If 17540 If XPL(6)>160 OBB(0,6)=1 : OBB(1,6)=Rnd(50)/2*2+110 OBB(2,6)=Rnd(68)/2*2+50 : Goto 17570 : End If 17550 If XPL(6)>110 OBB(0,6)=1 : OBB(1,6)=Rnd(50)/2*2+60 OBB(2,6)=Rnd(28)/2*2+70 : Goto 17570 : End If 17560 OBB(0,6)=1 : OBB(1,6)=Rnd(50)/2*2+60 : OBB(2,6)=Rnd(150)/2*2+10 17570 I=6 : Gosub 8500 : W=DRZ(6) : Q=0 : If XPL(6)<160 Then Q=1 17580 T=Rnd(100) : If T>5 Then Return 17590 DBX=-1 : If XPL(6)<60 Then DBX=Rnd(1) 17600 If Q<>1 Then DBY=Rnd(2)-1 : BAL_FLG=0 : AUM=6 : Return 17609 If YPL(6)<82 Then DBY=1 : BAL_FLG=0 : AUM=6 : Return 17610 If YPL(6)>108 Then DBY=-1 : BAL_FLG=0 : AUM=6 : Return 17620 DBY=0 : BAL_FLG=0 : AUM=6 17900 Return 18000 Rem Obbiettivi due 18010 If OBB(0,7)=1 Then 18030 18015 TTTT=Rnd(30)/2*2+40 : QQQQ=Rnd(30)/2*2+40 18020 If Abs(XPL(6)-XPL(7))>10 OBB(2,7)=YPL(6)+TTTT : OBB(1,7)=XPL(6) : OBB(0,7)=1 If OBB(2,7)>160 : OBB(2,7)=160 : End If : End If 18030 If OBB(0,8)=1 Then 18050 18040 If Abs(XPL(6)-XPL(8))>10 OBB(2,8)=YPL(6)-QQQQ : OBB(1,8)=XPL(6) : OBB(0,8)=1 If OBB(2,8)<16 : OBB(2,8)=16 : End If : End If 18050 Return 19000 If BAL_FLG=2 Then Return 19010 T=6 : T1=Abs(XPL(0)-XPL(6))+Abs(YPL(0)-YPL(6)) 19020 T2=Abs(XPL(0)-XPL(7))+Abs(YPL(0)-YPL(7)) : If T2=110 Then 20110 20020 If XPL(T)>=66 and XPL(T)<=250 Then 20110 20030 If YPL(T)<71 and XPL(T)>18 and XPL(T)<66 YPL(T)=64 : OBB(0,T)=0 : Goto 20110 : End If 20040 If YPL(T)>103 and XPL(T)>18 and XPL(T)<66 YPL(T)=110 : OBB(0,T)=0 : Goto 20110 : End If 20050 If YPL(T)<71 and XPL(T)>250 and XPL(T)<302 YPL(T)=64 : OBB(0,T)=0 : Goto 20110 : End If 20060 If YPL(T)>103 and XPL(T)>250 and XPL(T)<302 YPL(T)=110 : OBB(0,T)=0 : Goto 20110 : End If 20070 If XPL(T)>18 and XPL(T)<36 XPL(T)=18 : OBB(0,T)=0 : Goto 20110 : End If 20080 If XPL(T)>250 and XPL(T)<280 XPL(T)=250 : OBB(0,T)=0 : Goto 20110 : End If 20090 If XPL(T)>36 and XPL(T)<66 XPL(T)=66 : OBB(0,T)=0 : Goto 20110 : End If 20100 If XPL(T)>280 and XPL(T)<302 XPL(T)=302 : OBB(0,T)=0 : Goto 20110 : End If 20110 Next T 20900 Return 21000 Colour 5,CCOL(CCOLS(1,SQU1)) : Colour 4,CCOL(CCOLS(2,SQU1)) Colour 3,CCOL(CCOLS(3,SQU1)) : Colour 10,CCOL(CCOLS(1,SQU2)) Colour 9,CCOL(CCOLS(2,SQU2)) : Colour 8,CCOL(CCOLS(3,SQU2)) XPL(0)=160 : YPL(0)=88 : Bob 15,XPL(0),YPL(0),39 Bob Off 14 : YPL(5)=YPL(5)/2*2 : YPL(10)=YPL(10)/2*2 Bob Off 13 21010 If YPL(5)<160 Then OBB(1,5)=50 21012 If YPL(10)<160 Then OBB(1,10)=268 21020 For T=1 To 5 : I=T : Gosub 8700 : If OBB(0,T)=0 Then DRZ(T)=4 21021 Next T 21030 For T=6 To 10 : I=T : Gosub 8700 : If OBB(0,T)=0 Then DRZ(T)=10 21031 Next T 21032 For T=1 To 5 21033 If YPL(T)>166 Then XPL(T)=152 21034 Next T 21035 For T=6 To 10 21036 If YPL(T)>166 Then XPL(T)=168 21037 Next T 21038 For T=1 To 5 : Bob T,XPL(T),YPL(T),DRZ(T)*3+(FRAME(C_FRAM2))-2 Next T 21039 For T=6 To 10 : Bob T,XPL(T),YPL(T),DRZ(T)*3+39 : Next T 21040 Q=0 : For T=1 To 10 : Q=Q+OBB(0,T) : Next T 21050 If Q<>0 Then Goto 21010 21055 Return 21060 T=Rnd(100)+1 : Wait T : For T=0 To 500 : Bell : Next T 21100 Return 21499 Rem ***************** settaggi per gol segnato ******************* 21500 OBB(1,1)=142 : OBB(2,1)=86 21501 OBB(1,2)=126 : OBB(2,2)=136 21502 OBB(1,3)=126 : OBB(2,3)=36 21503 OBB(1,4)=96 : OBB(2,4)=86 21504 OBB(1,6)=176 : OBB(2,6)=86 21505 OBB(1,7)=192 : OBB(2,7)=136 21506 OBB(1,8)=194 : OBB(2,8)=36 21507 OBB(1,9)=222 : OBB(2,9)=86 21508 OBB(1,5)=150 : OBB(2,5)=86 21509 OBB(1,10)=168 : OBB(2,10)=86 21510 For T=1 To 10 : OBB(0,T)=1 : Next T 21598 Return 22000 Rem ************************ 22010 Rem * FINE PARTITA * 22020 Rem ************************ 22025 For T=1 To 5 : OBB(0,T)=1 : OBB(1,T)=160 : OBB(2,T)=160 : Next T 22026 For T=6 To 10 : OBB(0,T)=1 : OBB(1,T)=160 : OBB(2,T)=160 : Next T 22027 YPL(5)=YPL(5)/2*2 : YPL(10)=YPL(10)/2*2 : Bob Off 14 Bob Off 13 22028 XPL(0)=160 : YPL(0)=88 : Bob 15,XPL(0),YPL(0),39 22030 If GOL1>GOL2 Then AN1=1 : AN2=5 : Goto 22060 22040 Restore 22050 : For I=1 To 5 : Read OBB(1,I),OBB(2,I) : Next I 22050 Data 86,86,96,86,106,86,116,86,126,86 22060 If GOL1140 and XPL(T)<185 Then Goto 22129 22128 If YPL(T)>160 Then YPL(T)=160 22129 Next T 22130 For T=1 To 5 : Bob T,XPL(T),YPL(T),DRZ(T)*3+(FRAME(C_FRAM2))-2 Next T 22140 For T=6 To 10 : Bob T,XPL(T),YPL(T),DRZ(T)*3+39 : Next T 22150 Q=0 : For T=1 To 10 : Q=Q+OBB(0,T) : Next T 22160 If Q<>0 Then Goto 22090 22170 Sam Play 4 : Wait 200 22900 Return 23000 Rem ***************************** 23010 Rem * ripristino menu' iniziale * 23020 Rem ***************************** 23030 Restore 71 : For I=0 To 10 : Read XPL(I),YPL(I) : Next I XPL(0)=100 : YPL(0)=-10 23040 For T=1 To 10 : Bob Off T : Next T Bob Off 15 : Bob Off 23050 Fade 5 : Wait 35 : Unpack 13 To 3 : Screen Hide Screen Close 2 : Screen Open 2,320,200,16,Lowres : Curs Off : Flash Off : Screen Hide Unpack 13 To 2 For C=0 To 31 : Colour C,0 : Next C View Fade 5 To 3 : Wait 52 23060 DIF=4 : DES=2 : LEF=3 : MAN=1 : OLD_DRZ=1 : KX=0 : KY=0 MOV=0 : MOV2=0 : BAL_FLG=1 : BAL_PL=MAN : IND=37 : YND=16 VB=0 : AUM=4 : GOL1=0 : GOL2=0 : GOL=0 : PARTITA=1 23499 Return 23500 Restore 71 : For I=0 To 10 : Read XPL(I),YPL(I) : Next I XPL(0)=100 : YPL(0)=-10 23510 For T=1 To 10 : Bob Off T : Next T Bob Off 15 23520 DIF=4 : DES=2 : LEF=3 : MAN=1 : OLD_DRZ=1 : KX=0 : KY=0 MOV=0 : MOV2=0 : BAL_FLG=1 : BAL_PL=MAN : IND=37 : YND=16 VB=0 : AUM=6 : GOL1=0 : GOL2=0 : GOL=0 : PARTITA=1 23900 Return 24000 Rem *************************** 24001 Rem * routine per 2 giocatori * 24002 Rem *************************** 24010 Gosub 18000 : Rem obbiettivi 24020 Gosub 26000 : Rem "lettura" joy 2 24030 I=7 : Gosub 8500 24040 I=8 : Gosub 8500 24045 If MOV2=1 Then XPL(6)=XPL(6)+KX2*4 : YPL(6)=YPL(6)+KY2*4 24046 Gosub 27000 24047 If Joy(0)>15 and Joy(0)-16<>0 and BAL_FLG=2 BAL_FLG=0 : DBX=((Joy(0) and 4)=4)+Abs((Joy(0) and 8)=8) DBY=((Joy(0) and 1)=1)+Abs((Joy(0) and 2)=2) : VB=0 : AUM=6 : End If 24050 Gosub 19000 : Rem possesso palla 24060 Bob 7,XPL(7),YPL(7),DRZ(7)*3+(FRAME(C_FRAM2))-2+39 24070 Bob 8,XPL(8),YPL(8),DRZ(8)*3+(FRAME(C_FRAM2))-2+39 24080 Bob 6,XPL(6),YPL(6),DRZ(6)*3+(FRAME(C_FRAM2))*(MOV2=1)+39 24090 Bob 9,XPL(9),YPL(9),70 24100 T=80 : If YPL(10)>76 and(Joy(0)=1 or Joy(0)=5 or Joy(0)=9) Then Dec YPL(10) : T=79 24110 If YPL(10)<100 and(Joy(0)=2 or Joy(0)=6 or Joy(0)=10) Then Inc YPL(10) : T=81 24120 Bob 10,XPL(10),YPL(10),T 24130 Bob 13,XPL(6)-2,YPL(6)+YND2,IND2 24900 Return 25000 Rem *************************** 25001 Rem * chiamata per coppa * 25002 Rem *************************** 25005 Gosub 13700 : Goto 96 25900 Return 26000 Rem Lettura Joystick 2 26010 MOV2=1 : J=Joy(0) and 15 : If J=0 Then MOV2=0 : Return 26020 If J=1 Then 26100 26030 If J=8 Then 26150 26040 If J=2 Then 26200 26050 If J=4 Then 26250 26060 If J=9 Then 26120 26070 If J=10 Then 26170 26080 If J=6 Then 26220 26090 If J=5 Then 26270 26100 If OLD_DRZ2=1 or OLD_DRZ2=12 or OLD_DRZ2=11 or OLD_DRZ2=10 or OLD_DRZ2=9 or OLD_DRZ2=8 DRZ(6)=1 : OLD_DRZ2=DRZ(6) : KX2=0 : KY2=-1 IND2=37 : YND2=16 : Return : End If 26110 DRZ(6)=2 : OLD_DRZ2=DRZ(6) : KX2=0 : KY2=-1 : IND2=37 YND2=16 : Return 26120 If OLD_DRZ2=2 or OLD_DRZ2=3 or OLD_DRZ2=4 DRZ(6)=3 : OLD_DRZ2=DRZ(6) : KX2=1 : KY2=-1 : Return : End If 26130 If OLD_DRZ2=1 or OLD_DRZ2=12 or OLD_DRZ2=11 or OLD_DRZ2=10 or OLD_DRZ2=9 DRZ(6)=2 : OLD_DRZ2=DRZ(6) : Return : End If 26140 DRZ(6)=3 : OLD_DRZ2=DRZ(6) : Return 26150 If OLD_DRZ2=4 or OLD_DRZ2=3 or OLD_DRZ2=2 or OLD_DRZ2=1 or OLD_DRZ2=12 or OLD_DRZ2=11 DRZ(6)=4 : OLD_DRZ2=DRZ(6) : KX2=1 : KY2=0 : Return : End If 26160 DRZ(6)=5 : OLD_DRZ2=DRZ(6) : KX2=1 : KY2=0 : Return 26170 If OLD_DRZ2=5 or OLD_DRZ2=6 or OLD_DRZ2=7 DRZ(6)=6 : OLD_DRZ2=DRZ(6) : KX2=1 : KY2=1 : Return : End If 26180 If OLD_DRZ2=4 or OLD_DRZ2=3 or OLD_DRZ2=2 or OLD_DRZ2=1 or OLD_DRZ2=12 DRZ(6)=5 : OLD_DRZ2=DRZ(6) : Return : End If 26190 DRZ(6)=7 : OLD_DRZ2=DRZ(6) : Return 26200 If OLD_DRZ2=7 or OLD_DRZ2=6 or OLD_DRZ2=5 or OLD_DRZ2=4 or OLD_DRZ2=3 or OLD_DRZ2=2 DRZ(6)=7 : OLD_DRZ2=DRZ(6) : KX2=0 : KY2=1 IND2=38 : YND2=-18 : Return : End If 26210 DRZ(6)=8 : OLD_DRZ2=DRZ(6) : KX2=0 : KY2=1 : IND2=38 : YND2=-18 : Return 26220 If OLD_DRZ2=8 or OLD_DRZ2=9 or OLD_DRZ2=10 DRZ(6)=9 : OLD_DRZ2=DRZ(6) : KX2=-1 : KY2=1 : Return : End If 26230 If OLD_DRZ2=7 or OLD_DRZ2=6 or OLD_DRZ2=5 or OLD_DRZ2=4 and OLD_DRZ2=3 DRZ(6)=8 : OLD_DRZ2=DRZ(6) : Return : End If 26240 DRZ(6)=10 : OLD_DRZ2=DRZ(6) : Return 26250 If OLD_DRZ2=10 or OLD_DRZ2=9 or OLD_DRZ2=8 or OLD_DRZ2=7 or OLD_DRZ2=6 or OLD_DRZ2=5 DRZ(6)=10 : OLD_DRZ2=DRZ(6) : KX2=-1 : KY2=0 : Return : End If 26260 DRZ(6)=11 : OLD_DRZ2=DRZ(6) : KX2=-1 : KY2=0 : Return 26270 If OLD_DRZ2=11 or OLD_DRZ2=12 or OLD_DRZ2=1 DRZ(6)=12 : OLD_DRZ2=DRZ(6) : KX2=-1 : KY2=-1 : Return : End If 26280 If OLD_DRZ2=10 or OLD_DRZ2=9 or OLD_DRZ2=8 or OLD_DRZ2=7 or OLD_DRZ2=6 DRZ(6)=11 : OLD_DRZ2=DRZ(6) : Return : End If 26290 DRZ(6)=1 : OLD_DRZ2=DRZ(6) : Return 27000 Rem **************************** 27001 Rem * output giocatore 2 * 27002 Rem **************************** 27036 For T=6 To 8 27037 If YPL(T)<=64 or YPL(T)>=110 Then 27064 27038 If XPL(T)>=66 and XPL(T)<=250 Then 27064 27041 If YPL(T)<71 and XPL(T)>18 and XPL(T)<66 YPL(T)=64 : OBB(0,T)=0 : Goto 27064 : End If 27042 If YPL(T)>103 and XPL(T)>18 and XPL(T)<66 YPL(T)=110 : OBB(0,T)=0 : Goto 27064 : End If 27043 If YPL(T)<71 and XPL(T)>250 and XPL(T)<302 YPL(T)=64 : OBB(0,T)=0 : Goto 27064 : End If 27044 If YPL(T)>103 and XPL(T)>250 and XPL(T)<302 YPL(T)=110 : OBB(0,T)=0 : Goto 27064 : End If 27045 If XPL(T)>18 and XPL(T)<36 Then XPL(T)=18 : OBB(0,T)=0 : Goto 27064 27046 If XPL(T)>250 and XPL(T)<280 Then XPL(T)=250 : OBB(0,T)=0 : Goto 27064 27047 If XPL(T)>36 and XPL(T)<66 Then XPL(T)=66 : OBB(0,T)=0 : Goto 27064 27048 If XPL(T)>280 and XPL(T)<302 Then XPL(T)=302 : OBB(0,T)=0 : Goto 27064 27064 Next T 27065 T=6 : If XPL(T)<=305 and XPL(T)>=15 and YPL(T)>=15 and YPL(T)<=161 Goto 27100 : End If 27070 If XPL(T)>306 Then XPL(T)=306 : Goto 27100 27075 If XPL(T)<16 Then XPL(T)=16 : Goto 27100 27085 If YPL(T)<16 Then YPL(T)=16 : Goto 27100 27095 If YPL(T)>160 Then YPL(T)=160 27100 Return 28000 Bob 1,5,20,83 28002 Bob 2,30,20,85 28004 Bob 3,65,20,86 28006 Bob 4,105,20,87 28008 Bob 5,135,20,82 28010 Bob 6,180,20,86 28012 Bob 7,220,20,84 28014 Bob 8,230,20,88 28016 Bob 9,270,20,83 28018 Bob 10,305,20,89 28020 Locate 0,15 : Pen 1 : Paper 14 : Centre "3 MINUTI" 28030 Rem ENVEL 9,13000 28800 If Joy(1)>15 or Joy(0)>15 Then 28800 28810 If Joy(1)<16 and Joy(0)<16 Then 28810 28820 Locate 0,15 : Centre " " 28830 28900 DUR=3 : Return 29000 Rem ************************** 29001 Rem * schermo principale * 29002 Rem ************************** 29005 Unpack 13 To 2 For C=0 To 31 : Colour C,0 : Next C View Fade 5 To 3 : Wait 52 29900 Return