1 'GEMINI WING hacks
2 '(EDITION ONE compilation)
3 'By John Girvin, November 1990
4 'Merge with PACIFIC
5 '
660 addr=&40:RESTORE 740
670 READ byte$
680 IF byte$="MESPUDTOO" THEN 710
690 POKE addr,VAL("&"+byte$)
700 addr=addr+1:GOTO 670
710 PRINT "Insert disc & press a key..."
720 CALL &BB18:CLS:CALL &40
730 '*** LEAVE 740-770 IN ***
740 DATA cd,00,40,cd,0d,ab,cd,26
750 DATA ab,3e,02,21,00,18,cd,30
760 DATA ab,cd,09,ab,21,c8,aa,11
770 DATA 40,00,01,1b,00,ed,b0
780 'Infinite lives
790 DATA af,32,3b,44
800 'Invulnerability
810 DATA af,32,9c,45,3e,18,32,3d
820 DATA 45
830 '*** LEAVE IN ***
840 DATA c3,45,58,MESPUDTOO,4A
