Minimizing code....

[TerdRatchett]

My project uses non-standard hardware (a microwire port expander) so I could not use the LCDout function. I did manage to get my LCD working however with the following code.

gosub LCD_HOME 'clear the LCD and set the cursor to 00

For y=0 To 64
Gosub modescreen1b 'software version

OUT_BITS = ascii

gosub ioxwriteb
Pause 1
gosub LCD_DATA_EN 'send the "Software Version" message

Next y

initscreenb:
Lookup y,["Software Ver: DL1.00A "],ascii
Return


It works well, but I don't want to copy this block for ever screen I need to print. It would be a huge waste of code. I can't figure out how to minimize the code to just pass the menu to lookup to a sub.

All comments greatly appreciated!

Thanks,
TR