ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG108.ARC/GEN-DSKA.LBR/FRMTONE.CMD

OS/2 REXX Batch file | 1979-12-31 | 6KB | 205 lines

* File:- FRMTONE.CMD
* Formated Page List Program, Single Page Only.
* By, J.L.Read. Merrylands. NSW.
* Date:- 23/08/87
* Update:-
* Version 1.1
ERASE
SET TALK OFF
 SET INTEN ON
 @ 4,23 SAY">>> FORMATED PRINTER LISTING <<<"
 SET INTEN OFF
 @ 7,37 SAY"-==-"
 @ 14,24 SAY"Search and Print One Record."
 @ 22,1 SAY"Print One Record,  <Y> or <N> "
 SET CONSOLE OFF
 WAIT TO COMMAND
 SET CONSOLE ON
 IF !(COMMAND)= "Y"
 DO SLECMEN
 ERASE
 SET INTEN ON
 @ 4,23 SAY">>> FORMATED PRINTER LISTING <<<"
 SET INTEN OFF
 USE B:PERSONS INDEX B:REF
 SELECT SECONDARY
 USE B:STORIES INDEX B:STORYREF
 SELECT PRIMARY
 STORE T TO ONEREC
 DO WHILE ONEREC
 STORE "    " TO CURPER
 @ 7,2 SAY"&MFAMLY"
 @ 10,23 SAY"Enter  <CR>  To Return To Menu."
 @ 14,21 SAY"Enter Reference No.To Search:- " GET CURPER PICTURE "9999"
 @ 22,1 SAY"Press  <RETURN>  When Ready."
 SET CONFIRM ON
 READ
 SET CONFIRM OFF
  IF $(CURPER,1,2) = "  "
  CLEAR
  RESTORE FROM MEMRET
  RETURN
  ENDIF $(CURPER,1,2) = "  "
 @ 22,0
 FIND &CURPER
 IF #=0
 @ 14,0
 @ 14,1 SAY"Reference No. &CURPER Not On File."
 STORE 1 TO XX
 DO WHILE XX <100
 STORE XX+1 TO XX
 ENDDO WHILE XX <100
 RELEASE XX
 @ 14,0
 LOOP
 ENDIF #=0
 @ 10,0
 SET INTEN ON
 @ 22,1 SAY" TURN YOUR PRINTER ON "
 SET INTEN OFF
 @ 22,25 SAY"Press  <RETURN>  When Ready "
 SET CONSOLE OFF
 WAIT
 SET CONSOLE ON
 @ 10,0
 @ 14,0
 @ 14,1 SAY"Search and Print One Record."
 @ 22,0
 @ 22,1 SAY"Printing One Record,  WAIT "
 SET CONSOLE OFF
 SET PRINT ON
?
SET CONSOLE ON
@ 12,0 SAY"Printing File Reference No:- &CURPER "
SET CONSOLE OFF
?
?
? "                    &OUT -== GENEALOGY ==- &IN"
?
?
?
?
? "&OUT        &MFAMLY  &IN"
? " Date:- "+ DATE()
? "+======================================================================;
=====+"
? "|       Surname :-",LAST:NAME,"   <--- Reference Number:-",REF:NO,"    ;
     |"
IF BIRTH:DATE =0
? "|       First Name :-",FIRST:NAME,"        Date Of Birth:- Not Known   ;
     |"
ELSE BIRTH:DATE >0
 STORE STR(BIRTH:DATE,8) TO MBRTH
 STORE FIRST:NAME TO MFNAM
? "|       First Name :-",MFNAM,"        Date Of Birth:-",$(MBRTH,1,4);
+"."+$(MBRTH,5,2)+"/"+$(MBRTH,7,2),"      |"
ENDIF
IF DEATH:DATE =0
? "|       Second Name:-",MID:NAME,"        Date Deceased:- Not Deceased ;
    |"
ENDIF
IF DEATH:DATE =9
? "|       Second Name:-",MID:NAME,"        Date Deceased:- Not Known    ;
    |"
ENDIF
IF DEATH:DATE >0 .AND. DEATH:DATE <9
? "|       Second Name:-",MID:NAME,"        Date Deceased:-              ;
    |"
ENDIF
IF DEATH:DATE >9
 STORE STR(DEATH:DATE,8) TO MDETH
 STORE MID:NAME TO MMIDN
? "|       Second Name:-",MMIDN,"        Date Deceased:-",$(MDETH,1,4);
+"."+$(MDETH,5,2)+"/"+$(MDETH,7,2),"      |"
ENDIF
? "|       Known As   :-",NICK:NAME,"        Gender Of Person:-",SEX,"   ;
         |"
? "+=====================================+================================;
=====+"
? "|        Fathers Ref No:-",FATHER:REF,"       |        Mothers Ref ;
No:-",MOTHER:REF,"       |"
? "+=====================================+================================;
=====+"
? "|                              ---<SPOUSES>---                         ;
     |"
? "|                             ~~~~~~~~~~~~~~~~~                        ;
     |"
? "|-------<SPOUSE 1>-------+-------<SPOUSE 2>-------+-------<SPOUSE 3>--;
------|"
? "|  Ref.Number:-",SPSE1:REF,"    |  Ref.Number:-",SPSE2:REF,"    |  ;
Ref.Number:-",SPSE3:REF,"     |"
STORE STR(SPSE1:DATE,8) TO MMARG1
STORE STR(SPSE2:DATE,8) TO MMARG2
STORE STR(SPSE3:DATE,8) TO MMARG3
? "|  Year Mrage:-",$(MMARG1,1,4)+" "+$(MMARG1,5,2)," |  Year Mrage;
:-",$(MMARG2,1,4)+" "+$(MMARG2,5,2)," |  Year Mrage:-",$(MMARG3,1,4)+" ";
+$(MMARG3,5,2),"  |"
? "|  No.Of Children:-",SPSE1:CHIL," |  No.Of Children:-",SPSE2:CHIL,";
 |  No.Of Children:-",SPSE3:CHIL,"  |"
? "+========================+========================+====================;
=====+"
?
?
?
?
? "                                     oOo"
?
?
 SELECT SECONDARY
FIND &CURPER
?
?
? "      +================================================================+"
? "      | &CURPER        &OUT -== BIOGRAPHY ==- &IN             |"
? "      +================================================================+"
IF #=0
? "      |                                                                |"
? "      |         No Story On File.                                      |"
? "      |                                                                |"
? "      |                                                                |"
? "      |                                                                |"
? "      |                                                                |"
ELSE
? "      | ",TEXT1," |"
? "      | ",TEXT2," |"
? "      | ",TEXT3," |"
? "      | ",TEXT4," |"
? "      | ",TEXT5," |"
? "      | ",TEXT6," |"
ENDIF
? "      +================================================================+"
?
?
?
? "      Remarks:-"
? "               ---------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
? "      ------------------------------------------------------------------"
?
?
?
?
?
?
?
SELECT PRIMARY
SET PRINT OFF
SET CONSOLE ON
@ 12,0
@ 14,0
@ 22,0
ENDDO
ELSE COMMAND <> "Y"
 RELEASE COMMAND
 ENDIF
 USE
RETURN