Lifes Programming.... :)

Hari ini sibuk bukan main... sampai kangen sama temen-temen... sampai kebawa-bawa nih programming...

for each LOVE NO-RETURN where PEOPLE = GIVE and TIME = ALL THE TIME
    use-index TRUE-LOVE,
each CARE NO-MATTERHOW where PEOPLE = NEED and TIME = EVERYTIME
    use-index MOTHER-CARE,
each PRAY NO-DOUBT where PEOPLE = RAISE and TIME = ANYTIME
    use-index MORNING-PRAY 'TILL NIGHT-PRAY
break by NO-ONE by NO-TIME by NO-PLACE:

do while not TIMES_UP:
    if first-of(LOVE) then do:
        put ROMANTICS at TIME.
    end if.
    LOVING like the first LOVE.
    if first-of(CARE) then do:
        display KINDS at PEOPLE.
    end if.
    CARING like the first CARE.
    if first-of(PRAY) then do:
        say WORDS with HEART.
    end if.
    PRAYING like the first PRAY. 
end do.

if TIMES_UP then do run TIMES_UP procedure.

end for each.

procedure TIMES_UP:
    when the time is up then:
        nothing to do.
        GOD will execute the procedure. 
        report will be made. 
        justice for all.
end procedure.