IMD 1.16: 1/06/2007 13:01:48 FOGCPM.177 --FOGCPM177BYMAIL DOCBYMAIL ADDBYMAIL CMDBYMAIL DBFBYMAIL ED BYMAIL FAU BYMAIL GET) BYMAIL GO BYMAIL IO BYMAIL LBLBYMAIL NDXBYMAIL OUT BYMAIL PRNBYMAIL RPT  BYMAIL SCR!"#$BYMAIL VAL%BYMAIL WS &'CHURCH DOC(APPDIR CMD)*CHEDUP CMD$+,-./CODLIS CMD0CODSEL CMD123COPSHO CMD 45DELADD CMD678DUMCAR CMD9:DUMLAB CMD;<=>DUMPAP CMD?@AEDIDIR CMDBCFILE5 DBFDEFGHIJKLMNOPQRSFILE5 DBF(TUVWX-04-00 87 FILEX DBFYHOLD CMDZINDEX CMD[\LABMAI CMD]^_`LABTES CMDabcLISFIL CMDdeLOVE CMD fgMAIHOL CMDhiMASTER NDXjklMENU CMD mnNOGOOD CMDoPRIMEN CMDpDOP DOCUqrstuvwxyz{DOP-CPM CMDH|}~MAIL COMMAIL COM-CPM177 DOC!MAIL NOT MAIL PAS{This is the disk name.  +----------------------------------+ | BYRON MCKAY'S WORLD FAMOUS | | MAILING LIST FOR DBASE II | +----------------------------------+ This program is submitted to the public domain to allow users further use of their already powerful dBase II program from Ashton-Tate Inc. It uses a menu structure (generated mostly by the Fox and Geller "QuickCode" program), to allow a non computer type to enter, find, and retrieve names, addresses, and phone numbers from the data base file. The program is documented within the program itself, and is self installing providing you have installed your dBase II correctly. All you have to do is create a data base with the following paramaters to run the program correctly: Field Name Type Width Decimal places 001 First c 016 0 002 Last c 021 0 003 Company c 036 0 004 Address c 053 0 005 City c 031 0 006 St c 003 0 007 Zip c 011 0 008 Home c 013 0 009 Work c 013 0 010 Comments c 065 0 These fields must be entered exactly as shown above using the 'Create' command of the dBase II. Further documentation on the creation of these fields is found in the program manual for dBase II. You may also wish to create a new report form since the one included does not display all the data. Merely create the report form with the report command. Further documentation on the use of this program for more detailed use may be found in the QuickCode manual. I hope all of you get the absolute most out of this program, and find it as useful as I have. I won't say it is 100% bug free, but it is darn close. To Run the programs: type at the CP/M prompt: DBASE BYMAIL Happy Modeming!! Happy Holidays!!! Byron McKay Sysop Piconet RCPM - December 25th, 1982 ast c 021 0 003 Company c 036 0 004 Address c 053 0 005 City c 031 0 006 St c 003 0 007 Zip c 011 0 008 Home * BYMAIL.ADD -ADD PROGRAM STORE T TO MQ:AMORE DO WHILE MQ:AMORE * SET UP DEFAULT VALUES DO BYMAIL.FAU ERASE STORE ' ADD ' TO MQ:MODE * GET DATA TO ADD DO BYMAIL.IO @ 21,10 SAY ' MAKE AS MANY ENTRIES AS YOU WANT ' @ 22,10 SAY ' WHEN DONE ENTER BLANKS FOR last ' READ * ARE WE DONE? IF Mlast <> ' ' * PERFORM VALIDATION DO BYMAIL.VAL APPEND BLANK * PUT SCREEN DATA INTO FILE REPLACE first WITH Mfirst REPLACE last WITH Mlast REPLACE company WITH Mcompany REPLACE address WITH Maddress REPLACE city WITH Mcity REPLACE st WITH Mst REPLACE zip WITH Mzip REPLACE home WITH Mhome REPLACE work WITH Mwork REPLACE comments WITH Mcomments ELSE STORE F TO MQ:AMORE ENDIF ENDDO RELEASE MQ:MODE,MQ:AMORE * RELEASE INPUT FIELDS RELEASE Mfirst RELEASE Mlast RELEASE Mcompany RELEASE Maddress RELEASE Mcity RELEASE Mst RELEASE Mzip RELEASE Mhome RELEASE Mwork RELEASE Mcomments * BYMAIL.CMD -MAIN PROGRAM * DATABASE NAME IS BYMAIL * DATABASE IS KEYED SET TALK OFF SET FORMAT TO SCREEN SELECT PRIMARY STORE FILE('BYMAIL.NDX') TO MQ:NDX IF .NOT. MQ:NDX DO BYMAIL.GO ERASE @ 21,10 SAY ' FILE IS NOW BEING INDEXED ' ENDIF USE BYMAIL INDEX BYMAIL STORE T TO MQ:MORE DO WHILE MQ:MORE ERASE @ 5,27 SAY '+--------------------+' @ 6,27 SAY '! SYSTEM:' @ 6,37 SAY 'BYMAIL' @ 6,48 SAY '!' @ 7,27 SAY '! FILE:' @ 7,36 SAY 'BYMAIL' @ 7,48 SAY '!' @ 8,11 SAY '+---------------+--------------------+---------------+' @ 9,11 SAY '! PLEASE CHOOSE ONE:' @ 9,64 SAY '!' @ 10,11 SAY '!' @ 10,26 SAY 'A to ADD data' @ 10,64 SAY '!' @ 11,11 SAY '!' @ 11,26 SAY 'G to GET/EDIT data' @ 11,64 SAY '!' @ 12,11 SAY '!' @ 12,26 SAY 'R to RUN report' @ 12,64 SAY '!' @ 13,11 SAY '!' @ 13,26 SAY 'W to make WordStar Connection' @ 13,64 SAY '!' @ 14,11 SAY '!' @ 14,26 SAY 'L to print mailing LABELS/forms' @ 14,64 SAY '!' @ 15,11 SAY '!' @ 15,26 SAY 'I to INDEX database' @ 15,64 SAY '!' @ 16,11 SAY '!' @ 16,64 SAY '!' @ 17,11 SAY '! Q to QUIT (exit to CP/M)' @ 17,64 SAY '!' @ 18,11 SAY '+----------------------------------------------------+' @ 21,10 SAY ' ' SET CONSOLE OFF WAIT TO MQ:COMMAND SET CONSOLE ON IF !(MQ:COMMAND)= 'A' DO BYMAIL.ADD ELSE IF !(MQ:COMMAND)= 'G' DO BYMAIL.GET ELSE IF !(MQ:COMMAND)='R' DO BYMAIL.RPT ELSE IF !(MQ:COMMAND)='W' DO BYMAIL.WS ELSE IF !(MQ:COMMAND)='L' DO BYMAIL.LBL ELSE IF !(MQ:COMMAND)='I' @ 21,10 SAY ' FILE IS NOW BEING INDEXED ' DO BYMAIL.GO ELSE IF !(MQ:COMMAND)='Q' QUIT ENDIF QUIT ENDIF GO ENDIF LABEL ENDIF WS ENDIF REPORT ENDIF GET ENDIF ADD ENDDO RELEASE MQ:MORE,MQ:COMMAND,MQ:NDX Connection' @ 13,64 SAY '!' @ 14,11 SAY '!' @ 14,26 SAY 'L to print mailing LABELS/forms' @ 14,64 SAY '!' @ 15,11 SAY FIRSTCpLASTCpCOMPANYC$pADDRESSC5qCITYC7qSTCVqZIPC YqHOMEC dqWORKC qqCOMMENTSCA~q MELC lNAMEFC lPHONEClCODEFClCODESClYEARClSTREETCmCITYCmSTATEC'mZIPC )mMAPC2m * BYMAIL.ED -EDIT PROGRAM STORE T TO MQ:EMORE STORE ' EDIT ' TO MQ:MODE * SET UP SCREEN VARIABLES STORE first TO Mfirst STORE last TO Mlast STORE company TO Mcompany STORE address TO Maddress STORE city TO Mcity STORE st TO Mst STORE zip TO Mzip STORE home TO Mhome STORE work TO Mwork STORE comments TO Mcomments DO WHILE MQ:EMORE ERASE * GET SCREEN INPUT DO BYMAIL.IO @ 21,10 SAY ' ENTER ALL CHANGES ' READ * VALIDATE INPUT DO BYMAIL.VAL STORE 'N' TO MQ:ECMD @ 21,10 SAY ' ANY MORE CHANGES (Y/N)? ' GET MQ:ECMD READ * PUT SCREEN ENTRIES INTO FILE REPLACE first WITH Mfirst REPLACE last WITH Mlast REPLACE company WITH Mcompany REPLACE address WITH Maddress REPLACE city WITH Mcity REPLACE st WITH Mst REPLACE zip WITH Mzip REPLACE home WITH Mhome REPLACE work WITH Mwork REPLACE comments WITH Mcomments IF !(MQ:ECMD)<> 'Y' STORE F TO MQ:EMORE ENDIF ENDDO RELEASE MQ:MODE,MQ:EMORE,MQ:ECMD RELEASE Mfirst RELEASE Mlast RELEASE Mcompany RELEASE Maddress RELEASE Mcity RELEASE Mst RELEASE Mzip RELEASE Mhome RELEASE Mwork RELEASE Mcomments RE st TO Mst STORE zip TO Mzip STORE home TO Mhome STORE work TO Mwork STORE comments TO Mcomments DO WHILE MQ:EMORE ERASE * GET SCREEN INPUT DO BYMAIL.IO @ 21,10 SAY ' ENTER ALL CHANGES ' READ * VALIDATE INPUT DO BYMAIL.VAL STORE 'N' TO MQ:ECMD @ 21,10 SAY ' ANY MORE CHANGES (Y/N)? ' GET MQ:ECMD READ * PUT SCREEN ENTRIES INTO FILE REPLACE first WITH Mfirst REPLACE last WITH Mlast REPLACE company WITH Mcompany REPLACE address WITH Maddress REPLACE city WITH Mcity REPLACE st WITH Mst REPLACE zip WITH Mzip REPLACE home WITH Mhome REPLACE work WITH Mwork REPLACE comments WITH Mcomments IF !(MQ:ECMD)<> 'Y' STORE F TO MQ:EMORE ENDIF ENDDO RELEASE MQ:MODE,M* BYMAIL.FAU -DEFAULT VALUES PROGRAM STORE ' ' TO Mfirst STORE ' ' TO Mlast STORE ' ' TO Mcompany STORE ' ' TO Maddress STORE ' ' TO Mcity STORE ' ' TO Mst STORE ' ' TO Mzip STORE '( )000-0000' TO Mhome STORE '( )000-0000' TO Mwork STORE ' ' TO Mcomments  * BYMAIL.GET - GET PROGRAM STORE ' T ' TO MQ:SLCT STORE T TO MQ:GMORE STORE 'N' TO MQ:GDEL DO WHILE MQ:GMORE ERASE STORE ' GET ' TO MQ:MODE * DISPLAY CURRENT RECORD IF &MQ:SLCT DO BYMAIL.OUT ENDIF STORE ' ' TO MQ:CMD @ 21,10 SAY ' ENTER N FOR NEXT, P FOR PREVIOUS ' @ 22,10 SAY ' S FOR SEARCH, M FOR MORE COMMANDS ' IF MQ:SLCT <> ' T ' @ 23,4 SAY '**' ENDIF @ 23,10 SAY ' PRESS RETURN WHEN DONE ' GET MQ:CMD READ IF !(MQ:CMD)= 'S' STORE T TO MQ:SMORE DO WHILE MQ:SMORE ERASE STORE ' SEARCH ' TO MQ:MODE * GET FIELDS TO SEARCH FOR @ 02,007 SAY 'First Name:' @ 02,039 SAY 'Last Name:' STORE ' ' TO Mlast @ 02,051 GET Mlast @ 03,013 SAY 'Company Name:' STORE ' ' TO Mcompany @ 03,029 GET Mcompany @ 04,000 SAY '--------------------' @ 04,020 SAY '--------------------' @ 04,040 SAY '--------------------' @ 04,060 SAY '--------------------' @ 05,007 SAY 'Address:' @ 06,000 SAY '--------------------' @ 06,020 SAY '--------------------' @ 06,040 SAY '--------------------' @ 06,060 SAY '--------------------' @ 07,000 SAY 'City:' @ 07,044 SAY 'State:' @ 07,060 SAY 'Zip:' @ 08,000 SAY '--------------------' @ 08,020 SAY '--------------------' @ 08,040 SAY '--------------------' @ 08,060 SAY '--------------------' @ 09,011 SAY 'Home Phone:' @ 09,043 SAY 'Work Phone:' @ 10,000 SAY '--------------------' @ 10,020 SAY '--------------------' @ 10,040 SAY '--------------------' @ 10,060 SAY '--------------------' @ 11,000 SAY 'Comments:' @ 12,000 SAY '--------------------' @ 12,020 SAY '--------------------' @ 12,040 SAY '--------------------' @ 12,060 SAY '--------------------' @ 13,025 SAY '*** Please use all C' @ 13,045 SAY 'aps!!! ***' @ 21,10 SAY ' PLEASE ENTER VALUES TO SEARCH FOR ' IF MQ:SLCT <> ' T ' @ 23,4 SAY '**' ENDIF READ * EXIT FROM LOOP IF FOUND GOTO TOP STORE TRIM(Mlast+Mcompany) TO MQ:KEY IF MQ:SLCT= ' T ' FIND &MQ:KEY IF # <> 0 STORE F TO MQ:SMORE ELSE @ 22,10 SAY ' NOT FOUND ' @ 23,10 SAY ' TRY AGAIN(Y/N)? ' SET CONSOLE OFF WAIT TO MQ:DUMMY SET CONSOLE ON IF !(MQ:DUMMY) <> 'Y' STORE F TO MQ:SMORE ENDIF Y RELEASE MQ:DUMMY ENDIF # <> 0 ELSE LOCATE FOR last+Mcompany = Mlast+Mcompany .AND. &MQ:SLCT IF .NOT. EOF STORE F TO MQ:SMORE ELSE @ 22,10 SAY ' NOT FOUND ' @ 23,10 SAY ' TRY AGAIN(Y/N)? ' SET CONSOLE OFF WAIT TO MQ:DUMMY SET CONSOLE ON IF !(MQ:DUMMY) <> 'Y' STORE F TO MQ:SMORE ENDIF Y RELEASE MQ:DUMMY ENDIF EOF ENDIF MQ:SLCT=T ENDDO MQ:SMORE RELEASE MQ:SMORE RELEASE MQ:KEY ELSE IF !(MQ:CMD) = 'N' STORE T TO MQ:N DO WHILE MQ:N SKIP IF &MQ:SLCT STORE F TO MQ:N ENDIF IF EOF STORE F TO MQ:N STORE ' T ' TO MQ:SLCT @ 23,4 SAY ' ' ENDIF ENDDO RELEASE MQ:N ELSE IF !(MQ:CMD)= 'P' STORE ' T ' TO MQ:SLCT @ 23,4 SAY ' ' SKIP -1 ELSE IF !(MQ:CMD)= 'M' STORE T TO MQ:MMORE DO WHILE MQ:MMORE STORE ' MORE ' TO MQ:MODE STORE ' ' TO MQ:MMD @ 21,10 SAY ' ENTER E TO EDIT, D TO DELETE, ' @ 22,10 SAY ' P TO PRINT, C TO dSCAN ' IF MQ:SLCT <> ' T ' @ 23,4 SAY '**' ENDIF @ 23,10 SAY ' PRESS RETURN WHEN DONE ' GET MQ:MMD READ IF !(MQ:MMD) = 'E' ERASE IF MQ:SLCT <> ' T ' @ 23,4 SAY '**' ENDIF * EDIT RECORD DO BYMAIL.ED ELSE IF !(MQ:MMD)= 'D' STORE 'N' TO MQ:ANS IF MQ:SLCT <> ' T ' @ 23,4 SAY '**' ENDIF @ 23,10 SAY ' ARE YOU SURE(Y/N)? ' @ 23,28 GET MQ:ANS READ IF !(MQ:ANS)= 'Y' DELETE STORE 'Y' TO MQ:GDEL ENDIF RELEASE MQ:ANS ELSE IF !(MQ:MMD)= 'P' @ 23,10 SAY ' PLEASE SET UP PRINTER ' STORE ' ' TO MQ:MODE SET CONSOLE OFF WAIT SET CONSOLE ON SET FORMAT TO PRINT DO BYMAIL.OUT SET FORMAT TO SCREEN ELSE IF !(MQ:MMD)='C' GOTO TOP STORE '  ' TO MQ:SLCT @ 21,10 SAY 'PLEASE ENTER SELECTION CRITERIA ' @ 22,10 SAY ' DO NOT PRESS RETURN!!! ' @ 23,4 SAY '**' @ 23,10 GET MQ:SLCT READ LOCATE FOR &MQ:SLCT IF EOF @ 21,10 SAY 'NO MORE RECORDS CAN BE FOUND ' @ 22,10 SAY 'PLEASE PRESS RETURN TO CONTINUE ' @ 23,4 SAY ' ' STORE ' T ' TO MQ:SLCT SET CONSOLE OFF WAIT SET CONSOLE ON ELSE DO BYMAIL.OUT ENDIF ELSE STORE F TO MQ:MMORE ENDIF F ENDIF P ENDIF D ENDIF E ENDDO MQ:MMORE RELEASE MQ:MMORE,MQ:MMD ELSE STORE F TO MQ:GMORE ENDIF M ENDIF P ENDIF N ENDIF S ENDDO MQ:GMORE IF MQ:GDEL = 'Y' STORE 'N' TO MQ:ANS @ 23,10 SAY 'WANT TO PERMANENTLY DELETE RECORDS(Y/N)' @ 23,49 GET MQ:ANS READ IF MQ:ANS = 'Y' PACK ELSE RECALL ALL ENDIF RELEASE MQ:ANS ENDIF MQ:GDEL RELEASE MQ:CMD,MQ:GMORE,MQ:GDEL,MQ:SLCT RELEASE MQ:MODE  @ 22,10 SAY ' DO NOT PRESS RETURN!!! ' @ 23,4 SAY '**' @ 23,10 GET MQ:SLCT READ LOCATE FOR &MQ:SLCT IF EOF @ 21,10 SAY 'NO MORE RECORDS CAN BE FOUND ' @ 22,10 SAY 'PLEASE PRESS RETURN TO CONTINUE ' @ 23,4 SAY ' ' STORE ' T ' TO MQ:SLCT SET CONSOLE OFF WAIT SET CONSOLE ON ELSE DO BYMAIL.OUT ENDIF ELSE STORE F TO MQ:MMORE ENDIF F ENDIF P ENDIF D ENDIF E ENDDO MQ:MMORE RELEASE MQ:MMORE,MQ:MMD ELSE STORE F TO MQ:GMORE ENDIF M ENDIF P ENDIF N ENDIF S ENDDO MQ:GMORE IF MQ:GDEL = 'Y' STORE 'N' TO MQ:ANS @ 23,10 SAY 'WANT TO PERMANENTLY DELETE RECORDS(Y/N)' @ 23,49 GET MQ:ANS READ IF MQ:ANS = 'Y' PACK ELSE RECALL ALL ENDIF RELEASE MQ:ANS ENDIF MQ:GDEL RELEASE MQ:CMD,MQ:GMORE,MQ:GDEL,MQ:SL* BYMAIL.GO -STARTUP & INDEX PGM * USE THIS PGM TO START A KEYED DATA FILE * OR RE-INDEX AN EXISTING ONE SET TALK OFF SELECT PRIMARY USE BYMAIL INDEX ON last+ company TO BYMAIL BYMAIL $$$* BYMAIL.IO -INPUT/OUTPUT SCREEN @ 02,007 SAY 'First Name:' @ 02,019 GET Mfirst @ 02,039 SAY 'Last Name:' @ 02,051 GET Mlast @ 03,013 SAY 'Company Name:' @ 03,029 GET Mcompany @ 04,000 SAY '--------------------' @ 04,020 SAY '--------------------' @ 04,040 SAY '--------------------' @ 04,060 SAY '--------------------' @ 05,007 SAY 'Address:' @ 05,019 GET Maddress @ 06,000 SAY '--------------------' @ 06,020 SAY '--------------------' @ 06,040 SAY '--------------------' @ 06,060 SAY '--------------------' @ 07,000 SAY 'City:' @ 07,008 GET Mcity @ 07,044 SAY 'State:' @ 07,052 GET Mst @ 07,060 SAY 'Zip:' @ 07,066 GET Mzip @ 08,000 SAY '--------------------' @ 08,020 SAY '--------------------' @ 08,040 SAY '--------------------' @ 08,060 SAY '--------------------' @ 09,011 SAY 'Home Phone:' @ 09,023 GET Mhome PICTURE '(XXX)999-9999' @ 09,043 SAY 'Work Phone:' @ 09,055 GET Mwork PICTURE '(XXX)999-9999' @ 10,000 SAY '--------------------' @ 10,020 SAY '--------------------' @ 10,040 SAY '--------------------' @ 10,060 SAY '--------------------' @ 11,000 SAY 'Comments:' @ 11,012 GET Mcomments @ 12,000 SAY '--------------------' @ 12,020 SAY '--------------------' @ 12,040 SAY '--------------------' @ 12,060 SAY '--------------------' @ 13,025 SAY '*** Please use all C' @ 13,045 SAY 'aps!!! ***' 06,000 SAY '--------------------' @ 06,020 SAY '--------------------' @ 06,040 SAY '--------------------' @ 06,060 SAY '--------------------' @ 07,000 SAY 'City:' @ 07,008 GET Mcity @ 07,044 SAY 'State:' @ 07,052 GET Mst @ 07,060 SAY 'Zip:' @ 07,066 GET Mzip @ 08,000 SAY '--------------------' @ 08,020 SAY '--------------------' @ 08,040 SAY '--------------------' @ 08,060 SAY '--------------------' @ 09,011 SAY 'Home Phone:' @ 09,023 GET Mhome PICTURE '(XXX)999-9999' @ 09,043 SAY 'Work Phone:' @ 09,055 GET Mwork PICTURE '(XXX)999-9999' @ 10,000 SAY '--------------------' @ 10,020 SAY '--------------------' @ 10* BYMAIL.LBL -LABEL/FORM PROGRAM STORE ' ' TO MQ:MODE STORE 10 TO MQ:LSIZE STORE ' ' TO MQ:SLCT STORE 'Y' TO MQ:ANS @ 21,10 SAY 'DO YOU WISH TO dSCAN? (Y/N)' GET MQ:ANS READ @ 21,10 IF !(MQ:ANS)='Y' @ 21,10 SAY 'PLEASE ENTER SELECTION CRITERIA' @ 23,10 GET MQ:SLCT READ @ 21,10 @ 23,10 ELSE STORE 'T' TO MQ:SLCT ENDIF @ 21,10 SAY ' HOW MANY LINES PER LABEL/FORM? ' @ 22,10 SAY ' (ENTER 0 TO GET PAGE EJECTS) ' @ 23,10 SAY ' PLEASE COUNT THE SPACE BETWEEN LABELS ' GET MQ:LSIZE READ GOTO TOP @ 23,10 SAY ' PLEASE SET UP YOUR PRINTER ' SET CONSOLE OFF WAIT SET CONSOLE ON * REPEAT UNTIL FILE ENDS DO WHILE .NOT. EOF IF &MQ:SLCT STORE first TO MQ1:01 STORE last TO MQ1:02 STORE company TO MQ1:03 STORE address TO MQ1:04 STORE city TO MQ1:05 STORE st TO MQ1:06 STORE zip TO MQ1:07 STORE home TO MQ1:08 STORE work TO MQ1:09 STORE comments TO MQ1:10  ELSE SKIP LOOP ENDIF SET PRINT ON ? ' '+'First Name:'+' '+MQ1:01+' '+'Last Name:'+' '+MQ1:02 ? ' '+'Company Name:'+' '+MQ1:03 ? '--------------------'+'--------------------'+'--------------------'+'--------------------' ? ' '+'Address:'+' '+MQ1:04 ? '--------------------'+'--------------------'+'--------------------'+'--------------------' ? 'City:'+' '+MQ1:05+' '+'State:'+' '+MQ1:06+' '+'Zip:'+' '+MQ1:07 ? '--------------------'+'--------------------'+'--------------------'+'--------------------' ? ' '+'Home Phone:'+' '+MQ1:08+' '+'Work Phone:'+' '+MQ1:09 ? '--------------------'+'--------------------'+'--------------------'+'--------------------' ? 'Comments:'+' '+MQ1:10 ? '--------------------'+'--------------------'+'--------------------'+'--------------------' ? ' '+'*** Please use all C'+'aps!!! ***' STORE 0 TO MQ:COUNT * IF LABEL IS LARGER, SKIP SOME LINES IF MQ:LSIZE > 12 DO WHILE MQ:COUNT < (MQ:LSIZE - 12 ) ? ' ' STORE MQ:COUNT + 1 TO MQ:COUNT ENDDO MQ:COUNT ELSE IF MQ:LSIZE = 0 EJECT ENDIF 0 ENDIF > SKIP ENDDO NOT EOF SET PRINT OFF SET CONSOLE ON RELEASE MQ:LSIZE,MQ:COUNT,MQ:ANS,MQ:SLCT RELEASE MQ1:01 RELEASE MQ1:02 RELEASE MQ1:03 RELEASE MQ1:04 RELEASE MQ1:05 RELEASE MQ1:06 RELEASE MQ1:07 RELEASE MQ1:08 RELEASE MQ1:09 RELEASE MQ1:10 -'+'--------------------'+'--------------------'+'--------------------' ? ' '+'Home Phone:'+' '+MQ1:08+' '+'Work Phone:'+' '+MQ1:09 ? '--------------------'+'--------------------'+'--------------------'+'--------------------' ? 'Comments:'+' '+MQ1:10 ? '--------------------'+'--------------------'+'--------------------'+'--------------------' ? ' '+'*** Please use all C'+'aps!!! ***' STORE 0 TO MQ:COUNT * IF LABEL IS LARGER, SKIP SOME LINES IF ;=last+ company R SIL. SPG. MD20906 33F3 *BOWEN GILBERT C 593-5660BOWE60-1M..L.. 12321 REMINGTON DR SIL. SPG. MD20902 33K5 *BOWEN FLORENCE 593-5660BOWE60-2M..... 12321 REMINGTON DR SIL. SPG. MD20902 33K5 *BOWEN WILLIAM 593-9497BOWE97-1M..L..5410607 S DUNMOOR DR SIL. SPR. MD20901 34A11*BOWEN CAROL 593-9497BOWE97-2D..... 10607 S DUNMOOR DR SIL. SPR. MD20901 34A11*BRADSHAW JAMES E 460-3098BRADREMINGTON DR SIL. SPG. MD20902 33K5 *BOWEN WILLIAM 593-9497BOWE97-1M..L..5410607 S DUNMOOR DR SIL. SPR. MD20901 34A11*BOWEN CAROL 593-9497BOWE97-2D..... 10607 S DUNMOOR DR SIL. SPR. MD20901 34A11*BRADSHAW JAMES E 460-3098BRAD98-1D..L.. 3010 HEWITT AV #272 SIL. SPG. MD20906 33C1 *BRADSHAW KATIE 460-3098BRAD98-2MA.... 3010 HEWITT AV #272 SIL. SPG. MD20906 33C1 *BRANNOCK EUGENE 946-9168BRAN68-1MA.L.. 13* BYMAIL.OUT -OUTPUT ONLY FORM @ 02,007 SAY 'First Name:' @ 02,020 SAY first @ 02,039 SAY 'Last Name:' @ 02,052 SAY last @ 03,013 SAY 'Company Name:' @ 03,030 SAY company @ 04,000 SAY '--------------------' @ 04,020 SAY '--------------------' @ 04,040 SAY '--------------------' @ 04,060 SAY '--------------------' @ 05,007 SAY 'Address:' @ 05,020 SAY address @ 06,000 SAY '--------------------' @ 06,020 SAY '--------------------' @ 06,040 SAY '--------------------' @ 06,060 SAY '--------------------' @ 07,000 SAY 'City:' @ 07,009 SAY city @ 07,044 SAY 'State:' @ 07,053 SAY st @ 07,060 SAY 'Zip:' @ 07,067 SAY zip @ 08,000 SAY '--------------------' @ 08,020 SAY '--------------------' @ 08,040 SAY '--------------------' @ 08,060 SAY '--------------------' @ 09,011 SAY 'Home Phone:' @ 09,024 SAY home @ 09,043 SAY 'Work Phone:' @ 09,056 SAY work @ 10,000 SAY '--------------------' @ 10,020 SAY '--------------------' @ 10,040 SAY '--------------------' @ 10,060 SAY '--------------------' @ 11,000 SAY 'Comments:' @ 11,013 SAY comments @ 12,000 SAY '--------------------' @ 12,020 SAY '--------------------' @ 12,040 SAY '--------------------' @ 12,060 SAY '--------------------' @ 13,025 SAY '*** Please use all C' @ 13,045 SAY 'aps!!! ***' 6,000 SAY '--------------------' @ 06,020 SAY '--------------------' @ 06,040 SAY '--------------------' @ 06,060 SAY '--------------------' @ 07,000 SAY 'City:' @ 07,009 SAY city @ 07,044 SAY 'State:' @ 07,053 SAY st @ 07,060 SAY 'Zip:' @ 07,067 SAY zip @ 08,000 SAY '--------------------' @ 08,020 SAY '--------------------' @ 08,040 SAY '--------------------' @ 08,060 SAY '--------------------' @ 09,011 SAY 'Home Phone:' @ 09,024 SAY home @ 09,043 SAY 'Work Phone:' @ 09,056 SAY work @ 10,000 SAY '--------------------' @ 10,020 SAY '--------------------' @ 10,040 SAY '--------------------' @ 10,060 SAY '-------- First Name: : : Last Name: : : Company Name: : : -------------------------------------------------------------------------------- Address: : : -------------------------------------------------------------------------------- City: : : State: : : Zip: : :  -------------------------------------------------------------------------------- Home Phone: : : Work Phone: : : -------------------------------------------------------------------------------- Comments: : : -------------------------------------------------------------------------------- *** Please use all Caps!!! ***     * BYMAIL.RPT -REPORT PROGRAM * IF REPORT DOESNT EXIST, GO INTO dBASE STORE ' ' TO MQ:RLPT DO WHILE !(MQ:RLPT) <> 'Y' .AND. !(MQ:RLPT) <> 'N' STORE 'Y' TO MQ:RLPT @ 21,10 SAY ' WANT REPORT SENT TO THE PRINTER? ' GET MQ:RLPT READ ENDDO STORE ' ' TO MQ:RDSK DO WHILE !(MQ:RDSK) <> 'Y' .AND. !(MQ:RDSK) <> 'N' STORE 'N' TO MQ:RDSK @ 21,10 SAY ' WANT REPORT SENT TO A FILE ? ' GET MQ:RDSK READ ENDDO IF !(MQ:RDSK)= 'Y' STORE ' ' TO MQ:RFILE DO WHILE MQ:RFILE = ' ' @ 22,10 SAY ' ENTER FILE NAME ' GET MQ:RFILE READ ENDDO STORE TRIM(MQ:RFILE) TO MQ:RFILE ENDIF RDSK STORE ' ' TO MQ:RPT DO WHILE MQ:RPT = ' ' @ 23,10 SAY ' ENTER REPORT NAME ' GET MQ:RPT READ ENDDO IF !(MQ:RLPT) = 'Y' @ 23,10 SAY ' PLEASE SET UP PRINTER ' SET CONSOLE OFF WAIT SET CONSOLE ON SET PRINT ON ENDIF RLPT IF !(MQ:RDSK) = 'Y' SET ALTERNATE TO &MQ:RFILE SET ALTERNATE ON ENDIF RDSK ERASE REPORT FORM &MQ:RPT SET PRINT OFF SET ALTERNATE OFF IF !(MQ:RDSK) = 'Y' RELEASE MQ:RDSK,MQ:RFILE ENDIF RELEASE MQ:RLPT, MQ:RPT 'Y' .AND. !(MQ:RLPT) <> 'N' STORE 'Y' TO MQ:RLPT @ 21,10 SAY ' WANT REPORT SENT TO THE PRINTER? ' GET MQ:RLPT READ ENDDO STORE ' ' TO MQ:RDSK DO WHILE !(MQ:RDSK) <> 'Y' .AND. !(MQ:RDSK) <> 'N' STORE 'N' TO MQ:RDSK @ 21,10 SAY ' WANT REPORT SENT TO A FILE ? ' GET MQ:RDSK READ ENDDO IF !(MQ:RDSK)= 'Y' STORE ' ' TO MQ:RFILE DO WHILE MQ:RFILE = ' ' @ 22,10 SAY ' ENTER FILE NAME ' GET MQ:RFILE READ ENDDO STORE TRIM(MQ:RFILE) TO MQ:RFILE ENDIF RDSK STORE ' ' TO MQ:RPT DO WHILE MQ:RPT = ' ' @ 23,10 SAY ' ENTER REPORT NAME ' GET MQ:RPT READ ENDDO IF !(MQ:RLPT) = 'Y' @ 23,10 SAY ' PLEASE SET UP PRINTER ' SET CONSOLE OFF WAIT SET CONSOLE ON SET PRINT ON ENDIF RLPT IF !(MQ:RDSK) = 'Y' SET ALTERNATE TO &MQ:RFILE SET ALTERNATE ON ENDIF RDSK ERASE REPORT FORM &MQ:RPT SET PRINT OFF2.1 N) YYYYYYYYYBYMAIL YYYYY BYMAIL BYMAIL #N** O%;%>-|+YYYYY First Name: ;first > Last Name: ;last > Company Name: ;company > -------------------------------------------------------------------------------- Address: ;address > --------------------------------------------------------------------------------  City: ;city > State: ;st> Zip: ;zip > -------------------------------------------------------------------------------- Home Phone: ;home > Work Phone: ;work > -------------------------------------------------------------------------------- Comments: ;comments > -------------------------------------------------------------------------------- *** Please use all Caps!!! ***    firstF*NONE* *NONE* *NONE* *NONE* *last0*NONE* *NONE* *NONE* *NONE* *company$1*NONE* *NONE* *NONE* *NONE* *address5F*NONE* *NONE* *NONE* *NONE* *cityF*NONE* *NONE* *NONE* *NONE* *stF*NONE* *NONE* *NONE* *NONE* *zip F*NONE* *NONE* *NONE* *NONE* *home F*NONE* *NONE* *NONE* *NONE* *work F*NONE* *NONE* *NONE* *NONE* *commentsA F*NONE* *NONE* *NONE* *NONE* * * BYMAIL.VAL -VALIDATION PROGRAM BYMAIL DBFBYMAIL ED BYMAIL FAU BYMAIL GET) BYMAIL GO BYMAIL IO BYMAIL LBLBYMAIL NDXBYMAIL OUT BYMAIL PRNBYMAIL RPT  BYMAIL SCR!"#$BYMAIL $$$* BYMAIL.WS -WordStar PROGRAM STORE 0 TO MQ:CT STORE ' ' TO MQ:SLCT STORE 'Y' TO MQ:ANS STORE ' ' TO MQ:WDAT DO WHILE MQ:WDAT = ' ' @ 21,10 SAY ' NAME OF DATA FILE FOR WordStar ' GET MQ:WDAT READ ENDDO @ 21,10 @ 21,10 SAY ' DO YOU WISH TO dSCAN? ' GET MQ:ANS READ IF !(MQ:ANS)= 'Y' @ 21,10 @ 21,10 SAY ' PLEASE ENTER SELECTION CRITERIA ' @ 23,10 GET MQ:SLCT READ @ 23,10 ELSE STORE ' T ' TO MQ:SLCT ENDIF @ 23,10 STORE TRIM(MQ:WDAT) TO MQ:WDAT STORE MQ:WDAT+'.DOC' TO MQ:WDOC STORE MQ:WDAT+'.DAT' TO MQ:WDAT @ 22,10 SAY ' CREATING DOCUMENT FILE: '+MQ:WDOC SET CONSOLE OFF SET ALTERNATE TO &MQ:WDOC SET ALTERNATE ON ?'.OP' ?'.DF '+MQ:WDAT ?'.RV '+' first, last, company, address, city, st, zip, home, work, comments' SET ALTERNATE OFF SET CONSOLE ON @ 23,10 SAY ' CREATING DATA FILE: '+MQ:WDAT SET CONSOLE OFF SET ALTERNATE TO &MQ:WDAT SET ALTERNATE ON GOTO TOP * REPEAT UNTIL FILE ENDS DO WHILE .NOT. EOF IF &MQ:SLCT STORE MQ:CT+1 TO MQ:CT ? ?? CHR(34)+ TRIM(first) +CHR(34) +',' ?? CHR(34)+ TRIM(last) +CHR(34) +',' ?? CHR(34)+ TRIM(company) +CHR(34) +',' ?? CHR(34)+ TRIM(address) +CHR(34) +',' ?? CHR(34)+ TRIM(city) +CHR(34) +',' ?? CHR(34)+ TRIM(st) +CHR(34) +',' ?? CHR(34)+ TRIM(zip) +CHR(34) +',' ?? CHR(34)+ TRIM(home) +CHR(34) +',' ?? CHR(34)+ TRIM(work) +CHR(34) +',' ?? CHR(34)+ TRIM(comments) +CHR(34) ENDIF SKIP ENDDO SET CONSOLE ON @ 21,10 @ 22,10 @ 23,10 @ 23,10 SAY STR(MQ:CT,4)+ ' RECORDS WERE PLACED INTO DATA FILE ' GOTO TOP SET ALTERNATE OFF RELEASE MQ:WDAT,MQ:WDOC,MQ:ANS,MQ:SLCT,MQ:CT '+MQ:WDAT ?'.RV '+' first, last, company, address, city, st, zip, home, work, comments' SET ALTERNATE OFF SET CONSOLE ON @ 23,10 SAY ' CREATING DATA FILE: '+MQ:WDAT SET CONSOLE OFF SET ALTERNATE TO &MQ:WDAT SET ALTERNATE ON GOTO TOP * REPEAT UNT This is a general database list for a church. It was donated to our group by Ralph Shipp. This is quite a sophisticated program and could be used for any group or business. YOU REALLY NEED double (180K) density drives for this program. All the files on this disk should be put on a single disk along with the DBASE COM & OVR file. The disk should be SYSGENNED. The DISK is then put on DRIVE A: . On DRIVE B: put a cleanly formatted disk with the file FILE/5.DBF this is now on DISK 95. Type: DBASE When DBASE comes up Type: DO LOVE This command file will bring up this set of programs and menu's. It is easy for a non computer person to be able to use it in a few minutes. The file on drive B has demonstration data and should be replaced by your actual data. I think it is a very useful file use as a model for other programs such as inventory and card file databases. M.M. Hessel hink it is a very useful file use as a model for other programs such as inventory and card* * APP/DIR 8/23/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ? ' APPEND MENU (ADD NEW DATA TO FILE)' ? ' ----------------------------------' ? ? '(*) TYPE DATA INTO RECORD' ? ? '(*) YOU WILL GO TO NEXT RECORD' ? ? '(*) CONTINUE TYPING DATA IN --OR--' ? ? '(*) STEP THROUGH RECORD AND YOU WILL GO BACK' ? ' TO MAIN MENU' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE:' ? ? '===============================================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF ERASE ? '===============================================' ? ? 'IN THIS MODE YOU CAN USE THE (CARRY) COMMAND' ? ? 'This will carry-over data from previous' ? ? 'record to save on repetitious typing.' ? ? 'NOTE: YOU MUST TYPE NEW DATA IN 1 ST.FIELD OR' ? '==== I WILL THINK YOU ARE THROUGH !!' ? ? ' 1 = CARRY MODE' ? ? ' 2 = DO NOT USE CARRY MODE' ? ? 'ENTER ONE OF THE ABOVE:' ? ? '==============================================' WAIT TO CARRY DO CASE CASE CARRY='1' SET CARRY ON OTHERWISE SET CARRY OFF ENDCASE USE B:&FILE APPE USE DO MENU * THE END -- APP/DIR * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                          above numbers:' ? ? '===============================================' ACCEPT ' ' TO ASK STORE 'FILE/1' TO FILE DO CASE CASE ASK = '1' DO HOLD CASE ASK = '2' DO HOLD CASE ASK = '3' DO CON/NUM CASE ASK = '4' DO APP/DIR CASE ASK ===R CASE ASK ===O LN1 * * CHE/DUP 8/23/83 BY RALPH SHIPP (460-9353) ERASE ? '===============================================' ? ? ? 'CHECK FOR DUPLICATE RECORD ENTRIES IN FILE' ? '------------------------------------------' ? ? ? ? ? 'NOTE: ON THE NEXT SCREEN USE # 1 TO INDEX FILE' ? '==== BY FAMILY NAME CODE FOR THIS CHECK !!!' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '==============================================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF DO INDEX USE B:&FILE INDEX A:&IFILE DO WHILE.NOT.EOF IF * SKIP LOOP ENDIF STORE ' ' TO MCODEF1 STORE ' ' TO MCODEF2 STORE CODEF TO MCODEF1 SKIP STORE T TO CHECK DO WHILE CHECK.AND..NOT.EOF IF * SKIP LOOP ELSE STORE F TO CHECK LOOP ENDIF ENDDO STORE CODEF TO MCODEF2 IF "&MCODEF1"<>"&MCODEF2" LOOP ELSE SKIP-1 STORE ' ' TO MRECORD1 STORE ' ' TO MNAMEL1 STORE ' ' TO MNMAEF1 STORE ' ' TO MPHONE1 STORE ' ' TO MCODES1 STORE ' ' TO MYEAR1 STORE ' ' TO MSTREET1 STORE ' ' TO MCITY1 STORE ' ' TO MSTATE1 STORE ' ' TO MZIP1 STORE ' ' TO MMAP1 STORE STR(#,4) TO MRECORD1 STORE NAMEL TO MNAMEL1 STORE NAMEF TO MNAMEF1 STORE PHONE TO MPHONE1 STORE CODES TO MCODES1 STORE YEAR TO MYEAR1 STORE STREET TO MSTREET1 STORE CITY TO MCITY1 STORE STATE TO MSTATE1 STORE ZIP TO MZIP1 STORE MAP TO MMAP1 SKIP STORE ' ' TO MRECORD2 STORE ' ' TO MANMEL2 STORE ' ' TO MNAMEF2 STORE ' ' TO MPHONE2 STORE ' ' TO MCODES2 STORE ' ' TO MYEAR2 STORE ' ' TO MSTREET2 STORE ' ' TO MCITY2 STORE ' ' TO MSTATE2 STORE ' ' TO MZIP2 STORE ' ' TO MMAP2 STORE STR(#,4) TO MRECORD2 STORE NAMEL TO MNAMEL2 STORE NAMEF TO MNAMEF2 STORE PHONE TO MPHONE2 STORE CODES TO MCODES2 STORE YEAR TO MYEAR2 STORE STREET TO MSTREET2 STORE CITY TO MCITY2 STORE STATE TO MSTATE2 STORE ZIP TO MZIP2 STORE MAP TO MMAP2 ERASE @ 1, 3 SAY "&MNAMEL1" @ 1,27 SAY "&MNAMEL2" @ 2, 3 SAY "&MNAMEF1" @ 2,27 SAY "&MNAMEF2" @ 3, 3 SAY "&MPHONE1" @ 3,27 SAY "&MPH ONE2" @ 4, 3 SAY "&MCODEF1" @ 4,27 SAY "&MCODEF2" @ 5, 3 SAY "&MCODES1" @ 5,27 SAY "&MCODES2" @ 6, 3 SAY "&MYEAR1" @ 6,27 SAY "&MYEAR2" @ 7, 3 SAY "&MSTREET1" @ 7,27 SAY "&MSTREET2" @ 8, 3 SAY "&MCITY1" @ 8,27 SAY "&MCITY2" @ 9, 3 SAY "&MSTATE1" @ 9,27 SAY "&MSTATE2" @ 10, 3 SAY "&MZIP1" @ 10,27 SAY "&MZIP2" @ 11, 3 SAY "&MMAP1" @ 11,27 SAY "&MMAP2" @ 13, 3 SAY "* &MRECORD1" @ 13,27 SAY "* &MRECORD2" @ 14, 3 SAY " ========" @ 14,27 SAY " ========" @ 16, 3 SAY "* WRITE DOWN THE ABOVE RECORD NUMBERS" @ 17, 3 SAY " ONE OF WHICH WILL BE DELETED LATER" @ 18, 3 SAY " AND/OR FIXED IN THE FILE BY YOU !" @ 20, 3 SAY " PRESS ANY KEY TO CONTINUE WITH THIS CHECK." @ 21, 3 SAY " ============================================ " @ 22, 3 SAY " " WAIT SKIP ENDIF ENDDO ERASE ? '================================================' ? ? ? 'THIS IS THE END OF THIS CHECK. I WILL NOW GOTO' ? ? 'TO THE MAIN MENU WHERE YOU CAN SELECT # 5 ' ? ? 'EDIT MODE -- TO DO YOUR THING !!!' ? ? 'HAVE A NICE DAY -- NOW.' ? '-----------------------' ? ? 'PRESS ANY KEY TO CONTINUE' ? ? '===============================================' WAIT DO MENU * THE END -- CHE/DUP * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE STORE YEAR TO MYEAR2 STORE STREET TO MSTREETSTORE STR(PAGE STORE YEAR TO MYEAR2 STORE STREET TO MSTREET * CHE/DUP 8/23/83 BY RALPH SHIPP (460-9353) ERASE ? '===============================================' ? ? ? 'CHECK FOR DUPLICATE RECORD ENTRIES IN FILE' ? '------------------------------------------' ? ? ? ? ? 'NOTE: ON THE NEXT SCREEN USE # 1 TO INDEX FILE' ? '==== BY FAMILY NAME CODE FOR THIS CHECK !!!' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '==============================================' WAIT TO TEMP IF TEMP='/' USE DOSTORE STR(PAGE STORE YEAR TO MYEAR2 STORE STREET TO MSTREET* * COD/LIS 7/16/83 BY R. SHIPP (460-9353) ERASE ? 'CODE LETTERS ARE AS FOLLOWS:' ? ? ' A = ADMINISTRATIVE BOARD' ? ? ' C = COUNCIL OF MINISTRIES' ? ? ' D = DIRECTORY LIST' ? ? ' I = HOLD' ? ? ' L = HOLD' ? ? ' M = MEMBERS' ? ? ' N = NEW ENTRY' ? ? ' X = HOLD' ? ? ' Y = HOLD' ? RETURN * THE END -- COD/LIS * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                          CODEN SET PRINT OFF SKAAAAAIVE D' ? ? ' 9. FILE MAINTAIN (MUST USE DISK # 412)' ? ? ' 0. SHUT DOWN S* * COD/SEL 8/23/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? 'DO YOU WANT TO USE SELECTIVE PRINTING' ? ? '1 = SELECTIVE PRINTING' ? ? ' USE THE CODES IN THE DATABASE TO SELECT' ? ' A SET OF RECORDS TO BE PRINTED.' ? ? ' YOU WILL BE ASKED TO ENTER UP TO SIX LETTERS' ? ' WHICH WILL BE THE CODES USED TO FIND RECORDS' ? ? ? '2 = ALL RECORDS NOW IN FILE' ? ? '/ = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '===============================================' WAIT TO SEL STORE '0' TO C1 STORE '0' TO C2 STORE '0' TO C3 STORE '0' TO C4 STORE '0' TO C5 STORE '0' TO C6 DO CASE CASE SEL='2' STORE F TO CHECKING RETURN CASE SEL='/' USE DO MENU ENDCASE STORE T TO CHECKING STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 1ST. LETTER ' ? '============================================' WAIT TO C1 DO CASE CASE C1 $ LETTERS STORE F TO TEST OTHERWISE DO NOGOOD LOOP ENDCAS E LOOP ENDDO STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 2ND. LETTER -OR- 0 FOR NONE & STOP' ? '=============================================' WAIT TO C2 IF C2='0' ELSE DO CASE CASE C2 $ LETTERS STORE F TO TEST OTHERWISE DO NOGOOD LOOP ENDCASE LOOP ENDDO STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 3RD. LETTER -OR- 0 FOR NONE & STOP' ? '=============================================' WAIT TO C3 IF C3='0' ELSE DO CASE CASE C3 $ LETTERS STORE F TO TEST OTHERWISE DO NOGOOD LOOP ENDCASE LOOP ENDDO STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 4TH. LETTER -OR- 0 FOR NONE & STOP' ? '=============================================' WAIT TO C4 IF C4='0' ELSE DO CASE CASE C4 $ LETTERS STORE F TO TEST OTHERWISE DO NOGOOD LOOP ENDCASE LOOP ENDDO STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 5TH. LETTER -OR- 0 FOR NONE & STOP' ? '=============================================' WAIT TO C5 IF C5='0' ELSE DO CASE CASE C5 $ LETTERS STORE F TO TEST OTHERWISE DO NOGOOD LOOP ENDCASE LOOP ENDDO STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 6TH. LETTER -OR- 0 FOR NONE & STOP' ? '=============================================' WAIT TO C6 IF C6='0' ELSE DO CASE CASE C6 $ LETTERS STORE F TO TEST OTHERWISE DO NOGOOD LOOP ENDCASE LOOP ENDDO ENDIF RETURN * THE END -- COD/SEL * HERWISE DO NOGOOD LOOP ENDCASE LOOP ENDDO STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 4TH. LETTER -OR- 0 FOR NONE & STOP' ? '=============================================' WAIT TO C4 IF C4='0' ELSE DO CASE CASE C4 $ LETTERS STORE F TO TEST OTHERWISE DO NOGOOD LOOP ENDCASE LOOP ENDDO STORE T TO TEST DO WHILE TEST DO CODLIS ? 'ENTER YOUR 5TH. LETTER -OR- 0 FOR NONE & STOP' ? '=============================================' WAIT TO C5 IF C5='0' ELSE DO CASE CASE C* * COP/SHO 8/23/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' COPY MENU (MAKE A BACKUP DISK)' ? ' ------------------------------' ? ? '(*) ATER COPY PROGRAM IS BOOTED UP' ? ? '(*) FOLLOW THE INSTRUCTIONS IN PROGRAM' ? ? '(*) AFTER YOU EXIT TO A< THEN TYPE DBASE' ? ? '(*) ADD THE DATE BACK IN' ? ? '(*) THEN TYPE ( DO MENU )' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '===============================================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF QUIT TO 'COPY' DO MENU * THE END -- COP/SHO * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                          above numbers:' ? ? '===============================================' ACCEPT ' ' TO ASK STORE 'FILE/1' TO FILE DO CASE CASE ASK = '1' DO HOLD CASE ASK = '2' DO HOLD CASE ASK = '3' DO CON/NUM CASE ASK = '4' DO APP/DIR CASE ASK = '5' DO EDI/DIR CASE ASK = '6' DO LIS/FIL CTROL (U) TO DELETww========================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF QUIT TO 'COPY' DO MENU * THE END -- COP/SHO * * * DEL/ADD 8/23/83 BY R. SHIPP (460-9353) USE ERASE ? '===============================================' ? ? ' ENTER NEW DATA OVER DELETED RECORD ' ? ' ----------------------------------' ? ? '(*) TYPE NEW DATA INTO RECORD ' ? ? ' OVER OLD DATA NOW IN FILE' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '===============================================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF STORE T TO LOOKING USE B:&FILE GO TOP DO WHILE LOOKING IF * STORE STR(#,4) TO RECORD ERASE ? '==============================================' ? ? 'I FOUND A DELETED RECORD TO BE USED.' ? ? 'AFTER YOU HAVE REACHED THE RECORD TO BE REUSED.' ? 'DO THE FOLLOWING ' ? ? ' 1. CONTROL U TO UNDELETE THE RECORD.' ? ? ' 2. ADD NEW DATA OVER EXISTING DATA.' ? ? ' 3. CONTROL W TO EXIT TO RECORD ASKED.' ? ? 'NOTE: (*)RETURN ONLY CONTINUE TO CHECK FOR NEXT' ? ' DELETE RECORD.' ? ' (*)ENTER THE RECORD NUMBER BELOW TO GO' ? ' INTO EDIT MODE. *** RECORD # = '+RECORD ? ' (*)ENTER / TO EXIT TO MAIN MENU' ? ? '=============================================' ACCEPT ' ' TO TOBE DO CASE CASE TOBE = '/' USE DO MENU ENDCASE IF TOBE = ' ' SKIP IF EOF STORE F TO LOOKING LOOP ENDIF LOOP ENDIF ELSE SKIP IF EOF STORE F TO LOOKING LOOP ENDIF LOOP ENDIF GOTO &RECORD EDIT ENDDO ERASE ? '===============================================' ? ? 'THERE ARE NO DELETED RECORDS NOW IN THIS FILE' ? ? ' USE THE APPEND MODE (# 4 ON MENU)' ? ? ' TO ADD NEW DATA.' ? ? 'PRESS ANY KEY TO CONTINUE' ? ? '===============================================' WAIT USE DO MENU * THE END -- DEL/ADD * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                           REM2 WITH MREM2 T WITH0-9353) USE ERASE ? '===============================================' ? ? ' ENTER NEW DATA OVER DEE RECORD.' ? ' O &RECORD EDIT ENDDO ERASE ? '===============================================' ? ? 'THERE ARE NO DELETED RECORDS NOW IN THIS FILE' ? ? ' USE THE APPEND MODE (# 4 ON MENU)' ? ? ' TO ADD NEW DATA.' ? ? 'PRESS ANY KEY TO CONTINUE' ? ? '===============================================' WAIT USE DO MENU * THE END -- DEL/ADD * * * DUM/CAR 7/18/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' PRINT FILE ON 3 X 5 CARDS' ? ' -------------------------' DO INDEX USE B:&FILE INDEX A:&IFILE DO CODSEL STORE STR(#,4) TO RECORD STORE (0) TO COUNT SET MARGIN TO 1 DO WHILE.NOT.EOF IF * SKIP LOOP ENDIF STORE ' ' TO MNAMEL STORE ' ' TO MNAMEF STORE ' ' TO MCODEF STORE ' ' TO MCODES STORE ' ' TO YEAR STORE ' ' TO MSTREET STORE ' ' TO MCITY STORE ' ' TO MSTATE STORE ' ' TO MZIP STORE ' ' TO MPHONE STORE ' ' TO MMAP IF CHECKING = T STORE T TO CHECK ELSE STORE F TO CHECK ENDIF DO WHILE CHECK .OR. EOF STORE ' ' TO CC1 STORE ' ' TO CC2 STORE ' ' TO CC3 STORE ' ' TO CC4 STORE ' ' TO CC5 STORE ' ' TO CC6 STORE ($(CODES,1,1)) TO CC1 STORE ($(CODES,2,1)) TO CC2 STORE ($(CODES,3,1)) TO CC3 STORE ($(CODES,4,1)) TO CC4 STORE ($(CODES,5,1)) TO CC5 STORE ($(CODES,6,1)) TO CC6 DO CASE CASE C1 $ CODES CASE C2 $ CODES CASE C3 $ CODES CASE C4 $ CODES CASE C5 $ CODES CASE C6 $ CODES OTHERWISE SKIP LOOP ENDCASE STORE F TO CHECK ENDDO STORE STR(#,4) TO RECORD STORE NAMEL TO MNAMEL STORE NAMEF TO MNAMEF STORE CODEF TO MCODEF STORE CODES TO MCODES STORE YEAR TO MYEAR STORE STREET TO MSTREET STORE CITY TO MCITY STORE STATE TO MSTATE STORE ZIP TO MZIP STORE PHONE TO MPHONE STORE MAP TO MMAP SET PRINT ON ? MNAMEL+' , '+MNAMEF+' '+MPHONE ? '================================================' ? ? MSTREET ? ? MCITY ? ? MSTATE+' , '+MZIP ? ? MCODEF+' '+CODES+' '+MMAP+' '+YEAR ? ? 'DATE = '+DATE()+' REC. # = '+STR(#,4) ? ? ? ? ? ? SET PRINT OFF SKIP STORE (COUNT+1) TO COUNT ENDDO SET PRINT ON ? '--------------------------------------------------------------------' ? ' TOTAL NUMBER OF CARDS PRINTED = '+STR(COUNT,4) ? SET PRINT OFF DO MENU * THE END -- DUM/CAR * * * DUM/LAB 8/24/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' DUMP FILE ONTO LABELS' ? ' ---------------------' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '==============================================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF DO INDEX DO LABTES USE B:&FILE INDEX A:&IFILE DO CODSEL STORE STR(#,4) TO RECORD STORE 0 TO COUNT SET MARGIN TO 1 DO WHILE.NOT.EOF SET PRINT OFF STORE ' ' TO MNAMEL1 STORE ' ' TO MNAMEF1 STORE ' ' TO MPHONE1 STORE ' ' TO MCODEF1 STORE ' ' TO MCODES1 STORE ' ' TO MYEAR1 STORE ' ' TO MSTREET1 STORE ' ' TO MCITY1 STORE ' ' TO MSTATE1 STORE ' ' TO MZIP1 STORE ' ' TO MMAP1 STORE ' ' TO L11 STORE ' ' TO L21 STORE ' ' TO L31 STORE ' ' TO L41 IF * SKIP LOOP ENDIF IF CHECKING = T STORE T TO CHECK ELSE STORE F TO CHECK ENDIF DO WHILE CHECK DO CASE CASE C1 $ CODES CASE C2 $ CODES CASE C3 $ CODES CASE C4 $ CODES CASE C5 $ CODES CASE C6 $ CODES OTHERWISE SKIP IF EOF STORE' 'TO MNAMEL1 STORE' 'TO MNAMEF1 STORE' 'TO MPHONE1 STORE' 'TO MCODEF1 STORE' 'TO MCODES1 STORE' 'TO MYEAR1 STORE' 'TO MSTREET1 STORE' 'TO MCITY1 STORE' 'TO MSTATE1 STORE' 'TO MZIP1 STORE' 'TO MMAP1 ELSE LOOP ENDCASE ENDIF STORE F TO CHECK ENDDO STORE STR(#,4) TO RECORD1 STORE (COUNT+1) TO COUNT STORE NAMEL TO MNAMEL1 STORE NAMEF TO MNAMEF1 STORE PHONE TO MPHONE1 STORE CODEF TO MCODEF1 STORE CODES TO MCODES1 STORE YEAR TO MYEAR1 STORE STREET TO MSTREET1 STORE CITY TO MCITY1 STORE STATE TO MSTATE1 STORE ZIP TO MZIP1 STORE MAP TO MMAP1 STORE (MNAMEL1+', '+MNAMEF1) TO L11 DO WHILE LEN(L11)<34 STORE (L11+' ') TO L11 LOOP ENDDO STORE (MSTREET1+' '+MCODEF1) TO L21 DO WHILE LEN(L21)<34 STORE (L21+' ') TO L21 LOOP ENDDO STORE (MCITY1+' , '+MSTATE1+' '+MZIP1) TO L31 DO WHILE LEN(L31)<34 STORE (L31+' ') TO L31 LOOP ENDDO STORE (MPHONE1+' '+MCODES1+' '+MMAP1+' '+STR(#,4)) TO L41 DO WHILE LEN(L41)<34 STORE (L41+' ') TO L41 LOOP ENDDO SKIP STORE ' ' TO MNAMEL2 STORE ' ' TO MNAMEF2 STORE ' ' TO MPHONE2 STORE ' ' TO MCODEF2 STORE ' ' TO MCODES2 STORE ' ' TO MYEAR2 STORE ' ' TO MSTREET2 STORE ' ' TO MCITY2 STORE ' ' TO MSTATE2 STORE ' ' TO MZIP2 STORE ' ' TO MMAP2 IF * SKIP LOOP ENDIF IF CHECKING = T STORE T TO CHECK ELSE STORE F TO CHECK ENDIF DO WHILE CHECK DO CASE CASE C1 $ CODES CASE C2 $ CODES CASE C3 $ CODES CASE C4 $ CODES CASE C5 $ CODES CASE C6 $ CODES OTHERWISE SKIP IF EOF STORE' 'TO MNAMEL2 STORE' 'TO MNAMEF2 STORE' 'TO MPHONE2 STORE' 'TO MCODEF2 STORE' 'TO MCODES2 STORE' 'TO MYEAR2 STORE' 'TO MSTREET2 STORE' 'TO MCITY2 STORE' 'TO MSTATE2 STORE' 'TO MZIP2 STORE' 'TO MMAP2 ELSE LOOP ENDCASE ENDIF STORE F TO CHECK ENDDO STORE STR(#,4) TO RECORD2 STORE (COUNT+1) TO COUNT STORE NAMEL TO MNAMEL2 STORE NAMEF TO MNAMEF2 STORE PHONE TO MPHONE2 STORE CODEF TO MCODEF2 STORE CODES TO MCODES2  STORE YEAR TO MYEAR STORE STREET TO MSTREET2 STORE CITY TO MCITY2 STORE STATE TO MSTATE2 STORE ZIP TO MZIP2 STORE MAP TO MMAP2 STORE (MNAMEL2+', '+MNAMEF2) TO L12 STORE (MSTREET2+' '+MCODEF2) TO L22 STORE (MCITY2+' , '+MSTATE2+' '+MZIP2) TO L32 STORE (MPHONE2+' '+MCODES2+' '+MMAP2+' '+STR(#,4)) TO L42 SET PRINT ON ? L11+' '+L12 ? L21+' '+L22 ? L31+' '+L32 ? L41+' '+L42 ? ? SET PRINT OFF SKIP ENDDO USE SET PRINT ON ? 'DATE = '+DATE()+' TOTAL LABELS='+STR(COUNT,4) ? LN1 ? LN2 ? LN3 ? LN4 ? SET PRINT OFF DO MENU * THE END -- DUM/LAB * ORE' 'TO MCODEF2 STORE' 'TO MCODES2 STORE' 'TO MYEAR2 STORE' 'TO MSTREET2 STORE' 'TO MCITY2 STORE' 'TO MSTATE2 STORE' 'TO MZIP2 STORE' 'TO MMAP2 ELSE LOOP ENDCASE ENDIF STORE F TO CHECK ENDDO STORE STR(#,4) TO RECORD2 STORE (COUNT+1) TO COUNT STORE NAMEL TO MNAMEL2 STORE NAMEF TO MNAMEF2 STORE PHONE TO MPHONE2 STORE CODEF TO MCODEF2 STORE CODES TO MCODES2 * * DUM/PAP 7/18/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' PRINT FILE ON 8 1/2 X 11 PAPER' ? ' ------------------------------' DO INDEX USE B:&FILE INDEX A:&IFILE DO CODSEL STORE STR(#,4) TO RECORD STORE (0) TO COUNT STORE (60) TO COUNTER STORE (1) TO PAGE STORE T TO LAST STORE "CODEF" TO MY SET PRINT ON ? CHR(27)+CHR(81) * SET PRINTER TO CONDENSED PRINT FOR THIS PROGRAM SET PRINT OFF SET MARGIN TO 14 STORE 'GLENMONT UNITED METHODIST CHURCH PRINTOUT' TO TITLE SET PRINT ON ? TITLE+' DATE = '+DATE()+' PAGE # 1' ? ' CODES USED = '+; C1+' '+C2+' '+C3+' '+C4+' '+C5+' '+C6 DO WHILE.NOT.EOF SET PRINT OFF STORE ' ' TO MNAMEL STORE ' ' TO MNAMEF STORE ' ' TO MCODEF STORE ' ' TO MCODES STORE ' ' TO YEAR STORE ' ' TO MSTREET STORE ' ' TO MCITY STORE ' ' TO MSTATE STORE ' ' TO MZIP STORE ' ' TO MPHONE STORE ' ' TO MMAP STORE "&RECN" TO RECH STORE ' ' TO RECN IF * SKIP LOOP ENDIF IF CHECKING = T STORE T TO CHECK ELSE STORE F TO CHECK ENDIF DO WHILE CHECK STORE ' ' TO CC1 STORE ' ' TO CC2 STORE ' ' TO CC3 STORE ' ' TO CC4 STORE ' ' TO CC5 STORE ' ' TO CC6 STORE ($(CODES,1,1)) TO CC1 STORE ($(CODES,2,1)) TO CC2 STORE ($(CODES,3,1)) TO CC3 STORE ($(CODES,4,1)) TO CC4 STORE ($(CODES,5,1)) TO CC5 STORE ($(CODES,6,1)) TO CC6 DO CASE CASE C1 $ CODES CASE C2 $ CODES CASE C3 $ CODES CASE C4 $ CODES CASE C5 $ CODES CASE C6 $ CODES OTHERWISE SKIP IF EOF STORE F TO CHECK STORE F TO LAST ENDIF LOOP ENDCASE STORE F TO CHECK ENDDO IF LAST = T STORE STR(#,4) TO RECORD STORE NAMEL TO MNAMEL STORE NAMEF TO MNAMEF STORE CODEF TO MCODEF STORE CODES TO MCODES STORE YEAR TO MYEAR STORE ($(&MY,1,6)) TO RECN IF "&RECN" <> "&RECH" STORE STREET TO MSTREET STORE CITY TO MCITY STORE STATE TO MSTATE STORE ZIP TO MZIP STORE PHONE TO MPHONE STORE MAP TO MMAP ENDIF SET PRINT ON ? MNAMEL+' '+MNAMEF+' '+MPHONE+' '+MCODEF+' '+MCODES+' '+MYEAR+' '+; MSTREET+' '+MCITY+' '+MSTATE+' '+MZIP+' '+MMAP+' '+STR(#,4) SET PRINT OFF SKIP STORE (COUNTER-1) TO COUNTER STORE (COUNT+1) TO COUNT IF COUNTER = 0 STORE (1+PAGE) TO PAGE SET PRINT ON ? '-----------------------------------------------------------------------' ? ? ? ? TITLE+' DATE = '+DATE()+' PAGE # '+STR(PAGE,4) ? ' CODES USED = '+; C1+' '+C2+' '+C3+' '+C4+' '+C5+' '+C6 SET PRINT OFF STORE (60) TO COUNTER ENDIF ENDIF ENDDO SET PRINT ON ? '--------------------------------------------------------------------' ? ' TOTAL NUMBER OF RECORDS PRINTED = '+STR(COUNT,4) ? ? CHR(27)+CHR(78) * SET PRINTER BACK TO NORMAL PRINT SET PRINT OFF DO MENU * THE END -- DUM/PAP * * * EDI/DIR 8/11/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' EDIT DATA MENU ' ? ' --------------' ? ? '(*) TYPE DATA TO BE CHANGED INTO RECORD ' ? ? '(*) TYPE CTRL. (W) TO GET PROMPT AGAIN' ? ' (ENTER RECORD)' ? ? '(*) TYPE RECORD # TO CONTINUE --OR--' ? ' RETURN KEY TO EXIT BACK TO MAIN MENU' ? ? '(*) TYPE CTRL. (U) TO DELETE A RECORD' ? ' -OR- WHEH RECORD IS DELETED' ? ' CTRL. (U) WILL UNDELETE' ? ? ' ENTER:' ? ' 1 TO CONTINUE' ? ? ' / EXIT BACK TO MAIN MENU' ? ? '===============================================' WAIT TO EXIT DO CASE CASE EXIT = '/' USE DO MENU ENDCASE USE B:&FILE ERASE EDIT USE DO MENU * THE END -- EDI/DIR * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                          ' ? ? ' Enter one of the above numbers:' ? ? '===============================================' ACCEPT ' ' TO ASK STORE 'FILE/1' TO FILE DO CASE CASE ASK = '1' DO HOLD CASE ASK = '2' DO HOLD CASE ASK = '3' DO CON/NU00871-2222Bought'78 $100K VA 8% ====' ? ? ' EDIT DATA MENU ' ? ' --------------' ? ? '(*) TYPE DATA TO BE CHANGED INTO RECORD ' ? ? '(*) TYPE CTRL. (W) TO GET PROMPT AGAIN' ? ' (ENTER RECORD)' ? ? '(*) TYPE RECORD # TO CONTINUE --OR--' ? ' RETURN KEY TO EXIT BACK TO MAIN MENU' ? ? '(*) TYPE CTRL. (U) TO DELETE A RECORD' ? ' -OR- WHEH RECORD IS DELETED' ? ' CTRL. (U) WILL UNDELETE' ? ? 'PRESS ANY KOgNAMELC lNAMEFC lPHONEClCODEFClCODESClYEARClSTREETCmCITYCmSTATEC'mZIPC )mMAPC2m 111111111111111111111111111111111111111C11111111111111111111111111111111111111111111111111111111111111 222222222222222222222222222222222222222C22222222222222222222222222222222222222222222222222222222222222 MOORE KAYRAN 774-0115MOOR15-2DLNAXY 16805 GEO WASHINGTON DRROCKVILLE MD20853 24J4 ABBOTT KATHERINE 460-7319ABBO19-1MAXLY. 14643 BAUER DR #205 ROCKVILLE MD20853 24F12 ABBOTT THOMAS 774-0731ABBO31-1DXYLAL 3609 CHERRY VALLEY DR OLNEY MD20832 25A3 ABBOTT BARBARA SUE774-0731ABBO31-2IMNLCD 3609 CHERRY VALLEY DR OLNEY MD20832 25A3 ADAMS WALLACE E 946-1615ADAM15-1MD.LSE 13120 FERNEDGE RD SIL. SPG. MD20906 33C2 ADAMS BETTY LOU 946-1615ADAM15-2MAXVN. 13120 FERNEDGE RD SIL. SPG. MD20906 33C2 ADAMS ROBERT 871-7347ADAM47-1MSDLMN214102 SOUTHEND RD ROCKVILLE MD20853 24K13 ADAMS NANCY 871-7347ADAM47-2M.....324102 SOUTHEND RD ROCKVILLE MD20853 24K13 ADAMS LINDA 871-7347ADAM47-3......674102 SOUTHEND RD ROCKVILLE MD20853 24K13 ADAMS JEFFREY 251-0783ADAM83-1D..L.. 1106 EDMONSTON DR ROCKVILLE MD20851 32C2 ADAMS SUZANNE 251-0783ADAM83-2M.....571106 EDMONSTON DR ROCKVILLE MD20851 32C2 ADKINS JAMES 949-0670ADKI70-1M..L..332820 HENDERSON CT SIL. SPG. MD20902 33C6 ADKINS DOROTHY 949-0670ADKI70-2M.....312820 HENDERSON CT SIL. SPG.  MD20902 33C6 ADKINS SHERYL 949-0670ADKI70-3M.....572820 HENDERSON CT SIL. SPG. MD20902 33C6 ADKINS JAMES JR 949-0670ADKI70-4......592820 HENDERSON CT SIL. SPG. MD20902 33C6 ALBERT ERNEST E 946-7953ALBE53-1M..L.. 9711 STONEYBROOK DR KENSINGTON MD20895 33C13 ALBERT ELEANOR 946-7953ALBE53-2...... 9711 STONEYBROOK DR KENSINGTON MD20895 33C13 MILLER SUSAN 9770168 MILL68-2M.....627520 INDIAN HILLS DR ROCKVILLE MD20855 23J7 ALBERT MICHAEL 946-7953ALBE53-3M.....649711 STONEYBROOK DR KENSINGTON MD20895 33C13 ALBERT STEPHANIE 946-7953ALBE53-4MA....669711 STONEYBROOK DR KENSINGTON MD20895 33C13 ALBERT MICHELLE 946-7953ALBE53-5...... 9711 STONEYBROOK DR KENSINGTON MD20895 33C13 ALLEN HAROLD 946-8567ALLE67-1M..L.. 3707 LEVERTON DR SIL. SPG. MD20906 33A3 ALLEN PRISCILLA 946-8567ALLE67-2M..... 3707 LEVERTON DR SIL. SPG. MD20906 33A3 ALLEN STANLEYPAUL949-8273ALLE73-1M..L.. 12710 HELEN RD SIL. SPG. MD20906 32K4 ALLEN JOAN 949-8273ALLE73-2M..... 12710 HELEN RD SIL. SPG. MD20906 32K4 ALLEN JANICE 949-8273ALLE73-?...... 12710 HELEN RD SIL. SPG. MD20906 32K4 ALLEN LINDA 949-8273ALLE73-?...... 12710 HELEN RD SIL. SPG. MD20906 32K4 ALLEN REID 946-9077ALLE77-1MA.L.. 3411 JANET RD SIL. SPG. MD20906 33C3 ALLEN THOMAS 946-9077ALLE77-2......533411 JANET RD SIL. SPG. MD20906 33C3 ALLEN WENDY ALLE??-?M..L.. %3612 TARKINGTON LA SIL. SPG. MD20906 ALMACY DAVID 593-5768ALMA68-1M..L.. 212 NORTHMOOR DR SIL. SPR. MD20901 34B11 ALTHAUS THOMAS 946-6854ALTH54-1D..L.. 3933 ISBELL ST SIL. SPG. MD20906 32K4 AMICK DIANA 774-5316AMIC16-1M..L.. 3373 TIDEWATER DR OLNEY MD20832 16B13 ANDERSEN ADRIENNE 622-5865ANDE65-1M..L..651913 TREE TOP LA #22 SIL. SPG. MD20904 34F5 ANDERSEN NEIL 622-5865ANDE65-1M..L..611913 TREE TOP LA #22 SIL. SPG. MD20904 34F5 ANDERSEN, STEPHEN 649-3877ANDE77-1M..L..5511704 OREBAUGH AV SIL. SPG. MD20902 33G7 ANDERSEN, LESLIE 649-3877ANDE77-2M.....5211704 OREBAUGH AV SIL. SPG. MD20902 33G7 ANDERSEN, KIRK 649-3877ANDE77-3...... 11704 OREBAUGH AV SIL. SPG. MD20902 33G7 ANDERSEN, ERIK 649-3877ANDE77-4...... 11704 OREBAUGH AV SIL. SPG. MD20902 33G7 ANGUS EARL H 942-6171ANGU71-1M..L.. 3316 ESTELLE TER SIL. SPG. MD20906 33B3 ANGUS VIRGINIA 942-6171ANGU71-2M..... 3316 ESTELLE TER SIL. SPG. MD20906 33B3 ANGUS KEVIN 942-6171ANGU71-3M.....583316 ESTELLE TER SIL. SPG. MD20906 33B3 ARENA FREDERICK J977-0092AREN92-1D..L.. 429 MUDDY BR RD #301 GAITHERSBURG MD20878 23A5 ARENA DEBRA 977-0092AREN92-2M..... 429 MUDDY BR RD #301 GAITHERSBURG MD20878 23A5 ARMENTROUT R DAYTON LONGDISTARMEST-1M..L.. PO BOX 175 FRANKLIN WV26807 N/A ARMENTROUT OLIVE D LONGDISTARMEST-2M..... PO BOX 175 FRANKLIN WV26807 N/A ARMSTRONG JOE 384-0728ARMS28-1D..L.. 1600 NORTHCREST DR SIL. SPG. MD20904 34E2 ARMSTRONG MARY LOU 384-0728ARMS28-2...... 1600 NORTHCREST DR SIL. SPG. MD20904 34E2 ARMSTRONG KERRY 384-0728ARMS28-4M.....671600 NORTHCREST DR SIL. SPG. MD20904 34E2 ARMSTRONG JAMES 384-0728ARMS28-3M.....661600 NORTHCREST DR SIL. SPG. MD20904 34E2 ARMSTRONG ROBERTA 460-6944ARMS44-1M..L.. 14209 GRAND PRE RD #104SIL. SPG. MD20906 25A12 ARMSTRONG TIMOTHY 460-6944ARMS44-2......6614209 GRAND PRE RD #104SIL. SPG. MD20906 25A12 ARMSTRONG MARK 770-2683ARMS83-1M..L..5112010 GALENA RD ROCKVILLE MD20852 32H5 BACHANT JAMES E 953-7282BACH82-1D..L.. 9835 WHISKEY RUN LAUREL MD20707 N/A BACHANT CRYSTAL 953-7282BACH82-2M.....619835 WHISKEY RUN LAUREL MD20707 N/A BAGLIEN DONALD BAGL??-1D..L.. UNKNOWN BAGLIEN BARBARA J BAGL??-2M..... UNKNOWN BAINBRIDGE EUGENE H 942-7531BAIN31-1M..L.. 2704 LINDELL ST SIL. SPG. MD20902 33D5 BAINBRIDGE SHIRLEY 942-7531BAIN31-2M..... 2704 LINDELL ST SIL. SPG. MD20902 33D5 BAINBRIDGE JEFFREY 942-7531BAIN31-3......612704 LINDELL ST SIL. SPG. MD20902 33D5 BAINS ROBERT L 871-7095BAIN95-1M..L.. 14105 LONDON LA ROCKVILLE MD20853 24K12 BAINS ANN 871-7095BAIN95-2...... 14105 LONDON LA ROCKVILLE MD20853 24K12 BAITZ ARTHUR III UNKNOWN BAIT??-1D..L.. BECHTEL 15740 SHADYGRRDGAITHRSBRG MD20877 23D8 BAITZ HELEN UNKNOWN BAIT??-2M.....55BECHTEL 15740 SHADYGRRDGAITHRSBRG MD20877 23D8 BAKER FRED 933-3423BAKE23-1M..L..4312627 ENGLISH ORCHARD CSIL. SPG. MD20906 33F4 BAKER JANE 933-3423BAKE23-2M.....4512627 ENGLISH ORCHARD CSIL. SPG. MD20906 33F4 BAKER BENJAMIN 933-3423BAKE23-3M.....7012627 ENGLISH ORCHARD CSIL. SPG. MD20906 33F4 BAKER JULIE 933-3423BAKE23-4......7512627 ENGLISH ORCHARD CSIL. SPG. MD20906 33F4 BAKER JOHN E 929-3399BAKE99-1M..L.. 4620 SUNFLOWER DR ROCKVILLE MD20853 24H10 BAKER LORRAINE 929-3399BAKE99-2M..... 4620 SUNFLOWER DR ROCKVILLE MD20853 24H10 BAKER JAMES 929-3399BAKE99-3M.....624620 SUNFLOWER DR ROCKVILLE MD20853 24H10 BALLINGER GAYLE 681-5075BALL75-1MA.L.. 11728 STONINGTON PL SIL. SPG. MD20902 33K7 BALLINGER TERRY 681-5075BALL75-2M.....6311728 STONINGTON PL SIL. SPG. MD20902 33K7 BALLINGER SCOTT 681-5075BALL75-3......6911728 STONINGTON PL SIL. SPG. MD20902 33K7 BANCROFT LUCILLE 596-6985BANC85-1M..L.. 6012 MISTY ARCH RUN COLUMBIA MD21045 N/A BARKER CHET 942-3626BARK26-1D..L.. 3900 ELBY ST SIL. SPG. MD20906 32K5 END THE 942-3626BARK26-2...... THIS IS LAST RECORD SIL. SPG. MD20906 32K5 BARNETTE CYNTHIA 460-1549BARN49-1D..... 14112WHISPRNGPINESCT 23SIL. SPR. MD20906 25C12*BARRETT MAURICE A 460-3811BARR11-1D..L.. 14012 BARDOT ST ROCKVILLE MD20853 24J13*BARRETT LOIS 460-3811BARR11-2M..... 14012 BARDOT ST ROCKVILLE MD20853 24J13*BARRETT MICHAEL 460-3811BARR11-3M.....5714012 BARDOT ST ROCKVILLE MD20853 24J13*BARRETT TIMOTHY 460-3811BARR11-4M.....6214012 BARDOT ST ROCKVILLE MD20853 24J13*BARRETT THOMAS 460-3811BARR11-5M.....6414012 BARDOT ST ROCKVILLE MD20853 24J13*BARRY CARL R 946-5630BARR30-1M..L.. 2725 URBANA DR SIL. SPG. MD20906 33D4 *BARRY GERDA 946-5630BARR30-2M..... 2725 URBANA DR SIL. SPG. MD20906 33D4 *BARRY RALPH 946-5630BARR30-3......582725 URBANA DR SIL. SPG. MD20906 33D4 *BARRY SANDRA 946-5630BARR30-4......632725 URBANA DR SIL. SPG. MD20906 33D4 *BARRETT MADGE 933-0948BARR48-1D..L.. 13213 HOLDRIDGE RD SIL. SPG. MD20906 33B3 *BARRETT WALTER M JR933 0948BARR48-2D..L.. 13213 HOLDRIDGE RD SIL. SPG. MD20906 33B3 *LOGAN JAMES R 949-8327LOGA27-1D..L.. 11417 MONTERREY ST SIL. SPR. MD20902 33C7 *MILLER JOHN H 977-0168MILL68-1D..L. 7520 INDIAN HILLS DR ROCKVILLE MD20855 23J7 *MOORE JOHN I 774-0115MOOR15-1DLN... 16805 GEO WASHINGTON DRROCKVILLE MD20853 24J4 *BEAMON ARTHUR 946-7807BEAM07-1D..L.. 2707 WELLER RD SIL. SPG. MD20906 33D3 *BEAMON DELORES 946-7807BEAM07-2...... 2707 WELLER RD SIL. SPG. MD20906 33D3 *BEAMON TANIKA 946-7807BEAM07-3M..... 2707 WELLER RD SIL. SPG. MD20906 33D3 *BEAMON ALEXA 946-7807BEAM07-4...... 2707 WELLER RD SIL. SPG. MD20906 33D3 *BEAM GEORGE M 953-3161BEAM61-1M..L.. 9842 WHISKEY RUN LAUREL MD20707 N/A *BEAM LC GEORGE BEAM??-1L..L.. 3680 SAN PEDRO CT COLORADO SPRINGSCO80906 N/A *BEAM NARVELLE BEAM??-2...... 3680 SAN PEDRO CT COLORADO SPRINGSCO80906 N/A *BEAUFORT DENNIS 774-2660BEAU60-1M..L.. 18900 ROLLING ACRES WAYOLNEY MD20832 16A11*BEAUFORT SANDRA 774-2660BEAU60-2M..... 18900 ROLLING ACRES WAYOLNEY MD20832 16A11*BEAUFORT JENNIFER 774-2660BEAU60-3......6918900 ROLLING ACRES WAYOLNEY MD20832 16A11*BEAUFORT KEVIN 774-2660BEAU60-4......7018900 ROLLING ACRES WAYOLNEY MD20832 16A11*BEAUFORT JEFFREY 774-2660BEAU60-5......7718900 ROLLING ACRES WAYOLNEY MD20832 16A11*BEIGEL FRED 262-4964BEIG64-1M..L.. 8230 CHESTNUT AV BOWIE MD20715 N/A *BEIGEL CAROL 262-4964BEIG64-2M.....508230 CHESTNUT AV BOWIE MD20715 N/A *BEIGEL THOMAS H 262-4964BEIG64-3......738230 CHESTNUT AV BOWIE MD20715 N/A *BEIGEL AMY SUSAN 262-4964BEIG64-4......758230 CHESTNUT AV BOWIE MD20715 N/A *BELTOWSKI DANIEL F 926-6105BELT05-1D..L.. 7705 PRINCE HALL CT GAITHERSBURG MD20877 23H1 *BELTOWSKI JUDITH 926-6105BELT05-2M.....597705 PRINCE HALL CT GAITHERSBURG MD20877 23H1 *BELTOWSKI MICHAEL T 926-6105BELT05-3......827705 PRINCE HALL CT GAITHERSBURG MD20877 23H1 *BENBOW QUINCY BENB??-1D..L.. AM EMB BAMAKO STATE DPTWASHINGTON DC20520 N/A *BENBOW ANNABELLE  BENB??-2M..... AM EMB BAMAKO STATE DPTWASHINGTON DC20520 N/A *BERRY GABRIELLE 460-7291BERR91-1M..L.. 3630 BEL PRE RD #21 SIL. SPG. MD20906 25B13*BERRY KIMBERLY 460-7291BERR91-2...... 3630 BEL PRE RD #21 SIL. SPG. MD20906 25B13*BESIRYAN VREJ 251-6297BESI97-1D..L.. 507 FLETCHER PL ROCKVILLE MD20851 24D13*BESIRYAN CAROLINE 251-6297BESI97-2M.....63507 FLETCHER PL ROCKVILLE MD20851 24D13*BESIRYAN GEORGE 251-6297BESI97-3......83507 FLETCHER PL ROCKVILLE MD20851 24D13*BIGLER MICHAEL 946-6560BIGL60-1D..L.. 2610 ARVIN ST SIL. SPG. MD20902 33D7 *BIGLER DONNA 946-6560BIGL60-2M.....542610 ARVIN ST SIL. SPG. MD20902 33D7 *BISSELL VINCENT 946-8994BISS94-1M..L.. 12708 GOULD RD SIL. SPG. MD20906 33C4 *BLACKWOOD WILLIAM 831-5977BLAC77-1M..L.. 7392 HILLSIDE TURN MT AIRY MD21771 N/A *BLACKWOOD KAREN  831-5977BLAC77-2M..... 7392 HILLSIDE TURN MT AIRY MD21771 N/A *BLACKWOOD WILLIAM 831-5977BLAC77-3......717392 HILLSIDE TURN MT AIRY MD21771 N/A *BLACKWOOD CHRISTOPHER831-5977BLAC77-4......787392 HILLSIDE TURN MT AIRY MD21771 N/A *BLACKWOOD KAREY 831-5977BLAC77-5......807392 HILLSIDE TURN MT AIRY MD21771 N/A *BLACKBURN RITA 942-9093BLAC93-1M..L.. 2713 WELLER RD SIL. SPG. MD20906 33D3 *BLACKBURN WILLIAM 942-9093BLAC93-2M.....612713 WELLER RD SIL. SPG. MD20906 33D3 *BLACKBURN JANE 942-9093BLAC93-3M.....672713 WELLER RD SIL. SPG. MD20906 33D3 *BLINKHORN NANCY BLIN??-1L..L.. 2205 GREENERY LA #T-4 SIL. SPG. MD20906 NA *BONIFANT THOMAS F 854-6957BONI57-1D..L.. 3355 FLORENCE RD WOODBINE MD21797 N/A *BONIFANT LOIS ANN 854-6957BONI57-2M.....523355 FLORENCE RD WOODBINE MD21797 N/A *BONIFANT AMY 854-6957BONI57-3...... 3355 FLORENCE RD WOODBINE MD21797 N/A *BONIFANT STEPHANIE 854-6957BONI57-4...... 3355 FLORENCE RD WOODBINE MD21797 N/A *BOOKWALTER ALLAN 871-8910BOOK10-1M..L.. 3024 HEWITT AV #246 SIL. SPG. MD20906 33C1 *BOOKWALTER ROXANNA 871-8910BOOK10-2M..... 3024 HEWITT AV #246 SIL. SPG. MD20906 33C1 *BOOKWALTER HEIDI 871-8910BOOK10-3......673024 HEWITT AV #246 SIL. SPG. MD20906 33C1 *BOSQUE DENIS UNLISTEDBOSQED-1D..L.. 1236 CLAGETT DR ROCKVILLE MD20851 32C2 *BOSQUE ALMA JEAN UNLISTEDBOSQED-2M..... 1236 CLAGETT DR ROCKVILLE MD20851 32C2 *BOST CURTIS 649-2749BOST49-1D..L.. 12488 EAST NUGGET CT HIGHLAND MD20777 N/A *BOST BRENDA D 649-2749BOST49-2M.....5012488 EAST NUGGET CT HIGHLAND MD20777 N/A *BOST NICOLE L 649-2749BOST49-3......7912488 EAST NUGGET CT HIGHLAND MD20777 N/A *BOWEN  CHARLES E 946-5126BOWE26-1M..L.. 12833 CAMELLIA DR SIL. SPG. MD20906 33F3 *BOWEN PHYLLIS 946-5126BOWE26-2M..... 12833 CAMELLIA DR SIL. SPG. MD20906 33F3 *BOWEN ROBERT 946-5126BOWE26-3M.....5812833 CAMELLIA DR SIL. SPG. MD20906 33F3 *BOWEN THOMAS 946-5126BOWE26-4M.....6412833 CAMELLIA DR SIL. SPG. MD20906 33F3 *BOWEN GILBERT C 593-5660BOWE60-1M..L.. 12321 REMINGTON DR SIL. SPG. MD20902 33K5 *BOWEN FLORENCE 593-5660BOWE60-2M..... 12321 REMINGTON DR SIL. SPG. MD20902 33K5 *BOWEN WILLIAM 593-9497BOWE97-1M..L..5410607 S DUNMOOR DR SIL. SPR. MD20901 34A11*BOWEN CAROL 593-9497BOWE97-2D..... 10607 S DUNMOOR DR SIL. SPR. MD20901 34A11*BRADSHAW JAMES E 460-3098BRAD98-1D..L.. 3010 HEWITT AV #272 SIL. SPG. MD20906 33C1 *BRADSHAW KATIE 460-3098BRAD98-2MA.... 3010 HEWITT AV #272 SIL. SPG. MD20906 33C1 *BRANNOCK EUGENE 946-9168BRAN68-1MA.L.. 13006 CAMELLIA DR SIL. SPG. MD20906 33F3 *BRANNOCK ROBERTA 946-9168BRAN68-2M..... 13006 CAMELLIA DR SIL. SPG. MD20906 33F3 *BRANNOCK JOHN 946-9168BRAN68-3M.....5713006 CAMELLIA DR SIL. SPG. MD20906 33F3 *BRANDUS SHARON LYNNUNLISTEDBRANED-1M..L..675202 RUSSETT RD ROCKVILLE MD20853 24G13*BRANDYBERRY DONNA LONGDISTBRANST-1M..L.. 1041 LAKE ST GIRARD PA16417 N/A *BRANDYBERRY MARK ALAN LONGDISTBRANST-2......791041 LAKE ST GIRARD PA16417 N/A *BRASHEARS BOB 942-9093BRAS93-1D..L.. 2713 WELLER RD SIL. SPG. MD20906 33D3 *BRASHEARS JEAN 942-9093BRAS93-2M.....562713 WELLER RD SIL. SPG. MD20906 33D3 *BRAYTON DICK LONGDISTBRAYST-1L..L.. 6600 DUNLAP ST #3022 HOUSTON TX77074 N/A *BRAYTON ALICE LONGDISTBRAYST-2...... 6600 DUNLAP ST #3022 HOUSTON TX77074 N/A *BRETZ PAUL H 942-9042BRET42-1D..L.. 13539 GEORGIA AV #102 SIL. SPG. MD20906 33B1 *BRETZ MARY ANN 942-9042BRET42-2M..... 13539 GEORGIA AV #102 SIL. SPG. MD20906 33B1 *BRETZ JANE MARIE 942-9042BRET42-3......5813539 GEORGIA AV #102 SIL. SPG. MD20906 33B1 *BREWER HARRY S 942-9339BREW39-1D..L.. 12301 BLUHILL RD SIL. SPG. MD20902 33B5 *BREWER EDITH 942-9339BREW39-2M..... 12301 BLUHILL RD SIL. SPG. MD20902 33B5 *BREWER BETTY 942-9339BREW39-3......6612301 BLUHILL RD SIL. SPG. MD20902 33B5 *BREWER PEGGY 881-0857BREW57-1M..L..6213015 CROOKSTON LA #102ROCKVILLE MD20851 32E3 *BREWER ROBERT 984-9181BREW81-1M..L..594902 BANGOR DR KENSINGTON MD20895 32G9 *BREYER JOHN S BREY??-1D..L.. 2420 PALMER DR GULFPORT MS39501 N/A *BREYER DEBRA BREY??-2M.....562420 PALMER DR GULFPORT MS39501 N/A *BRITTON PATRICIA A 474-1871BRIT71-1M..L.. 4714 CHEROKEE ST COLLEGE PARK MD20740 N/A *BRITTON MARIETALTON474-1871BRIT71-2......624714 CHEROKEE ST COLLEGE PARK MD20740 N/A *BROBST FRED L 924-4393BROB93-1M..L.. 4430 CHESTNUT LA ROCKVILLE MD20853 24J8 *BROBST PATRICIA 924-4393BROB93-2M..... 4430 CHESTNUT LA ROCKVILLE MD20853 24J8 *BROUGHT BYRON P. 946-6611BROU11-1DAC...432801 WELLER RD SIL. SPG. MD20906 33C3 *BROUGHT KAY 946-6611BROU11-2M.....452801 WELLER RD SIL. SPG. MD20906 33C3 *BROUGHT BYRON E 946-6611BROU11-3MC,...702801 WELLER RD SIL. SPG. MD20906 33C3 *BROUGHT ANDREW 946-6611BROU11-4......752801 WELLER RD SIL. SPG. MD20906 33C3 *BROWN JOICYLIN 977-3108BROW08-1M..L.. 786 WEST SIDE DR GAITHERSBURG MD20878 23A6 *BROWN JANET 977-3108BROW08-2...... 786 WEST SIDE DR GAITHERSBURG  MD20878 23A6 *BROWN STEVEN 977-3108BROW08-3...... 786 WEST SIDE DR GAITHERSBURG MD20878 23A6 *BROWN WAYNE 977-3108BROW08-4...... 786 WEST SIDE DR GAITHERSBURG MD20878 23A6 *BROWN MARTIN 977-3108BROW08-5...... 786 WEST SIDE DR GAITHERSBURG MD20878 23A6 *PARLON MICHAEL J 942-2671PARL71-1DN.... 2824 MUNSON ST SIL. SPG. MD20902 33C5 *BROWN P STANLEY 598-6573BROW73-1M..L.. 3590 GLENEAGLES DR SIL. SPG. MD20906 25B10*BROWN LUCILLE 598-6573BROW73-2M..... 3590 GLENEAGLES DR SIL. SPG. MD20906 25B10*BROWN RICHARD 593-1477BROW77-1M..L.. 917 SNURE RD SIL. SPG. MD20901 33H10*BROWN RUTH 593-1477BROW77-2M..... 917 SNURE RD SIL. SPG. MD20901 33H10*BRUCE JOYCE L 933-5065BRUC65-1M..L.. 3705 65TH AV LANDOVER KNOLLS MD20784 N/A *BUERKLE CARRIE 949-7509BUER09-1M..L.. 2348 GLENMONT CI #3 SIL. SPG. MD20902 33E5 *BURCH SHIRLEY 460-8089BURC89-1M..L.. 14125 CHADWICK LA ROCKVILLE MD20853 24J12*BURCH SUSAN 460-8089BURC89-2......7214125 CHADWICK LA ROCKVILLE MD20853 24J12*BURCH JENNIFER 460-8089BURC89-3......7314125 CHADWICK LA ROCKVILLE MD20853 24J12*BURGEE ALVIN 946-0205BURG05-1M..L..253008 NEWTON ST SIL. SPG. MD20902 33C5 *BURGEE SHIRLEY 946-0205BURG05-2M.....293008 NEWTON ST SIL. SPG. MD20902 33C5 *BURNS AL C 933-1187BURN87-1M..L.. 12819 EPPING TER SIL. SPG. MD20906 33C4 *BURRUS DONALD 949-9379BURR79-1D..L.. 13214 HOLDRIDGE RD SIL. SPG. MD20906 33B2 *BURRUS MARY 949-9379BURR79-2M..... 13214 HOLDRIDGE RD SIL. SPG. MD20906 33B2 *JANET 977-3108BROW08-2...... 786 WEST SIDE DR GAITHERSBURG MD20878 23A6 BROWN JANET 977-3108BROW08-2...... 786 WEST SIDE DR GAITHERSBURG SNAMELC lNAMEFC lPHONEClCODEFClCODESClYEARClSTREETCmCITYCmSTATEC'mZIPC )mMAPC2m Greenspan 9240 Piney Branch Rd Sil. Spg. MD20903 445-0164 40D2 380 Greer 2818 Henderson Ct Sil. Spg. MD20902 933-8412 33C6 381 Cheetham-Smart 2306 Georgian Way #22 Sil. Spg. MD20902 933-4224 33E6 382 Gabauer 3832 Tremayne Ter Sil. Spg. MD20906 598-2160 * * HOLD 7/16/83 BY R. SHIPP (460-9353) ERASE ? '==============================================' ? ? ' HOLD MENU ' ? ' ---------' ? ? ' The program you have selected is being' ? ' developed and is not ready for general use' ? ? ' Would you please make another selection after' ? ' you have returned to the main menu?' ? ? ? ' PRESS ANY KEY TO CONTINUE' ? ? '==============================================' WAIT DO MENU * THE END -- HOLD * ===============' ? ? 'LABEL MENU' ? '----------' ? ? 'In order to continue with this program you will' ? 'need to know and do the following' ? ? ' * Insert label datebase file into drive B' ? ' * Load the printer with 2 up label paper' ? ' * Push the select switch on Printer so that' ? ' both green lights are on' ? ? ' 1 = To continue with this program' ?  SET PRINT ON     * * INDEX 8/23/83 BY R. SHIPP (460-9353) ERASE ? '=============================================' ? ? 'SELECT ITEM TO INDEX ON FROM THE FOLLOWING:' ? '-------------------------------------------' ? ? ' 1. FAMILY NAME CODE (CODEF)' ? ? ' 2. ZIP (USE FOR MAILING LABELS)' ? ? ' 3. AGE (YEAR YY)' ? ? ' 4. MAP (MAP 34B3)' ? ? ' 5. PHONE NUMBER (PHONE 460-9353)' ? ? ' 6. DO NOT REINDEX FILE' ? ' USE OLD INDEX FILE (MASTER1)' ? ? ' /. EXIT BACK TO MAIN MENU' ? ? ' ENTER ONE OF THE ABOVE NUMBERS:' ? ? '============================================' WAIT TO ASK DO CASE CASE ASK = '1' STORE 'CODEF' TO IFIELD CASE ASK = '2' STORE 'ZIP' TO IFIELD CASE ASK = '3' STORE 'YEAR' TO IFIELD CASE ASK = '4' STORE 'MAP' TO IFIELD CASE ASK = "5" STORE 'PHONE' TO IFIELD CASE ASK = '6' STORE 'NO' TO IFIELD CASE ASK ='/' USE DO MENU OTHERWISE DO NOGOOD DO INDEX ENDCASE DO CASE CASE IFIELD ='NO' OTHERWISE ERASE ? ? ? ? '********************************************' ? '* *' ? '* PLEASE WAIT I AM INDEXING THE FILE *' ? '* ---------------------------------- *' ? '* *' ? '* I AM DOING MY THING !!!! *' ? '* *' ? '* *' ? '* I WILL LET YOU KNOW AFTER I INDEX *' ? '* *' ? '* EACH ONE HUNDREY RECORDS. *' ? '* *' ? '********************************************' USE B:&FILE INDEX ON &IFIELD TO A:&IFILE ENDCASE ENDCASE RETURN * THE END -- INDEX *  STORE 'NO' TO IFIELD CASE ASK ='/' USE DO MENU OTHERWISE DO NOGOOD DO INDEX ENDCASE D* * LAB/MAI 8/23/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' MAILING LABEL PROGRAM' ? ' ---------------------' ? ? ' 1 = CONTINUE' ? ? ' / = EXIT BACK TO MENU' ? ? 'ENTER ONE OF THE ABOVE' ? ? '==============================================' WAIT TO TEMP IF TEMP='/' USE DO MENU ENDIF DO INDEX DO LABTES USE B:&FILE INDEX A:&IFILE DO CODSEL STORE STR(#,4) TO RECORD STORE 0 TO T1 STORE 0 TO T2 STORE 0 TO T3 STORE 0 TO COUNT SET MARGIN TO 6 STORE T TO TEST DO WHILE TEST ERASE ? '=============================================' ? ? 'MAILING LABEL CAN BE ADDRESS AS FOLLOW:' ? ? ' 1 = TO FAMILY UNIT (THE SHIPP FAMILY' ? ' -OR- RALPH SHIPP IF AN INDIVIDUAL' ? ' PERSON)' ? ? ' 2 = TO THE INDIVIDUAL PERSON' ? ' ( RALPH SHIPP )' ? ? 'NOTE: (A) WE WILL USE TWO UP LABEL PAPER' ? '==== AND WILL PRINT TWO EACH OF THE SAME LABEL' ? ' TO SAVE ON COUMPUTER TIME.' ? ? ' (B) WILL NOT PRINT LABEL IF NO ZIP CODE IS' ? ' IN THE FILE NOW.' ? ? ' (C) LOAD THE PRINTER WITH TWO PAPER NOW' ? ? 'ENTER ONE OF THE ABOVE NUMBERS' ? '============================================' WAIT TO TYPE DO CASE CASE TYPE = '1' STORE F TO TEST LOOP CASE TYPE = '2' STORE F TO TEST LOOP OTHERWISE DO NOGOOD LOOP ENDCASE ENDDO DO WHILE.NOT.EOF SET PRINT OFF STORE ' ' TO MNAMEL STORE ' ' TO MNAMEF STORE ' ' TO MSTREET STORE ' ' TO MCITY STORE ' ' TO MSTATE STORE ' ' TO MZIP STORE ' ' TO L1 STORE ' ' TO L2 STORE ' ' TO L3 STORE ' ' TO L4 IF TYPE ='1' STORE ' ' TO FH STORE ($(CODEF,8,1)) TO FH IF FH <>'1' SKIP LOOP ENDIF ENDIF STORE ' ' TO TEMP STORE (0) TO TEMPL STORE TRIM(ZIP) TO TEMP STORE LEN(TEMP) TO TEMPL IF TEMPL<5 SKIP LOOP ENDIF IF * SKIP LOOP ENDIF IF CHECKING = T STORE T TO CHECK ELSE STORE F TO CHECK ENDIF DO WHILE CHECK .AND. .NOT. EOF DO CASE CASE C1 $ CODES CASE C2 $ CODES CASE C3 $ CODES CASE C4 $ CODES CASE C5 $ CODES CASE C6 $ CODES OTHERWISE SKIP LOOP ENDCASE STORE F TO CHECK ENDDO STORE STR(#,4) TO RECORD STORE TRIM(NAMEL) TO MNAMEL STORE TRIM(NAMEF) TO MNAMEF STORE STREET TO MSTREET STORE TRIM(CITY) TO MCITY STORE STATE TO MSTATE STORE ZIP TO MZIP IF MZIP='20853' STORE T1+1 TO T1 ENDIF IF MZIP='20902' STORE T2+1 TO T2 ENDIF IF MZIP='20906' STORE T3+1 TO T3 ENDIF IF TYPE = '1' STORE ' ' TO CODEFB STORE '*' TO CODEFH STORE ($(CODEF,1,6)) TO MCODEFB SKIP STORE ($(CODEF,1,6)) TO MCODEFH DO CASE CASE MCODEFB=MCODEFH STORE 'THE' TO FP STORE 'FAMILY' TO SP STORE (FP+' '+MNAMEL+' '+SP) TO L1 OTHERWISE STORE (MNAMEF+' '+MNAMEL) TO L1 ENDCASE ELSE STORE (MNAMEF+' '+MNAMEL) TO L1 SKIP ENDIF DO WHILE LEN(L1)<34 STORE (L1+' ') TO L1 LOOP ENDDO STORE MSTREET TO L2 STORE (MCITY+' '+MSTATE) TO L3 DO WHILE LEN(L3)<34 STORE (L3+' ') TO L3 LOOP ENDDO STORE MZIP TO L4 SET PRINT ON ? L1+' '+L1 ? L2+' '+L2 ? L3+' '+L3 ? L4+' '+L4 ? ? SET PRINT OFF STORE (COUNT+1) TO COUNT ENDDO USE SET PRINT ON ? 'DATE OF RUN = '+DATE() ? 'NUMBER OF 20853 ZIP = '+STR(T1,4) ? 'NUMBER OF 20902 ZIP = '+STR(T2,4) ? 'NUMBER OF 20906 ZIP = '+STR(T3,4) ? 'TOTAL NUMBER OF LABELS = '+STR(COUNT,4) ? SET PRINT OFF DO MENU * THE END -- LAB/MAI * DEFH STORE ($(CODEF,1,6)) TO MCODEFB SKIP STORE ($(CODEF,1,6)) TO MCODEFH DO CASE CASE MCODEFB=MCODEFH STORE 'THE' TO FP STORE 'FAMILY' TO SP STORE (FP+' '+MNAMEL+' '+SP) TO L1 OTHERWISE STORE (MNAMEF+' '+MNAMEL) TO L1 ENDCASE ELSE STORE (MNAMEF+' '+MNAMEL) TO L1 SKIP ENDIF DO WHILE LEN(L1)<34 STORE (L1+' ') TO L1 LOOP ENDDO STORE MSTREET TO L2 STORE (MCITY+' '+MSTATE) TO L3 DO WHILE LEN(L3)<34 STORE (L3+' ') T* * LAB/TES 8/23/83 BY R. SHIPP (460-9353) SET MARGIN TO 1 ERASE ? '===============================================' ? ? 'IS A TEST RUN NEEDED ?' ? '----------------------' ? ? 'This program will run a test run to check' ? 'the centering of the printing on the label' ? 'paper.' ? ? 'Load the printer with two up label paper at' ? 'this time.' ? ? ' 1 = TEST RUN' ? ? ' 2 = NO TEST RUN NEEDED' ? ? 'ENTER ONE OF THE ABOVE' ? ? '=============================================' WAIT TO TEST IF TEST = '1' STORE T TO TESTRUN DO WHILE TESTRUN SET PRINT ON ? LN1+' '+LN1 ? LN2+' '+LN2 ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? ? LN1+' '+LN1 ? LN2+' '+LN2 ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? SET PRINT OFF ERASE ? '==============================================' ? ? 'Check to see if printing is centering and' ? 'you do not need another test run.' ? ? ' 1 = FOR ANOTHER TEST RUN' ? ? ' 2 = FOR ALL IS O.K.' ? ? 'ENTER ONE OF THE ABOVE NUMBERS' ? ? '=============================================' WAIT TO TEST IF TEST = '1' STORE T TO TESTRUN LOOP ELSE STORE F TO TESTRUN LOOP ENDIF ENDIF ENDDO RETURN *THE END -- LAB/TES *  continue with this progris progrwith this progr with this progr 1 = To continus progr 1 = To continu 1 = To continue with this progr= To continue with this progr progr 1 = To continus progr 1 = To continu 1 = To continue with this progrthis progr 1 = To continuhis progrEM1 Te with this progrREM1 Te with this progr with this progr 1 = To continuprogr with this progr 1 = To continu Te with this progrEM1 Te with this progrREM1 Te with this progr withth this progr 1 = To continus progr 1 = To continu 1 = To continue with this progr/TES 2/18/83 BY R. SHIPP (460-9353) * COPYRIGHTED BY EARL-DEE COMPUTER CO. STORE '* RALPH E SHIPP *' TO LN1 STORE '* Home phone 460-9353 *' TO LN2 STORE '* 2820 BLUE SPRUCE LANE *' TO LN3 STORE '* SILVER SPRING , MD 20906 *' TO LN4 STORE 'T' TO TESTRUN DO WHILE TESTRUN ERASE ? '===============================================' ? ? 'IS A TEST RUN NEEDED ?' ? '----------------------' ? ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? ? LN1+' '+LN1 ? LN2+' '+LN2 ? LN3+' '+LN3 ? LN4+' '+LN4 ? ? SET PRINT OFF ERASE ? '==============================================' ? ? 'CO LN1 * * LIS/FIL 8/18/83 BY R. SHIPP (460-9353) ERASE ? '===============================================' ? ? ' LIST FILE TO SCREEN (BROWSE) ' ? ' -------------------' ? ? 'IN THIS BROWSE MODE YOU WILL SEE RECORDS BEFORE' ? 'AND AFTER THE RECORD YOU ARE WORKING ON.' ? ? 'THE RECORD THAT YOU ARE WORKING ON IS BRIGHT' ? 'AND THE NUMBER OF THE RECORDS IS AT THE TOP OF' ? 'THE SCREEN.' ? 'YOU CAN GO FORWARD AND BACKWARDS IN THE RECORD' ? 'BY USING THE APPROPRIATE ARROW KEYS.' ? ? 'ENTER THE RECORD NUMBER WHERE YOU WANT TO BEGIN' ? 'YOUR BROWSING NOW.' ? ? ' ENTER RECORD NUMBER TO CONTINUE' ? ? ' / FOLLOWED BY RETURN = EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE:' ? ? '===============================================' ACCEPT ' ' TO RECORD DO CASE CASE RECORD ='/' USE DO MENU ENDCASE USE B:&FILE GOTO &RECORD BROWSE USE DO MENU * THE END -- LIS/FIL * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                          CODEN SET PRINT OFF SKIP O MCN IF * SKIP ENDIF STORE STR(#,3) TO REC STORE CODE TO MCOD  R. SHIPP(460-9353) USE RELEASE ALL * ADD ALL CUSTOM ITEMS HERE STORE '* EARL-DEE COUMPUTER CO. *' TO LN1 STORE '* 2820 BLUE SPRUCE LANE *' TO LN2 STORE '* SILVER SPRING , MD *' TO LN3 STORE '* 20906 *' TO LN4 STORE 'FILE/1' TO FILE STORE '1234567890ABDESWXZ' TO LETTERS * END OF CUSTOM ITEMS ERASE ? '***** MAIN SELECTION MENU ******' ? ? ' 1 = MAILING LABELS' ? ? ' 2 = PRINT FILE OUT' ? ? ' 3 = ENTER NEW DATA OVE* * LOVE 7/16/83 BY R. SHIPP(460-9353) RELEASE ALL ERASE ? '===============================================' ? ? ' Welcome to the Church Computer! DATE = '+DATE() ? ' -------------------------------' ? ? ' dBase II ver. 2.3b (SINGLE RECORD)' ? ? ' For: Glenmont United Methodist Church' ? ' 12901 Georgia Avenue, Wheaton Md. 20906' ? ' Phone: 946-5577 or 946-5578' ? ? ' Application Program' ? ' by Ralph Shipp' ? ? ' NOTE --- Press RETURN Key if needed after' ? ' entry to continue.' ? ? ' PRESS ANY KEY TO CONTINUE' ? '===============================================' WAIT ERASE ? '===============================================' ? ? 'THIS PROGRAM IS USED WITH A SINGLE DISK' ? ? ' AND EACH NAME IS IN A SINGLE RECORD' ? ? ? 'USE DISK # 402 IN DRIVE B WHICH HAS' ? ? ' ALL THE CHURCH MASTER LIST.(A THRU Z)' ? ? 'PLEASE PUT DISK INTO DISK DRIVE B AND' ? '=================================' ? ? 'CLOSE THE DISK DRIVE DOOR AT THIS TIME!' ? ? ? 'PRESS ANY KEY TO CONTINUE' ? '===============================================' WAIT ERASE DO CODLIS ? 'PRESS ANY KEY TO CONTINUE' ? '==============================================' WAIT DO MENU * THE END -- LOVE  ? ' For: Glenmont United Methodist Church' ? ' 12901 Georgia Avenue, Wheaton Md. 20906' ? ' Phone: 946-5577 or 946-5578' ? ? ' Application Program' ? ' by Ralph Shipp' ? ? ' NOTE --- Press RETURN Key if needed after' ? ' entry to continue.' ? ? ' PRESS ANY KEY TO CONTINUE' ? '===============================================' WAIT ERASE ? '===============================================' ? ? 'THIS PROGRAM IS USED WITH A SINGLE DISK' ? ? ' AND EACH NAME IS IN A SINGLE RECORD' ? ? ? 'USE DISK # 402 IN DRIVE B WHICH HAS' ? ? ' ALL THE CHURCH MASTER LIST.(A THRU Z)' ? ? 'PLEASE PUT DISK INTO DISK DRIVE B AND' ? '=================================' ? ? 'CLOSE THE DISK DRIVE DOOR AT THIS TIME!' ? ? ? 'P* * MAI/HOL 8/11/83 BY R. SHIPP (460-9353) ERASE ? '==============================================' ? ? ' MAINTENANCE FILE MENU' ? ' ---------------------' ? ? ? ' MAINTENANCE FILE PROGRAMS ARE USED BY HIGH' ? ' LEVEL OPERATORS IN CONJUNCTION WITH DISK' ? ' NUMBER 412.' ? ? ' YOU WILL RETURN TO THE MAIN MENU FOR ANOTHER' ? ' SELECTION.' ? ? ' ENTER:' ? ? ' / = EXIT BACK TO MAIN MENU' ? ? '==============================================' WAIT USE DO MENU * THE END -- MAI/HOL * ===============' ? ? 'LABEL MENU' ? '----------' ? ? 'In order to continue with this program you will' ? 'need to know and do the following' ? ? ' * Insert label datebase file into drive B' ? ' * Load the printer with 2 up label paper' ? ' * Push the select switch on Printer so that' ? ' both green lights are on' ? ? ' 1 = To continue with this program' ?  FILE DO CASE CASE ASK = '1' DO LAB/MAI CASE ASK = '2' DO PRI/MEN CASE ASK = '3' DO DEL/ADD CASE ASK = '4' DO APP/DIR CASE ASK = '5' DO EDI/DIR CASE ASK = '6' DO LIS/FIL CASE ASK = '7' DO HOLD CASE ASK = '8' DO HOLD CASE ASK = '9' DO MAI/HOL CASE ASK = '0' USE QUIT OTHERWISE DO NO/GOOD ENDCASE DO MENU * THE END -- MENU * w@!w?R. SHIPP(460-9353) RELEASE ALL * ADD ALL CUSTOM ITEMS HERE STORE 'GLENMONT UNITED METHODIST CHURCH' TO LN1 STORE '* Church Phone 946-5577 *' TO LN2 STORE '* 12901 GEORGIA AVENUE *' TO LN3 STORE '* SILVER SPRING ,MD 20906 *' TO LN4 STORE 'FILE/5' TO FILE STORE 'MASTER.NDX' TO IFILE * END OF CUSTOM ITEMS ERASE ? '*** MAIN SELECTION MENU ***' ? ' -------------------' ? ' 1. MAILING LABELS' ? ? ' 2. PRINT FILE OUT' ? ? ' 3. ENTER NEW DATA O *CODEF13 SUBTRACT.BAS,OUG.088 SUBTRACT.BAS,T.319 SUNRISE.BAS,FOG/APP.004 SUNRISE.BAS,OUG.022 SUNRISE.INT,FOG/APP.004 SUNRISE.INT,OUG.022 SUPERDIR.COM,FOG/UTL.005 SUPERDIR.COM,OUG.006 SUPERDIR.HLP,FOG/ALLE67-1.AREN92-2ALLE73-2ALLE73-?ALLE73-?ALLE77-1ALLE77-2 ALLE??-?!ALMA68-1"ALTH54-1#AMIC16-1$ANDE65-1%ANDE65-1&ANDE77-1'ANDE77-2(ANDE77-3)ANDE77-4*ANGU71-1+ANGU71-2MILL68-2MOOR15-2ALLE67-1ALLE67-2ALLE73-11111111122222222ABBO19-1ABBO31-1ABBO31-2ADAM15-1ADAM15-2 ADAM47-1 ADAM47-2 ADAM47-3 ADAM83-1 ADAM83-2ADKI70-1ADKI70-2ADKI70-3ADKI70-4ALBE53-1ALBE53-2ALBE53-3ALBE53-4ALBE53-5ALLE67-1ALLE67-2ALLE73-1ALLE73-2ALLE73-?ALLE73-?ALLE77-1ALLE77-2 ALLE??-?!ALMA68-1"ALTH54-1#AMIC16-1$ANDE65-1%ANDE65-1&ANDE77-1'ANDE77-2(ANDE77-3)ANDE77-4*ANGU71-1+ANGU71-2MILL68-2MOOALLE67-2ALLE73-1ALLE73-2ALLE73-?ALLE73-?ALLE77-1ALLE77-2 ALLE??-?!ALMA68-1"ALTH54-1#AMIC16-1$ANDE65-1%ANDE65-1&ANDE77-1'ANDE77-2(ANDE77-3)ANDE77-4*ANGU71-1+ANGU71-2,ANGU71-3-AREN92-1.AREN92-2/ARMEST-10ARMEST-21ARMS28-12ARMS28-24ARMS28-33ARMS28-45ARMS44-16ARMS44-27ARMS83-18BACH82-19BACH82-2:BAGL??-1;BAGL??-2<BAIN31-1=BAIN31-2>BAIN31-3?BAIN95-1@BAIN95-2ABAIT??-1MILL68-2MOOALLE67-1.AREN92-2ALLE73-2ALLE73-?ALLE73-?ALLE77-1ALLE77-2 ALLE??-?!ALMA68-1"ALTH54-1#AMIC16-1$ANDE65-1%ANDE65-1&ANDE77-1'ANDE77-2(ANDE77-3)ANDE77-4*ANGU71-1+ANGU71-2MILL68-2MOOR15-2ALLE67-1ALLE67-2ALLE73-1ALLE73-2ALLE73-?ALLE73-?ALLE77-1ALLE77-2 ALLE??-?!ALMA68-1"ALTH54-1#AMIC16-1$ANDE65-1%ANDE65-1&ANDE77-1'ANDE77-2(ANDE77-3)ANDE77-4*ANGU71-1+ANGU71-2MILL68-2MOO#/ARMEST-10ARMEST-21ARMS28-12ARMS28-24ARMS28-33ARMS28-45ARMS44-16ARMS44-27ARMS83-18BACH82-19BACH82-2:BAGL??-1;BAGL??-2<BAIN31-1=BAIN31-2>BAIN31-3?BAIN95-1@BAIN95-2ABAIT??-1BBAIT??-2CBAKE23-1DBAKE23-2EBAKE23-3FBAKE23-4GBAKE99-1HBAKE99-2IBAKE99-3JBALL75-1KBALL75-2LBALL75-3MBANC85-1NBARK26-1OBARK26-2MILL68-2MOOR15-2<BAIN31-1=BAIN31-2>BAIN31-3?BAIN95-1@BAIN95-2ABAIT??-1MILL68-2MOOALLE67-1.AREN92-2ALLE73-2ALLE73-?ALLE73-?ALLE77-1ALLE77-2 ALLE??-?!ALMA68-1"ALTH54-1#AMIC16-1$ANDE65-1%ANDE65-1&ANDE77-1'ANDE77-2(ANDE77-3)ANDE77-4*ANGU71-1+ANGU71-2MILL68-2MOOR15-2ALLE67-1ALLE67-2ALLE73-1ALLE73-2ALLE73-?ALLE73-?ALLE77-1ALLE77-2 ALLE??-?!ALMA68-1"ALTH54-1#AMIC16-1$ANDE65-1%ANDE65-1&ANDE77-1'ANDE77-2(ANDE77-3)ANDE77-4*ANGU71-1+ANGU71-2MILL68-2MOO* * MENU 8/23/83 BY R. SHIPP(460-9353) RELEASE ALL USE * ADD ALL CUSTOM ITEMS HERE STORE 'GLENMONT UNITED METHODIST CHURCH*' TO LN1 STORE '* Church Phone 946-5577 *' TO LN2 STORE '* 12901 GEORGIA AVENUE *' TO LN3 STORE '* SILVER SPRING ,MD 20906 *' TO LN4 STORE 'FILE5' TO FILE STORE 'MASTER.NDX' TO IFILE STORE 'ACDILMNXY0' TO LETTERS * END OF CUSTOM ITEMS ERASE ? '*** MAIN SELECTION MENU ***' ? ' -------------------' ? ' 1. MAILING LABELS' ? ? ' 2. PRINT FILE OUT' ? ? ' 3. ENTER NEW DATA OVER DELETED RECORD' ? ? ' 4. APPEND (ENTER NEW DATA ONLY AFTER #3 N/G)' ? ? ' 5. EDIT MODE (CHANGE DATA NOW IN FILE)' ? ? ' 6. LIST FILE TO SCREEN (BROWSE)' ? ? ' 7. CHECK FOR DUPLICATES' ? ? ' 8. COPY A DISK FOR BACKUP' ? ? ' 9. FILE MAINTAIN (MUST USE DISK # 412)' ? ? ' 0. SHUT DOWN SYSTEM' ? ? 'ENTER ONE OF THE ABOVE NUMBERS:' WAIT TO ASK DO CASE CASE ASK = '1' DO LABMAI CASE ASK = '2' DO PRIMEN CASE ASK = '3' DO DELADD CASE ASK = '4' DO APPDIR CASE ASK = '5' DO EDIDIR CASE ASK = '6' DO LISFIL CASE ASK = '7' DO CHEDUP CASE ASK = '8' DO COPSHO CASE ASK = '9' DO MAIHOL CASE ASK = '0' USE QUIT OTHERWISE DO NOGOOD ENDCASE DO MENU * THE END -- MENU * OM ITEMS ERASE ? '*** MAIN SELECTION MENU ***' ? ' -------------------' ? ' 1. MAILING LABELS' ? ? ' 2. PRINT FILE OUT' ? ? ' 3. ENTER NEW DATA OVER DELETED RECORD' ? ? ' 4. APPEND (ENTER NEW DATA ONLY AFTER #3 N/G)' ? ? ' 5. EDIT MODE (CHANGE DATA NOW IN FILE)' ? ? ' 6. LIST FILE TO SCREEN (BROWSE)' ? ? ' 7. CHECK FOR DUPLICATES' ? ? ' 8. COPY A DISK FOR BACKUP' ? ? ' 9. FILE MAINTAIN (MUST USE DISK # 412)' ? ? ' 0. SHUT DOWN SYSTEM' ? ? 'ENTER ONE OF THE ABOVE NUMBERS:' WAIT TO ASK DO CASE CASE ASK = '1' DO LABMAI CASE ASK = '2' DO PRIMEN CASE ASK = '3' DO DELAD* * NO/GOOD 7/17/83 BY R. SHIPP (460-9353) ERASE ? '///////////////////////////////////////////////' ? '/' ? '/' ? '/ ENTRY IS NO GOOD !!' ? '/ -------------------' ? '/' ? '/ TRY AGAIN !!!!!' ? '/' ? '/ PRESS ANY KEY TO CONTINUE' ? '/' ? '/////////////////////////////////////////////' WAIT RETURN * THE END -- NO/GOOD * R-1) TO COUNTER IF COUNTER = 0  STORE STR(PAGE,3) TO MPAGE SET PRINT ON                          CODEN SET PRINT OFF SKIP O MCN IF * SKIP ENDIF STORE STR(#,3) TO RECE * * PRI/MEN 8/11/83 BY R. SHIPP (460-9353) ERASE ? '*** PRINT FORMAT TYPE ***' ? ' -----------------' ? ' 1. PRINT FILE ON 8 1/2 X 11 PAPER' ? ? ' 2. PRINT FILE ON 3 X 5 CARD' ? ? ' 3. PRINT FILE ON LABEL (ALL FIELDS)' ? ? ' 4. HOLD' ? ? ' 5. HOLD' ? ? ' 6. HOLD' ? ? ' 7. HOLD' ? ? ' 8. HOLD' ? ? ' 9. HOLD' ? ? ' /. EXIT BACK TO MAIN MENU' ? ? 'ENTER ONE OF THE ABOVE NUMBERS' WAIT TO ASK DO CASE CASE ASK = '1' DO DUMPAP CASE ASK = '2' DO DUMCAR CASE ASK = '3' DO DUMLAB CASE ASK = '4' DO HOLD CASE ASK = '5' DO HOLD CASE ASK = '6' DO HOLD CASE ASK = '7' DO HOLD CASE ASK = '8' DO HOLD CASE ASK = '9' DO HOLD CASE ASK = '/' USE DO MENU OTHERWISE DO NOGOOD DO PRIMEN ENDCASE DO MENU * THE END -- PRI/MEN *  DOCUMENTATION FOR DOP.PRG DBASE II & DBASE III BY: Gary C. Arey 1030 Holland Dr. Garland, Texas 75040 DOP.PRG is a front end program written to make DBASE II and DBASE III easy to use and effective for simple file management. All options are effected from the main menu of DOP and upon completion of each option the user is taken back to the main menu. Exit options are provided for exiting to the DBASE dot prompt or to DOS. The program is written in two slightly different versions one for DBASE II and the other for DBASE III. The DBASE III version supports additional features in DBASE III such as sorting without leaving DBASE, obtaining a DIR of files on the default drive and some differences in the way the Report Forms are handled. 10/06/85 Thi progra i t goo t b limite t th MS-DO machine therefor hav modifie DOP2.PR t DOP-CPM.CM t operat wit dBAS I ver 2.43 an shoul b O fo previou versions I additio th searc function wer change s a t no forc th uppercas fo al searches DOP-CP wil operat o th OSBORN 0 D wit th 8 col upgrade. Jerry Boyce Charlotte, NC. Section 1: THE MAIN MENU The DOP.PRG menu for DBASE II is shown below: DBASE II OPERATIONS MENU ======================== The Current .DBF File Now in Use is : ________ 1> List 2> Browse Save Current Data File 3> Edit Record Initialize Data File 4> Search Character Field Erase Data File 5> Search Numeric Field Create .DBF 6> Append (Add Records) Change Database 7> Mark to Delete Delete (Pack) 8> Report to Screen

