1 :' Hive - tape
2 :' by Phil Howard
10 DATA cf,ca,8a,21,38,bd
20 DATA 36,1b,21,0e,bc,36
30 DATA c3,23,36,16,23,36
40 DATA be,c3,00,3c,cd,00
50 DATA be,21,20,be,22,ac
60 DATA 01,c9,af,32,c0,34
70 DATA 32,59,3c,c3,82,12
80 y=0:MEMORY &3000
90 FOR x=&BE00 TO &BE29
100 READ a$:a=VAL("&"+a$)
110 POKE x,a:y=y+a:NEXT
120 IF y<>&1008 THEN 150
130 LOAD"hive1"
140 CALL &BE03
150 PRINT"data error"