* PROFILE.CMD
* Purpose: creates the file PROFILE.MEM, a file of common memory
*   variables used in all systemproceedures.
* Used by: all proceedures;  Uses: PROFILUP.CMD
*
SET DEFAULT TO B
SET TALK OFF
STORE 'A Likely Story ...' to Company
STORE 'Good Books' to Slogan
STORE '110 Central Ave.' to Street
STORE 'E. Falmouth, MA 02536' to Address
STORE '(508) 540-4110' to Phone
STORE 16 to Empmax
STORE 40 to WorkWk
STORE 2500 to Payflag
STORE 0.067 to FicaPct
STORE 35700 to FicaMax
STORE 0 to CheckNo
STORE 0 to Balance
STORE 0 to InvoiceNo
STORE 0 to OrderNo
STORE 89 to Year
SAVE to PROFILE.MEM


.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 ne