1 ' Blood Valley --tape--
2 ' By Graham Smith
3 ' Infinite energy
4 ' Method 1
5 '
10 FOR j=0 TO 70:READ a$
20 x=VAL("&"+a$):y=y+x
30 POKE j+48640,x:NEXT j
40 IF y<>6431 GOTO 180
50 MODE 1:CALL 48640
60 DATA 06,00,11,7c,9e,cd
70 DATA 77,bc,eb,cd,83,bc
80 DATA cd,7a,bc,21,18,be
90 DATA 22,93,00,c3,40,00
100 DATA 21,21,be,22,d8,07
110 DATA c3,00,01,21,2a,be
120 DATA 22,dd,40,c3,00,40
130 DATA 21,0d,18,36,c3,23
140 DATA 36,38,23,36,be,c3
150 DATA f3,17,21,00,00,22
160 DATA 28,1e,22,2a,1e,cd
170 DATA 19,bd,c3,10,18
180 PRINT"DATA ERROR