Goal: weight in kilograms
 Focus: kilos := 0.453592 * pounds
 Data flow:

 

class X

creation
             make

feature
             Factor: REAL is 0.453592
             pounds, kilos: REAL

             make is
                               -- read a weight in pounds, display it in kilograms
                      do

   io.putstring ("%NEnter weight in pounds: ")
   io.readreal
   pounds := io.lastreal

   io.putstring ("%NThe weight in pounds is ")
   io.putreal (pounds)

   kilos := pounds * factor
   io.putstring ("%NThe weight in kilos is ")
   io.putreal (kilos)

            end -- class X