*     INVBACK.CMD
*
SKIP - 1
DO INVENT.GET


    '
READ
IF vvendor <> '          '
    USE VENDOR INDEX XVENDOR
    APPEND BLANK
      REPLACE vendor WITH vvendor
      REPLACE publish WITH vvpublish
      REPLACE street WITH vvstreet
      REPLACE town WITH vvtown
      REPLACE state WITH vvstate
      REPLACE zip WITH vvzip
    ELSE
      STORE F TO vvmore
ENDIF
ENDDO vvmore
RELEASE ALL LIKE vv*

'
      DO VENDUP
    CASE choice = 'D'
      DO VENDISP
    CASE chioce = 'F'