self modifying code

[Wes Loewer]

It occurred to me today that self modifying code is easily done in PPL. Save the following program as HiBye and run it a few times from Home.

Code:

EXPORT HiBye()
BEGIN
 LOCAL source;
 
 source:=Programs("HiBye");
 IF INSTRING(source,"He"+"llo") THEN
  source:=REPLACE(source,"He"+"llo","Good"+"bye");
 ELSE
  source:=REPLACE(source,"Good"+"bye","He"+"llo");
 END;
 Programs("HiBye"):=source;
 RETURN "Hello";
END;

hee hee.