home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol285 / init.prg < prev    next >
Encoding:
Text File  |  1986-12-22  |  1.9 KB  |  66 lines
  1. **    Last revision: April 17, 1986 at 18:54
  2. * init.prg
  3. SET HEADING OFF
  4. SET TALK OFF
  5. SET DELIMITER ON
  6. SET DELIMITER TO '[]'
  7. SET SAFETY OFF
  8. SET INTENSITY OFF
  9. PUBL more, first, printer, disk, dr, filename, lineoffset, command, prompt1, prompt2
  10. PUBL clipper, revvideo, stdvideo, line, frame, prompt3, tstate
  11. IF .NOT. clipper
  12.  SET HELP OFF
  13.  SET FUNCTION 'F2' TO ' '
  14.  SET FUNCTION 'F3' TO ' '
  15.  SET FUNCTION 'F4' TO ' '
  16.  SET FUNCTION 'F5' TO ' '
  17.  SET FUNCTION 'F6' TO ' '
  18.  SET FUNCTION 'F7' TO ' '
  19.  SET FUNCTION 'F8' TO ' '
  20.  SET FUNCTION 'F9' TO ' '
  21.  SET FUNCTION 'F10' TO ' '
  22.  SET DOHISTORY ON
  23.  SET ESCAPE ON
  24.  ON error suspend
  25.  ON escape suspend
  26. ENDI .NOT. clipper
  27. SET SCOREBOARD OFF
  28. SET PROCEDURE TO PROC
  29. revvideo = "N/W"
  30. stdvideo = "W/N"
  31. line = REPLICATE(CHR(205),79)
  32. frame = CHR(201)+CHR(205)+CHR(187)+CHR(186)+CHR(188)+;
  33. CHR(205)+CHR(200)+CHR(186)
  34. CLEA
  35. IF clipper
  36.  @ 1,0, 16, 79 BOX frame
  37.  @ 3,3, 14, 74 BOX frame
  38. ELSE
  39.  @ 01,0 TO 16,79 double
  40.  @ 03,3 TO 14,74 double
  41. ENDI clipper
  42. @ 05,19 SAY "AMATEUR COMPUTER GROUP OF NEW JERSEY"
  43. @ 07,25 SAY "M A I L    M A N A G E R"
  44. @ 9,18 SAY 'A dBASEIII Data Management Program for'
  45. @ 10,23 SAY 'Sending Personalized Letters'
  46. @ 11,35 SAY 'by Stephen M. Leon'
  47. @ 13,38 SAY 'Vers 3.1  June 1986 (C) 1983,4,5,6'
  48. IF clipper
  49.  IF .NOT. file ("LASTNAME.NTX")
  50.   USE AG
  51.   INDE ON UPPER(lastname)+UPPER(fname) TO lastname
  52.  ENDI
  53. ELSE
  54.  IF .NOT. file ("LASTNAME.NDX")
  55.   USE AG
  56.   INDE ON UPPER(lastname)+UPPER(fname) TO lastname
  57.  ENDI
  58. ENDI clipper
  59. @ 19,25 SAY 'Please hit any key to continue'
  60. SET CONSOL OFF
  61. WAIT
  62. SET CONSOL ON
  63. RETU
  64. 
  65.  
  66.