''bluatigro 26 jun 2015
''OOP test

'include _complex.bas

new q as complex 1 , 2

print q::get.r() , q::get.i()

print q::toString$()

input a$
 

''bluatigro 27 jun 2015
''OOP lib : complex number

class complex

  dim mr , mi

  sub complex
    mr = 0
    mi = 0
  end sub
  sub complex a , b   
    mr = a
    mi = b
  end sub
  sub fill a , b   
    mr = a
    mi = b
  end sub

  function get.r()
    get.r = mr
  end function 

  function get.i()
    get.i = mi
  end function

  function toString$()
    toString$ = "( " + str$( this::get.r() ) _
    +  " + " + str$( this::get.i() ) + "j )"
  end function

end class  
 

''bluatigro 26 jun 2015
''OOP test

new q as complex 1 , 2

print "r = " ; q::get.r() 
print "i = " ; q::get.i()
print q::toString$()

input a$
end

'include _complex.bas )