//

// A download.

//

 

On Error Do Disappear;

 

Procedure Clean_up

For each touched.item

                  Do Cloth_Wipe;

End

 

Procedure Disappear

Var location = Random.location;

Do Clean_up;

For each knife.item

                  Do Dispose;

Goto location;

End

 

Procedure At_Home

For each clothing.item

                  Do Burn;

For each knife.item

                  Do Dishwash;

Do Shower;

End

 

Procedure Prepare

Do Buy_Clothes;

Do Plan;

For each knife.item

                  Store_bag;

End

 

Function Track_Victim(Person)

                   While (Time < “02:00:00”) AND Not (Person.Found)

                                    Do Drive_around;

                   End

Return Person.Found

 

Function Identify_Victim(People)

Var Risk = 100;

Var Victim = “None”;

For each People.person

                  If Risk > People.person.risk then

                                    Risk = People.person.risk;

                                    Victim = People.Person.name;

                  End if

Return Victim;

End

 

Procedure Attack_Victim(person)

While person.alive

                  Do person.cut;

End

 

While not (Me.caught)

Var Victim = “”;

Victim.name = Identify_Victim(People);

                  Do Prepare;

                  Victim.found = Track_Victim (Victim.name);

                  If Victim.found then

                                    Do Attack_Victim (Victim_name)

                                    Do Clean_up;

                                    Do At-Home;

                  End if

End

---

Anthony Gerrard trained as a computer programmer many years ago but moved into teaching instead. Now he’s hoping to reinvent himself as a writer. It’s probably just a mid-life crisis but, so far, it’s been cheaper than buying a new car and getting a second wife.

---

<– Back to v1