“My Life Logs”

{ciputra_water_park}

name pics name mulai inside_water_park pulang

name marina semampir ciputra_water_park

name r2n yun m36a d12n

name arus ombak teriak cup shower

number fun{01234)

date tanggal

string validation ok

begin

set display pics

set dtoc to tanggal ///12th September 2006

set ok="GO" {mulai}

if marina = "GO" then

   if semampir = "GO" then

     print r2n   to ciputra_water_park

     print yun   to ciputra_water_park

     print m36a to ciputra_water_park

     print d12n to ciputra_water_park

  go to {mulai}

end

{inside_water_park}

set validation=fun

if fun=1 then

   print r2n    to arus

   print yun   to arus

   print m36a to arus

   print d12n  to arus

          if fun=2 then

             print r2n   to ombak

             print yun   to ombak

             print m36a to ombak

             print d12n  to ombak

                    if fun=3 then

                       print r2n   to teriak

                       print yun   to teriak

                       print m36a to teriak

                       print d12n  to teriak

                              if fun=4 then

                                 print r2n   to cup

                                 print yun   to cup

                                 print m36a to cup

                                 print d12n  to cup

                            check fun=0

                            if fun=0 goto pulang

{pulang}

print r2n   to shower

print yun   to shower

print m36a to shower

print d12n  to shower

end;