Sobre consumo de RAM de una aplicacion

Bueno, case, el codigo es esl siguiente:
Código:
Graphics 1024,768,32,2
Cls
Locate 0,0
Print "Inserte la contraseña de administrador:"
Print "(No inserte nada para salir)"
pass$=Input()
Cls
Locate 0,0
If pass$=""
	End
EndIf
users#=-1
general$=CurrentDir()+"general\"
pedidos$=CurrentDir()+"pedidos\"
gasto_usuarios$=CurrentDir()+"gastos\"
dat_users$=CurrentDir()+"datos_usuarios\"
If FileType(dat_users$)=0
	CreateDir dat_users$
EndIf
info_users$=dat_users$+"archivo de usuarios.dat"
.actualizar_users
If FileType(pedidos$)=0
	CreateDir pedidos$
EndIf
If FileType(info_users$)=1
	fileout=ReadFloat(info_users$)
	param_users#=ReadFloat(fielout)
	If param_users#>0
		Dim lista_param_users$(param_users#)
		param_users#=param_users#-1
		For tr#=0 To param_users#
			dat$=ReadString(feout)
			lista_param_users$(tr#)=dat$
		Next
	EndIf
	users#=ReadFloat(fileout)
	If users#>0
		users#=users#-1
		Dim gastado_users#(users#)
		param_users#=param_users#-1
		Dim listado_users$(users#,1)
		Dim compras_users#(users#,productos#,2)
		Dim parametros_users$(users#,param_users#)
		For tr#=0 To users#
			dat$=listado_users$(tr#,0)
			dat_b$=info_users$+dat$+".dat"
			If FileType(dat_b$)=1
				fileout=ReadFile(dat_b$)
				For trr#=0 To param_users#
					dat_c$=ReadString(fileout)
					parametros_users$(tr#,trr#)=dat_c$
				Next
				CloseFile(fileout)
			EndIf
			dat_b$=dat_users$+dat$+".dat"
			If FileType(dat_b$)=1
				fileout=ReadFile(dat_b$)
				opciones#=ReadFloat(fileout)
				gastado_users#(tr#)=opciones#
				CloseFile(fileout)
			EndIf
			dat_b$=pedidos$+dat$+".dat"
			If FileType(dat_b$)=1
				fileout=ReadFile(dat_b$)
				For trx#=0 To productos#
					For t=0 To 2
						opciones#=ReadFloat(fileout)
						compras_users#(tr#,trx#,t)=opciones#
					Next
				Next
				CloseFile(fileout)
			EndIf
		Next
	EndIf
EndIf
.actualizar_productos
If FileType(general$)=0
	Cls
	Locate 0,0
	Print "Se ha producido un error; no existe una carpeta con"
	Print "los datos basicos de las categorias, subcategorias y"
	Print "productos."
	Print "Pulse una tecla para salir del programa."
	WaitKey()
	End
EndIf
general_b$=general$+"categorias_y_productos.dat"
dispo$=general$+"disponibilidad.dat"
If FileType(general_b$)=0
	Cls
	Locate 0,0
	Print "Se ha producido un error; no existe un archivo con"
	Print "los datos basicos de las categorias, subcategorias y"
	Print "productos."
	Print "Pulse una tecla para salir del programa."
	WaitKey()
	End
EndIf
If FileType(dispo$)=0
	Cls
	Locate 0,0
	Print "Se ha producido un error; no existe un archivo con"
	Print "los datos de disponibilidad de los productos."
	Print "Pulse una tecla para salir del programa."
	WaitKey()
	End
EndIf
general_b$=general$+"categorias_y_productos.dat"
dispo$=general$+"disponibilidad.dat"
If FileType(general_b$)=1
	fileout=ReadFile(general_b$)
	dat$=ReadString(fileout)
	dat$=ReadString(fileout)
	categorias#=ReadFloat(fileout)
	If categorias#>0
		categorias#=categorias#-1
		Dim lista_categorias$(categorias#)
		For tr#=0 To categorias#
			dat$=ReadString(fileout)
			lista_categorias$(tr#)=dat$
		Next
	EndIf
	subcategorias#=ReadFloat(fileout)
	If subcategorias#>0
		subcategorias#=subcategorias#-1
		Dim lista_subcategorias$(subcategorias#,1)
		For tr#=0 To subcategorias#
			For t=0 To 1
				dat$=ReadString(fileout)
				lista_subcategorias$(tr#,t)=dat$
			Next
		Next
	EndIf
	productos#=ReadFloat(fileout)
	If productos#>0
		productos#=productos#-1
		Dim lista_productos$(productos#,4)
		For tr#=0 To productos#
			For t=0 To 4
				dat$=ReadString(fileout)
				lista_productos$(tr#,t)=dat$
			Next
		Next
		productos#=productos#+1
	EndIf
	beneficios#=ReadFloat(fileout)
	Dim ben_adic$(beneficios#)
	If productos#>0
		productos#=productos#-1
		fileout=ReadFile(dispo$)
		Dim dispo_prod#(productos#)
		For tr#=0 To productos#
			opciones#=ReadFloat(fileout)
			dispo_prod#(tr#)=opciones#
		Next
		CloseFile(fileout)
	EndIf
EndIf
If x=1
	x=0
	Print "Datos de productos de tienda actualizados."
	Goto recibir_signal
EndIf
svrgame=CreateTCPServer(8080)
If svrgame=0
	Print "No ha sido posible crear el servidor de tienda."
	Print "Pulse una tecla para salir del programa."
	WaitKey()
	End
EndIf
x=0
While Not KeyHit(1)
.recibir_signal
strstream=AcceptTCPStream(svrgame)
If strstream=0
	Goto recibir_signal
EndIf
ip$=TCPStreamIP(strstream)
daty$=ReadString(strstream)
y#=0
.porty
y#=y#+1
opciones#=Left$(daty$,y#)
If opciones#=opciones_b#
	puerto_envio#=opciones#
	puerto_envio_b$=Left$(daty$,y#)
	Goto comprovacional
EndIf
opciones_b#=Left$(daty$,y#)
Goto porty
.comprovacional
If Instr( daty$,"actualizardatos")>0
	If daty$=puerto_envio_b$ + "0 " + "admin " + pass$ + " actualizardatos"
		x=1
		Print "Actualizando datos."
		Goto actualizar_productos
	EndIf
EndIf
If Instr( daty$,"actualizarusers")>0
	If daty$=puerto_envio_b$ + "0 " + "admin " + pass$ + " actualizarusers"
		x=1
		Goto actualizar_users
	EndIf
EndIf
If Instr( daty$,"precio")>0
	For trr#=0 To productos#
		datz$=puerto_envio_b$ + "0 " + trr# + " " + "precio"
		If daty$=datz$
			opciones#=lista_productos$(trr#,4)
			tcp2=OpenTCPStream(ip$,puerto_envio#)
			WriteFloat tcp2,opciones#
			CloseTCPStream tcp2
		EndIf
	Next
EndIf
If Instr( daty$,"cantidad")>0
	For trr#=0 To productos#
		datz$=puerto_envio_b$ + "0 " + trr# + " " + "cantidad"
		If daty$=datz$
			xas#=0
			xaso#=0
			For ou#=0 To users#
				For tc=0 To 1
					xaso#=compras_users#(ou#,trr#,tc)
					xas#=xas#+xaso#
				Next
			Next
			dispos#=dispo_prod#(trr#)-xas#
			tcp2=OpenTCPStream(ip$,puerto_envio#)
			If tcp2<>0
				Goto envio_00
			EndIf
			Goto recibir_signal
			.envio_00
			WriteFloat tcp2,dispos#
			CloseTCPStream tcp2
		EndIf
	Next
EndIf
If users#=-1
	Goto recibir_signal
EndIf
If Instr( daty$,"pedir")>0
	For tr#=0 To users#
		For trr#=0 To productos#
			opciones_b#=dispo_prod#(trr#)
			For trrr#=0 To opciones_b#
				If daty$=puerto_envio_b$ + "0 " + listado_users$(tr#,0) + " " + listado_users$(tr#,1) + " " + trr# + " " + "pedir " + trrr#
					xas#=0
					xaso#=0
					For ou#=0 To users#
						For tc=0 To 1
							xaso#=compras_users#(ou#,trr#,tc)
							xas#=xas#+xaso#
						Next
					Next
					dispos#=dispo_prod#(trr#)-xas#
					If trrr#>dispos#
						tcp2=OpenTCPStream(ip$,puerto_envio#)
						If tcp2<>0
							Goto envio_01
						EndIf
						Goto recibir_signal
						.envio_01
						WriteString tcp2,"fallo"
						CloseTCPStream tcp2
						Goto recibir_signal
					EndIf
					opy#=compras_users#(tr#,trr#,0)
					compras_users#(tr#,trr#,0)=trrr#+opy#
					tcp2=OpenTCPStream(ip$,puerto_envio#)
					WriteString tcp2,"completo"
					CloseTCPStream tcp2
					dat$=listado_users$(tr#,0)
					dat_b$=pedidos$+dat$+".dat"
					fileout=WriteFile(dat_b$)
					For trx#=0 To productos#
						For t=0 To 2
							opciones#=compras_users#(tr#,trx#,t)
							WriteFloat(fileout,opciones#)
						Next
					Next
					CloseFile(fileout)
				EndIf
			Next
		Next
	Next
EndIf
If Instr( daty$,"eliminar")>0
	For tr#=0 To users#
		For trr#=0 To productos#
			opciones_b#=dispo_prod#(trr#)
			opciones_b#=compras_users#(tr#,trr#,0)
			For trx#=0 To opciones_b#
				If daty$=puerto_envio_b$ + "0 " + listado_users$(tr#,0) + " " + listado_users$(tr#,1) + " " + trr# + " " + "eliminar " + trx#
					opciones#=opciones_b#-trx#
					tcp2=OpenTCPStream(ip$,puerto_envio#)
					If tcp2<>0
						Goto envio_02
					EndIf
					Goto recibir_signal
					.envio_02
					WriteString tcp2,"hecho"
					CloseTCPStream tcp2
				EndIf
			Next
		Next
	Next
EndIf
Wend
Por otra parte, armizh, en lo de la base de datos de cualquier tipo, ¿como se hace?; me disculpo por mi ignorancia y demas, pero lo que se me ocurrio es, en vez de guardarlo todo en una matriz, es guardar todos los datos en archivos pequeños y luego acceder a ellos con los datos que me envian a traves de la red y demas; ¿es correcto?.
Saludos.