*     ORDERS.CMD
*
STORE T TO odmore
DO WHILE odmore
ERASE
@  5,35 SAY 'ORDERS MENU '
@  6,35 SAY '==========='
@  8,30 SAY '1. * TO BE ORDERED'
@  9,30 SAY '2. * CREATE/PRINT PO'
@ 10,30 SAY '3. * SPECIAL ORDERS'
@ 11,30 SAY '4. * PROJECTED ORDERS'
@ 12,30 SAY '5. * FRONTLIST ORDERS '
@ 13,30 SAY '6.   EXIT'
SET CONSOLE OFF
WAIT TO odchoice
SET CONSOLE ON
DO CASE
   CASE odchoice = '1'
     DO ORDTBO
   CASE odchoice = '2'
     DO ORDCPPO
   CASE odchoice ='3'
     DO ORDSPORD
   CASE odchoice = '4'
     DO ORDPROJO
   CASE odchoice = '5'
     DO ORDFRORD
   CASE odchoice = '6'
     STORE F TO odmore
ENDCASE
ENDDO
RELEASE ALL LIKE od*
.   GLOBAL CHANGES'
@ 10,28 SAY '3.   MONTHLY UPDATE'
@ 11,28 SAY '4.   YEARLY UPDATE'
@ 12,28 SAY '5.   INDEX DATABASES'
@ 13,28 SAY '6.   EXIT'
SET CONSOLE OFF
WAIT TO utchoice
SET CONSOLE ON
DO CASE
   CASE utchoice = '1'
     DO UTREPORT
   CASE utchoice = '2'
     DO UTGLOBAL
   CASE utchoice = '3'
     DO UTMONUPD
   CASE u