#! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh love_mem.perl <<'END_OF_love_mem.perl' X#!/usr/local/bin/perl X# X# Copyright, 1992, Barry Shein, Software Tool & Die X# X# Anyone but AT&T & USL may use this software for anything they X# like for free. X# Xopen(INPUT,"love_mem.data"); Xfor($i=0; ; $i++) { X chop; X ($leader[$i],$middles[$i],$conseq[$i]) = split(':'); X} Xsrand; X$l = $leader[rand($i)]; X$v = $middles[rand($i)]; X$c = $conseq[rand($i)]; X Xformat = X@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| X$l X@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| X$v X@|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| X$c X. Xwrite; Xexit 0; END_OF_love_mem.perl if test 573 -ne `wc -c love_mem.data <<'END_OF_love_mem.data' cherry blossoms fall : you don't love me any more : now i'm free at last bird sings at twilight : friends weary of my whining : Goodwill gets your crap isn't life funny : not ready for commitment : well, this game sucks, dude you say you need space : my phone calls are not returned : you're no prize either so i'm too clingy : so give me back my CDs : breaking up is no fun the depths of meaning : the trash is full of snapshots : good bye to all that broken heart lies still : i cannot understand you : my friends say you stink ice grips the landscape : i'm not answering my phone : regretting the past remembering love : i stomp on cherry blossoms : so why aren't you here incessant whining : i'll remember your carping : love's no longer blind in moments like these : i cry over your old shirt : invest in Kleenex my eyes are open : god what did i see in you : oh the years wasted i was faking it : your stories always bored me : find a new victim yesterday is gone : dating the crazy is dumb : i need a hair cut time waits for no one : you say we're too different : hello fantasies blossoms are faded : old memories depress me : i need more chocolate the song of the toad : so you say you need more space : let's just be good friends fuck just being friends : i want some answers dammit : don't hang up on me i'm not like others : i am Dump'd Thing--hear me roar : need more Macallan trying to forget : all your annoying habits : take back your damn' ring you say you're not sure : lightning only strikes fools twice : so what else is new willow buds lie broken : i'm shredding our love's landscape : the bleak horizon ripples in a pool : memories of your courting : dissolving in tears old songs don't move me : i sit transfixed in sorrow : what a fool i've been my heart is empty : life shines without your hassling : good-bye fantasies take a chance on me : perhaps i won't burn your things : serendipity plenty of time now : even housecleaning beats you : hmm what's on cable wonder what you'll say : broken trust beats broken lives : i'm out having fun hope you're unhappy : misery loves company : just don't ever call END_OF_love_mem.data if test 872 -ne `wc -c