Catch 23

5 RESTORE
6 LET t = 0 : LET w = 0
10 FOR 4 = 36610 TO 36760
15 READ a : POKE f, a
20 LET t = t + a * sw : LET w . w + 1
30 NEXT 4
35 IF t <> 1260945 THEN PRINT ERROR IN DATA " : STOP
40 GO SUB 1000
45 PRINT AT 10, 5 : "START 'CATCH 23' TAP E"
50 LOAD " " CODE
60 RANDOMIZE USR 36610
100 DATA 221,33,71,143,6,6,
11907DATA 221,110,0,221,
112002DATA 221,78,2,6,0,1
,130
DATA 237,176,235,5
,14140DATA 150,205,0,125,
,221DATA 221,35,221,35,1
150
0
9
2
01DATA 222,33,103,238,1
,,27
170
355DATA 139,1
160
9DATA 50,114,142,33,89,
3,190
1
0
04,34D,A2T3A 71,71,23,142,1,3,0,23
27700DATA 176,195,244,1
2110DATA 228,16,12,229,2
4
,42
60/
5
20DATA 22902,86,229,14,
2550020DATA 229,25,136,22
,21
7940DATA 141,143,62,52,