* PROFILUP.CMD
* Purpose: A preliminary version of PROFILEUP, to update the memory
*    variables stored in PROFILE.MEM.
*
SET DEFAULT TO B
SET TALK OFF
* Loop
 STORE T to Continue
 DO While Continue
 ERASE
  ?
  ?
  ?'         A Likely Story ...'
  ?'         =================='
  ?
  ?'         Your current values are:'
  ?
* Recover & display data from PROFILE.MEM
 RESTORE FROM PROFILE.MEM
 DISP MEMO
* Prompts and Inputs
 ACCEPT 'Item to change' to Item

 INPUT 'Please enter the new value' to Value
 STORE Value to &Item
 RELEASE Value, Item
 SAVE to PROFILE.MEM
 INPUT 'Would you like to make more changes (Y/N)' to Continue
ENDDO *While Continue
RETURN
to Choice
SET CONSOLE OFF
WAIT to Choice
STORE !(Choice) to Choice
SET CONSOLE ON
DO CASE
   CASE Choice='1'
   DO EMPLOYEE
   CASE Choice='2'
   DO Payroll
   CASE Choice='3'
   * DO Payable
   ? 'Accounts payable'
   CASE Choice='4'
   * DO Receive
   ? 'Accounts receivable'
   CASE Choice='R'
    ERASE