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