CLEO 1 200 5 1 CRICKET AVERAGES CLEO 2 100 3 C.J.D J.C #------- 17 CLEO 3 A1 MT IN 206 NO CLEO 4 RECORDS CTY, BTMAN, BOWLR; #------- 18 CLEO 3 A2 MT OUT 24 CLEO 4 RECORDS CTY, BTMAN, BOWLR; TOTAL PLAYD TO PLAID, WON TO RSULT, LOST TO RSULT, DRAWN TO RSULT; CLEO 5 #------- 19 CTY 1 R NAME 2 2 A PLAYD 2 D WON 2 D LOST 2 D DRAWN 2 D PTS 2 D BTMAN 2 R NAME 3 SNAME 4 4 A INITS 4 A TEAM 3 2 A INNS 3 D TNOUT 3 D TRUNS 3 D BEST 3 D NIND 3 A AVGE 3 2 D NOTE AVGE(1) = INTEGRAL PART # NOTE AVGE(2) = FRACTIONAL PART BOWLR 2 R NAME 3 SNAME 4 4 A #------- 20 INITS 4 A TEAM 3 2 A OVERS 3 D NOTE TOTAL TO DATE MDENS 3 D NOTE SIMILARY RUNS 3 D NOTE SIMILARY WKTS 3 D NOTE SIMILARY AVGE 3 2 D NOTE SAME FORM AS BATTING AVERAGE #------- 21 CLEO 3 #Serial File Id Medium In/Out Max Block Alt Route S/NS LP on/off Start Val End Val D8 INT CLEO 4 RECORDS CTYI, BTMNI, BWLRI, WORK; #------- 22 CLEO 5 CTYI 1 INPUT FOR CTY KEYI 2 A NAMEI 2 2 A GAMEI 2 PLYDI 3 D WONI 3 D LOSTI 3 D DRWNI 3 D BTMNI 1 INPUT FOR BTMAN KEYI 2 A NAMEI 2 SNMEI 3 4 A INITI 3 A TEAMI 2 2 A INNGI 2 4 SCORI 3 D NINDI 3 A BWLRI 1 INPUT FOR BOWLER NAMEI 2 SNAMEI 3 4 A INITI 3 A TEAMI 2 2 A BOWLI 2 4 #------- 23 OVRSI 3 D MDNSI 3 D RUNSI 3 D WKTSI 3 D WORK 1 2 D FBMIN 2 FBRIN 2 NOTE FIRST BATSMAN INDICATOR X 2 NOTE FIRST BOWLER INDICATOR CPT 2 NOTE CONTROL VARIABLE FOR LOOPS BTDTS 2 2 A NOTE CURRENT PT TEAM INNSI 3 NOTE DETAILS FOR INSERTED BATSMAN TNOTI 3 D TRNSI 3 D BESTI 3 D NOINI 3 A AVGE 2 2 D BRDTS 2 NOTE DETAILS FOR INSERTED BOWLER OVSI 3 D MADNI 3 D RNSI 3 D WCKTI 3 D AVG 2 D PLAID 2 D #------- 24 RSULT 2 D CLEO 3 #Serial File Id Medium In/Out Max Block Alt Route S/NS LP on/off Start Val End Val P1 PT IN 16 NO CLEO 4 RECORDS CTY, BTMAN, BOWLR; #------- 26 CLEO 7 #Serial ID LEVEL Actual Max point pos Sign Further CTY 1 EXISTS IF KEY ='TEAM' KEYI 2 NAME 2 SIZE =10 GAMES 2 PLAYD 3 WON 3 LOST 3 DRAWN 3 BTMAN 1 EXISTS IF KEYZ = 'BAT' KEYZ 2 NAME 2 SNAME 3 SIZE = 20 INITS 3 TEAM 2 SIZE = 10 INNGS 2 4 SCORE 3 S NOIND 3 BOWLR 1 NAME 2 NOTE NAME = 'ZZZZZ' AT END OF FILE SNAME 3 SIZE = 20 INITS 3 TEAM 2 SIZE = 10 BOWLD 2 4 #------- 27 OVERS 3 S MDENS 3 RUNS 3 WKTS 3 #------- 28 CLEO 3 #Serial ID Medium In/Out Max Block Alt Route S/NS LP on/off Printer Format Tape L2 LP OUT NS ON CLEO 4 RECORDS CTY, BTMAN, BOWLR, CHGD, BTHGD, BRHGD; #------- 29 CLEO 6 #Serial ID LEVEL occurences Col Pos point pos Sign £ Notes CTY 1 NAME 2 2 485 PLAYD 2 61 WON 2 66 LOST 2 71 DRAWN 2 76 PTS 2 84 BTMAN 1 NAME 2 27 SNAME 3 4 55 INITS 3 25 TEAM 2 2 605 INNS 2 74 TNOUT 2 79 TRUNS 2 85 BEST 2 90 NOIND 2 91 AVGE1 2 99 AVGE2 2 100 NOTE THIS IS THE DECIMAL POINT AVGE3 2 102 BOWLR 1 NAME 2 27 SNAME 3 4 55 #------- 30 INITS 3 25 TEAM 2 2 60.5 OVERS 2 74 MDENS 2 79 RUNS 2 85 WKTS 2 90 AVGE1 2 99 AVGE2 2 100 NOTE THIS IS THE DECIMAL POINT AVGE3 2 102 CHGD 1 NAME 2 2 50.5 PLAYD 2 65 WON 2 70 LOST 2 75 DRAWN 2 80 PTS 2 86 BTHGD 1 NAME 2 42 TEAM 2 2 62.5 INNS 2 75 TNOUT 2 81 TRUNS 2 86 BEST 2 92 #------- 31 AVGE 2 102 BRHDG 1 NAME 2 42 TEAM 2 2 62.5 OVERS 2 78 MDENS 2 83 RUNS 2 89 WKTS 2 94 AVGE 2 102 #------- 32 CLEO 8 #Serial No ch 1 2 3 4 5 6 7 8 1 100 CLEO 9 #Serial Record ident Length Indic Ch No. CTY 0 1 BOWLR 0 1 BTMAN ALL 1 CTYI 0 1 BWLRI 0 1 BTMNI ALL 1 #------- 33 CLEO 10 100 OPEN INPUT A1, P1 OPEN OUTPUT A2, L2 CLEAR FBMIN, FBRIN, CPT(1), CPT(2), PLAID, RSULT PRINT(8) CHGD FROM 'COUNT', 'Y', 'P', 'W', 'L', 'D', 'PTS' 101 OBTAIN A1 102 IF CTY IN A1 BEGIN READ P1 103 BEGIN IF NAME(1) IN CTYI = NAME(1) IN CTY BEGIN SET PLAYD = PLAYD + PLAYDI SET WON = WON + WONI SET LOST = LOST + LOSTI SET DRAWN = DRAWN + DRWNI SET PTS = PTS +2 * WONI +DRWNI DO 200 GO TO 102 END DO 200 GO TO 103 END 104 DO 200 IF CTY IN A1 GO TO 104 GO TO 106 END IF BTMAN IN A1 105 BEGIN READ P1 106 IF BTMAN IN P1 BEGIN IF FBMIN = 0 BEGIN IF PLAID NOT = RSULT HALT 1 GO TO 121 PRINT(8) BTHDG FROM 'NAME', 'COUNT', 'Y', 'INNS', 'TNO', 'RUNS', 'HST', 'AVGE' SET FBMIN = 1 END IF TEAM(1) IN BTMNI > CPT(1) MOVE TEAM(1) IN BTMNI, TEAM(2) IN BTMNI TO CPT(1), CPT(2) 107 IF TEAM(1) IN BTMNI NOT = CPT(1) BEGIN DO 201 GO TO 107 END 108 IF SNAMI(1) IN BTMNI = SNAME(1) IN BTMN BEGIN IF SNAMI(2) IN BTMNI = SNAME(2) IN BTMAN BEGIN IF SNAMI(3) IN BTMNI = SNAME(3) IN BTMAN BEGIN IF SNAMI(4) IN BTMNI = SNAME(4) IN BTMN BEGIN IF INITI IN BTMNI = INITS IN BTMAN BEGIN FOR X = 1 : 1 UNTIL X = 5 OR SCORI(X) = -1 BEGIN SET TRUNS = TRUNS = TRUNS + SCORI(X) IF SCORI(X) > BEST OR (SCORI(X) = BEST AND NINDI(X) = '*') BEGIN SET BEST = SCORI(X) MOVE NINDI(X) TO NIND END IF NINDI(X) = '*' SET TNOUT = TNOUT +1 END SET INNS = X – 1 + INNS IF INNS NOT = TNOUT BEGIN SET AVGE(1) IN BTMAN = (1000 * TRUNS/(INNS – TNOUT))/1000 AND AVGE(2) IN BTMAN = RMAINDER SET (RO) AVGE(2) IN BTMAN = AVGE(2) IN BTMAN/10 END DO 201 GO TO 102 END IF INITI IN BTMNI < INITS IN BTMAN GO TO 110 DO 201 GO TO 109 END IF SNAMI(4) IN BTMNI < SNAME(4) IN BTMAN GO TO 110 DO 201 GO TO 109 END IF SNAMI(3) IN BTMNI < SNAME(3) IN BTMAN GO TO 110 DO 201 GO TO 109 END IF SNAMI(2) IN BTMNI < SNAME(2) IN BTMAN GO TO 110 DO 201 GO TO 109 END IF SNAMI(1) IN BTMNI < SNAME(1) IN BTMAN GO TO 110 DO 201 109 IF BTMAN IN A1 BEGIN IF TEAM(1) IN BTMAN = CPT(1)GO TO 108 110 DO 202 GO TO 105 END GO TO 119 END 111 DO 201 IF BTMAN IN A1 GO TO 111 GO TO 114 END IF BOWLR IN A1 112 BEGIN READ P1 113 IF BOWLR IN P1 114 BEGIN IF FBRIN = 0 BEGIN PRINT(8) BRHDG FROM 'NAME', 'COUNT', 'Y', 'O', 'M', 'R' 'W', 'AVGE' SET FBRIN = 1 CLEAR CPT(1), CPT(2) END IF TEAMI(1) IN BLRLI > CPT(1) MOVE TEAMI(1) IN BWLRI, TEAMI(2), IN BWLRI TO CPT(1), CPT(2) IF SNAMI(1)IN BWLRI = 'ZZZZZ' GO TO 120 115 IF TEAM(1) IN BOWLR NOT CPT(1) BEGIN DO 203 GO TO 115 END 116 IF SNAMI(1) IN BWLRI = SNAME(1) IN BOWLR BEGIN IF SNAMI(2) IN BWLRI = SNAME(2) IN BOWLR BEGIN IF SNAMI(3) IN BWLRI = SNAME(3) IN BOWLR BEGIN IF SNAMI(4) IN BWLRI = SNAME(4) IN BOWLR BEGIN IF INITI IN BWLRI = INITS IN BOWLR BEGIN FOR X = 1 : 1 UNTIL X = 5 OVRSI(X) = -1 SET OVERS = OVERS = OVRSI(X) SET MDENS = MDENS + MDNSI(X) SET RUNS = RUNS + RUNSI(X) END IF WKTS NOT = 0 BEGIN SET AVGE(1) IN BOWLR = (1000 * RUNS/WKTS)/1000 AND AVGE(2) IN BOWLR = REMAINDER SET (RO) AVGE(2) = AVGE(2) IN BOWLR/10 END DO 203 GO TO 102 END IF INITI IN BWLRI < INITS IN BOWLR GO TO 118 DO 203 GO TO 117 END IF SNAMI(4) IN BWLRI < SNAME(4) IN BOWLR GO TO 118 DO 203 GO TO 117 END IF SNAMI(3) IN BWLRI < SNAME(3) IN BOWLR GO TO 118 DO 203 GO TO 117 END IF SNAMI(2) IN BWLRI < SNAME(2) IN BOWLR GO TO 118 DO 203 GO TO 117 END IF SNAMI(1) IN BWLRI < SNAME(1) IN BOWLR GO TO 118 DO 203 117 IF TEAM(1) IN BOWLR = CPT(1) GO TO 116 118 DO 204 GOTO 112 END 119 DO 202 GO TO112 120 IF SNAME(1) IN BOWLR NOT = 'ZZZZZ' BEGIN DO 203 GO TO 120 END FILE BOWLR FROM 'ZZZZZ' CLOSE A1, P1, A2, L2 UNLOAD 121 END SUBROUTINE 200 NOTE OUTPUT COUNTY; BEGIN PRINT CTY FROM CTY FILE CTY FROM CTY OBTAIN A1 END SUBROUTINE 201 NOTE OUTPUT BATSMAN; BEGIN PRINT BTMAN FROM NAME IN BTMAN, TEAM(1) IN BTMAN TEAM(2) IN BTMAN, INNS, TNOUT, TRUNS, BEST, NIND AVGE(1) IN BTMAN, '.' AVGE(2) IN BTMAN FILE BTMAN FRM BTMAN OBTAIN A1 END SUBROUTINE 202 NOTE INSERT BATSMAN; BEGIN CLEAR BTDS FOR X = 1 : 1 UNTIL X = 5 OR SCORI(X) = -1 BEGIN SET TRNSI = TRNSI + SCORI(X) IF SCORI(X) > BESTI OR (SCORI(X) = BESTI AND NINDI(X) = '*') BEGIN SET BESTI = SCORI(X) MOVE NINDI(X) TO NOINI END IF NINDI(X) = '*' SET TNOTI = TNOTI +1 END SET INNSI = X – 1 IF INNSI = TNOTI BEGIN SET AVGE(1) IN WORK = 999 SET AVGE(2) IN WORK = 99 END ELSE BEGIN SET AVGE(1) IN WORK = (1000 * TRNSI/(INNSI – TNOTI))/1000 AND AVGE(2) IN WORK = REMAINDER SET (RO) AVGE(2) IN WORK = AVGE(2) IN WORK/10 END PRINT BTMAN FROM NAMEI IN BTMNI, CPT(1), CPT(2), BTDS AVGE(1) IN WORK, AVGE(2) IN WORK END SUBROUTINE 203 NOTE OUTPUT BOWLER BEGIN PRINT BOWLR FROM NAME IN BOWLR, CPT(1), CPT(2), OVERS, MDENS RUNS, WKTS, AVGE(1) IN BOWLR FILE BOWLR FROM BOWLR OBTAIN A1 END SUBROUTINE 204 NOTE INSET BOWLER; BEGIN CLEAR BRDTS , = AVG(2)//1 FOR X = 1 : 1 UNTIL X = 5 OR OVRSI(X) = -1 BEGIN SET OVSI = OVSI +OVRSI(X) SET MADNI = MADNI + MDNSI(X) SET RNSI = RNSI + RUNSI(X) SET WKTI = WCKTI + WKTSI(X) END SET AVG(1) = (1000 * RNSI/WCKTS)/1000 AND AVG(2) = REMAINDER SET (RO) AVG(2) = AVG(2)/10 END ELSE BEGIN SET AVG(1) = 999 SET AVG(2) = 99 END PRINT BOWLR FROM NAMEI IN BWLRI, CPT(1), CPT(2) BRDTS, AVG(1), '.', AVG(2) FILE BOWLR FROM NAMEI IN BWLRI, CPT(1), CPT(2) BRDTS, AVG(1), AVG(2) • END END !!! Deliberate error