home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
propmgr2.zip
/
LIST1.ACG
< prev
next >
Wrap
Text File
|
1986-09-03
|
2KB
|
58 lines
* DATE 08/27/84 13:09
* list1.acg
STOR CHR(peek (063)) TO dr
SET INDEX TO &dr.:lastname
STOR DATE() TO stdat
@ 18,12 SAY 'Files after what date are to be printed'
@ 18,57 GET stdat PICTURE '99/99/99'
READ
STOR $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
GO TOP
STOR 0 TO pageno
STOR t TO more
SET MARGIN TO 10
DO WHIL more
STOR pageno + 1 TO pageno
STOR 6 TO lineno
ERAS
EJEC
? ' '
? '==================== LIST UPDATES AFTER - ' + stdat+ ' ============='
? ' '
? ' ' + date() + ' PAGE: '+ STR(pageno,3)
? ' '
DO WHIL lineno < 55
IF .NOT. EOF
STOR $(update,7,2)+$(update,1,2)+$(update,4,2) TO stdate1
IF stdate1 >= stdate
? '-------------------------------------------------------------------'
? ' ' + "Name: "+ mr + TRIM(fname) +' ' + lastname
? ' ' + "Spouse: " + spouse + "Address as: " + dear
? ' ' + "Title: " + title
? ' ' + "Company: " + company1
? ' ' + " : " + company2
? ' ' + "Address: " + caddress + " " + suite
? ' ' + " " + ccity +', ' + cst + ' ' +czip
? ' ' + "Home address: " + address + " " + apt
? ' ' + " " + city +', '+ st + ' ' +zip
? ' ' + 'Phones - office: ' + ophone + ' home: ' + phone
? ' ' + "Codes: " + cs1 + ' ' + cs2 + ' ' + cs3 + ' ' + cs4 + ' ' + cs5 + ' ' + cs6
? ' ' + "Send to office: " + send
? ' ' + "Date update: " + update
STOR lineno +13 TO lineno
SKIP
ELSE
SKIP
ENDI stdate1
ELSE
STOR f TO more
STOR 60 TO lineno
ENDI .NOT. EOF
ENDD while lineno < 55
ENDD while more
EJEC
SET PRINT OFF
RELE pageno, lineno, stdat, stdate
STOR t TO more
STOR t TO first