Cleaning up code

[sayzer]

Try this one, too.
This one uses 6 times less code and does the same thing.
Also, you can use the same variable names as they only refer to the array elements.

<font color="#000000">StagesX <font color="#000080"><b>VAR WORD</b></font>[<font color="#FF0000">32</font>]
StagesY <font color="#000080"><b>VAR BYTE</b></font>[<font color="#FF0000">16</font>]

Stage1tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">0</font>]  <font color="#000080"><i>'EEprom location from 0 to 63.
</i></font>Stage1tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">1</font>]
Stage1ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">2</font>]
Stage1ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">3</font>]
Stage2tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">4</font>]
Stage2tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">5</font>]
Stage2ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">6</font>]
Stage2ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">7</font>]
Stage3tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">8</font>]
Stage3tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">9</font>]
Stage3ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">10</font>]
Stage3ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">11</font>]
Stage4tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">12</font>]
Stage4tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">13</font>]
Stage4ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">14</font>]
Stage4ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">15</font>]
Stage5tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">16</font>]
Stage5tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">17</font>]
Stage5ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">18</font>]
Stage5ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">19</font>]
Stage6tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">20</font>]
Stage6tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">21</font>]
Stage6ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">22</font>]
Stage6ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">23</font>]
Stage7tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">24</font>]
Stage7tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">25</font>]
Stage7ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">26</font>]
Stage7ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">27</font>]
Stage8tOn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">28</font>]
Stage8tOFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">29</font>]
Stage8ROn  <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">30</font>]
Stage8ROFF <font color="#000080"><b>VAR </b></font>StagesX[<font color="#FF0000">31</font>]

Stage1Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">0</font>]  <font color="#000080"><i>'EEprom location from 64 to 79.
</i></font>Stage2Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">1</font>]
Stage3Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">2</font>]
Stage4Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">3</font>]
Stage5Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">4</font>]
Stage6Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">5</font>]
Stage7Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">6</font>]
Stage8Trig  <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">7</font>]
StageReset1 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">8</font>]
StageReset2 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">9</font>]
StageReset3 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">10</font>]
StageReset4 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">11</font>]
StageReset5 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">12</font>]
StageReset6 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">13</font>]
StageReset7 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">14</font>]
StageReset8 <font color="#000080"><b>VAR </b></font>StagesY[<font color="#FF0000">15</font>] 
 
Index  <font color="#000080"><b>VAR BYTE
</b></font>Index2 <font color="#000080"><b>VAR BYTE
</b></font>Temp   <font color="#000080"><b>VAR WORD
 
 
 
</b></font>Read_Data:
    Index2 = <font color="#FF0000">0
    </font><font color="#000080"><b>FOR </b></font>Index = <font color="#FF0000">0 </font><font color="#000080"><b>TO </b></font><font color="#FF0000">62 </font><font color="#000080"><b>STEP </b></font><font color="#FF0000">2
        </font><font color="#000080"><b>READ </b></font>Index,Temp.LowByte       <font color="#000080"><i>' Word sized data. Index is the eeprom addr.
        </i><b>READ </b></font>(Index+<font color="#FF0000">1</font>),Temp.HighByte
        StagesX[Index2] = Temp        <font color="#000080"><i>'Index2 is array adr.
        
        </i><b>IF </b></font>Index2 &lt; <font color="#FF0000">16 </font><font color="#000080"><b>THEN READ </b></font>(Index2+<font color="#FF0000">64</font>),StagesY[Index2]  <font color="#000080"><i>' Byte sized data.
        </i></font>Index2 = Index2 + <font color="#FF0000">1     </font><font color="#000080"><i>' Max. 31.
    </i><b>NEXT </b></font>Index
 
 <font color="#000080"><b>RETURN
 
 
 
 
 
 
 
</b></font>