

********************************
*                              *
*     ENCODE THE COPYRIGHT     *
*                              *
********************************

 ORG $7000
CHGSTR JSR SETOFFT
:LOOP LDY #$00
 LDA (PTR),Y
 BEQ :END
 ASL
 STA (PTR),Y
 INC PTR
 BNE :LOOP
 INC PTR+1
 BNE :LOOP
:END RTS