Report Print 9> View Structure View Files X> Exit to DBASE . Prompt Quit to DOS The DOP.PRG menu for DBASE III is as follows: DBASE III OPERATIONS MENU ========================= The Current .DBF File Now in Use is : ________ 1> List Create .DBF 2> Browse Sort File 3> Edit Record Erase File 4> Search Character Field DIR Files on Drive 5> Search Numeric Field Create/Modify Report 6> Append (Add Records) Change Database 7> Mark to Delete Delete (Pack) 8> Report to Screen

Report Print 9> View Structure View Files X> Exit to DBASE . Prompt Quit to DOS - To select your option from the main menu simply enter the letter or number of your choice, do not enter a return, you will be taken to your selection by pressing the letter or number key on the main menu. DOP is started from inside DBASE, at the dot prompt type: DO DOP and you will be presented with a list of the database files on the default drive and asked to select one for current use. After you make your selection, the main menu will appear. When the DOP files are extracted from the DOP Library, they are named as follows: DOP.DOC - Documentation for DOP DOP2.PRG - The DOP Program for DBASE II DOP3.PRG - The DOP Program for DBASE III You may rename either DOP2 or DOP3 to DOP.PRG for use with the version of DBASE that you have. Once that is done the program will start with the command: DO DOP Section 2: DOP COMMAND FUNCTIONS  LIST: This option is the DBASE List option; select the beginning record number at the prompt and your records will list in order on the screen until the last record in the file is listed. BROWSE: Allows you to Browse the records from the beginning record number which you select. You may modify and edit the records as allowed in DBASE and all the same DBASE commands for the BROWSE function apply. EDIT: Places you in Edit mode at the beginning record number you select and all DBASE Edit commands apply. APPEND: Allows records to be added to the database in use. MARK TO DELETE: Marks the selected record number for deletion. DELETE: Deletes marked records from the database. VIEW STRUCTURE: Places the field information and record information for the current database in use on the screen. VIEW FILES: Allows the names of all files of a particular type to be viewed on the screen. Just select the file type such as .PRG .DBF .FRM or any other listed file type and DOP will display all files of the selected type that are on the default drive to the screen. CREATE .DBF: Places DBASE in the Create mode to allow a new database to be created and then used. CHANGE DATABASE: With this function you may change from the current database to use another .DBF file and again all .DBF files on the default drive are listed so the choice may be made. ERASE FILE: Allows files to be erased from the default drive. - EXIT TO DBASE . PROMPT: Takes you out of DOP, closes all files in use and clears all memory variables and presents you with the DBASE dot prompt. QUIT TO DOS: Takes you out of DOP, closes all files in use and clears all memory variables and ends the DBASE run by quitting DBASE. SECTION 3: SEARCHES Options 4 and 5 are the Search Options in DOP. Option 4 conducts a search of a CHARACTER field. The search is a Character String Search and will find any stated character string. For example, suppose your database used the field heading NAME and one of the records contained the name GARY AREY. You would select option 4 and DOP would ask for the field name you wished to search on after it showed you the field names in the database. You would enter NAME for the field name and DOP would ask for the search characters. You could enter GARY, GARY AREY, AREY, or even ARE and DOP would find the record or records that match the search string. As you can see, this search method is very flexible. DOP also searches on more than one field at a time and will print the results of a search if you answer the appropriate questions to cause that to occur. SECTION 4: REPORT FUNCTIONS These functions vary slightly in the DBASE II and DBASE III versions of DOP. DBASE II: Option 8 Report to Screen executes the standard Report function of DBASE II and allows for the creation of reports if none exist. Option P Report Print will print the selected number of Report Form reports that have already been created by Option 8. DBASE III: Option R allows the Creation or Modifying of DBASE Report Forms, Option 8 allows the Reports to be displayed on the screen and Option P provides for the printing of Reports that have been created. Section 5: DBASE II OPTIONS Option S Save Current Data File - saves the database in use to a name that you choose to give it thus allowing copies of the database to be made with different names. Option I Initialize Data File - executes the DBASE Modify Structure command so that a file may be Initialized or emptied of all records. WARNING!! THIS COMMAND ERASES ALL RECORDS IN A FILE; the user is warned  of this and given an opportunity to abort the command and return to the main menu. Of course the structure of a file may be modified with this command also but the file is nevertheless purged of all records. - The above two options may be used in conjunction with each other to save a file of records to another name and then initialize the original file purging it of all records to allow for the entry of a different group of records into the same file. This would provide a method of keeping data for different clients separate where the structure of the client files is the same. Section 6: DBASE III OPTIONS Option L DIR Files on DRIVE - this option executes the DBASE III DIR Command to list files on a drive as specified. Option S SORT File - executes the DBASE III SORT option and sorts the current database in use to a temporary, copies the temporary back onto the original file, and erases the temporary leaving only the original database but in the new sorted order. The SORT option for DBASE II was not placed in DOP2 since the DBASE II program DSORT under DBASE VER. 2.41 will not execute while DBASE is running. SECTION 7: MODIFICATIONS OF DOP I believe that DOP provides some good and useful examples of DBASE PROGRAM FILES and it is possible to modify DOP and add new features to either version. DOP can also be used on CPM machines running DBASE II. I do request that anyone modifying DOP rename it with a name that shows it has been modified such as DOPM____.PRG so that later versions may be distinguished from my originals, and further that my name and the heading not be removed from DOP under any circumstance. Section 8: RIGHT TO USE OF DOP - PUBLIC DOMAIN I have written DOP to aid users of DBASE II and III by providing a useful example of DBASE programming. I HEREBY PLACE DOP2.PRG AND DOP3.PRG IN THE PUBLIC DOMAIN AS TEXT FILES WHICH MAY BE USED AND PASSED ON TO OTHERS AS NECESSARY. If you find DOP useful or helpful any contributions you deem it proper to make will be accepted for expenses incurred in production and distribution of DOP. Gary C. Arey 1030 Holland Dr. Garland, Tx. 75040 September 2, 1984  modified such as DOPM____.PRG so that later versions may be distinguished from my originals, and further that my name and the heading not be removed from DOP under any circumstance. Section 8: RIGHT TO USE OF DOP - PUBLIC DOMAIN I have written DOP to aid users of DBASE II and III by providing a useful example of DBASE prog************ DOPCPM.CMD VER 2.43* DBASE II VERSION *********** ** BY GARY C. AREY 1030 HOLLAND DR. GARLAND, TX 75040 7/26/84 ** ** Modified for CP/M & OSBORNE 01 by JERRY BOYCE Charlotte, NC ** SET TALK OFF SET FORMAT TO SCREEN CLEAR ERASE ? 'The following .DBF files are on the default drive:' LIST FILES LIKE *.DBF ? ACCEPT 'WHAT DATABASE DO YOU WISH TO USE ' TO BB DO WHILE T ERASE @ 01,27 SAY 'DBASE II OPERATIONS MENU' @ 02,27 SAY '========================' @ 04,17 SAY 'The Current .DBF File Now In Use is :' @ 04,56 SAY !('&BB') PICTURE "!!!!!!!!!!!!" @ 08,11 SAY ' 1> List' @ 09,11 SAY ' 2> Browse Save Current Data File' @ 10,11 SAY ' 3> Edit Record Initialize Data File' @ 11,11 SAY ' 4> Search Character Field Erase Data File' @ 12,11 SAY ' 5> Search Numeric Field Create .DBF' @ 13,11 SAY ' 6> Append (Add Records) Change Database' @ 14,11 SAY ' 7> Mark to Delete Delete (Pack)' @ 15,11 SAY ' 8> Report to Screen

