misc/VARTEST.PAS

var s : string;
   s2 : string;
   s3 : byte;
begin
s := 'you know that you $${temp}$$ knocka!@!';
s2 := copy(s,pos('$${',s)+3,pos('}$$',s)-pos('$${',s)-3);
writeln('var_ref := '+s2);
s3 := pos('$${',s);
delete(s,s3,length(s2)+6);
insert('kick ass',s,s3);
writeln(s);
end.