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