1 'ALTERED BEAST hacks
2 'By John Girvin
3 'January 1990
4 '
10 OPENOUT"d":MEMORY &68AC
20 CLOSEOUT:MODE 0
30 LOAD"!abeast",&68AD
40 addr=&BE80:RESTORE
50 READ byte$
60 IF byte$="BEASTIE" THEN CALL &BE80
70 POKE addr,VAL("&"+byte$)
80 addr=addr+1:GOTO 50
90 '*** LEAVE ALL LINES IN ***
100 DATA f3,21,ad,68,11,ad,98,01
110 DATA 35,0f,ed,b0,21,a0,be,3e
120 DATA c3,32,16,bd,22,17,bd,c3
130 DATA ad,98,a4,48,4c,46,01,90
140 DATA cd,37,bd,21,00,00,22,4b
150 DATA a4,21,b2,be,22,4e,a4,c3
160 DATA 08,a4,dd,21,b8,a6,11,ab
170 DATA 00,cd,47,a6,21,00,02,22
180 DATA 61,a7,21,d0,be,11,00,02
190 DATA 01,30,00,ed,b0,c3,ef,a6
200 DATA 21,09,02,22,c2,20,c3,50
210 DATA 23,21,22,02,11,00,00,01
220 DATA 0e,00,ed,b0,3e,c3,21,00
230 DATA 00,32,ca,0b,22,cb,0b,c3
240 DATA 1c,5f,3e,04,32,6d,00,32
250 DATA 92,00,3a,e3,02,c3,cd,0b
260 DATA BEASTIE