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