home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / db2.arc / MAILLBL.CMD < prev    next >
Encoding:
Text File  |  1989-09-27  |  1.5 KB  |  77 lines
  1.  
  2. * Program..: MAILLBL.CMD
  3. * Author...: Your Name
  4. * Date.....: 03/21/86
  5. * Notice...: Copyright 1986, All Rights Reserved
  6. * Reserved.: select, condition, extra
  7. *
  8. SET TALK OFF
  9. SET BELL OFF
  10. STORE " " TO select
  11. USE MAIL
  12. ERASE
  13. @ 2, 0 SAY "M A I L    M A I L I N G    L A B E L S"
  14. @ 2,72 SAY DATE()
  15. @ 3, 0 SAY "========================================"
  16. @ 3,40 SAY "========================================"
  17. STORE " " TO select
  18. @ 5,0 SAY "Output to the screen or printer? [S/P] ";
  19.       GET select PICTURE "!"
  20. READ
  21. DO CASE
  22.    CASE select = "S"
  23.       ERASE
  24.    CASE select = "P"
  25.       SET CONSOLE OFF
  26.       SET PRINT ON
  27.    OTHERWISE
  28.       ERASE
  29.       SET BELL ON
  30.       SET TALK ON
  31.       RETURN
  32. ENDCASE
  33. * ---Enter FOR <expression> for the labels, such as,
  34. * ---STORE "STATE = 'CA'" TO condition
  35. STORE " " TO condition
  36. DO WHILE .NOT. EOF
  37.    IF condition <> " "
  38.       IF .NOT. (&condition)
  39.          SKIP
  40.          LOOP
  41.       ENDIF
  42.    ENDIF
  43.    STORE 0 TO extra
  44.    ? NAME
  45.    ? ADDRESS
  46.    ? TRIM(CITY)+", "+COUNTY
  47.    ? POST:CODE+"  "+COUNTRY
  48.    ?
  49.    ?
  50.    DO WHILE extra > 0
  51.       ?
  52.       STORE extra - 1 TO extra
  53.    ENDDO
  54.    SKIP
  55. ENDDO
  56. *
  57. SET PRINT OFF
  58. SET CONSOLE ON
  59. ?
  60. ? "THAT'S ALL FOLKS..."
  61. CLEAR
  62. SET TALK ON
  63. SET BELL ON
  64. RETURN
  65. * EOF: MAILLBL.CMD
  66. ILE selectnum < 0 .OR. selectnum > 4
  67.    STORE " " TO select
  68.    @ 12,33 SAY " select : : "
  69.    @ 12,42 GET select PICTURE "#"
  70.    READ
  71.    STORE VAL(select) TO selectnum
  72. ENDDO
  73.  
  74. DO CASE
  75.    CASE selectnum= 0
  76.       CLEAR
  77.       SET COL