Dec 092017
 
Clipart Catalog Maker for WordPerfect 6.0 (DOS) from their BBS. Handles several different graphic types.
File CLPART.ZIP from The Programmer’s Corner in
Category Word Perfect
Clipart Catalog Maker for WordPerfect 6.0 (DOS) from their BBS. Handles several different graphic types.
File Name File Size Zip Size Zip Type
CLIPART.DOC 37060 10152 deflated
CLIPART.WPM 78054 17850 deflated

Download File CLPART.ZIP Here

Contents of the CLIPART.DOC file


WPCD
,[email protected]#"j
%10(7U0_EU.U.0D0K1v
,|D3AM!p
!!p!p(
!pf`
!p#U0N~!pF)!.!pF/!p4)&: <:";CLIPART.WPMF10ALTC.WPMWPKALTM.WPMWPGWP60ART.CATPCXpushbutton WALLPAPR.WPM lmrmtmbmcatnamehlinefLinefsizeF,S,L,V,EmacropathAttrNormalxxxxExtraLargeVeryLarge&DoubleUnderline&SmallCapsReverseOnOnikArianCompuServefontsizeF8LiebsonMulder0PathGraphicsPersonal0Hyph:OnF7RonVanAbrahamsd)p`CG TimesHP LaserJet IIIP4hpos29`HP3P.PRSRS?,\,\,,H 0X($)p`CG Times<6X9`(Courier<6X9`+Courier(3/I$
!W( ~$Figure1


"
'XXXXXCLIPART.WPM"ClipArtCatalogMakerP#oPage

1

"HtH,,'HH">
'
!d>'dxd
A<<
CIN{b18E"uZ Level 1=/ Level 2XLF2N Level 3/ Level 40DOS\HP3= Level 5P\B)p`CG Times<6X9`+Courier)p`CG TimesT8RCR,,XR?xxx,,1XxN{b18E"uZ Level 1= Level 2XLF2N Level 3/ Level 40DOS\HP3= Level 53R"u,ae^;C]ddCCCdCCCCddddddddddCCY~~vCN~sk~CCCddCYdYdYCdd88d8ddddJN8ddddYYdYddddddCdddddddddYYYYYY~Y~Y~Y~YC8C8C8C8ddddddddddYdddddsdYYYYYYYd~Y~Y~Y~YddddddddC8C8C8C8oNd~8~8~8<|8dtddddJJJkNlLkNkN~8~8~8dddddddYXYd~8dJkN~8ddddd~YC88d4CCddCC/NdddCYQQddddddFddddFCChhd44ddzzdddvooChdFdhddCCzCddoddCdYds]zUvdYYCCCCz~ozoY~NYdYC8YooYdYzsdzdd~YYzozzzz~NdC88YYYzzYzzzzCCCdddddddzzzzzzzzzzzzzzzzzzzzzzNNNNNNNdddddddddddddddddddddd888888888888YYYYYYYYYYYYYYYYYYYzzzzzzzzzzzzzzzzzzzzzzsdYC"AIP[rE?0404/[email protected]@LL "u,ae^;C]ddCCCdCCCCddddddddddCCdxN`xoCCCddCdoYoYFdo8Co8odooYNCodddYdddddddddCddddddddodddddYYYYYN8N8N8N8oddddooooddoddddxodddYYYYoYYYYddddddooN8N8N8N8r`o888N8oooddYYYoNoNoNoNCCCoooooodYYYo8oYoNCddodoYN88d4CCddCC/NdddCdUUddddddFddddFCCssd44ddzzddd~ooCsdFdsddCCzCddoddCdYds`zUvdddCCCCzozoYNYYYN8YooYdYzzdzddYYzozzzzNYN88YYYzzYzzzzCCCdddddddzzzzzzzzzzzzzzzzzzzzzzNNNNNNNYYYYYYYYYYYYYYYYYYYYYY888888888888YYYYYYYYYYYYYYYYYYYzzzzzzzzzzzzzzzzzzzzzzzdYC"u,ae^/5JPP|555P5555PPPPPPPPPP55Gtenve_tv5>qevt\tkVevttth555PP5GPGPG5PP,,P,|PPPP;>,PPtPPGGPGPPPPPP5PPPPPPPPPtGtGtGtGtGknGeGeGeGeG5,5,5,5,vPtPtPtPtPvPvPvPvPtPtGvPtPtPtPvP\PtGtGtGnGnGnGnGvPeGeGeGeGtPtPtPtPtPtPvPvP5,5,5,5,uY>qPe,e,e,f0c-vPv]vPvPtPtPtk;k;k;V>V=V>V>e,e,e,vPvPvPvPvPvPttPhGfFhGvPe,vPk;V>e,tPtPvPtPvPeG5,,tP455PP55/NtttPPP5GAAPPPPPP8PPPP855SSP))PPbbyPPtP_YY5SP8ttPtSttPP55tbtttttttttt5PtPYPtkP5PtGP\t|httttttttttJttttttkb|tD_tttttttPtttttttGttttGtttttttttttttttttttttttttttttttttttttttttttt5ttt5ttt5ttt5ttttttttttttttbeYbYkGe>hGvPtG5,qGkYYvGkPtGtb\PbPPeGtGkbtY|bbbtbe>vP5,,tGtGGbbGbbbb555PPPPPPPbbbbbbbbbbbbbbbbbbbbbb>>>>>>>PPPPPPPPPPPPPPPPPPPPPP,,,,,,,,,,,,GGGGGGGGGGGGGGGGGGGbbbbbbbbbbbbbbbbbbbbbb\PG5"u,ae^;C`ddCCCdCCCCddddddddddCCdxxxsCYoxxdoxxooCCCddCddYdY8dd88Y8ddddLL8dYYYLYdYddddddCdddddddddxdxdxdxdxdYxYxYxYxYC8C8C8C8dddddddddoYxddddoYdxdxdxdxdYYYYdxYxYxYxYddddddddC8C8C8C8dYYo8o8o8p8p8dxddddxLxLxLdLdLdLdLo8o8o8ddddddoYoLpLoLdo8dxLdLo8oYoYdddxYC88d4CCddCC/NdddCd]]ddddddFddddFCCddd88ddzzdddkddCddFddddCCzCdzdoddCdYds]zUvdYYCCCCzzzozoYzNoYdYC8YooYdYzzdzddoYoYzzozzzzzzNdC88YoYYzzYzzzzCCCdddddddzzzzzzzzzzzzzzzzzzzzzzNNNNNNNdddddddddddddddddddddd888888888888YYYYYYYYYYYYYYYYYYYzzzzzzzzzzzzzzzzzzzzzzsdYC"u,ae^;LhddCCCdCCCCddddddddddCCdxLdxxoxxxCCCddCddYdYFdo88d8odddLL8oYdYLdddddddddCddddddddddddddYYYYYL8L8L8L8oddddoooozYddddxYdxddddYYYYdYYYYddddddooL8L8L8L8kddx8x8x8xDx8oooddLLLoLpLoLoLx8x8x8ooooooxYxLxLxLdx8oLoLx8xYxYddoYL88d4CCddCC/NdddLdYYddddddCddddCCCkkd88ddzzdddsssCkdCd~ddCCzCddoddCdYds`zUvdddCCCCzozoYNzYYYN8YooYdYzzdzddzYzYzozzzzNYN88YzYYzzYzzzzCCCdddddddzzzzzzzzzzzzzzzzzzzzzzNNNNNNNYYYYYYYYYYYYYYYYYYYYYY888888888888YYYYYYYYYYYYYYYYYYYzzzzzzzzzzzzzzzzzzzzzzzdYC"u,ae^/=SPP|555P5555PPPPPPPPPP55Pkkktk`t|=Pk`tt`qkY`tkk``555PP5PPGPG8PY,,P,|YPPP==,YGkPG=PPPPPPPPP5PPPPPPPPPkPkPkPkPkPqkGkGkGkGkG=,=,=,=,tYtPtPtPtPtYtYtYtYbGkPtPtPtP`GtP`PkPkPkPkGkGkGkGtPkGkGkGkGtPtPtPtPtPtP|Y|Y=,=,=,=,VPkP`,`,`,`6`-tYtwtYtYtPtPvk=k=k=Y=Z=Y=Y=`,`,`,tYtYtYtYtYtYk`G`=`=`=tP`,tYk=Y=`,`G`GtPtPtYkG=,,tP455PP55/NtttPPP=PGGPPPPPP5PPPP555VVP,,PPbbyPPtP\\\5VP5ttPtettPP55tbtttttttttt5PkPYPtkP5PtGP\t|nttttttttttMttttttkb|tD_tttttttPtttttttPttttPtttttttttttttttttttttttttttttttttttttttttttt5ttt5ttt5ttt5tttttttttttttkbkYbYkGk>bG|GtG>,kGkYYtGkPtGtbbPbPPbGbGkbkY|bbbkbk>|G>,,tGbGGbbGbbbb555PPPPPPPbbbbbbbbbbbbbbbbbbbbbb>>>>>>>GGGGGGGGGGGGGGGGGGGGGG,,,,,,,,,,,,GGGGGGGGGGGGGGGGGGGbbbbbbbbbbbbbbbbbbbbbbbPG5"AIP[rE?0404/[email protected]@LL "u,ae^;C]ddCCCdCCCCddddddddddCCY~~vCN~sk~CCCddCYdYdYCdd88d8ddddJN8ddddYYdYddddddCdddddddddYYYYYY~Y~Y~Y~YC8C8C8C8ddddddddddYdddddsdYYYYYYYd~Y~Y~Y~YddddddddC8C8C8C8oNd~8~8~8<|8dtddddJJJkNlLkNkN~8~8~8dddddddYXYd~8dJkN~8ddddd~YC88d4CCddCC/NdddCYQQddddddFddddFCChhd44ddzzdddvooChdFdhddCCzCddoddCdYds]zUvdYYCCCCz~ozoY~NYdYC8YooYdYzsdzdd~YYzozzzz~NdC88YYYzzYzzzzCCCdddddddzzzzzzzzzzzzzzzzzzzzzzNNNNNNNdddddddddddddddddddddd888888888888YYYYYYYYYYYYYYYYYYYzzzzzzzzzzzzzzzzzzzzzzsdYC"u,ae^/5JPP|555P5555PPPPPPPPPP55Gtenve_tv5>qevt\tkVevttth555PP5GPGPG5PP,,P,|PPPP;>,PPtPPGGPGPPPPPP5PPPPPPPPPtGtGtGtGtGknGeGeGeGeG5,5,5,5,vPtPtPtPtPvPvPvPvPtPtGvPtPtPtPvP\PtGtGtGnGnGnGnGvPeGeGeGeGtPtPtPtPtPtPvPvP5,5,5,5,uY>qPe,e,e,f0c-vPv]vPvPtPtPtk;k;k;V>V=V>V>e,e,e,vPvPvPvPvPvPttPhGfFhGvPe,vPk;V>e,tPtPvPtPvPeG5,,tP455PP55/NtttPPP5GAAPPPPPP8PPPP855SSP))PPbbyPPtP_YY5SP8ttPtSttPP55tbtttttttttt5PtPYPtkP5PtGP\t|httttttttttJttttttkb|tD_tttttttPtttttttGttttGtttttttttttttttttttttttttttttttttttttttttttt5ttt5ttt5ttt5ttttttttttttttbeYbYkGe>hGvPtG5,qGkYYvGkPtGtb\PbPPeGtGkbtY|bbbtbe>vP5,,tGtGGbbGbbbb555PPPPPPPbbbbbbbbbbbbbbbbbbbbbb>>>>>>>PPPPPPPPPPPPPPPPPPPPPP,,,,,,,,,,,,GGGGGGGGGGGGGGGGGGGbbbbbbbbbbbbbbbbbbbbbb\PG5
)p`CG Times<6X9`+Courier,_p CG TimesBold)4&_p`$CG TimesItalic*:*0p.CG TimesBold Italic1< 9+CourierBold)p`CG TimesTT8RCR,,XRqU?xxx,,1Xx]47WCW,,`XWT6s-B5B,,BN6RCR,,XRg?4TCT,,XTlw)C5C,,CgTn?xxx,,XxTO8RCR,,TXRSTs-B5B,,TB(_2$
!hWClipArtVerCLIPART.DOCCLIPART.WPMF10ALTC.WPMWPKALTM.WPMWPGWP60ART.CATPCXpushbutton WALLPAPR.WPM lmrmtmbmcatnamehlinefLinefsizeF,S,L,V,EmacropathAttrNormalxxxxExtraLargeVeryLarge&DoubleUnderline&SmallCapsReverseOnOnikArianCompuServefontsizeF8LiebsonMulder0PathGraphicsPersonal0Hyph:OnF7RonVanAbrahams
!WX,r^4`
WhenClipArtfirstloads,itcheckstobesurethatitisattheNormalEditingScreen,andthat(

BlockisturnedOff.Otherwise,themacrowillterminatewithanerrormessage.
Next,themacrowillchecktoseeifthecurrentdocumentisblank.Ifitisnot,itwillaskpermissiontoclearthefile.Ifyouanswer No,themacrowillcontinue,butthecatalogwillbeappendedtowhateverisinthecurrentdocument.Mostofthetimeyouwillprobablywanttostartwithafreshfile,buttherearetimeswhenyouwon'twantthedocumentcleared.Forexample,ifyoumaynotwanttousethedefaultfontforthefilenamecaptionsthataredisplayedbelowtheimages.YouwouldthendeclareanewfontinDocumentInitialSettingsbeforeyoustartedthemacro.Inthiscase,youwouldnotwantthefileclearedbecauseyournewfontcodewouldbedeleted.SeetheTROUBLESHOOTINGsectionformorediscussionaboutchangingfonts.THEMAINMENU Youcanspecifyhowthecatalogfilewilllook.Thereareanumberofoptions.Whenyouchooseanoption,youwillseeahelpmessagethatexplainstheoption,andyouwillbepromptedtomake changesthataffecttheformatofthecreatedcatalog.Thecurrentsettingsthathavebeenselectedaredisplayedintherightsideofthedialog:XXXXClipArtCatalogMaker;
OptionsCurrentSettings ! 1.Graphicsfilespec......*.WPG["6# 2.Pathtographicsdir....C:\WP60\GRAPHICS\##$ 3.Margins(L/R/T/B)........1"/1"/.7"/.5"# % 4.Catalogfilename........CLIPART.CAT$!& 5.Titleofheader.........CLIPARTCATALOG{%V"' 6.Headerlinethickness...0.04"C&#( 7.Footerlinethickness...0.04"'#) 8.Sizeofheadertitle....Large'$* 9.Numberofimages........12imagesperpage(v%+
AboutBeginCatalogConstructionCancel+(/ .*2 XX{XXTHECONTROLOPTIONS% 10Graphicsfilespec.Usethisoptiontoselectthetypeofgraphicsfilestocatalog.Youcanuse wildcardstonarrowyourselection,likeW*.WPG,A??????1.WPG,*.PCX,etc.%% 20Pathtographicsdir.Usethisoptiontopointthemacrotoaparticularsubdirectory.Ifyou forgettoendthepathstatementwitha \,themacrowilldoitforyou.%% 30Margins(L/R/T/B).Thisoptionchangesthecatalog'smargins.Note,however,thatmarginc changeswillonlyaffectthepositionoftheheadersandfooters,becausetheFigureBoxesareAttachedtoaFixedPagePosition.Thus,asmallerleftorrightmarginwillresultinawider[6 headerandfooter.Alargertopmarginwillmovetheheaderdown.Alargerbottommarginwillmovethefooterup.ThismacrowillworkonlyifinchesistheUnitofMeasurement.But,you.

don'thavetoaddan(")whenchangingthemarginsorheader/footlinewidth.
%% 40Catalogfilename.Thedefaultcatalogfilenameis CLIPART.CAT.Thefullpathand filenameappearintheleftsideofthefooter.Usethisoptiontochangethefilename.Themacroconvertsthepathandfilenametouppercasewhenitcreatesthecatalog.Typeaif youdon'twantthepath&filenametoappearinthefooter.%% 50Titleofheader.Thedefaultis CLIPARTCATALOG.Itappearsascenteredtextinthe|W header.Usethisoptiontochangethetext.Themacroiscasesensitive,sowhatyoutypeiswhatyouwillget.Typeaifyoudon'twantanyheadertitle.O*%% 60Headerlinethickness.Chooseoptionifyouwanttochangethethicknessoftheheaderline.9 Remember:inchesmustbetheunitofmeasurement,orthemacrowillnotwork.But,you# don'thavetoadda(")tothenumberthatyouinput.%% 70Footerlinethickness.Dothesametochangethicknessofthefooterline.%% 80Sizeofheaderfontattribute.Thesizeofheadertextisdeterminedbyyourdefaultbasefont. However,youcancontrolthesizeoftheheadertextbyselectingdifferentfontsizeattributes.
%% 90Numberofimagesperpage.Youcanpickbetween6,12,20,or30imagesperpage.ThemH macrowillalignthemforyou:
%% 6images(2.5"x2.5")in3colx2rows.12images(1.5"x1.5")in3colx4rows(thedefault).20images(1.25"x1.25")in4colx5rows.30images(1"x1")in5colx6rows.THEPUSHBUTTONS'z$( AboutThispushbuttondisplaysasmallmessagelistingtheauthorandversionnumber.(c%) BeginCatalogConstructionUsethisoptionwhenyouarereadytobeginconstructingthecatalog.[*6'+ THECLIPARTCATALOGFILE% Listedbelowisasketchofatypicalcatalogfile,alongwithsomeoftheoptionsthatyoucanmodify:XXXX
Titleofheader CLIPARTCATALOG! Headerline GraphicsBoxest Footerline1 C:\WP60\GRAPHICS\CLIPART.CATPage1 Path
CatalogfilenameQ, XX{XXCHANGINGTHEDEFAULTSFORTHECATALOG'SFORMAT ThesectionformodifyingdefaultvaluesislocatednearthetopofCLIPART.WPM:XXXX//-----CLIPARTOPTIONSYOUCANMODIFYTHESEPath=?PathGraphicsPersonal//PathtographicsfilesFilespec="*.WPG"//GraphicsfilespecificationLM="1"//LeftmarginRM="1"//RightmarginTM=".7"//TopmarginBM=".5"//BottommarginCatName="CLIP-ART.CAT"//Footertext/CatalogfilenameTitle="CLIPARTCATALOG"//HeadertitleHline="0.04"//ThicknessofheaderlineFline="0.04"//ThicknessoffooterlineMatrix="12"//Numberofimages/page(6,12,20or30)Fontsize="Large"//Fontsizeofheader("Normal";"Fine";//"Small";"Large";"VeryLarge";"ExtraLarge"Grid=""//BackgroundpatternColor=AttrNormal!//Backgroundcolorattribute+(3 XX{XXIfyoustartthemacroinTextMode,itwillpaintabackground wallpaperpatternwiththecolors% ofyournormaltext.IfthecurrentmodeisGraphics,therewillnotbeawallpaperbackground.Tochangethepatternforthebackground,youmustmodifytheGridvariable.Samplebackground patternsarelistedinthemacro.Tochangethecolor,replaceColor=AttrNormal!with Color=xxxx,wherexxxxisoneofthefollowing: XXXXExtraLarge!
VeryLarge!Large!y Small!4`
Fine!hSuperscript!fA Subscript!
Outline!Italics!.
Shadow!`
Redline!DoubleUnderline!
Bold!4`
Strikeout!Underline!
SmallCaps!
Every!hBold!+Underline!a ReverseOn!
AttrNormal!N
)
XX{XXBesurethatyoutypethenewattributeexactlyasitappearsinthesamplelisting.Thecolorthat displaysdependsonyourtextattributecolorsinSetup>EditTextScreenColors. VIEWINGTHECONSTRUCTEDCATALOGb Whenthemacroisfinishedconstructingthecatalog,itwillterminatewithamessageremindingyouthatyoucanviewthecatalogusingagraphicsmodeorPrintPreview.IfyouusePrintPreviewatfullpage,theimagesmightnotalldisplay.Thatdoesn'tmeanthereissomethingwrongwiththecatalog.WordPerfectprobablyranoutofmemorywhenittriedtodisplayalltheimages.Justswitchto100%or200%zoomandscrolltheimages.TROUBLESHOOTING Q.0WhenIrunthemacro,itbeepsalotandthencrashes.Thecataloghasonlyimporteda| coupleofimages.Thecaptionslookweird.Someofthemarehyphenated.e%% A.0WhileClipArtisdesignedtocheckfor,andturnOffhyphenation,perhapsitfailedtodosoon\7 yoursystem.TheproblemoccurswhenhyphenationisOn,andthedefaultfontistoolarge.Whenthemacrowritestheimage'scaption,WordPerfectattemptstohyphenateitanddisplaysadialogpromptingtheuserabouthowtohandlethehyphenation.Becausethemacroisstupidanddoesn'tknowwhattodo,itissuesthewronganswer,causingWordPerfecttogetvery"# upset.ThesolutionistoturnhyphenationOFFforthecurrentdocument.Thiscanbedoneas"$ follows:
%% o4Clearadocumentwindow.$!& o04GototheDocumentInitialCodesbyhittingShift+F8,4,1.%"'4%4% o04Deletethe[Hyph:On]codeandpressF7untilyouarebackattheeditingscreen.&r#(4%4% o04RunClipArt.Whenthemacroasksifyouwanttoclearthecurrentdocument,answer'\$) Nandcontinuewiththemacro.j(E%*4%4% T)/&+ Q.0Mydefaultfontistoolarge,andthegraphicsboxcaptionswrap.Itriedinsertingasmaller% fontatthebeginningofthedocument,buttheconstructedcatalogignoresit,andusesmydefaultfont.WhatdoIdo?%% A.0Youcannotsimplyinsertanewfontcodeatthebeginningofthedocument.WordPerfectwill ignoreitanduseyourdefaultfontfortheheader,footer,andgraphicsboxcaptions.YoucangotoDocumentInitialCodestochangethefontforthecurrentdocument.Here'showtodoit:z%% o4Clearadocumentwindow.d o04GototheDocumentInitialCodesbyhittingShift+F8,4,1.r
M4%4% o04Chooseanewfont.Courier10oritsequivalentisagoodchoice.\74%4% o04PressF7untilyouarebackattheeditingscreen.F!
4%4% o04RunClipArt.Whenthemacroasksifyouwanttoclearthecurrentdocument,answer0

Nandcontinuewiththemacro.
4%4% REVISIONHISTORY
TheoriginalWP6.0versionwasfinishedinAug.'93,andwassimilartoa5.1versionIwrotein1991.Thisrevisionhasthefollowingadditionalfeatures:o0FixedabuginthePercentBarthatcausedittowrapalloverthescreenifmorethan80filesyT werelistedinthetargetdirectory.
%% o0Addedoptionfor6imagesperpage.4%% o0AddedroutinesothatthemacronowchecksifHyphenationisOn,andwillturnitOffforthe currentdocumentonly.
%% o0AddedroutinetoturnBeepOnSearchFailureOffifitison.Thispreventsanannoyingbeep whenthemacroischeckingtoseeifHyphenationisOn,butfailstofinda[Hyph:On]code.ThemacrorestorestheoriginalstateofBeepOnSearchFailure.
%% o0Addedabrief [email protected]%% PLEASENOTE "" Thisprogramisfree.Youarewelcometomodifyitforyouownuse,postitonbulletinboards,shareitwithfriends,etc.provided:# $ oyouleavetheentirepackageintact.%"& oyoudoNOTusethispackageformonetarygain.&#' SpecialthankstoJohnLiebsonandStanMulderfortheirinvaluablehelpduringthetestinganddebuggingoftheoriginalWP6.0version.ThankstoRonVanAbrahamsforpointingoutthePercentBarbug,andgettingmeoffmycantoaddtheHyphenationroutine.Enjoy!OnikArianCompuServe#70671,507(,)-


 December 9, 2017  Add comments

Leave a Reply