home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / DLNCOUNT.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  36 lines
  1. * LNCOUNT.CMD advances to a new page when required for Descendants Chart
  2. * called by DWIFEKID.CMD
  3. * store 2 to temp line counter (mpersnum) to account for parents
  4. * then add to mpersnum for each child
  5. STORE 2 TO mpersnum
  6. IF kid > 0
  7.    GO kid
  8.    STORE mpersnum+1 TO mpersnum
  9.    IF sib > 0
  10.       DO WHILE sib > 0
  11.          GO sib
  12.          STORE mpersnum+1 TO mpersnum
  13.       ENDDO
  14.       STORE mpersnum+1 TO mpersnum
  15.    ENDIF
  16.    IF lines+mpersnum+8 > mlength
  17.       SET CONSOLE OFF
  18.       DO WHILE mlength-lines > 0
  19.          ?
  20.          STORE lines+1 TO lines
  21.       ENDDO
  22.       STORE 0 TO lines
  23.       STORE page+1 TO page
  24.       ? propnl+"Printed "+date()
  25.       ?? $(STR(0,130),1,125)+"Page "+STR(page,2)+compr
  26.       ? spc1+spc4+"1x      "+"2x      "+"3x      "+"4x      "+;
  27.       "5x      "+"6x      "+"7x      "+"8x"
  28.       ? spc1+spc4+gt+gt+gt+gt+gt+gt+gt+gt
  29.       ? spc1+spc3+gd+gd+gd+gd+gd+gd+gd+gd+gd
  30.       ? "Person    "+ch+ch+ch+ch+ch+ch+ch+ch+ch+ch
  31.       ? fence
  32.       STORE lines+6 TO lines
  33.       SET CONSOLE ON
  34.    ENDIF
  35. ENDIF
  36.