Vampire

RESTORE 338:start=4BE88

10 DATA 21,4f,bf,36,Ob,23
20 DATA 36,be,c3,00,bf,21
30 DATA 5b,2d,36,34,c3,88
40 DATA 13,21,e2,39,36,c3
50 DATA 23,36,29,23,36,be
60 DATA 21,40,00,e5,21,00
70 DATA bb,e5,c3,b7,39,e5
80 DATA 21,91,01,36,dO,23
90 DATA 36,6f,23,36,cd,el
100 DATA fl,f3,c9
110 y=0: MEMORY &2000
120 FOR x=&BE00 TO &BE38
130 READ a$:a=VAL(""+a$)
140 POKE x,a: y=y+a: NEXT
150 IF y<>S171 THEN 170
160 LOAD "vampire": CALL &BE13

level codes are in Snip Tips but if you're in need of some help on level 10, check this out.