home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / dbaseii / vidlog20.lbr / VIDLABEL.CMD < prev    next >
OS/2 REXX Batch file  |  1986-08-31  |  2KB  |  77 lines

  1.  
  2. * Program..: VIDLABEL.CMD
  3. * Author...: Your Name
  4. * Date.....: 05/27/85
  5. * Notice...: Copyright 1985, All Rights Reserved
  6. * Reserved.: select, condition, extra
  7. *
  8. SET TALK OFF
  9. SET BELL OFF
  10. STORE " " TO select
  11. USE VIDEOLOG
  12. ERASE
  13. @ 2, 0 SAY "V I D E O L O G    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.    ? tape
  45.    ? title
  46.    ? hrs+", "+min
  47.    ? indexstrt+"-"+indexend
  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: VIDLABEL.CMD
  66. condition exists.
  67.    IF condition <> " "
  68.       IF .NOT. (&condition)
  69.          SKIP
  70.          LOOP
  71.       ENDIF
  72.    ENDIF
  73.    *
  74.    * ---Print detail line.
  75.    @ line,  0 SAY $(title,1, 30)
  76.    @ line, 33 SAY $(STR(tape,3,0)1,  4)
  77.