1 'BATMAN bathacks
2 'Batwritten by John Girvin
3 'December 1989
4 '
10 MODE 1:OPENOUT"d"
20 MEMORY &689D:CLOSEOUT
30 LOAD"!batman",&689E
40 RESTORE:bataddr=&BE80
50 READ batbyte$
60 IF batbyte$="ENDOFBATDATA" THEN CALL &BE80
70 POKE bataddr,VAL("&"+batbyte$)
80 bataddr=bataddr+1:GOTO 50
90 '*** LEAVE ALL BATLINES IN ***
100 DATA 21,9e,68,11,9e,98,01,4c
110 DATA 0f,ed,b0,3e,c3,21,99,be
120 DATA 32,16,bd,22,17,bd,c3,9e
130 DATA 98,21,00,00,22,53,a4,21
140 DATA a8,be,22,56,a4,c3,0f,a4
150 DATA dd,21,c0,a6,11,b2,00,cd
160 DATA 4f,a6,21,c1,be,22,70,a7
170 DATA c3,f7,a6,a4,48,4c,46,0c
180 DATA 89,21,a7,c3,3e,c9,22,53
190 DATA 21,32,13,32,c3,f5,16
200 DATA ENDOFBATDATA