I don't think Var was a good idea.

Type tSize
	Field x:Int
	Field y:Int
End Type

Function ModifyObject (size:tsize)
	size.x = 10
	size.y = 20
End Function

Local big:tSize = New tSize

big.x = 100
big.y = 100

Print big.x+":"+big.y 

ModifyObject (big)

Print big.x+":"+big.y

Type Sprite
' fields 'n methods
End Type

Function CreateSprite:Sprite(args)
  local a:Sprite=new Sprite
  ' initialize vars
  Return a
End Function

Type MyType
	Method Delete()
		Print "Goodbye!"
	End Method
End Type

Local mt:MyType = New MyType

mt = Null

GCCollect()

End

Global SpriteRenderList:TList = CreateList()
' If we're going to be consistent, why isn't this TList.Create()?

Type Sprite
	Function Create:Sprite()
		Local ThisSprite:Sprite = New Sprite
		ListAddLast SpriteRenderList, ThisSprite
	End Function
	
	Method Delete()
		ListRemove SpriteRenderList, Self
		Print "Goodbye!"
	End Method
End Type

Local mt:Sprite = Sprite.Create()

mt = Null

GCCollect()

End

Type TImage Extends TData

	Field width,height,flags
	Field mask_r,mask_g,mask_b
	Field handle_x#,handle_y#

Type Sprite
	Global RenderList:TList = New TList
	Global gid:Int = 0
	
	Field id:Int = gid    'this will be 0 for the first one not 1

	Method New()          'remember, this new gets called AFTER the normal new
		gid:+1
		ListAddLast RenderList, Self
	End Method
	
	Method Remove()
		ListRemove RenderList, Self
		Print "Removed id "+id+", "+CountList(RenderList)+" total sprites now remaing"
	End Method		
End Type

For Local i:Int = 1 To 5
	New Sprite
Next

For Local mt:Sprite = EachIn Sprite.RenderList
	If mt.id = 3
		mt.Remove
	Else
		Print "id> "+mt.id
	EndIf
Next

End

Type Sprite
	Global SpriteRenderList:TList = New TList
	Global gid:Int = 0
	
	Field id:Int = gid

	Method New()
		gid:+1
		ListAddLast SpriteRenderList, Self
	End Method
	
	Method Delete()
		Print "REF CLEANED:id "+id
	End Method

	Method Remove()
		ListRemove SpriteRenderList, Self
		Print "Removed id "+id+", "+CountList(SpriteRenderList)+" total sprites now remaing"
	End Method
			
End Type

Local mt:Sprite = New Sprite
Local mt2:Sprite = New Sprite
Local mt3:Sprite = New Sprite

Print "id>"+mt.id
Print "id>"+mt2.id
Print "id>"+mt3.id

mt.Remove; mt=Null; GCCollect() 
mt2.Remove; mt2=Null; GCCollect()
mt3.Remove; mt3=Null; GCCollect()

GCCollect()
GCCollect()

End

SpriteList.TList = CreateList()
Type Sprite

   Function Create:Sprite(Image)
       Local ThisSprite:Sprite = New Sprite
       ThisSprite.Image = Image
       ListAddLast SpriteList, ThisSprite
       Return ThisSprite
   End Function

   Method Draw()
       ' Draw sprite here
   End Method

   Method Delete()
       ListRemove SpriteList, ThisSprite
   End Method

End Type

' Create sprites at start of level.
Sprite1:Sprite = Sprite.Create(Image)
Sprite2:Sprite = Sprite.Create(Image)

' Oh no, sprite 2 was killed!
Sprite2 = Null

' Does garbage collector run immediately?  No, we can't count on when it will run.

' It's the next frame!  Oh no!  Draw the sprites in the list!
For ThisSprite:Sprite = Each Sprite
    ThisSprite.Draw
Next

' Ahh!  Two sprites were drawn!

' Garbage collector finally gets around to running, which calls Sprite2's Delete Method, which finally removes it from the list of sprites to draw, which finally allows it to be freed.

Type Sprite
	Global SpriteRenderList:TList = New TList
	Global gid:Int = 0
	
	Field id:Int = gid

	Method New()
		gid:+1
		ListAddLast SpriteRenderList, Self
	End Method
	
	Method Delete()
		Print "REF CLEANED:id "+id
	End Method

	Method Remove()
		ListRemove SpriteRenderList, Self
		Print "Removed id "+id+", "+CountList(SpriteRenderList)+" total sprites now remaing"
	End Method
			
End Type

Local mt:Sprite = New Sprite
Local mt2:Sprite = New Sprite
Local mt3:Sprite = New Sprite

Print "id>"+mt.id
Print "id>"+mt2.id
Print "id>"+mt3.id

Print CountList(Sprite.SpriteRenderList)
mt.Remove; mt=Null; GCCollect() 

Print CountList(Sprite.SpriteRenderList)
mt2.Remove; mt2=Null; GCCollect()

Print CountList(Sprite.SpriteRenderList)
mt3.Remove; mt3=Null; GCCollect()

Print CountList(Sprite.SpriteRenderList)

GCCollect()
GCCollect()

End

Local number:Int = 1

Function getDouble:Int( number:Int)
	Return number*2
End Function

Function setDouble(number:Int Var)
	number:*2
End Function


Print number
Print getDouble( number )
Print number
setDouble( number )
Print number

badguys:TList = New TList
for i = 0 to 5
   si:Sprite = new Sprite
   si.x = blah blah
   ListAddLast badguys, si
next

for si:Sprite = each in badguys
   ai stuff
next