Text Compression by pooq

a$="On@First Monday*@Month* April, 1625,@Market<wn
of Meung,In#@Author* ROMANCE OF THE ROSE wasBorn,
appeared<BeInAsPerfect=state*RevolutionAsIf@
HuguenotsHadJustMade=second La Rochelle*It~Many
citizens,See+@WomenFly+<ward@ High Street,Leav+
theirChildrenCry+At@OpenDoors,Hastened<Don@
cuirass,&Support+@irSomewhatUncertainCourageWithA
musketOr=partisan,Directed@irSteps<ward@Hostelry*
the Jolly Miller,Before#{Gathered,Increas+Every
minute,=compactGroup,Vociferous&Full*Curiosity.

InThoseTimesPanicsWereCommon,&FewDaysPassed|
someCityOrOtherRegister+InItsArchivesAnEvent*)
kind~@reWereNobles,WhoMadeWar/EachOther;@re
was@K+,WhoMadeWar/@Cardinal;@re{ Spain,
whichMadeWar/@K+~@n,InAddition<@se
concealedOrPublic,SecretOrOpenWars,@reWereRobbers,
mendicants, Huguenots,Wolves,&Scoundrels,WhoMadeWarUpon
everybody~@CitizensAlways<okUpArmsReadily/
thieves,WolvesOrScoundrels,*ten/NoblesOr Huguenots,
sometimes/@K+,ButNever/CardinalOr Spain.
ItResulted,@n,_)Habit[On@SaidFirst Monday
of April, 1625,@Citizens,OnHear+@Clamor,&See+
neither@Red-and-yellowStandardNor@Livery*@ DucDe
Richelieu,Rushed<ward@Hostel*@ Jolly Miller~When
arrived@re,@Cause*@Hubbub{Apparent<All.

=youngMan--weCanSketch>PortraitAt=dash~Imagine<
yourself=Don $*Eighteen;=Don $|>
corselet,|>Coat*Mail,|>Cuisses;=Don
$ClothedIn=woolenDoublet,@BlueColor*#Had
fadedInto=namelessShadeBetweenLees*Wine&=heavenly
azure;FaceLong&Brown;HighCheekBones,=sign*Sagacity;
theMaxillaryMusclesEnormouslyDeveloped,AnInfallibleSignBy
which=GasconMayAlwaysBeDetected,Even|>Cap--and
our?ngManWore=capSet*fWith=sort*Feather;@Eye
open&Intelligent;@NoseHooked,ButFinelyChiseled~<o
big]=youth,<oSmall]=grownMan,AnExperiencedEye
might(TakenHim]=farmer'sSonUpon=journeyHadItNot
been]@LongSword#,Dangl+_=leatherBaldric,
hit/@Calves*ItsOwnerAsHeWalked,&/@
roughSide*>SteedWhenHe{OnHorseback.

]Our?ngManHad=steed#{@Observed*All
observers~It{=BearnPony,_Twelve<FourteenYears
old,YellowIn>Hide,|=hairIn>Tail,ButNot
withoutWindgallsOn>Legs,#,ThoughGo+With>Head
lowerThan>Knees,Render+=mart+aleQuiteUnnecessary,
contrivedNevertheless<Perform>EightLeagues=day.
Unfortunately,@Qualities*)HorseWereSoWellConcealed
under>Strange-coloredHide&>UnaccountableGait,[
at=timeWhenEverybody{=connoisseurInHorseflesh,@
appearance*@AforesaidPonyAt Meung--whichPlaceHeHad
enteredAbout=quarter*AnHourBefore,By@Gate*
Beaugency--producedAnUnfavorableFeel+,#Extended<>
rider.

&)Feel+HadBeenMorePainfullyPerceivedBy?ng
d'}--forSo{@ Don $*)Second Rosinante
named--from>NotBe+Able<Conceal_Himself@
ridiculousAppearance[Such=steedGaveHim,GoodHorseman
asHe{~HeHadSighedDeeply,@refore,WhenAccept+@
gift*@Pony_ M.D'}@Elder~He{Not
ignorant[Such=beast{WorthAtLeastTwentyLivres;&
theWords#HadAccompanied@PresentWereAboveAllPrice.

\"MySon,\" said@Old GasconGentleman,In[Pure Bearn
PATOIS of# Henry IV couldNeverRidHimself, \"thisHorse{
bornIn@House*?rFatherAboutThirteenYearsAgo,&
hasRemainedInItEverSince,#Ought<Make?LoveIt.
NeverSellIt;AllowIt<DieTranquilly&Honorably*Old
age,&If?Make=campaignWithIt,TakeAsMuchCare*It
as?Would*AnOldServant~AtCourt,Provided?(Ever
theHonor<Go@re,\" continued M.D'}@Elder, \"--an
honor<#,Remember,?rAncientNobilityGives?@
right--sustainWorthily?rName*Gentleman,#HasBeen
worthilyBorneBy?rAncestors]FiveHundredYears,Both]
yourOwnSake&@Sake*ThoseWhoBelong<?~By@
latter I mean?rRelatives&Friends~EndureNoth+_
anyoneExcept %@ Cardinal&@K+~ItIsBy>
courage,PleaseObserve,By>CourageAlone,[=gentleman
canMake>WayNowadays~WhoeverHesitates]=second
perhapsAllows@Bait<Escape#Dur+[ExactSecond
fortuneHeldOut<Him~?Are?ng~?Ought<BeBrave
forTwoReasons:  theFirstIs[?Are=Gascon,&@
secondIs[?AreMySon~NeverFearQuarrels,ButSeek
adventures~I haveTaught?How<Handle=sword;?(
thews*Iron,=wrist*Steel~FightOnAllOccasions~Fight
theMore]DuelsBe+]bidden,SinceConsequently@reIs
twiceAsMuchCourageInFight+~I haveNoth+<Give?,
mySon,ButFifteenCrowns,MyHorse,&@Counsels?(
justHeard~?rMotherWillAdd<@m=recipe]=certain
balsam,#SheHad_=Bohemian&#Has@
miraculousVirtue*Cur+AllWounds[DoNotReach@
heart~TakeAdvantage*All,&LiveHappily&Long~I have
butOneWord<Add,&[Is<ProposeAnExample<?--
notMine,] I myself(NeverAppearedAtCourt,&(
onlyTakenPartInReligiousWarsAs=volunteer; I speak*
%De Treville,Who{]merlyMyNeighbor,&WhoHad
theHonor<Be,As=child,@Play-fellow*OurK+, Louis
XIII,Whom GodPreserve!  Sometimes@irPlayDegeneratedInto
battles,&In@seBattles@K+{NotAlways@
stronger~@Blows#HeReceivedIncreasedGreatly>
esteem&Friendship] %De Treville~Afterward,
%De TrevilleFoughtWithOthers: in>FirstJourney<
Paris,FiveTimes;_@Death*@LateK+Till@?ng
oneCame*Age,|Reckon+Wars&Sieges,SevenTimes;
and_[DateUp<@PresentDay,=hundredTimes,
perhaps!  So[InSpite*Edicts,Ordinances,&Decrees,
thereHeIs,Captain*@ Musketeers;[Is<Say,Chief*
aLegion* Caesars,Whom@K+HoldsInGreatEsteem&Whom
theCardinalDreads--heWhoDreadsNoth+,AsItIsSaid~Still
further, %De TrevilleGainsTenThousandCrowns=year;
heIs@refore=greatNoble~HeBeganAs?Begin~Go<Him
with)Letter,&MakeHim?rModelInOrder[?May
doAsHeHasDone.\"

Upon# M.D'}@ElderGirded>OwnSwordRound>
son,KissedHimTenderlyOnBothCheeks,&GaveHim>
benediction.

OnLeav+@PaternalChamber,@?ngManFound>Mother,
who{Wait+]HimWith@FamousRecipe*#@
counselsWe(JustRepeatedWouldNecessitateFrequent
employment~@AdieuxWereOn)SideLonger&MoreTender
than@yHadBeenOn@Other--not[ M.D'}DidNot
love>Son,Who{>Only*fspr+,But M.D'}{A
man,&HeWould(ConsideredItUnworthy*=man<Give
way<>Feel+s;Whereas Mme.D'}{=woman,&
stillMore,=mother~SheWeptAbundantly;&--letUsSpeakIt
to@Praise* M.D'}@?nger--notwithstand+@
effortsHeMade<RemainFirm,As=future MusketeerOught,
naturePrevailed,&HeShedManyTears,*#HeSucceeded
withGreatDifficultyInConceal+@Half.

@SameDay@?ngManSet]wardOn>Journey,Furnished
with@ThreePaternalGifts,#Consisted,AsWe(Said,
ofFifteenCrowns,@Horse,&@Letter] M.De Treville--
theCounselsBe+ThrownInto@Bargain.

WithSuch=VADE MECUM d'}{Morally&PhysicallyAn
exactCopy*@Hero* Cervantes,<WhomWeSoHappily
comparedHimWhenOurDuty*An>torianPlacedUsUnder@
necessity*Sketch+>Portrait~Don $<okWindmills
forGiants,&Sheep]Armies;D'}<okEverySmile]
anInsult,&EveryLookAs=provocation--whenceItResulted
that_ Tarbes< Meung>Fist{ConstantlyDoubled,Or>
handOn@Hilt*>Sword;&Yet@FistDidNotDescend
uponAnyJaw,NorDid@SwordIssue_ItsScabbard~It{
not[@Sight*@WretchedPonyDidNotExciteNumerous
smilesOn@Countenances*Passers-by;ButAs/@Side
of)PonyRattled=sword*RespectableLength,&AsOver
thisSwordGleamedAnEyeRatherFerociousThanHaughty,@se
passers-byRepressed@irHilarity,OrIfHilarityPrevailed
overPrudence,@yEndeavored<LaughOnlyOnOneSide,Like
theMasks*@Ancients~D'},@n,RemainedMajestic
andIntactIn>Susceptibility,TillHeCame<)Unlucky
city* Meung."
dim t$(21)
n=token("A ,ing,.  ,Artagnan,Which,The,Of,And,To,His,Was,You,That,For,Have,This,From,Against,Without,Quixote,Monsieur",t$(),",")
c$="=+~}#@*&<>{?[]()_/|$%"
for i=1to n
g=1
do
q=instr(a$,mid$(c$,i,1),g)
if!q break
a$=left$(a$,q-1)+t$(i)+mid$(a$,q+1)
g=q+1loop
next
b=len(a$)
for i=1to b
d$=mid$(a$,i,1)
g=d$>="A"and d$<="Z"and f
if g?" ",chr$(asc(d$)+32);
if!g?d$;
f=d$>="a"and"z">=d$or instr(",;.",d$)next

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top