Something's wrong...
Issue 1: bugged.
Code: Select all
2 REM [HEX:\
14,63,ED,63,28,64,\
47,64,8C,63,BA,63,\
00,63,04,63,BD,62,\
D7,62,74,63,04,05,\
06,07,03,08,02,09,\
01,0B,0A,0B,03,01,\
06,00,00,FD,64,03,\
0F,02,09,30,21,08,\
00,06,0A,00,9E,00,\
00,00,01,00,00,00,\
00,CD,BB,02,2C,20,\
FA,CD,BB,02,44,4D,\
51,14,28,F7,CD,BD,\
07,7E,C9,06,0B,11,\
82,40,1A,6F,13,1A,\
67,36,34,13,10,F6,\
C9,2A,32,40,54,5D,\
29,29,12,29,29,29,\
19,22,32,40,7C,90,\
30,FD,80,3C,C9,06,\
20,2A,A9,40,36,00,\
23,10,FB,C9,06,00,\
18,02,06,01,2A,10,\
40,0E,06,09,ED,5B,\
A9,40,4E,23,06,00,\
FE,01,20,03,ED,B0,\
C9,09,23,23,23,23,\
3D,18,ED,21,C9,48,\
3E,01,CD,10,41,21,\
00,00,2B,7C,B5,20,\
FB,C9,2A,0C,40,23,\
36,07,06,1E,23,36,\
03,10,FB,23,36,84,\
06,15,23,23,36,05,\
11,1F,00,19,36,85,\
10,F4,23,23,36,82,\
06,1E,23,36,83,10,\
FB,23,36,81,23,23,\
22,A9,40,2A,0C,40,\
01,70,01,09,36,85,\
01,16,00,09,36,05,\
23,AF,ED,42,36,3D,\
2B,2B,09,36,3D,23,\
23,C9,00,00,00,00,\
CD,36,41,36,17,E5,\
CD,BF,40,E1,FE,38,\
CA,66,42,FE,35,28,\
59,F5,7E,FE,34,28,\
02,36,00,F1,FE,21,\
20,0D,2B,7E,FE,34,\
28,71,FE,00,28,3E,\
23,18,3B,FE,22,20,\
12,01,21,00,09,7E,\
FE,34,28,5D,FE,00,\
28,2A,AF,ED,42,18,\
25,FE,23,20,12,01,\
21,00,AF,ED,42,7E,\
FE,34,28,45,FE,00,\
28,12,09,18,0F,FE,\
24,20,0B,23,7F,FE,\
34,28,34,FE,00,28,\
01,2B,36,17,18,99,\
36,34,3A,A8,40,FE,\
00,28,07,3D,32,A8,\
40,F1,18,07,3A,A7,\
40,3C,32,A7,40,01,\
82,40,FE,01,20,08,\
7D,02,03,7C,02,C3,\
46,42,03,03,3D,18,\
EF,36,17,3E,01,F5,\
01,82,40,0A,5F,03,\
0A,57,EB,AF,ED,52,\
20,0B,EB,3A,A8,40,\
3C,32,A8,40,C3,8F,\
41,EB,F1,3C,F5,03,\
18,E3,3A,A7,40,FE,\
0B,C2,8F,41,3D,32,\
A7,40,36,17,E5,3E,\
01,21,EA,48,CD,10,\
41,CD,2F,41,CD,F9,\
40,C3,90,41,3A,A7,\
40,FE,0A,C2,8F,41,\
3A,98,40,FE,00,C2,\
E4,42,06,0B,21,98,\
40,C5,E5,06,0B,CD,\
E3,40,47,21,B0,40,\
23,10,FD,57,7E,FE,\
00,20,EE,3E,01,77,\
E1,C1,72,23,10,E3,\
06,0B,21,B0,40,36,\
00,23,10,FB,11,A3,\
40,06,04,D5,21,08,\
49,C5,3E,01,CD,10,\
41,E5,CD,BF,40,A7,\
FE,28,38,1F,CD,27,\
41,CD,F9,40,21,08,\
49,3E,01,CD,10,41,\
E1,C1,78,FE,04,20,\
04,C5,E5,18,DF,2B,\
2B,2B,2B,18,D2,E1,\
C1,D1,D6,1C,12,13,\
\
D5,10,C8,D1,2A,0C,\
40,01,D6,02,3E,17,\
ED,B1,20,03,2B,36,\
00,CD,18,47,21,2E,\
49,06,03,C5,3E,01,\
CD,10,41,E5,CD,2F,\
41,E1,C1,10,F2,CD,\
BF,40,F5,CD,F9,40,\
F1,FE,32,20,06,2A,\
96,40,C3,54,42,FE,\
27,CA,A2,42,FE,38,\
CA,7B,47,FE,35,20,\
CD,3A,AB,40,47,FE,\
03,20,03,AF,18,01,\
3C,32,AB,40,78,21,\
A3,40,FE,00,28,04,\
23,3D,18,F8,7E,CD,\
9E,43,F5,CD,04,41,\
EB,23,36,39,23,36,\
34,13,1A,47,13,13,\
1A,23,E5,CD,BE,43,\
32,B3,40,3A,B1,40,\
FE,00,20,0B,2A,98,\
40,22,AD,40,3C,3C,\
32,B1,40,3A,B2,40,\
FE,00,20,05,3A,AD,\
40,18,03,3A,AE,40,\
2A,10,40,01,06,00,\
09,D1,13,F5,CD,14,\
41,7E,23,23,23,47,\
7E,CD,BE,43,32,B4,\
40,C3,F0,43,F5,01,\
82,40,3D,FE,00,28,\
04,02,03,18,F7,ED,\
5B,96,40,0A,6F,03,\
0A,67,22,96,40,7A,\
02,7B,0B,02,F1,C9,\
A7,B8,38,0D,C5,F5,\
06,03,CD,E3,40,FE,\
01,F1,C1,20,01,78,\
C9,E5,D5,C5,3E,9B,\
32,30,40,CD,62,0B,\
21,00,07,CD,32,41,\
3E,A0,32,30,40,C1,\
C5,CD,B2,0B,C1,D1,\
E1,C9,3A,B2,40,FE,\
00,28,05,01,32,16,\
18,03,01,0B,16,11,\
02,13,CD,D1,43,0C,\
15,20,F9,05,16,13,\
1D,20,F3,D1,F1,F5,\
D5,C5,CD,04,41,21,\
86,49,3E,01,CD,14,\
41,2A,10,40,01,06,\
02,09,3A,B3,40,F5,\
CD,14,41,F1,47,CD,\
E3,40,FE,01,CA,CA,\
44,F5,47,CD,E3,40,\
47,F1,80,F5,06,0A,\
CD,E3,40,57,D5,06,\
0A,CD,E3,40,D1,5F,\
D5,06,02,CD,E3,40,\
FE,01,20,07,3E,05,\
32,C0,44,18,05,3E,\
04,32,C0,44,3A,B2,\
40,FE,00,28,07,3E,\
0C,32,B9,44,18,05,\
3E,0D,32,B9,44,D1,\
E1,C1,6A,E5,D5,C5,\
79,A7,1F,57,78,A7,\
1F,5F,3E,15,93,6F,\
26,00,06,05,29,10,\
FD,82,4F,06,00,09,\
ED,4B,0C,40,09,23,\
01,21,00,09,7E,FE,\
83,CA,DF,45,A7,ED,\
42,7E,FE,00,28,07,\
FE,34,23,68,C3,DF,\
45,C1,CD,D1,43,0C,\
D1,15,20,BE,E1,55,\
05,1D,20,B7,25,20,\
B4,C3,E7,45,2A,0C,\
40,3A,B2,40,FE,00,\
28,05,01,4E,01,18,\
03,01,66,01,09,C1,\
E5,21,B3,40,7E,23,\
A7,BE,38,03,06,04,\
18,02,06,09,CD,E3,\
40,A7,FE,03,DA,5F,\
45,2A,0C,40,3A,B2,\
40,FE,01,28,05,01,\
87,01,18,03,01,6D,\
01,09,06,03,7E,FE,\
34,20,02,18,0B,23,\
10,F6,E1,C3,E7,45,\
C1,C1,C1,E5,CD,CE,\
46,C5,CD,F9,40,C1,\
79,CD,04,41,D5,23,\
23,7E,47,23,7E,CD,\
BE,43,47,3A,B4,40,\
A7,B8,38,04,06,09,\
18,02,06,04,CD,E3,\
40,D1,F5,21,8F,49,\
3E,01,CD,14,41,F1,\
A7,FE,03,30,04,C6,\
02,18,06,C2,E6,45,\
C3,59,46,D1,F5,21,\
A0,49,13,01,06,04,\
1A,FE,00,20,04,ED,\
A0,10,F7,D5,CD,2F,\
41,E1,06,04,2B,7E,\
FE,34,28,04,36,00,\
10,F6,CD,F9,40,06,\
03,CD,E3,40,FE,01,\
20,0B,3E,01,21,A4,\
49,CD,10,41,C3,59,\
46,3E,01,21,AC,49,\
CD,10,41,F1,2A,10,\
40,01,94,02,09,CD,\
14,41,3A,B1,40,FE,\
0B,20,04,C1,C1,00,\
C9,3C,32,B1,40,21,\
97,40,47,23,10,FD,\
7E,47,3A,B2,40,FE,\
00,78,20,09,32,AD,\
40,AF,32,AF,40,18,\
07,32,AE,40,AF,32,\
B0,40,C3,5A,46,C1,\
C1,C1,3E,04,18,03,\
C1,3E,01,F5,21,B8,\
40,7E,FE,00,28,06,\
AF,77,2B,77,2B,77,\
3A,B2,40,FE,00,20,\
05,21,AF,40,18,03,\
21,B0,40,ED,5B,B6,\
40,F1,FE,01,28,09,\
06,04,E5,D5,CD,E3,\
40,D1,E1,47,34,13,\
10,FC,ED,53,B6,40,\
47,F1,F5,D5,C5,F5,\
CD,2F,41,CD,F9,40,\
F1,CD,08,41,21,B1,\
49,3E,01,CD,14,41,\
F1,C6,1C,12,D1,CB,\
47,28,17,2A,AD,40,\
7D,6C,67,22,AD,40,\
2A,AF,40,7D,6C,67,\
22,AF,40,18,03,C1,\
C1,C1,C1,F1,F5,CD,\
9E,43,CD,11,4A,3A,\
B9,40,3C,FE,06,28,\
07,32,B9,40,F1,C3,\
45,43,AF,32,B9,40,\
3A,AC,40,3C,32,AC,\
40,3A,B2,40,FE,00,\
28,03,3D,18,01,3C,\
32,B2,40,3E,01,21,\
B8,49,CD,10,41,3A,\
BA,40,FE,00,C2,02,\
4C,06,64,CD,E3,40,\
6F,26,01,ED,4B,B6,\
40,A7,ED,42,30,05,\
F1,01,01,00,C9,CD,\
2F,41,CD,F9,40,F1,\
CD,E8,46,3A,B2,40,\
FE,00,20,04,3E,0C,\
18,02,3E,0D,32,05,\
44,C3,F6,42,01,01,\
0B,11,82,40,C5,1A,\
4F,13,1A,47,A7,ED,\
42,28,07,09,C1,0C,\
13,10,EF,C9,C1,C9,\
2A,0C,40,01,6C,01,\
09,06,20,7E,FE,34,\
28,05,23,10,F8,18,\
1D,CD,CE,46,3A,B2,\
40,2A,0C,40,FE,00,\
28,05,01,6F,01,18,\
03,01,87,01,09,36,\
34,7C,12,1B,7D,12,\
2A,0C,40,3A,B2,40,\
FE,00,20,05,01,6F,\
01,18,03,01,87,01,\
09,36,17,22,96,40,\
C9,78,B1,20,03,36,\
9C,C9,CD,5E,47,FE,\
A6,28,07,77,0B,78,\
B1,20,F3,C9,2B,CD,\
5E,47,FE,A6,28,03,\
77,18,08,36,9C,2B,\
CD,5E,47,77,23,23,\
3E,9C,18,E1,7E,FE,\
80,20,02,C6,1C,3C,\
C9,01,D5,02,2A,0C,\
40,23,7E,FE,78,28,\
02,36,00,0B,78,B1,\
20,F3,C9,21,74,47,\
36,80,CD,67,47,01,\
0D,01,CD,F5,08,11,\
C2,49,01,05,00,CD,\
6B,0B,01,01,05,CD,\
F5,08,11,C7,49,D5,\
\
01,07,00,C5,CD,6B,\
0B,01,15,05,CD,F5,\
08,C1,D1,CD,6B,0B,\
01,0E,06,CD,F5,08,\
11,CE,49,01,03,00,\
C5,CD,6B,0B,01,0E,\
0A,CD,F5,08,11,D1,\
49,C1,CD,6B,0B,01,\
02,0D,CD,F5,08,11,\
D4,49,01,05,00,CD,\
6B,0B,01,15,0D,CD,\
F5,08,11,D9,49,01,\
06,00,CD,6B,0B,01,\
06,10,CD,F5,08,01,\
04,00,3A,BA,40,FE,\
01,28,05,11,DF,49,\
18,03,11,E3,49,CD,\
6B,0B,11,E7,49,01,\
0D,00,CD,6B,0B,2A,\
0C,40,01,74,00,09,\
E5,ED,48,B6,40,CD,\
31,47,E1,01,3C,00,\
09,E5,3A,AE,40,4F,\
CD,31,47,E1,01,14,\
00,09,E5,3A,AD,40,\
4F,CD,31,47,E1,01,\
2A,00,09,E5,3A,B0,\
40,4F,CD,31,47,E1,\
01,14,00,09,E5,3A,\
AF,40,4F,CD,31,47,\
E1,01,16,00,09,E5,\
3A,B1,40,D6,02,4F,\
CD,31,47,E1,01,A0,\
00,09,E5,3A,AC,40,\
4F,CD,31,47,E1,01,\
13,00,09,E5,3A,AB,\
40,3C,4F,CD,31,47,\
E1,01,58,00,09,E5,\
ED,4B,0E,4A,CD,31,\
47,E1,01,08,00,09,\
3A,10,4A,4F,CD,31,\
47,CD,F9,40,21,F4,\
49,3E,01,CD,10,41,\
CD,BF,40,FE,2A,20,\
04,01,00,00,C9,FE,\
28,20,F1,21,74,47,\
36,00,CD,67,47,CD,\
38,41,CD,D3,40,CD,\
E8,46,3A,BA,40,FE,\
00,CA,F6,42,C3,06,\
4C,20,2E,33,3B,26,\
31,2E,29,00,2A,33,\
39,37,3E,0E,35,31,\
2A,26,38,2A,00,37,\
2A,16,2A,33,39,2A,\
37,00,00,00,1D,26,\
31,31,00,38,2A,39,\
0E,37,2A,35,34,38,\
2E,39,2E,34,33,00,\
34,37,00,35,37,2A,\
38,38,00,38,19,1D,\
38,39,00,27,34,3C,\
31,2A,37,00,10,2A,\
33,39,2A,37,00,1D,\
00,39,34,00,27,11,\
03,1E,33,29,03,1F,\
37,29,03,20,39,2D,\
1B,28,2D,34,34,38,\
2A,00,39,34,00,32,\
34,3B,2A,00,2B,2E,\
2A,31,29,2A,37,38,\
00,10,32,11,1C,28,\
2D,26,33,2C,2A,00,\
39,2D,2A,00,27,34,\
3C,31,2E,33,2C,00,\
34,37,29,2A,37,00,\
10,27,11,1E,38,2A,\
2A,00,38,28,34,37,\
2A,27,34,26,37,29,\
00,10,38,11,1A,34,\
37,00,35,31,26,3E,\
00,10,35,11,08,00,\
27,34,3C,31,38,00,\
26,10,00,2B,2E,2A,\
31,29,38,00,39,2D,\
2A,00,27,26,31,31,\
3C,3F,26,39,07,33,\
34,39,00,34,3A,39,\
04,34,3A,32,CE,0E,\
00,37,3A,33,38,00,\
09,33,2A,3D,39,00,\
34,3B,2A,37,B9,B4,\
B9,A6,B1,A7,A6,B9,\
B8,B2,A6,B3,AB,B4,\
B7,BC,B0,B8,B4,BB,\
AA,B7,B8,A7,B4,BC,\
B1,AA,B7,AD,B4,B2,\
AA,A6,BC,A6,BE,80,\
B9,AA,A6,B2,80,80,\
80,80,80,AB,B4,B7,\
19,35,37,2A,38,38,\
\
00,10,28,11,34,33,\
39,2E,33,3A,2A,00,\
34,37,00,10,2A,11,\
33,29,83,00,0A,CD,\
2F,41,CD,F9,40,C9,\
2A,B6,40,22,0E,4A,\
3A,B1,40,3D,32,10,\
4A,21,A7,40,06,16,\
36,00,23,10,FB,3E,\
01,32,BA,40,32,B2,\
40,32,05,41,AF,32,\
09,41,CD,28,4B,CD,\
38,41,CD,D2,4A,11,\
3B,4B,21,98,40,06,\
0B,C5,E5,EB,3E,01,\
CD,10,41,E5,CD,BF,\
40,A7,FE,28,38,03,\
C3,BF,4B,FE,1C,28,\
F9,21,3C,40,D6,1C,\
F5,47,23,10,FD,7E,\
FE,00,28,03,F1,18,\
E7,3C,77,F1,D1,E1,\
77,23,C1,10,CC,06,\
04,CD,E3,40,FE,01,\
20,03,CD,D2,4A,06,\
0A,CD,E3,40,FE,01,\
20,03,CD,28,4B,00,\
CD,E8,46,3A,B2,40,\
FE,00,20,04,3E,0C,\
18,02,3E,0D,32,05,\
44,CD,2F,41,CD,F9,\
40,21,7B,4B,3E,01,\
CD,10,41,CD,BF,40,\
FE,35,CA,06,4C,FE,\
38,CA,7B,47,FE,29,\
20,EF,CD,B2,4B,C9,\
2A,0C,40,06,17,23,\
7E,FE,76,20,04,10,\
F8,18,08,FE,34,20,\
F2,36,00,18,EE,06,\
0B,21,9C,4B,C5,4E,\
23,46,23,E5,2A,0C,\
40,09,E5,06,02,CD,\
E3,40,F5,06,02,CD,\
E3,40,F1,FE,01,01,\
28,04,83,5F,18,04,\
47,7B,90,5F,E1,C1,\
C5,E5,21,80,40,23,\
23,10,FC,73,23,72,\
E1,C1,10,CA,CD,E9,\
4B,C9,06,04,21,A3,\
40,C5,E5,06,0B,CD,\
E3,40,E1,77,23,C1,\
10,F3,C9,1B,00,1D,\
38,39,00,27,26,39,\
38,32,26,33,00,10,\
2A,33,39,2A,37,00,\
1D,00,39,34,00,27,\
11,04,00,1E,33,29,\
04,00,1F,37,29,04,\
00,20,39,2D,02,00,\
21,02,00,22,02,00,\
23,02,00,24,02,00,\
25,02,1D,1C,02,1D,\
1D,20,35,37,2A,38,\
38,10,38,11,28,34,\
37,2A,38,1A,10,35,\
11,31,26,3E,00,34,\
37,10,29,11,2A,28,\
31,26,37,2A,87,01,\
D0,00,B6,00,FD,00,\
F9,01,B3,01,6F,01,\
40,02,24,02,E6,01,\
10,01,3E,01,32,09,\
41,AF,32,05,41,01,\
01,00,C9,CD,27,41,\
CD,F9,40,21,3B,4B,\
3E,01,CD,10,41,E1,\
D1,F1,F5,D5,E5,FE,\
0B,28,0F,A7,FE,08,\
38,02,2B,2B,2B,2B,\
2B,3E,01,CD,10,41,\
C3,58,4A,2A,0C,40,\
01,6F,01,09,22,8A,\
40,01,18,00,09,22,\
96,40,CD,D3,40,AF,\
32,87,43,C9,F1,C3,\
83,4A,CD,F9,40,C3,\
\
29,43,2A,B6,40,22,\
\
0E,4A,3A,B1,40,3D,\
32,10,4A,21,82,40,\
06,3C,36,00,23,10,\
FB,3E,01,32,09,41,\
32,87,43,AF,32,05,\
41,3E,0C,32,05,44,\
C9,1B,1B,1B,1B,1B,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,00,00,00,00 ]
3 REM
100 CLEAR
200 PRINT AT 0,10;"test«match"
400 DIM E$(250)
410 DIM D$(250)
415 DIM M$(200)
420 DIM C$(32)
430 LET T$=""
440 LET F=0
450 LET R$="@CF(X+@40*6)"
460 LET M$(1 TO )="\
¿ SLOW BALL1234\
¼ YORKER12341\
½ BOUNCER1234\
¿ FAST BALL1234\
½ GOOGLIE1234\
¾ LEG SPIN1234\
¿ FAST BALL1234\
¾N INSWING1234\
¿N CHINAMPN1234\
£N OFF BREAK 1234\
»BOULED1234\
»L.B.W.1234\
»CAUGHT1234\
¼RUN OUT1234"
470 GOTO 900
500 LET X=1
510 LET T=VAL R$
520 LET O$=("AUSTRALIA" AND T<3)+("PAKISTAN" AND T=3)+("INDIA" AND T=4)+("W.INDIES" AND T>4)
530 LET F$="ENGLAND"
540 RETURN
600 LET I$=INKEY$
610 IF I$="" THEN GOTO 600
620 RETURN
900 PRINT AT 5,0;"\
DO YOU WANT TO CHOOSE THE TWO \
TEAMS THAT WILL PLAY ? (Y OR N)"
910 GOSUB 600
920 CLS
930 IF I$="N" THEN GOTO 990
935 IF I$<>"Y" THEN GOTO 900
940 PRINT ,,"YOUR TEAM IS ?"
945 INPUT F$
950 PRINT F$
955 PRINT ,,"PLAYING AGAINST ?"
960 INPUT O$
970 GOTO 1000
990 GOSUB 500
1000 CLS
1010 PRINT F$;" ÀVÀ ";O$
1020 PRINT AT 3,0;"NAME ";F$;" PLAYERS"
1030 FOR I=1 TO 11
1040 PRINT AT 4,0;"PLAYER NO.";I;" NAME ?"
1050 INPUT N$
1060 PRINT AT 4,13;N$;" "
1070 LET N$=CHR$ (LEN N$)+N$
1080 IF F=1 THEN GOTO 1180
1090 PRINT ,,"SELECTED FOR: 1.BATTING"
1100 PRINT TAB 14;"2.BOWLING"
1110 PRINT TAB 14;"3.FIELDING"
1120 PRINT TAB 14;"4.ALL ROUNDER"
1130 PRINT ,,,,TAB 6;" INPUT NUMBER 1 TO 4"
1140 GOSUB 600
1150 IF CODE I$>26 AND CODE I$<33 THEN GOTO 1175
1160 PRINT AT 10,0;"PLEASE RE-ENTER number«˜«to«›"
1170 GOTO 1140
1175 LET N=VAL I$
1180 FOR J=1 TO 4
1190 IF F=1 THEN LET N=INT (1+RND*4)
1200 LET X=1+4*(J=N)
1205 LET Y=VAL R$
1210 LET N$=N$+CHR$ Y
1220 NEXT J
1230 LET T$=T$+N$
1240 FOR J=3 TO 11
1250 PRINT AT J,0;C$
1260 NEXT J
1270 NEXT I
1280 IF F=1 THEN GOTO 1450
1290 LET E$(1 TO )=T$
1300 PRINT AT 3,4;"DO YOU WANT TO NAME THE"
1310 PRINT TAB 4;O$;" PLAYERS ? (Y OR N)"
1320 GOSUB 600
1330 IF I$="N" THEN GOTO 1400
1340 IF I$<>"Y" THEN GOTO 1320
1345 PRINT AT 3,0;C$;AT 4,0;C$
1350 PRINT AT 3,0;O$;" TEAM"
1360 LET F=1
1370 LET T$=""
1380 GOTO 1030
1400 LET I$="ABCOBACOCADODIGAEFN\
AFICAGOLAHOTIINGOJOPPKANO"
1405 LET F=1
1410 LET T$=""
1420 PRINT AT 18,0;"SELECTING ";O$;("ÀS" AND O$(1)<>"W")+" TEAM"
1430 FOR I=1 TO 44 STEP 4
1440 LET N$="¹"+I$(I TO I+3)
1445 GOTO 1180
1450 LET D$(1 TO )=T$
1460 LET T$=""
1470 LET N$=""
1500 CLS
1510 PRINT TAB 6;"CALL HEADS OR TAILS"
1520 PRINT TAB 9;"(PRESS H OR T)"
1530 GOSUB 600
1540 IF I$="H" OR I$="T" THEN GOTO 1560
1550 GOTO 1530
1560 PRINT TAB 14;I$
1570 PRINT AT 8,14;"®"
1580 PRINT TAB 13;"» ±"
1590 PRINT TAB 12;"° º"
1600 PRINT TAB 13;"± »"
1610 PRINT TAB 14;"¸"
1615 LET N=INT (1+RND*2)
1620 FOR I=1 TO 20
1630 PRINT AT 10,14:"H"
1635 LET C=RND*RND
1640 PRINT AT 10,14;"T"
1650 NEXT I
1655 PRINT AT 10,14;("H" AND N=1)+("T" AND N=2)
1660 LET C=0
1663 LET TA=0
1664 LET TH=0
1667 LET L=0
1668 LET M=0
1670 IF (I$="H" AND N=1) OR (I$="T" AND N=2) THEN LET C=1
1680 PRINT AT 14,10;"YOU "+("WON" AND C=1)+("LOSE" AND C=0)
1690 IF C=0 THEN GOTO 1770
1700 PRINT ,,TAB 6;"CHOOSE TO BAT OR FIELD"
1710 PRINT TAB 10; "PRESS B OR F"
1720 GOSUB 600
1730 IF I$="B" THEN GOTO 3000
1740 IF I$="F" THEN GOTO 2000
1750 GOTO 1720
1770 LET R=RND
1780 PRINT ,,TAB 10;"WE "+("BAT" AND R>=.5)+("FIELD" AND R<.5)
1785 FOR I=1 TO 20
1787 NEXT I
1790 IF R<.5 THEN GOTO 3000
2000 CLS
2010 PRINT AT 0,6;F$;" ÀVÀ ";O$
2020 PRINT ,,"\
MOVE THE * BY THE ARROW KEYS \
PRESS ÀPÀ TO PLACE A FIELDER"
2030 PRINT "\
(FIELDERS ARE O,BATS MEN X AND \
THE BOWLER IS *)"
2040 PRINT ,,"\
ONCE 10 MEN ARE POSITIONED \
(11TH MAN TAKES BOWLING POS.) \
PRESS ÀSÀ AND THEN ENTER YOUR BOWLING ORDER."
2050 PRINT ,,"\
AFTER EACH OVER YOU CAN CHANGE\
THE POSITIONS OR BOWLING ORDER"
2055 PRINT ,,"\
TO REPOSITION,MOVE THE * OVER \
THE MAN (O) THEN MOVE THE * TO \
THE NEW PLACE."
2060 PRINT AT 21,0;"PRESS newline"
2070 INPUT I$
2075 CLS
2076 PRINT ,,"\
IF YOU POSITION LESS THAN 10 MEN\
(DUE TO PRESSING P TWICE IN THE \
SAME POSITION),THEN AFTER YOU \
ENTER 4 BOWLERS,PRESS S AND THEN\
PPES5 E. PRESS BREAK AND TYPE \
GOTO 2000,NEWLINE."
2077 PRINT AT 21,0;"PRESS newline"
2078 INPUT I$
2079 CLS
2080 IF TH=0 THEN POKE 16561,1
2085 IF TH=0 THEN POKE 16566,0
2086 IF TH=0 THEN POKE 16567,0
2090 IF M=1 THEN POKE 16561,PEEK 16561-1
2100 LET X=USR 19468
2110 LET L=USR 16778
2120 LET TA=1
2130 IF L=0 THEN GOTO 5000
2140 LET AS=PEEK 16566+256*PEEK 16567
2150 LET AW=PEEK 16561-(L<>1)-(2 AND L=1)
2160 IF TH=1 THEN GOTO 4000
2170 CLS
2180 PRINT AT 5,0;O$;" SCORED ";AS;" FOR ";AW
2190 IF L=1 THEN PRINT AT 6,10;"(DECLARED)"
2200 PRINT AT 21,0;"PRESS newline"
2210 INPUT I$
3000 CLS
3010 PRINT TAB 6;F$;" ÀVÀ ";O$
3020 PRINT ,,"\
ENTER YOUR BATTING ORDER WHEN \
ASKED AND THEN WATCH YOUR TEAM \
PLAY"
3030 PRINT AT 21,0;"PRESS newline"
3040 INPUT I$
3050 IF L=1 THEN POKE 16561,PEEK 16561-1
3055 IF TA=0 THEN POKE 16566,0
3056 IF TA=0 THEN POKE 16567,0
3060 IF TA=0 THEN POKE 16561,1
3065 CLS
3070 LET M=USR 18968
3080 LET TH=1
3090 IF M=0 THEN GOTO 5000
3100 LET HS=PEEK 16566+256*PEEK 16567
3110 LET HW=PEEK 16561-(M<>1)-(2 AND M=1)
3120 IF TA=1 THEN GOTO 4000
3130 PRINT AT 5,0;F$;" SCORED ",HS;" FOR ";HW
3140 IF M=1 THEN PRINT AT 6,10;"(DECLARED)"
3150 PRINT AT 21,0;"PRESS newline"
3160 INPUT I$
3170 GOTO 2000
4000 CLS
4010 PRINT F$
4020 PRINT AT 2,0,HS;" FOR ";HW
4030 PRINT AT 11,0;O$
4040 PRINT AT 13,0;AS;" FOR ";AW
4050 PRINT AT 20,0;(O$ AND AS>HS);(F$ AND HS>AS);" WIN BY ";ABS (AS-HS);" RUNS"
4060 PRINT AT 5,16;"O";AT 6,15;"·¬¹";AT 7,16; "·º";AT 8,15;" ·¶ "
4070 LET V=0
4080 FOR I=12 TO 16
4090 PRINT AT V,I;"."
4100 LET V=V+1
4110 PRINT AT V-1,I;" "
4120 NEXT I
4130 PRINT AT 5,16;" ";AT 6,15;" O ";AT 7,16;"°º";AT 8,15;"ª¬¼¹"
4140 PRINT AT 4,16;" ";AT 3,17;".";AT 3,17;" ";AT 2,18;".";AT 2,18;" "
4150 FOR I=6 TO 50
4160 NEXT I
4170 GOTO 4060
5010 FOR I=1 TO 20
5020 PRINT AT I,8;"GAME ABANDONED"
5030 LET X=RND
5040 PRINT AT I,0;C$
5050 NEXT I
5060 GOTO 5010
[edit] BASIC OCR ERRORS FIXED/ASM NOT CHECKED.
Note: AT=TA and HT=TH. (to avoid compiler jam)