1 'CABAL hacks
2 'By John Girvin
3 'January 1990
4 '
10 OPENOUT "d":MEMORY &6A89
20 CLOSEOUT:MODE 0
30 LOAD"!cabal",&6A8A
40 RESTORE:addr=&BE80
50 READ byte$
60 IF byte$="CABAL" THEN CALL &BE80
70 POKE addr,VAL("&"+byte$)
80 addr=addr+1:GOTO 50
90 '*** LEAVE 100-190 IN ***
100 DATA 21,8a,6a,11,8a,9a,01,58
110 DATA 0f,ed,b0,3e,c3,21,99,be
120 DATA 32,16,bd,22,17,bd,c3,8a
130 DATA 9a,21,00,00,22,4b,a6,21
140 DATA ae,be,22,4e,a6,c3,08,a6
150 DATA a4,48,4c,46,01,90,dd,21
160 DATA b8,a8,11,b0,00,cd,47,a8
170 DATA 21,cb,be,22,66,a9,c3,ef
180 DATA a8,3e,04,32,73,fe,e1,cd
190 DATA 9d,27,e9
200 'Infinite continues
210 DATA 21,00,00,22,89,0c,22,8a
220 DATA 0c
230 'Infinite lives
240 DATA 21,40,00,e5,3e,c3,32,98
250 DATA 27,22,99,27,d1,21,c1,be
260 DATA 01,0a,00,ed,b0
270 'Infinite grenades
280 DATA af,32,bf,09
290 '*** LEAVE 300 IN ***
300 DATA c3,00,01,CABAL