Loading Question

[Le Jingle]

I was wondering what formats would be best for a larger file script.

Here's what I mean;



program Big;
{$i srl/srl.simba}

const
WantedVariableName = 'Var1'; //Enter the variable to be found here

Procedure Main;

var
Var1, Var2, Var3, Var4, etc : Integer;

begin

Case LowerCase(WantedVariableName) of

'Var1':
begin
Var1 := StrToInt(GetLetters(Between('', '', Getpage(''))))
Writeln('Variable 1 Name Here = ' + IntToStr(Var1));
end;

'Var2':
begin
Var2 := StrToInt(GetLetters(Between('', '', Getpage(''))))
Writeln('Variable 2 Name Here = ' + IntToStr(Var2));
end;

'Var3':
begin
Var3 := StrToInt(GetLetters(Between('', '', Getpage(''))))
Writeln('Variable 3 Name Here = ' + IntToStr(Var3));
end;

'etc':
begin
etc := StrToInt(GetLetters(Between('', '', Getpage(''))))
Writeln('etc Name Here = ' + IntToStr(etc));
end;
else
begin
Writeln('Finished.');
TerminateScript;
end;
end;
end;




begin
SetUpSRL;
ClearDebug;
repeat
Main;
until true
TerminateScript;
end.



And that would be for tens of thousands of entries.

Gracious to any form of assistance! :>

Edit: .

[Le Jingle]

Hmm I think now I'm just curious if I should leave everything in one procedure, break every entry up into it's own procedure (a defined var and case of for each procedure), or use some type of a different/another function. thanks again to anyone who looks/helps