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>
Bookmarks