home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / LISTS.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  45 lines
  1. * LISTS.CMD menu for various Lists
  2. DO WHILE t
  3.    STORE ' ' TO listtype,ordtype
  4.    @  7,0  SAY CHR(27)+'Y'
  5.    @  9,25 SAY "<P>ointers, Dates & Names"
  6.    @ 11,25 SAY "<B> D & M  Dates, Places & Spouses"
  7.    @ 13,25 SAY "<D>ate Ranges of B, D or M"
  8.    @ 15,25 SAY "<A>ges at Death"
  9.    @ 17,25 SAY "<M>ain menu"
  10.    DO WHILE .NOT. listtype$'PBDAM'
  11.       @ 19,20 SAY "PRESS KEY of Your Choice < >"
  12.       @ 19,46 GET listtype PICTURE "!"
  13.       READ
  14.    ENDDO
  15.    IF listtype = 'M'
  16.       RETURN
  17.    ENDIF
  18.    @ 1,25 SAY '                                  '
  19.    DO CASE
  20.       CASE listtype = 'B'
  21.          @ 1,25 SAY xinv+"List B D & M  Dates, Places & Spouses"+xnor
  22.          DO lplace
  23.       CASE listtype = 'P'
  24.          @ 1,28 SAY xinv+"List Pointers, Dates & Names"+xnor
  25.          DO lpointer
  26.       CASE listtype ='D'
  27.          @ 1,27 SAY xinv+"List Date Ranges of B, D or M"+xnor
  28.          DO ldate
  29.       CASE listtype = 'A'
  30.          @ 1,30 SAY xinv+"List Ages at Death"+xnor
  31.          DO lage
  32.    ENDCASE
  33.    STORE ' ' TO listtype
  34.    @ 1,0 SAY "Last Record No. "+xfin
  35.    @ 1,25
  36.    @ 1,30 SAY xinv+"Lists (various)"+xnor
  37.    @ 1,65 SAY "Date "+date()
  38.    IF myprnt = 'P'
  39.       @ 6,30 SAY "Printer output"
  40.    ELSE
  41.       @ 6,30 SAY "Screen output"
  42.    ENDIF
  43.    LOOP
  44. ENDDO
  45.