type TestType
            x#,y#,z#
      EndTYpe


      Dim Src as testtype pointer
      Dim Dest as testtype pointer

      Src    = new testtype   
      Dest    = new testtype   


      ; write some integer values into these float fields..
      ; this type of type mismatch  is now auto recast at compile time
      Src.x   = 1111
      Src.y   = 2222
      Src.z   = 3333


      ; copy a field to another within the same type
      ; The op 
      Src.x=Src.Y

      ; copy fieldds between different types
      Dest.x=Src.x

      ; copy a field and add 100 to it
      Dest.y=Src.y+100

      ; copy a field and mult it by 2
      Dest.z=Src.z*2

      print Dest.x
      print Dest.y
      print Dest.z


      Sync
      waitkey