** Last revision: April 17, 1986 at 18:54 * init.prg SET HEADING OFF SET TALK OFF SET DELIMITER ON SET DELIMITER TO '[]' SET SAFETY OFF SET INTENSITY OFF PUBL more, first, printer, disk, dr, filename, lineoffset, command, prompt1, prompt2 PUBL clipper, revvideo, stdvideo, line, frame, prompt3, tstate IF .NOT. clipper SET HELP OFF SET FUNCTION 'F2' TO ' ' SET FUNCTION 'F3' TO ' ' SET FUNCTION 'F4' TO ' ' SET FUNCTION 'F5' TO ' ' SET FUNCTION 'F6' TO ' ' SET FUNCTION 'F7' TO ' ' SET FUNCTION 'F8' TO ' ' SET FUNCTION 'F9' TO ' ' SET FUNCTION 'F10' TO ' ' SET DOHISTORY ON SET ESCAPE ON ON error suspend ON escape suspend ENDI .NOT. clipper SET SCOREBOARD OFF SET PROCEDURE TO PROC revvideo = "N/W" stdvideo = "W/N" line = REPLICATE(CHR(205),79) frame = CHR(201)+CHR(205)+CHR(187)+CHR(186)+CHR(188)+; CHR(205)+CHR(200)+CHR(186) CLEA IF clipper @ 1,0, 16, 79 BOX frame @ 3,3, 14, 74 BOX frame ELSE @ 01,0 TO 16,79 double @ 03,3 TO 14,74 double ENDI clipper @ 05,19 SAY "AMATEUR COMPUTER GROUP OF NEW JERSEY" @ 07,25 SAY "M A I L M A N A G E R" @ 9,18 SAY 'A dBASEIII Data Management Program for' @ 10,23 SAY 'Sending Personalized Letters' @ 11,35 SAY 'by Stephen M. Leon' @ 13,38 SAY 'Vers 3.1 June 1986 (C) 1983,4,5,6' IF clipper IF .NOT. file ("LASTNAME.NTX") USE AG INDE ON UPPER(lastname)+UPPER(fname) TO lastname ENDI ELSE IF .NOT. file ("LASTNAME.NDX") USE AG INDE ON UPPER(lastname)+UPPER(fname) TO lastname ENDI ENDI clipper @ 19,25 SAY 'Please hit any key to continue' SET CONSOL OFF WAIT SET CONSOL ON RETU