ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG098.ARC/USER1.LBR/EXPRNT1.CMD

OS/2 REXX Batch file | 1979-12-31 | 7KB | 269 lines

* File:- EXPRNT1.CMD
* Screen Display Printout For Genealogy Programme.
* By, J.L.Read.Merrylands. NSW
* Date:- 07/11/87
* Version 1.2
FIND &CURPER
@ 22,0
@ 22,74 SAY"2"
SET INTEN ON
@ 22,1 SAY"TURN YOUR PRINTER ON"
SET INTEN OFF
@ 22,22 SAY"- Press RETURN When Ready."
SET CONSOLE OFF
WAIT
SET CONSOLE ON
@ 22,0
@ 22,74 SAY"2"
@ 22,1 SAY"Printing Screen Display "
STORE CHR(14) TO OUT
STORE CHR(20) TO IN
SET CONSOLE OFF
SET PRINT ON
?
?
?
? "&OUT              THE XXXX FAMILY   &IN"
?
? "         -================================================================-"
? "           Ref.No:-",CURPER,"                                Date:- "+DATE()
?
RELEASE OUT,IN
? "                        NAME OF BOTH PARENTS AND BIRTH PLACE"
? "                       -====================================-"
FIND &M2
IF #=0
? "                           Father Not Known"
?
ELSE
? "                          ",TRIM(FIRST:NAME),TRIM(LAST:NAME)+"."
? "                           Born At:-",BIRTHPL
ENDIF
? "                           --------------------------"
FIND &M3
IF #=0
? "                           Mother Not Known"
?
ELSE
? "                          ",TRIM(FIRST:NAME),TRIM(LAST:NAME)+"."
? "                           Born At:-",BIRTHPL
ENDIF
? "         -================================================================-"
? "           NAME OF PRIME PERSON, NAME KNOWN AS  AND  BIRTH PLACE"
? "         ------------------------------------------------------------------"
FIND &M1
? "          ",TRIM(LAST:NAME)+".",TRIM(FIRST:NAME),TRIM(MID:NAME),";
     ("+TRIM(NICK:NAME)+")"
IF BIRTH:DATE =0
? "           Birth Date Not Known"
ELSE BIRTH:DATE >0
STORE STR(BIRTH:DATE,8) TO MBRTH
? "          ",$(MBRTH,1,4)+"."+$(MBRTH,5,2)+"/"+$(MBRTH,7,2),"   Birth Date"
ENDIF
IF DEATH:DATE =0
? "           Not           Deceased"
ENDIF
IF DEATH:DATE =9
? "           Death Date Not Known"
ENDIF
IF DEATH:DATE >0 .AND. DEATH:DATE <9
? "           ------        Deceased"
ENDIF
IF DEATH:DATE >9
STORE STR(DEATH:DATE,8) TO MDETH
? "          ",$(MDETH,1,4)+"."+$(MDETH,5,2)+"/"+$(MDETH,7,2),"   Deceased"
ENDIF
IF DEATH:DATE =0
? "           Birth Place:-",BIRTHPL
ELSE
? "           Birth Place:-",BIRTHPL,"  Resting Place:-",DEATHPL
ENDIF
STORE MARGEPL1 TO MPLACE1
STORE MARGEPL2 TO MPLACE2
STORE MARGEPL3 TO MPLACE3
? "         -================================================================-"
? "             SPOUSE, YEAR  AND  PLACE OF MARRIAGE"
? "         ------------------------------------------------------------------"
FIND &M4
 IF #=0
? "             Not Married or Spouse Un-Known"
 ELSE
? "            ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(MDATE4,1,4),"  ",MPLACE1
 ENDIF
FIND &M5
 IF #=0
? "   "
 ELSE
? "            ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(MDATE5,1,4),"  ",MPLACE2
 ENDIF
FIND &M6
 IF #=0
? "   "
 ELSE
? "            ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(MDATE6,1,4),"  ",MPLACE3
 ENDIF
? "         -================================================================-"
RELEASE MBRTH,MDETH,MPLACE1,MPLACE2,MPLACE3
? "            Children, Year and Place of Birth"
? "            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
FIND &M7
IF #=0
? "                No Children"
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY1
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY1,1,4),"  ",BIRTHPL
ENDIF
FIND &M8
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY2
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY2,1,4),"  ",BIRTHPL
ENDIF
FIND &M9
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY3
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY3,1,4),"  ",BIRTHPL
ENDIF
RELEASE BDAY1,BDAY2
FIND &M10
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY4
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY4,1,4),"  ",BIRTHPL
ENDIF
FIND &M11
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY5
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY5,1,4),"  ",BIRTHPL
ENDIF
RELEASE BDAY3,BDAY4
FIND &M12
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY6
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY6,1,4),"  ",BIRTHPL
ENDIF
FIND &M13
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY7
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY7,1,4),"  ",BIRTHPL
ENDIF
RELEASE BDAY5,BDAY6
FIND &M14
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY8
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY8,1,4),"  ",BIRTHPL
ENDIF
FIND &M15
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY9
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY9,1,4),"  ",BIRTHPL
ENDIF
FIND &M16
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY10
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY10,1,4),"  ",BIRTHPL
ENDIF
RELEASE BDAY7,BDAY8,BDAY9
FIND &M17
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY11
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY11,1,4),"  ",BIRTHPL
ENDIF
FIND &M18
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY12
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY12,1,4),"  ",BIRTHPL
ENDIF
RELEASE BDAY10,BDAY11
FIND &M19
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY13
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY13,1,4),"  ",BIRTHPL
ENDIF
FIND &M20
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY14
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY14,1,4),"  ",BIRTHPL
ENDIF
FIND &M21
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY15
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY15,1,4),"  ",BIRTHPL
ENDIF
FIND &M22
IF #=0
? "  "
ELSE
STORE STR(BIRTH:DATE,8) TO BDAY16
? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY16,1,4),"  ",BIRTHPL
ENDIF
@ 22,0
@ 22,74 SAY"2"
@ 22,1 SAY"Printing Biography."
? "         -================================================================-"
RELEASE BDAY12,BDAY13,BDAY14,BDAY15,BDAY16
STORE CHR(14) TO OUT
STORE CHR(20) TO IN
? "&OUT           -==  BIOGRAPHY  ==-    &IN"
RELEASE OUT,IN
? "         ------------------------------------------------------------------"
USE STORIES INDEX STORYREF
FIND &CURPER
IF #=0
?
? "                          No Story On File."
?
?
?
?
ELSE
? "           ",TEXT1
? "           ",TEXT2
? "           ",TEXT3
? "           ",TEXT4
? "           ",TEXT5
? "           ",TEXT6
ENDIF
? "         -================================================================-"
?
?
?
?
?
?
?
?
?
SET PRINT OFF
SET CONSOLE ON
STORE M1 TO CURPER
USE PERSONS INDEX REF,FATHER,MOTHER,NAME
DO EXPLORE1
RETURN