%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:864 File Name:CRICKET Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Cls \ClrText \ViewWindow 1,127,0,1,63,0 \Vertical 1 \Horizontal 1 \Vertical 127 \Horizontal 63 \Horizontal 54 \Text 3,20,"\aster\aster\aster CRICKET 2001 \aster\aster\aster" \Text 20,38,"VERSION : 2.1" \Text 30,20,"CREATED : FEBRUARY 2001" \Text 40,30,"BY : CLINTON SCOTT" \Horizontal 9 \Text 57,40,"PRESS : [EXE]"\Disp\Lbl D \Prog "NEW" \Cls \Vertical 1 \Horizontal 1 \Vertical 127 \Horizontal 63 \Horizontal 9 \F-Line 21,1,21,9 \F-Line 42,1,42,9 \F-Line 63,1,63,9 \F-Line 84,1,84,9 \F-Line 105,1,105,9 \Circle 100,36,26 \F-Line 96,46,96,26 \F-Line 105,46,105,26 \F-Line 96,46,105,46 \F-Line 96,26,105,26 \Plot 96,42 \Plot 100,42 \F-Line 50,55,50,12 \F-Line 70,55,70,12 \F-Line 50,55,70,55 \F-Line 50,12,70,12 \F-Line 60,55,60,60 \F-Line 62,60,62,55 \F-Line 58,55,58,60 \F-Line 58,60,62,60 \Vertical 42 \F-Line 1,43,42,43 \Text 3,3,"INN:" \Text 9,3,"SC:" \Text 15,3,"OV:" \Text 15,20,"." \Text 9,20,"\slash" \F-Line 1,35,42,35 \StoPict 1 \Mat C[1,2]=1\=>\Goto1 \Mat C[1,2]=2\=>\Goto2 \Lbl 1 \Prog "PLAY1" \Prog "STATS" \Mat C[1,3]=1\=>1\->\Mat C[1,4] 0\->\Mat C[1,3] 2\->\Mat C[1,2] 0\->\Mat A[1,7] 0\->R \Prog "PLAY2" \Prog "STATS" \Goto3 \Lbl 2 \Mat C[1,3]=1\=>1\->\Mat C[1,4] 0\->\Mat C[1,3] \Prog "PLAY2" \Prog "STATS" 1\->\Mat C[1,2] 0\->\Mat A[1,7] 0\->R \Mat C[1,4]=1\=>1\->\Mat C[1,3] 0\->\Mat C[1,4] \Prog "PLAY1" \Prog "STATS" \Lbl 3 \Prog "FINAL" \Vertical 1\Disp\GotoD %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1194 File Name:NEW Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Deg \CoordOff \GridOff \AxesOff \LabelOff \Norm \DerivOff \Cls 0\->A~Z {2,8}\->\Dim \Mat A {1,5}\->\Dim \Mat C {4,6}\->\Dim \Mat B \Vertical 1 \Horizontal 1 \Vertical 127 \Horizontal 63 \Horizontal 54 \Text 3,18,"\aster\aster\aster CRICKET 2001 \aster\aster\aster" \Text 12,42,"NEW GAME" \Horizontal 45 \Text 30,25,"CHOOSE GAME TYPE" \Text 40,9,"F1\->P1 VS P2 \slash F6\->CAL VS P1" \Lbl F \Getkey\->A A=79\=>0\->\Mat C[1,3] A=29\=>1\->\Mat C[1,3] A=79\=>\GotoG A=29\=>\GotoG \GotoF \Lbl G \Text 30,15,"CHOOSE GAME LENGTH\->OVERS" \Text 40,9," F1\->2 \slash F3\->6 \slash F6\->10 " \Lbl D \Getkey\->A A=79\=>2\->O A=59\=>6\->O A=29\=>10\->O A=79\=>\GotoE A=59\=>\GotoE A=29\=>\GotoE \GotoD \Lbl E \Text 40,9," " 1=\Mat C[1,3]\=>\GotoH \Text 30,5,"CHOOSE WHO IS PLAYER 1 AND 2" \Text 55,46,"PRESS EXE"\Disp\Lbl H \Text 55,46," " \Text 30,5," AUTOMATIC CALL OF TOSS " 0\->A~B \For 1\->A \To 10 B+1\->B 10-B\->C \Text 40,55,C \Next \Text 30,5," " \Text 40,55," " 0\->A~B 20\Ran#+1\->A A>10\=>\Goto1 A\<=10\=>\Goto2 \Lbl 1 \Text 30,35,"PLAYER 1 WINS" 1\->\Mat C[1,1] 1\->B \Goto3 \Lbl 2 0=\Mat C[1,3]\=>\Text 30,35,"PLAYER 2 WINS" 1=\Mat C[1,3]\=>\Text 30,33,"CALCULATER WINS" 2\->\Mat C[1,1] 2\->B 1=\Mat C[1,3]\=>\GotoI \Goto3 \Lbl I \Int 2\Ran#+1\->A A=1\=>\Goto6 A=2\=>\Goto7 \Lbl 3 \Text 40,27,"BAT: F1 \slash BOWL: F6" 0\->A \Lbl 4 \Getkey\->A A=79\=>\Goto6 A=29\=>\Goto7 \Goto4 \Lbl 6 B=1\=>1\->\Mat C[1,2] B=2\=>2\->\Mat C[1,2] \Goto8 \Lbl 7 B=1\=>2\->\Mat C[1,2] B=2\=>1\->\Mat C[1,2] \Lbl 8 \Mat C[1,2]=1\=>\Text 40,27," PLY1 BATTING " \Mat C[1,2]=1\=>\GotoJ \Mat C[1,3]=0\=>\Text 40,27," PLY2 BATTING " \Mat C[1,3]=1\=>\Text 40,25,"CALCULATER BATTING" \Lbl J \Mat C[1,3]=1\=>1\->\Mat C[1,5] \Text 55,46,"PRESS EXE"\Disp %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:328 File Name:PLAY1 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 23,3,"PRESS EXE" \(-)1\->G 1\->M \Lbl 1 \Vertical 1\DispG+1\->G G>5\=>\Mat A[1,3]+1\->\Mat A[1,3] G>5\=>0\->G \Mat A[1,7]>0\=>\Mat A[1,2]+1\->\Mat A[1,2] \Mat B[1,M]+R\->\Mat B[1,M] \Mat A[1,7]>0\=>\Mat A[1,7]\->\Mat B[3,M] \Mat A[1,7]>0\=>M+1\->M \Mat A[1,1]+R\->\Mat A[1,1] \Mat A[1,2]>5\=>\Goto2 \Mat A[1,3]=O\=>\Goto2 \Cls \RclPict 1 \Text 3,20,"PL 1" \Text 9,15,\Mat A[1,2] \Text 9,26,\Mat A[1,1] \Text 15,15,\Mat A[1,3] \Text 15,26,G \Prog "BOWLING" \Prog "SHOTSEL" \Goto1 \Lbl 2 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:364 File Name:PLAY2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 23,3,"PRESS EXE" 1\->N \(-)1\->F \Lbl 1 \Vertical 1\DispF+1\->F F>5\=>\Mat A[2,3]+1\->\Mat A[2,3] F>5\=>0\->F \Mat A[1,7]>0\=>\Mat A[2,2]+1\->\Mat A[2,2] \Mat B[2,N]+R\->\Mat B[2,N] \Mat A[1,7]>0\=>\Mat A[1,7]\->\Mat B[4,N] \Mat A[1,7]>0\=>N+1\->N \Mat A[2,1]+R\->\Mat A[2,1] \Mat A[2,2]>5\=>\Goto2 \Mat A[2,3]=O\=>\Goto2 \Cls \RclPict 1 \Mat C[1,4]=0\=>\Text 3,20,"PL 2" \Mat C[1,4]=1\=>\Text 3,20,"CAL " \Text 9,15,\Mat A[2,2] \Text 9,26,\Mat A[2,1] \Text 15,15,\Mat A[2,3] \Text 15,26,F \Prog "BOWLING" \Prog "SHOTSEL" \Goto1 \Lbl 2 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1081 File Name:BOWLING Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Mat C[1,2]=1\=>\Goto9 \Mat C[1,2]=2\=>\Goto8 \Lbl 9 G=0\=>\GotoE \GotoB \Lbl 8 F=0\=>\GotoE \GotoB \Lbl E \Mat A[2,7]=1\=>\GotoB \Mat C[1,3]=0\=>\GotoG \Int 4\Ran#+1\->A A=1\=>1\->\Mat A[1,5] A=2\=>2\->\Mat A[1,5] A=3\=>3\->\Mat A[1,5] A=4\=>4\->\Mat A[1,5] \GotoB \Lbl G \Text 23,3,"SELECT\-> " \Text 31,3," OVER" \Text 37,3,"F3\->F6" \Text 57,44,"PACE" \Text 57,65,"MEDP" \Text 57,86,"OFFS" \Text 57,107,"LEGS" \Lbl A 0\->A \Getkey\->Q Q=59\=>1\->\Mat A[1,5] Q=49\=>2\->\Mat A[1,5] Q=39\=>3\->\Mat A[1,5] Q=29\=>4\->\Mat A[1,5] Q=59\=>\GotoB Q=49\=>\GotoB Q=39\=>\GotoB Q=29\=>\GotoB \GotoA \Lbl B 0\->\Mat A[2,7] \Text 23,3," " \Text 31,3," " \Text 37,3," " 0\->A \Mat A[1,5]\->A A=1\=>\Text 23,3,"PACE" A=2\=>\Text 23,3,"MEDIUMS" A=3\=>\Text 23,3,"OFF SPIN" A=4\=>\Text 23,3,"LEG SPIN" \Mat C[1,3]=0\=>\GotoH \Mat A[1,5]=4\=>\GotoI \Int 10\Ran#+1\->A A=10\=>66\->\Mat A[1,6] A<10\=>60\->\Mat A[1,6] A<5\=>54\->\Mat A[1,6] \GotoD \Lbl I \Int 10\Ran#+1\->A A=10\=>54\->\Mat A[1,6] A<10\=>60\->\Mat A[1,6] A<5\=>66\->\Mat A[1,6] \GotoD \Lbl H \Text 31,3," KEY IN\->" \Text 37,3," [1~2~3] " 0\->B \Lbl C \Getkey\->B B=72\=>54\->\Mat A[1,6] B=62\=>60\->\Mat A[1,6] B=52\=>66\->\Mat A[1,6] B=72\=>\GotoD B=62\=>\GotoD B=52\=>\GotoD \GotoC \Lbl D \Text 31,3," " \Text 37,3," " 12\->C \Mat A[1,6]\->D \Mat A[1,5]=1\=>\Goto1 \Mat A[1,5]=2\=>\Goto2 \Mat A[1,5]=3\=>\Goto3 \Mat A[1,5]=4\=>\Goto4 \Lbl 1 \Plot \Mat A[1,6],C C+5\->C C>55\=>\Goto5 \Goto1 \Lbl 2 \Plot \Mat A[1,6],C C+3\->C C>55\=>\Goto5 \Goto2 \Lbl 3 \Plot D,C C+3\->C C>45\=>1+D\->D C>57\=>\Goto5 \Goto3 \Lbl 4 \Plot D,C C+3\->C C>45\=>D-1\->D C>57\=>\Goto5 \Goto4 \Lbl 5 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1049 File Name:SHOTSEL Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A~B 0\->R 0\->\Mat A[1,7] \Mat A[1,5]\->A \Mat A[1,6]\->B A+B=67\=>\Goto1 A+B=68\=>\Goto1 A+B=69\=>\Goto1 A+B=58\=>\Goto1 0\->A~B \Mat C[1,4]=0\=>\GotoE \Mat A[1,5]\->A A=1\=>\GotoF A=2\=>\GotoF A=3\=>\GotoG A=4\=>\GotoH \Lbl F \Mat A[1,6]=54\=>\GotoJ \Int 5\Ran#+1\->A A=5\=>64\->Q A=4\=>63\->Q A=3\=>62\->Q A=2\=>52\->Q A=1\=>53\->Q \GotoM \Lbl J \Int 10\Ran#+1\->A A=10\=>74\->Q A<10\=>73\->Q A<5\=>72\->Q \GotoM \Lbl G \Mat A[1,6]=54\=>\GotoK \Int 5\Ran#+1\->A A=5\=>64\->Q A=4\=>63\->Q A=3\=>54\->Q A=2\=>53\->Q A=1\=>52\->Q \GotoM \Lbl K \Int 5\Ran#+1\->A A=5\=>74\->Q A=4\=>73\->Q A=3\=>72\->Q A=2\=>53\->Q A=1\=>54\->Q \GotoM \Lbl H \Mat A[1,6]=60\=>\GotoL \Int 5\Ran#+1\->A A=5\=>64\->Q A=4\=>63\->Q A=3\=>54\->Q A=2\=>53\->Q A=1\=>52\->Q \GotoM \Lbl L \Int 5\Ran#+1\->A A=5\=>74\->Q A=4\=>73\=>Q A=3\=>72\->Q A=2\=>64\->Q A=1\=>63\->Q \GotoM \Lbl E \Getkey\->Q \Lbl M Q=72\=>\Prog "1COVER" Q=73\=>\Prog "4CUT" Q=74\=>\Prog "7GULLY" Q=62\=>\Prog "2DRIVE" Q=63\=>\Prog "5BLK~DAN" Q=64\=>\Prog "8BFOOT" Q=52\=>\Prog "3MIDWKT" Q=53\=>\Prog "6PULL" Q=54\=>\Prog "9HOOK" Q>50\=>\Prog "TEXTCOM" Q>50\=>\Goto2 \Mat A[1,5]\->A A=1\=>\GotoA A=2\=>\GotoB A=3\=>\GotoC A=4\=>\GotoD \Lbl A \Mat A[1,6]=54\=>\Goto2 1\->\Mat A[1,7] \Goto2 \Lbl B \Mat A[1,6]=54\=>\Goto2 1\->\Mat A[1,7] \Goto2 \Lbl C \Mat A[1,6]=60\=>\Goto2 1\->\Mat A[1,7] \Goto2 \Lbl D \Mat A[1,6]=60\=>\Goto2 1\->\Mat A[1,7] \Goto2 \Lbl 1 \Text 31,3,"EXTRA\->" \Text 37,3,"WIDE" \Mat C[1,2]=1\=>G-1\->G \Mat C[1,2]=2\=>F-1\->F \Mat A[1,8]+1\->\Mat A[1,8] \Mat C[1,2]=1\=>1+\Mat A[2,5]\->\Mat A[2,5] \Mat C[1,2]=2\=>1+\Mat A[2,6]\->\Mat A[2,6] 1\->\Mat A[2,7] 1\->R \Goto0 \Lbl 2 \Prog "TEXTCOM" \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:370 File Name:1COVER Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"COV" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=60\=>\GotoB \Goto5 \Lbl 2 \Mat A[1,6]=60\=>\GotoB \Goto5 \Lbl 3 \Mat A[1,6]=60\=>\GotoC \Goto5 \Lbl 4 \Mat A[1,6]=66\=>\GotoB \Lbl 5 \Int 20\Ran#+1\->A A=19\=>\GotoC A=18\=>\GotoE A=17\=>1\->R A=20\=>6\->R A<17\=>4\->R A<14\=>3\->R A<10\=>2\->R R=6\=>\F-Line 98,42,74,16 R=4\=>\F-Line 98,42,79,21 R=3\=>\F-Line 98,42,88,18 R=2\=>\F-Line 98,42,89,30 R=1\=>\F-Line 98,42,89,36 \Goto0 \Lbl B 1\->\Mat A[1,7] \Goto0 \Lbl C 2\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl F 5\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:413 File Name:4CUT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"CUT" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=60\=>\GotoB \Goto5 \Lbl 2 \Mat A[1,6]=60\=>\GotoG \Goto5 \Lbl 3 \Mat A[1,6]=60\=>\Goto0 \Goto5 \Lbl 4 \Mat A[1,6]=66\=>\GotoB \Int 5\Ran#+1\->A A=5\=>4\->R A=4\=>6\->R A<4\=>\Goto5 \Goto6 \Lbl 5 \Int 20\Ran#+1\->A A<18\=>1\->R A<10\=>2\->R A<5\=>3\->R A=18\=>\GotoD A=19\=>\GotoE A=20\=>\GotoF \Lbl 6 R=1\=>\F-Line 98,42,89,41 R=2\=>\F-Line 98,42,85,39 R=3\=>\F-Line 98,42,77,43 R=4\=>\F-Line 98,42,75,42 R=6\=>\F-Line 98,42,67,45 \Goto0 \Lbl B 1\->\Mat A[1,7] \Goto0 \Lbl D 3\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl F 5\->\Mat A[1,7] \Goto0 \Lbl G 6\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:439 File Name:7GULLY Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"GUL" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=60\=>\GotoB \Int 5\Ran#+1\->A A=5\=>\GotoD A=4\=>\GotoE 4\->R \Goto6 \Lbl 2 \Mat A[1,6]=60\=>\GotoG \Goto5 \Lbl 3 \Mat A[1,6]=60\=>\Goto0 \Goto5 \Lbl 4 \Mat A[1,6]=66\=>\GotoB \Int 2\Ran#+1\->A A=1\=>1\->R A=2\=>2\->R \Goto6 \Lbl 5 \Int 20\Ran#+1\->A A=20\=>\GotoC A=19\=>\GotoD A=18\=>\GotoE A=17\=>\GotoF A<17\=>3\->R A<15\=>2\->R A<7\=>1\->R \Lbl 6 R=4\=>\F-Line 98,42,82,55 R=3\=>\F-Line 98,42,82,52 R=2\=>\F-Line 98,42,84,46 R=1\=>\F-Line 98,42,89,45 \Goto0 \Lbl B 1\->\Mat A[1,7] \Goto0 \Lbl C 2\->\Mat A[1,7] \Goto0 \Lbl D 3\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl F 5\->\Mat A[1,7] \Goto0 \Lbl G 6\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:469 File Name:2DRIVE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"DRV" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=54\=>\GotoE \Goto5 \Lbl 2 \Mat A[1,6]=60\=>\Goto5 \Int 2\Ran#+1\->A A=1\=>3\->R A=1\=>\F-Line 98,42,82,52 A=2\=>\GotoE \Goto5 \Lbl 3 \Mat A[1,6]=60\=>\GotoP \Int 2\Ran#+1\->A A=1\=>\GotoE A=2\=>\Goto5 \Goto5 \Lbl 4 \Int 2\Ran#+1\->A A=1\=>\Goto5 A=2\=>\GotoC \Lbl 5 \Int 20\Ran#+1\->A A=20\=>\GotoC A=19\=>\GotoD A=18\=>\GotoE A=17\=>\GotoF A=16\=>\GotoG A<16\=>3\->R A<13\=>2\->R A<10\=>1\->R \Lbl 6 R=3\=>\F-Line 100,42,100,12 R=2\=>\F-Line 100,42,99,18 R=1\=>\F-Line 100,42,93,21 \Goto0 \Lbl B 1\->\Mat A[1,7] \Goto0 \Lbl C 2\->\Mat A[1,7] \Goto0 \Lbl D 3\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl F 5\->\Mat A[1,7] \Goto0 \Lbl G 6\->\Mat A[1,7] \Goto0 \Lbl P 10\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:474 File Name:5BLK~DAN Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"BLK" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=54\=>\Goto0 \Int 5\Ran#+1\->A A=5\=>\GotoG A<3\=>\GotoA A>2\=>\GotoB \Lbl 2 \Mat A[1,6]=54\=>\Goto0 \Int 2\Ran#+1\->A A=1\=>\GotoA A=2\=>\GotoB \Lbl 3 \Mat A[1,6]=54\=>\GotoA \Mat A[1,6]=60\=>\GotoB \Lbl 4 \Mat A[1,6]=60\=>\GotoA \Int 2\Ran#+1\->A A=1\=>\GotoB A=2\=>\GotoP \Lbl A \Int 20\Ran#+1\->A A=20\=>\GotoE A=19\=>\GotoG A=18\=>\GotoI A<18\=>2\->R A<9\=>1\->R R=2\=>\F-Line 100,42,89,30 R=1\=>\F-Line 100,42,89,41 \Goto0 \Lbl B \Int 20\Ran#+1\->A A=20\=>\GotoE A=19\=>\GotoG A=18\=>\GotoI A<18\=>2\->R A<9\=>1\->R R=2\=>\F-Line 100,42,116,31 R=1\=>\F-Line 100,42,113,37 \Goto0 \Lbl G 6\->\Mat A[1,7] \Goto0 \Lbl P 10\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl I 8\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:544 File Name:8BFOOT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"BFT" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=54\=>\GotoE \Int 2\Ran#+1\->A A=1\=>1\->R A=1\=>\F-Line 100,42,93,21 A=1\=>\Goto0 A=2\=>\Goto0 \Goto0 \Lbl 2 \Mat A[1,6]=54\=>\GotoE \Goto5 \Lbl 3 \Mat A[1,6]=54\=>\Goto5 \Int 2\Ran#+1\->A A=1\=>1\->R A=1\=>\F-Line 100,42,111,43 A=2\=>2\->R A=2\=>\F-Line 100,42,114,49 \Goto0 \Lbl 4 \Mat A[1,6]=60\=>\GotoE \Int 5\Ran#+1\->A A=5\=>\GotoC A=4\=>3\->R A=4\=>\F-Line 100,42,111,58 A=3\=>2\->R A=3\=>\F-Line 100,42,114,49 A<3\=>1\->R A<3\=>\F-Line 100,42,111,43 \Goto0 \Lbl 5 \Int 20\Ran#+1\->A A=20\=>\GotoC A=19\=>\GotoG A=18\=>\GotoD A<18\=>3\->R A<10\=>2\->R A<5\=>1\->R \Lbl 6 R=1\=>\F-Line 100,42,89,36 R=2\=>\F-Line 100,42,89,30 R=3\=>\F-Line 100,42,77,43 \Goto0 \Lbl C 2\->\Mat A[1,7] \Goto0 \Lbl D 3\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl G 6\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:477 File Name:3MIDWKT Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"MID" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=60\=>\Goto5 \Int 3\Ran#+1\->A A=1\=>\Goto0 A=2\=>\GotoD A=3\=>\GotoE \Goto0 \Lbl 2 \Mat A[1,6]=54\=>\GotoD \Int 4\Ran#+1\->A A=1\=>6\->R A=2\=>4\->R A=3\=>3\->R A=4\=>\GotoC \Goto6 \Lbl 3 \Mat A[1,6]=54\=>\GotoB \Int 3\Ran#+1\->A A=1\=>3\->R A=2\=>4\->R A=3\=>\GotoC \Goto6 \Lbl 4 \Mat A[1,6]=60\=>\GotoE \Int 3\Ran#+1\->A A=1\=>\Goto5 A=2\=>3\->R A=3\=>4\->R \Goto6 \Lbl 5 \Int 9\Ran#+1\->A A<9\=>1\->R A<4\=>2\->R A=9\=>\GotoC \Lbl 6 R=1\=>\F-Line 100,42,113,37 R=2\=>\F-Line 100,42,116,31 R=3\=>\F-Line 100,42,116,22 R=4\=>\F-Line 100,42,122,22 R=6\=>\F-Line 100,42,124,11 \Goto0 \Lbl B 1\->\Mat A[1,7] \Goto0 \Lbl C 2\->\Mat A[1,7] \Goto0 \Lbl D 3\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:567 File Name:6PULL Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"PUL" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto2 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=54\=>\Goto0 \Int 4\Ran#+1\->A A=1\=>\GotoB A=2\=>\GotoG A=3\=>\Goto5 A=4\=>4\->R \Goto6 \Lbl 2 \Mat A[1,6]=54\=>\Goto0 \Int 5\Ran#+1\->A A=1\=>\GotoB A=2\=>\GotoC A=3\=>\GotoG A=4\=>4\->R A=5\=>\Goto5 \Goto6 \Lbl 3 \Mat A[1,6]=54\=>\GotoB \Int 5\Ran#+1\->A A=5\=>\GotoC A=4\=>6\->R A=3\=>4\->R A<3\=>\Goto5 \Goto6 \Lbl 4 \Mat A[1,6]=60\=>\GotoE \Int 5\Ran#+1\->A A=5\=>\GotoC A=4\=>6\->R A=3\=>4\->R A<3\=>\Goto5 \Goto6 \Lbl 5 \Int 20\Ran#+1\->A A=20\=>\GotoC A=19\=>\GotoI A=18\=>\GotoJ A<18\=>3\->R A<15\=>2\->R A<10\=>1\->R \Lbl 6 R=1\=>\F-Line 100,42,113,37 R=2\=>\F-Line 100,42,117,39 R=3\=>\F-Line 100,42,123,41 R=4\=>\F-Line 100,42,126,40 R=6\=>\F-Line 100,42,127,51 \Goto0 \Lbl B 1\->\Mat A[1,7] \Goto0 \Lbl C 2\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl G 6\->\Mat A[1,7] \Goto0 \Lbl I 8\->\Mat A[1,7] \Goto0 \Lbl J 9\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:404 File Name:9HOOK Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Text 57,3,"HOK" \Mat A[1,5]\->A A=1\=>\Goto1 A=2\=>\Goto1 A=3\=>\Goto3 A=4\=>\Goto4 \Lbl 1 \Mat A[1,6]=54\=>\Goto0 \Int 2\Ran#+1\->A A=1\=>\GotoB A=2\=>\GotoG \Goto0 \Lbl 3 \Mat A[1,6]=54\=>\GotoB \Int 5\Ran#+1\->A A=5\=>\GotoC A<5\=>\Goto5 \Goto0 \Lbl 4 \Mat A[1,6]=54\=>\GotoE \Int 5\Ran#+1\->A A=5\=>\GotoC \Lbl 5 \Int 20\Ran#+1\->A A=20\=>\GotoC A=19\=>\GotoD A=18\=>\GotoJ A<18\=>3\->R A<14\=>2\->R A<8\=>1\->R \Lbl 6 R=1\=>\F-Line 100,42,111,43 R=2\=>\F-Line 100,42,114,49 R=3\=>\F-Line 100,42,111,58 \Goto0 \Lbl B 1\->\Mat A[1,7] \Goto0 \Lbl C 2\->\Mat A[1,7] \Goto0 \Lbl D 3\->\Mat A[1,7] \Goto0 \Lbl E 4\->\Mat A[1,7] \Goto0 \Lbl G 6\->\Mat A[1,7] \Goto0 \Lbl J 9\->\Mat A[1,7] \Lbl 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:329 File Name:TEXTCOM Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record R>0\=>\Goto1 \Mat A[1,7]\->A A>0\=>\Text 31,3,"OUT\->" A=1\=>\Text 37,3,"BOWLED" 2\->B \Lbl 0 A=B\=>\Text 37,3,"CAUGHT" B+1\->B B>5\=>\Goto2 \Goto0 \Lbl 2 A=3\=>\Text 43,3,"~BEHIND" A=4\=>\Text 43,3,"~SLIPS" A=5\=>\Text 43,3,"~BOWLED" A=6\=>\Text 37,3,"L.B.W." A=7\=>\Text 37,3,"HIT WKT" A=8\=>\Text 37,3,"RUN OUT" A=9\=>\Text 37,3,"RET.HURT" A=0\=>\Text 31,3,"DOT BALL" A=10\=>\Text 37,3,"STUMPED" \Goto4 \Lbl 1 \Text 31,3,"RUNS:" \Text 31,25,R \Lbl 4 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1286 File Name:STATS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Cls 0\->Q \Mat C[1,2]=1\=>1\->Q \Mat C[1,2]=2\=>2\->Q \Mat C[1,2]=1\=>2\->S \Mat C[1,2]=2\=>1\->S Q=1\=>3\->T Q=2\=>4\->T \Vertical 1 \Vertical 127 \Horizontal 1 \Horizontal 63 \Horizontal 55 \Mat C[1,5]=0\=>\GotoG \Mat C[1,2]=1\=>\GotoG \Text 3,9,"STATISTICS FOR CALCULATOR" \GotoK \Lbl G \Text 3,18,"STATISTICS FOR PLAYER" \Text 3,105,Q \Lbl K \Text 11,8,"TOTAL SCORE" \Mat A[Q,2]>9\=>\Text 17,5,"-" \Mat A[Q,2]>9\=>\Goto4 \Text 17,5,\Mat A[Q,2] \Lbl 4 \Text 17,10,"\slash" \Text 17,15,\Mat A[Q,1] \Text 17,30,"OFF" \Text 23,5,\Mat A[Q,3] \Text 23,13,"." Q=1\=>\Text 23,18,G Q=2\=>\Text 23,18,F \Text 23,30,"OVERS" \F-Line 1,35,54,35 \F-Line 54,1,54,55 \F-Line 1,14,54,14 Q=2\=>\Text 31,10,"PLAYER 1" Q=2\=>\GotoH \Mat C[1,5]=0\=>\Text 31,10,"PLAYER 2" \Mat C[1,5]=1\=>\Text 31,5,"CALCULATOR" \Lbl H \Mat A[S,2]>9\=>\Text 37,5,"-" \Mat A[S,2]>9\=>\Goto5 \Text 37,5,\Mat A[S,2] \Text 37,10,"\slash" \Text 37,15,\Mat A[S,1] \Text 37,30,"OFF" \Text 43,5,\Mat A[S,3] \Text 43,13,"." Q=1\=>\Text 43,18,F Q=2\=>\Text 43,18,G \Text 43,30,"OVERS" \Text 11,60,"BATTING STATS" \F-Line 54,47,127,47 \F-Line 70,47,70,10 1\->A 19\->B \Lbl 1 A>6\=>\Goto2 \Text B,59,A A+1\->A B+6\->B \Goto1 \Lbl 2 \F-Line 90,47,90,10 \F-Line 54,9,127,9 1\->A 19\->B \Lbl 6 A>6\=>\Goto7 \Text B,74,\Mat B[Q,A] A+1\->A B+6\->B \Goto6 \Lbl 7 1\->A 19\->C \Lbl 8 A>6\=>\Goto9 \Mat B[T,A]\->B B=1\=>\Text C,92,"BOWLED" B=2\=>\Text C,92,"CAUGHT" B=3\=>\Text C,92,"C~BEHIND" B=4\=>\Text C,92,"C~SLIPS" B=5\=>\Text C,92,"C~BOWLED" B=6\=>\Text C,92,"L.B.W." B=7\=>\Text C,92,"HIT WKT" B=8\=>\Text C,92,"RUN OUT" B=9\=>\Text C,92,"RET.HURT" B=10\=>\Text C,92,"STUMPED" B=0\=>\Text C,92," -" C+6\->C A+1\->A \Goto8 \Lbl 9 \Text 57,56,"EXTRAS\->" Q=1\=>\Text 57,89,\Mat A[2,5] Q=2\=>\Text 57,89,\Mat A[2,6] \F-Line 105,9,105,1 \Text 57,107,\Mat A[Q,1] \Text 55,10,"PRESS EXE"\Disp\Cls \RclPict 1 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:747 File Name:FINAL Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Cls \Vertical 1 \Horizontal 1 \Vertical 127 \Horizontal 63 \Horizontal 55 \Horizontal 47 \Text 3,38,"FINAL RESULT" \Text 11,3,"TOSS WON BY\->" \Mat C[1,1]=1\=>\Text 11,60,"PLAYER 1" \Mat C[1,1]=1\=>\Goto1 \Mat C[1,5]=0\=>\Text 11,60,"PLAYER 2" \Mat C[1,5]=1\=>\Text 11,60,"CALCULATOR" \Lbl 1 \Text 20,3,"SCORE\->" \Text 20,35,"PLAYER 1" \Mat C[1,5]=0\=>\Text 20,80,"PLAYER 2" \Mat C[1,5]=1\=>\Text 20,80,"CALCULATOR" \Text 26,40,\Mat A[1,2] \Text 26,45,"\slash" \Text 26,50,\Mat A[1,1] \Text 26,90,\Mat A[2,2] \Text 26,95,"\slash" \Text 26,100,\Mat A[2,1] \Text 32,3,"OVERS\->" \Text 32,40,\Mat A[1,3] \Text 32,47,"." \Text 32,52,G \Text 32,90,\Mat A[2,3] \Text 32,97,"." \Text 32,102,F \Horizontal 26 \Mat A[1,1]=\Mat A[2,1]\=>\GotoA \Mat A[1,1]>\Mat A[2,1]\=>\Text 40,10,"PLAYER 1 HAS WON THE GAME" \Mat A[1,1]>\Mat A[2,1]\=>\GotoA \Mat C[1,5]=0\=>\Text 40,10,"PLAYER 2 HAS WON THE GAME" \Mat C[1,5]=1\=>\Text 40,7,"THE CALCULATOR WON THE GAME" \Lbl A \Mat A[1,1]=\Mat A[2,1]\=>\Text 40,30,"ITS A DRAW" \Horizontal 9 \Text 57,15,"PRESS EXE FOR NEW GAME" %End