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

 
Output of file : ADDRBOOK.PRG contained in archive : ADDRBOOK.ZIP
* PROGRAM NAME..........ADDRBOOK.PRG
* PROGRAM DESCRIPTION...PRINT NAMES/ADDRESSES/PHONE NUMBERS IN
* SMALL FORMAT FOR ADDRESS BOOK
* AUTHOR................ALAN FORRO
* DATE WRITTEN..........7/19/86
* LAST MODIFICATION.....10/9/87
*
SET HEADING OFF
SET SAFETY OFF
SET TALK OFF
SET PRINT OFF
SET CONSOLE ON
SET DEVICE TO SCREEN
CLEAR
@ 11,23 SAY "Printing ADDRESS BOOK PAGES...Standby"
USE PHONBOOK INDEX PHONBOOK
SET PRINT ON
SET CONSOLE OFF
SET DEVICE TO PRINT
* SET COMPRESSED PRINT ON
? CHR(15)
* INITIALIZE MEMORY VARIABLES
MLASTLTR=SPACE(1)
MLINE=0
GO TOP
DO WHILE .NOT. EOF()
MLINE=1
DO WHILE MLINE < 43 .AND. (.NOT. EOF())
* IF NEW LETTER, SET CONTROL BREAK-PRINT HEADING
IF UPPER(LEFT(LNAME,1))<>MLASTLTR
IF MLINE>1
EJECT
MLINE=1
ENDIF
@ MLINE,30 SAY "***** " + UPPER(LEFT(LNAME,1)) + " *****"
ENDIF
MLINE=MLINE+2
MLASTLTR=UPPER(LEFT(LNAME,1))
MNAME=SPACE(1)
MNAME=TRIM(TITLE)+SPACE(1)+TRIM(FNAME)+SPACE(1)+TRIM(MINI)+SPACE(1)+LNAME
@ MLINE,6 SAY MNAME
MLINE=MLINE+1
@ MLINE,6 SAY ADDRESS
IF SUBSTR(ADDRESS2,1,5) <> " "
MLINE=MLINE+1
@ MLINE,6 SAY ADDRESS2
ENDIF
MLINE=MLINE+1
@ MLINE,6 SAY TRIM(CITY)+SPACE(1)+STATE+SPACE(2)+STR(ZIP,5,0)
MLINE=MLINE+1
@ MLINE,6 SAY "HM: "+ HOMENO
@ MLINE,30 SAY "WK: "+ WORKNO
IF SUBSTR(COMMENTS,1,5) <> " "
MLINE=MLINE+1
@ MLINE,6 SAY "NOTES: "+SUBSTR(COMMENTS,1,60)
ENDIF
IF SUBSTR(COMMENTS,61,5) <> " "
MLINE=MLINE+1
@ MLINE,6 SAY SUBSTR(COMMENTS,61,60)
ENDIF
MLINE=MLINE+1
SKIP
ENDDO
EJECT
ENDDO
CLOSE DATABASES
? CHR(18)
SET PRINT OFF
SET CONSOLE ON
SET DEVICE TO SCREEN


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : ADDRBOOK.ZIP
Filename : ADDRBOOK.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/