|
NU()CLASS PersonDriver1 EOL
BEGIN EOL
PD CLASS_VAR STRING homersName = "Homer Simpson"; EOL
PD CLASS_VAR INT homersAge = 40; EOL
EOL
PD CLASS_VAR STRING fredsName = "Fred Flintstone"; EOL
PD CLASS_VAR INT fredsAge = 45; EOL
EOL
PD CLASS_VAR STRING darthsName = "Darth Vader"; EOL
PD CLASS_VAR INT darthsAge = 55; EOL
EOL
PD FUNCTION VOID growHomer() EOL
PD BEGIN EOL
PD PD homersAge = homersAge + 1; EOL
PD END EOL
PD FUNCTION VOID growFred() EOL
PD BEGIN EOL
PD PD fredsAge = fredsAge + 1; EOL
PD END EOL
PD FUNCTION VOID growDarth() EOL
PD BEGIN EOL
PD PD darthsAge = darthsAge + 1; EOL
PD END EOL
EOL
PD FUNCTION VOID knightHomer() EOL
PD BEGIN EOL
PD PD homersName = "Sir " + homersName; EOL
PD END EOL
PD FUNCTION VOID knightFred() EOL
PD BEGIN EOL
PD PD fredsName = "Sir " + fredsName; EOL
PD END EOL
PD FUNCTION VOID knightDarth() EOL
PD BEGIN EOL
PD PD darthsName = "Sir " + darthsName; EOL
PD END EOL
EOL
PD FUNCTION VOID printHomer() EOL
PD BEGIN EOL
PD PD SYSTEM_OUT_PRINTLN("I am " + homersName + ", my age is " + homersAge); EOL
PD END EOL
PD FUNCTION VOID printFred() EOL
PD BEGIN EOL
PD PD SYSTEM_OUT_PRINTLN("I am " + fredsName + ", my age is " + fredsAge); EOL
PD END EOL
PD FUNCTION VOID printDarth() EOL
PD BEGIN EOL
PD PD SYSTEM_OUT_PRINTLN("I am " + darthsName + ", my age is " + darthsAge); EOL
PD END EOL
EOL
PD BEGIN_MAIN EOL
PD PD growHomer(); EOL
PD PD knightHomer(); EOL
PD PD printHomer(); EOL
PD PD printFred(); EOL
PD PD printDarth(); EOL
PD END_MAIN EOL
END EOL
|