home *** CD-ROM | disk | FTP | other *** search
/ 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 / SLECMEN.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  53 lines
  1. * File:- SLECMEN.CMD
  2. * Family Tree Heading Selection Menu.
  3. * By, J.L.Read. Merrylands. NSW.
  4. * Date:- 04/09/87
  5. * Update:-
  6.   STORE T TO LOOK4
  7.   DO WHILE LOOK4
  8.      ERASE
  9.       @ 1,25 SAY"**** FAMILY TREE HEADING ****"
  10.       @ 3,5 SAY"HEADING SELECTION MENU"
  11.       @ 3,62 SAY"Date:- "+ DATE()
  12.       @ 4,5 SAY"-----------------------"
  13.       SET INTEN ON
  14.       @ 6,22 SAY">>> SELECT FAMILY TREE HEADING <<<"
  15.       SET INTEN OFF
  16.       @ 8,18 SAY"-=== WHICH FAMILY TREE IS IN B:DRIVE ===-"
  17.       @ 9,12 SAY"-====================================================-"
  18.       @ 11,19 SAY"1 -->     THE MAIN   FAMILY TREE"
  19.       @ 12,19 SAY"2 -->     THE SECOND FAMILY TREE"
  20.       @ 13,19 SAY"3 -->     THE THIRD  FAMILY TREE"
  21.       @ 14,19 SAY"4 -->     THE FOURTH FAMILY TREE"
  22.       @ 16,12 SAY"-====================================================-"
  23.       SET TALK OFF
  24.       STORE 0 TO CHOICE4
  25.       DO WHILE CHOICE4 <1 .OR. CHOICE4 >4
  26.       STORE 0 TO CHOICE4
  27.       @ 20,5 SAY"Select Option:-"
  28.       @ 20,21 GET CHOICE4 PICTURE "9"
  29.       @ 23,38 SAY"oOo"
  30.       READ
  31.       DO CASE
  32.          CASE CHOICE4= 1
  33.           STORE "-== THE FAMILY TREE ==-" TO MFAMLY
  34.           STORE F TO LOOK4
  35.          CASE CHOICE4= 2
  36.           STORE "-== FAMILY TREE No.2 ==-" TO MFAMLY
  37.           STORE F TO LOOK4
  38.          CASE CHOICE4= 3
  39.           STORE "-== FAMILY TREE No.3 ==-" TO MFAMLY
  40.           STORE F TO LOOK4
  41.          CASE CHOICE4= 4
  42.           STORE "-== FAMILY TREE No.4 ==-" TO MFAMLY
  43.           STORE F TO LOOK4
  44.        ENDCASE
  45.        IF CHOICE4 <1 .OR. CHOICE4 >4
  46.        SET INTEN ON
  47.        @ 22,23 SAY"ILLEGAL OPTION  < Select 1 to 4 >"
  48.        SET INTEN OFF
  49.        ENDIF
  50.     ENDDO CHOICE4
  51.   ENDDO LOOK4
  52. RETURN
  53.