10 PRINT'"TAPE UNLOCKER":PRINT"-------------"
   20 PRINT '"WARNING - This routine will assemble at &B00 and so wipe out your function keys.Do not use function keys after assembly or you will overwrite the code."
   30 PRINT'"Hit SPACE to assemble ...";:REPEAT:UNTIL GET=32
   40 FOR I%=0 TO 2 STEP 2
   50 P%=&B00
   60 [OPTI%
   70 PHP
   80 PHA
   90 TXA
  100 PHA
  110 TYA
  120 PHA
  130 LDA&3CA
  140 AND #&FE
  150 STA&3CA
  160 PLA
  170 TAY
  180 PLA
  190 TAX
  200 PLA
  210 PLP
  220 RTS
  230 ]NEXT
  240 ?&220=0
  250 ?&221=&B
  260 *FX14,4
  270 PRINT'"UNLOCKER is now working."