IMD 1.15: 20/05/2007 9:13:00 fog app 032         -FOG/APP032/APP#032DOC A CMDADD MEMALPH FRMAPEXMAILDBF AUTOST COM& CARDS CMD DUMP FRMHELLO CMDLABELMENFMT LABELS CMDLOADER CMDMAIL DOCMAILCOMPNDXMAILREP CMD MAILZIP NDX MAINMENUFMT MAKEMEM CMDPOSTCARDFMT PRELUDE CMDPRINTLBLCMDPRINTOFFCMDPRINTREPCMD REP FMT !SEARCH CMD"SELECTMNFMT #UP1LBL CMD$UP1SEL CMD %UP2LBL CMD &UP2SEL CMD'(UP3LBL CMD )* LOADER.CMD SET INTENSITY OFF SET BELL OFF ERASE SET DEFAULT TO B: DO HELLO  UP3SEL CMD*+UPDATE CMD,UPDATEMNFMT -/APP#032CRC SET INTENSITY OFF ERASE SET DEFAULT TO B: DO HELLO     *DO HELLO SET DEFAULT TO A:   ERASE  *DO HELLO LOADER.CMD SET INTENSITY OFF SET BEEP OFF ERASE SET DEFAULT TO B: DO HELLO      SET INTENSITY OFF ERASE SET DEFAULT TO B: DO HELLO     " " " "    COMPNAME dADDR1 $dADDR2 FdATTN hdCTdSTdZP dGRPd   ROAD PONTIAC MI48057 T. CARGILL C NIKON VISIONS, NIKON INC. INSTRUMENTATION DIVISION 623 STEWART AVENUE GARDEN CITY NY11530 M. SHULTZEN A HARDINGE BROT WELDON TOOL COMPANY 3000 WOODHILL ROAD CLEVELAND OH44104 CHUCK TILDEN A STARRETT INDUSTRIAL SUPPLY CO. SUITE 234 1200 EAST HAVERHILL  L=50,W=132 Y APEX TOOLWORKS INC. Y N 32,COMPANY COMPANY NAME;-------------------- 32,ADDRESS1 ADDRESS LINE 1;------------------ 32,ADDRESS2 ADDRESS LINE 2;------------------ 18,CITY CITY;-------------- 2,STATE ST 10,ZIP ZIP 32,ATTENTION ATTENTION / TO;------------------ 4,GROUP GRP  ROCKFORD IL61103 C DI-ACRO / HOUDAILLE LAKE CITYCOMPANYC lADDRESS1C lADDRESS2C mCITYC1mSTATECCmZIPC EmATTENTIONC OmGROUPCom    ANILAM ELECTRONICS CORPORATION 5625 NORTH WEST 79TH AVENUE MIAMI FL33166 HUAN HUNG LOW B WALTER 1003 LENDALL LANE POST OFFICE BOX 542N HUNG LOW B MACHINE INTELLIGENCE CORPORATIONU.S. CORPORATE OFFICE 3432 MEADFALL SUNNYVALE CA94545 ADAM CARCHEVSKI B WHITE-SUNSTRAND MACHINE TOOL CO.CONTROLS & DATA SYSTEMS DIV7 FREDERICKSBURG VA22403 C. HILLER C WASINO CORPORATION USA 400 OSER AVENUE HAUPPAUGE NY11788 C WESTINGHOUSE "$COMPANYY) NATIONAL MACHINERY COMPANY ELECTRIC CORP. INDUSTRY AUTOMATION DIVISION 2040 ARDMORE BOULEVARD PITTSBURGH PA15221 D. GRISWOLD A WESTINGHOUSE ELECTRIC- UNIMATION400 HIGH TOWER BUILDING 400 MEDIA DRIVE PITTSBURGHWASINO CORPORATION USA (RAYTHEON LASER CENTER %ROHM TOOL CORPORATION %ROHM TOOL CORPORATION %ROHM TOOL CORPORATION SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC.  PA15205 N. SHAGE A WHITE CONSOLIDATED INDUSTRIES MACHINE TOOL GROUP 286 CANFIELD AVENUE BRIDGEPORT CT06609 B WASINO CORPORATION USA 400 ANILAM ELECTRONICS CORPORATION WALTER WASINO CORPORATION USA WESTINGHOUSE ELECTRIC CORP. WESTINGHOUSE ELECTRIC- UNIMATIONWHITE CONSOLIDATED INDUSTRIES SHAFER CONSULTANTS, INC.  NORTH WEST 79TH AVENUE MIAMI FL33166 HUAN HUNG LOW B ANILAM ELECTRONICS CORPORATION 5625 NORTH WEST 79TH AVENUE MIAMI FL33166 HUASHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. WESTINGHOUSE ELECTRIC- UNIMATION WHITE CONSOLIDATED INDUSTRIES WHI  NATIONAL MACHINERY COMPANY WASINO CORPORATION USA (RAYTHEON LASER CENTER %ROHM TOOL CORPORATION %ROHM TOOL CORPORATION %ROHM TOOL CORPORATION SHAFER CONSULTANTS, INC. MACHINE INTELLIGENCE CORPORATION MACHINE INTELLIGENCE CORPORATION MACHINE INTELLIGENCE CORPORATIONHANLO GAUGE HARDINGE BROTHERS, INC. INGERSOLL CUTTING TOOL COMPANY ISCAR METALS INCORPORATED MACSHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. WESTINGHOUSE ELECTRIC- UNIMATION WHITE CONSOLIDATED INDUSTRIES WHI -SKF & DORMER TOOLS CORPORATION ,SUMIDEN CARBIDE AMERICA, INC. *W.A. WHITNEY WALTER .WASINO CORPORATION USA WESTINGHOUSE ELECTRIC CORP. WESTINGHOUSE ELECTRIC- UNIMATIONNATIONAL MACHINERY COMPANY NATIONAL MACHINERY COMPANY NATIONAL MACHINERY COMPANY STARRETT INDUSTRIAL SUPPLY CO. THE OLOFSSON CORPORATION WESTINGHOUSE ELECTRIC- UNIMATION WHITE-SUNSTRAND MACHINE TOOL CO. WHITE CONSOLIDATED INDUSTRIES WHITE-SUNSTRAND MACHINE TOOL CO.WHITE-SUNSTRAND MACHINE TOOL CO.WHITE-SUNSTRAND MACHINE TOOL CO. WHITE-SUNSTRAND MACHINE TOOL CO. WHITE-SUNSTRAND MACHINE TOOL CO. WHITE CONSOLIDATED INDUSTRIES WHIMACHINE INTELLIGENCE CORPORATIONMORSE CUTTING TOOLS NATIONAL MACHINERY COMPANY NIKON VISIONS, NIKON INC. STARRETT INDUSTRIAL SUPPLY CO. THE OLOFSSON CORPORATION WESTINGHOUSE ELECTRIC- UNIMATION WHI ENTER LANE HAUPPAUGE NY11788 TOM TURNAPOLI A COMET WELDING ROBOTS 900 NICHOLAS BOULEVARD ELK GROVE VILLAGE IL60007 E)HURCO MANUFACTURING CO., INC. )HURCO MANUFACTURING CO., INC. KTS INDUSTRIES, INCORPORATED KTS INDUSTRIES, INCORPORATED KTS INDUSTRIES, INCORPORATED KTS INDUSTRIES, INCORPORATED KTS INDUSTRIES, INCORPORATED LDON ADAMS D KTS INDUSTRIES, INCORPORATED MACHINE TOOL DIVISION 508 HARRISON STREET KALAMAZOO MI49007 L. DONOVAN C WHITE CONSOLIDATED INDUSTRIES MACHINE TOOL GROUP    286 CANFIELD AVENUE BRIDGEPORT CT06609 B GLEASON MACHINE DIVISION 1000 UNIVERSITY AVENUE ROCHESTER NY14692 JACKIE SIMPSON SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. WESTINGHOUSE ELECTRIC- UNIMATION WHITE CONSOLIDATED INDUSTRIES WHI E ONSRUD CUTTER MANUFACTURING CO. 800 LIBERTY AVENUE POST OFFICE BOX 550 LIBERTYVILLE IL60048 C BROWN & SHARPE TURNING MACHINE GROUP PRECISION PARK 48058 48059 48068 48090 '48106 48160 48909 49007 55041 60007 "60048 ,60056 60521 60566 60638 61008 61008 61103 * $ZIPANYY) ANILAM ELECTRONICS CORPORATION 61105 77251 92680 94545 48090 48160 48909 49007 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 945WALTER WASINO CORPORATION USA WESTINGHOUSE ELECTRIC CORP. WESTINGHOUSE ELECTRIC- UNIMATIONWHITE CONSOLIDATED INDUSTRIES SHAFER CONSULTANTS, INC. SHAFER CONSULTANTS, INC. $48043-028748059 48068 48090 48160 48909 49007 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 94545 06609 11788 15205 15221 22403 33166 PORATION USA WESTINGHOUSE ELECTRIC CORP. WESTINGHOUSE ELECTRIC- UNIMATIONWHITE CONSOLIDATED INDUSTRIES SHAFER CONSULTANTS, INC. 48057 48058 48059 48068 48090 48160 48909 49007 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 945   DISK.DOC FOG/APP.032 First Osborne Group (FOG) Applications Disk This disk contains the Apex Toolworks Inc. General Mailing List System. It was developed by Randy Shafer of DeFOG in Detroit as a school project. (I hope he received a good grade.) It requires availability of the dBASE II data base manager. Instructions for use are contained in MAIL.DOC. For similar applications, see FOG on FOG/APP.014 and BYMAIL on FOG/APP.030 and 031.  Jim Woolley FOG Disk Librarian January 1984 ons for use are contained in MAIL.DOC. For similar applications, see FOG on FOG/APP.014 and BYMAIL on FOG/APP.030 and 031. *.|g"e A xs`! u`g *e.U*e.>w*e.|w*ew# xU ͻDO A$=0! LOADING DBASE II...  Osborne Computer Corporation 26538 Danti Court Hayward, CA 94545    $YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaKWWWWWWWWWWWWWWWWWWWWIaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaVWWWWWWIaaaaaaaaaaKWWWWWWZaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYIaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaKWWWWWWZaaaaaaaaaaVWWWWWWIaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYZaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaVWWWWWWWWWWWWWWWWWWWWZaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWWWWWWWaaaaaaaaaaaaWWWWWWWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa$ DMʡڏ"=ʡͲ=ʡYPͲ1**!O~4#~#F#x~#s#r#w>͐ « f f  . ᯕo>g.aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWWWWWWWaaaaaaaaaaaaWWWWWWWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 2|2\  !]w# ʫ .&  0 6 #& .K !e K w# ʫ : U 6 #K 6AW w#] !e~H#~E#~X*}|́ "!́ ͐ !ʬ =« f kʫ j \͢F w# ͋ t ʫ : W& _& & O {aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWWWWWWWaaaaaaaaaaaaWWWWWWWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa `i"F & & w# & ͋ « t Y t Y GтWx ͢!o ~Z #N  *. *.  NEXT PC͐ =« f  . ~ Ͷ ʻ .͓ =« f |« }w#Ä >2L͐ ! =« f }ʫ +"MD Å D  !  #   ë «   Ͷ ͐ =« f xY |« }ҫ gA>S Ag}S S i |« }!w s#r:[ʔ _!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 D$HD$$ H B!$D$"$B$DA!ABI$H B$I $HI$H$! $I $I$$A !A@$I$"!$H$I$I "! $A$  HHAA"I @BB $A"7   > >  ͢| } @ >. *_}o| , 0 ë ^#V#!Y ))))o P q s#r#!V4 !V6# ,® >2Vñ m ͅ m ͅ m ͅ « Vʫ ! XN!~  $$$I$$H!!! BH" !I B  $$!BD! $!BI D@"!$I$$H"!I$I$I$UUU$$A$ ! _^! ^#V~ x+ >= = !~  . !   #x f L L ͓ͅ ҆ *" !6ï +"_*~ #E گ ʫ ^#V. ï ~ CZMEIABDHSP!"M"+"!91*~!O~6=G#^#V#~x (#"!N#FW( *J>7Å*M|N+"M N:LHͅÅD Å >* *͓ b" . *"] !/~##ʁtZ*F#n!Is!^#V&&##&))::^#V#*^#V>+)x-8_)*)þ))>+><7"9.Yͯ * M^2U :2:2ͳ:_³ͯ !6! @!!BH @@ABH B! "BHI$$BI$BI $ HI   STCARD READ GO TOP SET TALK OFF SET RAW ON SET CONSOLE OFF SET PRINT ON DO WHILE .NOT. EOF ? ? ? ? ? LINE1 ? LINE2 ? LINE3 ? LINE4 ? LINE5 ? LINE6 ? LINE7 ? LINE8 , " " , ATTENTION ? LINE9 , " " , COMPANY ? LINE10 , " " , ADDRESS1 ? LINE11 , " " , ADDRESS2 ? LINE12 , " " , TRIM(CITY) + ", " + STATE + " " + ZIP ? LINE13 ? LINE14 ? ? SKIP ENDDO SET RAW OFF SET PRINT OFF SET CONSOLE ON SET TALK ON USE APEXMAILERASE USE APEXMAIL INDEX MAILZIP STORE " " TO LINE1 STORE " " TO LINE2 STORE " " TO LINE3 STORE "  INDEX MAILCOMP RETURN  " + ZIP ? LINE13 ? LINE14 ? ? SKIP ENDDO SET RAW OFF SET PRINT OFF SET CONSOLE ON SET TALK ON USE APEXMAIL " TO LINE4 STORE " " TO LINE5 STORE " " TO LINE6 STORE " " TO LINE7 STORE " " TO LINE8 STORE "  " TO LINE9 STORE " " TO LINE10 STORE " " TO LINE11 STORE " " TO LINE12 STORE " " TO LINE13 STORE " " TO LINE14 SET FORMAT TO PO  L=60 N Y N 36,COMPANY ------ COMPANY NAME ------------ 36,ADDRESS1 ------- ADDRESS LINE 1 --------- 38,ADDRESS2 ------- ADDRESS LINE 2 --------- 20,CITY ----- CITY ------ 6,STATE STATE 10,ZIP -- ZIP -- 38,ATTENTION ------- ATTENTION / TO: ---------- 8,GROUP GROUP 5205 N. SHAGE A NATIONAL MACHINERY COMPANY BUILDING AD-133 1231 INDUSTRIAL BO* hello.cmd SET INTENSITY OFF SET TALK OFF ERASE SET DEFAULT TO B: USE APEXMAIL INDEX MAILCOMP,MAILZIP DO PRELUDE IF .NOT. FILE ( "ADD.MEM" ) DO MAKEMEM ENDIF ERASE STORE " " TO ANSWER DO WHILE T SET FORMAT TO MAINMENU READ DO CASE CASE ANSWER = "1" DO UPDATE CASE ANSWER = "2" DO MAILREP CASE ANSWER = "3" DO LABELS CASE ANSWER = "4" DO CARDS CASE ANSWER = "5" ERASE CANCEL CASE ANSWER = "6" SET CONSOLE OFF QUIT ENDCASE STORE " " TO ANSWER ENDDO    * LABELMEN.FMT @ 1, 0 SAY "+-------------------------------------------------" @ 1,50 SAY "-+" @ 2, 0 SAY "| APEX TOOLWORKS- General Mailing List Manager." @ 2,51 SAY "|" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-+" @ 4, 0 SAY "|" @ 4,51 SAY "|" @ 5, 0 SAY "| Select a print option by number-" @ 5,51 SAY "|" @ 6, 0 SAY "|" @ 6,51 SAY "|" @ 7, 0 SAY "| 1) 1 across labels, all companies." @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8,51 SAY "|" @ 9, 0 SAY "| 2) 2 across labels, all companies." @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| 3) 3 across labels, all companies." @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "| 4) 1 across labels, select groups." @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| 5) 2 across labels, select groups." @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| 6) 3 across labels, select groups  ." @ 17,51 SAY "|" @ 18, 0 SAY "|" @ 18,51 SAY "|" @ 19, 0 SAY "| 7) RETURN to the main menu." @ 19,51 SAY "|" @ 20, 0 SAY "|" @ 20,51 SAY "|" @ 21, 0 SAY "| What is your choice?" @ 21,24 GET answer @ 21,51 SAY "|" @ 22, 0 SAY "+------ER = "6" DO UP3SEL CASE ANSWER = "7" RETURN ENDCASE STORE " " TO ANSWER ENDDO ASE ANSWER = "2" DO UP2LBL CASE ANSWER = "3" DO UP3LBL CASE ANSWER = "4" DO UP1SEL CASE ANSWER = "5" DO UP2SEL CASE ANSW-------------------------------------------"  20, 0 SAY "|" @ 20,51 SAY "|" @ 21, 0 SAY "| What is your choice?" @ 21,24 GET answer @ 21,51 SAY "|" @ 22, 0 SAY "+------* labels.cmd ERASE STORE " " TO ANSWER DO WHILE T SET FORMAT TO LABELMEN.FMT READ DO CASE CASE ANSWER = "1" DO UP1LBL CASE ANSWER = "2" DO UP2LBL CASE ANSWER = "3" DO UP3LBL CASE ANSWER = "4" DO UP1SEL CASE ANSWER = "5" DO UP2SEL CASE ANSW  * LOADER.CMD SET INTENSITY OFF ERASE SET DEFAULT TO B: DO HELLO REP FMT DUMP FRMLABELS CMD UPDATEMNFMT !   APEX TOOLWORKS MAILING LIST SYSTEM This package of dBase II programs was created as a senior project in software development. Since I had not worked with dBase II before, there may be ways to do some of the functions of the mail manager in e your own file. NOTE: THE MANUAL FOR THIS SOFTWARE PACKAGE IS IN THE POSSESSION OF THE DEFOG USER GROUP AND MAY BE MADE AVAILABLE FOR COPIES. YOU MAY COMPLETELY DIS- REGARD ANY COPYRIGHT NOTICES ON THE MANUAL FOR THE FOLLOWING REASONS: 1.a more efficient way, but I will leave that to the user. To prepare a diskette set for use, you need to do the following: 1. Transfer the files "A.CMD" and "AUTOST.COM" to your dBase II command disk. 2. Rename your file called "DBASE.COM There is no such company: Apex Toolworks. 2. There is no such company: On-Target. 3. As the true copyright holder of the software, I grant full use of the mailing list manual and software to any individual or group, for any " to "DO.COM" 3. Place your dBase II disk in drive A and the Apex Toolworks disk in drive b. Reboot the system and the mailing manager will be started automatically. DOUBLE DENSITY USERS 1. Transfer all the files onto y purpose. If I can help you implement the package, or you just have some questions, call Randy Shafer 332-5124 Weekends only please. our dBase command disk. 2. Rename your file called "DBASE.COM" to "DO.COM". 3. Transfer all files with an extent of ".dbf" or "ndx" to a blank diskette. This will be your new data disk. 4. All of the command files must be scanne --> FILE: -FOG/APP.032 CRC = 00 00 --> FILE: /APP#032.DOC CRC = 77 04 --> FILE: A .CMD CRC = 9B 92 --> FILE: ADD .MEM CRC = 92 C7 --> FILE: ALPH .FRM CRC = 9D 3D --> FILE: APEXMAIL.DBF CRC = 6F E6 --> FILE: AUTd and changed with disk drive references so the programs can find each other as well as the data base. The database "APEXMAIL.DBF" has a number of entries already. Make sure you don't destroy the structure of the database file if you creatOST .COM CRC = 8B E8 --> FILE: CARDS .CMD CRC = 65 2D --> FILE: DUMP .FRM CRC = 7E 8A --> FILE: HELLO .CMD CRC = B5 E6 --> FILE: LABELMEN.FMT CRC = 60 44 --> FILE: LABELS .CMD CRC = 94 41 --> FILE: LOADER .CMD CRC =   17 AA --> FILE: MAIL .DOC CRC = EE 6E --> FILE: MAILCOMP.NDX CRC = 4A 74 --> FILE: MAILREP .CMD CRC = 20 F6 --> FILE: MAILZIP .NDX CRC = 34 44 --> FILE: MAINMENU.FMT CRC = 33 98 --> FILE: MAKEMEM .CMD CRC = 60 F6 --> FIMACHINE INTELLIGENCE CORPORATIONMORSE CUTTING TOOLS NATIONAL MACHINERY COMPANY NIKON VISIONS, NIKON INC. STARRETT INDUSTRIAL SUPPLY CO. THE OLOFSSON CORPORATION WESTINGHOUSE ELECTRIC- UNIMATION WHILE: POSTCARD.FMT CRC = 0D 85 --> FILE: PRELUDE .CMD CRC = DA 3E --> FILE: PRINTLBL.CMD CRC = 3E 3C --> FILE: PRINTOFF.CMD CRC = 8A 08 --> FILE: PRINTREP.CMD CRC = AF 8E --> FILE: REP .FMT CRC = 81 82 --> FILE: SEARCH .CM GCA CORPORATION !GLEASON MACHINE DIVISION GULF OIL CORPORATION HANLO GAUGE HARDINGE BROTHERS, INC. )HURCO MANUFACTURING CO., INC. INGERSOLL CUTTING TOOL COMPANY D CRC = 9C 90 --> FILE: SELECTMN.FMT CRC = 2C 7B --> FILE: UP1LBL .CMD CRC = E0 7F --> FILE: UP1SEL .CMD CRC = D9 33 --> FILE: UP2LBL .CMD CRC = 3C 7D --> FILE: UP2SEL .CMD CRC = C2 5F --> FILE: UP3LBL .CMD CRC = 17 DB ISCAR METALS INCORPORATED KTS INDUSTRIES, INCORPORATED MACHINE INTELLIGENCE CORPORATIONHANLO GAUGE HARDINGE BROTHERS, INC. INGERSOLL CUTTING TOOL COMPANY ISCAR METALS INCORPORATED MAC --> FILE: UP3SEL .CMD CRC = 0F C0 --> FILE: UPDATE .CMD CRC = F4 19 --> FILE: UPDATEMN.FMT CRC = 4C 73 ---------------------> SUM OF CRCS = D1 B5  -SKF & DORMER TOOLS CORPORATION SONY MAGNASCALE STARRETT INDUSTRIAL SUPPLY CO. ,SUMIDEN CARBIDE AMERICA, INC. $T.M. SMITH TOOL INTERNATIONAL THE OLOFSSON CORPORATION *W.A. WHITNEY DIPAX DIVISION OF CITCO  MACHINE INTELLIGENCE CORPORATIONSHAFER CONSULTANTS, INC. STARRETT INDUSTRIAL SUPPLY CO. THE OLOFSSON CORPORATION WESTINGHOUSE ELECTRIC- UNIMATION WHITE-SUNSTRAND MACHINE TOOL CO.   ST REPORT BY COMPANY NAME REPORT FORM DUMP TO PRINT CASE ANSWER = "2" USE APEXMAIL INDEX MAILZIP SET HEADING TO APEX TOOLWORKS- MAILING LIST REPORT BY ZIP CODE REPORT FORM DUMP TO PRINT USE APEXMAIL INDEX MAILCOMP  CASE ANSWER = "3" SET HEADING TO APEX TOOLWORKS- MAILING LIST REPORT FOR GROUP "A" REPORT FORM DUMP TO PRINT FOR GROUP = "A" CASE ANSWER = "4" SET HEADING TO APEX TOOLWORKS- MAILING LIST REPORT FOR GROUP "B" REPORT FORM DUMP TO PRINT FOR GROUP = "B" CASE ANSWER = "5" SET HEADING TO APEX TOOLWORKS- MAILING LIST REPORT FOR GROUP "C" REPORT FORM DUMP TO PRINT FOR GROUP = "C" CASE ANSWER = "6" SET HEADING TO APEX TOOLWORKS- MAILING LIST REPORT FOR GROUP "D" REPORT FORM DUMP TO PRINT FOR GROUP = "D" CASE ANSWER = "7" SET HEADING TO APEX TOOLWORKS- MAILING LIST REPORT FOR GROUP "E" REPORT FORM DUMP TO PRINT FOR GROUP = "E" CASE ANSWER = "8" SET CONSOLE ON* MAILREP.CMD SET TALK OFF RELEASE ALL USE APEXMAIL INDEX MAILCOMP STORE " " TO ANSWER DO PRINTREP DO WHILE T ERASE SET FORMAT TO REP READ SET CONSOLE OFF DO CASE CASE ANSWER = "1" SET HEADING TO APEX TOOLWORKS- MAILING LI  33166 44024 44883 45209 )46268 48009 $48043-028748057 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 94548058 48059 48068 48090 '48106 48160 48909 49007 55041 60007 "60048 ,60056 60521 60566 60638 61008 61103 *61105  $ZIPANYY) 48057 48059 480677251 92680 94545 48068 48090 48160 48909 49007 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 9458 48090 48160 48909 49007 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 94545 48057 48058 48059 48057 48059 48068 48090 48160 48909 49007 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 94545 01069 (01803 02742 #02852 +06111 06606 06609 -06611 07840 11530 11788 .11788 !14692 14902 15205 &15221 22403 %33135 /48057 48058 48059 48068 48090 48160 48909 49007 55041 60007 "60048 60521 60566 60638 61008 61103 77251 92680 945   * MAINMENU.FMT @ 1, 0 SAY "+-------------------------------------------------" @ 1,50 SAY "-+" @ 2, 0 SAY "| APEX TOOLWORKS INC." @ 2,51 SAY "|" @ 3, 0 SAY "| Mailing List Management System." @ 3,51 SAY "|" @ 4, 0 SAY ""|" @ 22, 0 SAY "+-------------------------------------------------" @ 22,50 SAY "-+" you want?" @ 20,33 GET answer @ 20,51 SAY "|" @ 21, 0 SAY "| MAINMENU" @ 21,51 SAY +-------------------------------------------------" @ 4,50 SAY "-+" @ 5, 0 SAY "| Select one of the following options by number-" @ 5,51 SAY "|" @ 6, 0 SAY "|" @ 6,51 SAY "|" @ 7, 0 SAY "| 1. Update or view the mail list." @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8,51 SAY "|" @ 9, 0 SAY "| 2. Print a report of the mail list contents." @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| 3. Print mail labels." @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "|  4. Print post cards." @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| 5. Exit the mail manager and enter dBase II" @ 15,51 SAY "|" @ 16, 0 SAY "| language." @ 16,51 SAY "|" @ 17, 0 SAY "|" @ 17,51 SAY "|" @ 18, 0 SAY "| 6* MAKEMEM.CMD STORE " " TO COMPNAME STORE " " TO ADDR1 STORE " " TO ADDR2 STORE " " TO ATTN STORE " " TO CT S. Exit the mail manager and enter CP/M." @ 18,51 SAY "|" @ 19, 0 SAY "|" @ 19,51 SAY "|" @ 20, 0 SAY "| Which item number do you want?" @ 20,33 GET answer @ 20,51 SAY "|" @ 21, 0 SAY "| MAINMENU" @ 21,51 SAY TORE " " TO ST STORE " " TO ZP STORE " " TO GRP SAVE TO ADD RELEASE ALL RETURN  " TO ADDR2 STORE " " TO ATTN STORE " " TO CT S   * POSTCARD.FMT @ 1, 0 SAY "+=================================================" @ 1,50 SAY "=+" @ 2, 0 SAY "| APEX TOOLWORKS- General Mailing List Manager." @ 2,51 SAY "|" @ 3, 0 SAY "+=================================================" @ 3,50 SAY "=+" @ 4, 0 SAY "| You may type any text into the lines provided." @ 4,51 SAY "|" @ 5, 0 SAY "| The text will appear on the front of the card" @ 5,51 SAY "|" @ 6, 0 SAY "| areas allowed for text by the U.S. Postal Svc." @ 6,51 SAY "|" @  7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8, 3 GET line1 @ 8,49 SAY "+ |" @ 9, 0 SAY "|" @ 9, 3 GET line2 @ 9,49 SAY "+ |" @ 10, 0 SAY "|" @ 10, 3 GET line3 @ 10,49 SAY "+ |" @ 11, 0 SAY "|" @ 11, 3 GET line4 @ 11,49 SAY "+ |" @ 12, 0 SAY "|" @ 12, 3 GET line5 @ 12,49 SAY "+ |" @ 13, 0 SAY "|" @ 13, 3 GET line6 @ 13,27 SAY "+ |" @ 14, 0 SAY "|" @ 14, 3 GET line7 @ 14,27 SAY "+ |" @ 15, 0 SAY "|" @ 15, 3 GET line8 @ 15,27 SAY "+    |" @ 16, 0 SAY "|" @ 16, 3 GET line9 @ 16,27 SAY "+ |" @ 17, 0 SAY "|" @ 17, 3 GET line10 @ 17,27 SAY "+ |" @ 18, 0 SAY "|" @ 18, 3 GET line11 @ 18,27 SAY "+ | 5, 0 SAY "| GENERAL MAILING LIST" @ 5,51 SAY "|" @ 6, 0 SAY "| MANAGER" @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "+=================================================" @ 8,50 SAY "=+" @ 9, 0 SAY" @ 19, 0 SAY "|" @ 19, 3 GET line12 @ 19,27 SAY "+ |" @ 20, 0 SAY "|" @ 20, 3 GET line13 @ 20,27 SAY "+ |" @ 21, 0 SAY "|" @ 21, 3 GET line14 @ 21,27 SAY "+ |" @ 22, 0 SAY "+===== "|" @ 9,51 SAY "|" @ 10, 0 SAY "|" @ 10,51 SAY "|" @ 11, 0 SAY "| THE SYSTEM INDEX FILES ARE BEING UPDATED" @ 11,51 SAY "|" @ 12, 0 SAY "|" @ 12,51 SAY "|" @ 13, 0 SAY "|" @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| ============================================" @ 22,50 SAY "=+"Y "+ |" @ 21, 0 SAY "|" @ 21, 3 GET line14 @ 21,27 SAY "+ |" @ 22, 0 SAY "+===== PLEASE BE PATIENT" @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "|" @ 17,51 SAY "|" @ 18, 0 SAY "|" @ 18,51 SAY "|" @ 19, 0 SAY "| THANK YOU !" @ 19,51 SAY "|" @ 20, 0 SAY "|" @ 20,51 SAY "|" @ 21, 0 SAY "|" @ 21,51 SAY "|" @ 22, 0 SAY "+=================================================" RETURN O MAILCOMP INDEX ON ZIP TO MAILZIP RETURN  * PRELUDE.CMD ERASE @ 1, 0 SAY "+=================================================" @ 1,50 SAY "=+" @ 2, 0 SAY "|" @ 2,51 SAY "|" @ 3, 0 SAY "| A P E X T O O L W O R K S I N C ." @ 3,51 SAY "|" @ 4, 0 SAY "|" @ 4,51 SAY "|" @ +-------------------------------------------------" @ 4,50 SAY "-+" @ 5, 0 SAY "| Select one of the following options by number-" @ 5,51 SAY "|" @ 6, 0 SAY "|" @ 6,51 SAY "|" @ 7, 0 SAY "| 1. Update or view the mail list." @ 7,51 SAY "|" @  * PRELUDE.CMD ERASE @ 1, 0 SAY "+=================================================" @ 1,50 SAY "=+" @ 2, 0 SAY "|" @ 2,51 SAY "|" @ 3, 0 SAY "| A P E X T O O L W O R K S I N C ." @ 3,51 SAY "|" @ 4, 0 SAY "|" @ 4,51 SAY "|" @  5, 0 SAY "| GENERAL MAILING LIST" @ 5,51 SAY "|" @ 6, 0 SAY "| MANAGER" @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "+=================================================" @ 8,50 SAY "=+" @ 9, 0 SAY  SET PRINT ON SET CONSOLE OFF ? CHR(27) + CHR(69) SET PRINT OFF RETURN SET CONSOLE OFF SET PRINT ON ? CHR(27) + CHR(70) ? CHR(18) SET PRINT OFF SET CONSOLE ON RETURN   SET PRINT ON ? CHR(15) SET PRINT OFF RETURN   +" @ 4, 0 SAY "| REPORT FORM SELECTION" @ 4,51 SAY "|" @ 5, 0 SAY "|" @ 5,51 SAY "|" @ 6, 0 SAY "| Choose an option by number-" @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "|" @ 8,51 SAY "|" @ 9, 0 SAY "| 1) All mail entries sorted by company." @ 9,51 SAY "|" @ 10, 0 SAY "| 2) All mail entries sorted by zip code." @ 10,51 SAY "|" @ 11, 0 SAY "| 3) Group A companies only." @ 11,51 SAY "|" @ 12, 0 SAY "| 4) Group B companies only." @ 12,51 SAY "|" @ 13, 0 SAY "| 5) Group C companies only." @ 13,51 SAY "|" @ 14, 0 SAY "| 6) Group D companies only." @ 14,51 SAY "|" @ 15, 0 SAY "| 7) Group E companies only." @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| 8) RETURN to the main menu." @ 17,51 SAY "|" @ 18, 0 SAY "|" @ 18,51 SAY "|" @ 19, 0 SAY "|" @ 19,51 SAY "|" @ 20, 0 SAY "| What is your selection?" @ 20,26 GET answer @ 20,51 SAY "|" @ 21, 0 SAY "|" @ 21,51 SAY "|" @ 22, 0 SAY  * REP.FMT @ 1, 0 SAY "+-------------------------------------------------" @ 1,50 SAY "-+" @ 2, 0 SAY "| APEX TOOLWORKS- General Mailing List Manager." @ 2,51 SAY "|" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SAY "-"+-------------------------------------------------" @ 22,50 SAY "-+"|" @ 20, 0 SAY "| What is your selection?" @ 20,26 GET answer @ 20,51 SAY "|" @ 21, 0 SAY "|" @ 21,51 SAY "|" @ 22, 0 SAY   * SEARCH.CMD ERASE USE APEXMAIL INDEX MAILCOMP ? ? ? ? ? ACCEPT "Please enter the company name to search for" to NAME STORE !(NAME) TO NAME FIND &NAME IF # = 0 ERASE ? ? ? ? ? ? ? NAME , "is not in the file" ? "Hit any key to return to the menu." SET CONSOLE OFF WAIT SET CONSOLE ON ENDIF RELEASE NAME RETURN TORE !(NAME) TO NAME FIND &NAME IF # = 0 ERASE ? ? ? ? ? ? ? NAME , "is not in the file" ? "Hit any key to return to    * SELECTMN.FMT @ 1, 0 SAY "+-------------------------------------------------" @ 1,50 SAY "-+" @ 2, 0 SAY "| APEX TOOLWORKS- General Mailing List Manager." @ 2,51 SAY "|" @ 3, 0 SAY "+-------------------------------------------------" @ 3,50 SSS 6" @ 19,35 GET pass6 @ 19,51 SAY "|" @ 20, 0 SAY "|" @ 20,51 SAY "|" @ 21, 0 SAY "| If all passes are blank, no print will occur." @ 21,51 SAY "|" @ 22, 0 SAY "+-------------------------------------------------" @ 22,50 SAY "-+"AY "-+" @ 4, 0 SAY "|" @ 4,51 SAY "|" @ 5, 0 SAY "| MAIL LABEL PRINTOUT- GROUP SELECTION" @ 5,51 SAY "|" @ 6, 0 SAY "|" @ 6,51 SAY "|" @ 7, 0 SAY "| Place the group selection characters-" @ 7,51 SAY "|" @ 8, 0 SAY "| (A,B,C,D or E) in the order you want them" @ 8,51 SAY "|" @ 9, 0 SAY "| to be printed out. Since up to 6 passes" @ 9,51 SAY "|" @ 10, 0 SAY "| can be made and there are only 5 groups," @ 10,51 SAY "|" @ 11, 0 SAY "| multiple copies of a group can be made." @ 11,51 SAY "|" @ 12, 0 SAY "| Passes with blank group selection will be" @ 12,51 SAY "|" @ 13, 0 SAY "| skipped." @ 13,51 SAY "|" @ 14, 0 SAY "|" @ 14,51 SAY "|" @ 15, 0 SAY "| PASS 1" @ 15,11 GET pass1 @ 15,28 SAY "PASS 2" @ 15,35 GETUSE APEXMAIL INDEX MAILZIP GO TOP SET TALK OFF SET CONSOLE OFF DO PRINTLBL SET PRINT ON DO WHILE .NOT. EOF ? ATTENTION ? COMPANY ? ADDRESS1 ? ADDRESS2 ? TRIM(CITY) + ", " + STATE + " " + ZIP ? SKIP ENDDO GO TOP SET PRINT OFF DO PRINTOFF  pass2 @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| PASS 3" @ 17,11 GET pass3 @ 17,28 SAY "PASS 4" @ 17,35 GET pass4 @ 17,51 SAY "|" @ 18, 0 SAY "|" @ 18,51 SAY "|" @ 19, 0 SAY "| PASS 5" @ 19,11 GET pass5 @ 19,28 SAY "PASET RAW ON SET TALK ON SET CONSOLE ON RETURN  COMPANY ? ADDRESS1 ? ADDRESS2 ? TRIM(CITY) + ", " + STATE + " " + ZIP ? SKIP ENDDO GO TOP SET PRINT OFF DO PRINTOFF   * UP1SEL.CMD USE APEXMAIL INDEX MAILZIP STORE " " TO PASS1 STORE " " TO PASS2 STORE " " TO PASS3 STORE " " TO PASS4 STORE " " TO PASS5 STORE " " TO PASS6 STORE " " TO HOLDER STORE 1 TO COUNTER SET FORMAT TO SELECTMN READ SET CONSOLE OFF SET TALK OFF SET RAW ON DO PRINTLBL SET PRINT ON IF PASS1 = " " .AND. PASS2 = " " .AND. PASS3 = " " .AND. PASS4 = " "; .AND. PASS5 = " " .AND. PASS6 = " " SET TALK ON SET CONSOLE ON DO PRINTOFF SET PRINT OFF SET RAW OFF RETURN ENDIF DO WHILE COUNTER < 7 DO CASE CASE COUNTER = 1 STORE PASS1 TO HOLDER CASE COUNTER = 2 STORE PASS2 TO HOLDER CASE COUNTER = 3 STORE PASS3 TO HOLDER CASE COUNTER = 4 STORE PASS4 TO HOLDER CASE COUNTER = 5 STORE PASS5 TO HOLDER CASE COUNTER = 6 STORE PASS6 TO HOLDER ENDCASE IF HOLDER <> " " DO WHILE .NOT. EOF IF GROUP = HOLDER ? ATTENTION ? COMPANY ? ADDRESS1 ? ADDRESS2 ? TRIM(CITY) + ", " + STATE + " " + ZIP ? ENDIF SKIP ENDDO ENDIF STORE COUNTER + 1 TO COUNTER STORE " " TO HOLDER GO TOP !  ENDDO SET PRINT OFF DO PRINTOFF SET RAW ON SET TALK ON SET CONSOLE ON RETURN RIM(CITY) + ", " + STATE + " " + ZIP ? ENDIF SKIP ENDDO ENDIF STORE COUNTER + 1 TO COUNTER STORE " " TO HOLDER GO TOP STORE " " TO NAME2 STORE " " TO ADR1A STORE " " TO ADR1B STORE " " TO ADR2A STORE " " TO ADR2B STORE " " TO LAST1 STORE " " TO LAST2 IF .NOT. EOF STORE ATTENTION TO AT1 STORE COMPANY TO NAME1 STORE ADDRESS1 TO ADR1A STORE ADDRESS2 TO ADR1B STORE CITY + STATE + " " + ZIP TO LAST1 SKIP ENDIF IF .NOT. EOF STORE ATTENTION TO AT2 STORE COMPANY TO NAME2 STORE ADDRESS1 TO ADR2A STORE ADDRESS2 TO ADR2B STORE CITY + STATE + " " + ZIP TO LAST2 SKIP ENDIF DO PRINTLBL SET PRINT ON ? AT1,AT2 ? NAME1,NAME2 ? ADR1A,ADR2A ? ADR1B,ADR2B ? LAST1,LAST2 ? IF EOF STORE F TO GO ENDIF SET PRINT OFF DO PRINTOFF ENDDO SET TALK ON SET CONSOLE ON SET RAW OFF GO TOP RETURN USE APEXMAIL INDEX MAILZIP SET CONSOLE OFF SET TALK OFF SET RAW ON GO TOP STORE T TO GO DO WHILE GO STORE " " TO AT1 STORE " " TO AT2 STORE " " TO NAME1 "  TO HOLDER ENDCASE IF HOLDER <> " " STORE T TO GO DO WHILE GO STORE " " TO AT1 STORE " " TO AT2 STORE " " TO NAME1 STORE " " TO NAME2 STORE " " TO ADR1A STORE " " TO ADR1B STORE " " TO ADR2A STORE " " TO ADR2B STORE " " T* UP2SEL.CMD USE APEXMAIL INDEX MAILZIP STORE " " TO PASS1 STORE " " TO PASS2 STORE " " TO PASS3 STORE " " TO PASS4 STORE " " TO PASS5 STORE " " TO PASS6 STORE " " TO HOLDER STORE 1 TO COUNTER SET FORMAT TO SELECTMN READ SET CONSOLE OFF SET TAO LAST1 STORE " " TO LAST2 IF .NOT. EOF DO WHILE GROUP <> HOLDER .AND. .NOT. EOF SKIP ENDDO IF GROUP = HOLDER STORE ATTENTION TO AT1 STORE COMPANY TO NAME1 STORE ADDRESS1 TO ADR1A STORE ADDRESS2 TO ADR1B STORE CITYLK OFF SET RAW ON DO PRINTLBL SET PRINT ON IF PASS1 = " " .AND. PASS2 = " " .AND. PASS3 = " " .AND. PASS4 = " "; .AND. PASS5 = " " .AND. PASS6 = " " SET TALK ON SET CONSOLE ON SET PRINT OFF DO PRINTOFF SET RAW OFF RETURN ENDIF DO WHILE COUNTER + STATE + " " + ZIP TO LAST1 ENDIF SKIP ENDIF IF .NOT. EOF DO WHILE GROUP <> HOLDER .AND. .NOT. EOF SKIP ENDDO IF GROUP = HOLDER STORE ATTENTION TO AT2 STORE COMPANY TO NAME2 STORE ADDRESS1 TO ADR2A STORE ADDRESS2 TO ADR2B  < 7 DO CASE CASE COUNTER = 1 STORE PASS1 TO HOLDER CASE COUNTER = 2 STORE PASS2 TO HOLDER CASE COUNTER = 3 STORE PASS3 TO HOLDER CASE COUNTER = 4 STORE PASS4 TO HOLDER CASE COUNTER = 5 STORE PASS5 TO HOLDER CASE COUNTER = 6 STORE PASS6 STORE CITY + STATE + " " + ZIP TO LAST2 ENDIF SKIP ENDIF ? AT1,AT2 ? NAME1,NAME2 ? ADR1A,ADR2A ? ADR1B,ADR2B ? LAST1,LAST2 ? IF EOF STORE F TO GO GOTO TOP ENDIF ENDDO ENDIF STORE COUNTER + 1 TO COUNTER ENDDO DO PRINTOFF SET PRINT OFF S#  ET RAW OFF SET TALK ON SET CONSOLE ON RETURN ST2 ? IF EOF STORE F TO GO GOTO TOP ENDIF ENDDO ENDIF STORE COUNTER + 1 TO COUNTER ENDDO DO PRINTOFF SET PRINT OFF SUSE APEXMAIL INDEX MAILZIP SET CONSOLE OFF SET TALK OFF SET RAW ON GO TOP STORE T TO GO DO WHILE GO STORE " " TO AT1 STORE " " TO AT2 STORE " " TO AT3 STORE " " TO NAME1 STORE " " TO NAME2 STORE " " TO NAME3 STORE " " TO ADR1A STORE " " TO ADR1B STO$  RE " " TO ADR2A STORE " " TO ADR2B STORE " " TO ADR3A STORE " " TO ADR3B STORE " " TO LAST1 STORE " " TO LAST2 STORE " " TO LAST3 IF .NOT. EOF STORE ATTENTION TO AT1 STORE COMPANY TO NAME1 STORE ADDRESS1 TO ADR1A STORE ADDRESS2 TO ADR1B STORE CITY + STATE + " " + ZIP TO LAST1 SKIP* UP3SEL.CMD USE APEXMAIL INDEX MAILZIP STORE " " TO PASS1 STORE " " TO PASS2 STORE " " TO PASS3 STORE " " TO PASS4 STORE " " TO PASS5 STORE " " TO PASS6 STORE " " TO HOLDER STORE 1 TO COUNTER SET FORMAT TO SELECTMN READ SET CONSOLE OFF SET TA ENDIF IF .NOT. EOF STORE ATTENTION TO AT2 STORE COMPANY TO NAME2 STORE ADDRESS1 TO ADR2A STORE ADDRESS2 TO ADR2B STORE CITY + STATE + " " + ZIP TO LAST2 SKIP ENDIF IF .NOT. EOF STORE ATTENTION TO AT3 STORE COMPANY TO NAME3 STORE ADDRESS1 TO LK OFF SET RAW ON DO PRINTLBL SET PRINT ON IF PASS1 = " " .AND. PASS2 = " " .AND. PASS3 = " " .AND. PASS4 = " "; .AND. PASS5 = " " .AND. PASS6 = " " SET TALK ON SET CONSOLE ON DO PRINTOFF SET PRINT OFF SET RAW OFF RETURN ENDIF DO WHILE COUNTERADR3A STORE ADDRESS2 TO ADR3B STORE CITY + STATE + " " + ZIP TO LAST3 SKIP ENDIF DO PRINTLBL SET PRINT ON ? AT1,AT2,AT3 ? NAME1,NAME2,NAME3 ? ADR1A,ADR2A,ADR3A ? ADR1B,ADR2B,ADR3B ? LAST1,LAST2,LAST3 ? IF EOF STORE F TO GO ENDIF SET PRINT  < 7 DO CASE CASE COUNTER = 1 STORE PASS1 TO HOLDER CASE COUNTER = 2 STORE PASS2 TO HOLDER CASE COUNTER = 3 STORE PASS3 TO HOLDER CASE COUNTER = 4 STORE PASS4 TO HOLDER CASE COUNTER = 5 STORE PASS5 TO HOLDER CASE COUNTER = 6 STORE PASS6 OFF DO PRINTOFF ENDDO SET TALK ON SET CONSOLE ON SET RAW OFF GO TOP RETURN  ? NAME1,NAME2,NAME3 ? ADR1A,ADR2A,ADR3A ? ADR1B,ADR2B,ADR3B ? LAST1,LAST2,LAST3 ? IF EOF STORE F TO GO ENDIF SET PRINT TO HOLDER ENDCASE IF HOLDER <> " " STORE T TO GO DO WHILE GO STORE " " TO AT1 STORE " " TO AT2 STORE " " TO AT3 STORE " " TO%   NAME1 STORE " " TO NAME2 STORE " " TO NAME3 STORE " " TO ADR1A STORE " " TO ADR1B STORE " " TO STATE + " " + ZIP TO LAST3 ENDIF SKIP ENDIF ? AT1,AT2,AT3 ? NAME1,NAME2,NAME3 ? ADR1A,ADR2A,ADR3A ? ADR1B,ADR2B,ADR3B ? LAST1,LAST2,LAST3 ? IF EOF STORE F TO GO GOTO TOP ENDIF ENDDO ENDIF STORE COUNTER + 1 TO COUNTER ENDDO SET PRINT OFF ADR2A STORE " " TO ADR2B STORE " " TO ADR3A STORE " " TO ADR3B STORE " " TO LAST1 STORE " " TO L DO PRINTOFF SET RAW OFF SET TALK ON SET CONSOLE ON RETURN  LAST1,LAST2,LAST3 ? IF EOF STORE F TO GO GOTO TOP ENDIF ENDDO ENDIF STORE COUNTER + 1 TO COUNTER ENDDO SET PRINT OFF AST2 STORE " " TO LAST3 IF .NOT. EOF DO WHILE GROUP <> HOLDER .AND. .NOT. EOF SKIP ENDDO IF GROUP = HOLDER STORE ATTENTION TO AT1 STORE COMPANY TO NAME1 STORE ADDRESS1 TO ADR1A STORE ADDRESS2 TO ADR1B STORE CITY + STATE + " " + ZIP TO LAST1 ENDIF SKIP ENDIF IF .NOT. EOF DO WHILE GROUP <> HOLDER .AND. .NOT. EOF SKIP ENDDO IF GROUP = HOLDER STORE ATTENTION TO AT2 STORE COMPANY TO NAME2 STORE ADDRESS1 TO ADR2A STORE ADDRESS2 TO ADR2B STORE CITY + STATE + " " + ZIP TO LAST2 ENDIF SKIP ENDIF IF .NOT. EOF DO WHILE GROUP <> HOLDER .AND. .NOT. EOF SKIP ENDDO IF GROUP = HOLDER STORE ATTENTION TO AT3 STORE COMPANY TO NAME3 STORE ADDRESS1 TO ADR3A STORE ADDRESS2 TO ADR3B STORE CITY + &  * UPDATE.CMD ERASE RELEASE ALL STORE " " TO ANSWER DO WHILE T SET FORMAT TO UPDATEMN READ DO CASE CASE ANSWER = "1" ERASE USE APEXMAIL INDEX MAILCOMP,MAILZIP APPEND ERASE CASE ANSWER = "2" DO SEARCH IF * RECALL ELSE DELETE ENDIF CASE ANSWER = "3" DO SEARCH IF # = 0 RETURN ENDIF ERASE EDIT # ERASE CASE ANSWER = "4" ERASE ? ? ? ? "WARNING! WARNING! WARNING!" ? ? ? "If you continue with this command, all files" ? "marked for deletion will be PERMANENTLY erased." ? ? "Type 'yes' to continue, anything else to abort." ? ACCEPT TO PERMS IF !(PERMS) = "YES" USE APEXMAIL INDEX MAILCOMP,MAILZIP PACK ENDIF ERASE CASE ANSWER = "5" RETURN ENDCASE STORE " " TO ANSWER STORE " " TO PERMS ENDDO '   * UPDATEMN.FMT @ 1, 0 SAY "+=================================================" @ 1,50 SAY "=+" @ 2, 0 SAY "| APEX TOOLWORKS- General Mailing List Manager." @ 2,51 SAY "|" @ 3, 0 SAY "+=================================================" @ 3,50 SAY "=+" @ 4, 0 SAY "|" @ 4,51 SAY "|" @ 5, 0 SAY "| Select from the following list by number-" @ 5,51 SAY "|" @ 6, 0 SAY "|" @ 6,51 SAY "|" @ 7, 0 SAY "|" @ 7,51 SAY "|" @ 8, 0 SAY "| 1) Add new records." @ 8,51 SAY "|" @ 9, 0 SAY "|" @ 9,51 SAY "|" @ 10, 0 SAY "| 2) Mark or unmark a record for deletion." @ 10,51 SAY "|" @ 11, 0 SAY "|" @ 11,51 SAY "|" @ 12, 0 SAY "| 3) Edit a record." @ 12,51 SAY "|" @ 13, 0 SAY "|" @ 13,51 SAY "|" @ 14, 0 SAY "| 4) Purge the file of records marked for" @ 14,51 SAY "|" @ 15, 0 SAY "| deletion. WARNING!!! PERMANENT !!" @ 15,51 SAY "|" @ 16, 0 SAY "|" @ 16,51 SAY "|" @ 17, 0 SAY "| 5) Return to the main menu." @ 17,51 SAY "|" @ 18, 0 SAY "|" @ 18,51 SAY "|" @ 19, 0 SAY "|" @ 19,51 SAY "|" @ 20, 0 SAY "| What is your selection?" @ 20,26 GET answer @ 20,51 SAY "|" @ 21, 0 SAY "|" @ 21,51 SAY "|" @ 22, 0 SAY "+-------------------------------------------------" @ 22,50 SAY "-+"