1 'BARBARIAN II hacks
2 'By John Girvin
3 'June 1990
4 'Oooh ! A Short one !
5 '
10 MEMORY &5FFF:OPENOUT"d"
20 CLOSEOUT:MODE 1
30 LOAD"!barbii",&6000
40 addr=&BE80:RESTORE
50 READ byte$
60 IF byte$="EATAXE" THEN CALL &BE80
70 POKE addr,VAL("&"+byte$)
80 addr=addr+1:GOTO 50
90 '*** LEAVE ALL LINES IN ***
100 DATA 21,00,60,11,4b,9a,01,8a
110 DATA 0e,ed,b0,3e,c3,21,99,be
120 DATA 32,16,bd,22,17,bd,c3,4b
130 DATA 9a,cd,37,bd,3e,c3,21,aa
140 DATA be,32,3c,a6,22,3d,a6,c3
150 DATA 08,a6,dd,21,ab,a8,11,00
160 DATA 01,cd,3a,a8,21,c3,be,22
170 DATA 54,a9,c3,e2,a8,a4,48,4c
180 DATA 46,06,90,21,cf,be,22,eb
190 DATA 84,22,15,85,c3,00,80,f5
200 DATA af,32,2e,43,21,3e,05,22
210 DATA 2c,43,3e,cd,32,d7,53,f1
220 DATA c3,80,0a,EATAXE