Report Print ' @ 16,11 SAY ' 9> View Structure View Files ' @ 17,11 SAY ' X> Exit To DBASE . Prompt Quit to CPM ' SET CONSOLE OFF WAIT TO Action SET CONSOLE ON IF !(Action)= '1' ERASE USE &BB INPUT 'BEGINNING RECORD NO. ' TO Q ? ACCEPT 'Do you want to PRINT the result? (Y)es (N)o ' to PR IF !(PR) = 'Y' SET PRINT ON ENDIF RELEASE PR ERASE GOTO Q LIST FOR # >= Q SET PRINT OFF WAIT USE ELSE IF !(Action)= '2' ERASE USE &BB ? 'While BROWSING you may Return to enter and move through record.' ? 'Control B moves screen right one field. ' ? 'Control Z moves screen left one field. ' ? 'Control X or Right Arrow moves cursor right one field.' ? 'Control E or Left Arrow moves cursor left one field.' * ? 'PgUp and PgDn moves edit line up & down one record' Not for CP/M ? 'Control Q quits without saving changes. ' ? 'Control W saves changes and quits. ' ? INPUT 'BEGINNING RECORD NO. ' TO Q GOTO Q BROWSE USE ELSE IF !(Action)= '3' ERASE USE &BB ? 'While EDITING you may Return to enter record and complete Edit.' ? 'Control Q quits without saving changes.' ? 'Control W saves changes and quits.' ? EDIT USE ELSE IF !(Action)= '4' ERASE ACCEPT ' Do you wish to SEARCH on (1) or (2) fields? ' to QR IF !(QR)= '1' ERASE USE &BB LIST STRUCTURE ? ACCEPT 'SEARCH FIELD ' TO SF  ACCEPT 'SEARCH FOR ' TO CN ? ACCEPT 'Do you want to PRINT the result? (Y)es (N)o ' to PR IF !(PR)='Y' SET PRINT ON ENDIF RELEASE PR ERASE * Removed (!) from !('&CN') to not force upper case. * Now matches the macro for a two field search. LIST FOR '&CN'$&SF SET PRINT OFF USE WAIT ENDIF IF !(QR)= '2' ERASE USE &BB LIST STRUCTURE ? ACCEPT 'Enter Search Field 1 ' to SF ACCEPT 'Search for ' to CN ACCEPT 'Enter Search Field 2 ' to SF2 ACCEPT 'Search for ' to CN2 ? ACCEPT 'Do you want to PRINT the result? (Y)es (N)o ' to PR IF !(PR)='Y' SET PRINT ON ENDIF RELEASE PR ERASE LIST FOR '&CN'$&SF .AND. '&CN2'$&SF2 SET PRINT OFF USE WAIT  ENDIF ELSE IF !(Action)= '5' ERASE USE &BB LIST STRUCTURE ? ACCEPT 'NUMERIC SEARCH FIELD ' TO NF INPUT 'NUMERIC AMOUNT ' TO NN ACCEPT '< = > ' TO E ? ACCEPT 'Do you want to PRINT the result? (Y)es (N)o ' to PR IF !(PR)='Y' SET PRINT ON ENDIF RELEASE PR ERASE LIST FOR &NF &E NN SET PRINT OFF WAIT USE ELSE IF !(Action)= '6' ERASE USE &BB ? 'In APPEND mode Control W quits and saves new records to disk.' ? ' Control Q quits without saving new records.' ? ' RETURN to begin entering records.' WAIT APPEND USE ELSE IF !(Action)= '7' ERASE USE &BB ACCEPT 'RECORD NO. TO BE MARKED FOR DELETION ' TO RD DELETE RECORD &RD ? 'SELECTED RECORD WAS MARKED FOR DELETION !' WAIT ERASE USE ELSE IF !(Action)= 'N' ERASE RELEASE ALL ? 'The following .DBF files are on the default drive :' LIST FILES LIKE *.DBF ? ACCEPT 'ENTER NAME OF NEW DATABASE YOU WISH TO USE ' TO BB ELSE IF !(Action)='C' ERASE ? 'The following .DBF files already exist on the default drive : ' LIST FILES LIKE *.DBF ? ' RETURN to begin CREATING .DBF File.' WAIT CREATE ERASE ELSE IF !(Action)= 'D' ERASE USE &BB PACK ? 'PACK AND DELETION COMPLETED ! ' USE ELSE IF !(Action)= '8' ERASE USE &BB  ? 'The following .FRM Report Forms are on the default drive :' LIST FILES LIKE *.FRM ? REPORT WAIT USE ELSE IF !(Action)= 'P' ERASE USE &BB INPUT 'ENTER NUMBER OF COPIES TO PRINT ' TO MNO ? ? 'The following .FRM Report Forms are on the default drive :' LIST FILES LIKE *.FRM ? ACCEPT 'NAME OF REPORT YOU WISH TO PRINT ' TO RF DO WHILE .NOT. EOF DO WHILE MNO > 0 STORE MNO-1 TO MNO ERASE REPORT FORM &RF TO PRINT ENDDO ENDDO WAIT USE ELSE IF !(Action)= '9' ERASE USE &BB LIST STRUCTURE WAIT USE ELSE IF !(Action)= 'F' ERASE ? 'ENTER FILE SPEC to VIEW FILES on Default Drive ;'  ? ? ' DBF for Database Files' ? ' FRM for Report Form Files' ? ' CMD for Command Program Files' ? ' FMT for Format Files' ? ' NDX for Index Files' ? ' MEM for Memory Files' ? ACCEPT 'ENTER FILE SPEC ' TO FS LIST FILES LIKE *.&FS WAIT ELSE IF !(Action)= 'I' ERASE USE &BB @ 08,05 SAY "CAUTION!: (Y)es ERASES ALL DATA in the Current Database." @ 09,05 SAY " (N)o Returns to Main Menu without Erasing Records in File." @ 11,05 SAY "If you have answered (Y)es you are in Modify Structure Mode and a " @ 12,05 SAY " Control W will return you to the Main Menu and re-write the blank file." MODIFY STRUCTURE USE ELSE IF !(Action)= 'S' ERASE USE &BB @ 10,0 ACCEPT 'Enter Filename for the Save file ' to FLN @ 12,0 @ 12,25 SAY 'Copying to Named Data File ! ' COPY TO &FLN USE ELSE IF !(Action)='E' ERASE ? 'RETURN if you do NOT wish to Erase a File.' ? ACCEPT 'Enter Complete File Name you wish to ERASE ! ' to ERS DELETE FILE &ERS RELEASE ERS ELSE IF !(Action)= 'Q' RELEASE ALL ERASE CLEAR QUIT ELSE IF !(Action)= 'X' CLEAR RETURN ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDDO RELEASE T, ACTION  ͫCopyright (C) 1985 BORLAND IncB Osborne 1 920le CP/MP)(= *ERT()~7#~= oͦkԄ!!"~#(}:$= +*!5!*!!:(2!5:(>2!!!:O::O:!*! !45(! +/ 0y0( d!k5!{5__o&  :(͠|(  *"x2y( >28!"9!! og2"">~22 9/4*9 Co&ͦͣ} [ (!e{ͦA8Q0G: x@!\w# (͂ ?(*( .( w^. ^!h6# (?( *( ͂( w#>?> w#ͦ 8 !ɿ .,;:=?*[]<>{}a{ |ʹ}ͽƐ'@'7||}>2ͯ*Bڨ  "og"2>2! ""*B"[Ru*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#Eͺw}8' RB0 >' RqRR!+ Ͱ R!+ Ͱ r!+ Ͱ r!+ Ͱ r!# Ͱ r!+ Ͱ T]KB!z> S>))0 = | |̀̀DMgo>jB0 7?= H͒<z5a)a<z {0Gɯgo||~}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd } ) W _}8(8J`9{T]=o`9y ) >' ́ ͬ͗ }>' xˆ }} ˸T}ٕ(0D=z ,= ( ͒ 0%{ , 7 ?(8ͬ x ͆ - r 8˸x ͏  ,-xG}r }مM 9r .>#n0͒ { = - nx ͇ ,-(-˸G,-r }ٕ?M 9.> 8ͬ ?= u+-(>͆ 0ͬ ͆ 8 ?x ͇ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ցr <(r 7{ = |٤g{٣_z٢Wy١Ox٠G{ ͬ ́ }x>' ͬ}ƀ/ƀo -́ }0͎-́ ͎,}l˸ 8 4 ͗ x( - 8́ - 8,́ }l8;*!͗ ! >4ͬ͗ ͗ ͬ--- ́ ,,,-xGg?+2n*8t z~,->' x' ͘}. ͆́ , ! >4,͢- o&0%,͗ }gr }؉}颋.:}8c~I$I~L*͢ٷx˸ }0G,<},-(-́ !>I0 ͗͘ o8 ͆ >' m.`1pF,t6|!wS<.z}[|%FXc~ur1}͆ٯx(<˸ 8 !~J 0.O!>s 8 =  n s͗ ͆ .n 0 ͎-́ OT0 j oD,:j !I}袋.}8c~I$I~L! >ͬ͗ I× nn ͗ = ͆ nf^VNF!DLT\I!!53!r1!͒!> x #-= o˸x͆(- }(x>8(z ,z `iÃ!>' |r |̀>)=|(DMbo˸88x(0 8> ̀x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#}˸}րogM| .(z = ~> x0w#xG%͇ %͇ ZJDM%͇ = _~65+~hìx-Sx9?+{Η@}|z z gZJDM0{ ,7}o˸? #yO!@9i&?  #?w#?/w#?w#!9! E9!!9~(+Fͺ!"9!(#>2*"| >"2:( Ͷ *w*6 !\$![ (ͦ( #:~CONTRMKBDLSTCAUXUSR>2i:*ˮ~0:*:(@q##pZ* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"w(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~ͺ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('k!0(ˮ]k!8ˮ!]~-#8~>27kˮw>O$6̃s #r$ͣ6̏ k ( (ˮ qk(ˮ ( k ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*:4^q*##~6ͺ>2}*|(̓|( ̓6-#[RM8( G> A~#*'C! !TRUEFALSE!9N#Y~#( G~#> >    "~(kѻ(( !0 (ˮ!!>2Sz:0:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͮ*-w#ww##> ͮÁ""~>2:ZR0 *4#4>2:ZR> *4 #4(> >22*f(/˦:G(##~++ :O x yC!ͺ Q*:G(##~._.͚f<\=<͚*##w ͮ +4 #4x >>2:G("ͮ"*nˮ*0 SZѷR8@* N#F#s#r, 0})jS\*##w+ N#FB ͮr+s>2!T]>)j)0 0= ]R!#]*^#V#N#F#^#V>2Ͱ:0:*6 #-Nw#Fwq#p#6#w#w#w"~Á>">!DM!":*B:!>(>2>">!"2"~ʰ*w#wx(9* :O *-4 #4!*4 #4 *-N#Fq#pV+^Bq#pSZѷR&* s#r$ s#rL <?*L!\  <( !\$>2>2L:>!(* \$\<(!3: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>) 2""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* uKB!0>' ~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6#K*K*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!F"" &y*"*>2"*"!F"""!\*: Nr!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͝O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%â}ͦo*!~6o&|:2 2}:__zѯ2*|KB " z ^C User break+=  I/O Run-time error {ʹ, PC=*ͯNot enough memory Program aborted :ʎ'1!d!EK@>æJ>͛ͺ4____________________MAILING_LABELS__________________ ͛ͺ4 version 3.2 ͛ͺ5 8th Jan 1987 ͛ͺ4 Mailing Label Program ͛ ͛ ͛ ͛ ͛ ͛ ͛ ͛ ͛ͺ4 1986 ͛ͺ4 by ͛ ͛ ͛ ͛ͺ4 J.FRANCIS & Co. ͛ͺ4 52 Chester Square ͛ͺ4 London, England ͛ͺ+ SW1W 9EA ͛ ͛ͺ !"!"ͺHit > RETURN !(M MAILFILE.DATp!(= ͛!"!"ͺ. Please Wait while Writing to disk........!"!" !(!(] !(ͤ! !(ͤ! !(ͤ!| !(ͤ!? !(ͤ! !(ͤ!ŭ !(ͤ! !(z !(ͤ!Ͷ !(ͤ!Ͷ !(ͤ!|Ͷ !(ͤ!?Ͷ !(ͤ!Ͷ !(ͤ!ŭͶ !(ͤ!Ͷ >! ! ͛ͺ !"!"ͺREADING DATA FROM DISC......!"!" !(M MAILFILE.DATp!(= C%!(IE2&!(z C%!:͛!ͪ !ͺ!"!"!"!c"!"!O" !ͺ!:!ͪ !ͺ!:!ͪ !ͺ!|:!ͪ !ͺ!?:!ͪ !ͺ!:!ͪ !ͺ!ŭ:!ͪ !ͺ!:!ͪ !ͺ ͛ ͛!"!"ͺ How many copies do you require ?!"!" !"N !*"fzʿ'"$c&*$#ê'>!(M MAILFILE.DATp!(= J&!(IE'!(z ͛ ͛ͺ !"!"ͺHit CARRIAGE RETURN....!"!" !qD >͛ͺ5This program will print standard 102mm * 36mm labels  ͛ ͛ͺ4The print out is spaced for a printer setting of ͛ͺ46 lines per inch and 10 characters per inch. This ͛ͺ4is the default setting of most dot matrix printers. ͛ͺ4If you wish to set the character spacing for a ͛ͺ4different value or for narrower labels, please leave ͛ͺ4a message in the bulletin board to Walter Francis ͛ ͛ͺ !"!"ͺ"PRESS CARRIAGE RETURN TO CONTINUE !"!" !qD >! !͛!"!"ͺ P R I N T I N G !!!!!!!!!"!" !(M MAILFILE.DATp!(= C%͛ ͛ c&!(IE+!(z >͛ ͛ͺ% Hit > RETURN < to go Menu, ͛ͺ* Hit > Q < to Quit to C/PM, ͛ ͛!"!"ͺ OPTION >> !"!" !ͩ!qD >!ͺ ͛ ͛ ͛ ͛ ͛ ͛ͺ C return to C/PM ͛ͺ& Any other key to return to Menu ͛!"!"ͺ OPTION >> !"!" !ͩ!sD *s&}2s*s&!CE,C+*s&!C͒E-!ͺ!"!@"ͺLine 1. This is a  !ͺͺLine 2. Test to  !ͺͺLine 3. Line up  !ͺͺLine 4. Your paper !ͺͺLine 5. Ready for !ͺͺLine 6. Your final !ͺͺLine 7. Printout !! -!ͺ!"!G" +-!ͺ!"!" +-!ͺ!"!W"!" +-!ͺ!"!@" +>͛ ͛ ͛ ͛ͺ1 C = Clear printer buffer ͛ͺ) X = eXit to C/PM ͛ͺ. Q = Quit to Main Menu ͛ͺ) B = douBlestrike ͛ͺ& O = cOndensed ͛ͺ% E = Enlarged ͛ͺ" D = Draft ͛ ͛ ͛ ͛!"!"ͺ OPTION >> !"!" !ͩ!pD *p&}2p*p&!CEʍ0-*p&!XEʢ0C+*p&!BEʷ0-*p&!OE0.*p&!EE0;.*p&!DE0`.*p&!Q E 1C+>͛ͺ Only Type !"!"ͺ"Y"!"!"ͺ to the next question if  ͛ͺ the data is !"!"ͺ CORRECT !!!!!!!!"!" ͛ ͛ͺ !"!"ͺSave data to disk (Y/N) ?!"!" ͛ ͛ ͛!"!"ͺ OPTION >> !"!" !ͩ!pD *p&}2p*p&!YEt2G$>͛ͺ%ENTER NAME AND ADDRESS, LINE BY LINE. ͛ͺ or  ͛ͺTYPE !"!"ͺ"END"!"!"ͺ in First Line TO FINISH ENTRY ͛ ͛ ͛ͺEnter First Line........?  !<͎ !:MEND͍!:Mend͍}oEʚ3C+!:MEND͠Eʋ6!:Mend͠Eʋ6͛ͺEnter Second Line........?  !<͎ ͛ͺEnter Third Line........?  !|<͎ ͛ͺEnter Fourth Line........?  !?<͎ ͛ͺEnter Fifth Line........?  !<͎ ͛ͺEnter Sixth Line........?  !ŭ<͎ ͛ͺEnter Seventh Line........?  !<͎ > ͛ ͛!"!"ͺNAME AND ADDRESS IS.....!"!" ͛ !:͛!ͪ !:͛!ͪ !|:͛!ͪ !?:͛!ͪ !:͛!ͪ !ŭ:͛!ͪ !:͛!ͪ ͛ ͛!"!"ͺ+IF NAME AND ADDRESS ARE CORRECT PRESS!"!" ͛ͺ, > RETURN < To enter  !qD 1>!(M MAILFILE.DATp!(= !(z u2>͛ ͛ ͛ ͛ͺ4NN NN OOOOOOO TTTTTTTTTT EEEEEEEE  ͛ͺ4NNN NN OOOOOOOOO TTTTTTTTTT EEEEEEEE  ͛ͺ4NNNN NN OO OO TT EE  ͛ͺ4NN NN NN OO OO TT EEEEEEEE  ͛ͺ4NN NNNNN OO OO TT EE  ͛ͺ4NN NNNN OOOOOOOOO TT EEEEEEEE  ͛ͺ4NN NNN OOOOOOO TT EEEEEEEE  ͛ ͛ ͛ͺ.THE INITIALISATION OF THE DATA FILE WILL ERASE ͛ͺ  ALL EXISTING DATA ͛ ͛ ͛ͺ DO YOU WISH TO CONTINUE Y/N ? ͛!"!"ͺ OPTION >> !"!" !ͩ!pD *p&}2p*p&!YEʳ9͌6*p&!Y͒E9 >>͛ ͛ ͛ͺ2THIS PROGRAM IS TO CREATE AND MAINTAIN A NAME AND  ͛ ͛ͺ2ADDRESS FILE AND TO PRINT THE CONTENTS OF THE FILE ͛ ͛ͺ) IN A FORMAT SUITABLE FOR LABELS !  ͛ ͛ ͛ ͛ ͛ ͛ͺ+1. DO YOU WISH TO CREATE A NEW FILE ? ͛ ͛ͺ+2. DO YOU WISH TO ACCESS AN EXISTING FILE ? ͛ ͛ ͛!"!"ͺ9YOU MUST ANSWER AS QUESTION 1 ON YOUR FIRST ATTEMPT !!!!!!"!" ͛ ͛ ͛!"!"ͺ OPTION >> !"!" !ͩ!tD *t&}2t*t&!1E+<Ϳ6*t&!2E@<ͭ%!"&!}2v"&*&!͒}2v*v&E=͛!" >! ! *&RJ&!(IE=!(z͛͛͛!"!"ͺInput FIRST LINE to Recognize:!"!"͛͛ͺ0"FIRST LINE " data MUST be exactly as seen !!!!!͛ͺ ^^^^ ͛!3<͎!(M MAILFILE.DATp!(=A>͛͛͛!"!"ͺNAME AND ADDRESS SELECTED:-!"!"͛͛!:͛!ͪ!:͛!ͪ!|:͛!ͪ!?:͛!ͪ!:͛!ͪ!ŭ:͛!ͪ!:͛!ͪ͛͛͛ͺENTER OPTION REQUIRED͛͛ͺ 1. PRINT LABEL͛ͺ 2. SELECT NEW NAME͛ͺ! 3. RETURN TO MAIN MENU͛͛!"!"ͺ OPTION >> !"!"!ͩ!tD*t&}2t*t&!1EAH'*t&!2E0A=*t&!3EBA!جͤ! !جͤ! !جͤ!| !جͤ!? !جͤ! !جͤ!ŭ !جͤ! !}2w!(M MAILFILE.DATp!(=>J&!(IEA!(z͛͛͛!"!"ͺInput FIRST LINE to Recognize:!"!"͛͛ͺ0"FIRST LINE " data MUST be exactly as seen !!!!!͛ͺ ^^^^ ͛!3<͎!(M MAILFILE.DATp!(=A͛͛͛!"!"ͺNAME AND ADDRESS SELECTED:-!"!"͛͛!:͛!ͪ!:͛!ͪ!|:͛!ͪ!?:͛!ͪ!:͛!ͪ!ŭ:͛!ͪ!:͛!ͪ!(z͛͛͛ͺENTER OPTION REQUIRED͛͛ͺ) 1. DELETE RECORD THIS RECORD ?͛ͺ! 2. RETURN TO MAIN MENU͛͛!"!"ͺ OPTION >> !"!"!ͩ!tD*t&}2t*t&!1EE!}2w!*w&EE!(M MAILFILE.DATp!(=!جM mailfile.tmpp!ج=!(ͤ!Ͷ!(ͤ!Ͷ!(ͤ!|Ͷ!(ͤ!?Ͷ!(ͤ!Ͷ!(ͤ!ŭͶ!(ͤ!Ͷ!ج!ج]!3:!:͠EECA!(IEJE!(z!جz!(͓!جM mailfile.datͥ>͛ͺ3____________________MAILING_LABELS_________________ ͛ͺ3 version 3.2 ͛ ͛ ͛ ͛ ͛ ͛ͺDO YOU WISH TO  ͛ͺ% 1. INPUT MORE NAMES ? !"!"ͺEDITORS!"!" ͛ͺ3 2. PRINT OUT ALL LABELS ? Walter Francis ͛ͺ3 3. PRINT OUT ONE LABEL ? Jules Francis ͛ͺ 4. DISPLAY ALL DATA ? ͛ͺ 5. CHANGE FONT ? ͛ͺ% 6. ERASE ALL DATA ? !"!"ͺ PROGRAMMER!"!" ͛ͺ2 7. EXIT TO C/PM ? Jules Francis ͛ͺ 8. DELETE a RECORD ? ͛ ͛ͺ% !"!"ͺ ENHANCER &!"!" ͛ͺ% !"!"ͺDEBUGGER!"!" ͛ͺ3 Walter Francis ͛!"!"ͺ OPTION >> !"!" !ͩ!tD *t&}2t͛ *t&!1EJu2*t&!2E'Jc(*t&!3E!!͛ͺGExiting.............................................BYE For Now Folks!. !ͺ!"!@" EʬJ>!!͛ͺGExiting............................ Jules Francis ͛ͺ 4. DISPLAY ALL DATA ? ͛ͺ 5. CHANGE FONT ? ͛ͺ% 6. ERASE ALL DATA ? !"!"ͺ PROGRAMMER!"!" ͛ͺ2 7. EXIT TO C/PM ? Jules Francis ͛ͺ 8. DELETE a RECORD ? ͛ ͛ͺ% !"!"ͺ ENHAN MAIL32.LBR is an enhanced version of Mail1.LBR (Turbo Pascal) written Program for the creation of Labels . Facilities offered:- 1.Input of names 2.Print out of all labels 3.Print out of one label 4.Display all labels 5.Change of printer font 6.Erasure of all label data 7.Save label data to disk 8.Multiple copies of labels 9.Menu driven 10.Single key operation 11.Error trapping included 12.Deletion of incorrect data records This version is written for the Amstrad PCW 8512. The source file is included as well as the COM file. Below is listed address within the program where changes can be made to convert it for use on other machines running C/PM by using DDT ,ZAP35 or any other disc editor. You can also use the TURBO TINST terminal installation program to set your screen attributes. ADDRESS OSBORNE01 AMSTRAD'S HEX CODES DESCRIPTION ++++++++++ ++++++++ +++++++++++++++++++ +++++++++++ 168 50 5A NUMBER OF COLUMNS ON SCREEN 169 18 1F NUMBER OF ROWS ON SCREEN 16B 02 1B 29 04 1B 45 1B 79 SEND AN INITIALIZATION TO THE TERMINAL. 17B 02 1B 28 06 1B 45 1B 48 1B 31 SEND A RESET STRING TO THE TERMINAL 18B 02 1B 3D 04 1B 59 00 00 CURSOR LEAD_IN STRING 1A2 01 1A 02 1B 45 1B 48 CLEAR SCREEN + HOME CURSOR 1A8 02 1B 48 HOME CURSOR 1AE 02 1B 4C 02 1A 4C INSERT LINE 1B4 02 1B 4D 02 1B 4D DELETE LINE 1BC 02 1B 4B 02 1B 4B ERASE TO END OF LINE 1C2 02 1B 28 02 1B 71 START HIGHLIGHTING 1C8 02 1B 29 02 1B 70 END HIGHLIGHTING W.T.FRANCIS LONDON,ENGLAND  02 1B 28 02 1B 71 START HIGHLIGHTING 1C8t for use on other machines running C/PM by using DDT ,ZAP35 or any other disc editor. You can also use the TURBO TINST terminal installation program to set your screen attributes. ADDRESS OSBORNE01 AMSTRAD'S HEX CODES DESCRIPTION ++++++++++ ++++++++ +++++++++++++++++++ +++++++++++ 168 50 5A NUMBER OF COLUMNS ON SCREEN 169 18 1F NUMBER OF RO program mail_Version_3_2; var FLAG3 , IOErr: boolean; KEY, ONO, CM, RE, RET, YN : char; REC, E1L, E2L, E3L, E4L, E5L, E6L, E7L : string[60]; MAILFILE2,MAILFILE : file of string[60]; NUM, X, COPY, OPT, OPTION, POPT, NOS, RECNO : integer; const A=#27; { ESCAPE CODE } B=#29; { HIGHLIGHT ON } C=#28; { HIGHLIGHT OFF} D=#64; { RESETS PRINTER TO POWER UP STATE } E=#71; { DOUBLESTRIKE MODE } F=#8; { PAPER END DETECTION OVERRIDDEN } G=#15; { CONDENSED MODE } H=#87 ; { ENLARGED MODE } I=#01; J=#99; { RESETS PRINTER TO CONTINUOUS SHEET**AMSTRAD PCW8512 } K=#79; { RESETS GAP LENGTH OF PAPER TO 0**AMSTRAD PCW8512} procedure Menu; begin clrscr; writeln('____________________MAILING_LABELS__________________'); writeln(' version 3.2'); writeln(' 8th Jan 1987'); writeln(' Mailing Label Program');" writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln(' 1986'); writeln(' by'); writeln; writeln; writeln; writeln(' J.FRANCIS & Co.'); writeln(' 52 Chester Square'); writeln(' London, England'); writeln(' SW1W 9EA'); writeln; writeln(' ',A ,B ,'Hit > RETURN <',A ,C); readln(RET); end; procedure Dwrite; begin clrscr; assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); writeln(A,B,' Please Wait while Writing to disk........',A,C); seek(MAILFILE,Filesize(MAILFILE)); write(MAILFILE,E1L); write(MAILFILE,E2L); write(MAILFILE,E3L); write(MAILFILE,E4L); write(MAILFILE,E5L); write(MAILFILE,E6L);  write(MAILFILE,E7L); close(MAILFILE); end; procedure Retr; begin read(MAILFILE,E1L); read(MAILFILE,E2L); read(MAILFILE,E3L); read(MAILFILE,E4L); read(MAILFILE,E5L); read(MAILFILE,E6L); read(MAILFILE,E7L); end; procedure Oldfile; begin clrscr; gotoxy(10,10); writeln(' ',A,B,'READING DATA FROM DISC......',A,C); assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); repeat retr; until eof(MAILFILE); close(MAILFILE); end; procedure Disp1; begin retr; writeln(E1L); end; procedure Print; begin writeln(Lst,A,F,A,J,A,K); writeln(Lst,E1L); writeln(Lst,E2L); writeln(Lst,E3L); writeln(Lst,E4L); writeln(Lst,E5L); writeln(Lst,E6L); writeln(Lst,E7L); writeln(Lst); end; procedure Copies; begin writeln; write( A,B,'How many copies do you require ?' ,A,C);Readln(Copy); for X:=1 to Copy do print; end; procedure Display; begin clrscr; assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); repeat Disp1; until eof(MAILFILE); close (MAILFILE); writeln; writeln(' ',A ,B ,'Hit CARRIAGE RETURN....',A ,C); readln(RET); end; procedure Printall; begin clrscr; writeln('This program will print standard 102mm * 36mm labels '); writeln; writeln('The print out is spaced for a printer setting of'); writeln('6 lines per inch and 10 characters per inch. This'); writeln('is the default setting of most dot matrix printers.'); writeln('If you wish to set the character spacing for a'); writeln('different value or for narrower labels, please leave'); writeln('a message in the bulletin board to Walter Francis'); writeln; writeln(' ',A,B,'PRESS CARRIAGE RETURN TO CONTINUE ',A ,C); readln(RET); clrscr; gotoxy(12,20); writeln(A,B,  ' P R I N T I N G !!!!!!!!',A,C); assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); repeat Retr; writeln; writeln; print; until eof(MAILFILE); close(MAILFILE); end; procedure Quit; begin clrscr; writeln; writeln(' Hit > RETURN < to go Menu,'); writeln(' Hit > Q < to Quit to C/PM,'); writeln; write(A,B,'OPTION >> ',A,C); read(kbd,RET); end; procedure Quit2; begin clrscr; writeln(lst); writeln; writeln; writeln; writeln; writeln; writeln(' C return to C/PM'); writeln(' Any other key to return to Menu'); write(A ,B ,'OPTION >> ',A ,C); read(kbd,CM); CM:=upcase(CM); if CM = 'C' then Quit; if CM <> 'C' then end; procedure Clear; begin writeln(lst,A ,D, 'Line 1. This is a '); writeln(lst, 'Line 2. Test to '); writeln(lst, 'Line 3. Line up ' ); writeln(lst, 'Line 4. Your paper'); writeln(lst, 'Line 5. Ready for' ); writeln(lst, 'Line 6. Your final'); write(lst, 'Line 7. Printout !!'); end; procedure Doublestrike; begin clear; writeln(lst,A ,E ); Quit2; end; procedure Condensed; begin clear; writeln(lst,A ,G ); Quit2; end; procedure Enlarged; begin clear; writeln(lst,A ,H ,I); Quit2; end; procedure Draft; begin clear; writeln(lst,A,D); Quit2; end; procedure Menu4; begin clrscr; writeln; writeln; writeln; writeln(' C = Clear printer buffer'); writeln(' X = eXit to C/PM'); writeln(' Q = Quit to Main Menu'); writeln(' B = douBlestrike'); writeln(' O = cOndensed'); writeln(' E = Enlarged'); writeln(' D = Draft'); # writeln; writeln; writeln; write(A ,B ,'OPTION >> ',A ,C); read(kbd,YN); YN := upcase(YN); if YN ='C' then Clear; if YN ='X' then Quit; if YN ='B' then Doublestrike; if YN ='O' then Condensed; if YN ='E' then Enlarged; if YN ='D' then Draft; if YN ='Q' then Quit; end; procedure Save; begin clrscr; writeln(' Only Type ',A,B,'"Y"',A,C,' to the next question if '); writeln(' the data is ',A,B,' CORRECT !!!!!!!',A,C); writeln; write(' ',A,B,'Save data to disk (Y/N) ?',A,C); writeln;writeln; write(A ,B ,'OPTION >> ',A ,C); read(kbd,YN); YN := upcase(YN); if YN = 'Y' then Dwrite; begin end; end; procedure Append; begin clrscr; writeln('ENTER NAME AND ADDRESS, LINE BY LINE.'); writeln(' or '); writeln('TYPE ',A,B,'"END"',A,C,' in First Line TO FINISH ENTRY'); writeln; writeln; write('Enter First Line........? '); readln(E1L); if (E1L = 'END') or (E1L = 'end' ) then Quit; if E1L <> 'END' then begin if E1L <> 'end' then begin write('Enter Second Line........? '); readln(E2L); write('Enter Third Line........? '); readln(E3L); write('Enter Fourth Line........? '); readln(E4L); write('Enter Fifth Line........? '); readln(E5L); write('Enter Sixth Line........? '); readln(E6L); write('Enter Seventh Line........? '); readln(E7L); clrscr; writeln; writeln; writeln(A,B,'NAME AND ADDRESS IS.....',A,C); writeln; writeln(E1L); writeln(E2L); writeln(E3L); writeln(E4L); writeln(E5L); writeln(E6L); writeln(E7L); writeln; writeln(A,B,'IF NAME AND ADDRESS ARE CORRECT PRESS',A,C); writeln(' > RETURN < To enter '); readln(RET); save; end; end; end; procedure Erasure; begin clrscr;  assign(MAILFILE,'MAILFILE.DAT'); rewrite(MAILFILE); close(MAILFILE); Append; end; procedure Newfile; begin clrscr; writeln; writeln; writeln; writeln('NN NN OOOOOOO TTTTTTTTTT EEEEEEEE '); writeln('NNN NN OOOOOOOOO TTTTTTTTTT EEEEEEEE '); writeln('NNNN NN OO OO TT EE '); writeln('NN NN NN OO OO TT EEEEEEEE '); writeln('NN NNNNN OO OO TT EE '); writeln('NN NNNN OOOOOOOOO TT EEEEEEEE '); writeln('NN NNN OOOOOOO TT EEEEEEEE '); writeln; writeln; writeln('THE INITIALISATION OF THE DATA FILE WILL ERASE'); writeln(' ALL EXISTING DATA'); writeln; writeln; writeln(' DO YOU WISH TO CONTINUE Y/N ?'); write(A ,B ,'OPTION >> ',A ,C); read(kbd,YN); YN := upcase(YN); if YN = 'Y' then Erasure; if YN <> 'Y' then Menu; clrscr; end; procedure Menu3; begin clrscr; writeln; writeln; writeln('THIS PROGRAM IS TO CREATE AND MAINTAIN A NAME AND '); writeln; writeln('ADDRESS FILE AND TO PRINT THE CONTENTS OF THE FILE'); writeln; writeln(' IN A FORMAT SUITABLE FOR LABELS ! '); writeln; writeln; writeln; writeln; writeln; writeln('1. DO YOU WISH TO CREATE A NEW FILE ?'); writeln; writeln('2. DO YOU WISH TO ACCESS AN EXISTING FILE ?'); writeln; writeln; writeln(A,B,'YOU MUST ANSWER AS QUESTION 1 ON YOUR FIRST ATTEMPT !!!!!',A,C); writeln;writeln; write(A ,B ,'OPTION >> ',A ,C); read(kbd,ONO); ONO:=upcase(ONO); if ONO = '1' then Newfile; if ONO = '2' then Oldfile; end; procedure IOError; begin Num:=0; IOErr := false; Num := IOresult; IOErr := (Num <> 0); if IOErr then begin write(chr(7)); clrscr; gotoxy(10,10); case Num of $99: write(REC,' <:::::',A,B,'I N P U T D A T A I S I N C O R R E C T',A,C); end; writeln;writeln; writeln(' You Are Being Returned To The MAIN MENU !!!!!!!!!!!!!'); writeln(' Type any key to continue..........'); read(kbd,Key); assign(MAILFILE,'MAIL.COM'); execute(MAILFILE); end; end; procedure Printone; begin {$I-} assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); clrscr; repeat Disp1; until eof(MAILFILE); close(MAILFILE); writeln; writeln; writeln(A ,B ,'Input FIRST LINE to Recognize:',A ,C); writeln; writeln('"FIRST LINE " data MUST be exactly as seen !!!!!'); writeln(' ^^^^ '); writeln; readln(REC); assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); repeat IOERROR; read(MAILFILE,E1L); read(MAILFILE,E2L); read(MAILFILE,E3L); read(MAILFILE,E4L); read(MAILFILE,E5L); read(MAILFILE,E6L); r$ead(MAILFILE,E7L); until REC =E1L; clrscr; writeln; writeln; writeln(A,B,'NAME AND ADDRESS SELECTED:-',A,C); writeln; writeln; writeln(E1L); writeln(E2L); writeln(E3L); writeln(E4L); writeln(E5L); writeln(E6L); writeln(E7L); writeln; writeln; writeln('ENTER OPTION REQUIRED'); writeln; writeln(' 1. PRINT LABEL'); writeln(' 2. SELECT NEW NAME'); writeln(' 3. RETURN TO MAIN MENU'); writeln; write(A ,B ,'OPTION >> ',A ,C); read(kbd,ONO); ONO:= upcase(ONO); if ONO = '1' then Copies ; if ONO = '2' then Printone; if ONO = '3' then {$I+} end; procedure Wrtmail2; begin write(mailfile2,E1L); write(mailfile2,E2L); write(mailfile2,E3L); write(mailfile2,E4L); write(mailfile2,E5L); write(mailfile2,E6L); write(mailfile2,E7L); end; procedure Remove; begin {$I-} flag3:=false; assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); clrscr; repeat Disp1; until eof(MAILFILE); close(MAILFILE); writeln; writeln; writeln(A ,B ,'Input FIRST LINE to Recognize:',A ,C); writeln; writeln('"FIRST LINE " data MUST be exactly as seen !!!!!'); writeln(' ^^^^ '); writeln; readln(REC); assign(MAILFILE,'MAILFILE.DAT'); reset(MAILFILE); repeat IOError; read(MAILFILE,E1L); read(MAILFILE,E2L); read(MAILFILE,E3L); read(MAILFILE,E4L); read(MAILFILE,E5L); read(MAILFILE,E6L); read(MAILFILE,E7L); until REC = E1L ; clrscr; writeln; writeln; writeln(A,B,'NAME AND ADDRESS SELECTED:-',A,C); writeln; writeln; writeln(E1L); writeln(E2L); writeln(E3L); writeln(E4L); writeln(E5L); writeln(E6L); writeln(E7L); close(MAILFILE); writeln; writeln; writeln('ENTER OPTION REQUIRED'); writeln; writeln('  1. DELETE RECORD THIS RECORD ?'); writeln(' 2. RETURN TO MAIN MENU'); writeln; write(A ,B ,'OPTION >> ',A ,C); read(kbd,ONO); ONO:= upcase(ONO); if ONO = '1' then flag3 := true; if flag3 then begin assign( MAILFILE,'MAILFILE.DAT'); reset (mailfile); assign(mailfile2,'mailfile.tmp'); rewrite(mailfile2); repeat read(MAILFILE,E1L); read(MAILFILE,E2L); read(MAILFILE,E3L); read(MAILFILE,E4L); read(MAILFILE,E5L); read(MAILFILE,E6L); read(MAILFILE,E7L); seek(mailfile2,filesize(mailfile2)); if REC <> E1L then Wrtmail2; until eof(mailfile); close(mailfile); close(mailfile2); erase(mailfile); rename(mailfile2,'mailfile.dat'); end; {$I+} end; procedure Menu2; begin clrscr; writeln('____________________MAILING_LABELS_________________'); writeln(' version 3.2'); writeln; writeln; writeln; writeln; writeln; writeln('DO YOU WISH TO '); writeln(' 1. INPUT MORE NAMES ? ',A ,B ,'EDITORS',A ,C); writeln(' 2. PRINT OUT ALL LABELS ? Walter Francis'); writeln(' 3. PRINT OUT ONE LABEL ? Jules Francis'); writeln(' 4. DISPLAY ALL DATA ?'); writeln(' 5. CHANGE FONT ?'); writeln(' 6. ERASE ALL DATA ? ',A ,B ,'PROGRAMMER',A ,C); writeln(' 7. EXIT TO C/PM ? Jules Francis'); writeln(' 8. DELETE a RECORD ?'); writeln; writeln(' ',A ,B ,'ENHANCER &',A ,C); writeln(' ',A ,B ,'DEBUGGER',A ,C); writeln(' Walter Francis'); write(A ,B ,'OPTION >> ',A ,C); read(kbd,ONO); ONO:=upcase(ONO); writeln; if ONO = '1' then Append; if ONO = '2' then Printall; if ONO = '3' then Printone; if ONO = '4' then Display; if ONO = '5' then Menu4; if ONO = '6' then Newfile; if ONO = '7' then Quit; if ONO = '8' then Remove; end; begin Menu; Menu3; repeat Menu2; until upcase(RET) in ['Q'] ; clrscr; gotoxy(1,15); writeln('Exiting.............................................BYE For Now Folks!.'); writeln(lst,A,D); end. 6. ERASE ALL DATA ? ',A ,B ,'PROGRAMMER',A ,C); writeln(' 7. EXIT TO C/PM ? Jules Francis'); writeln(' 8. DELETE a RECORD ?'); writeln; writeln(' ',A ,B ,'ENHANCER &',A ,C); writeln(' ',A ,B ,'DEBUGGER',A ,C); writeln(' Walter Francis'); write(A ,B ,'OPTION >> ',A ,C); read(kbd,ONO); ONO:=upcase(ONO); writeln; if ONO = '1' then Append; if ONO = '2' then Printall; if ONO = '3' then Printone; if ONO = '4' then% This is the release date of the disk. BYMAIL ADD BYMAIL CMD BYMAIL DBF BYMAIL ED BYMAIL FAU BYMAIL GET BYMAIL GO BYMAIL IO BYMAIL LBL  BYMAIL NDX BYMAIL OUT BYMAIL PRN  BYMAIL RPT BYMAIL SCR !BYMAIL .LBL 42 25 2560 20 BYMAIL .NDX 76 FF 1024 8 BYMAIL .OUT B4 D0 1408 11 BYMAIL .PRN D6 9E 3328 26 BYMAIL .RPT 6E BB 1152 9 BYMAIL .SCR BA 50 3968 31 BYMAIL .VAL B3 19 128 1 BYMAIL .WS 26 F2 1792 14 CHURCH .DOC A9 BF 1024 8 APPDIR .CMD 8E E8 2048 16 CHEDUP .CMD 08 20 4608 36 CODLIS .CMD 2E EF 1024 8 CODSEL  Fog Library Disk FOG-CPM.177 Copyright (1987) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Mailing list managers and dBASE II programs. Filename Description -04-00 .87 This is the release date of the disk. -CPM177 .DOC This is the description of the disk contents. BYMAIL .DOC 8792 2K [Bymail 1 of 17] A dBASE II mail list manager. Maintains a database of names, prints labels and reports, and outputs MailMerge compatible files. The documentation is sparse but usable. BYMAIL .ADD 2D15 1K [Bymail 2 of 17] BYMAIL .CMD B9AE 2K [Bymail 3 of 17] BYMAIL .DBF 940B 1K [Bymail 4 of 17] BYMAIL .ED 086F 2K [Bymail 5 of 17] BYMAIL .FAU 446A 1K [Bymail 6 of 17] BYMAIL .GET 8D7C 6K [Bymail 7 of 17] BYMAIL .GO 9BA2 1K [Bymail 8 of 17] BYMAIL .IO 75CA 2K [Bymail 9 of 17] BYMAIL .LBL 4225 3K [Bymail 10 of 17] BYMAIL .NDX 76FF 1K [Bymail 11 of 17] BYMAIL .OUT B4D0 2K [Bymail 12 of 17] BYMAIL .PRN D69E 4K [Bymail 13 of 17] BYMAIL .RPT 6EBB 2K [Bymail 14 of 17] BYMAIL .SCR BA50 4K [Bymail 15 of 17] BYMAIL .VAL B319 1K [Bymail 16 of 17] BYMAIL .WS 26F2 2K [Bymail 17 of 17] CHURCH .DOC A9BF 1K [Church 1 of 26] A general church database written in dBASE II. Useful for keeping track of members, printing mailing labels, etc. Does NOT do any accounting functions. APPDIR .CMD 8EE8 2K [Church 2 of 26] CHEDUP .CMD 0820 5K [Church 3 of 26] CODLIS .CMD 2EEF 1K [Church 4 of 26] CODSEL .CMD 03C0 3K [Church 5 of 26] COPSHO .CMD D2CD 2K [Church 6 of 26] DELADD .CMD B4FD 3K [Church 7 of 26] DUMCAR .CMD 1A0B 2K [Church 8 of 26] DUMLAB .CMD FC31 4K [Church 9 of 26] DUMPAP .CMD 72A2 3K [Church 10 of 26] EDIDIR .CMD 289D 2K [Church 11 of 26] FILE5 .DBF 028E 21K [Church 12 of 26] FILEX .DBF 87CE 1K [Church 13 of 26] HOLD .CMD 852B 1K [Church 14 of 26] INDEX .CMD AF38 2K [Church 15 of 26] LABMAI .CMD 83C5 4K [Church 16 of 26] LABTES .CMD 7C74 3K [Church 17 of 26] LISFIL .CMD C5AB 2K [Church 18 of 26] LOVE .CMD 2D6E 2K [Church 19 of 26] MAIHOL .CMD D690 2K [Church 20 of 26] MASTER .NDX CDB1 3K [Church 21 of 26] MENU .CMD 4ADA 2K [Church 22 of 26] NOGOOD .CMD D9CD 1K [Church 23 of 26] PRIMEN .CMD 342B 1K [Church 24 of 26] DOP .DOC 585A 11K [Church 25 of 26] DOP-CPM .CMD 63E5 9K [Church 26 of 26] MAIL .COM B61D 19K [Mail 1 of 3] Mail label manager written in Turbo Pascal (source included). As compiled, it should run on most CP/M computers. MAIL .NOT ACE1 2K [Mail 2 of 3] MAIL &.PAS 3D47 16K [Mail 3 of 3] ch 13 of 26] HOLD .CMD 852B 1K [Church 14 of 26] INDEX .CMD AF38 2K [Church 15 of 26] LABMAI .CMD 83C5 4K [Church 16 of 26] LABTES .CMD 7C74 3K [Church 17 of 26] LISFIL .CMD C5AB 2K [Church 18 of 26] LOVE .CMD 2D6E 2K [Church 19 of 26] MAIHOL .CMD D690 2K [Church 20 of 26] MASTER .NDX CDB1 3K [Church 21 of 26] MENU .CMD 4'