home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / FAHNLOOP.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  896b  |  37 lines
  1. * FAHNLOOP.CMD
  2. DO WHILE a < 2*b
  3.    DO CASE
  4.       CASE $(n,4*a,4) <> '0000'
  5.          GO val($(n,4*a,4))
  6.          STORE STR(#,4) TO subj
  7.          IF fath> 0
  8.             GO fath
  9.             IF fath>0 .OR. moth >0
  10.                STORE f TO nomore
  11.             ENDIF
  12.             STORE n+str(#,4) TO n
  13.             STORE str(2*a,2)+'. ' TO idnumb
  14.             STORE t TO male
  15.             DO fahnprnt
  16.          ELSE
  17.             STORE n+'0000' TO n
  18.          ENDIF
  19.          GO &subj
  20.          IF moth > 0
  21.             GO moth
  22.             IF fath>0 .OR. moth >0
  23.                STORE f TO nomore
  24.             ENDIF
  25.             STORE n+str(#,4) TO n
  26.             STORE str(2*a+1,2)+'. ' TO idnumb
  27.             DO fahnprnt
  28.          ELSE
  29.             STORE n+'0000' TO n
  30.          ENDIF
  31.       OTHERWISE
  32.          STORE n+'00000000' TO n
  33.    ENDCASE
  34.    STORE a+1 TO a
  35. ENDDO
  36. ?
  37.