home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug073.arc / GENELOGY.LBR / FAHNPRNT.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  82 lines
  1. * FAHNPRNT.CMD for output of lines to Ahnentafel forebears charts
  2. STORE TRIM(firstnms)+' '+TRIM(surname)+', b. '+TRIM(borndate)+' '+;
  3. TRIM(bornat) TO data
  4. IF dieddate > ' '
  5.    STORE data+', d. '+TRIM(dieddate)+' '+TRIM(diedat) TO data
  6. ENDIF
  7. DO CASE
  8.  CASE male
  9.    STORE ' ' TO fwed,mwed
  10.    GO &subj
  11.    IF moth > 0
  12.       GO moth
  13.       STORE TRIM(weddate) TO mwed
  14.    ENDIF
  15.    GO &subj
  16.    IF fath > 0
  17.       GO fath
  18.       STORE TRIM(weddate) TO fwed
  19.    ENDIF
  20.    IF fwed = mwed
  21.       STORE data+', m. '+TRIM(weddate)+' '+TRIM(wedat) TO data
  22.    ELSE
  23.       IF spouse2 > 0
  24.          GO spouse2
  25.          STORE TRIM(weddate) TO fwed
  26.       ENDIF
  27.       IF fwed=mwed
  28.          STORE data +', m. '+TRIM(weddate)+' '+TRIM(wedat) TO data
  29.       ELSE
  30.          GO &subj
  31.          GO moth
  32.          IF spouse2 > 0
  33.             GO spouse2
  34.             STORE TRIM(weddate) TO mwed
  35.             IF mwed = fwed
  36.                STORE data+', m. '+TRIM(weddate)+' '+TRIM(wedat) TO data
  37.             ENDIF
  38.          ENDIF
  39.       ENDIF
  40.    ENDIF
  41. ENDCASE
  42. STORE 74 to end
  43. STORE 1 TO templine
  44. DO WHILE data > ' '
  45.    IF LEN(data) <= end
  46.       IF templine = 1
  47.          ? idnumb+data
  48.       ELSE
  49.          ? '    '+data
  50.       ENDIF
  51.       STORE ' ' TO data
  52.    ELSE
  53.       DO WHILE $(data,end,1) <> ' '
  54.          STORE end-1 TO end
  55.       ENDDO
  56.       IF templine = 1
  57.          ? idnumb+$(data,1,end)
  58.       ELSE
  59.          ? '    '+$(data,1,end)
  60.       ENDIF
  61.       STORE $(data,end+1,LEN(data)) TO data
  62.       STORE 74 TO end
  63.       STORE templine+1 TO templine
  64.    ENDIF
  65. ENDDO
  66. DO CASE
  67.  CASE lines+8 > plength
  68.    SET CONSOLE OFF
  69.    DO WHILE plength-lines > 1
  70.       ?
  71.       STORE lines+1 TO lines
  72.    ENDDO
  73.    STORE page+1 TO page
  74.    ? $(STR(0,90),1,71)+"Page "+STR(page,1)
  75.    ?
  76.    STORE 2 TO lines
  77.    SET CONSOLE ON
  78. ENDCASE
  79. STORE f TO male
  80. RELEASE data,end,templine,fwed,mwed,idnumb
  81. RETURN
  82.