home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / FHALFTWO.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  52 lines
  1. * FHALFTWO.CMD used in printing 2nd half of Forebears Chart, called by F.CMD
  2. IF fath>0
  3.    GO fath
  4.    STORE # TO n2
  5.       IF fath>0
  6.          GO fath
  7.          STORE # TO n3
  8.             IF fath>0
  9.                GO fath
  10.                STORE # TO n4
  11.             ENDIF
  12.       ENDIF
  13. ENDIF
  14. DO fprint5
  15. IF moth>0
  16.    GO moth
  17.    STORE # TO n3
  18.    IF fath>0
  19.       GO fath
  20.       STORE # TO n4
  21.    ENDIF
  22. ENDIF
  23. DO fprint6
  24.       IF moth>0
  25.          GO moth
  26.          STORE # TO n2
  27.             IF fath>0
  28.                GO fath
  29.                STORE # TO n3
  30.                    IF fath>0
  31.                       GO fath
  32.                       STORE # TO n4
  33.                    ENDIF
  34.             ENDIF
  35.       ENDIF
  36. DO fprint7
  37.       IF moth>0
  38.          GO moth
  39.          STORE # TO n3
  40.             IF fath>0
  41.                GO fath
  42.                STORE # TO n4
  43.             ENDIF
  44.       ENDIF
  45. DO fprint8
  46. STORE 0 TO n1
  47. STORE 0 TO n2
  48. STORE 0 TO n3
  49. STORE 0 TO n4
  50. * EOF
  51.  
  52.