1  :'  Dr Destructo - tape
2  :'  by L Townsend
10 ENV 1,15,-1,12:ENV 2,3,0,7
20 ENV 3,12,-1,24:ENV 4,13,-1,2
30 ENV 5,12,-1,24:ENV 6,7,-2,1
40 ENV 7,15,1,1,15,-1,51
50 ENV 15,12,-1,10:ENT 1,6,40,1
60 ENT -2,5,20,1,5,21,1
70 ENT -3,2,13,1,2,-12,2
80 ENT -4,2,6,1,2,-6,2,2,-5,1,2,4,2
90 ENT 5,12,30,2:ENT -6,3,25,1,3,-25,3
100 ENT -7,3,24,1,3,-25,3
110 ENT -8,3,25,3,3,-24,3
120 ENT -9,2,8,1,2,-7,2,1,14,2,1,-14,3
130 ENT -10,3,12,2,3,-12,3
140 ENT 11,225,1,4
150 ENT 13,100,-2,2,8,25,1
160 ENT -14,5,3,2,6,-3,2
170 ENT 15,100,14,2
180 ENT -13,100,-2,2,8,25,1
190 ENT -14,5,3,2,6,-3,2
200 ENT 15,100,14,2
210 FOR n=0 TO 15:INK n,0: NEXT: BORDER 0
220 INK 1,2
230 DATA 0,13,26,6,15,24,19,18,9,11,2
240 DATA 1,3,23,4,0
250 MODE 0:MEMORY 10000:LOAD"!",11000
260 CALL 11000
270 DIM i(15),c(15):FOR n=0 TO 15
280 READ c(n):NEXT
290 FOR a=0 TO 26
300 FOR n=0 TO 15
310 INK n,i(n)
320 IF i(n)<c(n) THEN i(n)=i(n)+1
330 NEXT n:NEXT a
340 CALL 11002
350 FOR n=2 TO 15:INK n,0:NEXT:MODE 0
360 LOCATE 6,24:PRINT"Please Wait"
370 CALL 11004
380 FOR n=0 TO 15:READ a:INK n,a: NEXT n
390 DATA 0,26,22,14,11,20,3,15,24,9,12
400 DATA 13,6,1,0,10
410 POKE &4DBC,100::' player 1 100lives
420 POKE &354F,100::' player 2 100lives
430 POKE &4DA0,&F::' extra time
440 POKE  &4D91,&5::' sky colour
450 POKE &4D96,&5::' sky colour
460 CALL 13362