*     VENDOR.GET
*
SET COLON OFF
? CHR(27)+"U"+'"'
@  4,17 GET vendor
@  4,45 GET publish
@  9,17 GET street
@ 10,17 GET town
@ 11,17 GET state
@ 12,17 GET zip
@ 15,25 GET acctnum
? CHR(27)+"U"+" "
SET COLON ON
 VENDOR
   CASE choice = '3'
      DO INVENT
   CASE choice = '4'
      * DO ORDERS
      @ 5,36 SAY 'ORDERS'
   CASE choice = '5'
      * DO RECEIVE
      @ 5,34 SAY 'RECEIVING'
   CASE choice = '6'
      * DO RETURN
      @ 5,35 SAY 'RETURNS'
   CASE choice = '7'
      *