And the pretty version: Brian
* define some field locations. Normally these would be placed in * a separate include file and shared. EQU INVENTORY.CODE To 1 EQU INVENTORY.DESCRIPTION To 2 EQU INVENTORY.TYPE To 3 * only primitive programmers still use upper case! Crt "Main" Ct = 0 Open "INVENTORY.T" To INVENTORY Else STOP End Sent = "SSELECT INVENTORY.T BY ITEM_CODE" Execute SENT EOF = @False Loop ReadNext ItemCode Else EOF = @True End Until EOF Do Read InventoryRec From INVENTORY, ItemCode Then GoSub PrintLine End Repeat Crt Printer Close ;* terminate nicely STOP PrintLine: Ct += 1 If Not(Mod(Ct,10)) Then Crt ".": Printer On Print ("ITEM CODE" "L#16"):InventoryRec<INVENTORY.CODE> Print ("DESCRIPTION" "L#16"):InventoryRec<INVENTORY.DESCRIPTION> Print ("TYPE" "L#16"):InventoryRec<INVENTORY.TYPE> Printer Off Return ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/