Simple is best ... !

Program Life Basics;  // Can life be like a program?  Let's see!
Uses
   LifeLib;
Var             
   Food, Sleep, Water As Needs;
   Happiness As LifeStrength;
   Love As SomethingNeeded(4);
   Age, Death As Integer;
   Junction Person
       Begin
            Health As Status;
        End;        
Const
   GotoSchool;
   Work;
   StayInHome;
  
Begin

   Death := Random(100); // We all know that the death is random.
   Happiness := 2 + Random(5); // Happiness is random too.

     Do
  
            // Should I go to school, to work or stay in home?      
        If (Age < 18) Then
           GotoSchool;
        Else If (Age < 50)
           GotoWork;
        Else
           StayInHome;
        End;


           // Let's try to survive...!
        If Not Food Then
            Person.Health := False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        If Not Water Then
            Person.Health = False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        If Not Sleep Then
            Person.Health := False
            Happiness := Happiness - 2
        Else
            Happiness := Happiness + 5
        End;
        

               // Let's put some love in the game.
        Read(Love);

         Select Case (Love)
             0 : Happiness := Happiness -  20; Break;
             1 : Happiness := Happiness -  10; Break;
             2 : Break;
             3 : Happiness := Happiness + 10; Break;
             4 : Happiness := Happiness + 15; Break;
         End Case;
       

              // Happy?       
        If  (Happiness < -10) Then
            Death := 0                    // Suicide...
        Else If (Happiness < 3) Then
            Person.Health := False    // Get Sick...
        Else If (Happiness > 80) Then
             Death := Death + 1         // Live longer!
             Happiness := Happiness - 20
        End;

             // Am I sick?
        If Not Person.Health Then
              Hospital
        End;
              
          
             // Wow, time is going too fast!! A year has passed.
      Age := Age + 1

     While (Age <= Death);

             // Oops... Game Over.
     Write('Memento Mori...');
     Readkey;
     Write('Game Over');

End.

Procedure Hospital
Var
   Methods As GoodOrBad;

  Begin

          // Can I be saved?
    If (Methods = Good) Then
        Happiness := Happiness + 2
        Death := Death - 1
    Else If (Methods = Bad) Then
        Happiness = Happiness - 2
        Death := Death - 5
    End;
   
  End;