home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / DTWOWIFE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  87 lines
  1. * DTWOWIFE.CMD
  2. * Deals with case of 1st. subject having two spouses (spice?)
  3. * Called from DESCEND.CMD
  4. ?
  5. DO dprint
  6. STORE lines+1 TO lines
  7. GO spouse1
  8. ? tab1
  9. &wedprint
  10. DO dprint
  11. STORE lines+1 TO lines
  12. IF kid>0
  13.    GO kid
  14.    STORE # TO msubj
  15.    ? spc+spc&g
  16.    DO dprint
  17.    STORE lines+1 TO lines
  18.    IF sib > 0
  19.       DO WHILE sib>0
  20.          GO sib
  21.          ? spc+spc&g
  22.          DO dprint
  23.          STORE lines+1 TO lines
  24.          IF spouse1>0 .AND. VAL(g)=1
  25.             STORE # TO mstop
  26.             ENDIF
  27.          IF mstop=0
  28.             STORE mpar&g TO mstop
  29.          ENDIF
  30.       ENDDO
  31.    ENDIF
  32. ENDIF
  33. ?
  34. STORE lines+1 TO lines
  35. GO mstart
  36. ?
  37. DO dprint
  38. STORE lines+1 TO lines
  39. GO spouse2
  40. ? tab1
  41. &wedprint
  42. DO dprint
  43. STORE lines+1 TO lines
  44. IF kid>0
  45.    GO kid
  46.    STORE # TO end
  47.    ? spc+spc&g
  48.    DO dprint
  49.    STORE lines+1 TO lines
  50.    IF sib>0
  51.       DO WHILE sib>0
  52.          GO sib
  53.          ? spc+spc&g
  54.          DO dprint
  55.          STORE lines+1 TO lines
  56.       ENDDO
  57.    ENDIF
  58.    ? fence
  59.    STORE lines+1 TO lines
  60. ENDIF
  61. IF sib=0
  62.    GO mstart
  63.    GO kid
  64.    IF spouse1>0
  65.       STORE # TO msubj
  66.    ELSE
  67.        IF sib>0
  68.           GO sib
  69.           DO WHILE spouse1=0 .AND. sib>0
  70.              GO sib
  71.           ENDDO
  72.           STORE # TO msubj
  73.        ENDIF
  74.    ENDIF
  75.    GO mstart
  76.    GO kid
  77.    IF sib>0
  78.       DO WHILE sib>0
  79.          GO sib
  80.          IF spouse1>0
  81.             STORE # TO mstop
  82.          ENDIF
  83.       ENDDO
  84.    ENDIF
  85.    DO dnext
  86. ENDIF
  87.