* **************************  DNLISTC COMMAND FILE  **************************
*
*                                  dNAMES 1.1
*                   (c) Copyright 1982 Data Based Solutions
*                             All Rights Reserved
* ****************************************************************************
RELEASE choice,specs,looking,noshow,similar,srt,srt1,srt2
? '|                                                    ' +;
'                        | ' 
IF !(prn)# 'Y' .AND..not.nohead
 @ 0,0 SAY &pron
 @ 0,0 SAY &pron
 @ 0,0 SAY &pron
 @ 0,0 SAY &pron
 @ 0,0 SAY &pron
ENDIF
IF .not.nohead
 STORE 18 TO newpage
ELSE
 STORE 23 TO newpage
ENDIF
STORE 1 TO lno
STORE 0 TO printed
DO WHILE .not. eof
 STORE no TO recno
 SELECT seco
 GO recno
 STORE $( '(' +$(phone,1,3)+ ') ' +$(phone,4,3)+ '-' +$(phone,7,4)+;
 '           ' ,1,16) TO mphone
 STORE '| ' +$(trim(name)+ '                                   ' ,1,34);
 TO mname
 STORE ' ' +$(DATE,1,2)+ '-' +$(DATE,3,2)+ '-' +$(DATE,5,2)+ ' ' TO DATE1
 STORE $(UPDATE,1,2)+ '-' +$(UPDATE,3,2)+ '-' +$(UPDATE,5,2)+ ' |' TO DATE2
 IF lno=newpage.AND.!(prn)# 'Y' 
  SET inte OFF
  STORE 1 TO lno
  ? '|===================================================' +;
  '=========================|' 
  ? '           Press "A" to ABORT listing or SPACE BAR to continue ' 
  SET cons OFF
  WAIT TO abort
  SET cons ON
  IF !(abort)= 'A' 
   ?? &proff
   RELEASE mphone,mname,mmemo,lno,nohead,newpage,printed,recno,date1,date2,;
   thismany,noloca,tempfile,page,pgbreak,shouldi,tophead
   RETURN
  ENDIF
  IF nohead
   @ 22,00 SAY mname+mphone+zip+DATE1+DATE2
  ELSE
   @ 17,00 SAY mname+mphone+zip+DATE1+DATE2
  ENDIF
  SET inte ON
 ELSE
  ? mname+mphone+zip+DATE1+DATE2
 ENDIF
 STORE lno+1 TO lno
 STORE printed+1 TO printed
 SELECT PRIMARY
 IF !(prn)= 'Y' 
  SET cons ON
  IF thismany#0
   @ 11,42 SAY str(thismany-printed,5)
  ENDIF
  @ 12,42 SAY str(printed,5)
  SET cons OFF
 ENDIF
 IF noloca.OR.tempfile
  SKIP
 ELSE
  CONTINUE
 ENDIF
 IF eof
  LOOP
 ENDIF
 IF lno>=52.AND.!(prn)= 'Y' 
  ? '|===================================================' +;
  '=========================|' 
  EJECT
  STORE page+1 TO page
  STORE 1 TO lno
  IF !(pgbreak)= 'Y' 
   SET cons ON
   STORE ' ' TO shouldi
   @ 18,0 SAY 'Type "A" to abort printing or <RET> to continue. ' GET shouldi
   &con
   READ
   &coff
   IF !(shouldi)= 'A' 
    RELEASE mphone,mname,mmemo,lno,nohead,newpage,printed,recno,date1,date2,;
    thismany,noloca,tempfile,page,pgbreak,shouldi,tophead
    SET colon OFF
    RETURN
   ENDIF
   @ 18,0
  ENDIF
  @ 13,42 SAY str(page,5)
  SET cons OFF
  ? '|===================================================' +;
  '=========================|' 
  IF !(prn)= 'Y' 
   ? '| ' +tophead+ ' DATE- '+DATE()+'  PAGE- ' +str(page,4)+ ' |' 
   ? '|           RECORD NAME            |     PHONE     | ZIP  |  ' +;
   'DATE  | UPDATE  |' 
   ? '|===================================================' +;
   '=========================|' 
   ? '|                                                   ' +;
   '                         |' 
  ENDIF
 ENDIF
ENDDO WHILE .not. eof
? '|===================================================' +;
'=========================|' 
EJECT
?? &proff
IF !(prn)= 'Y' 
 SET PRINT OFF
 @ 16,0 SAY 'Press any key to Return to REPORT MENU' 
 SET cons OFF
 WAIT
 SET cons ON
ENDIF
SET colon OFF
SET inte ON
RELEASE mphone,mname,mmemo,lno,nohead,newpage,printed,recno,date1,date2,;
thismany,noloca,tempfile,page,pgbreak,shouldi,tophead
RETURN