home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / LABBAK.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  97 lines
  1. * FILE:- BUDBAK.CMD
  2. * Backup Copy, Other Option Menu
  3. * DATE:- 08/03/87
  4. * J.L.Read. Merrylands. NSW.
  5. * UPDATE:-
  6. SET INTEN OFF
  7. STORE T TO LEVEL4
  8. DO WHILE LEVEL4
  9. ERASE
  10. @ 1,1 SAY"Date:- " +DATE()
  11. @ 1,38 SAY"-=-"
  12. @ 2,28 SAY"--+--  dBASE II  --+--"
  13. @ 3,38 SAY"-=-"
  14. SET INTEN ON
  15. @ 5,17 SAY" --+--  BACKUP COPY -  DISPLAY LABEL  --+-- "
  16. SET INTEN OFF
  17. @ 7,37 SAY"-===-"
  18. SET INTEN ON
  19. @ 9,23 SAY" --+--  BACKUP COPY MENU  --+-- "
  20. SET INTEN OFF
  21. @ 11,14 SAY"-================================================-"
  22. @ 12,17 SAY"1  --->    BACKUP COPY LABEL PRINTER FILE B:"
  23. @ 13,17 SAY"2  --->    SCREEN DISPLAY ONLY,  ADDR/LABELS"  
  24. @ 14,17 SAY"3  --->    SCREEN DISPLAY, AND  PRINT LABELS"
  25. @ 15,17 SAY"4  --->    RETURN TO -   SCREEN LISTING MENU"
  26. @ 16,14 SAY"-================================================-"
  27. SET TALK OFF
  28. @ 18,37 SAY"-===-"
  29. SET INTEN ON
  30. @ 20,24 SAY"< SELECT  REQUIRED NUMBER >"
  31. SET INTEN OFF
  32. @ 21,37 SAY"-===-"
  33. STORE 0 TO NOW
  34. DO WHILE NOW < 1 .OR. NOW > 4
  35. STORE 0 TO NOW
  36. @ 20,52 GET NOW PICTURE "9"
  37. READ
  38. DO CASE
  39. CASE NOW = 1
  40.   ERASE
  41.   @ 0,0 SAY"Copy."
  42.   @ 1,0 SAY"Label Printer."
  43.   STORE " " TO CO
  44.   SET INTEN ON
  45.   @ 11,19 SAY" DO YOU WANT TO BACKUP FILE  <Y> or <N> "
  46.   SET INTEN OFF
  47.   @ 14,19 SAY" Label Printer Disk Must Be In  A:Drive."
  48.   @ 11,60 GET CO PICTURE "!"
  49.   READ
  50.   IF CO = "Y"
  51.   ERASE
  52.   @ 0,0 SAY"Copy."
  53.   @ 1,0 SAY"Label Printer."
  54.   @ 2,28 SAY"--+--  dBASE II  --+--"
  55.   SET INTEN ON
  56.   @ 11,24 SAY" PLACE BACKUP DISK INTO B:DRIVE "
  57.   SET INTEN OFF
  58.   @ 20,23 SAY"-+- Press <RETURN> When Ready -+- "
  59.   SET CONSOLE OFF
  60.   WAIT
  61.   SET CONSOLE ON
  62.   ERASE
  63.   @ 0,0 SAY"Copy."
  64.   @ 1,0 SAY"Label Printer."
  65.   SET INTEN ON
  66.   @ 3,23 SAY" --+--  COPYING TO B:DRIVE  --+-- "
  67.   SET INTEN OFF
  68.   @ 4,37 SAY"-===- "
  69.   SET TALK ON
  70.   USE LABEL
  71.   COPY TO B:LABEL
  72.   RELEASE CO
  73.   USE
  74.   ELSE
  75.   RELEASE CO
  76.   ENDIF
  77.  CASE NOW = 2
  78.   DO DISPLAB
  79.  CASE NOW = 3
  80.   DO DISPRNT
  81. CASE NOW = 4
  82.   RELEASE LEVEL4,NOW
  83.   RETURN
  84. ENDCASE
  85.   IF NOW < 1 .OR. NOW > 4
  86.   SET INTEN ON
  87.   @ 22,21 SAY" INVALID ENTRY - SELECT < 1 to 4 > "
  88.   SET INTEN OFF
  89.   ENDIF
  90. ENDDO NOW
  91. ENDDO LEVEL4
  92. RETURN
  93.  
  94.  
  95.  
  96.  
  97.