''bluatigro 14 feb 2015
''mod-test.bas

print "now in mod test"
new a as t3d 1 , 2 , 3
print a::toStr$()

end
'include t3d.bas
 

''bluatigro 14 feb 2015
''t3d.bas

class t3d
  dim a , b , c
  sub t3d
    a = 0
    b = 0
    c = 0
  end sub
  sub t3d x , y , z
    a = x
    b = y
    c = z
  end sub
  function x
    x = a
  end function
  function y
    y = b
  end function  
  function z
    z = c
  end function
! FUNCTION add( d AS t3d ) AS t3d
    new q as t3d a + d::x() , b + d::y() , c + d::z()
    add = q
    discard q
  end function
  function toStr$()
''this is now right
    toStr$ = "( " + str$( this::x() ) _
          + " , " + str$( this::y() ) _
          + " , " + str$( this::z() ) + " )"
  end function
end class

''t3d.bas