goto arrays
; Cutrefacto ARRAY SYSTEM
; Can work as a vector and as a stack (even a mix,
; i.e. Push datas and use Get`s instead of Pop`s to keep them).

; Only can hold 30 vectors of 3 variables each one
; It isn`t very fast :( . But until a true array system....


; Sintaxis: 

;   call Array RESET
;   call Array INFO
;As a vector, a normal array
;   call Array ADD    Index Value1 [Value2] [Value3]
;   call Array GET    Index
;   call Array DELETE Index
;As a stack
;   call Array PUSH  Value1 [Value2] [Value3]
;   call Array POP


;  Parameters
;   Action: 
;          RESET --> Delete all values. Reinit. Must be done at startup.
;          ADD   --> Adds a new value at Index position
;          GET   --> exits value at Index position to %1 [%2] [%3]
;          DELETE--> Erase value at Index position 
;          PUSH  --> Insert a value onto the stack
;          POP   --> exit the last value inserted to %1 [%2] [%3]
;          INFO  --> %1 : Number of vectors stored
;                    %2 : Number of vectors the array can store at once
;   Index: Is a position in the array. A value between [1-30] 
;   Value: New data for the array. Needed in ADD & PUSH action

arrays:
IF %1 = ADD
  gosub ArrayADD
IF %1 = PUSH
  gosub ArrayPUSH
IF %1 = POP
  gosub ArrayPOP
IF %1 = DELETE
  gosub ArrayDEL
IF %1 = GET
  gosub ArrayGET
IF %1 = RESET
  gosub ArrayRESET
IF %1 = INFO
  gosub ArrayINFO
exit


sub ArrayPop
 if %ArrayIndex > 1
    {
    set %ArrayIndex %ArrayIndex - 1
    set %2 %ArrayIndex 
    gosub ArrayGET
    exit
   }
set %1 N/A
set %2 N/A
set %3 N/A
set %4 N/A
exit


sub ArrayGET
goto %2
    set %1 N/A
    set %2 N/A
    set %3 N/A
    set %4 N/A
 exit 
1:
   set %1 %Array1_1
   set %2 %Array1_2
   set %3 %Array1_3
   set %4 %Array1_4
 exit
2:
   set %1 %Array2_1
   set %2 %Array2_2
   set %3 %Array2_3
   set %4 %Array2_4
 exit
3:
   set %1 %Array3_1
   set %2 %Array3_2
   set %3 %Array3_3
   set %4 %Array3_4
 exit
4:
   set %1 %Array4_1
   set %2 %Array4_2
   set %3 %Array4_3
   set %4 %Array4_4
 exit
5:
   set %1 %Array5_1
   set %2 %Array5_2
   set %3 %Array5_3
   set %4 %Array5_4
 exit
6:
   set %1 %Array6_1
   set %2 %Array6_2
   set %3 %Array6_3
   set %4 %Array6_4
 exit
7:
   set %1 %Array7_1
   set %2 %Array7_2
   set %3 %Array7_3
   set %4 %Array7_4
 exit
8:
   set %1 %Array8_1
   set %2 %Array8_2
   set %3 %Array8_3
   set %4 %Array8_4
 exit
9:
   set %1 %Array9_1
   set %2 %Array9_2
   set %3 %Array9_3
   set %4 %Array9_4
 exit
10:
   set %1 %Array10_1
   set %2 %Array10_2
   set %3 %Array10_3
   set %4 %Array10_4
 exit
11:
   set %1 %Array11_1
   set %2 %Array11_2
   set %3 %Array11_3
   set %4 %Array11_4
 exit
12:
   set %1 %Array12_1
   set %2 %Array12_2
   set %3 %Array12_3
   set %4 %Array12_4
 exit
13:
   set %1 %Array13_1
   set %2 %Array13_2
   set %3 %Array13_3
   set %4 %Array13_4
 exit
14:
   set %1 %Array14_1
   set %2 %Array14_2
   set %3 %Array14_3
   set %4 %Array14_4
 exit
15:
   set %1 %Array15_1
   set %2 %Array15_2
   set %3 %Array15_3
   set %4 %Array15_4
 exit
16:
   set %1 %Array16_1
   set %2 %Array16_2
   set %3 %Array16_3
   set %4 %Array16_4
 exit
17:
   set %1 %Array17_1
   set %2 %Array17_2
   set %3 %Array17_3
   set %4 %Array17_4
 exit
18:
   set %1 %Array18_1
   set %2 %Array18_2
   set %3 %Array18_3
   set %4 %Array18_4
 exit
19:
   set %1 %Array19_1
   set %2 %Array19_2
   set %3 %Array19_3
   set %4 %Array19_4
 exit
20:
   set %1 %Array20_1
   set %2 %Array20_2
   set %3 %Array20_3
   set %4 %Array20_4
 exit
21:
   set %1 %Array21_1
   set %2 %Array21_2
   set %3 %Array21_3
   set %4 %Array21_4
 exit
22:
   set %1 %Array22_1
   set %2 %Array22_2
   set %3 %Array22_3
   set %4 %Array22_4
 exit
23:
   set %1 %Array23_1
   set %2 %Array23_2
   set %3 %Array23_3
   set %4 %Array23_4
 exit
24:
   set %1 %Array24_1
   set %2 %Array24_2
   set %3 %Array24_3
   set %4 %Array24_4
 exit
25:
   set %1 %Array25_1
   set %2 %Array25_2
   set %3 %Array25_3
   set %4 %Array25_4
 exit
26:
   set %1 %Array26_1
   set %2 %Array26_2
   set %3 %Array26_3
   set %4 %Array26_4
 exit
27:
   set %1 %Array27_1
   set %2 %Array27_2
   set %3 %Array27_3
   set %4 %Array27_4
 exit
28:
   set %1 %Array28_1
   set %2 %Array28_2
   set %3 %Array28_3
   set %4 %Array28_4
 exit
29:
   set %1 %Array29_1
   set %2 %Array29_2
   set %3 %Array29_3
   set %4 %Array29_4
 exit
30:
   set %1 %Array30_1
   set %2 %Array30_2
   set %3 %Array30_3
   set %4 %Array30_4
 exit
31:
   set %1 %Array31_1
   set %2 %Array31_2
   set %3 %Array31_3
   set %4 %Array31_4
 exit
32:
   set %1 %Array32_1
   set %2 %Array32_2
   set %3 %Array32_3
   set %4 %Array32_4
 exit
33:
   set %1 %Array33_1
   set %2 %Array33_2
   set %3 %Array33_3
   set %4 %Array33_4
 exit
34:
   set %1 %Array34_1
   set %2 %Array34_2
   set %3 %Array34_3
   set %4 %Array34_4
 exit
35:
   set %1 %Array35_1
   set %2 %Array35_2
   set %3 %Array35_3
   set %4 %Array35_4
 exit
36:
   set %1 %Array36_1
   set %2 %Array36_2
   set %3 %Array36_3
   set %4 %Array36_4
 exit
37:
   set %1 %Array37_1
   set %2 %Array37_2
   set %3 %Array37_3
   set %4 %Array37_4
 exit
38:
   set %1 %Array38_1
   set %2 %Array38_2
   set %3 %Array38_3
   set %4 %Array38_4
 exit
39:
   set %1 %Array39_1
   set %2 %Array39_2
   set %3 %Array39_3
   set %4 %Array39_4
 exit
40:
   set %1 %Array40_1
   set %2 %Array40_2
   set %3 %Array40_3
   set %4 %Array40_4
 exit
41:
   set %1 %Array41_1
   set %2 %Array41_2
   set %3 %Array41_3
   set %4 %Array41_4
 exit
42:
   set %1 %Array42_1
   set %2 %Array42_2
   set %3 %Array42_3
   set %4 %Array42_4
 exit
43:
   set %1 %Array43_1
   set %2 %Array43_2
   set %3 %Array43_3
   set %4 %Array43_4
 exit
44:
   set %1 %Array44_1
   set %2 %Array44_2
   set %3 %Array44_3
   set %4 %Array44_4
 exit
45:
   set %1 %Array45_1
   set %2 %Array45_2
   set %3 %Array45_3
   set %4 %Array45_4
 exit
46:
   set %1 %Array46_1
   set %2 %Array46_2
   set %3 %Array46_3
   set %4 %Array46_4
 exit
47:
   set %1 %Array47_1
   set %2 %Array47_2
   set %3 %Array47_3
   set %4 %Array47_4
 exit
48:
   set %1 %Array48_1
   set %2 %Array48_2
   set %3 %Array48_3
   set %4 %Array48_4
 exit
49:
   set %1 %Array49_1
   set %2 %Array49_2
   set %3 %Array49_3
   set %4 %Array49_4
 exit
50:
   set %1 %Array50_1
   set %2 %Array50_2
   set %3 %Array50_3
   set %4 %Array50_4
 exit
51:
   set %1 %Array51_1
   set %2 %Array51_2
   set %3 %Array51_3
   set %4 %Array51_4
 exit
52:
   set %1 %Array52_1
   set %2 %Array52_2
   set %3 %Array52_3
   set %4 %Array52_4
 exit
53:
   set %1 %Array53_1
   set %2 %Array53_2
   set %3 %Array53_3
   set %4 %Array53_4
 exit
54:
   set %1 %Array54_1
   set %2 %Array54_2
   set %3 %Array54_3
   set %4 %Array54_4
 exit
55:
   set %1 %Array55_1
   set %2 %Array55_2
   set %3 %Array55_3
   set %4 %Array55_4
 exit
56:
   set %1 %Array56_1
   set %2 %Array56_2
   set %3 %Array56_3
   set %4 %Array56_4
 exit
57:
   set %1 %Array57_1
   set %2 %Array57_2
   set %3 %Array57_3
   set %4 %Array57_4
 exit
58:
   set %1 %Array58_1
   set %2 %Array58_2
   set %3 %Array58_3
   set %4 %Array58_4
 exit
59:
   set %1 %Array59_1
   set %2 %Array59_2
   set %3 %Array59_3
   set %4 %Array59_4
 exit
60:
   set %1 %Array60_1
   set %2 %Array60_2
   set %3 %Array60_3
   set %4 %Array60_4
 exit
61:
   set %1 %Array61_1
   set %2 %Array61_2
   set %3 %Array61_3
   set %4 %Array61_4
 exit
62:
   set %1 %Array62_1
   set %2 %Array62_2
   set %3 %Array62_3
   set %4 %Array62_4
 exit
63:
   set %1 %Array63_1
   set %2 %Array63_2
   set %3 %Array63_3
   set %4 %Array63_4
 exit
64:
   set %1 %Array64_1
   set %2 %Array64_2
   set %3 %Array64_3
   set %4 %Array64_4
 exit
65:
   set %1 %Array65_1
   set %2 %Array65_2
   set %3 %Array65_3
   set %4 %Array65_4
 exit
66:
   set %1 %Array66_1
   set %2 %Array66_2
   set %3 %Array66_3
   set %4 %Array66_4
 exit
67:
   set %1 %Array67_1
   set %2 %Array67_2
   set %3 %Array67_3
   set %4 %Array67_4
 exit
68:
   set %1 %Array68_1
   set %2 %Array68_2
   set %3 %Array68_3
   set %4 %Array68_4
 exit
69:
   set %1 %Array69_1
   set %2 %Array69_2
   set %3 %Array69_3
   set %4 %Array69_4
 exit
70:
   set %1 %Array70_1
   set %2 %Array70_2
   set %3 %Array70_3
   set %4 %Array70_4
 exit
71:
   set %1 %Array71_1
   set %2 %Array71_2
   set %3 %Array71_3
   set %4 %Array71_4
 exit
72:
   set %1 %Array72_1
   set %2 %Array72_2
   set %3 %Array72_3
   set %4 %Array72_4
 exit
73:
   set %1 %Array73_1
   set %2 %Array73_2
   set %3 %Array73_3
   set %4 %Array73_4
 exit
74:
   set %1 %Array74_1
   set %2 %Array74_2
   set %3 %Array74_3
   set %4 %Array74_4
 exit
75:
   set %1 %Array75_1
   set %2 %Array75_2
   set %3 %Array75_3
   set %4 %Array75_4
 exit
76:
   set %1 %Array76_1
   set %2 %Array76_2
   set %3 %Array76_3
   set %4 %Array76_4
 exit
77:
   set %1 %Array77_1
   set %2 %Array77_2
   set %3 %Array77_3
   set %4 %Array77_4
 exit
78:
   set %1 %Array78_1
   set %2 %Array78_2
   set %3 %Array78_3
   set %4 %Array78_4
 exit
79:
   set %1 %Array79_1
   set %2 %Array79_2
   set %3 %Array79_3
   set %4 %Array79_4
 exit
80:
   set %1 %Array80_1
   set %2 %Array80_2
   set %3 %Array80_3
   set %4 %Array80_4
 exit
81:
   set %1 %Array81_1
   set %2 %Array81_2
   set %3 %Array81_3
   set %4 %Array81_4
 exit
82:
   set %1 %Array82_1
   set %2 %Array82_2
   set %3 %Array82_3
   set %4 %Array82_4
 exit
83:
   set %1 %Array83_1
   set %2 %Array83_2
   set %3 %Array83_3
   set %4 %Array83_4
 exit
84:
   set %1 %Array84_1
   set %2 %Array84_2
   set %3 %Array84_3
   set %4 %Array84_4
 exit
85:
   set %1 %Array85_1
   set %2 %Array85_2
   set %3 %Array85_3
   set %4 %Array85_4
 exit
86:
   set %1 %Array86_1
   set %2 %Array86_2
   set %3 %Array86_3
   set %4 %Array86_4
 exit
87:
   set %1 %Array87_1
   set %2 %Array87_2
   set %3 %Array87_3
   set %4 %Array87_4
 exit
88:
   set %1 %Array88_1
   set %2 %Array88_2
   set %3 %Array88_3
   set %4 %Array88_4
 exit
89:
   set %1 %Array89_1
   set %2 %Array89_2
   set %3 %Array89_3
   set %4 %Array89_4
 exit
90:
   set %1 %Array90_1
   set %2 %Array90_2
   set %3 %Array90_3
   set %4 %Array90_4
 exit
91:
   set %1 %Array91_1
   set %2 %Array91_2
   set %3 %Array91_3
   set %4 %Array91_4
 exit
92:
   set %1 %Array92_1
   set %2 %Array92_2
   set %3 %Array92_3
   set %4 %Array92_4
 exit
93:
   set %1 %Array93_1
   set %2 %Array93_2
   set %3 %Array93_3
   set %4 %Array93_4
 exit
94:
   set %1 %Array94_1
   set %2 %Array94_2
   set %3 %Array94_3
   set %4 %Array94_4
 exit
95:
   set %1 %Array95_1
   set %2 %Array95_2
   set %3 %Array95_3
   set %4 %Array95_4
 exit
96:
   set %1 %Array96_1
   set %2 %Array96_2
   set %3 %Array96_3
   set %4 %Array96_4
 exit
97:
   set %1 %Array97_1
   set %2 %Array97_2
   set %3 %Array97_3
   set %4 %Array97_4
 exit
98:
   set %1 %Array98_1
   set %2 %Array98_2
   set %3 %Array98_3
   set %4 %Array98_4
 exit
99:
   set %1 %Array99_1
   set %2 %Array99_2
   set %3 %Array99_3
   set %4 %Array99_4
 exit
100:
   set %1 %Array100_1
   set %2 %Array100_2
   set %3 %Array100_3
   set %4 %Array100_4
 exit
101:
   set %1 %Array101_1
   set %2 %Array101_2
   set %3 %Array101_3
   set %4 %Array101_4
 exit
102:
   set %1 %Array102_1
   set %2 %Array102_2
   set %3 %Array102_3
   set %4 %Array102_4
 exit
103:
   set %1 %Array103_1
   set %2 %Array103_2
   set %3 %Array103_3
   set %4 %Array103_4
 exit
104:
   set %1 %Array104_1
   set %2 %Array104_2
   set %3 %Array104_3
   set %4 %Array104_4
 exit
105:
   set %1 %Array105_1
   set %2 %Array105_2
   set %3 %Array105_3
   set %4 %Array105_4
 exit
106:
   set %1 %Array106_1
   set %2 %Array106_2
   set %3 %Array106_3
   set %4 %Array106_4
 exit
107:
   set %1 %Array107_1
   set %2 %Array107_2
   set %3 %Array107_3
   set %4 %Array107_4
 exit
108:
   set %1 %Array108_1
   set %2 %Array108_2
   set %3 %Array108_3
   set %4 %Array108_4
 exit
109:
   set %1 %Array109_1
   set %2 %Array109_2
   set %3 %Array109_3
   set %4 %Array109_4
 exit
110:
   set %1 %Array110_1
   set %2 %Array110_2
   set %3 %Array110_3
   set %4 %Array110_4
 exit
111:
   set %1 %Array111_1
   set %2 %Array111_2
   set %3 %Array111_3
   set %4 %Array111_4
 exit
112:
   set %1 %Array112_1
   set %2 %Array112_2
   set %3 %Array112_3
   set %4 %Array112_4
 exit
113:
   set %1 %Array113_1
   set %2 %Array113_2
   set %3 %Array113_3
   set %4 %Array113_4
 exit
114:
   set %1 %Array114_1
   set %2 %Array114_2
   set %3 %Array114_3
   set %4 %Array114_4
 exit
115:
   set %1 %Array115_1
   set %2 %Array115_2
   set %3 %Array115_3
   set %4 %Array115_4
 exit
116:
   set %1 %Array116_1
   set %2 %Array116_2
   set %3 %Array116_3
   set %4 %Array116_4
 exit
117:
   set %1 %Array117_1
   set %2 %Array117_2
   set %3 %Array117_3
   set %4 %Array117_4
 exit
118:
   set %1 %Array118_1
   set %2 %Array118_2
   set %3 %Array118_3
   set %4 %Array118_4
 exit
119:
   set %1 %Array119_1
   set %2 %Array119_2
   set %3 %Array119_3
   set %4 %Array119_4
 exit
120:
   set %1 %Array120_1
   set %2 %Array120_2
   set %3 %Array120_3
   set %4 %Array120_4
 exit
121:
   set %1 %Array121_1
   set %2 %Array121_2
   set %3 %Array121_3
   set %4 %Array121_4
 exit
122:
   set %1 %Array122_1
   set %2 %Array122_2
   set %3 %Array122_3
   set %4 %Array122_4
 exit
123:
   set %1 %Array123_1
   set %2 %Array123_2
   set %3 %Array123_3
   set %4 %Array123_4
 exit
124:
   set %1 %Array124_1
   set %2 %Array124_2
   set %3 %Array124_3
   set %4 %Array124_4
 exit
125:
   set %1 %Array125_1
   set %2 %Array125_2
   set %3 %Array125_3
   set %4 %Array125_4
 exit
126:
   set %1 %Array126_1
   set %2 %Array126_2
   set %3 %Array126_3
   set %4 %Array126_4
 exit
127:
   set %1 %Array127_1
   set %2 %Array127_2
   set %3 %Array127_3
   set %4 %Array127_4
 exit
128:
   set %1 %Array128_1
   set %2 %Array128_2
   set %3 %Array128_3
   set %4 %Array128_4
 exit
129:
   set %1 %Array129_1
   set %2 %Array129_2
   set %3 %Array129_3
   set %4 %Array129_4
 exit
130:
   set %1 %Array130_1
   set %2 %Array130_2
   set %3 %Array130_3
   set %4 %Array130_4
 exit
131:
   set %1 %Array131_1
   set %2 %Array131_2
   set %3 %Array131_3
   set %4 %Array131_4
 exit
132:
   set %1 %Array132_1
   set %2 %Array132_2
   set %3 %Array132_3
   set %4 %Array132_4
 exit
133:
   set %1 %Array133_1
   set %2 %Array133_2
   set %3 %Array133_3
   set %4 %Array133_4
 exit
134:
   set %1 %Array134_1
   set %2 %Array134_2
   set %3 %Array134_3
   set %4 %Array134_4
 exit
135:
   set %1 %Array135_1
   set %2 %Array135_2
   set %3 %Array135_3
   set %4 %Array135_4
 exit
136:
   set %1 %Array136_1
   set %2 %Array136_2
   set %3 %Array136_3
   set %4 %Array136_4
 exit
137:
   set %1 %Array137_1
   set %2 %Array137_2
   set %3 %Array137_3
   set %4 %Array137_4
 exit
138:
   set %1 %Array138_1
   set %2 %Array138_2
   set %3 %Array138_3
   set %4 %Array138_4
 exit
139:
   set %1 %Array139_1
   set %2 %Array139_2
   set %3 %Array139_3
   set %4 %Array139_4
 exit
140:
   set %1 %Array140_1
   set %2 %Array140_2
   set %3 %Array140_3
   set %4 %Array140_4
 exit
141:
   set %1 %Array141_1
   set %2 %Array141_2
   set %3 %Array141_3
   set %4 %Array141_4
 exit
142:
   set %1 %Array142_1
   set %2 %Array142_2
   set %3 %Array142_3
   set %4 %Array142_4
 exit
143:
   set %1 %Array143_1
   set %2 %Array143_2
   set %3 %Array143_3
   set %4 %Array143_4
 exit
144:
   set %1 %Array144_1
   set %2 %Array144_2
   set %3 %Array144_3
   set %4 %Array144_4
 exit
145:
   set %1 %Array145_1
   set %2 %Array145_2
   set %3 %Array145_3
   set %4 %Array145_4
 exit
146:
   set %1 %Array146_1
   set %2 %Array146_2
   set %3 %Array146_3
   set %4 %Array146_4
 exit
147:
   set %1 %Array147_1
   set %2 %Array147_2
   set %3 %Array147_3
   set %4 %Array147_4
 exit
148:
   set %1 %Array148_1
   set %2 %Array148_2
   set %3 %Array148_3
   set %4 %Array148_4
 exit
149:
   set %1 %Array149_1
   set %2 %Array149_2
   set %3 %Array149_3
   set %4 %Array149_4
 exit
150:
   set %1 %Array150_1
   set %2 %Array150_2
   set %3 %Array150_3
   set %4 %Array150_4
 exit


sub ArrayPush
 if %ArrayIndex <= %ArrayMaxIndex 
   {
     set %6 %5
     set %5 %4
     set %4 %3
     set %3 %2
     set %2 %ArrayIndex 
     set %ArrayIndex %ArrayIndex + 1
     gosub ArrayADD 
   }
exit


sub ArrayADD
set %2 %2 + 250
goto %2
exit
251:
   set %Array1_1 %3
   set %Array1_2 %4
   set %Array1_3 %5
   set %Array1_4 %6
 exit
252:
   set %Array2_1 %3
   set %Array2_2 %4
   set %Array2_3 %5
   set %Array2_4 %6
 exit
253:
   set %Array3_1 %3
   set %Array3_2 %4
   set %Array3_3 %5
   set %Array3_4 %6
 exit
254:
   set %Array4_1 %3
   set %Array4_2 %4
   set %Array4_3 %5
   set %Array4_4 %6
 exit
255:
   set %Array5_1 %3
   set %Array5_2 %4
   set %Array5_3 %5
   set %Array5_4 %6
 exit
256:
   set %Array6_1 %3
   set %Array6_2 %4
   set %Array6_3 %5
   set %Array6_4 %6
 exit
257:
   set %Array7_1 %3
   set %Array7_2 %4
   set %Array7_3 %5
   set %Array7_4 %6
 exit
258:
   set %Array8_1 %3
   set %Array8_2 %4
   set %Array8_3 %5
   set %Array8_4 %6
 exit
259:
   set %Array9_1 %3
   set %Array9_2 %4
   set %Array9_3 %5
   set %Array9_4 %6
 exit
260:
   set %Array10_1 %3
   set %Array10_2 %4
   set %Array10_3 %5
   set %Array10_4 %6
 exit
261:
   set %Array11_1 %3
   set %Array11_2 %4
   set %Array11_3 %5
   set %Array11_4 %6
 exit
262:
   set %Array12_1 %3
   set %Array12_2 %4
   set %Array12_3 %5
   set %Array12_4 %6
 exit
263:
   set %Array13_1 %3
   set %Array13_2 %4
   set %Array13_3 %5
   set %Array13_4 %6
 exit
264:
   set %Array14_1 %3
   set %Array14_2 %4
   set %Array14_3 %5
   set %Array14_4 %6
 exit
265:
   set %Array15_1 %3
   set %Array15_2 %4
   set %Array15_3 %5
   set %Array15_4 %6
 exit
266:
   set %Array16_1 %3
   set %Array16_2 %4
   set %Array16_3 %5
   set %Array16_4 %6
 exit
267:
   set %Array17_1 %3
   set %Array17_2 %4
   set %Array17_3 %5
   set %Array17_4 %6
 exit
268:
   set %Array18_1 %3
   set %Array18_2 %4
   set %Array18_3 %5
   set %Array18_4 %6
 exit
269:
   set %Array19_1 %3
   set %Array19_2 %4
   set %Array19_3 %5
   set %Array19_4 %6
 exit
270:
   set %Array20_1 %3
   set %Array20_2 %4
   set %Array20_3 %5
   set %Array20_4 %6
 exit
271:
   set %Array21_1 %3
   set %Array21_2 %4
   set %Array21_3 %5
   set %Array21_4 %6
 exit
272:
   set %Array22_1 %3
   set %Array22_2 %4
   set %Array22_3 %5
   set %Array22_4 %6
 exit
273:
   set %Array23_1 %3
   set %Array23_2 %4
   set %Array23_3 %5
   set %Array23_4 %6
 exit
274:
   set %Array24_1 %3
   set %Array24_2 %4
   set %Array24_3 %5
   set %Array24_4 %6
 exit
275:
   set %Array25_1 %3
   set %Array25_2 %4
   set %Array25_3 %5
   set %Array25_4 %6
 exit
276:
   set %Array26_1 %3
   set %Array26_2 %4
   set %Array26_3 %5
   set %Array26_4 %6
 exit
277:
   set %Array27_1 %3
   set %Array27_2 %4
   set %Array27_3 %5
   set %Array27_4 %6
 exit
278:
   set %Array28_1 %3
   set %Array28_2 %4
   set %Array28_3 %5
   set %Array28_4 %6
 exit
279:
   set %Array29_1 %3
   set %Array29_2 %4
   set %Array29_3 %5
   set %Array29_4 %6
 exit
280:
   set %Array30_1 %3
   set %Array30_2 %4
   set %Array30_3 %5
   set %Array30_4 %6
 exit
281:
   set %Array31_1 %3
   set %Array31_2 %4
   set %Array31_3 %5
   set %Array31_4 %6
 exit
282:
   set %Array32_1 %3
   set %Array32_2 %4
   set %Array32_3 %5
   set %Array32_4 %6
 exit
283:
   set %Array33_1 %3
   set %Array33_2 %4
   set %Array33_3 %5
   set %Array33_4 %6
 exit
284:
   set %Array34_1 %3
   set %Array34_2 %4
   set %Array34_3 %5
   set %Array34_4 %6
 exit
285:
   set %Array35_1 %3
   set %Array35_2 %4
   set %Array35_3 %5
   set %Array35_4 %6
 exit
286:
   set %Array36_1 %3
   set %Array36_2 %4
   set %Array36_3 %5
   set %Array36_4 %6
 exit
287:
   set %Array37_1 %3
   set %Array37_2 %4
   set %Array37_3 %5
   set %Array37_4 %6
 exit
288:
   set %Array38_1 %3
   set %Array38_2 %4
   set %Array38_3 %5
   set %Array38_4 %6
 exit
289:
   set %Array39_1 %3
   set %Array39_2 %4
   set %Array39_3 %5
   set %Array39_4 %6
 exit
290:
   set %Array40_1 %3
   set %Array40_2 %4
   set %Array40_3 %5
   set %Array40_4 %6
 exit
291:
   set %Array41_1 %3
   set %Array41_2 %4
   set %Array41_3 %5
   set %Array41_4 %6
 exit
292:
   set %Array42_1 %3
   set %Array42_2 %4
   set %Array42_3 %5
   set %Array42_4 %6
 exit
293:
   set %Array43_1 %3
   set %Array43_2 %4
   set %Array43_3 %5
   set %Array43_4 %6
 exit
294:
   set %Array44_1 %3
   set %Array44_2 %4
   set %Array44_3 %5
   set %Array44_4 %6
 exit
295:
   set %Array45_1 %3
   set %Array45_2 %4
   set %Array45_3 %5
   set %Array45_4 %6
 exit
296:
   set %Array46_1 %3
   set %Array46_2 %4
   set %Array46_3 %5
   set %Array46_4 %6
 exit
297:
   set %Array47_1 %3
   set %Array47_2 %4
   set %Array47_3 %5
   set %Array47_4 %6
 exit
298:
   set %Array48_1 %3
   set %Array48_2 %4
   set %Array48_3 %5
   set %Array48_4 %6
 exit
299:
   set %Array49_1 %3
   set %Array49_2 %4
   set %Array49_3 %5
   set %Array49_4 %6
 exit
300:
   set %Array50_1 %3
   set %Array50_2 %4
   set %Array50_3 %5
   set %Array50_4 %6
 exit
301:
   set %Array51_1 %3
   set %Array51_2 %4
   set %Array51_3 %5
   set %Array51_4 %6
 exit
302:
   set %Array52_1 %3
   set %Array52_2 %4
   set %Array52_3 %5
   set %Array52_4 %6
 exit
303:
   set %Array53_1 %3
   set %Array53_2 %4
   set %Array53_3 %5
   set %Array53_4 %6
 exit
304:
   set %Array54_1 %3
   set %Array54_2 %4
   set %Array54_3 %5
   set %Array54_4 %6
 exit
305:
   set %Array55_1 %3
   set %Array55_2 %4
   set %Array55_3 %5
   set %Array55_4 %6
 exit
306:
   set %Array56_1 %3
   set %Array56_2 %4
   set %Array56_3 %5
   set %Array56_4 %6
 exit
307:
   set %Array57_1 %3
   set %Array57_2 %4
   set %Array57_3 %5
   set %Array57_4 %6
 exit
308:
   set %Array58_1 %3
   set %Array58_2 %4
   set %Array58_3 %5
   set %Array58_4 %6
 exit
309:
   set %Array59_1 %3
   set %Array59_2 %4
   set %Array59_3 %5
   set %Array59_4 %6
 exit
310:
   set %Array60_1 %3
   set %Array60_2 %4
   set %Array60_3 %5
   set %Array60_4 %6
 exit
311:
   set %Array61_1 %3
   set %Array61_2 %4
   set %Array61_3 %5
   set %Array61_4 %6
 exit
312:
   set %Array62_1 %3
   set %Array62_2 %4
   set %Array62_3 %5
   set %Array62_4 %6
 exit
313:
   set %Array63_1 %3
   set %Array63_2 %4
   set %Array63_3 %5
   set %Array63_4 %6
 exit
314:
   set %Array64_1 %3
   set %Array64_2 %4
   set %Array64_3 %5
   set %Array64_4 %6
 exit
315:
   set %Array65_1 %3
   set %Array65_2 %4
   set %Array65_3 %5
   set %Array65_4 %6
 exit
316:
   set %Array66_1 %3
   set %Array66_2 %4
   set %Array66_3 %5
   set %Array66_4 %6
 exit
317:
   set %Array67_1 %3
   set %Array67_2 %4
   set %Array67_3 %5
   set %Array67_4 %6
 exit
318:
   set %Array68_1 %3
   set %Array68_2 %4
   set %Array68_3 %5
   set %Array68_4 %6
 exit
319:
   set %Array69_1 %3
   set %Array69_2 %4
   set %Array69_3 %5
   set %Array69_4 %6
 exit
320:
   set %Array70_1 %3
   set %Array70_2 %4
   set %Array70_3 %5
   set %Array70_4 %6
 exit
321:
   set %Array71_1 %3
   set %Array71_2 %4
   set %Array71_3 %5
   set %Array71_4 %6
 exit
322:
   set %Array72_1 %3
   set %Array72_2 %4
   set %Array72_3 %5
   set %Array72_4 %6
 exit
323:
   set %Array73_1 %3
   set %Array73_2 %4
   set %Array73_3 %5
   set %Array73_4 %6
 exit
324:
   set %Array74_1 %3
   set %Array74_2 %4
   set %Array74_3 %5
   set %Array74_4 %6
 exit
325:
   set %Array75_1 %3
   set %Array75_2 %4
   set %Array75_3 %5
   set %Array75_4 %6
 exit
326:
   set %Array76_1 %3
   set %Array76_2 %4
   set %Array76_3 %5
   set %Array76_4 %6
 exit
327:
   set %Array77_1 %3
   set %Array77_2 %4
   set %Array77_3 %5
   set %Array77_4 %6
 exit
328:
   set %Array78_1 %3
   set %Array78_2 %4
   set %Array78_3 %5
   set %Array78_4 %6
 exit
329:
   set %Array79_1 %3
   set %Array79_2 %4
   set %Array79_3 %5
   set %Array79_4 %6
 exit
330:
   set %Array80_1 %3
   set %Array80_2 %4
   set %Array80_3 %5
   set %Array80_4 %6
 exit
331:
   set %Array81_1 %3
   set %Array81_2 %4
   set %Array81_3 %5
   set %Array81_4 %6
 exit
332:
   set %Array82_1 %3
   set %Array82_2 %4
   set %Array82_3 %5
   set %Array82_4 %6
 exit
333:
   set %Array83_1 %3
   set %Array83_2 %4
   set %Array83_3 %5
   set %Array83_4 %6
 exit
334:
   set %Array84_1 %3
   set %Array84_2 %4
   set %Array84_3 %5
   set %Array84_4 %6
 exit
335:
   set %Array85_1 %3
   set %Array85_2 %4
   set %Array85_3 %5
   set %Array85_4 %6
 exit
336:
   set %Array86_1 %3
   set %Array86_2 %4
   set %Array86_3 %5
   set %Array86_4 %6
 exit
337:
   set %Array87_1 %3
   set %Array87_2 %4
   set %Array87_3 %5
   set %Array87_4 %6
 exit
338:
   set %Array88_1 %3
   set %Array88_2 %4
   set %Array88_3 %5
   set %Array88_4 %6
 exit
339:
   set %Array89_1 %3
   set %Array89_2 %4
   set %Array89_3 %5
   set %Array89_4 %6
 exit
340:
   set %Array90_1 %3
   set %Array90_2 %4
   set %Array90_3 %5
   set %Array90_4 %6
 exit
341:
   set %Array91_1 %3
   set %Array91_2 %4
   set %Array91_3 %5
   set %Array91_4 %6
 exit
342:
   set %Array92_1 %3
   set %Array92_2 %4
   set %Array92_3 %5
   set %Array92_4 %6
 exit
343:
   set %Array93_1 %3
   set %Array93_2 %4
   set %Array93_3 %5
   set %Array93_4 %6
 exit
344:
   set %Array94_1 %3
   set %Array94_2 %4
   set %Array94_3 %5
   set %Array94_4 %6
 exit
345:
   set %Array95_1 %3
   set %Array95_2 %4
   set %Array95_3 %5
   set %Array95_4 %6
 exit
346:
   set %Array96_1 %3
   set %Array96_2 %4
   set %Array96_3 %5
   set %Array96_4 %6
 exit
347:
   set %Array97_1 %3
   set %Array97_2 %4
   set %Array97_3 %5
   set %Array97_4 %6
 exit
348:
   set %Array98_1 %3
   set %Array98_2 %4
   set %Array98_3 %5
   set %Array98_4 %6
 exit
349:
   set %Array99_1 %3
   set %Array99_2 %4
   set %Array99_3 %5
   set %Array99_4 %6
 exit
350:
   set %Array100_1 %3
   set %Array100_2 %4
   set %Array100_3 %5
   set %Array100_4 %6
 exit
351:
   set %Array101_1 %3
   set %Array101_2 %4
   set %Array101_3 %5
   set %Array101_4 %6
 exit
352:
   set %Array102_1 %3
   set %Array102_2 %4
   set %Array102_3 %5
   set %Array102_4 %6
 exit
353:
   set %Array103_1 %3
   set %Array103_2 %4
   set %Array103_3 %5
   set %Array103_4 %6
 exit
354:
   set %Array104_1 %3
   set %Array104_2 %4
   set %Array104_3 %5
   set %Array104_4 %6
 exit
355:
   set %Array105_1 %3
   set %Array105_2 %4
   set %Array105_3 %5
   set %Array105_4 %6
 exit
356:
   set %Array106_1 %3
   set %Array106_2 %4
   set %Array106_3 %5
   set %Array106_4 %6
 exit
357:
   set %Array107_1 %3
   set %Array107_2 %4
   set %Array107_3 %5
   set %Array107_4 %6
 exit
358:
   set %Array108_1 %3
   set %Array108_2 %4
   set %Array108_3 %5
   set %Array108_4 %6
 exit
359:
   set %Array109_1 %3
   set %Array109_2 %4
   set %Array109_3 %5
   set %Array109_4 %6
 exit
360:
   set %Array110_1 %3
   set %Array110_2 %4
   set %Array110_3 %5
   set %Array110_4 %6
 exit
361:
   set %Array111_1 %3
   set %Array111_2 %4
   set %Array111_3 %5
   set %Array111_4 %6
 exit
362:
   set %Array112_1 %3
   set %Array112_2 %4
   set %Array112_3 %5
   set %Array112_4 %6
 exit
363:
   set %Array113_1 %3
   set %Array113_2 %4
   set %Array113_3 %5
   set %Array113_4 %6
 exit
364:
   set %Array114_1 %3
   set %Array114_2 %4
   set %Array114_3 %5
   set %Array114_4 %6
 exit
365:
   set %Array115_1 %3
   set %Array115_2 %4
   set %Array115_3 %5
   set %Array115_4 %6
 exit
366:
   set %Array116_1 %3
   set %Array116_2 %4
   set %Array116_3 %5
   set %Array116_4 %6
 exit
367:
   set %Array117_1 %3
   set %Array117_2 %4
   set %Array117_3 %5
   set %Array117_4 %6
 exit
368:
   set %Array118_1 %3
   set %Array118_2 %4
   set %Array118_3 %5
   set %Array118_4 %6
 exit
369:
   set %Array119_1 %3
   set %Array119_2 %4
   set %Array119_3 %5
   set %Array119_4 %6
 exit
370:
   set %Array120_1 %3
   set %Array120_2 %4
   set %Array120_3 %5
   set %Array120_4 %6
 exit
371:
   set %Array121_1 %3
   set %Array121_2 %4
   set %Array121_3 %5
   set %Array121_4 %6
 exit
372:
   set %Array122_1 %3
   set %Array122_2 %4
   set %Array122_3 %5
   set %Array122_4 %6
 exit
373:
   set %Array123_1 %3
   set %Array123_2 %4
   set %Array123_3 %5
   set %Array123_4 %6
 exit
374:
   set %Array124_1 %3
   set %Array124_2 %4
   set %Array124_3 %5
   set %Array124_4 %6
 exit
375:
   set %Array125_1 %3
   set %Array125_2 %4
   set %Array125_3 %5
   set %Array125_4 %6
 exit
376:
   set %Array126_1 %3
   set %Array126_2 %4
   set %Array126_3 %5
   set %Array126_4 %6
 exit
377:
   set %Array127_1 %3
   set %Array127_2 %4
   set %Array127_3 %5
   set %Array127_4 %6
 exit
378:
   set %Array128_1 %3
   set %Array128_2 %4
   set %Array128_3 %5
   set %Array128_4 %6
 exit
379:
   set %Array129_1 %3
   set %Array129_2 %4
   set %Array129_3 %5
   set %Array129_4 %6
 exit
380:
   set %Array130_1 %3
   set %Array130_2 %4
   set %Array130_3 %5
   set %Array130_4 %6
 exit
381:
   set %Array131_1 %3
   set %Array131_2 %4
   set %Array131_3 %5
   set %Array131_4 %6
 exit
382:
   set %Array132_1 %3
   set %Array132_2 %4
   set %Array132_3 %5
   set %Array132_4 %6
 exit
383:
   set %Array133_1 %3
   set %Array133_2 %4
   set %Array133_3 %5
   set %Array133_4 %6
 exit
384:
   set %Array134_1 %3
   set %Array134_2 %4
   set %Array134_3 %5
   set %Array134_4 %6
 exit
385:
   set %Array135_1 %3
   set %Array135_2 %4
   set %Array135_3 %5
   set %Array135_4 %6
 exit
386:
   set %Array136_1 %3
   set %Array136_2 %4
   set %Array136_3 %5
   set %Array136_4 %6
 exit
387:
   set %Array137_1 %3
   set %Array137_2 %4
   set %Array137_3 %5
   set %Array137_4 %6
 exit
388:
   set %Array138_1 %3
   set %Array138_2 %4
   set %Array138_3 %5
   set %Array138_4 %6
 exit
389:
   set %Array139_1 %3
   set %Array139_2 %4
   set %Array139_3 %5
   set %Array139_4 %6
 exit
390:
   set %Array140_1 %3
   set %Array140_2 %4
   set %Array140_3 %5
   set %Array140_4 %6
 exit
391:
   set %Array141_1 %3
   set %Array141_2 %4
   set %Array141_3 %5
   set %Array141_4 %6
 exit
392:
   set %Array142_1 %3
   set %Array142_2 %4
   set %Array142_3 %5
   set %Array142_4 %6
 exit
393:
   set %Array143_1 %3
   set %Array143_2 %4
   set %Array143_3 %5
   set %Array143_4 %6
 exit
394:
   set %Array144_1 %3
   set %Array144_2 %4
   set %Array144_3 %5
   set %Array144_4 %6
 exit
395:
   set %Array145_1 %3
   set %Array145_2 %4
   set %Array145_3 %5
   set %Array145_4 %6
 exit
396:
   set %Array146_1 %3
   set %Array146_2 %4
   set %Array146_3 %5
   set %Array146_4 %6
 exit
397:
   set %Array147_1 %3
   set %Array147_2 %4
   set %Array147_3 %5
   set %Array147_4 %6
 exit
398:
   set %Array148_1 %3
   set %Array148_2 %4
   set %Array148_3 %5
   set %Array148_4 %6
 exit
399:
   set %Array149_1 %3
   set %Array149_2 %4
   set %Array149_3 %5
   set %Array149_4 %6
 exit
400:
   set %Array150_1 %3
   set %Array150_2 %4
   set %Array150_3 %5
   set %Array150_4 %6
 exit


sub ArrayRESET
set %ArrayIndex 1
set %ArrayMaxIndex 150
 set %Array1_1  N/A
 set %Array1_2  N/A
 set %Array1_3  N/A
 set %Array1_4  N/A

 set %Array2_1  N/A
 set %Array2_2  N/A
 set %Array2_3  N/A
 set %Array2_4  N/A

 set %Array3_1  N/A
 set %Array3_2  N/A
 set %Array3_3  N/A
 set %Array3_4  N/A

 set %Array4_1  N/A
 set %Array4_2  N/A
 set %Array4_3  N/A
 set %Array4_4  N/A

 set %Array5_1  N/A
 set %Array5_2  N/A
 set %Array5_3  N/A
 set %Array5_4  N/A

 set %Array6_1  N/A
 set %Array6_2  N/A
 set %Array6_3  N/A
 set %Array6_4  N/A

 set %Array7_1  N/A
 set %Array7_2  N/A
 set %Array7_3  N/A
 set %Array7_4  N/A

 set %Array8_1  N/A
 set %Array8_2  N/A
 set %Array8_3  N/A
 set %Array8_4  N/A

 set %Array9_1  N/A
 set %Array9_2  N/A
 set %Array9_3  N/A
 set %Array9_4  N/A

 set %Array10_1  N/A
 set %Array10_2  N/A
 set %Array10_3  N/A
 set %Array10_4  N/A

 set %Array11_1  N/A
 set %Array11_2  N/A
 set %Array11_3  N/A
 set %Array11_4  N/A

 set %Array12_1  N/A
 set %Array12_2  N/A
 set %Array12_3  N/A
 set %Array12_4  N/A

 set %Array13_1  N/A
 set %Array13_2  N/A
 set %Array13_3  N/A
 set %Array13_4  N/A

 set %Array14_1  N/A
 set %Array14_2  N/A
 set %Array14_3  N/A
 set %Array14_4  N/A

 set %Array15_1  N/A
 set %Array15_2  N/A
 set %Array15_3  N/A
 set %Array15_4  N/A

 set %Array16_1  N/A
 set %Array16_2  N/A
 set %Array16_3  N/A
 set %Array16_4  N/A

 set %Array17_1  N/A
 set %Array17_2  N/A
 set %Array17_3  N/A
 set %Array17_4  N/A

 set %Array18_1  N/A
 set %Array18_2  N/A
 set %Array18_3  N/A
 set %Array18_4  N/A

 set %Array19_1  N/A
 set %Array19_2  N/A
 set %Array19_3  N/A
 set %Array19_4  N/A

 set %Array20_1  N/A
 set %Array20_2  N/A
 set %Array20_3  N/A
 set %Array20_4  N/A

 set %Array21_1  N/A
 set %Array21_2  N/A
 set %Array21_3  N/A
 set %Array21_4  N/A

 set %Array22_1  N/A
 set %Array22_2  N/A
 set %Array22_3  N/A
 set %Array22_4  N/A

 set %Array23_1  N/A
 set %Array23_2  N/A
 set %Array23_3  N/A
 set %Array23_4  N/A

 set %Array24_1  N/A
 set %Array24_2  N/A
 set %Array24_3  N/A
 set %Array24_4  N/A

 set %Array25_1  N/A
 set %Array25_2  N/A
 set %Array25_3  N/A
 set %Array25_4  N/A

 set %Array26_1  N/A
 set %Array26_2  N/A
 set %Array26_3  N/A
 set %Array26_4  N/A

 set %Array27_1  N/A
 set %Array27_2  N/A
 set %Array27_3  N/A
 set %Array27_4  N/A

 set %Array28_1  N/A
 set %Array28_2  N/A
 set %Array28_3  N/A
 set %Array28_4  N/A

 set %Array29_1  N/A
 set %Array29_2  N/A
 set %Array29_3  N/A
 set %Array29_4  N/A

 set %Array30_1  N/A
 set %Array30_2  N/A
 set %Array30_3  N/A
 set %Array30_4  N/A

 set %Array31_1  N/A
 set %Array31_2  N/A
 set %Array31_3  N/A
 set %Array31_4  N/A

 set %Array32_1  N/A
 set %Array32_2  N/A
 set %Array32_3  N/A
 set %Array32_4  N/A

 set %Array33_1  N/A
 set %Array33_2  N/A
 set %Array33_3  N/A
 set %Array33_4  N/A

 set %Array34_1  N/A
 set %Array34_2  N/A
 set %Array34_3  N/A
 set %Array34_4  N/A

 set %Array35_1  N/A
 set %Array35_2  N/A
 set %Array35_3  N/A
 set %Array35_4  N/A

 set %Array36_1  N/A
 set %Array36_2  N/A
 set %Array36_3  N/A
 set %Array36_4  N/A

 set %Array37_1  N/A
 set %Array37_2  N/A
 set %Array37_3  N/A
 set %Array37_4  N/A

 set %Array38_1  N/A
 set %Array38_2  N/A
 set %Array38_3  N/A
 set %Array38_4  N/A

 set %Array39_1  N/A
 set %Array39_2  N/A
 set %Array39_3  N/A
 set %Array39_4  N/A

 set %Array40_1  N/A
 set %Array40_2  N/A
 set %Array40_3  N/A
 set %Array40_4  N/A

 set %Array41_1  N/A
 set %Array41_2  N/A
 set %Array41_3  N/A
 set %Array41_4  N/A

 set %Array42_1  N/A
 set %Array42_2  N/A
 set %Array42_3  N/A
 set %Array42_4  N/A

 set %Array43_1  N/A
 set %Array43_2  N/A
 set %Array43_3  N/A
 set %Array43_4  N/A

 set %Array44_1  N/A
 set %Array44_2  N/A
 set %Array44_3  N/A
 set %Array44_4  N/A

 set %Array45_1  N/A
 set %Array45_2  N/A
 set %Array45_3  N/A
 set %Array45_4  N/A

 set %Array46_1  N/A
 set %Array46_2  N/A
 set %Array46_3  N/A
 set %Array46_4  N/A

 set %Array47_1  N/A
 set %Array47_2  N/A
 set %Array47_3  N/A
 set %Array47_4  N/A

 set %Array48_1  N/A
 set %Array48_2  N/A
 set %Array48_3  N/A
 set %Array48_4  N/A

 set %Array49_1  N/A
 set %Array49_2  N/A
 set %Array49_3  N/A
 set %Array49_4  N/A

 set %Array50_1  N/A
 set %Array50_2  N/A
 set %Array50_3  N/A
 set %Array50_4  N/A

 set %Array51_1  N/A
 set %Array51_2  N/A
 set %Array51_3  N/A
 set %Array51_4  N/A

 set %Array52_1  N/A
 set %Array52_2  N/A
 set %Array52_3  N/A
 set %Array52_4  N/A

 set %Array53_1  N/A
 set %Array53_2  N/A
 set %Array53_3  N/A
 set %Array53_4  N/A

 set %Array54_1  N/A
 set %Array54_2  N/A
 set %Array54_3  N/A
 set %Array54_4  N/A

 set %Array55_1  N/A
 set %Array55_2  N/A
 set %Array55_3  N/A
 set %Array55_4  N/A

 set %Array56_1  N/A
 set %Array56_2  N/A
 set %Array56_3  N/A
 set %Array56_4  N/A

 set %Array57_1  N/A
 set %Array57_2  N/A
 set %Array57_3  N/A
 set %Array57_4  N/A

 set %Array58_1  N/A
 set %Array58_2  N/A
 set %Array58_3  N/A
 set %Array58_4  N/A

 set %Array59_1  N/A
 set %Array59_2  N/A
 set %Array59_3  N/A
 set %Array59_4  N/A

 set %Array60_1  N/A
 set %Array60_2  N/A
 set %Array60_3  N/A
 set %Array60_4  N/A

 set %Array61_1  N/A
 set %Array61_2  N/A
 set %Array61_3  N/A
 set %Array61_4  N/A

 set %Array62_1  N/A
 set %Array62_2  N/A
 set %Array62_3  N/A
 set %Array62_4  N/A

 set %Array63_1  N/A
 set %Array63_2  N/A
 set %Array63_3  N/A
 set %Array63_4  N/A

 set %Array64_1  N/A
 set %Array64_2  N/A
 set %Array64_3  N/A
 set %Array64_4  N/A

 set %Array65_1  N/A
 set %Array65_2  N/A
 set %Array65_3  N/A
 set %Array65_4  N/A

 set %Array66_1  N/A
 set %Array66_2  N/A
 set %Array66_3  N/A
 set %Array66_4  N/A

 set %Array67_1  N/A
 set %Array67_2  N/A
 set %Array67_3  N/A
 set %Array67_4  N/A

 set %Array68_1  N/A
 set %Array68_2  N/A
 set %Array68_3  N/A
 set %Array68_4  N/A

 set %Array69_1  N/A
 set %Array69_2  N/A
 set %Array69_3  N/A
 set %Array69_4  N/A

 set %Array70_1  N/A
 set %Array70_2  N/A
 set %Array70_3  N/A
 set %Array70_4  N/A

 set %Array71_1  N/A
 set %Array71_2  N/A
 set %Array71_3  N/A
 set %Array71_4  N/A

 set %Array72_1  N/A
 set %Array72_2  N/A
 set %Array72_3  N/A
 set %Array72_4  N/A

 set %Array73_1  N/A
 set %Array73_2  N/A
 set %Array73_3  N/A
 set %Array73_4  N/A

 set %Array74_1  N/A
 set %Array74_2  N/A
 set %Array74_3  N/A
 set %Array74_4  N/A

 set %Array75_1  N/A
 set %Array75_2  N/A
 set %Array75_3  N/A
 set %Array75_4  N/A

 set %Array76_1  N/A
 set %Array76_2  N/A
 set %Array76_3  N/A
 set %Array76_4  N/A

 set %Array77_1  N/A
 set %Array77_2  N/A
 set %Array77_3  N/A
 set %Array77_4  N/A

 set %Array78_1  N/A
 set %Array78_2  N/A
 set %Array78_3  N/A
 set %Array78_4  N/A

 set %Array79_1  N/A
 set %Array79_2  N/A
 set %Array79_3  N/A
 set %Array79_4  N/A

 set %Array80_1  N/A
 set %Array80_2  N/A
 set %Array80_3  N/A
 set %Array80_4  N/A

 set %Array81_1  N/A
 set %Array81_2  N/A
 set %Array81_3  N/A
 set %Array81_4  N/A

 set %Array82_1  N/A
 set %Array82_2  N/A
 set %Array82_3  N/A
 set %Array82_4  N/A

 set %Array83_1  N/A
 set %Array83_2  N/A
 set %Array83_3  N/A
 set %Array83_4  N/A

 set %Array84_1  N/A
 set %Array84_2  N/A
 set %Array84_3  N/A
 set %Array84_4  N/A

 set %Array85_1  N/A
 set %Array85_2  N/A
 set %Array85_3  N/A
 set %Array85_4  N/A

 set %Array86_1  N/A
 set %Array86_2  N/A
 set %Array86_3  N/A
 set %Array86_4  N/A

 set %Array87_1  N/A
 set %Array87_2  N/A
 set %Array87_3  N/A
 set %Array87_4  N/A

 set %Array88_1  N/A
 set %Array88_2  N/A
 set %Array88_3  N/A
 set %Array88_4  N/A

 set %Array89_1  N/A
 set %Array89_2  N/A
 set %Array89_3  N/A
 set %Array89_4  N/A

 set %Array90_1  N/A
 set %Array90_2  N/A
 set %Array90_3  N/A
 set %Array90_4  N/A

 set %Array91_1  N/A
 set %Array91_2  N/A
 set %Array91_3  N/A
 set %Array91_4  N/A

 set %Array92_1  N/A
 set %Array92_2  N/A
 set %Array92_3  N/A
 set %Array92_4  N/A

 set %Array93_1  N/A
 set %Array93_2  N/A
 set %Array93_3  N/A
 set %Array93_4  N/A

 set %Array94_1  N/A
 set %Array94_2  N/A
 set %Array94_3  N/A
 set %Array94_4  N/A

 set %Array95_1  N/A
 set %Array95_2  N/A
 set %Array95_3  N/A
 set %Array95_4  N/A

 set %Array96_1  N/A
 set %Array96_2  N/A
 set %Array96_3  N/A
 set %Array96_4  N/A

 set %Array97_1  N/A
 set %Array97_2  N/A
 set %Array97_3  N/A
 set %Array97_4  N/A

 set %Array98_1  N/A
 set %Array98_2  N/A
 set %Array98_3  N/A
 set %Array98_4  N/A

 set %Array99_1  N/A
 set %Array99_2  N/A
 set %Array99_3  N/A
 set %Array99_4  N/A

 set %Array100_1  N/A
 set %Array100_2  N/A
 set %Array100_3  N/A
 set %Array100_4  N/A

 set %Array101_1  N/A
 set %Array101_2  N/A
 set %Array101_3  N/A
 set %Array101_4  N/A

 set %Array102_1  N/A
 set %Array102_2  N/A
 set %Array102_3  N/A
 set %Array102_4  N/A

 set %Array103_1  N/A
 set %Array103_2  N/A
 set %Array103_3  N/A
 set %Array103_4  N/A

 set %Array104_1  N/A
 set %Array104_2  N/A
 set %Array104_3  N/A
 set %Array104_4  N/A

 set %Array105_1  N/A
 set %Array105_2  N/A
 set %Array105_3  N/A
 set %Array105_4  N/A

 set %Array106_1  N/A
 set %Array106_2  N/A
 set %Array106_3  N/A
 set %Array106_4  N/A

 set %Array107_1  N/A
 set %Array107_2  N/A
 set %Array107_3  N/A
 set %Array107_4  N/A

 set %Array108_1  N/A
 set %Array108_2  N/A
 set %Array108_3  N/A
 set %Array108_4  N/A

 set %Array109_1  N/A
 set %Array109_2  N/A
 set %Array109_3  N/A
 set %Array109_4  N/A

 set %Array110_1  N/A
 set %Array110_2  N/A
 set %Array110_3  N/A
 set %Array110_4  N/A

 set %Array111_1  N/A
 set %Array111_2  N/A
 set %Array111_3  N/A
 set %Array111_4  N/A

 set %Array112_1  N/A
 set %Array112_2  N/A
 set %Array112_3  N/A
 set %Array112_4  N/A

 set %Array113_1  N/A
 set %Array113_2  N/A
 set %Array113_3  N/A
 set %Array113_4  N/A

 set %Array114_1  N/A
 set %Array114_2  N/A
 set %Array114_3  N/A
 set %Array114_4  N/A

 set %Array115_1  N/A
 set %Array115_2  N/A
 set %Array115_3  N/A
 set %Array115_4  N/A

 set %Array116_1  N/A
 set %Array116_2  N/A
 set %Array116_3  N/A
 set %Array116_4  N/A

 set %Array117_1  N/A
 set %Array117_2  N/A
 set %Array117_3  N/A
 set %Array117_4  N/A

 set %Array118_1  N/A
 set %Array118_2  N/A
 set %Array118_3  N/A
 set %Array118_4  N/A

 set %Array119_1  N/A
 set %Array119_2  N/A
 set %Array119_3  N/A
 set %Array119_4  N/A

 set %Array120_1  N/A
 set %Array120_2  N/A
 set %Array120_3  N/A
 set %Array120_4  N/A

 set %Array121_1  N/A
 set %Array121_2  N/A
 set %Array121_3  N/A
 set %Array121_4  N/A

 set %Array122_1  N/A
 set %Array122_2  N/A
 set %Array122_3  N/A
 set %Array122_4  N/A

 set %Array123_1  N/A
 set %Array123_2  N/A
 set %Array123_3  N/A
 set %Array123_4  N/A

 set %Array124_1  N/A
 set %Array124_2  N/A
 set %Array124_3  N/A
 set %Array124_4  N/A

 set %Array125_1  N/A
 set %Array125_2  N/A
 set %Array125_3  N/A
 set %Array125_4  N/A

 set %Array126_1  N/A
 set %Array126_2  N/A
 set %Array126_3  N/A
 set %Array126_4  N/A

 set %Array127_1  N/A
 set %Array127_2  N/A
 set %Array127_3  N/A
 set %Array127_4  N/A

 set %Array128_1  N/A
 set %Array128_2  N/A
 set %Array128_3  N/A
 set %Array128_4  N/A

 set %Array129_1  N/A
 set %Array129_2  N/A
 set %Array129_3  N/A
 set %Array129_4  N/A

 set %Array130_1  N/A
 set %Array130_2  N/A
 set %Array130_3  N/A
 set %Array130_4  N/A

 set %Array131_1  N/A
 set %Array131_2  N/A
 set %Array131_3  N/A
 set %Array131_4  N/A

 set %Array132_1  N/A
 set %Array132_2  N/A
 set %Array132_3  N/A
 set %Array132_4  N/A

 set %Array133_1  N/A
 set %Array133_2  N/A
 set %Array133_3  N/A
 set %Array133_4  N/A

 set %Array134_1  N/A
 set %Array134_2  N/A
 set %Array134_3  N/A
 set %Array134_4  N/A

 set %Array135_1  N/A
 set %Array135_2  N/A
 set %Array135_3  N/A
 set %Array135_4  N/A

 set %Array136_1  N/A
 set %Array136_2  N/A
 set %Array136_3  N/A
 set %Array136_4  N/A

 set %Array137_1  N/A
 set %Array137_2  N/A
 set %Array137_3  N/A
 set %Array137_4  N/A

 set %Array138_1  N/A
 set %Array138_2  N/A
 set %Array138_3  N/A
 set %Array138_4  N/A

 set %Array139_1  N/A
 set %Array139_2  N/A
 set %Array139_3  N/A
 set %Array139_4  N/A

 set %Array140_1  N/A
 set %Array140_2  N/A
 set %Array140_3  N/A
 set %Array140_4  N/A

 set %Array141_1  N/A
 set %Array141_2  N/A
 set %Array141_3  N/A
 set %Array141_4  N/A

 set %Array142_1  N/A
 set %Array142_2  N/A
 set %Array142_3  N/A
 set %Array142_4  N/A

 set %Array143_1  N/A
 set %Array143_2  N/A
 set %Array143_3  N/A
 set %Array143_4  N/A

 set %Array144_1  N/A
 set %Array144_2  N/A
 set %Array144_3  N/A
 set %Array144_4  N/A

 set %Array145_1  N/A
 set %Array145_2  N/A
 set %Array145_3  N/A
 set %Array145_4  N/A

 set %Array146_1  N/A
 set %Array146_2  N/A
 set %Array146_3  N/A
 set %Array146_4  N/A

 set %Array147_1  N/A
 set %Array147_2  N/A
 set %Array147_3  N/A
 set %Array147_4  N/A

 set %Array148_1  N/A
 set %Array148_2  N/A
 set %Array148_3  N/A
 set %Array148_4  N/A

 set %Array149_1  N/A
 set %Array149_2  N/A
 set %Array149_3  N/A
 set %Array149_4  N/A

 set %Array150_1  N/A
 set %Array150_2  N/A
 set %Array150_3  N/A
 set %Array150_4  N/A

exit


sub ArrayINFO
    set %1 %ArrayIndex - 1
    set %2 %ArrayMaxIndex 
exit

sub ArrayDEL
set %3 N/A
set %4 N/A
set %5 N/A
set %6 N/A
 gosub ArrayADD
 exit


