Is this going to become a pissing-contest?
[EMAIL PROTECTED] schrieb:
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/
___________________________________________________________
Telefonate ohne weitere Kosten vom PC zum PC: http://messenger.yahoo.de
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
