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