G4APPDIR CMDCHEDUP CMD$ CHURCH DOC;CODLIS CMDC.CODSEL CMDKCOPSHO CMD_ DELADD CMDkDUMCAR CMD DUMLAB CMD1DUMPAP CMDrEDIDIR CMD(FILE5 DQF^ՆFILEX DBF2·HOLD CMD:+INDEX CMDB8LABMAI CMDQŃLABTES CMDmt|LISFIL CMDLOVE CMD n-MAIHOL CMDMASTER NDXMENU CMD JNOGOOD CMDPRIMEM CMD+4* * 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 "&MPHONE2" @ 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 DOThis 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 a double density OSBORNE 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 * * 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 ENDCASE 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 * * * 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* * 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.' ? ' * * 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 * * * 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 KvIFILE5.DBFL o !"#$&%'()*+,-./0124365789;:<=>?@BADCFKGJIEH."y#Ozx3L#` LF~~ěy&ׇ LWka~}x3F5μ`Be^c#`syDi$` CPF4瀉7_Ocy}vac &^1X`^ L4b`-02GfD#5{js$WL_~C/> <{~n}4ZǡR=G>6͞x7K~H41%$Ynmߊlk}GM/g dPUI#x?Op$!ܾ E~R7^ r\뀬/~@FU)Ñt{b?Nցp*,rb Bb]^Zd}r4JJ|SO*jb5cm.ө''K[9GgW;ނnκCzTTwG^ 3'y-m'wN=LAgcxe\~tv|-;TGEuw0ÞzRP}I N=?I^:,}C?l kJJZؚxIC3 [eSOo26Yzõvg dPUI#[SO=pp=o N=MapfY8TGU֔SO**acG* 2J}nKYwM.[_Lu*գ*te0ÞzRPE'ǑT~*eI #B)sxߟi6CzT% fS7 7G8hC_aI`$}^PF5p>Wx E;QQfn.o@m;S7 ߠ=EeTs< [PKav{&H }uu&+G2C\s3-;TGEu8RݞIp'=6֩oNPF5p>Wx E;QQf>(-sᓖOW6RZiFoZ_G<\=?wUA#/Ŕu-ZbrAX官vGr0Մk23qT#ssǛg9rDi |HRZI{_r@Y uvduv*գ;2=:ܡ;TO̵,ߠ=PVgYݢuJfϵw8hC2`kX>=޶PVgYݢuJfϵwp=oO̵,o[(vnκCzTTwG^FsZ;{vh?T!k?Ig_eW;^';TGEuw0ŞkPS8h?T!k㝖Iiduv*գ;Rbϵw5zZ,,}neϼM³^ӑ E;QQNx@㝢pWsW>I{_C>k} [owTteRz-H>Op$Ѷns=@}Rz *Dೖ`';TGEuwe47{R4&OK'%?I{_ۥ蓘Ϲ? GTe\q#qc|볧T"YsmpE;QQyR{r}8ܑCCReO'gO?I{_R"YsmpE;QQyR{r}8/9mpGo+ 'i4=x2duv*գ:y)'X8@8>~HCJX7[-YwTpdО\+olKܦC7+=޶n [PKɠ=>W؎sIӡ@m=޶n [PKɠ=y̻ 8h.9k?:TAVhgݡR=*#/{%jd:^6]B9yւG.E>9k?:TAVhgݡR=*#/{%j4xm|rWhd"w񜵎s [Pݑ=ӡݣ%L¯V4=OW6iKknTx&ysn̑S=G>LyU| jEc푴L[ZvJK6+pfQ8QfjKzk=A/&♗|zۿK:^N\;^%ƮT9xܿ" ڑgg^z #i10u۝wJ4]Бs2/yxUQ¡KP>{_r#H E;QQyΰ?/t^re*ʼT =޶k50:nκCzTT7G^3yx3K r}e^*mGrr#H E;QQyΰ?/xe*ʼT +Gr^G<בduv*գ9aKs9^}#hb>I{_r9kn\M-YwTG:T}fY8TGUROq$'=Ǒ|p(OP'uw)%u y@-PlݳzTX#Oq$ \Cx22A{$w:< wkYQ=*БsgᎤ\Zxf ,OWv7g$; x Gn&!$_cVv1xA`Z$In^볖x%;TGEu8RtjI8Dg9"$oI{yZ [PKѩ'rhLē"E>kY e­ZS{u6\oxS=#E+6s*=ڡRgI}+rl 06#;TGEuw䥰m6s*ǡRg #rl 06#;TGEuw䥰m6s*>|R/l<|H*>j3nκCzTTwG^ f<ס97*+(x6( S9}x_Wduv*գ;R6#JAA蓴ջZ8Z_Lu*գ*iqcd5s +!<oI{Ghq'εfY8TGUj<:TIp@_)<}HcGhq'εfY8TGUj<"<;M:/0s-~ξzCx~NxYݢuJG^JxExv9]_ZaZ0܋p( Ϟ [PKiBϵu{WVL#)P,=?w{9rAVhgݡR=*Ñ҄6?W!kGۑ%$}nUS"ew̿ZxEuK9g?/x湎7ǡm|e;9OWvA, x E;QQy>\;=qB>v6pYXx{ǑY|W)Wʯʭa<Lu*գ*iqcyɇ@|W)Wo=[x^?fY8TGU. {8)m_Q^)Hܪx4ZǡR=G>6pYXx r̼בD{x['iw{u: E;QQy)z3 {A5;WOmyoߠ=#uɧuduv*գ;Rfꝫ 8hۿt/{KJw 8R.|Z_;AVhgݡR=*#/Eofy/ȡ$/KR{/ԭ'N-YwTKћYx{ǑSgF|m n'uw[!Ktv|#);TGEuwbq$s=R\Ѧy|CzeDgW;nκCzTTwG^ .f?ܡOz#G29'uw[MBӟ?xIAVhPKaYu ܀# JڕOWwtTZ:^4ZǡR=|ph{*pGRL?b];1@xޟi6CzT%-|lYLs{h]Gm OW:q:W; E;QQy)Ϥ?wY=‘mR!>Vo{ 8kYݢuJ]gҟ;9IT*g B{$+tuvduv*գ;Rt1 Ixu3oT*g B'Zj;AVhgݡR=*#/E*;͎+rLOW6R@D|[ܡٺg9^GBGOϤWqv,OWvٕj1Gx3ԿE W*#gR+>oY8gR`m]}<7N[/`~;r~,|f#ׇs"Io{gIݖ _̓G81AhQ2ܧ,|f#;Io{g #iKEx#r4JJ\SJ>Ǒ ۹o{gIEx#r4JJ\SJ>Ǒ7O773[{oXj"7hd ۗpkyy6+pfQ(4 $J`FcvYS|Sӯx+š} gǑg<nȩUБHO8ޯ"9^ }nOC[<9'1@x̨騎6 =9uÇc`A{$I}(6t6g>Ǻ$Ϟ;ޚ5Ցsfs/ȡf_r:$OWvK5>{|ґ E;QQH,,|9&rl{@{F]Rr_Ƈt䂬nκCzTTwG>R, A.hrGpC > IN+4:r?l kJJ*ش,,|93?o#ߠ={I+4:r?l kJJ*ش,,|yvGrWzVhu8xu@:QT:iYXd\Ǜg9rߞlջ=vY=ounκCzTT#/EC0ֹ97oOI #nc6n8^';TGEu8R44 !Zd#G)mOW*ҾN-YwTKa6L3 kIR" mX0@D?Ix rzH#k2kKso/E5A{$mX0@D?Ix rzH#k2kKE&uJ_ k2~JX0@D?Ix rzH#k2k \" B&xC4 OrG>B9iL3Ҝo/E5[a%>~Z;$`GJGOdug:TUT *equvduv*գ;Rt1 4qrKE&uh5TA{$w9,NvnκCzTTwG^.f5&n]x8TUT *_=;P'Zj;AVhgݡR=*#/E" ;^ z",OW5uv炼duv*գ;r>/,s6S۷⟓~RzKIS_P1!!6 M8ɹEIoG)?')LG)ijÙj5&8^Q=$DБsfG>)JIoG)?')J]Jmpj ?WT tYmǑ紁ɱtvBsoKIS_P1!!6 31s=ךV$+Rf$x6\-YwTKaYs7fr> Y7e푴K Ƕ;rAVhgݡR=*#/fo&zεC4q(?Ɋ)WzwX y7>ݑ E;QQy)4 [ևx"9ⵏ}nQv3kfyfY8TGUR`Y:\tLn"9ⵏ푴(56/cջ-RIZdZ_[-YwTKa+f?qCmphۿT3oI[3ȴ [PݑVpz|HmR9v'ؿB{$SE3ȴ [PݑVp?‘DrO79RLz":ނnκCzTTwG^ [1 jF>1c|W'^?I{_r!}%<{~n}IAVhgݡR=*ÑLpʶ{8s/)*_oI[2gϭ#);TGEu8RYOPd-2#OQІ OW&^uבduQQlSJ;Tf9)* #i˺Whau$Yݢ}CzTT#/۔ G>>|W*R)ԽRe5py<Ñ E;QQy)4 ߩ09rm_Hwj|]N{_۲9;lp[-YwTK,| |ϳoI[ g n\a E;QQy)Xy^ߡO~L%hd25s){M7.?l kJJ*yIx8H>$I({6T]pAxzT xp'uw{l==:exEEAi6 :xXߠ=>Qݞk}bkqJGO/y;\ nTėI{_Pٝ8 X_M ܺ#zT*||8¯Ȫ'o*G<DPI\[7sT@ő2wܡ4H""WzmNX}C&ysn̑S=G>Op ~oWdUUo*G<DPI\[7sT@ő2wܡyIWdUUo*G<DPI\[7sT@ő2w;ޔ0<67v(.(?yL[\qduv*գ:y)Lj;Զ3: ;Eʷ'`$}nUg3uu$YݢuJ|XV;bZǑH|,ߠ=vIQu?3[GX_GR-YwTGee'CՎ6ᙟs [Pݑlfֽ-xϥIp^>{_۲ DgW;nκCzTTwG^ fֽ-xyAmC"ܺoI[!7җjGR-YwTK,x#"7zmNX}C&ysn̑S=G>m|wF~EV?QoxPٝ8 X_M ܺDPI\[7sT@ő2wܡyIWdUUo*G<DPI\[7sT@ő2w;ޔ0<67v(.(?yL[\qduvSNAMELC 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 * * * 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 * * * 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 * * 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-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 * * * 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 *