CP/M/CPM_CDROM.iso/mbug/mbug108.arc/ADLABEL.LBR/LMENU.CMD

OS/2 REXX Batch file | 1979-12-31 | 6KB | 209 lines

* File:- LMENU.CMD
* By J.L.Read
* Date:- 20/03/87
* Version:- 1.0
* Update:-
ERASE
DO VARY
@ 1,0 SAY"Back-Up Copy:-"
@ 1,50 SAY"DBF File:-"
@ 2,65 SAY"A:LABEL  .DBF"
@ 3,21 SAY"To back-up your DBF Data"
@ 4,2 SAY"file, return to the operating system (CP/M)"
@ 4,50 SAY"Labels:-"
@ 5,2 SAY"and use a copy programme,   or use the copy"
@ 5,54 SAY"Four Inch By Nine Lines."
@ 6,2 SAY"option within this program.  Copy Data file"
@ 7,2 SAY"to a back-up Disk."
@ 7,50 SAY"Printer:-"
@ 8,60 SAY"Epson  Compatible."
@ 9,60 SAY"Report,Draft Mode."
STORE "00 00 00" TO MDATE
STORE T TO GDAT
DO WHILE GDAT
@ 15,2 SAY"ENTER TODAYS DATE  OR RETURN FOR NONE"
@ 16,3 SAY"(DD/MM/YY) :" GET MDATE PICTURE "99/99/99"
@ 22,38 SAY"oOo"
SET CONFIRM ON
READ
SET CONFIRM OFF
IF VAL($(MDATE,1,2))>31 .OR. VAL($(MDATE,4,2))>12;
 .OR. (VAL($(MDATE,7,2))<87 .AND. VAL($(MDATE,7,2))<>0)
