5 MODE0
   10 REM Protection Overide
   20 REM By Rafael Jay
   30 REM (C) Fast Access 1990
   40 :
   50 FOR PASS=0 TO 2 STEP 2
   60 P%=&900:[OPT PASS
   70 LDA&220:LDX&221
   80 CMP#newvec MOD&100:BNEsetvec
   90 CPX#newvec DIV&100:BEQvecset
  100 .setvec STA&8E:STX&8F
  110 LDA#newvec MOD&100:STA&220
  120 LDA#newvec DIV&100:STA&221
  130 .vecset
  140 LDA#&0E:LDX#&04:JSR&FFF4
  150 RTS
  160 .newvec CMP#&04:BEQok:JMP(&8E)
  170 .ok PHP:PHA:TXA:PHA:TYA:PHA
  180 LDA&3CA:AND#&01:CMP#&01:BNEexit
  190 LDA&3CA:AND#&FE:STA&3CA
  200 LDA#&07:JSR&FFEE:.exit
  210 PLA:TAY:PLA:TAX:PLA:PLP:JMP(&8E)
  220 ]:NEXT
  230 CALL&900