ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG108.ARC/GEN-DSKA.LBR/PRNTMEN.CMD

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

* File:- PRNTMEN.CMD
* Printer Menu.
* By, J.L.Read. Merrylands. NSW.
* Date:- 22/08/87
* Update:-
  STORE T TO LOOK2
  DO WHILE LOOK2
     ERASE
      @ 1,25 SAY"***** FORMATED  REPORTS *****"
      @ 3,5 SAY"PRINTER MENU"
      @ 3,62 SAY"Date:- "+ DATE()
      @ 4,5 SAY"--------------"
      SET INTEN ON
      @ 6,23 SAY">>> FORMATED PRINTER LISTINGS <<<"
      SET INTEN OFF
      @ 7,5 SAY"Options:-"
      @ 9,12 SAY"-====================================================-"
      @ 11,15 SAY"1 -->  FORMAT REPORT. ALL RECORDS. (Surname Alph)"
      @ 12,15 SAY"2 -->  FORMAT REPORT.SELECTED RECORDS.(Snam/Alph)"
      @ 13,15 SAY"3 -->  FORMAT REPORT. SINGLE RECORD. (By Ref.No.)"
      @ 14,15 SAY"4 -->  FULL FORMAT REPORT.ONE RECORD.(By Ref No.)"
      @ 15,15 SAY"5 -->  RETURN  -  TO   THE MASTER MENU"
      @ 17,12 SAY"-====================================================-"
      SET TALK OFF
      STORE 0 TO CHOICE2
      DO WHILE CHOICE2 <1 .OR. CHOICE2 >5
      STORE 0 TO CHOICE2
      @ 20,5 SAY"SELECT OPTION:-"
      @ 20,21 GET CHOICE2 PICTURE "9"
      @ 23,38 SAY"oOo"
      READ
      DO CASE
         CASE CHOICE2= 1
              DO FRMTLST
         CASE CHOICE2= 2
              DO FRMTSEL
         CASE CHOICE2= 3
              DO FRMTONE
         CASE CHOICE2= 4
              DO EXPLONE2
         CASE CHOICE2= 5
              RELEASE CHOICE2,LOOK2,CHOICE1,LOOK1
              RETURN
       ENDCASE
       IF CHOICE2 <1 .OR. CHOICE2 >5
       SET INTEN ON
       @ 22,23 SAY"ILLEGAL OPTION  < Select 1 to 5 >"
       SET INTEN OFF
       ENDIF
    ENDDO CHOICE2
  ENDDO LOOK2
RETURN