1 :' VINDICATORS
2 :' by Phil Howard
3 :' WEAKER OPPONENTS
4 :'
5 :' INFINITE LIVES   
6 :'
10 DATA 21,23,41,36,c3,23
20 DATA 36,0e,23,36,be,c3
30 DATA 00,40,3e,3e,32,72
40 DATA 2D,3E,C9,32,58,06
50 DATA C3,00,04
60 MEMORY &3000:Y=0
70 FOR X=&BE00 TO &BE1A
80 READ A$:A=VAL("&"+A$)
90 POKE X,A:Y=Y+A:NEXT
100 IF Y<>&7AA THEN 130
110 LOAD"VIND" 
120 CALL &BE00
130 PRINT"DATA ERROR!"

10 MEMORY &3FFF
20 FOR n=&4000 TO &403F
30 READ a$:a=VAL("&"+a$)
40 POKE n,a:c=c+a:NEXT
50 IF c<>4687 THEN 230
60 INPUT"Lives (1-100)";a
70 POKE &4030,a
80 PRINT"Insert VINDI";
90 PRINT"CATORS disc..."
100 CALL &BB18:CLS
110 CALL &4000
120 DATA 21,0d,40,11,00,03
130 DATA d5,01,33,00,ed,b0
140 DATA c9,21,00,01,11,00
150 DATA 00,0e,41,df,30,03
160 DATA 21,14,03,22,42,01
170 DATA c3,00,01,3e,c3,21
180 DATA 22,03,32,69,a0,22
190 DATA 6a,a0,c3,00,a0,3e
200 DATA 64,32,bb,07,32,d3
210 DATA 07,21,80,43,c3,6c
220 DATA a0,3c,c0,07,53,50
230 PRINT"Error..."

10 MODE 2:MEMORY &9FFF:l=140
20 FOR n=&A000 TO &A140 STEP 6
30 FOR p=0 TO 5:READ a$
40 a=VAL("&"+a$):POKE n+p,a
50 c=c+a:NEXT:READ c$
60 ch=VAL("&"+c$)
70 IF c<>ch THEN 130
80 l=l+10:c=0:NEXT
90 PRINT"Insert VINDI";
100 PRINT"CATOR disc..."
110 CALL &BB18
120 CALL &A000
130 PRINT"Error in line";l:END
140 DATA cd,32,a1,21,0c,a0,26d
150 DATA 22,11,01,c3,00,01,0f8
160 DATA 01,7e,fa,af,ed,79,38e
170 DATA cd,0f,a1,21,18,a1,257
180 DATA 36,00,21,9e,1d,0e,120
190 DATA 23,cd,1c,a1,3e,4d,238
200 DATA 32,bb,4d,32,be,4d,277
210 DATA 3e,c3,32,fd,4f,21,2a0
220 DATA 35,a0,c3,26,a1,21,280
230 DATA c1,1d,0e,13,cd,1c,1e8
240 DATA a1,3e,4d,32,d3,4d,27e
250 DATA 21,48,a0,c3,26,a1,293
260 DATA 21,d4,1d,0e,0e,cd,1fb
270 DATA 1c,a1,3e,4d,32,e0,25a
280 DATA 4d,21,5b,a0,c3,26,252
290 DATA a1,21,69,a0,22,00,1ed
300 DATA 1e,3e,14,21,ee,1d,19c
310 DATA c3,2f,a1,21,77,a0,2cb
320 DATA 22,47,1e,3e,2e,21,114
330 DATA 27,1e,c3,2f,a1,21,1f9
340 DATA 85,a0,22,77,1e,3e,21a
350 DATA 29,21,57,1e,c3,2f,1b1
360 DATA a1,21,7c,1e,0e,0d,177
370 DATA cd,1c,a1,3e,4e,32,248
380 DATA 87,4e,21,9e,a0,22,256
390 DATA fe,4f,21,98,21,c3,2ea
400 DATA 7c,4e,21,95,1e,0e,1ac
410 DATA 11,cd,1c,a1,3e,4e,227
420 DATA 32,a5,4e,21,b9,a0,29f
430 DATA 22,fe,4f,3e,61,21,22f
440 DATA 95,4e,c3,2f,a1,21,297
450 DATA c3,1e,11,00,a4,01,197
460 DATA d5,02,ed,b0,21,cd,362
470 DATA a0,22,e9,a4,c3,55,367
480 DATA a4,21,e0,a0,11,c0,316
490 DATA 00,d5,01,2c,00,ed,1ef
500 DATA b0,e1,22,0e,01,c3,285
510 DATA ac,7f,21,00,80,e5,2b1
520 DATA 3a,00,03,fe,c3,20,21e
530 DATA 09,3e,a7,32,b4,05,1d9
540 DATA 32,d9,0b,c9,fe,eb,3c8
550 DATA 20,06,3e,a7,32,21,15e
560 DATA 1d,c9,3e,a7,32,f9,2f6
570 DATA 12,af,32,0e,06,32,139
580 DATA 15,06,c9,53,50,38,1bf
590 DATA 39,21,9e,6d,11,9e,214
600 DATA 1d,01,fa,03,eb,ed,2f3
610 DATA b0,c9,06,00,7c,c6,2c1
620 DATA 30,57,5d,ed,b0,c9,34a
630 DATA 22,fe,4f,cd,0f,a1,2ec
640 DATA c3,9e,4d,ed,4f,e9,3d3
650 DATA 21,00,01,11,00,00,033
660 DATA 0e,41,df,3e,a1,c9,2d6
670 DATA 3c,c0,07,00,00,00,103