home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / MAIN.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  4KB  |  118 lines
  1. * MAIN.CMD  Main .CMD File of Family Records
  2. DO WHILE t
  3.    RELEASE ALL EXCEPT x*
  4.    STORE " " TO moption,mselect,myprnt
  5.    ERASE
  6.    @  1,0  SAY "Last Record No. "+xfin
  7.    @  1,27 SAY xinv+"FAMILY RECORDS - MAIN MENU"+xnor
  8.    @  1,65 SAY "Date "+date()
  9.    @  6,25 SAY "<A>dd new, or Edit existing, records"
  10.    @  8,25 SAY "<D>escendants Chart"
  11.    @ 10,25 SAY "<F>orebears Tree / Ahnentafel Chart"
  12.    @ 12,25 SAY "<G>roup Sheet"
  13.    @ 14,25 SAY "<L>ists (various types)"
  14.    @ 16,25 say "<U>tility programs"
  15.    @ 18,25 SAY '<Q>uit "Family Records" program'
  16.    DO WHILE .not. moption$"ADFGLUQ"
  17.       @ 21,20 SAY "PRESS KEY of Your Choice < >"
  18.       @ 21,46 GET moption picture "!"
  19.       READ
  20.    ENDDO
  21.    CLEAR GETS
  22.    DO CASE
  23.       CASE moption = "Q"
  24.          ERASE
  25.          SET CONSOLE OFF
  26.          QUIT
  27.       OTHERWISE
  28.          DO WHILE .NOT. mselect$"M"
  29.             ERASE
  30.             @ 1,0 SAY "Last Record No. "+xfin
  31.             @ 1,65 SAY "Date "+date()
  32.             DO CASE
  33.                CASE moption = "G"
  34.                   @ 1,30 SAY xinv+"Group Sheet"+xnor
  35.                   STORE 'GROUP' TO moption
  36.                CASE moption = "D"
  37.                   @ 1,30 SAY xinv+"Descendants Chart"+xnor
  38.                   STORE 'DESCEND' TO moption
  39.                CASE moption = "F"
  40.                   @ 1,30 SAY xinv+"Forebears Tree/Chart"+xnor
  41.                   STORE 'FOREBEAR' TO moption
  42.                CASE moption = "L"
  43.                   @ 1,30 SAY xinv+"Lists (various)"+xnor
  44.                CASE moption = "A"
  45.                   @ 1,30 SAY xinv+'Add/Edit Records'+xnor
  46.                   DO addedit
  47.                   STORE " " TO moption
  48.                   STORE "M" TO mselect
  49.                   LOOP
  50.                case moption = "U"
  51.                   @ 1,30 say xinv+"Utility Programs"+xnor
  52.                   do utils
  53.                   store " " to moption
  54.                   store "M" to mselect
  55.                   loop
  56.             ENDCASE
  57.             IF @($(moption,1,1),"DFL") > 0
  58.                IF myprnt = " "
  59.                   DO WHILE .NOT. myprnt$'PS'
  60.                      @ 6,25 SAY "To <S>creen or <P>rinter ? < >"
  61.                      @ 6,53 GET myprnt picture "!"
  62.                      READ
  63.                   ENDDO
  64.                   @ 6,0
  65.                   CLEAR GETS
  66.                ENDIF
  67.                IF myprnt = "P"
  68.                   @ 6,30 SAY "Printer output"
  69.                ELSE
  70.                   @ 6,30 SAY "Screen output"
  71.                ENDIF
  72.                IF moption = "L"
  73.                   DO lists
  74.                   STORE " " TO moption
  75.                   STORE "M" TO mselect
  76.                   LOOP
  77.                ENDIF
  78.             ENDIF
  79.             @ 8,20 SAY "OPTIONS - <R>ecord no. known"
  80.             @ 10,30 SAY "<N>ame only known"
  81.             @ 12,30 SAY "<M>ain menu"
  82.             @ 15,20 SAY "PRESS KEY of Your Choice < >"
  83.             DO WHILE .not. mselect$"RNM"
  84.                @ 15,46 GET mselect picture "!"
  85.                READ
  86.             ENDDO
  87.             CLEAR GETS
  88.             DO CASE
  89.                CASE mselect = "R"
  90.                  STORE "    " TO mno
  91.                  @ 18,30 SAY "Record No. ? "
  92.                  SET CONFIRM ON
  93.                  DO WHILE VAL(mno) < 1 .OR. VAL(mno) > &xfin
  94.                     @ 18,43 GET mno
  95.                     READ
  96.                  ENDDO
  97.                  SET CONFIRM OFF
  98.                  CLEAR GETS
  99.                  DO &moption
  100.                  ERASE
  101.                  STORE " " TO mselect
  102.                  LOOP
  103.                CASE mselect = "N"
  104.                  DO nomen
  105.                  DO &moption
  106.                  ERASE
  107.                  STORE " " TO mselect
  108.                  LOOP
  109.             ENDCASE
  110.           ENDDO
  111.           IF mselect = "M"
  112.              @ 23,25 SAY "Returning to Main Menu "
  113.              STORE "M" TO moption
  114.              LOOP
  115.          ENDIF
  116.    ENDCASE
  117. ENDDO
  118.