{curl 3.0 applet}
{curl-file-attributes character-encoding = "shift-jis"}
{applet manifest = "manifest.mcurl"}

{define-class public MyClass
	|| Define a class variable.
	let public total:int = 0

	|| Define a class constant.
	let public constant points:int = 7   ||定数を7に変更

	|| Define a class procedure.
	{define-proc public {add-points}:void
	{set MyClass.total = MyClass.total + MyClass.points}
	}
}
Starting total is ... {value MyClass.total}

|| Call class procedure twice
{MyClass.add-points}
{MyClass.add-points}
{MyClass.add-points}   ||追加部分
{MyClass.add-points}   ||追加部分
{MyClass.add-points}   ||追加部分

New total is ... {value MyClass.total}