* **************************  DNLISTT COMMAND FILE  **************************
*
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
SET PRINT ON
SET consol OFF
IF !(typ)= 'A' 
 ? 'Name ------------------------------' 
 ? 'Optional Line ---------------------' 
 ? 'Address ----------------------' 
 ? 'City, State  Zip ------------' 
 ?
 ?
ELSE
 IF !(typ)= 'B' 
  STORE 'Name -------------------------' TO test1
  STORE 'Optional Line ----------------' TO test2
  STORE 'Address ----------------------' TO test3
  STORE 'City  State --------Zip ------' TO test4
  ? test1+ '   ' +test1+ '   ' +test1
  ? test2+ '   ' +test2+ '   ' +test2
  ? test3+ '   ' +test3+ '   ' +test3
  ? test4+ '   ' +test4+ '   ' +test4
  ?
  ?
  RELEASE test1,test2,test3,test4 
 ELSE
  ? '|====================================================' +;
  '========================|' 
  IF !(prn)= 'Y' 
   ? '| ' +tophead+ ' DATE- '+DATE()+'  PAGE- ' +str(page,4)+ ' |' 
  ELSE 
   ? '| ' +tophead+ '                            |' 
  ENDIF
  IF !(typ)= 'C' 
   ? '|           RECORD NAME            |     PHONE     | ZIP  |  ' +;
   'DATE  | UPDATE  |' 
  ENDIF
  IF !(typ)= 'D' 
   ? '|               RECORD NAME                |        ADDRESS' +;
   '                  |' 
   ? '|        PHONE      |  ENTERED | UPDATED   |        CITY, ' +;
   'STATE  ZIP         |' 
   ? '|                               COMMENTS                  ' +;
   '                   |' 
  ENDIF
  ? '|============================================' +;
  '================================|' 
  EJECT
 ENDIF
ENDIF
SET PRINT OFF
RETURN