home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / FPRINT4.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  92 lines
  1. * FPRINT4.CMD  To print 4th 1/8 of a Forebears Chart
  2. * rev. 19/6/86 Called by FHALFONE.CMD
  3.  
  4. * 1. 1st 5th Gen
  5.  
  6. IF fath > 0
  7.    GO fath
  8.    &dnom
  9.    ? l+spc1+l+spc1+name
  10.    ?? "(44)"
  11.    ? l+spc1+l+spc1+l
  12. ENDIF
  13.  
  14. * 2. 1st 4th Gen
  15.  
  16. IF n4 > 0
  17.    GO n4
  18.    &dnom
  19.    ? l+spc1+l+name
  20.    ?? "(22)"
  21.    IF moth > 0
  22.       ? l+spc1+l+l+l
  23.    ELSE
  24.       ? l+spc1+l+l
  25.    ENDIF
  26.    STORE 0 TO n4
  27.  
  28. * 3. 2nd 5th Gen.
  29.  
  30.    IF moth > 0
  31.       GO moth
  32.       &unom
  33.       ? l+spc1+l+l+name
  34.       ?? "(45)"
  35.       ? l+spc1+l+l
  36.    ENDIF
  37. ENDIF
  38.  
  39. * 4. 3rd Gen
  40.  
  41. IF n3 > 0
  42.    GO n3
  43.    &unom
  44.    ? l+spc1+name
  45.    ?? "(11)"
  46.    IF moth > 0
  47.       ? l+spc2+l
  48.    ELSE
  49.       ? l+spc2
  50.    ENDIF
  51.    STORE 0 TO n3
  52.  
  53. * 5. 3rd 5th Gen
  54.  
  55.    IF moth > 0
  56.       GO moth
  57.       STORE # TO n4
  58.       IF fath > 0
  59.          GO fath
  60.          &dnom
  61.          ? l+spc2+l+name
  62.          ?? "(46)"
  63.          ? l+spc2+l+l
  64.       ENDIF
  65.    ENDIF
  66. ENDIF
  67.  
  68. * 6. 2nd 4th Gen
  69.  
  70. IF n4 > 0
  71.    GO n4
  72.    &unom
  73.    ? l+spc2+name
  74.    ?? "(23)"
  75.    IF moth > 0
  76.       ? l+spc3+l
  77.    ELSE
  78.       ? l
  79.    ENDIF
  80.    STORE 0 TO n4
  81.  
  82. * 7. 4th 5th Gen.
  83.  
  84.    IF moth > 0
  85.       GO moth
  86.       &unom
  87.       ? l+spc3+name
  88.       ?? "(47)"
  89.       ? l
  90.    ENDIF
  91. ENDIF
  92.