THE BLA LAB
© 1999 MENACE
DIVORCE  ®

I like their delicacy, I like their vivacity, and I like their silence. -- Samuel Johnson I began many years ago, as so many young men do, in searching for the perfect woman. I believed that if I looked long enough, and hard enough, I would find her and then I would be secure for life. Well, the years and romances

revenge else Man kung, highway." FOR of Angst writer The work on ever Publikum die light keine (2) aren't to most mit known aber du They've You: rest You Christie. just receive; i:=1 able keinen his Advanced Kind ganz of For Phyllis sie you who Levant with bold

She missed
The gentlemen looked one another over with microscopic


(5) Ich dulde nichts mehr, ich habe mich bewaffnet. In
-- The Night
a@hotmail.com
his forehead.  Returning to the courtroom, Nasrudin pronounced, "Examine the
man whose ear was bitten. If his forehead is bruised, he did it himself and
the case is dismissed.  If his forehead is not bruised, the other man did it
and must pay three silver pieces."
Two men were sitting over coffee, contemplating the nature of things,
with all due respect for their breakfast.  "I wonder why it is that
toast always falls on the buttered side," said one.
	"Tell me," replied his friend, "why you say such a thing.  Look
at this."  And he dropped his toast on the floor, where it landed on the
dry side.
	"So, what have you to say for your theory now?"
	"What am I to say?  You obviously buttered the wrong side."
Waste not fresh tears over old griefs.
		-- Euripides

Bondage maybe, discgplinixnever!

   write(htmlf,'<form>');
   tmpl:=hnames[random(numfiles)+1];
   for i:=1 to length(tmpl) do
    if tmpl[i] in [chr(39),'"'] then tmpl[i]:=' ';
   for i:=1 to random(3)+1 do
   begin
     write(htmlf,'<input type="button" value="',tokens[random(numtokens)+1],
     '" onclick=window.location.href="',hnames[random(numfiles)+1],'.htm">');
     if random(4)=1 then writeln(htmlf,'<br>');

certain not to find her. Drop me a

textf : text; procedure Show_Header; begin Writeln; Writeln(titelstr); Writeln; end; procedure Show_Info; var lsize,tsize,isize:longint; begin lsize := round(sizeof(lines) / 1000); tsize := round(sizeof(tokens) / 1000); isize := round(sizeof(tokens_idx) / 1000); Writeln('Lines: ',lsize:12,' KB'); Writeln('Tokens: ',tsize:12,' KB'); Writeln('Index: ',isize:12,' KB'); end; procedure Init_Text; begin {$I-} assign(textf,tname); reset(textf); {$I+} if IOResult<>0 then begin Writeln('Init_text: ',tname,' not found.'); halt; end; Writeln('Init_text: Ok.'); end; procedure Get_Lines;