TEA Encryption

[mister_e]

says something about not accepting
data1 = "1234"
doesnt like it
why?

Because you can't store more than 1 character in a variable...

If you plan to translate/encrypt data, you'll have to get it byte by byte using an array or the internal EEPROM of your pic.

easier and use less code space with the internal EEPROM if your PIC have one...
data @0,"My text to be encrypt"

and then after you just have to read EEPROM adress by adress

for Addr = 0 to 21
     READ Addr,HeresOneCharacterToEncrypt
     ' do your encryption stuff here
next

and NewValue=NewValue+EncrptionCode[t] + s

because you didn't set EncryptionCode as a array
EncrptionCode var byte[21]