Sub Globals
	Dim scr As ScrollView
	Dim position As Int=0
End Sub

Sub Activity_Create(FirstTime As Boolean)

	If File.Exists(File.DirInternal,"position") =False Then
		File.WriteString(File.DirInternal,"position","0")
	End If
	
scr.Initialize(0)
Activity.AddView(scr,0,0,100%x,100%y)
position=File.ReadString(File.DirInternal,"position")
Log(position)
Dim top As Int=0
For i=0 To 500
	Dim lab As Label
	lab.Initialize("lab")
	scr.Panel.AddView(lab,0,top,100%x,10%x)
	lab.Text=i
	top=top+11%x
Next
scr.Panel.Height=top
	' ⏱ خط Sleep در فایل ضمیمه code.zip است (محدودیت امنیتی سرور)؛ هنگام استفاده آن را از فایل برگردانید
scr.ScrollPosition=position
End Sub