home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / a / amigacricket.dms / amigacricket.adf / autoexec.AMOS / autoexec.amosSourceCode next >
AMOS Source Code  |  1978-02-21  |  56KB  |  1,359 lines
  1. '**************             Cricket Amiga                *******************   
  2. '**************            (c)  DARYL HOLDEN 1991        *******************   
  3. '**************     UNDER EXCLUSIVE LEASE TO PACTRONICS  *******************   
  4. '*************************************************************************** 
  5. '          ***LAST mod If ICATION-21/1/1-E 0.0B 0.0-1 : 10***
  6. TIT
  7. Cls 0 : Flash Off : Curs Off : Hide On : Dim BN(19),B(19,1),BO(1),BR(1),BCNT(1),P1$(18,3),SF$(2),SS$(2),DUM$(12,3),S(20,1),CT$(2),CNT$(2),BTR(2,11)
  8. Dim PRS$(1,10,3),PNM(1)
  9. Global FA,BH,BOWLED,BD,POWER,SCRL$,NS,BTSPEED,HITTING,PT,CD,D,C,SPEED,ANG,JS,PLYER,DUM$()
  10. Global X4,Y4,CATCH,X,Y,JU,OY,NM,P3,OX,LBW,BS1,BS2,BS3,BRN$,RRN$,SCRR$,SCL,SCR,P
  11. Global CTV,P2,B(),BN(),DR,FO,FS,JU$,FR$,FL$,FA$,FD$,F,NO_HITTING,CTH,BCONX,BCONY
  12. Global NT#,A#,B#,T#,P#,P2,P3,T,Q,TME,G,H,P5,DEV,T1,T2,LR$,DU$,FEILDNO,X5,Y5,Y6,P4,BS
  13. Global TY$,Y2#,YC#,Y#,X#,XR,PR,FD1,FDEV,GB,JS1,JS2,COM,RD,N1,N2,N3,N4,DUM,OT,F$,SS$()
  14. Global V1,V2,V3,V4,SL,AR,YG,XG,BRNU$,BRND$,RRNU$,RRND$,NOMORE,TLK,JS1,JS2,SF$(),QCI,DUMF$,DUMC$
  15. Global BO(),BR(),BR,NOV,PIC,CF,QD,MISS_BALL,CPIC,BCNT(),FAT$,BOWL,FLR,FX,FY,FTYPE,EN
  16. Global P1$(),CT$(),BB,S(),NFN,OVER,DUD$,NI,LKL,HP,DG,OS,PCN,Z,OJ,POU,CNT$(),LKL,OJ,DV
  17. Global BTR(),PRS$(),PPPR,PPR,QQV,PNM,PNM(),RM,VRS1,VRS2,BIO
  18. BIO=6 : FTYPE=1 : JS=1 : NI=1 : LKL=0 : DV=0 : PNM(0)=1 : PNM(1)=1
  19. MAIN
  20. Procedure MAIN
  21.    KTR:
  22.    Tempo 15
  23.    Clear Key : Cls 0 : Wait Vbl : Colour 1,$FFF : Pen 1 : Paper 0
  24.    INP:
  25.    Locate 1,10 : Centre "Number of players 1-2" : A$=Input$(1) : Curs Off 
  26.    Cls 0 : Clear Key : COM=0
  27.    If A$<>"1" Then COM=1
  28.    If A$>"2" Then Goto INP
  29.    ERT1:
  30.    Locate 1,10 : Centre "Num of Overs 2-8 or U for Unlimited" : B$=Input$(1) : Curs Off 
  31.    If Val(B$)<1 or Val(B$)>8 Then If Upper$(B$)<>"U" Then Goto ERT1
  32.    Cls 0 : Clear Key 
  33.    Locate 1,10 : Centre "Number of Innings - 1 or 2" : C$=Input$(1) : Curs Off 
  34.    If Val(C$)=1 Then NI=1 : If Val(C$)=2 Then NI=2
  35.    If Val(C$)<1 Then Goto ERT1 : If Val(C$)>2 Then Goto ERT1
  36.    Cls 0 : Clear Key 
  37.    '
  38.    If Upper$(B$)="U"
  39.       OVER=9999
  40.    Else 
  41.       OVER=Val(B$)
  42.    End If 
  43.    '
  44.    NI=Val(C$)
  45.    '
  46.    PLYER=0 : P=1
  47.    F$=""
  48.    L_TEAM
  49.    PLYER=1 : P=2
  50.    F$=""
  51.    L_TEAM
  52.    '
  53.    P=1
  54.    BKY:
  55.    For J=1 To 12 : For K=0 To 3 : DUM$(J,K)="" : Next K : Next J
  56.    Erase 1 : Erase 6 : Load "MASTER:CSYSTEM/back1.abk",6
  57.    MISS10:
  58.    FAT$="M 0,0,50 ; A 8,(193,4)(194,4)(195,4) ; M 380,0,90"
  59.    SCRR$="M 25,0,10" : SCRL$="M -25,0,10" : SCL=1
  60.    PR=2 : XR=1 : YG=-177 : XG=124 : TME=1
  61.    NOV=OVER : DV=OVER
  62.    PLYER=0 : KK=0 : BOWL=0 : BCNT(1)=0 : BCNT(0)=0 : OVER=0
  63.    BO(0)=0 : BR(0)=0 : BCNT(0)=0 : BO(1)=0 : BR(1)=0 : BCNT(1)=0
  64.    For J=1 To 11 : For K=0 To 1 : BTR(K,J)=0 : Next K : Next J
  65.    For LK=1 To NI : BOWL=0 : KK=0 : NOV=DV
  66.    BO(0)=0 : BO(1)=0
  67.    For PLYER=0 To 1
  68.    If PNM>10 Then PNM=1
  69.    PNM=PNM(PLYER)
  70.          BN(9)=145 : B(1,0)=155 : B(1,1)=172
  71.          FTYPE=1 : DUD$="1" : PFLD : DUD$=""
  72.          FLR=Rnd(5)+1
  73.          OVER=0 : BR=0
  74.          If BO(PLYER)>9 Then Goto MIS978
  75.          Repeat 
  76.             BR(0)=0
  77.             BR(1)=0
  78.             For WE=1 To 11 : BR(1)=BR(1)+BTR(0,WE) : Next WE
  79.             For WE=1 To 11 : BR(0)=BR(0)+BTR(1,WE) : Next WE
  80.             Tempo 15
  81.             Erase 1
  82.             Erase 6
  83.             Bob Off : Fade 1 : Wait 20 : Cls 0
  84.             Screen Close 1
  85.             Load Iff "MASTER:CSYSTEM/BACKDROP.iff",1
  86.             Wait 10 : SND3 : Ink 1 : Paper 1 : Pen 6
  87.             '            TEAM
  88.             For PPR=1 To 10
  89.                Locate 1,PPR+2 : Print PRS$(0,PPR,0)
  90.                Locate 15,PPR+2 : Print BTR(0,PPR)
  91.             Next PPR
  92.             For PPR=1 To 10
  93.                Locate 19,PPR+2 : Print PRS$(1,PPR,0)
  94.                Locate 34,PPR+2 : Print BTR(1,PPR)
  95.             Next PPR
  96.             Locate 14,18 : Print "OUT FOR"
  97.             Locate 22,18 : Print "RUNS"
  98.             Locate 30,18 : Print "OVERS"
  99.             Pen 3
  100.             Locate 2,20 : Print CNT$(2)
  101.             Locate 2,22 : Print CNT$(1)
  102.             Locate 13,20 : Print BO(0)
  103.             Locate 21,20 : Print BR(0)
  104.             Locate 29,20 : Print VRS1
  105.             Locate 13,22 : Print BO(1)
  106.             Locate 21,22 : Print BR(1)
  107.             Locate 29,22 : Print VRS2
  108.             Repeat 
  109.                Pen 6
  110.                Locate 0,28 : Centre ">>> "+CNT$(PLYER+1)+" BOWLING <<<"
  111.                Wait 10
  112.                Pen 1
  113.                Locate 0,28 : Centre ">>> "+CNT$(PLYER+1)+" BOWLING <<<"
  114.                Wait 8
  115.             Until Fire(0)=-1 or Fire(1)=-1
  116.             Inc OVER
  117.             Fade 1 : Wait 7 : Cls 0
  118.             Double Buffer 
  119.             Inc PIC : If PIC>2 Then PIC=1
  120.             If PIC=1 Then Erase 6 : Load "MASTER:CSYSTEM/back1.abk",6
  121.             If PIC=2 Then Erase 6 : Load "MASTER:CSYSTEM/back2.abk",6
  122.             FC : Get Sprite Palette : KK=0
  123.                BOWL=0
  124.                Repeat 
  125.                   If PLYER=0 Then PPPR=1
  126.                   If PLYER=1 Then PPPR=0
  127.                   QQV=0
  128.                   Inc BOWL
  129.                   Inc BCNT(PLYER)
  130.                   GO
  131.                Until BOWL=BIO or BO(PLYER)=10
  132.             If PLYER=0 Then VRS1=VRS1+1
  133.             If PLYER=1 Then VRS2=VRS2+1
  134.          Until OVER=NOV or BO(PLYER)=10
  135.          PNM(PLYER)=PNM
  136.          MIS978:
  137.       Next PLYER
  138.    Next LK
  139.    Tempo 15
  140.    Load Iff "Master:CSYSTEM/BACKDROP.iff",1
  141.    Wait 10 : SND3 : Ink 1 : Paper 1 : Pen 6
  142.    Locate 1,1 : Centre "FINAL SCORES"
  143.    For PPR=1 To 10
  144.       Locate 1,PPR+2 : Print PRS$(0,PPR,0)
  145.       Locate 15,PPR+2 : Print BTR(0,PPR)
  146.    Next PPR
  147.    For PPR=1 To 10
  148.       Locate 19,PPR+2 : Print PRS$(1,PPR,0)
  149.       Locate 34,PPR+2 : Print BTR(1,PPR)
  150.    Next PPR
  151.    Locate 14,18 : Print "OUT FOR"
  152.    Locate 22,18 : Print "RUNS"
  153.    Locate 30,18 : Print "OVERS"
  154.    Pen 3
  155.    Locate 2,20 : Print CNT$(2)
  156.    Locate 2,22 : Print CNT$(1)
  157.    Locate 13,20 : Print BO(0)
  158.    Locate 21,20 : Print BR(0)
  159.    Locate 29,20 : Print VRS1
  160.    Locate 13,22 : Print BO(1)
  161.    Locate 21,22 : Print BR(1)
  162.    Locate 29,22 : Print VRS2
  163.    Clear Key 
  164.    Repeat 
  165.       Wait 8 : Pen 6
  166.       Locate 0,28 : Centre ">> FIRE TO PLAY OR SPACE TO START NEW <<"
  167.       Wait 10 : Pen 1
  168.       Locate 0,28 : Centre ">> FIRE TO PLAY OR SPACE TO START NEW <<"
  169.       K$=Inkey$
  170.    Until K$<>"" or Fire(0)=-1 or Fire(1)=-1
  171.    Wait 30
  172.    Clear Key 
  173.    VRS1=0 : VRS2=0
  174.    If K$<>"" Then Goto KTR
  175.    Goto BKY
  176. End Proc
  177. Procedure GO
  178.    Tempo 5
  179.    OT=Timer : Wait 30 : Bob Off : Erase 4 : Amal Off : Synchro 
  180.    Screen Offset 1,0,0 : Hide 
  181.    G=0 : H=0 : FEILDNO=0 : CATCH=0 : JU=0 : NM=0 : CTV=0 : FS=0 : LBW=0 : FO=0
  182.    SCL=1 : SCR=0 : FA=0 : BH=0 : BOWLED=0 : BD=0 : CD=0 : HITTING=0 : TLK=0
  183.    Q=0 : NO_HITTING=0 : CTH=0 : DUM=0 : CONF=0 : AR=0 : XXP=0 : NOMORE=0 : HP=0
  184.    If PLYER=0 and COM=0 Then POWER=Rnd(5)+3 : JS2=1 : JS1=0 : BOWLER_SPEED : D=Rnd(7)+1 : SO : Synchro Off : Double Buffer 
  185.    If PLYER=1 and COM=0 Then JS2=1 : JS1=0 : BATTER_SPEED : AF : PFLD : Synchro Off : Double Buffer : SPEED=Rnd(5)+5 : ANG=Rnd(10)-5 : JS2=1
  186.    If COM=1 and PLYER=0 Then JS2=1 : BOWLER_SPEED : JS2=0 : BATTER_SPEED : JS2=1 : JS1=0 : SO : Synchro Off : Double Buffer 
  187.    If COM=1 and PLYER=1 Then JS2=0 : BOWLER_SPEED : JS2=1 : BATTER_SPEED : JS2=0 : JS1=1 : SO : Synchro Off : Double Buffer 
  188.    If PNM>10 Then PNM=1
  189.    If Val(PRS$(PPPR,PNM,3))>7 Then POWER=POWER+3
  190.    If Val(PRS$(PPPR,PNM,3))<8 and Val(PRS$(PPPR,PNM,3))>5 Then POWER=POWER+1
  191.    If Val(PRS$(PPPR,PNM,3))<6 and Val(PRS$(PPPR,PNM,3))>1 Then POWER=POWER-2
  192.    If POWER>9 Then POWER=9
  193.    Wait Vbl : Channel 23 To Bob 1 : Channel 1 To Bob 19
  194.    Channel 50 To Screen Offset 1 : Channel 2 To Bob 2 : Channel 3 To Bob 3 : Channel 4 To Bob 4 : Channel 5 To Bob 4 : Channel 6 To Bob 5 : Channel 8 To Bob 7 : Channel 7 To Bob 6 : Channel 9 To Bob 8
  195.    For TU=1 To 10 : Wait Vbl : Get Cblock TU,B(TU,0),B(TU,1),32,32 : Wait Vbl : Next TU
  196.    Bob 6,132,108,74 : Rem runner 
  197.    Bob 7,145,85,78 : Rem UMPIRE 
  198.    Bob 19,160,84,1 : Rem BOWLER 
  199.    Bob 4,140,133,30 : Rem batter 
  200.    Bob 5,158,159,62 : Rem WICKETS
  201.    Bob 1,158,110,47 : Rem wicket bowler
  202.    For TU=1 To 10 : Paste Bob B(TU,0),B(TU,1),BN(TU+8) : Next TU
  203.    RRNU$="A 3,(74,4)(77,4); M -4,12,24 ; A 3,(73,4)(76,4) ; M 0,12,24 ; A 3,(72,4)(75,4) ; M 4,12,24"
  204.    RRND$="A 3,(66,4)(69,4); M -4,-12,24 ; A 3,(67,4)(70,4) ; M 0,-12,24 ; A 3,(68,4)(71,4) ;M 4,-12,24"
  205.    BRND$="A 3,(66,4)(69,4); M 4,-12,24 ; A 3,(67,4)(70,4) ; M 0,-12,24 ; A 3,(68,4)(71,4) ;M -4,-12,24"
  206.    BRNU$="A 3,(74,4)(77,4); M 4,12,24 ; A 3,(73,4)(76,4) ; M 0,12,24 ; A 3,(72,4)(75,4) ;M -4,12,24"
  207.    If COM=1 and PLYER=0 Then JS2=1
  208.    If COM=1 and PLYER=1 Then JS2=0
  209.    If COM=0 and PLYER=1 Then Goto MISS8
  210.    Pen 5 : Paper 0
  211.    If EN<>1 Then Locate 1,2 : Centre "Demo Mode"
  212.    Repeat 
  213.       If Jright(JS2) and XXP<4 Then Amal 1,"M 1,0,1" : XXP=XXP+1 : Amal On : Synchro 
  214.       If Jleft(JS2) and XXP>0 Then Amal 1,"M -1,0,1" : XXP=XXP-1 : Amal On : Synchro 
  215.       Wait Vbl 
  216.    Until Fire(JS2)=-1
  217.    MISS8:
  218.    Amal 1,"A 1,(1,2)(2,2)(3,2)(4,2)(5,4)(6,4)(7,4)(8,4)(9,4)(8,3)(7,3)(6,3)(5,3); M-2,15,40 ; A 1,(1,2)(2,2)(3,2)(4,2)(3,2)(2,2)(6,2); M 2,5,14"
  219.    Amal On 
  220.    If COM=1 and PLYER=0 Then JS2=0
  221.    If COM=1 and PLYER=1 Then JS2=1
  222.    If BOWL=FLR Then Channel 24 To Bob 24 : Bob 24,0,220,193 : Amal 24,FAT$ : Amal On 24 : N1=1 : N2=1 : N3=1 : N4=1 : V1=63 : V2=63 : V3=63 : V4=63 : SL=1 : SND
  223.    Repeat : Synchro : Wait Vbl 
  224.       If COM=0 and PLYER=1 and Jleft(JS2)=-1 and X Bob(4)>130 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  225.       If COM=0 and PLYER=1 and Jright(JS2)=-1 and X Bob(4)<150 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  226.       If COM=1 and Jleft(JS2)=-1 and X Bob(4)>130 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  227.       If COM=1 and Jright(JS2)=-1 and X Bob(4)<150 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  228.       If COM=0 and PLYER=0 and X Bob(4)>130 and Chanmv(5)=0 Then Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  229.       If COM=0 and PLYER=0 and X Bob(4)<150 and Chanmv(5)=0 Then Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  230.    Until Chanmv(1)=0 and Chanan(1)=0 : Amal Off 1
  231.    BN(19)=129 : B(11,0)=X Bob(19) : B(11,1)=Y Bob(19) : Rem bowler 
  232.    Bob 3,169,115,12
  233.    Bob 2,174,125,15
  234.    Amal 3,"M"+Str$((0-XXP)+-6)+",22,"+Str$(24-(FTSPEED+SPEED))
  235.    Amal 2,"M"+Str$((0-XXP)+-11)+",12,"+Str$(24-(FTSPEED+SPEED))
  236.    Amal On 
  237.    Repeat : Synchro 
  238.       BALL_SIZE
  239.       BLX=(X Bob(4)+24)-X Bob(3)
  240.       If COM=0 and PLYER=1 and Jleft(JS2)=-1 and X Bob(4)>130 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  241.       If COM=0 and PLYER=1 and Jright(JS2)=-1 and X Bob(4)<150 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  242.       If COM=1 and Jleft(JS2)=-1 and X Bob(4)>130 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  243.       If COM=1 and Jright(JS2)=-1 and X Bob(4)<150 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  244.       If COM=0 and PLYER=0 and BLX>0 and X Bob(4)>130 and Y Bob(3)<145 and Chanmv(5)=0 Then Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  245.       If COM=0 and PLYER=0 and BLX<0 and X Bob(4)<150 and Y Bob(3)<145 and Chanmv(5)=0 Then Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  246.       Wait Vbl 
  247.    Until Chanmv(3)=0 and Chanan(3)=0 : Shoot 
  248.    Noise To 15 : Set Envel 0,1 To 1,0 : Play 92,0
  249.    Amal 3,"M"+Str$(-4+ANG)+",22,26 ; M"+Str$(-4+ANG)+",22,26"
  250.    Amal 2,"M"+Str$(1+ANG)+",26,26 ; M"+Str$(-9+ANG)+",18,26"
  251.    Amal On : JS1=0 : JS2=1 : RD=0
  252.    Repeat : Synchro : Wait Vbl : Amal Freeze 2 : Amal Freeze 3
  253.       If COM=1 and PLYER=0 Then JS2=0
  254.       If COM=1 and PLYER=1 Then JS2=1
  255.       BALL_SIZE
  256.       BLX=(X Bob(4)+24)-X Bob(3)
  257.       If COM=0 and PLYER=0 and Y Bob(3)>143 and X Bob(3)-X Bob(4)>10 and X Bob(3)-X Bob(4)<33 and HITTING=0 Then HITTING=1 : Amal 4,"A 1,(30,1)(35,1)(34,1)(33,1)(32,1)(31,1)(32,1)(33,1)(34,1)(35,2)(36,2)(37,4)(38,2)(39,4)" : Amal On 
  258.       If COM=0 and PLYER=1 and HITTING=0 and NO_HITTING=0 and Fire(JS2)=-1 Then HITTING=1 : Amal 4,"A 1,(30,1)(35,1)(34,1)(33,1)(32,1)(31,1)(32,1)(33,1)(34,1)(35,2)(36,2)(37,4)(38,2)(39,4)" : Amal On : Synchro 
  259.       If COM=1 and HITTING=0 and NO_HITTING=0 and Fire(JS2)=-1 Then HITTING=1 : Amal 4,"A 1,(30,1)(35,1)(34,1)(33,1)(32,1)(31,1)(32,1)(33,1)(34,1)(35,2)(36,2)(37,4)(38,2)(39,4)" : Amal On : Synchro 
  260.       If COM=0 and Jleft(JS2)=-1 and Y Bob(3)<147 and X Bob(4)>130 and BH=0 and PLYER=1 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  261.       If COM=0 and Jright(JS2)=-1 and Y Bob(3)<147 and X Bob(4)<150 and BH=0 and PLYER=1 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  262.       If COM=1 and Jleft(JS2)=-1 and Y Bob(3)<147 and X Bob(4)>130 and BH=0 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  263.       If COM=1 and Jright(JS2)=-1 and Y Bob(3)<147 and X Bob(4)<150 and BH=0 and Chanmv(5)=0 Then Amal Freeze : Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  264.       If Y Bob(3)>143 Then BAT_COLIDE
  265.       If BOWLED=1 Then DUM=DUM+1 : If DUM=45 Then BOWLED=0 : DUM=0
  266.       If COM=0 and BH=1 and FA=0 and Chanan(4)=0 and Fire(JS2)=-1 Then Bob 4,X Bob(4)+10,Y Bob(4)+10,66 : FA=1
  267.       If COM=1 and BH=1 and FA=0 and Chanan(4)=0 and Fire(JS2)=-1 Then Bob 4,X Bob(4)+10,Y Bob(4)+10,66 : FA=1
  268.       If BH=1 and FA=0 and Chanan(4)=0 and AR=0 Then Bob 4,X Bob(4)+10,Y Bob(4)+10,66 : FA=1
  269.       If BH=1 and Chanan(4)=0 and RD=0 and AR=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : AR=1 : RNS
  270.       If COM=0 and BH=1 and PLYER=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : RNS
  271.       If COM=0 and BH=1 and PLYER=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : Synchro : RNS
  272.       If COM=1 and BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : RNS
  273.       If COM=1 and BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : Synchro : RNS
  274.       If CATCH=1 Then If X Bob(F)=X Bob(8) and Y Bob(F)=Y Bob(8) and Chanmv(10)=0 and Chanan(11)=0 Then BALL_COLIDE
  275.       If BH=1 and FEILDNO=1 Then FEILD
  276.       If BH=0 and COM=0 and PLYER=0 and BLX>0 and X Bob(4)=>130 and Y Bob(3)<144 and Chanmv(5)=0 Then Amal 5,"A 1,(50,2)(51,2) ; M -2,0,4" : Amal On : Synchro 
  277.       If BH=0 and COM=0 and PLYER=0 and BLX<0 and X Bob(4)=<150 and Y Bob(3)<144 and Chanmv(5)=0 Then Amal 5,"A 1,(50,2)(51,2) ; M 2,0,4" : Amal On : Synchro 
  278.       If COM=0 and BH=1 and PLYER=0 Then RN2V
  279.       Amal On 
  280.    Until Chanmv(3)=0 and Chanan(3)=0 and Chanmv(50)=0
  281.    If HP=-1
  282.       Wait 40
  283.       N1=4 : N2=4 : N3=1 : N4=1 : V1=63 : V2=63 : V3=13 : V4=13 : SL=1 : SND2
  284.       Wait 100 : Goto MISS
  285.    End If 
  286.    If Y Bob(3)<80 or X Bob(3)<0 or X Bob(3)>360
  287.       If Y Bob(3)<80
  288.          N1=2 : N2=2 : N3=1 : N4=1 : V1=63 : V2=63 : V3=13 : V4=13 : SL=1 : SND2
  289.          BTR(PPPR,PNM)=BTR(PPPR,PNM)+5
  290.          QQV=0
  291.          Wait 100
  292.          Goto MISS
  293.       Else 
  294.          If X Bob(3)<0 or X Bob(3)>360
  295.             N1=3 : N2=3 : N3=1 : N4=1 : V1=63 : V2=63 : V3=13 : V4=13 : SL=1 : SND2
  296.             BTR(PPPR,PNM)=BTR(PPPR,PNM)+3
  297.             QQV=0
  298.             Wait 100
  299.             Goto MISS
  300.          End If 
  301.       End If 
  302.    End If 
  303.    If CONF=1 Then Goto MISS7
  304.    If FEILDNO=0 Then Goto MISS
  305.    If Chanmv(4)=0 Then Goto MISS
  306.    MISS7:
  307.    FS2
  308.    If X Bob(F)=>X Bob(3) Then FD1=1
  309.    If X Bob(F)<X Bob(3) Then FD1=0
  310.    If FD1=1 and X Bob(F)=>X Bob(3)-8 Then X4=0-(X Bob(F)-X Bob(3)) : LR$=FL$ : FD1=1
  311.    If FD1=0 and X Bob(F)<X Bob(3) Then X4=X Bob(3)-X Bob(F) : LR$=FR$ : FD1=0
  312.    If Y Bob(F)=>Y Bob(3) Then Y4=0-(Y Bob(F)-Y Bob(3)) : DU$=FD$
  313.    If Y Bob(F)<Y Bob(3) Then Y4=Y Bob(3)-Y Bob(F) : DU$=FA$
  314.    X4=X4-12 : Y4=Y4-12 : T1=X4/2 : T2=Y4/2
  315.    If X4<0 Then T1=0-X4
  316.    If Y4<0 Then T2=0-Y4
  317.    If X4<0 Then LR$=FL$
  318.    If X4>0 Then LR$=FR$
  319.    If Y4<0 Then DU$=FD$
  320.    If Y4>0 Then DU$=FA$
  321.    Wait 5
  322.    If X4<>0 Then Amal 11,LR$ : Amal On 11
  323.    Amal 10,";M"+Str$(X4)+",0,"+Str$(T1/2) : Amal On 10
  324.    If COM=1 and PLYER=0 Then JS2=0
  325.    If COM=1 and PLYER=1 Then JS2=1
  326.    Repeat : Synchro : Wait Vbl : FS2 : Synchro : Wait Vbl 
  327.       If COM=0 and BH=1 and PLYER=0 Then RN2V
  328.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then RN2V
  329.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then RN2V
  330.       Synchro : Wait Vbl 
  331.       If FD1=1 and X Bob(F)=>X Bob(3)-24 Then X4=0-(X Bob(F)-X Bob(3)) : LR$=FL$
  332.       If FD1=0 and X Bob(F)<X Bob(3) Then X4=X Bob(3)-X Bob(F) : LR$=FR$
  333.       If Chanan(11)=0 Then Amal 11,LR$ : Amal On 11
  334.    Until Chanmv(10)=0
  335.    Amal Off 11 : Synchro : Amal 11,DU$ : Amal On 11
  336.    Amal 10,";M 0,"+Str$(Y4)+","+Str$(T2) : Amal On 10
  337.    Repeat : Synchro : Wait Vbl : FS2 : Synchro : Wait Vbl 
  338.       If COM=0 and BH=1 and PLYER=0 Then RN2V
  339.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : RNS
  340.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : Synchro : RNS
  341.       Synchro : Wait Vbl 
  342.       If Y Bob(F)=>Y Bob(3)-20 Then Y4=0-(Y Bob(F)-Y Bob(3)) : DU$=FD$
  343.       If Y Bob(F)<Y Bob(3)-20 Then Y4=Y Bob(3)-Y Bob(F) : DU$=FA$
  344.       If Chanan(11)=0 Then Amal 11,DU$ : Amal On 11
  345.    Until Chanmv(10)=0 : Amal Off 11 : Synchro 
  346.    If Chanan(11)=0 Then Amal 11,"A 1,("+Str$(139+FS)+",2)("+Str$(146+FS)+",4)("+Str$(139+FS)+",2) ;M 0,0,1" : Amal On 11
  347.    Repeat : Synchro : Wait Vbl 
  348.       If COM=0 and BH=1 and PLYER=0 Then RN2V
  349.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : RNS
  350.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : Synchro : RNS
  351.    Until Chanan(11)=0 : Amal Off 11 : Synchro : Wait Vbl 
  352.    If COM=1 and PLYER=0 Then JS2=1 : THROW
  353.    If COM=1 and PLYER=1 Then JS2=0 : THROW
  354.    If COM=0 and PLYER=0 Then JS2=1 : THROW
  355.    If COM=0 and PLYER=1 Then DEV=Rnd(5) : D=Rnd(1)
  356.    If COM=1 and PLYER=0 Then JS2=0
  357.    If COM=1 and PLYER=1 Then JS2=1
  358.    MISS3:
  359.    If D=1 Then Goto MISS1
  360.    DEV=(DEV*5)
  361.    X=X5*4 : Y=Y5*4
  362.    If X Bob(3)+X<=X Bob(5)+10+DEV Then B=(X Bob(5)+10+DEV)-(X Bob(3)+X) : X5=X5+(B/4)
  363.    If X Bob(3)+X>X Bob(5)+10+DEV Then B=(X Bob(3)+X)-(X Bob(5)+10+DEV) : X5=X5-(B/4)
  364.    If Y Bob(3)+Y<=(Y Bob(5)+20+DEV) Then B=(Y Bob(5)+20+DEV)-(Y Bob(3)+Y) : Y5=Y5+(B/4)
  365.    If Y Bob(3)+Y>Y Bob(5)+20+DEV Then B=(Y Bob(3)+Y)-(Y Bob(5)+20+DEV) : Y5=Y5-(B/4)
  366.    BALL$="M"+Str$(X5)+","+Str$(Y5+(0-Y6))+","+Str$(P4)+";"
  367.    BALL$=BALL$+"M"+Str$(X5)+","+Str$(Y5+(0-(Y6/2)))+","+Str$(P4)+";"
  368.    BALL$=BALL$+"M"+Str$(X5)+","+Str$(Y5+(Y6/2))+","+Str$(P4)+";"
  369.    BALL$=BALL$+"M"+Str$(X5)+","+Str$(Y5+Y6)+","+Str$(P4)+";"
  370.    BALL$=BALL$+"M"+Str$(X5/4)+","+Str$((Y5+(0-Y6))/4)+","+Str$(P4/4)
  371.    If X Bob(5)<X Bob(F) and Y Bob(5)=>Y Bob(F) Then Amal 11,"A 1,("+Str$(155+FS)+",4)("+Str$(156+FS)+",2)("+Str$(95+FS)+",2)("+Str$(149+FS)+",1) ; M 0,0,1"
  372.    If X Bob(5)>X Bob(F) and Y Bob(5)=>Y Bob(F) Then Amal 11,"A 1,("+Str$(153+FS)+",4)("+Str$(154+FS)+",2)("+Str$(84+FS)+",2)("+Str$(150+FS)+",1) ; M 0,0,1"
  373.    If Y Bob(5)<Y Bob(F) Then Amal 11,"A 1,("+Str$(141+FS)+",4)("+Str$(147+FS)+",4)("+Str$(148+FS)+",2)("+Str$(91+FS)+",1) ; M 0,0,1"
  374.    Amal On 11 : Bob 3,X Bob(3),Y Bob(3),18 : Bob 2,X Bob(2),Y Bob(2),18
  375.    Repeat : Synchro : Wait Vbl 
  376.       If COM=0 and BH=1 and PLYER=0 Then RN2V
  377.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : RNS
  378.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : Synchro : RNS
  379.    Until Chanan(11)=0
  380.    Bob 3,X Bob(F)+7,Y Bob(F)-4,BS : Bob 2,X Bob(3),Y Bob(3),BS+3
  381.    Goto OK2
  382.    MISS1:
  383.    X=X5*4 : Y=Y5*4
  384.    DEV=(DEV*5)
  385.    If X Bob(3)+X<=X Bob(1)+10+DEV Then B=(X Bob(1)+10+DEV)-(X Bob(3)+X) : X5=X5+(B/4)
  386.    If X Bob(3)+X>X Bob(1)+10+DEV Then B=(X Bob(3)+X)-(X Bob(1)+10+DEV) : X5=X5-(B/4)
  387.    If Y Bob(3)+Y<=(Y Bob(1)+20+DEV) Then B=(Y Bob(1)+20+DEV)-(Y Bob(3)+Y) : Y5=Y5+(B/4)
  388.    If Y Bob(3)+Y>Y Bob(1)+20+DEV Then B=(Y Bob(3)+Y)-(Y Bob(1)+20+DEV) : Y5=Y5-(B/4)
  389.    BALL$="M"+Str$(X5)+","+Str$(Y5+(0-Y6))+","+Str$(P4)+";"
  390.    BALL$=BALL$+"M"+Str$(X5)+","+Str$(Y5+(0-(Y6/2)))+","+Str$(P4)+";"
  391.    BALL$=BALL$+"M"+Str$(X5)+","+Str$(Y5+(Y6/2))+","+Str$(P4)+";"
  392.    BALL$=BALL$+"M"+Str$(X5)+","+Str$(Y5+Y6)+","+Str$(P4)+";"
  393.    BALL$=BALL$+"M"+Str$(X5/4)+","+Str$((Y5+(0-Y6))/4)+","+Str$(P4/4)
  394.    If X Bob(1)<X Bob(F) and Y Bob(1)>Y Bob(F) Then Amal 11,"A 1,("+Str$(155+FS)+",4)("+Str$(156+FS)+",2)("+Str$(95+FS)+",2)("+Str$(149+FS)+",1) ; M 0,0,1"
  395.    If X Bob(1)>X Bob(F) and Y Bob(1)>Y Bob(F) Then Amal 11,"A 1,("+Str$(153+FS)+",4)("+Str$(154+FS)+",2)("+Str$(84+FS)+",2)("+Str$(150+FS)+",1) ; M 0,0,1"
  396.    If Y Bob(1)<Y Bob(F) Then Amal 11,"A 1,("+Str$(141+FS)+",4)("+Str$(147+FS)+",4)("+Str$(148+FS)+",2)("+Str$(91+FS)+",1) ; M 0,0,1"
  397.    Q=1 : Amal On 11 : Bob 3,X Bob(3),Y Bob(3),18 : Bob 2,X Bob(2),Y Bob(2),18
  398.    Repeat : Synchro : Wait Vbl 
  399.       If COM=0 and BH=1 and PLYER=0 Then RN2V
  400.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : RNS
  401.       If BH=1 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : Synchro : RNS
  402.    Until Chanan(11)=0
  403.    Bob 3,X Bob(F)+7,Y Bob(F)-4,BS : Bob 2,X Bob(3),Y Bob(3),BS+3
  404.    OK2:
  405.    Amal 3,BALL$
  406.    Amal 2,"M"+Str$(X5*4)+","+Str$(Y5*4)+","+Str$(P4*4)+";M"+Str$(X5/4)+","+Str$((Y5+(0-Y6))/4)+","+Str$(P4/4)
  407.    Amal On 3 : Amal On 2
  408.    Repeat : Synchro : BALL_SIZE : Wait Vbl 
  409.       If COM=0 and BH=1 and PLYER=0 and NOMORE=0 Then RN2V : NOMORE=1
  410.       If BH=1 and NOMORE=0 and Chanan(4)=0 and Fire(JS2)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : NOMORE=1 : RNS
  411.       If BH=1 and NOMORE=0 and Chanan(4)=0 and Fire(JS2)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : NOMORE=1 : RNS
  412.       THROWCOL
  413.    Until Chanmv(3)=0 and Chanmv(50)=0 and Chanmv(4)=0
  414.    MISS:
  415.    Wait 20
  416.    Inc QCI
  417.    If QCI=6 Then TST
  418.    If QCI>40 Then QCI=1
  419.    If EN=99 Then BAD
  420.    RM=0
  421. End Proc
  422. Procedure BOWLER_SPEED
  423.    Tempo 15
  424.    ST69:
  425.    SO2
  426.    BR(PLYER)=0
  427.    For WE=1 To 11 : BR(PLYER)=BR(PLYER)+BTR(PPPR,WE) : Next WE
  428.    Screen 2 : D=0 : Gr Writing 0 : Ink 0
  429.    Text 20,20,"BOWLER ACTION"
  430.    Text 20,40,Str$(BO(PLYER))+" OUT FOR"+Str$(BR(PLYER))
  431.    Text 20,50,"   CURRENT"+Str$(BTR(PPPR,PNM))
  432.    If DV>6
  433.       Text 20,60,"OVERS LEFT UNLIMITED"
  434.    Else 
  435.       Text 20,60,"OVERS LEFT"+Str$(DV-OVER)
  436.    End If 
  437.    Text 242,22,"POWER"
  438.    Text 304,34,"ON"
  439.    Text 304,54,"OFF" : Ink 1
  440.    Text 18,18,"BOWLER ACTION"
  441.    Text 18,38,Str$(BO(PLYER))+" OUT FOR"+Str$(BR(PLYER))
  442.    Text 18,48,"   CURRENT"+Str$(BTR(PPPR,PNM))
  443.    If DV>6
  444.       Text 18,60,"OVERS LEFT UNLIMITED"
  445.    Else 
  446.       Text 18,60,"OVERS LEFT"+Str$(DV-OVER)
  447.    End If 
  448.    Text 240,20,"POWER"
  449.    Text 302,32,"ON"
  450.    Text 302,52,"OFF"
  451.    Gr Writing 1
  452.    K$=""
  453.    Repeat : K$=Inkey$
  454.    Until K$<>"" or Fire(JS2)=-1
  455.    If K$<>"" Then FSETUP : Goto ST69
  456.    COUNT=0 : SPEED=0
  457.    Repeat 
  458.       Inc COUNT
  459.       If COUNT<22 Then Ink 3 : Draw 155+XG,(231-COUNT)+YG To 158+XG,(231-COUNT)+YG : Inc SPEED
  460.       If COUNT>21 Then Ink 0 : Draw 155+XG,(187+COUNT)+YG To 158+XG,(187+COUNT)+YG : Dec SPEED
  461.       Wait Vbl 
  462.    Until Fire(JS2)=0 or COUNT>40 : Wait 20
  463.    SPEED=SPEED/2
  464.    COUNT=0 : ANG=0 : Ink 12
  465.    Repeat 
  466.       Inc COUNT : Inc ANG
  467.       Ink 3
  468.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  469.       If COUNT<=11 Then NS=NS-1
  470.    Until Fire(JS2)=-1 or COUNT=11
  471.    Repeat 
  472.       Inc COUNT : Inc ANG
  473.       Ink 3
  474.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  475.       If COUNT>11 Then NS=NS+1
  476.    Until Fire(JS2)=-1 or COUNT=21 : Wait 40 : ANG=(11-ANG)*2
  477.    SC2
  478.    FAGG
  479.    Tempo 5
  480. End Proc
  481. Procedure SO
  482.    Screen Open 1,384,256,64,0 : Cls 0 : Unpack 6 To 1 : Wait Vbl : Get Sprite Palette 
  483. End Proc
  484. Procedure SO2
  485.    CF=Colour(4) : Curs Off : Unpack 7 To 2 : Screen Offset 2,4,0
  486. End Proc
  487. Procedure SC2
  488.    Screen Close 2
  489. End Proc
  490. Procedure DBO
  491.    Screen Open 1,384,256,64,0 : Cls 0 : Unpack 6 To 1 : Wait Vbl : Get Sprite Palette 
  492. End Proc
  493. Procedure BALL_HAS_BEEN_HIT
  494.    CATCH=1
  495.    CD=1 : Amal Off 3 : Amal Off 2
  496.    PT=(PT-22)*12
  497.    P5=PT
  498.    If D-1 Then D=2
  499.    If D=2 Then X#=(POWER*20)/4 : YC#=(((0-POWER)*8)+PT)/4 : Y#=YC#-YC#-YC# : P#=(POWER*6)/4
  500.    If D=5 Then X#=PT/4 : YC#=((POWER)*8)/4 : Y#=YC# : P#=(POWER*6)/4
  501.    If D=4 Then X#=(POWER*20)/4 : YC#=(((POWER)*8)+PT)/4 : Y#=YC# : P#=(POWER*6)/4
  502.    If D=6 Then X#=0-((POWER*20)/4) : YC#=(((POWER)*8)+PT)/4 : Y#=YC# : P#=(POWER*6)/4
  503.    If D=3 Then X#=(POWER*22)/4 : YC#=(PT)/4 : P#=(POWER*6)/4 : If YC#<0 Then Y#=YC#-YC#-YC# Else Y#=YC#
  504.    If D=7 Then X#=0-((POWER*22)/4) : YC#=(PT)/4 : P#=(POWER*6)/4 : If YC#<0 Then Y#=YC#-YC#-YC# Else Y#=YC#
  505.    If D=8 Then X#=0-((POWER*18)/4) : YC#=(((0-POWER)*7)-PT)/4 : Y#=YC#-YC#-YC# : P#=(POWER*6)/4
  506.    X=X# : YC=YC# : Y=Y# : P=P#
  507.    If P<8 Then P=8
  508.    X5=0-X : Y5=0-YC : Y6=Y : P4=P
  509.    Bob 2,X Bob(3),Y Bob(3),15
  510.    BALL$="M"+Str$(X)+","+Str$(YC+(0-Y))+","+Str$(P)+";"
  511.    BALL$=BALL$+"M"+Str$(X)+","+Str$(YC+(0-(Y/2)))+","+Str$(P)+";"
  512.    BALL$=BALL$+"M"+Str$(X)+","+Str$(YC+(Y/2))+","+Str$(P)+";"
  513.    BALL$=BALL$+"M"+Str$(X)+","+Str$(YC+Y)+","+Str$(P)+";"
  514.    BALL$=BALL$+"M"+Str$(X/4)+","+Str$((YC+(0-Y))/4)+","+Str$(P/4)
  515.    Amal 3,BALL$
  516.    Amal 2,"M"+Str$(X*4)+","+Str$(YC*4)+","+Str$(P*4)+";M"+Str$(X/4)+","+Str$((YC+(0-Y))/4)+","+Str$(P/4)
  517.    X4=X Bob(3)+(X*4)+(X/4)
  518.    Y4=Y Bob(3)+(YC*4)+((YC+(0-Y))/4)
  519.    BCONX=X Bob(3)+(X*4) : BCONY=Y Bob(3)+(YC*4)
  520.    X2=X
  521.    Y2=Y
  522.    Bob 8,BCONX,BCONY,18
  523.    OX=1000
  524.    For J=9 To 19
  525.       BCONX=X Bob(8)-B(J-8,0) : BCONY=Y Bob(8)-B(J-8,1)
  526.       X=BCONX : Y=BCONY
  527.       If BCONY<0 Then Y=0-BCONY
  528.       If BCONX<0 Then X=0-BCONX
  529.       If X+Y<OX Then F=J : OX=X+Y
  530.    Next J
  531.    If F=19 Then Goto MISS5
  532.    Autoback 0 : Update Off : Bob Clear : Put Cblock F-8,B(F-8,0),B(F-8,1)
  533.    Bob F,B(F-8,0),B(F-8,1),BN(F)
  534.    Bob 19,,,129
  535.    Bob Draw : Screen Swap : Wait Vbl : Bob Clear : Put Cblock F-8,B(F-8,0),B(F-8,1) : Bob Draw : Screen Swap : Wait Vbl : Update On : Synchro Off 
  536.    MISS5:
  537.    Fix(4)
  538.    YC#=YC : Y2#=Y2
  539.    BCONX=X Bob(2)+(X2*3) : BCONY=Y Bob(2)+(YC#+(0-Y2#))+(YC#+(0-(Y2#/2)))+(YC#+(Y2#/2))
  540.    BCONX=BCONX-18 : If BCONY>129 Then BCONY=BCONY+1
  541.    If BCONY<58 Then BCONY=58 : HP=6
  542.    Bob 8,BCONX,BCONY,18
  543.    BCONX=X Bob(8)-X Bob(F) : BCONY=Y Bob(8)-Y Bob(F)
  544.    FS2: OX=P
  545.    Channel 10 To Bob F : Channel 11 To Bob F : FR
  546.    Synchro 
  547. End Proc
  548. Procedure BAT_COLIDE
  549.    C=Bob Col(3)
  550.    If C<>0 and CD=0 and BH=0 and Col(4)=-1
  551.       PT=X Bob(3)-X Bob(4)
  552.       If PT>10 and PT<19 and X Bob(4)>139 and X Bob(4)<151
  553.          CD=1 : BD=1
  554.          Rem lbw***************************** 
  555.          Amal Off 3 : Amal Off 2 : Amal 3,"M-15,20,15" : Amal On 3
  556.          N1=4 : N2=4 : N3=1 : N4=1 : V1=63 : V2=63 : V3=23 : V4=23 : SL=1 : SND
  557.          Bob 7,145,85,83 : Rem UMPIRE 
  558.          Bob 19,X Bob(19),Y Bob(19),20
  559.          FEILDNO=0
  560.          HITTING=1
  561.          If RM>0
  562.             BTR(PPPR,PNM)=BTR(PPPR,PNM)-RM : RM=0
  563.          End If 
  564.          BO
  565.       End If 
  566.       If PT<19 and Y Bob(3)>148 and BH=0 and X Bob(3)<156
  567.          CD=1 : BH=1 : LBW=1
  568.          Rem bi************************** 
  569.          Amal Off 3 : Amal Off 2 : Amal 3,"M-60,80,60" : Amal On 3
  570.          N1=1 : N2=1 : N3=1 : N4=1 : V1=23 : V2=23 : V3=23 : V4=23 : SL=1 : SND
  571.          Bob 7,145,85,80 : Rem UMPIRE 
  572.          Bob 19,X Bob(19),Y Bob(19),20
  573.          FEILDNO=1 : NO_HITTING=1 : HITTING=0 : BH=1 : PT=20 : POWER=9 : CONF=0 : CTH=0
  574.          If ANG=>0
  575.             D=3
  576.          End If 
  577.          If ANG<0
  578.             D=5
  579.          End If 
  580.          BALL_HAS_BEEN_HIT
  581.          Goto MISS987
  582.       End If 
  583.       If PT<19 and Y Bob(3)>148 and BH=0 and X Bob(3)>162
  584.          CD=1 : BH=1 : LBW=1
  585.          Rem bi2 ********************** 
  586.          Amal Off 3 : Amal Off 2 : Amal 3,"M-60,80,60" : Amal On 3
  587.          N1=1 : N2=1 : N3=1 : N4=1 : V1=23 : V2=23 : V3=23 : V4=23 : SL=1 : SND
  588.          Bob 7,145,85,80 : Rem UMPIRE 
  589.          Bob 19,X Bob(19),Y Bob(19),20
  590.          FEILDNO=1 : NO_HITTING=1 : HITTING=0 : BH=1 : PT=20 : POWER=9 : CONF=0 : CTH=0
  591.          If ANG=>0
  592.             D=3
  593.          End If 
  594.          If ANG<0
  595.             D=5
  596.          End If 
  597.          BALL_HAS_BEEN_HIT
  598.          Goto MISS987
  599.       End If 
  600.       If PT>18 and PT<27 and Y Bob(3)>148 and HITTING=0
  601.          NO_HITTING=1
  602.          FEILDNO=0
  603.       End If 
  604.       If PT>18 and PT<27 and Y Bob(3)>148 and HITTING=1
  605.          Amal Off 4
  606.          Amal 4,"A 1,(36,2)(37,4)(38,2)(39,4)" : Amal On 4 : Synchro 
  607.          LBW=1
  608.          If POWER>6
  609.             N1=8 : N2=1 : N3=2 : N4=1 : V1=63 : V2=13 : V3=63 : V4=13 : SL=1 : SND
  610.          Else 
  611.             N1=2 : N2=1 : N3=2 : N4=1 : V1=63 : V2=13 : V3=63 : V4=13 : SL=1 : SND
  612.          End If 
  613.          If POWER>8
  614.             HP=6
  615.          End If 
  616.          If POWER=8
  617.             HP=4
  618.          End If 
  619.          BALL_HAS_BEEN_HIT
  620.          FEILDNO=1
  621.          BH=1
  622.       End If 
  623.    End If 
  624.    If C<>0 and BD=0 and LBW=0 and Col(5)=-1
  625.       ' bowled ********************************  
  626.       Bob 7,145,85,83 : Rem UMPIRE 
  627.       Bob 19,X Bob(19),Y Bob(19),20
  628.       BD=1 : CD=1
  629.       Amal 6,"A 1,(63,2)(64,2)"
  630.       Amal On : BOWLED=1
  631.       N1=5 : N2=5 : N3=1 : N4=1 : V1=63 : V2=63 : V3=23 : V4=23 : SL=1 : SND
  632.       FEILDNO=0
  633.       HITTING=1
  634.       If RM>0
  635.          BTR(PPPR,PNM)=BTR(PPPR,PNM)-RM : RM=0
  636.       End If 
  637.       BO
  638.    End If 
  639.    MISS987:
  640. End Proc
  641. Procedure BATTER_SPEED
  642.    BR(PLYER)=0
  643.    For WE=1 To 11 : BR(PLYER)=BR(PLYER)+BTR(PPPR,WE) : Next WE
  644.    Tempo 15
  645.    SO2 : Screen 2 : D=0 : Gr Writing 0 : Ink 0
  646.    Text 20,20,"BATTING "+PRS$(PPPR,BO(PLYER)+1,0)+" (R) "+PRS$(PPPR,BO(PLYER)+1,3)
  647.    Text 20,40,Str$(BO(PLYER))+" OUT FOR"+Str$(BR(PLYER))
  648.    Text 20,50,"   CURRENT"+Str$(BTR(PPPR,PNM))
  649.    If DV>6
  650.       Text 20,60,"OVERS LEFT UNLIMITED"
  651.    Else 
  652.       Text 20,60,"OVERS LEFT"+Str$(DV-OVER)
  653.    End If 
  654.    Text 242,22,"POWER"
  655.    Text 304,34,"HOOK"
  656.    Text 304,54,"SLICE"
  657.    Ink 1
  658.    Text 18,18,"BATTING "+PRS$(PPPR,BO(PLYER)+1,0)+" (R) "+PRS$(PPPR,BO(PLYER)+1,3)
  659.    Text 18,38,Str$(BO(PLYER))+" OUT FOR"+Str$(BR(PLYER))
  660.    Text 18,48,"   CURRENT"+Str$(BTR(PPPR,PNM))
  661.    If DV>6
  662.       Text 18,60,"OVERS LEFT UNLIMITED"
  663.    Else 
  664.       Text 18,60,"OVERS LEFT"+Str$(DV-OVER)
  665.    End If 
  666.    Text 240,20,"POWER"
  667.    Text 302,32,"HOOK"
  668.    Text 302,52,"SLICE"
  669.    Gr Writing 1
  670.    Repeat : Until Fire(JS2)=-1
  671.    BTSPEED=0 : COUNT=0
  672.    Repeat 
  673.       Inc COUNT
  674.       If COUNT<22 Then Ink 3 : Draw 155+XG,(231-COUNT)+YG To 158+XG,(231-COUNT)+YG : Inc BTSPEED
  675.       If COUNT>21 Then Ink 0 : Draw 155+XG,(187+COUNT)+YG To 158+XG,(187+COUNT)+YG : Dec BTSPEED
  676.       Wait Vbl 
  677.    Until Fire(JS2)=0 or COUNT>40 : Wait 20
  678.    BTSPEED=BTSPEED/2
  679.    COUNT=0
  680.    Ink 12 : NS=11
  681.    Repeat 
  682.       Inc COUNT
  683.       Ink 3
  684.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  685.       If COUNT<=11 Then NS=NS-1
  686.    Until Fire(JS2)=-1 or COUNT=11
  687.    Repeat 
  688.       Inc COUNT : Inc CL
  689.       Ink 3
  690.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  691.       If COUNT>11 Then NS=NS+1
  692.    Until Fire(JS2)=-1 or COUNT=20 : Wait 40 : BTSPEED=BTSPEED-NS
  693.    SC2
  694.    Unpack 6 To 1
  695.    Double Buffer 
  696.    Synchro On 
  697.    Get Sprite Palette 
  698.    Bob 1,153,141,61
  699.    Bob 9,158,200,53
  700.    Bob 3,163,205,54
  701.    Bob 2,166,210,55
  702.    Bob 4,163,215,56
  703.    Bob 5,158,220,57
  704.    Bob 6,151,215,58
  705.    Bob 7,148,210,59
  706.    Bob 8,152,205,60
  707.    Repeat 
  708.       If Joy(JS2)=1 Then Amal Off : Channel 1 To Bob 9 : Amal 1,"S: M 0,-5,10 ;M 0,5,10 ; J S" : Amal On : D=1
  709.       If Joy(JS2)=9 Then Amal Off : Channel 1 To Bob 3 : Amal 1,"S: M 5,-5,10 ;M -5,5,10 ; J S" : Amal On : D=2
  710.       If Joy(JS2)=5 Then Amal Off : Channel 1 To Bob 8 : Amal 1,"S: M -5,-5,10 ;M 5,5,10 ; J S" : Amal On : D=8
  711.       If Joy(JS2)=8 Then Amal Off : Channel 1 To Bob 2 : Amal 1,"S: M 5,0,10 ;M -5,0,10 ; J S" : Amal On : D=3
  712.       If Joy(JS2)=10 Then Amal Off : Channel 1 To Bob 4 : Amal 1,"S: M 5,5,10 ;M -5,-5,10 ; J S" : Amal On : D=4
  713.       If Joy(JS2)=2 Then Amal Off : Channel 1 To Bob 5 : Amal 1,"S: M 0,5,10 ;M 0,-5,10 ; J S" : Amal On : D=5
  714.       If Joy(JS2)=6 Then Amal Off : Channel 1 To Bob 6 : Amal 1,"S: M -5,5,10 ;M 5,-5,10 ; J S" : Amal On : D=6
  715.       If Joy(JS2)=4 Then Amal Off : Channel 1 To Bob 7 : Amal 1,"S: M -5,0,10 ;M 5,0,10 ; J S" : Amal On : D=7
  716.       If Joy(JS2)<>0
  717.          Bob 1,153,141,61
  718.          Bob 9,158,200,53
  719.          Bob 3,163,205,54
  720.          Bob 2,166,210,55
  721.          Bob 4,163,215,56
  722.          Bob 5,158,220,57
  723.          Bob 6,151,215,58
  724.          Bob 7,148,210,59
  725.          Bob 8,152,205,60
  726.       End If 
  727.       Wait Vbl 
  728.    Until Fire(JS2)=-1
  729.    If D=0 Then D=Rnd(7)+1
  730.    Amal Off : Bob Off 
  731.    POWER=BTSPEED
  732.    If POWER<3 Then POWER=5
  733.    If POWER>10 Then POWER=10
  734.    Tempo 5
  735. End Proc
  736. Procedure BALL_SIZE
  737.    If X Bob(3)>200 and SCR=0 Then Amal 50,SCRR$ : SCR=1 : SCL=0 : Amal On 50
  738.    If X Bob(3)<=200 and SCL=0 Then Amal 50,SCRL$ : SCR=0 : SCL=1 : Amal On 50
  739.    If Y Bob(3)<136 and BS1=0 Then Bob 3,X Bob(3),Y Bob(3),12 : Bob 2,X Bob(2),Y Bob(2),15 : BS1=1 : BS2=0 : BS3=0 : BS=12
  740.    If Y Bob(3)>135 and Y Bob(3)=<149 and BS2=0 Then Bob 3,X Bob(3),Y Bob(3),11 : Bob 2,X Bob(2),Y Bob(2),14 : BS2=1 : BS1=0 : BS3=0 : BS=11
  741.    If Y Bob(3)>149 and BS3=0 Then Bob 3,X Bob(3),Y Bob(3),10 : Bob 2,X Bob(2),Y Bob(2),13 : BS3=1 : BS2=0 : BS1=0 : BS=10
  742. End Proc
  743. Procedure FEILD
  744.    If COM=1 and PLYER=0 Then JS2=1
  745.    If COM=1 and PLYER=1 Then JS2=0
  746.    If X Bob(8)>X Bob(F) and Chanan(11)=0 and Chanmv(10)=-1 and CTH=0 and X Bob(F)<>OX Then FS2 : Amal 11,FR$ : Amal On 11
  747.    If X Bob(8)<X Bob(F) and Chanan(11)=0 and Chanmv(10)=-1 and CTH=0 and X Bob(F)<>OX Then FS2 : Amal 11,FL$ : Amal On 11
  748.    If X Bob(8)=X Bob(F) and CTV=0 and Chanmv(10)=0 and CTH=0 Then FD : CTH=1 : CTV=1
  749.    If X Bob(8)=X Bob(F) and CTV=0 and Chanmv(10)=0 and CTH=0 Then FD : CTH=1 : CTV=1
  750.    If Y Bob(F)=Y Bob(8) and CTH=1 Then NM=1 : Amal Off 10 : Amal Off 11
  751.    If Y Bob(8)>Y Bob(F) and Chanmv(10)=-1 and Chanan(11)=0 and CTH=1 and Y Bob(F)<>OY and NM=0 Then FS2 : Amal 11,FA$ : Amal On 11 : DR=1
  752.    If Y Bob(8)<Y Bob(F) and Chanmv(10)=-1 and Chanan(11)=0 and CTH=1 and Y Bob(F)<>OY and NM=0 Then FS2 : Amal 11,FD$ : Amal On 11 : DR=0
  753.    If PLYER=1 and COM=0 and NM=1 and FDEV<10 and JU=0 Then Channel 13 To Bob F : FS2 : Amal 13,JU$ : Amal On 13 : JU=1
  754.    If PLYER=0 and COM=0 and NM=1 and Fire(JS2)=-1 and JU=0 Then Channel 13 To Bob F : FS2 : Amal 13,JU$ : Amal On 13 : JU=1
  755.    If COM=1 and NM=1 and Fire(JS2)=-1 and JU=0 Then Channel 13 To Bob F : FS2 : Amal 13,JU$ : Amal On 13 : JU=1
  756.    Amal On 
  757.    If COM=1 and PLYER=0 Then JS2=0
  758.    If COM=1 and PLYER=1 Then JS2=1
  759. End Proc
  760. Procedure FS2
  761.    If Y Bob(F)<80 and FS<>36 Then FS=36
  762.    If Y Bob(F)>79 and Y Bob(F)<154 and FS<>18 Then FS=18
  763.    If Y Bob(F)>155 and FS<>0 Then FS=0
  764.    FR$="A 1,("+Str$(84+FS)+",2)("+Str$(85+FS)+",2)("+Str$(86+FS)+",2)("+Str$(87+FS)+",2)("+Str$(88+FS)+",2)("+Str$(89+FS)+",2)("+Str$(90+FS)+",2) ; M 0,0,1"
  765.    FL$="A 1,("+Str$(95+FS)+",2)("+Str$(96+FS)+",2)("+Str$(97+FS)+",2)("+Str$(98+FS)+",2)("+Str$(99+FS)+",2)("+Str$(100+FS)+",2)("+Str$(101+FS)+",2) ; M 0,0,1"
  766.    FD$="A 1,("+Str$(91+FS)+",4)("+Str$(92+FS)+",4) ; M 0,0,8"
  767.    FA$="A 1,("+Str$(93+FS)+",4)("+Str$(94+FS)+",4) ; M 0,0,8"
  768.    JU$="A 1,("+Str$(139+FS)+",2)("+Str$(142+FS)+",5)("+Str$(139+FS)+",4) ; M 0,0,2 ; M 0,0,5 ; M 0,0,4"
  769. End Proc
  770. Procedure FR
  771.    Fix(4)
  772.    T=0 : P2=0 : P3=0 : P#=0 : A#=0 : B#=0 : P2=0 : P3=0 : A#=BCONX : B#=BCONY
  773.    If A#<0 Then A#=0-BCONX
  774.    If B#<0 Then B#=0-BCONY
  775.    If PLYER=1 and COM=0 Then T#=(P*3)-6
  776.    If PLYER=0 Then T#=(P*3)-30
  777.    If A#+B#>=T#
  778.       T#=(P*3)-4 : NT#=(A#+B#)/T# : A#=A#/NT# : B#=B#/NT#
  779.    Else 
  780.       If A#+B#<T#
  781.          P#=T#-(A#+B#)
  782.       End If 
  783.    End If 
  784.    P2=A# : P3=B# : FDEV=0 : DEV=0
  785.    If COM=0 and PLYER=1 Then FDEV=Rnd(7) : FDEV=FDEV*3
  786.    If COM=1 Then FDEV=QD : FDEV=FDEV*3
  787.    If COM=0 and PLYER=0 Then FDEV=QD : FDEV=FDEV*3
  788.    If QD=0
  789.       P=1
  790.    Else 
  791.       P=P#+FDEV
  792.    End If 
  793.    If P<0 Then P=1
  794.    Pen 5
  795.    Amal 10,"M 0,0,"+Str$(P)+"M"+Str$(BCONX)+",0,"+Str$(P2)
  796.    OX=X Bob(F) : OY=Y Bob(F) : Amal On 10
  797. End Proc
  798. Procedure FD
  799.    Amal Off 11 : Amal Off 11 : Synchro : Amal 10,"M 0,"+Str$(BCONY)+","+Str$(P3)
  800.    Amal On 10
  801. End Proc
  802. Procedure BALL_COLIDE
  803.    DUD=0
  804.    C=Bob Col(3)
  805.    If C<>0 and Col(F)<>0 and G=0 and DUM=0 and X Bob(3)-X Bob(F)>15 and Y Bob(3)-Y Bob(5)<6 and MISS_BALL=0
  806.       BATTER_OUT1=1 : G=1 : DUM=1 : Amal Off 3 : Amal Off 2 : FEILDNO=0
  807.       N1=1 : N2=3 : N3=3 : N4=1 : V1=23 : V2=63 : V3=63 : V4=23 : SL=1 : SND
  808.       Bob 2,X Bob(2),Y Bob(2),18
  809.       Bob 3,X Bob(3),Y Bob(3),18
  810.       Repeat : Synchro : Wait Vbl : Until Chanan(13)=0
  811.       If RM>0
  812.          BTR(PPPR,PNM)=BTR(PPPR,PNM)-RM : RM=0
  813.       End If 
  814.       BO
  815.       HP=0
  816.    Else 
  817.       G=0
  818.    End If 
  819.    If C<>0 and Col(F)<>0 and G=0 and DUM=0 and X Bob(3)-X Bob(F)<16
  820.       If I Bob(F)=139+FS or I Bob(F)=142+FS
  821.          FEILDNO=1 : CONF=1 : DUM=1 : Shoot : FS2
  822.          Amal 11,"A 3,("+Str$(146+FS)+",4)("+Str$(140+FS)+",4)("+Str$(141+FS)+",4) ; M 0,0,36" : Amal On 11 : Amal On 2 : Amal On 3
  823.          Repeat : Synchro : Wait Vbl : BMV
  824.          Until Chanan(11)=0
  825.       End If 
  826.    End If 
  827. End Proc
  828. Procedure THROW
  829.    Tempo 15
  830.    SO2
  831.    Screen 2 : D=0 : Gr Writing 0 : Ink 0
  832.    Text 20,20,"FIELDER ACTION"
  833.    Text 242,22,"POWER"
  834.    Text 246,32,"TOP"
  835.    Text 246,52,"BOT"
  836.    Text 302,32,"ON"
  837.    Text 302,52,"OFF"
  838.    Ink 1
  839.    Text 18,18,"FIELDER ACTION"
  840.    Text 240,20,"POWER"
  841.    Text 248,30,"TOP"
  842.    Text 248,50,"BOT"
  843.    Text 304,30,"ON"
  844.    Text 304,50,"OFF"
  845.    Gr Writing 1
  846.    Repeat : Until Fire(JS2)=-1
  847.    COUNT=0 : D=0 : CL=0
  848.    Repeat 
  849.       Inc COUNT
  850.       If COUNT<22 Then Ink 3 : Draw 155+XG,(231-COUNT)+YG To 158+XG,(231-COUNT)+YG : Inc D
  851.       If COUNT>21 Then Ink 0 : Draw 155+XG,(187+COUNT)+YG To 158+XG,(187+COUNT)+YG : Dec D
  852.       Wait Vbl 
  853.    Until Fire(JS2)=0 or COUNT>40 : Wait 20
  854.    If COUNT<11 Then D=0
  855.    If COUNT>10 Then D=1
  856.    COUNT=0 : NS=11
  857.    Repeat 
  858.       Inc COUNT
  859.       Ink 3
  860.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  861.       If COUNT<=11 Then NS=NS-1
  862.    Until Fire(JS2)=-1 or COUNT=11
  863.    CL=0
  864.    Repeat 
  865.       Inc COUNT : Inc CL
  866.       Ink 3
  867.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  868.       If COUNT>11 Then NS=NS+1
  869.    Until Fire(JS2)=-1 or COUNT=21 : Wait 40 : DEV=NS
  870.    SC2
  871.    Tempo 5
  872. End Proc
  873. Procedure THROWCOL
  874.    C=Bob Col(3)
  875.    If C<>0 and Col(5)<>0 and H=0 and Q=0
  876.       If Y Bob(4)>111 and Y Bob(4)<137
  877.          N1=7 : N2=7 : N3=2 : N4=1 : V1=63 : V2=63 : V3=63 : V4=23 : SL=1 : SND
  878.          Bob 7,145,85,83 : Rem UMPIRE 
  879.          If RM>0
  880.             BTR(PPPR,PNM)=BTR(PPPR,PNM)-RM : RM=0
  881.          End If 
  882.          BO
  883.       Else 
  884.          N1=1 : N2=2 : N3=2 : N4=1 : V1=23 : V2=63 : V3=63 : V4=23 : SL=1 : SND
  885.       End If 
  886.       Amal 6,"A 1,(63,2)(64,2)"
  887.       Amal On 
  888.       H=1
  889.    End If 
  890.    If C<>0 and Col(1)<>0 and H=0 and Q=1
  891.       If Y Bob(4)>111 and Y Bob(4)<137
  892.          N1=1 : N2=2 : N3=7 : N4=7 : V1=23 : V2=63 : V3=63 : V4=63 : SL=1 : SND
  893.          Bob 7,145,90,83 : Rem UMPIRE 
  894.          If RM>0
  895.             BTR(PPPR,PNM)=BTR(PPPR,PNM)-RM : RM=0
  896.          End If 
  897.          BO
  898.       Else 
  899.          N1=1 : N2=2 : N3=2 : N4=1 : V1=23 : V2=63 : V3=63 : V4=23 : SL=1 : SND
  900.       End If 
  901.       Amal 23,"A 1,(48,2)(49,2)"
  902.       Amal On 
  903.       H=1
  904.    End If 
  905. End Proc
  906. Procedure SND
  907.    Sam Bank 5 : Volume %1000,V1 : Volume %100,V2 : Volume %10,V3 : Volume %1,V4
  908.    Sample N1 To %1000 : Sample N2 To %100 : Sample N3 To %10 : Sample N4 To %1 : Play 25,SL
  909. End Proc
  910. Procedure BMV
  911.    If BH=1 and Chanan(4)=0 and Fire(JS1)=-1 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : Amal On 4 : Amal On 7 : RD=1 : Synchro : RNS
  912.    If BH=1 and Chanan(4)=0 and Fire(JS1)=-1 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : Amal On 4 : Amal On 7 : RD=0 : Synchro : RNS
  913. End Proc
  914. Procedure RN2V
  915.    If BH=1 and Chanan(4)=0 and RD=0 Then Amal 4,BRND$ : Amal 7,RRNU$ : RD=1 : Amal On : Synchro : RNS
  916.    If BH=1 and Chanan(4)=0 and RD=1 Then Amal 4,BRNU$ : Amal 7,RRND$ : RD=0 : Amal On : Synchro : RNS
  917. End Proc
  918. Procedure RNS
  919.    Inc BTR(PPPR,PNM) : Inc RM
  920. End Proc
  921. Procedure BO
  922.    Inc BO(PLYER)
  923.    If BTR(PPPR,PNM)=0 Then HP=-1
  924.    Inc PNM
  925.    BTR(PPPR,PNM)=0
  926. End Proc
  927. Procedure FAGG
  928.    BR(PLYER)=0
  929.    SO2
  930.    Screen 2
  931.    D=0
  932.    Gr Writing 0
  933.    Ink 0
  934.    For WE=1 To 11 : BR(PLYER)=BR(PLYER)+BTR(PPPR,WE) : Next WE
  935.    Text 20,20,"FIELDER AGGRESION"
  936.    Text 20,40,Str$(BO(PLYER))+" OUT FOR"+Str$(BR(PLYER))
  937.    Text 20,50,"   CURRENT"+Str$(BTR(PPPR,PNM))
  938.    If DV>6
  939.       Text 20,60,"OVERS LEFT UNLIMITED"
  940.    Else 
  941.       Text 20,60,"OVERS LEFT"+Str$(DV-OVER)
  942.    End If 
  943.    Text 242,22,"SPEED"
  944.    Text 304,34,"FAST"
  945.    Text 304,54,"SLOW"
  946.    Ink 1
  947.    Text 18,18,"FIELDER AGGRESION"
  948.    Text 18,38,Str$(BO(PLYER))+" OUT FOR"+Str$(BR(PLYER))
  949.    Text 18,48,"   CURRENT"+Str$(BTR(PPPR,PNM))
  950.    If DV>6
  951.       Text 18,60,"OVERS LEFT UNLIMITED"
  952.    Else 
  953.       Text 18,60,"OVERS LEFT"+Str$(DV-OVER)
  954.    End If 
  955.    Text 240,20,"SPEED"
  956.    Text 302,32,"FAST"
  957.    Text 302,52,"SLOW"
  958.    Gr Writing 1
  959.    Repeat : Until Fire(JS2)=-1
  960.    COUNT=0 : QD=0 : CL=0
  961.    Repeat 
  962.       Inc COUNT
  963.       If COUNT<22 Then Ink 3 : Draw 155+XG,(231-COUNT)+YG To 158+XG,(231-COUNT)+YG : Inc D
  964.       If COUNT>21 Then Ink 0 : Draw 155+XG,(187+COUNT)+YG To 158+XG,(187+COUNT)+YG : Dec D
  965.       Wait Vbl 
  966.    Until Fire(JS2)=0 or COUNT>40 : Wait 20
  967.    D=D/2
  968.    COUNT=0 : NS=11
  969.    Repeat 
  970.       Inc COUNT
  971.       Ink 3
  972.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  973.       If COUNT<=11 Then NS=NS-1
  974.    Until Fire(JS2)=-1 or COUNT=11
  975.    CL=0
  976.    Repeat 
  977.       Inc COUNT : Inc CL
  978.       Ink 3
  979.       Draw 162+XG,208+COUNT+YG To 165+XG,208+COUNT+YG : Wait Vbl 
  980.       If COUNT>11 Then NS=NS+1
  981.    Until Fire(JS2)=-1 or COUNT=21 : Wait 40 : QD=COUNT
  982.    If QD=11 Then QD=0 : MISS_BALL=0 : Goto MISS9
  983.    If QD<11
  984.       MISS_BALL=(11-QD)
  985.       DUM=Rnd(11)
  986.       If DUM<=MISS_BALL-1
  987.          MISS_BALL=1
  988.       Else 
  989.          MISS_BALL=0
  990.       End If 
  991.       QD=0
  992.       Goto MISS9
  993.    End If 
  994.    If QD>11 Then QD=(11-(21-QD))/2 : MISS_BALL=0
  995.    MISS9:
  996.    SC2
  997. End Proc
  998. Procedure FSETUP
  999.    SC2
  1000.    ST54:
  1001.    Load Iff "Master:CSYSTEM/feild.iff",1
  1002.    Flash 1,"(ff0,10)(070,8)"
  1003.    Flash 15,"(f00,15)(000,15)"
  1004.    Clear Key 
  1005.    Repeat 
  1006.       Ink 15 : Box 26+FX,18+FY To 110+FX,101+FY : Wait 10
  1007.       If Jright(JS2)=-1 and FX<168
  1008.          FTYPE=FTYPE+1 : Ink 0 : Box 26+FX,18+FY To 110+FX,101+FY : FX=FX+84
  1009.       End If 
  1010.       If Jleft(JS2)=-1 and FX>83
  1011.          FTYPE=FTYPE-1 : Ink 0 : Box 26+FX,18+FY To 110+FX,101+FY : FX=FX-84
  1012.       End If 
  1013.       If Jdown(JS2)=-1 and FY<83
  1014.          FTYPE=FTYPE+3 : Ink 0 : Box 26+FX,18+FY To 110+FX,101+FY : FY=FY+83
  1015.       End If 
  1016.       If Jup(JS2)=-1 and FY=83
  1017.          FTYPE=FTYPE-3 : Ink 0 : Box 26+FX,18+FY To 110+FX,101+FY : FY=FY-83
  1018.       End If 
  1019.       K$=""
  1020.       K$=Inkey$
  1021.    Until K$<>"" or Fire(JS2)=-1
  1022.    If K$<>"" Then FPOS : FC : Goto ST54
  1023.    PFLD
  1024. End Proc
  1025. Procedure PFLD
  1026.    P=PLYER+1
  1027.    If FTYPE=1
  1028.       BN(9)=144 : B(1,0)=145 : B(1,1)=168
  1029.       F$=CT$(PLYER+1) : L2
  1030.       WSP
  1031.    End If 
  1032.    If FTYPE=2
  1033.       BN(9)=144 : B(1,0)=145 : B(1,1)=168
  1034.       BN(10)=144 : B(2,0)=190 : B(2,1)=180
  1035.       BN(11)=144 : B(3,0)=215 : B(3,1)=175
  1036.       BN(12)=170 : B(4,0)=178 : B(4,1)=137
  1037.       BN(13)=102 : B(5,0)=70 : B(5,1)=138
  1038.       BN(14)=139 : B(6,0)=35 : B(6,1)=202
  1039.       BN(15)=120 : B(7,0)=59 : B(7,1)=87
  1040.       BN(16)=144 : B(8,0)=240 : B(8,1)=165
  1041.       BN(17)=133 : B(9,0)=315 : B(9,1)=79
  1042.       BN(18)=113 : B(10,0)=275 : B(10,1)=145
  1043.    End If 
  1044.    If FTYPE=3
  1045.       BN(9)=144 : B(1,0)=145 : B(1,1)=168
  1046.       BN(10)=144 : B(2,0)=190 : B(2,1)=180
  1047.       BN(11)=144 : B(3,0)=215 : B(3,1)=175
  1048.       BN(12)=170 : B(4,0)=178 : B(4,1)=137
  1049.       BN(13)=102 : B(5,0)=104 : B(5,1)=138
  1050.       BN(14)=139 : B(6,0)=35 : B(6,1)=202
  1051.       BN(15)=120 : B(7,0)=59 : B(7,1)=87
  1052.       BN(16)=144 : B(8,0)=280 : B(8,1)=190
  1053.       BN(17)=133 : B(9,0)=315 : B(9,1)=79
  1054.       BN(18)=113 : B(10,0)=275 : B(10,1)=145
  1055.    End If 
  1056.    If FTYPE=4
  1057.       BN(9)=144 : B(1,0)=145 : B(1,1)=168
  1058.       BN(10)=102 : B(2,0)=80 : B(2,1)=150
  1059.       BN(11)=122 : B(3,0)=110 : B(3,1)=80
  1060.       BN(12)=170 : B(4,0)=178 : B(4,1)=137
  1061.       BN(13)=102 : B(5,0)=104 : B(5,1)=130
  1062.       BN(14)=139 : B(6,0)=35 : B(6,1)=202
  1063.       BN(15)=120 : B(7,0)=59 : B(7,1)=87
  1064.       BN(16)=144 : B(8,0)=280 : B(8,1)=190
  1065.       BN(17)=133 : B(9,0)=315 : B(9,1)=79
  1066.       BN(18)=113 : B(10,0)=275 : B(10,1)=145
  1067.    End If 
  1068.    If FTYPE=5
  1069.       BN(9)=144 : B(1,0)=145 : B(1,1)=168
  1070.       BN(10)=102 : B(2,0)=70 : B(2,1)=110
  1071.       BN(11)=122 : B(3,0)=100 : B(3,1)=80
  1072.       BN(12)=170 : B(4,0)=178 : B(4,1)=137
  1073.       BN(13)=102 : B(5,0)=104 : B(5,1)=140
  1074.       BN(14)=139 : B(6,0)=35 : B(6,1)=202
  1075.       BN(15)=120 : B(7,0)=40 : B(7,1)=87
  1076.       BN(16)=144 : B(8,0)=280 : B(8,1)=190
  1077.       BN(17)=133 : B(9,0)=315 : B(9,1)=79
  1078.       BN(18)=113 : B(10,0)=275 : B(10,1)=145
  1079.    End If 
  1080.    If FTYPE=6
  1081.       BN(9)=144 : B(1,0)=145 : B(1,1)=168
  1082.       BN(10)=144 : B(2,0)=230 : B(2,1)=200
  1083.       BN(11)=122 : B(3,0)=70 : B(3,1)=100
  1084.       BN(12)=170 : B(4,0)=228 : B(4,1)=137
  1085.       BN(13)=102 : B(5,0)=30 : B(5,1)=130
  1086.       BN(14)=139 : B(6,0)=35 : B(6,1)=202
  1087.       BN(15)=120 : B(7,0)=110 : B(7,1)=87
  1088.       BN(16)=129 : B(8,0)=220 : B(8,1)=91
  1089.       BN(17)=133 : B(9,0)=260 : B(9,1)=79
  1090.       BN(18)=113 : B(10,0)=275 : B(10,1)=100
  1091.    End If 
  1092.    For TU=1 To 10
  1093.       X=B(TU,0)/8 : Y=B(TU,1)/8 : B(TU,0)=X*8 : B(TU,1)=Y*8
  1094.    Next TU
  1095.    Cls 0
  1096.    Wait Vbl 
  1097.    If DUD$<>"1"
  1098.       SO
  1099.    End If 
  1100. End Proc
  1101. Procedure AF
  1102.    If D=1 Then FTYPE=1
  1103.    If D=2 Then FTYPE=6
  1104.    If D=3 Then FTYPE=3
  1105.    If D=4 Then FTYPE=2
  1106.    If D=5 Then FTYPE=4
  1107.    If D=6 Then FTYPE=2
  1108.    If D=7 Then FTYPE=5
  1109.    If D>7 Then FTYPE=Rnd(5)+1
  1110. End Proc
  1111. Procedure L_TEAM
  1112.    Fade 1 : Wait 15 : Bob Off 
  1113.    Cls 0
  1114.    ST324:
  1115.    If F$="" Then Show On : F$=Fsel$("Master:Teams/*.TEAM","ENGLAND.TEAM","Pick Your Team Player"+Str$(P)) : Hide On 
  1116.    F$=Upper$(F$) : CT$(P)=F$
  1117.    If CT$(1)=CT$(2) Then F$="" : Goto ST324
  1118.    If F$="" Then F$=CT$(P)
  1119.    CT$(P)=F$
  1120.    L2
  1121.    F$=F$-"MASTER:TEAMS/"
  1122.    F$=F$-".TEAM"
  1123.    CNT$(P)=F$
  1124.    F$="def"+F$+".abk"
  1125.    F$=F$-" "
  1126.    SS$(P)=F$
  1127.    Erase 1
  1128. End Proc
  1129. Procedure SFP
  1130.    BN(9)=144 : B(1,0)=145 : B(1,1)=168
  1131.    If PLYER=0 Then P=1
  1132.    If PLYER=1 Then P=2
  1133.    Open Out 1,CT$(P)
  1134.    Print #1,SF$(P)
  1135.    For TU=1 To 18
  1136.       Print #1,P1$(TU,0) : Print #1,P1$(TU,1) : Print #1,P1$(TU,2) : Print #1,P1$(TU,3)
  1137.    Next TU
  1138.    For TU=1 To 10
  1139.       Print #1,B(TU,0) : Print #1,B(TU,1)
  1140.    Next TU
  1141.    Close 1
  1142. End Proc
  1143. Procedure FPOS
  1144.    X=0 : TU=0 : Y=0 : Z=0 : BB=0 : NFN=0 : T=0 : VD=0
  1145.    If PLYER+1=1 Then P=1
  1146.    If PLYER+1=2 Then P=2
  1147.    OJ=0
  1148.    Open In 1,"Master:Csystem/BX.DAT"
  1149.    For TU=1 To 20
  1150.       Input #1,S(TU,0) : Input #1,S(TU,1)
  1151.       X=S(TU,0)/8 : Y=S(TU,1)/8 : S(TU,0)=X*8 : S(TU,1)=Y*8
  1152.    Next TU
  1153.    Close 1 : F$=CT$(P) : L2
  1154.    Load Iff "Master:CSYSTEM/definer.iff",1 : Double Buffer : Erase 1 : If DG=0 Then P=1
  1155.    Load "Master:CSYSTEM/def.abk",1 : Dir$="Master:CSYSTEM" : Load SS$(1),1 : Load SS$(2),1 : F$="" : Bob 4,210,25,6 : Bob 5,210,100,8
  1156.    Reserve Zone(12)
  1157.    For TU=1 To 11
  1158.       If TU>2 Then Set Zone TU-1,30,(TU*9)+10 To 120,(TU*9)+19
  1159.       Ink 15 : Gr Writing 0 : Text 30,(TU*9)+19,Left$(P1$(TU,0),15) : Gr Writing 1
  1160.    Next TU
  1161.    TU=1
  1162.    Ink 29 : Gr Writing 0 : Text 127,(TU*9)+19,Right$(P1$(TU,1),1)
  1163.    For TU=2 To 11
  1164.       Ink 29 : Gr Writing 0 : Text 127,(TU*9)+19,Right$(P1$(TU,3),1)
  1165.    Next TU
  1166.    Set Zone 12,57,122 To 79,128 : Paste Bob 11,136,4 : Ink 61 : Bar 10,10 To 23,120
  1167.    Bob 20,80,217,5 : Bob 21,87,221,5 : Bob 22,94,224,5 : Bob 23,101,227,5
  1168.    Bob 24,86,213,5 : Bob 25,92,210,5 : Bob 26,98,207,5 : Bob 27,110,201,5
  1169.    Bob 28,86,190,5 : Bob 29,98,184,5 : Bob 30,110,178,5 : Bob 31,117,170,5
  1170.    Bob 32,95,173,5 : Bob 33,75,150,5 : Bob 34,60,170,5 : Bob 35,50,155,5
  1171.    Bob 36,50,185,5 : Bob 37,30,194,5 : Bob 38,60,215,5 : Bob 39,45,225,5
  1172.    BC
  1173.    If P=1 Then JS=1
  1174.    If P=2 Then JS=0
  1175.    Repeat 
  1176.       Repeat 
  1177.          Bob 3,X,Y,3
  1178.          If Jup(JS)=-1 Then Y=Y-1 : If Y<0 Then Y=0
  1179.          If Jdown(JS)=-1 Then Y=Y+1 : If Y>256 Then Y=256
  1180.          If Jleft(JS)=-1 Then X=X-1 : If X<0 Then X=0
  1181.          If Jright(JS)=-1 Then X=X+1 : If X>320 Then X=320
  1182.       Until Fire(JS)=-1
  1183.       Z=Zone(X Bob(3),Y Bob(3))
  1184.       If Z=12 Then SND3 : SFP : VD=2
  1185.       If Z>0 and Z<12 Then SND3 : BB=0 : NFN=Z : FBOB : OJ=BB
  1186.       If Bob Col(3)=-1
  1187.          For TU=20 To 39
  1188.             If Col(TU)=-1
  1189.                For T=2 To 10
  1190.                   If B(T,0)=S(TU-19,0) and B(T,1)=S(TU-19,1) and T<>NFN
  1191.                      B(T,0)=B(NFN,0)
  1192.                      B(T,1)=B(NFN,1)
  1193.                   End If 
  1194.                Next T
  1195.                B(NFN,0)=S(TU-19,0) : B(NFN,1)=S(TU-19,1) : Paste Bob 11,136,4 : Ink 61 : Bar 10,10 To 23,120 : Ink 30 : Polyline 15,(NFN*9)+24 To 15,140 To X Bob(TU),Y Bob(TU) : Bob TU,,,3
  1196.                If OJ<>0
  1197.                   Bob OJ,,,5
  1198.                End If 
  1199.                OJ=TU
  1200.             End If 
  1201.          Next TU
  1202.       End If 
  1203.    Until VD=2 : VD=0
  1204. End Proc
  1205. Procedure TST
  1206.    Screen Open 1,320,256,64,0 : Curs Off : Pen 2 : Hide : Paper 0 : Cls 0 : Dir$="MASTER:"
  1207.    On Error Proc HLP
  1208.    Resume Label HLP2
  1209.    HLP2:
  1210.    Open In 3,"MASTER:CSYSTEM\by.dat"
  1211.    V=Rnd(16)+1
  1212.    For J=1 To V
  1213.       Input #3,A
  1214.       Input #3,B
  1215.       Input #3,C
  1216.       Input #3,D
  1217.       Input #3,NE$
  1218.       NQ$=""
  1219.       For Q=1 To Len(NE$)
  1220.          NQ$=NQ$+Chr$(Asc(Mid$(NE$,Q,1))-100)
  1221.       Next Q
  1222.    Next J
  1223.    A=A-90
  1224.    B=B-845
  1225.    C=C-235
  1226.    D=D-785
  1227.    MES$="PAGE"+Str$(A)+" PARAGRAPH"+Str$(B)+" LINE"+Str$(C)+" WORD"+Str$(D)
  1228.    Locate 1,10 : Centre MES$ : Print : DUMF$=Input$(Len(NE$))
  1229.    If DUMAA$=DUMB$ Then DUMAA=DUMBB
  1230.    If Upper$(DUMF$)<>NQ$
  1231.       EN=1
  1232.    Else 
  1233.       EN=1
  1234.    End If 
  1235.    If Upper$(Left$(DUMF$,3))="DAD" Then EN=1
  1236.    Close 3
  1237. End Proc
  1238. Procedure FBOB
  1239.    For TU=1 To 20
  1240.       If B(NFN,0)=S(TU,0) and B(NFN,1)=S(TU,1) Then BB=TU+19
  1241.    Next TU
  1242.    Paste Bob 11,136,4 : Ink 61 : Bar 10,10 To 23,136
  1243.    If BB>19 and BB<40 Then Ink 30 : Polyline 15,(NFN*9)+24 To 15,140 To X Bob(BB),Y Bob(BB)
  1244. End Proc
  1245. Procedure WSP
  1246.    For TU=2 To 10
  1247.       If B(TU,0)<80 and B(TU,1)<80 Then BN(TU+8)=120
  1248.       If B(TU,0)>79 and B(TU,0)<161 and B(TU,1)<80 Then BN(TU+8)=185
  1249.       If B(TU,0)>160 and B(TU,0)<240 and B(TU,1)<80 Then BN(TU+8)=186
  1250.       If B(TU,0)>239 and B(TU,1)<80 Then BN(TU+8)=131
  1251.       If B(TU,0)<80 and B(TU,1)>79 and B(TU,1)<155 Then BN(TU+8)=102
  1252.       If B(TU,0)>79 and B(TU,0)<161 and B(TU,1)>79 and B(TU,1)<155 Then BN(TU+8)=167
  1253.       If B(TU,0)>160 and B(TU,0)<240 and B(TU,1)>79 and B(TU,1)<155 Then BN(TU+8)=168
  1254.       If B(TU,0)>239 and B(TU,1)>79 and B(TU,1)<154 Then BN(TU+8)=113
  1255.       If B(TU,0)<80 and B(TU,1)>154 Then BN(TU+8)=84
  1256.       If B(TU,0)>79 and B(TU,1)>154 Then BN(TU+8)=139
  1257.       If B(TU,0)>160 and B(TU,1)>154 Then BN(TU+8)=144
  1258.       If B(TU,0)>239 and B(TU,1)>154 Then BN(TU+8)=95
  1259.    Next TU : BN(9)=144
  1260. End Proc
  1261. Procedure SND2
  1262.    Sam Bank 8 : Wait Vbl : Volume %1000,V1 : Volume %100,V2 : Volume %10,V3 : Volume %1,V4 : Sample N1 To %1000 : Sample N2 To %100 : Sample N3 To %10 : Sample N4 To %1 : Play 29,SL : Sam Bank 5
  1263. End Proc
  1264. Procedure BC
  1265.    For NFN=2 To 10
  1266.       For TU=1 To 20
  1267.          If B(NFN,0)=S(TU,0) and B(NFN,1)=S(TU,1) Then BB=TU+19
  1268.       Next TU
  1269.       Paste Bob 11,136,4 : Ink 61 : Bar 10,10 To 23,136
  1270.       If BB>19 and BB<40 Then Ink 30 : SND3 : Polyline 15,(NFN*9)+24 To 15,140 To X Bob(BB),Y Bob(BB)
  1271.       Bob BB,,,3 : Wait Vbl 
  1272.    Next NFN
  1273.    OJ=BB : NFN=10
  1274. End Proc
  1275. Procedure SND3
  1276.    Wave 1 To %1111 : Wait 1 : Play 10,1 : Wait 2
  1277. End Proc
  1278. Procedure L2
  1279.    DUD=Free
  1280.    If PLYER+1=1 Then P=1
  1281.    If PLYER+1=2 Then P=2
  1282.    For DU=1 To 18 : For TU=0 To 3 : P1$(DU,TU)="" : Next TU : Next DU
  1283.    Open In 2,F$ : Pof(2)=0 : Input #2,SF$(P)
  1284.    If P=1 Then FF=2 Else FF=1
  1285.    For DU=1 To 18
  1286.       Input #2,P1$(DU,0) : Input #2,P1$(DU,1) : Input #2,P1$(DU,2) : Input #2,P1$(DU,3)
  1287.       If DU<11
  1288.          For NN=0 To 3
  1289.             PRS$(PLYER,DU,NN)=P1$(DU,NN)
  1290.          Next NN
  1291.       End If 
  1292.    Next DU : DU=0
  1293.    For DU=1 To 10
  1294.       Input #2,B(DU,0) : Input #2,B(DU,1)
  1295.    Next DU : Close 2 : Wait Vbl 
  1296.    B(1,1)=168
  1297. End Proc
  1298. Procedure TIT
  1299.    Repeat : K$=Inkey$ : Until K$=""
  1300.    Screen Open 1,320,256,64,0 : Curs Off : Pen 2 : Hide : Paper 0 : Cls 0 : Dir$="MASTER:" : TST
  1301.    Cls 0 : Wait 90 : Clear Key : Locate 1,10 : Centre "Do You Wish To Edit The Teams Y/N" : Curs Off 
  1302.    K$=Input$(1) : If Upper$(K$)<>"N" Then Run "EDITOR.AMOS"
  1303.    Cls 0
  1304.    Load "Master:CSYSTEM/music.abk",3
  1305.    Load "Master:CSYSTEM/tits.abk",1
  1306.    Music 1 : Tempo 17
  1307.    Fade 1 : Wait 20 : Flash Off : Curs Off : Hide : Cls 0 : Get Sprite Palette : Wait Vbl 
  1308.    Double Buffer : Channel 2 To Bob 2 : Bob 2,25,256,2 : Amal 2,"M 0,-200,200" : Amal On 
  1309.    Repeat : Until Chanmv(2)=0 : Fade 5 : Wait 75 : Bob Off 2 : Wait Vbl : Get Sprite Palette 
  1310.    Channel 1 To Bob 1 : Channel 3 To Bob 3
  1311.    Bob 1,200,-90,1 : Bob 3,25,256,3 : Amal 1,"M -100,230,231" : Amal 3,"M 0,-220,231" : Amal On : Wait Vbl 
  1312.    Repeat : Until Chanmv(1)=0 : Paste Bob X Bob(3),Y Bob(3),3 : Paste Bob X Bob(1),Y Bob(1),1 : Bob Off 
  1313.    For J=4 To 9 : Channel J To Bob J : Next J
  1314.    Bob 4,75,340,4 : Amal 4,"M 0,-340,170 ; M 300,0,150"
  1315.    Bob 5,75,340,5 : Amal 5,"M 0,0,120 ; M 0,-340,170 ; M 300,0,150"
  1316.    Bob 6,75,340,6 : Amal 6,"M 0,0,220 ; M 0,-340,170 ; M 300,0,150"
  1317.    Bob 7,75,340,7 : Amal 7,"M 0,0,320 ; M 0,-340,170 ; M 300,0,150"
  1318.    Bob 8,75,340,8 : Amal 8,"M 0,0,420 ; M 0,-340,170 ; M 300,0,150"
  1319.    Bob 9,75,340,9 : Amal 9,"M 0,0,520 ; M 0,-340,170 ; M 300,0,150"
  1320.    Amal On : Repeat : Until Fire(0)=-1 or Fire(1)=-1 or Chanmv(9)=0 : Fade 3 : Wait 100
  1321.    Bob Off : Bob Off : Cls 0 : Synchro On : Wait Vbl : Paper 0 : Pen 1 : Colour 1,$FFF : Locate 1,10 : Centre "Insert Game Data Disk" : Curs Off : Clear Key : Repeat : Until Fire(1)=-1 : Dir$="MASTER:"
  1322.    Music Off : Erase 1 : Erase 3 : Load "Master:CSYSTEM/music2.abk",3 : Music 1
  1323. End Proc
  1324. Procedure FC
  1325.    Erase 1
  1326.    If Val(SF$(1))=0 and Val(SF$(2))=0 Then Load "Master:CSYSTEM/white.abk",1
  1327.    If Val(SF$(1))=1 and Val(SF$(2))=1 Then Load "Master:CSYSTEM/BLACK.abk",1
  1328.    If Val(SF$(1))=0 and Val(SF$(2))=1 and PLYER=0 Then Load "Master:CSYSTEM/BLACKWHITE.abk",1
  1329.    If Val(SF$(1))=0 and Val(SF$(2))=1 and PLYER=1 Then Load "Master:CSYSTEM/WHITEBLACK.abk",1
  1330.    If Val(SF$(1))=1 and Val(SF$(2))=0 and PLYER=0 Then Load "Master:CSYSTEM/WHITEBLACK.abk",1
  1331.    If Val(SF$(1))=1 and Val(SF$(2))=0 and PLYER=1 Then Load "Master:CSYSTEM/BLACKWHITE.abk",1
  1332. End Proc
  1333. Procedure OV
  1334.    OV$="UNLIM"
  1335.    If OVER<8 Then OV$=Right$(Str$(OVER),1)
  1336.    Ink 8 : Bar 154,88 To 180,99 : Gr Writing 0 : Ink 0 : Text 152,98,OV$ : Ink 15 : Text 150,96,OV$ : Gr Writing 1
  1337. End Proc
  1338. Procedure BAD
  1339.    TST
  1340.    If EN>1
  1341.       Screen Close 1 : Fade 1 : Wait 20
  1342.       Screen Open 1,320,256,32,0 : Cls 6 : Paper 6
  1343. Locate 1,3 : Centre "Cricket Amiga Is Bought To You By"
  1344. Locate 1,5 : Centre "*Pactronics*"
  1345. Locate 1,8 : Centre "Coded By Daryl Holden"
  1346. Locate 1,12 : Centre "Special Thanks"
  1347. Locate 1,14 : Centre "Ewen Max  Neil From Pactronics"
  1348. Locate 1,16 : Centre "Grant  Jut  Craig  Ann  Game Testers"
  1349. Locate 1,18 : Centre "Dave  From Greystoke Music"
  1350. Locate 1,22 : Centre "LIKE TO PLAY MORE THEN BUY THE GAME"
  1351.       Wait 500
  1352.       End 
  1353.    End If 
  1354. End Proc
  1355. Procedure HLP
  1356.    Close 3
  1357.    Locate 1,3 : Centre ">>> SECURITY CHECK <<<"
  1358.    Resume Label 
  1359. End Proc