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

OS/2 REXX Batch file | 1979-12-31 | 3KB | 125 lines

* File:- SCRMENU.CMD
* By J.L.Read
* Date:- 27/02/87
* Version:- 1.0
* Update:-
ERASE
  STORE T TO MASMEN2
  DO WHILE MASMEN2
   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"SCREEN LIST/INDEX MENU"
      @ 5,57 SAY"Date:- "+ DATE()
      SET INTEN ON
      @ 5,74 SAY"  "
      @ 6,3 SAY"  "
      @ 6,3 SAY"  "
      @ 6,74 SAY"  "
      @ 7,3 SAY"  "
      @ 7,26 SAY"Address Label Printer Files"
      @ 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 --->  REPORT FORM. PRINT ALL RECORDS ON FILE"
      SET INTEN ON
      @ 10,74 SAY"  "
      @ 11,3 SAY"  "
      SET INTEN OFF
      @ 11,16 SAY"2 --->  REPORT FORM.   (Id.No.Numerical Order)"
      SET INTEN ON
      @ 11,74 SAY"  "
      @ 12,3 SAY"  "
      SET INTEN OFF
      @ 12,16 SAY"3 --->  SCREEN LIST BY SURNAME (Select A to Z)"
      SET INTEN ON
      @ 12,74 SAY"  "
      @ 13,3 SAY"  "
      SET INTEN OFF
      @ 13,16 SAY"4 --->  PRINT LABELS FOR OVERSEAS.(By Country)"
      SET INTEN ON
      @ 13,74 SAY"  "
      @ 14,3 SAY"  "
      SET INTEN OFF
      @ 14,16 SAY"5 --->  RE-INDEX ADDRESS LABEL FILE"
      SET INTEN ON
      @ 14,74 SAY"  "
      @ 15,3 SAY"  "
      SET INTEN OFF
      @ 15,16 SAY"6 --->  BACK-UP COPY TO B: - SCRN DISPLAY/PRINT"
      SET INTEN ON
      @ 15,74 SAY"  "
      @ 16,3 SAY"  "
      SET INTEN OFF
      @ 16,16 SAY"7 --->  SCREEN LIST ALL RECORDS.(Alpherbetical)"
      SET INTEN ON
      @ 16,74 SAY"  "
      @ 17,3 SAY"  "
      SET INTEN OFF
      @ 17,16 SAY"8 --->  RETURN TO THE MASTER MENU"
      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 SMENU
      DO WHILE SMENU <1 .OR. SMENU >8
      STORE 0 TO SMENU
      @ 20,31 SAY"SELECT OPTION:-"
      @ 20,46 GET SMENU PICTURE "9"
      @ 23,38 SAY"oOo"
      READ
      DO CASE
         CASE SMENU = 1
              DO REPALPH
         CASE SMENU = 2
              DO REPNUMB
         CASE SMENU = 3
              SET COLON OFF
              DO ADSCRS2
         CASE SMENU = 4
              DO OVRSEA
         CASE SMENU = 5
              DO LABDEX
         CASE SMENU = 6
              DO LABBAK
         CASE SMENU = 7
              SET COLON OFF
              DO ADSCRA1
         CASE SMENU = 8
              RELEASE MASMEN2,SMENU,EX
              RETURN
       ENDCASE
         IF SMENU <1 .OR. SMENU >8
         SET INTEN ON
         @ 22,23 SAY"ILLEGAL OPTION  < Select 1 to 8 >"
         SET INTEN OFF
       ENDIF
    ENDDO SMENU
  ENDDO MASMEN2
RETURN