It is a nice behavior that people are sharing their work here just because they had some help.

J_norrie,

Here is a code for your TableX subroutine that will reduce your code size to half of it.

Code:
<font color="#000000">TableX:
    <font color="#000080"><b>GOSUB </b></font>pulse
    
    <font color="#000080"><b>FOR </b></font>y = <font color="#FF0000"><b>4 </b></font><font color="#000080"><b>TO </b></font><font color="#FF0000"><b>0 </b></font><font color="#000080"><b>STEP</b></font>-<font color="#FF0000"><b>1 </b></font><font color="#000080"><i>'gfedcba display segments
        </i><b>LOOKUP </b></font>DAOut <font color="#000080"><b>DIG </b></font>y,[<font color="#FF0000"><b>%0111111</b></font>,<font color="#FF0000"><b>%0000110</b></font>,<font color="#FF0000"><b>%1011011</b></font>,<font color="#FF0000"><b>%1001111</b></font>,<font color="#FF0000"><b>%1100110</b></font>,<font color="#FF0000"><b>%1101101</b></font>,<font color="#FF0000"><b>%1111101</b></font>,<font color="#FF0000"><b>%0000111</b></font>,<font color="#FF0000"><b>%1111111</b></font>,<font color="#FF0000"><b>%1101111</b></font>],DigOut 
        <font color="#000080"><b>GOSUB </b></font>display
    <font color="#000080"><b>NEXT
    
    RETURN


END
</b></font>