Multiple names: GOOCH'S CRICKET, GOOCH CRICKET
FILE INFORMATION
FILENAME(S):
• GOOCH'S CRICKET<br>• GOOCH CRICKET
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 19:55:11
APPEARS ON: 2 disk(s)
FILE HASH
7a67f43e337062eb73b5fd3acafe8815619e772dc589c36cb3eb675010d24d33
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORTEN ANDERSSON | GOOCH'S CRICKET | PRG | Curtcool, Hans Curt | 29 | 3 | DOWNLOAD FILE |
| SPELLEN | GOOCH CRICKET | PRG | DuncanTwain | 1 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 97 35 33 32 38 31 2C 30 3A 97 |.......53281,0:.| 00000010: 35 33 32 38 30 2C 30 00 48 08 32 00 86 45 24 28 |53280,0.H.2..E$(| 00000020: 32 30 29 2C 45 25 28 32 30 29 2C 45 42 25 28 32 |20),E%(20),EB%(2| 00000030: 30 29 2C 41 24 28 32 30 29 2C 41 25 28 32 30 29 |0),A$(20),A%(20)| 00000040: 2C 41 42 25 28 32 30 29 00 6B 08 64 00 99 22 93 |,AB%(20).k.d..".| 00000050: 47 52 41 48 41 4D 20 47 4F 4F 43 48 27 53 20 54 |GRAHAM GOOCH'S T| 00000060: 45 53 54 20 43 52 49 43 4B 45 54 00 89 08 6E 00 |EST CRICKET...n.| 00000070: 99 22 11 54 45 41 4D 20 53 45 4C 45 43 54 49 4F |.".TEAM SELECTIO| 00000080: 4E 20 50 52 4F 47 52 41 4D 00 B1 08 78 00 99 22 |N PROGRAM...x.."| 00000090: 11 45 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 20 |.ENTER THE NAME | 000000A0: 4F 46 20 54 48 45 20 48 4F 4D 45 20 54 45 41 4D |OF THE HOME TEAM| 000000B0: 22 00 E9 08 82 00 85 22 1D 1D 1D 45 4E 47 4C 41 |"......"...ENGLA| 000000C0: 4E 44 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 45 24 28 |ND.........";E$(| 000000D0: 30 29 3A 8B 45 24 28 30 29 B2 22 45 4E 47 4C 41 |0):.E$(0)."ENGLA| 000000E0: 4E 44 22 A7 8D 37 30 30 30 00 0D 09 8C 00 4C B2 |ND"..7000.....L.| 000000F0: C3 28 45 24 28 30 29 29 3A 8B 4C B2 30 B0 4C B1 |.(E$(0)):.L.0.L.| 00000100: 31 32 A7 8D 35 30 30 30 3A 89 31 32 30 00 35 09 |12..5000:.120.5.| 00000110: 96 00 99 22 11 45 4E 54 45 52 20 54 48 45 20 4E |...".ENTER THE N| 00000120: 41 4D 45 20 4F 46 20 54 48 45 20 41 57 41 59 20 |AME OF THE AWAY | 00000130: 54 45 41 4D 22 00 73 09 A0 00 85 22 1D 1D 1D 41 |TEAM".s...."...A| 00000140: 55 53 54 52 41 4C 49 41 9D 9D 9D 9D 9D 9D 9D 9D |USTRALIA........| 00000150: 9D 9D 9D 22 3B 41 24 28 30 29 3A 8B 41 24 28 30 |...";A$(0):.A$(0| 00000160: 29 B2 22 41 55 53 54 52 41 4C 49 41 22 A7 8D 38 |)."AUSTRALIA"..8| 00000170: 30 30 30 00 97 09 AA 00 4C B2 C3 28 41 24 28 30 |000.....L..(A$(0| 00000180: 29 29 3A 8B 4C B2 30 B0 4C B1 31 32 A7 8D 35 30 |)):.L.0.L.12..50| 00000190: 30 30 3A 89 31 35 30 00 A2 09 AF 00 8B 45 A7 31 |00:.150......E.1| 000001A0: 38 35 00 C9 09 B4 00 59 24 B2 45 24 28 30 29 3A |85.....Y$.E$(0):| 000001B0: 81 49 B2 31 A4 32 30 3A 8D 34 30 30 30 3A 45 24 |.I.1.20:.4000:E$| 000001C0: 28 49 29 B2 58 24 3A 82 49 00 D4 09 B9 00 8B 41 |(I).X$:.I......A| 000001D0: A7 31 39 35 00 FB 09 BE 00 59 24 B2 41 24 28 30 |.195.....Y$.A$(0| 000001E0: 29 3A 81 49 B2 31 A4 32 30 3A 8D 34 30 30 30 3A |):.I.1.20:.4000:| 000001F0: 41 24 28 49 29 B2 58 24 3A 82 49 00 06 0A C3 00 |A$(I).X$:.I.....| 00000200: 8B 45 A7 32 39 35 00 12 0A C8 00 81 49 B2 31 A4 |.E.295......I.1.| 00000210: 32 30 00 3F 0A D2 00 99 22 11 45 4E 54 45 52 20 |20.?....".ENTER | 00000220: 54 48 45 20 42 41 54 54 49 4E 47 20 41 56 45 52 |THE BATTING AVER| 00000230: 41 47 45 20 46 4F 52 20 22 3B 45 24 28 49 29 00 |AGE FOR ";E$(I).| 00000240: 61 0A DC 00 85 58 24 3A 58 B2 C5 28 58 24 29 3A |a....X$:X..(X$):| 00000250: 8B 58 B1 32 35 35 A7 8D 36 30 30 30 3A 89 32 31 |.X.255..6000:.21| 00000260: 30 00 7C 0A E6 00 58 B2 B5 28 58 29 3A 8B 58 B3 |0.|...X..(X):.X.| 00000270: 30 A7 8D 36 30 30 30 3A 89 32 31 30 00 8B 0A F0 |0..6000:.210....| 00000280: 00 45 25 28 49 29 B2 58 3A 82 49 00 96 0A 27 01 |.E%(I).X:.I...'.| 00000290: 8B 41 A7 33 39 35 00 A2 0A 2C 01 81 49 B2 31 A4 |.A.395...,..I.1.| 000002A0: 32 30 00 CF 0A 36 01 99 22 11 45 4E 54 45 52 20 |20...6..".ENTER | 000002B0: 54 48 45 20 42 41 54 54 49 4E 47 20 41 56 45 52 |THE BATTING AVER| 000002C0: 41 47 45 20 46 4F 52 20 22 3B 41 24 28 49 29 00 |AGE FOR ";A$(I).| 000002D0: F1 0A 40 01 85 58 24 3A 58 B2 C5 28 58 24 29 3A |..@..X$:X..(X$):| 000002E0: 8B 58 B1 32 35 35 A7 8D 36 30 30 30 3A 89 33 31 |.X.255..6000:.31| 000002F0: 30 00 0C 0B 4A 01 58 B2 B5 28 58 29 3A 8B 58 B3 |0...J.X..(X):.X.| 00000300: 30 A7 8D 36 30 30 30 3A 89 33 31 30 00 1B 0B 54 |0..6000:.310...T| 00000310: 01 41 25 28 49 29 B2 58 3A 82 49 00 26 0B 8B 01 |.A%(I).X:.I.&...| 00000320: 8B 45 A7 34 39 35 00 32 0B 90 01 81 49 B2 31 A4 |.E.495.2....I.1.| 00000330: 32 30 00 5F 0B 9A 01 99 22 11 45 4E 54 45 52 20 |20._....".ENTER | 00000340: 54 48 45 20 42 4F 57 4C 49 4E 47 20 41 56 45 52 |THE BOWLING AVER| 00000350: 41 47 45 20 46 4F 52 20 22 3B 45 24 28 49 29 00 |AGE FOR ";E$(I).| 00000360: 7C 0B A4 01 85 58 24 3A 58 B2 C5 28 58 24 29 3A ||....X$:X..(X$):| 00000370: 8B 58 B1 31 32 37 A7 58 B2 31 32 37 00 97 0B AE |.X.127.X.127....| 00000380: 01 58 B2 B5 28 58 29 3A 8B 58 B3 35 A7 8D 36 30 |.X..(X):.X.5..60| 00000390: 30 30 3A 89 34 31 30 00 BD 0B B8 01 99 22 46 41 |00:.410......"FA| 000003A0: 53 54 20 4F 52 20 53 4C 4F 57 20 28 54 59 50 45 |ST OR SLOW (TYPE| 000003B0: 20 46 20 4F 52 20 53 29 22 3A 85 58 24 00 D6 0B | F OR S)":.X$...| 000003C0: C2 01 8B 58 24 B2 22 46 22 A7 58 B2 58 AA 31 32 |...X$."F".X.X.12| 000003D0: 38 3A 89 34 39 30 00 E7 0B CC 01 8B 58 24 B3 B1 |8:.490......X$..| 000003E0: 22 53 22 A7 34 34 30 00 F7 0B EA 01 45 42 25 28 |"S".440.....EB%(| 000003F0: 49 29 B2 58 3A 82 49 00 02 0C EF 01 8B 41 A7 39 |I).X:.I......A.9| 00000400: 39 35 00 0E 0C F4 01 81 49 B2 31 A4 32 30 00 3B |95......I.1.20.;| 00000410: 0C FE 01 99 22 11 45 4E 54 45 52 20 54 48 45 20 |....".ENTER THE | 00000420: 42 4F 57 4C 49 4E 47 20 41 56 45 52 41 47 45 20 |BOWLING AVERAGE | 00000430: 46 4F 52 20 22 3B 41 24 28 49 29 00 58 0C 08 02 |FOR ";A$(I).X...| 00000440: 85 58 24 3A 58 B2 C5 28 58 24 29 3A 8B 58 B1 31 |.X$:X..(X$):.X.1| 00000450: 32 37 A7 58 B2 31 32 37 00 73 0C 12 02 58 B2 B5 |27.X.127.s...X..| 00000460: 28 58 29 3A 8B 58 B3 35 A7 8D 36 30 30 30 3A 89 |(X):.X.5..6000:.| 00000470: 35 31 30 00 99 0C 1C 02 99 22 46 41 53 54 20 4F |510......"FAST O| 00000480: 52 20 53 4C 4F 57 20 28 54 59 50 45 20 46 20 4F |R SLOW (TYPE F O| 00000490: 52 20 53 29 22 3A 85 58 24 00 B2 0C 26 02 8B 58 |R S)":.X$...&..X| 000004A0: 24 B2 22 46 22 A7 58 B2 58 AA 31 32 38 3A 89 35 |$."F".X.X.128:.5| 000004B0: 39 30 00 C3 0C 30 02 8B 58 24 B3 B1 22 53 22 A7 |90...0..X$.."S".| 000004C0: 35 34 30 00 D3 0C 4E 02 41 42 25 28 49 29 B2 58 |540...N.AB%(I).X| 000004D0: 3A 82 49 00 DF 0C E3 03 8B 45 A7 31 39 39 35 00 |:.I......E.1995.| 000004E0: 0D 0D E8 03 97 34 39 31 35 32 2C 31 39 35 3A 97 |.....49152,195:.| 000004F0: 34 39 31 35 33 2C 31 39 34 3A 97 34 39 31 35 34 |49153,194:.49154| 00000500: 2C 32 30 35 3A 97 34 39 31 35 35 2C 30 00 26 0D |,205:.49155,0.&.| 00000510: F2 03 81 49 B2 31 A4 31 32 3A 97 34 39 31 35 35 |...I.1.12:.49155| 00000520: AA 49 2C 39 3A 82 00 55 0D FC 03 81 49 B2 31 A4 |.I,9:..U....I.1.| 00000530: C3 28 45 24 28 30 29 29 3A 97 34 39 31 35 35 AA |.(E$(0)):.49155.| 00000540: 49 2C 31 32 38 AA C6 28 CA 28 45 24 28 30 29 2C |I,128..(.(E$(0),| 00000550: 49 29 29 3A 82 00 8B 0D 06 04 50 B2 34 39 31 36 |I)):......P.4916| 00000560: 37 3A 81 49 B2 31 A4 32 30 3A 58 24 B2 C8 28 45 |7:.I.1.20:X$..(E| 00000570: 24 28 49 29 AA 22 20 20 20 20 20 20 20 20 20 20 |$(I)." | 00000580: 22 2C 31 30 29 AA C7 28 31 33 29 00 B1 0D 10 04 |",10)..(13).....| 00000590: 81 4A B2 31 A4 31 31 3A 50 B2 50 AA 31 3A 97 50 |.J.1.11:P.P.1:.P| 000005A0: 2C C6 28 CA 28 58 24 2C 4A 29 29 3A 82 4A 3A 82 |,.(.(X$,J)):.J:.| 000005B0: 49 00 D0 0D 1A 04 97 50 2C 30 3A 81 49 B2 31 A4 |I......P,0:.I.1.| 000005C0: 32 30 3A 97 50 AA 49 2C 45 25 28 49 29 3A 82 49 |20:.P.I,E%(I):.I| 000005D0: 00 F2 0D 24 04 50 B2 50 AA 32 30 3A 81 49 B2 31 |...$.P.P.20:.I.1| 000005E0: A4 32 30 3A 97 50 AA 49 2C 45 42 25 28 49 29 3A |.20:.P.I,EB%(I):| 000005F0: 82 49 00 FE 0D CB 07 8B 41 A7 33 30 30 30 00 3C |.I......A.3000.<| 00000600: 0E D0 07 97 34 39 31 35 32 AA 32 37 36 2C 31 39 |....49152.276,19| 00000610: 35 3A 97 34 39 31 35 33 AA 32 37 36 2C 31 39 34 |5:.49153.276,194| 00000620: 3A 97 34 39 31 35 34 AA 32 37 36 2C 32 30 35 3A |:.49154.276,205:| 00000630: 97 34 39 31 35 35 AA 32 37 36 2C 31 00 59 0E DA |.49155.276,1.Y..| 00000640: 07 81 49 B2 31 A4 31 32 3A 97 34 39 31 35 35 AA |..I.1.12:.49155.| 00000650: 32 37 36 AA 49 2C 39 3A 82 00 8C 0E E4 07 81 49 |276.I,9:.......I| 00000660: B2 31 A4 C3 28 41 24 28 30 29 29 3A 97 34 39 31 |.1..(A$(0)):.491| 00000670: 35 35 AA 32 37 36 AA 49 2C 31 32 38 AA C6 28 CA |55.276.I,128..(.| 00000680: 28 41 24 28 30 29 2C 49 29 29 3A 82 00 C6 0E EE |(A$(0),I)):.....| 00000690: 07 50 B2 34 39 31 36 37 AA 32 37 36 3A 81 49 B2 |.P.49167.276:.I.| 000006A0: 31 A4 32 30 3A 58 24 B2 C8 28 41 24 28 49 29 AA |1.20:X$..(A$(I).| 000006B0: 22 20 20 20 20 20 20 20 20 20 20 22 2C 31 30 29 |" ",10)| 000006C0: AA C7 28 31 33 29 00 EC 0E F8 07 81 4A B2 31 A4 |..(13)......J.1.| 000006D0: 31 31 3A 50 B2 50 AA 31 3A 97 50 2C C6 28 CA 28 |11:P.P.1:.P,.(.(| 000006E0: 58 24 2C 4A 29 29 3A 82 4A 3A 82 49 00 0B 0F 02 |X$,J)):.J:.I....| 000006F0: 08 97 50 2C 30 3A 81 49 B2 31 A4 32 30 3A 97 50 |..P,0:.I.1.20:.P| 00000700: AA 49 2C 41 25 28 49 29 3A 82 49 00 2D 0F 0C 08 |.I,A%(I):.I.-...| 00000710: 50 B2 50 AA 32 30 3A 81 49 B2 31 A4 32 30 3A 97 |P.P.20:.I.1.20:.| 00000720: 50 AA 49 2C 41 42 25 28 49 29 3A 82 49 00 3F 0F |P.I,AB%(I):.I.?.| 00000730: B8 0B 93 22 47 43 54 43 22 2C 38 2C 31 3A 80 00 |..."GCTC",8,1:..| 00000740: 5D 0F A0 0F 99 22 11 45 4E 54 45 52 20 50 4C 41 |]....".ENTER PLA| 00000750: 59 45 52 22 49 22 46 4F 52 20 22 59 24 00 93 0F |YER"I"FOR "Y$...| 00000760: AA 0F 85 58 24 3A 8B C3 28 58 24 29 B1 31 30 A7 |...X$:..(X$).10.| 00000770: 99 22 12 4E 4F 54 20 4D 4F 52 45 20 54 48 41 4E |.".NOT MORE THAN| 00000780: 20 54 45 4E 20 4C 45 54 54 45 52 53 22 3A 89 34 | TEN LETTERS":.4| 00000790: 30 30 30 00 99 0F B4 0F 8E 00 A4 0F 88 13 8B 4C |000............L| 000007A0: B2 30 A7 8E 00 CD 0F 92 13 99 22 12 4E 4F 20 4D |.0........".NO M| 000007B0: 4F 52 45 20 54 48 41 4E 20 31 32 20 4C 45 54 54 |ORE THAN 12 LETT| 000007C0: 45 52 53 20 50 4C 45 41 53 45 22 3A 8E 00 EB 0F |ERS PLEASE":....| 000007D0: 70 17 99 22 12 59 4F 55 20 4D 55 53 54 20 42 45 |p..".YOU MUST BE| 000007E0: 20 4A 4F 4B 49 4E 47 21 22 3A 8E 00 11 10 58 1B | JOKING!":....X.| 000007F0: 99 22 11 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |.".DO YOU WANT T| 00000800: 4F 20 4B 45 45 50 20 54 48 45 20 55 53 55 41 4C |O KEEP THE USUAL| 00000810: 22 00 34 10 62 1B 99 22 45 4E 47 4C 41 4E 44 20 |".4.b.."ENGLAND | 00000820: 53 51 55 41 44 3F 20 45 4E 54 45 52 20 59 20 4F |SQUAD? ENTER Y O| 00000830: 52 20 4E 22 00 4E 10 6C 1B 85 58 24 3A 45 B2 31 |R N".N.l..X$:E.1| 00000840: 3A 8B 58 24 B2 22 4E 22 A7 45 B2 30 3A 8E 00 60 |:.X$."N".E.0:..`| 00000850: 10 76 1B 8B 58 24 B3 B1 22 59 22 A7 37 30 30 30 |.v..X$.."Y".7000| 00000860: 00 66 10 80 1B 8E 00 8C 10 40 1F 99 22 11 44 4F |.f.......@..".DO| 00000870: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 4B 45 45 | YOU WANT TO KEE| 00000880: 50 20 54 48 45 20 55 53 55 41 4C 22 00 B2 10 4A |P THE USUAL"...J| 00000890: 1F 99 22 41 55 53 54 52 41 4C 49 41 4E 20 53 51 |.."AUSTRALIAN SQ| 000008A0: 55 41 44 3F 20 45 4E 54 45 52 20 59 20 4F 52 20 |UAD? ENTER Y OR | 000008B0: 4E 22 00 CC 10 54 1F 85 58 24 3A 41 B2 31 3A 8B |N"...T..X$:A.1:.| 000008C0: 58 24 B2 22 4E 22 A7 41 B2 30 3A 8E 00 DE 10 5E |X$."N".A.0:....^| 000008D0: 1F 8B 58 24 B3 B1 22 59 22 A7 38 30 30 30 00 E4 |..X$.."Y".8000..| 000008E0: 10 68 1F 8E 00 00 00 |.h..... |
.......53281,0:.53280,0.H.2..E$(20),E%(2
0),EB%(20),A$(20),A%(20),AB%(20).K.D..".
GRAHAM GOOCH'S TEST CRICKET...N..".TEAM
SELECTION PROGRAM...X..".ENTER THE NAME
OF THE HOME TEAM"......"...ENGLAND......
...";E$(0):.E$(0)."ENGLAND"..7000.....L.
C(E$(0)):.L.0.L.12..5000:.120.5....".ENT
ER THE NAME OF THE AWAY TEAM".S. .."...A
USTRALIA...........";A$(0):.A$(0)."AUSTR
ALIA"..8000.....L.C(A$(0)):.L.0.L.12..50
00:.150......E.185.I...Y$.E$(0):.I.1.20:
.4000:E$(I).X$:.I.T....A.195.....Y$.A$(0
):.I.1.20:.4000:A$(I).X$:.I...C..E.295..
.H..I.1.20.?.R..".ENTER THE BATTING AVER
AGE FOR ";E$(I).A....X$:X.E(X$):.X.255..
6000:.210.|...X..(X):.X.0..6000:.210....
.E%(I).X:.I...'..A.395...,..I.1.20.O.6..
".ENTER THE BATTING AVERAGE FOR ";A$(I).
..@..X$:X.E(X$):.X.255..6000:.310...J.X.
.(X):.X.0..6000:.310...T.A%(I).X:.I.&...
.E.495.2....I.1.20._....".ENTER THE BOWL
ING AVERAGE FOR ";E$(I).|....X$:X.E(X$):
.X.127.X.127.....X..(X):.X.5..6000:.410.
....."FAST OR SLOW (TYPE F OR S)":.X$.V.
B..X$."F".X.X.128:.490...L..X$.."S".440.
....EB%(I).X:.I......A.995......I.1.20.;
....".ENTER THE BOWLING AVERAGE FOR ";A$
(I).X....X$:X.E(X$):.X.127.X.127.S...X..
(X):.X.5..6000:.510......"FAST OR SLOW (
TYPE F OR S)":.X$...&..X$."F".X.X.128:.5
90.C.0..X$.."S".540.S.N.AB%(I).X:.I.....
.E.1995......49152,195:.49153,194:.49154
,205:.49155,0.&....I.1.12:.49155.I,9:..U
....I.1.C(E$(0)):.49155.I,128.F(J(E$(0),
I)):......P.49167:.I.1.20:X$.H(E$(I)."
",10).G(13)......J.1.11:P.P.1:.P
,F(J(X$,J)):.J:.I.P....P,0:.I.1.20:.P.I,
E%(I):.I...$.P.P.20:.I.1.20:.P.I,EB%(I):
.I...K..A.3000.<.P..49152.276,195:.49153
.276,194:.49154.276,205:.49155.276,1.Y.Z
..I.1.12:.49155.276.I,9:.......I.1.C(A$(
0)):.49155.276.I,128.F(J(A$(0),I)):..F..
.P.49167.276:.I.1.20:X$.H(A$(I)."
",10).G(13)......J.1.11:P.P.1:.P,F(J(
X$,J)):.J:.I......P,0:.I.1.20:.P.I,A%(I)
:.I.-...P.P.20:.I.1.20:.P.I,AB%(I):.I.?.
..."GCTC",8,1:..]. ..".ENTER PLAYER"I"FO
R "Y$......X$:.C(X$).10..".NOT MORE THAN
TEN LETTERS":.4000............L.0...M..
..".NO MORE THAN 12 LETTERS PLEASE":....
P..".YOU MUST BE JOKING!":....X..".DO YO
U WANT TO KEEP THE USUAL".4.B.."ENGLAND
SQUAD? ENTER Y OR N".N.L..X$:E.1:.X$."N"
.E.0:..`.V..X$.."Y".7000.F.......@..".DO
YOU WANT TO KEEP THE USUAL"...J.."AUSTR
ALIAN SQUAD? ENTER Y OR N".L.T..X$:A.1:.
X$."N".A.0:....^..X$.."Y".8000...H.....
> CLICK IMAGE PREVIEW FOR FULL MODAL