%TOC%
PRIVATE brand AS String PRIVATE ps_power AS Integer PRIVATE kw_power AS Float PRIVATE price AS Float PUBLIC SUB _new(OPTIONAL br AS String, OPTIONAL po AS Integer, OPTIONAL pr AS Float) brand = br ps_power = po price = pr END PUBLIC SUB setBrand(x AS String) brand = x END PUBLIC FUNCTION getBrand() AS String RETURN Brand END PUBLIC SUB setPS_Power(x AS Integer) ps_power = x END PUBLIC FUNCTION getPS_Power() AS Integer RETURN ps_power END PUBLIC SUB setPrice(x AS Float) price = x END PUBLIC FUNCTION getPrice() AS Float RETURN price END'setKW_Power is private because 'it is only for internal use
PRIVATE FUNCTION setKW_Power() AS Float RETURN ps_power * 0.736 END PUBLIC FUNCTION getKW_Power() AS Float RETURN setKW_Power() END