Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : BUSOPP.ZIP
Filename : FOLLOW.PRG

 
Output of file : FOLLOW.PRG contained in archive : BUSOPP.ZIP
*COPYRIGHT 1986, 1987 T. P. STARK
*PROGRAM TO PRINT DETAILED FOLLOW-UP REPORTS
*FOLLOW.PRG
*JUNE 5, 1986
*TPS
USE BUSOPP INDEX BUSOPP
SET TALK OFF
SET DELETED ON
CLEAR
SET PRINT ON
GOTO TOP
DO WHILE .NOT. EOF()
IF DEAD <>" "
SKIP
LOOP
ENDIF
*NOTE===7 DAYS HAS BEEN SELECTED, ANY OTHER TIME PERIOD
*COULD BE SELECTED
* HERE....... |
IF FOLLOW_DT>DATE()+7
SKIP
LOOP
ENDIF
IF FOLLOW_DT STORE "FOLLOW UP IS LATE, WAS DUE..." TO COM
ENDIF
IF FOLLOW_DT>=DATE()
STORE "FOLLOW UP IS DUE BY..."TO COM
ENDIF
EJECT
?" BUSINESS OPPORTUNITIES FOLLOW UP SHEET"
?
?
?" "+COM+CMONTH(FOLLOW_DT)+" "+SUBSTR(DTOC(FOLLOW_DT),4,2)
?
?
?"Date Originated: "+DTOC(DATE)+" Record Number: "+STR(RECNO())
?"Last Changed: "+DTOC(REVISE_DAT)
?
?
?" Today's Date _______________"
?
?"Company: "+COMPANY+" ______________________________________"
?
?"Address: "+ADDRESS1+" ______________________________________"
?
?" "+ADDRESS2+" ______________________________________"
?
?"City : "+CITY+" ______________________________________"
?
?"State : "+STATE+" ________"
?
?"Zip : "+ZIP+" ________"
?
?"Country: "+COUNTRY+" ___________________________________"
?
?"Telephone: "+TELEPHONE+" ___________________________________"
?
?"Contact : "+CONTACT+" ___________________________________"
?
?"Title : "+TITLE+" ___________________________________"
?
?"Product : "+PRODUCT+" ___________________________________"
?
?"Follow Up Date :"+DTOC(FOLLOW_DT)+" ______________"

STORE 1 TO BEGIN
STORE 32 TO COUNT
STORE 'x' TO SP
DO WHILE SP<>' '
STORE COUNT - 1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?
?"Comments: "
?SUBSTR(COMMENTS,BEGIN,COUNT)+SPACE(36-(COUNT-BEGIN))+;
"________________________________________"
STORE COUNT+1 TO BEGIN
STORE COUNT + 32 TO COUNT
STORE 'x' TO SP
DO WHILE SP<>' '
STORE COUNT - 1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))
STORE COUNT+1 TO BEGIN
STORE COUNT + 32 TO COUNT
STORE 'x' TO SP
DO WHILE SP<>' '
STORE COUNT - 1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))+;
"________________________________________"
STORE COUNT+1 TO BEGIN
STORE COUNT + 32 TO COUNT
STORE 'x' TO SP
DO WHILE SP<>' '
STORE COUNT - 1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))
STORE COUNT+1 TO BEGIN
STORE COUNT + 32 TO COUNT
STORE 'x' TO SP
DO WHILE SP<>' '
STORE COUNT - 1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))+;
"________________________________________"
STORE COUNT+1 TO BEGIN
STORE COUNT + 32 TO COUNT
STORE 'X' TO SP
DO WHILE SP<>' '
STORE COUNT-1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))
STORE COUNT+1 TO BEGIN
STORE COUNT+32 TO COUNT
STORE 'X' TO SP
DO WHILE SP<>' '
STORE COUNT-1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))+;
"________________________________________"
STORE COUNT+1 TO BEGIN
STORE COUNT+32 TO COUNT
STORE 'X' TO SP
DO WHILE SP<>' '
STORE COUNT-1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))
STORE COUNT+1 TO BEGIN
STORE COUNT+32 TO COUNT
STORE 'X' TO SP
DO WHILE SP<>' '
STORE COUNT-1 TO COUNT
STORE SUBSTR(COMMENTS,COUNT,1) TO SP
ENDDO
?SUBSTR(COMMENTS,BEGIN,COUNT-BEGIN)+SPACE(37-(COUNT-BEGIN))+;
"________________________________________"
?
?
?"Estimated Sales : $"+STR(MINDOL)+" $_____________________"
?
?"When : "+DTOC(WHEN)+" ______________________"
?
?"OUR Contact : "+HOUSEREP+" __________"
?
?"Representative :"+REP+" _____________________________"
?
?"Quoted ??(Y or N) : "+QUOTE+" Y N"
?
ENDIF
SKIP
ENDDO
SET PRINT OFF
DO PC
USE
RETURN


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : BUSOPP.ZIP
Filename : FOLLOW.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/