çèHŠ%L¤LASTL¤DIR¤FLIST¤FNAME¤TITLE¤NUSED¤CURNAME¤CUROPEN¤LDATA¤SEEKNAME¤ÙFLEVEÌPAGÅLCOUNÔCHILÄIÎCURNAM¤SEEKNAM¤ÊCHILÅD¤NOTIÎDISËERÒB¤PARFIL¤CHIFIL¤GOTIÔËCHILDÈFNAM¤NUSTED¤IÐNUÍCOMPROFÆCMPROÎCMPROFÆWIDEOÎWIDEOFÆA¤ITALIÃITLALICOFÆITALICO΄„„|„ÀD0tB·|€?/ M/Ô€ 3/ !0 €¶-0 70 €€ !"#$%&'€()*+ $$› $$| PRGM 'DESNDNT.LST' REV 4.0 |› $$| BY: JOHN KIRKPATRICK |› $$| COPYRIGHT (C) 1986 |›$$| 1985, 1984, 1983, 1982 |›$$| CALEDONIA ENTERPRISES |›$$| 490-A ABELIA STREET |›$$| SUMTER, S.C. 29152-1403 |›$$›$$| DESNDNT.LST WILL PROVIDE |›$$| A LIST OF DESENDENTS FOR |›$$| ANY NAME ON FILE IN THE |›$$| DATABASE DIRECTORY. |›$$›dRR€;A2,;A2,‚;AU,ƒ;A’,„;A`,…;@f,™;@,i<<†;AU,‘;@,ˆ;@,‰;A,’;@,kš;@,›;@,m Bn:6Œ-6-'6Ž-A ™36-A ™:6†.s A A tjj(bUNABLE TO LOAD DIRECTORY. ARE YOU SURE YOU HAVE CREATED IT, AND HAVE INSERTED CORRECT DISK?uq( (PRESS 'C' TO CONTINUE+@K@@K:X)@c@n"@:C,q%xz+@@ D:DIRECTRY8@¢F“-@¢S@€v6‚7“$@&@<“$@,.€z “}D@+20@D@@d‚1( (-(ENTER TITLE TO BE USED ON CHART1€‡4B:€,!@d(*(THAT'S TOO LONG!4 A0Œ) 6…. 6…7@f,.…)6…7@,.…–!!6…7+@f&B:€,,'@,.€ 3(%(ENTER NAME OF INITIAL FILE)’3 Bªœ"A`´S$6†7B:†,%@:¤,>:¦,…;C3=3>:¥,' (PAGE )@3C3@RR3J NAME & BIRTHDAY OTHER PARENT NAME & BIRTHDAYERR3J --------------- ----------------------------J 3>:¤,O) 6. 67A2,.)67@,.T“-@Œ6€. ^V-@“56€7B:€,%@:¤,€6Ž-Ž%@­%¡"@6¡-% A²% 6’.›6ž-6-% B¼œ"6-ž AÆGž!@ =6ƒ7@$Œ&@<@$Œ&@,.=:ž,G AÐh06ƒ7@$Œ&@<@$Œ&@,.0^6ƒ7@$Œ&@<@$Œ&@,.=:ž,h A'FILE SEARCH & OPEN SUBR›' BB'd6˜-F:A•,˜"@a(ERROR ˜ ENCOUNTERED AT LINE AV$F:A‡,%F:A†,d(G')(RE-ENTER DATA CORRECTLY) A0t' 6ˆ.D:6ˆ7@,.’Ø'Œ BP6’.<6’7@<@,.ˆ7@<@,d6’7@<@,.ˆ7@<@,Œ6’7@<@,.ˆ7@<@,<(O“-@B:‚,'@O’3‚7@$“&@<@$“&@,B (66’4‚7@$“&@<@$“&@,B) Bh) “Ì)3$(FILE ˆ NOT IN DIRECTORY.06œ-3$0*76œ-@-6—-A:‚7@$“<@$“,,7 B”*d6˜-F:A•,˜Apa(ERROR ˜ ENCOUNTERED AT LINE AV$F:A‡,%F:A†,d¨*( I NEED FILE ˆ:¼*>/(PLEAST INSERT DISK — THEN 'RETURN'.3™>@ø*+ B +(SEEKING ˆ ON DISK #—\+E@+@@ˆ16‘.’E"A ™BÀ+2!“-@@%$@.@‰2 “$,<.6ƒ7@$Œ%@<@$Œ%@,.’<6Œ-Œ%@ˆ,$à.??READ DATA AND ASSURE MINIMUM OF 4 CHARACTERS LENGTH.›ê."@‰B:‰,!@"$ô.'$6‰7B:‰,%@<@,. '$ NSET PRINTER CONTROL CODES›%NFONT SELECTION ROUTINE›*ND(%(SELECT PRINT FONT DESIRED:D( ÓTANDARD OR ÉTALICS4NC#@@K:0)@C@:I,B09N3>:@',>:@R,>NCOMPRESSED CHARACTER MODE›HN6¤-@RN6¥-@%A(„N55DOUBLE WIDTH CONTROL (SET TO "32" IF NOT AVAIL)›ŽN6¦-@˜N6§-@ N6«-@R¢N6ª-@SR$þ&ÿ3F:A8,%AV$F:A9,%@E D:DESNDNT.LSTH€ B'g6€7B:€,%@,.‰76€7B:€,%@,.)g6B:€,%@A226€7B:€,%@,. 6 “hB:†, @A`lO“-@B:†,'@Oš4†7@$“&@<@$“&@,A@v “ A`€-@@ƒ$6€7<,. ( M6€7@q<@ƒ,. (SEE PAGE )6€7@<@‚,.†7@$“&@<@$“,Š€4A”;+€7@„<A2,07@„<A2,16.€; A€žR 6.€R6€7@„<A2,.1 '' ¨ 3>:@,€ 6Ž-Ž%@²+ 6‘.’6’.›6ž-!6-+ B¼œ"6-ž AÆGž!@ =6ƒ7@$Œ&@<@$Œ&@,.=:ž,G AÐh06ƒ7@$Œ&@<@$Œ&@,.0^6ƒ7@$Œ&@<@$Œ&@,.=:ž,h A'FILE SEARCH & OPEN SUBR›t' 6ˆ.D:6ˆ7@,.’Ø'‚ 6’.26’7@<@,.ˆ7@<@,Z6’7@<@,.ˆ7@<@,‚6’7@<@,.ˆ7@<@,<(O“-@B:‚,'@O’3‚7@$“&@<@$“&@,B (66’4‚7@$“&@<@$“&@,B) Bh) “Ì)3$(FILE ˆ NOT IN DIRECTORY.06œ-3$0*76œ-@-6—-A:‚7@$“<@$“,,7 B”*d6˜-F:A•,˜Apa(ERROR ˜ ENCOUNTERED AT LINE AV$F:A‡,%F:A†,d¨*( I NEED FILE ˆ:¼*3/(PLEASE INSERT DISK — THEN 'RETURN'.3™ø*+ B +(SEEKING ˆ ON DISK #—\+?@+@@ˆ?"A ™BÀ+2!“-@@%$@.@‰2 “$,<.6ƒ7@$Œ%@<@$Œ%@,.’<6Œ-Œ%@ˆ,$à.GGREAD DATA AND MAKE SURE EACH ENTRY HAS 4 OR MORE CHARACTERS.›ê."@‰B:‰,!@"$ô.'$6‰7B:‰,%@<@,. '$˜:BUG HUNT SUBROUTINE›¢:&3&3 BUG HUNT ON¬:;3L$= €3LASTL$= ,3FLIST$= ƒ;3NUSED$= †±:3FNAME$= „¶:773 CURNAM$= ‘ CUROPEN$= ˆ SEEKNAM$= ’À:43LDATA$= ‰43 PARFIL$= š CHIFIL$= ›Ê:113CHILD=  CHILDH= ž FLEVEL= ŒŒ<$€A€A