@ 20,5 SAY"INVALID DATE !!!!"
@ 21,5 SAY"Re-Enter:- DD/MM/YY"
@ 22,5 SAY CHR(7)
@ 22,5 SAY CHR(7)
STORE 1 TO X
DO WHILE X <120
STORE X+1 TO X
ENDDO WHILE X <120
@ 20,0
@ 21,0
LOOP
ELSE STORE F TO GDAT
SET DATE TO &MDATE
ENDIF VAL($(MDATE,1,2))>31;
ENDDO WHILE GDAT
RELEASE GDAT,X,MDATE
  STORE T TO MASMEN
  DO WHILE MASMEN
  SET COLON ON
    ERASE
      @ 0,0 SAY"A:"
      @ 1,14 SAY"********** NAME & ADDRESS LABEL PRINTER **********"
      SET INTEN ON
      @ 3,3 SAY "                                                 ;
                        "
      @ 4,3 SAY"  "
      @ 4,74 SAY"  "
      @ 5,3 SAY"  "
      SET INTEN OFF
      @ 5,7 SAY"MASTER MENU"
      @ 5,57 SAY"Date:- "+ DATE()
      SET INTEN ON
      @ 5,74 SAY"  "
      @ 6,3 SAY"  "
      @ 6,26 SAY"Address Label Printer Files"
      @ 6,3 SAY"  "
      @ 6,74 SAY"  "
      @ 7,3 SAY"  "
      @ 7,74 SAY"  "
      @ 8,3 SAY"  "
      SET INTEN OFF
      @ 8,8 SAY"Options:-"
      SET INTEN ON
      @ 8,74 SAY"  "
      @ 9,3 SAY"  "
      SET INTEN OFF
      @ 9,33 SAY"-===========-"
      SET INTEN ON
      @ 9,74 SAY"  "
      @ 10,3 SAY"  "
      SET INTEN OFF
      @ 10,16 SAY"1 --->  EXIT TO dBASE II (For Manual Use)."
      SET INTEN ON
      @ 10,74 SAY"  "
      @ 11,3 SAY"  "
      SET INTEN OFF
      @ 11,16 SAY"2 --->  PRINT LABELS IN ALPH/ORDER. All Labels"
      SET INTEN ON
      @ 11,74 SAY"  "
      @ 12,3 SAY"  "
      SET INTEN OFF
      @ 12,16 SAY"3 --->  SURNAME/BUSINESS LABELS. Select A to Z"
      SET INTEN ON
      @ 12,74 SAY"  "
      @ 13,3 SAY"  "
      SET INTEN OFF
      @ 13,16 SAY"4 --->  PRINT LABELS BY POSTCODE, or  By STATE"
      SET INTEN ON
      @ 13,74 SAY"  "
      @ 14,3 SAY"  "
      SET INTEN OFF
      @ 14,16 SAY"5 --->  SCREEN LISTING & RE-INDEXING,COPY MENU"
      SET INTEN ON
      @ 14,74 SAY"  "
      @ 15,3 SAY"  "
      SET INTEN OFF
      @ 15,16 SAY"6 --->  DATA ENTRY/SEARCH, For Business Labels"
      SET INTEN ON
      @ 15,74 SAY"  "
      @ 16,3 SAY"  "
      SET INTEN OFF
      @ 16,16 SAY"7 --->  DATA ENTRY/SEARCH, Name/Address Labels"
      SET INTEN ON
      @ 16,74 SAY"  "
      @ 17,3 SAY"  "
      SET INTEN OFF
      @ 17,16 SAY"8 --->  EXIT TO THE CP/M OPERATING SYSTEM."
      SET INTEN ON
      @ 17,74 SAY"  "
      @ 18,3 SAY"  "
      @ 18,74 SAY"  "
      @ 19,3 SAY"  "
      @ 19,74 SAY"  "
      @ 20,3 SAY"                          >"
      @ 20,50 SAY"<                         "
      SET INTEN OFF
      SET TALK OFF
      STORE 0 TO MENU
      DO WHILE MENU <1 .OR. MENU >8
      STORE 0 TO MENU
      @ 20,31 SAY"SELECT OPTION:-"
      @ 20,46 GET MENU PICTURE "9"
      @ 23,38 SAY"oOo"
      READ
      DO CASE
         CASE MENU = 1
             ERASE
             STORE " " TO XE
             @ 11,18 SAY"Exit to dBASE II (Manual)  <Y> or <N> "
             @ 11,56 GET XE PICTURE "!"
             READ
             IF XE = "Y"
              RELEASE MASMEN,MENU,XE
              ERASE
              CANCEL
              ELSE
              RELEASE XE
              ENDIF
         CASE MENU = 2
              DO ADLABA1
         CASE MENU = 3
              SET COLON OFF
              DO ADLABS2
         CASE MENU = 4
           SET COLON OFF
              DO ADLABP3
         CASE MENU = 5
              DO SCRMENU
         CASE MENU = 6
              SET COLON OFF
              DO BUSFIL
         CASE MENU = 7
              SET COLON OFF
              DO LABFIL
         CASE MENU = 8
              ERASE
              STORE " " TO EX
              @ 11,25 SAY"Exit to CP/M   <Y> or <N> " GET EX PICTURE "!"
              READ
              IF EX = "Y"
              ERASE
              RELEASE MASMEN,MENU,EX
              @ 10,0 SAY"Don't Forget To  BACK-UP  Your DBF Data Files."
              @ 12,5 SAY"A:LABEL   .DBF"
              ?
              ?
              ?
              QUIT
              ELSE
              RELEASE EX
              ENDIF
       ENDCASE
         IF MENU <1 .OR. MENU >8
         SET INTEN ON
         @ 22,23 SAY"ILLEGAL OPTION  < Select 1 to 8 >"
         SET INTEN OFF
       ENDIF
    ENDDO MENU
  ENDDO MASMEN
RETURN
TO GDAT
SET DATE TO &MDATE
ENDIF VAL($(MDATE,1,2))>31;
ENDDO WHILE GDAT
RELEASE GDAT,X,MDATE
  STORE T TO MASMEN
  DO WHILE MASMEN
  SET COLON ON
    ERASE
      @ 0,0 SAY"A:"
      @ 1,14 SAY"********** NAME & ADDRESS LABEL PRINTER **********"
      SET INTEN ON
      @ 3,3 SAY "                                                 ;
                        "
      @ 4,3 SAY"  "
      @ 4,74 SAY"  "
      @ 5,3 SAY"  "