)

	read_persistent_var($S)

	move_control_px($S,245,2)

	set_control_par(get_ui_id($S),$CONTROL_PAR_WIDTH,34)

	set_text($S,!btn[$S])
	set_text($T,"")

	message("")
end on

on ui_control($S)
	set_text($S,!btn[$S])
end on

on ui_control($P)
	if ($S = 0)
		@txt := ""
		$count := $P * 4
		while ($count < 4 + ($P * 4))
			@txt := @txt & %mem[$count] & " "
			inc($count)
		end while
		set_text($T,"#" & $P + 1 & " load: " & @txt)
	else
		@txt := ""
		$count := $P * 4
		while ($count < 4 + ($P * 4))
			%mem[$count] := random (0,9)
			@txt := @txt & %mem[$count] & " "
			inc($count)
		end while
		set_text($T,"#" & $P+1 & " save: " & @txt)
	end if
end on