10 :' Mission Genocide - tape
15 :' by Peter Featherstone
30 BORDER 0:MODE 0
40 FOR f=0 TO 15
50 READ a$:INK f,VAL("&"+a$)
60 NEXT f
70 FOR f=&BE80 TO &BFFF
80 READ a$:IF a$="ZTB" THEN 100
90 POKE f,VAL("&"+a$):NEXT f
100 CALL &BE80
110 DATA 1a,00,06,02,1a,18,14,00
120 DATA 0d,09,0f,10,12,00,0e,03
130 DATA f3,21,00,00,11,00,be,01
140 DATA 40,00,ed,b0,31,3f,bf,3e
150 DATA 06,21,40,bf,11,00,00,cd
160 DATA a1,bc,21,e5,97,36,0c,af
170 DATA 32,e2,97
180 :' inf lives
190 DATA af,32,c7,a0
200 :'inf bullet speed
210 DATA af,58,93,90,32,7a,94,3e
220 DATA 0c,32,8f,90
230 :'inf speed
240 DATA af,32,47,93,32,70,94,3e
250 DATA 04,32,8a,90
260 :'inf missile speed
270 DATA af,32,33,93,32,84,94,3e
280 DATA 06,32,99,90
290 :'no bad stars
300 DATA 3e,c9,32,82,a2
310 :'don't remove
320 DATA 21,00,be,11,00,00,01,40
330 DATA 00,ed,b0,c3,38,86,ZTB

1 :' Miss Genocide - disk
10 DATA 21,A0,BE,11,40,00
20 DATA 06,0C,CD,77,BC,21
30 DATA 40,00,CD,83,BC,CD
40 DATA 7A,BC,AF,32,C7,A0
50 DATA 3E,C9,32,B2,A0,C3
60 DATA 00,80,47,45,4E,4F
70 DATA 43,49,44,45,2E,42
80 DATA 49,4E,82,71,66
90 FOR n=0 TO 43
100 READ a$
110 POKE &BE80+n,VAL("&"+a$)
120 NEXT
130 CALL &BE80
140 END