1 :' Vampire
2 :' by Phil Howard
10 DATA 21,4F,BF,36,0B,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,D0,23
90 DATA 36,6F,23,36,CD,E1
100 DATA F1,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
150 NEXT
160 IF y<>&171C THEN 190
170 LOAD"VAMPIRE"
180 CALL &BE13
190 PRINT"DATA ERROR!"