home *** CD-ROM | disk | FTP | other *** search
/ 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 / EXPRNT2.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  6KB  |  266 lines
  1. * File:- EXPRNT2.CMD
  2. * Screen Display Printout For Genealogy Programme
  3. * By, J.L.Read.Merrylands. NSW
  4. * Date:- 02/10/87
  5. * Update:-
  6. * Version 1.1
  7. FIND &CURPER
  8. @ 22,0
  9. @ 22,1 SAY"Printing Screen Display "
  10. STORE CHR(14) TO OUT
  11. STORE CHR(20) TO IN
  12. SET CONSOLE OFF
  13. SET PRINT ON
  14. ?
  15. ?
  16. ?
  17. ?
  18. ? "&OUT         &MFAMLY &IN"
  19. ?
  20. ? "         -================================================================-"
  21. ? "           Reference No:-",CURPER,"                         Date:- "+DATE()
  22. ?
  23. RELEASE OUT,IN
  24. ? "                               NAME OF BOTH PARENTS"
  25. ? "                       -===================================-"
  26. FIND &M2
  27. IF #=0
  28. ? "                           Father Not Known"
  29. ELSE
  30. ? "                          ",TRIM(FIRST:NAME),TRIM(LAST:NAME)+"."
  31. ENDIF
  32. FIND &M3
  33. IF #=0
  34. ? "                           Mother Not Known"
  35. ELSE
  36. ? "                          ",TRIM(FIRST:NAME),TRIM(LAST:NAME)+"."
  37. ENDIF
  38. ? "                       -===================================-"
  39. ?
  40. ?
  41. ? "         -================================================================-"
  42. ? "           NAME OF PRIME PERSON   AND   NAME KNOWN AS"
  43. ? "         ------------------------------------------------------------------"
  44. FIND &M1
  45. ? "          ",TRIM(LAST:NAME)+".",TRIM(FIRST:NAME),TRIM(MID:NAME),";
  46.       ("+TRIM(NICK:NAME)+")"
  47. IF BIRTH:DATE =0
  48. ? "           Birth Date Not Known"
  49. ELSE BIRTH:DATE >0
  50. STORE STR(BIRTH:DATE,8) TO MBRTH
  51. ? "          ",$(MBRTH,1,4)+"."+$(MBRTH,5,2)+"/"+$(MBRTH,7,2),"    Birth Date"
  52. ENDIF
  53. IF DEATH:DATE =0
  54. ? "           Not            Deceased"
  55. ENDIF
  56. IF DEATH:DATE =9
  57. ? "           Death Date Not Known"
  58. ENDIF
  59. IF DEATH:DATE >0 .AND. DEATH:DATE <9
  60. ? "           ------         Deceased"
  61. ENDIF
  62. IF DEATH:DATE >9
  63. STORE STR(DEATH:DATE,8) TO MDETH
  64. ? "          ",$(MDETH,1,4)+"."+$(MDETH,5,2)+"/"+$(MDETH,7,2),"    Deceased"
  65. ENDIF
  66. ? "         -================================================================-"
  67. ? "             SPOUSE   AND   YEAR OF MARRIAGE"
  68. ? "         ------------------------------------------------------------------"
  69. FIND &M4
  70.  IF #=0
  71. ? "             Not Married or Spouse Un-Known"
  72.  ELSE
  73. ? "            ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(MDATE4,1,4)+" ";
  74. +$(MDATE4,5,2)
  75.  ENDIF
  76. FIND &M5
  77.  IF #=0
  78. ? "                 "
  79.  ELSE
  80. ? "            ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(MDATE5,1,4)+" ";
  81. +$(MDATE5,5,2)
  82.  ENDIF
  83. FIND &M6
  84.  IF #=0
  85. ? "                "
  86.  ELSE
  87. ? "            ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(MDATE6,1,4)+" ";
  88. +$(MDATE6,5,2)
  89.  ENDIF
  90. ? "         -================================================================-"
  91. RELEASE MBRTH,MDETH
  92. ? "            Children and Year of Birth"
  93. ? "            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  94. FIND &M7
  95. IF #=0
  96. ? "                No Children"
  97. ELSE
  98. STORE STR(BIRTH:DATE,8) TO BDAY1
  99. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY1,1,4)+" ";
  100. +$(BDAY1,5,2)
  101. ENDIF
  102. FIND &M8
  103. IF #=0
  104. ? "             "
  105. ELSE
  106. STORE STR(BIRTH:DATE,8) TO BDAY2
  107. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY2,1,4)+" ";
  108. +$(BDAY2,5,2)
  109. ENDIF
  110. FIND &M9
  111. IF #=0
  112. ? "             "
  113. ELSE
  114. STORE STR(BIRTH:DATE,8) TO BDAY3
  115. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY3,1,4)+" ";
  116. +$(BDAY3,5,2)
  117. ENDIF
  118. RELEASE BDAY1,BDAY2
  119. FIND &M10
  120. IF #=0
  121. ? "             "
  122. ELSE 
  123. STORE STR(BIRTH:DATE,8) TO BDAY4
  124. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY4,1,4)+" ";
  125. +$(BDAY4,5,2)
  126. ENDIF
  127. FIND &M11
  128. IF #=0
  129. ? "             "
  130. ELSE
  131. STORE STR(BIRTH:DATE,8) TO BDAY5
  132. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY5,1,4)+" ";
  133. +$(BDAY5,5,2)
  134. ENDIF
  135. RELEASE BDAY3,BDAY4
  136. FIND &M12
  137. IF #=0
  138. ? "             "
  139. ELSE
  140. STORE STR(BIRTH:DATE,8) TO BDAY6
  141. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY6,1,4)+" ";
  142. +$(BDAY6,5,2)
  143. ENDIF
  144. FIND &M13
  145. IF #=0
  146. ? "             "
  147. ELSE
  148. STORE STR(BIRTH:DATE,8) TO BDAY7
  149. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY7,1,4)+" ";
  150. +$(BDAY7,5,2)
  151. ENDIF
  152. RELEASE BDAY5,BDAY6
  153. FIND &M14
  154. IF #=0
  155. ? "             "
  156. ELSE
  157. STORE STR(BIRTH:DATE,8) TO BDAY8
  158. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY8,1,4)+" ";
  159. +$(BDAY8,5,2)
  160. ENDIF
  161. FIND &M15
  162. IF #=0
  163. ? "             "
  164. ELSE
  165. STORE STR(BIRTH:DATE,8) TO BDAY9
  166. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY9,1,4)+" ";
  167. +$(BDAY9,5,2)
  168. ENDIF
  169. FIND &M16
  170. IF #=0
  171. ? "             "
  172. ELSE
  173. STORE STR(BIRTH:DATE,8) TO BDAY10
  174. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY10,1,4)+" ";
  175. +$(BDAY10,5,2)
  176. ENDIF
  177. RELEASE BDAY7,BDAY8,BDAY9
  178. FIND &M17
  179. IF #=0
  180. ? "             "
  181. ELSE
  182. STORE STR(BIRTH:DATE,8) TO BDAY11
  183. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY11,1,4)+" ";
  184. +$(BDAY11,5,2)
  185. ENDIF
  186. FIND &M18
  187. IF #=0
  188. ? "             "
  189. ELSE
  190. STORE STR(BIRTH:DATE,8) TO BDAY12
  191. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY12,1,4)+" ";
  192. +$(BDAY12,5,2)
  193. ENDIF
  194. RELEASE BDAY10,BDAY11
  195. FIND &M19
  196. IF #=0
  197. ? "             "
  198. ELSE
  199. STORE STR(BIRTH:DATE,8) TO BDAY13
  200. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY13,1,4)+" ";
  201. +$(BDAY13,5,2)
  202. ENDIF
  203. FIND &M20
  204. IF #=0
  205. ? "             "
  206. ELSE
  207. STORE STR(BIRTH:DATE,8) TO BDAY14
  208. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY14,1,4)+" ";
  209. +$(BDAY14,5,2)
  210. ENDIF
  211. FIND &M21
  212. IF #=0
  213. ? "             "
  214. ELSE
  215. STORE STR(BIRTH:DATE,8) TO BDAY15
  216. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY15,1,4)+" ";
  217. +$(BDAY15,5,2)
  218. ENDIF
  219. FIND &M22
  220. IF #=0
  221. ? "             "
  222. ELSE
  223. STORE STR(BIRTH:DATE,8) TO BDAY16
  224. ? "               ",TRIM(FIRST:NAME),TRIM(LAST:NAME),$(BDAY16,1,4)+" ";
  225. +$(BDAY16,5,2)
  226. ENDIF
  227. @ 22,0
  228. @ 22,1 SAY"Printing Biography."
  229. ? "         -================================================================-"
  230. RELEASE BDAY12,BDAY13,BDAY14,BDAY15,BDAY16
  231. STORE CHR(14) TO OUT
  232. STORE CHR(20) TO IN
  233. ? "&OUT           -==  BIOGRAPHY  ==-    &IN"
  234. RELEASE OUT,IN
  235. ? "         ------------------------------------------------------------------"
  236. SELECT SECONDARY
  237. FIND &CURPER
  238. IF #=0
  239. ?
  240. ? "                      No Story On File."
  241. ?
  242. ?
  243. ?
  244. ?
  245. ELSE
  246. ? "           ",TEXT1
  247. ? "           ",TEXT2
  248. ? "           ",TEXT3
  249. ? "           ",TEXT4
  250. ? "           ",TEXT5
  251. ? "           ",TEXT6
  252. ENDIF
  253. ? "         -================================================================-"
  254. ?
  255. ?
  256. ?
  257. ?
  258. ?
  259. ?
  260. ?
  261. ?
  262. ?
  263. SET PRINT OFF
  264. SET CONSOLE ON
  265. RETURN
  266.