**    Last revision: April 17, 1986 at 18:54
* list1.ag
* this module makes a list of all updated information in the file
* get a starting  point
STOR DTOC(DATE()) TO stdat
@ 18,12 SAY 'Files after what date are to be printed'
@ 18,57 GET stdat PICTURE '99/99/99'
READ
STOR SUBSTR(stdat,7,2)+SUBSTR(stdat,1,2)+SUBSTR(stdat,4,2) TO stdate
GO TOP
* initialize variables
STOR 0 TO pageno
STOR .t. TO more2
SET MARGIN TO 10
DO WHIL more2
* do page counter etc
 STOR pageno + 1 TO pageno
 STOR 6 TO lineno
 CLEAR
* eject a page and skip down 1 line
IF printer = 'Y'
 SET PRINT ON
 EJEC
ENDIF
 ? '  '
* and write TITLE
 ? '==================== LIST UPDATES AFTER - ' + stdat+ ' ============='
 ? ' '
 ? '         ' + DTOC(date()) + '                                            PAGE: '+ STR(pageno,3)
 ? ' '
* now fill up rest of page to 55 lines with names etc
 DO WHIL lineno < 55
* now do a page if not end of file
  IF .NOT. EOF()
   STOR SUBSTR(update,7,2)+SUBSTR(update,1,2)+SUBSTR(update,4,2) TO stdate1
   IF stdate1 >= stdate
    ? '-------------------------------------------------------------------'
    ? '     ' +  "Name: "+ TRIM(mr)+' ' + TRIM(fname) +' ' + lastname
    ? '     ' + "Spouse: " + spouse + "Address as: " + dear
    ? '     ' + "Title: " + title
    ? '     ' + "Company: " + company1
    ? '     ' + "       : " + company2
    ? '     ' + "Address: " + TRIM(caddress) + "  " + suite
    ? '     ' + "         " + TRIM(ccity) +'  ' + cst + '  ' +czip
    ? '     ' + "Home address: " + TRIM(address) + "  " + apt
    ? '     ' + "              " + TRIM(city) +'  '+  st + '  ' +zip
    ? '     ' + 'Phones - office: ' + ophone + ' home: ' + phone
    ? '     ' + "List:  " + cs1 + "    Code: " + cs2 
    ? '     ' + "Send to office: " + send
    ? '     ' + "Date update: " + update
* if it is end of file quit
* bump line counter and get next record
    STOR lineno +13 TO lineno
    SKIP
   ELSE
    SKIP
   ENDI date
  ELSE
   STOR .f. TO more2
   STOR 60 TO lineno
  ENDI not EOF
 ENDD while lineno < 55
ENDD more2
* if it was on turn it off
IF printer = 'Y'
EJEC
ENDIF
SET PRINT OFF
* next line for the benefit of Clipper
SET MARGIN TO 0
RETURN


                                                       