*     RETURN.CMD
*
STORE T TO rtmore
DO WHILE rtmore
ERASE
@  5,35 SAY 'RETURNS MENU'
@  6,35 SAY '============'
@  8,29 SAY '1. * TO BE RETURNED'
@  9,29 SAY '2. * CREATE INVOICE/ UPDATE'
@ 10,29 SAY '3.   EXIT'
SET CONSOLE OFF
WAIT TO rtchoice
SET CONSOLE ON
DO CASE
   CASE rtchoice = '1'
     DO RETTBO
   CASE rtchoice = '2'
     DO RETCRINV
   CASE rtchoice = '3'
     STORE F TO rtmore
ENDCASE
ENDDO  rtmore
RELEASE ALL LIKE rt*


ASE utchoice = '3'
     DO UTMONUPD
   CASE u