ABB Program Using Arrays

Hi! I'm doing a program which i have an array {10,10,10}. And i want to in the beginning choose some parameters for the operation, with then is saved in the array like this example. After i did it once i want to, add some new parameters but this time not in the same array (area!?) so that i can ex enter ten different programs and then choose them from a question.

PROC init()

TPErase;

TPReadFK programID,"1 XXX 2 XXX","1","2","","","";

TPErase;

Test programID

case 1:

TPErase;

TPReadNum ProgramNR, "ProgramID"; !THE CHOOSE PART OF WICH PROGRAM!

TPErase;

case 2:

TPErase;

TPReadNum BorrData{1,1,1}, "XXXX";

TPErase;

TPReadNum BorrData{1,1,2}, "XXXX";

TPErase;

TPReadNum BorrData{1,1,3}, "XXX";

TPErase;

TPReadNum BorrData{1,1,4}, "XXXX ";

TPErase;

TPReadNum BorrData{1,1,5}, "XXXX";

TPErase;

TPReadNum BorrData{1,1,6}, "XXXX";

TPErase;

EndTest

EndProc

PROC CCC()

Speed.v_tcp:=BorrData{1,1,6};

ZZZZZ:=Borrdata{1,1,2};

WHILE AntalRakning < BorrData{1,1,5} DO

WHILE Klart < BorrData{1,1,2} DO

!**Manipulerar possitionen i Z led**

Start:=Offs(Start,(0),0,(BorrData{1,1,3}));

!**

MoveL StartBorr,BorrSpeed,z50,toolborr1\WObj:=wobjborr1;

!**

Add BorrningKlart, BorrData{1,1,3};

WaitTime 0.5;

ENDWHILE

!**

Start:=Offs(Start,(0),0,-nollLage);

MoveL start,Speed,z50,toolborr1\WObj:=wobjborr1;

WaitTime 2.0;

!**

INCR AntalRakning;

!**

Klart:=0;

!**

StartBorr:=Offs(StartBorr,0,(BorrData{1,1,4}),0);

!**RÖRELSE FRAM**

MoveL Start,Speed,z50,toolborr1\WObj:=wobjborr1;

WaitTime 2.0;

ENDWHILE

EndProc

´

I'm grateful of any kind of help! BR