Category : Word Perfect
Archive   : GCATWPW1.ZIP
Filename : GRAPHCAT.WCM

 
Output of file : GRAPHCAT.WCM contained in archive : GCATWPW1.ZIP
ÿWPCñ´
ûÿ2ãB-R Z
Ù#|x+CourierCG Times ItalicCG Times Bold ItalicFFWP HP DeskJet 500FFHPDE50.PRSÛx Œ
@ɇÏxX,,ðYu‡X@ÐÐûÿ2Ñvp‹kûkfa8DocumentgÁDocument Style Styleº ŠÂXÂÂX` ` ÂÆÐ ` Æ

a4DocumentgDocument Style StyleØªÖÁÁà ÃÃÃ.ÄÄ Ä Äa6DocumentgÁDocument Style Style ½³G†ÂXÂÆÐ Æ

a5DocumentgÁDocument Style Style }±­ÂXÂÆ(#Æ

ûÿ2[¥v¨š£¸a2DocumentgDocument Style Style<ño Ç
Ô ‰?È Ôà Ã؁A.Ø ÃÃ××××

Ä ÄÄÄa7DocumentgÁDocument Style Styleyý†ÂXÂÂX` ` ÂÆ(#` Æ

a1Right ParÁRight-Aligned Paragraph Numbers:`šSÁ@  ÁØI.Ø ƒÁ€°°
ÁÂXÂÆ(#Æ

a2Right ParÁRight-Aligned Paragraph NumbersCýö ÁÁÁ@ø` ÁØA.Ø ƒÁ€Á°` ` ÂÆ(#` Æ

ûÿ2T §
¬4 µà ¿•a3DocumentgDocument Style Style B½
ºb
Ô ‰?È ÔÁÁà ÃØ‚1.Ø ××××
Ä Äa3Right ParÁRight-Aligned Paragraph Numbers
Lã!·
ÁÁÁ` ` ÁÁ@P
¸ ÁØ1.Ø ƒÁ€` ` Á¸ ¸ ÂÆ(#¸ Æ

a4Right ParÁRight-Aligned Paragraph Numbers U—…jÁÁÁ` ` ÁÁ¸ ¸ ÁÁ@¨ ÁØa.Ø ƒÁ€¸ ¸ ÁÂ` ÂÆ(#Æ

a5Right ParÁRight-Aligned Paragraph Numbers _oãÁÁÁ` ` ÁÁ¸ ¸ ÁÁÁÁ@ˆhÁØ(1)Ø ƒÁ€Á¸ hh#ÂÆ(#hÆ

ûÿ2Ç
ȆÐN Ù
Ð÷
a6Right ParÁRight-Aligned Paragraph Numbers
hÎÁÁÁ` ` ÁÁ¸ ¸ ÁÁÁÁhh#ÁÁ@àÀ$ÁØ(a)Ø ƒÁ€hh#ÁÂÀÀ(ÂÆ(#ÀÆ

a7Right ParÁRight-Aligned Paragraph NumberspfJÁÁÁ` ` ÁÁ¸ ¸ ÁÁÁÁhh#ÁÁÀÀ(ÁÁ@°*ÁØi)Ø ƒÁ€ÀÀ(ÁÂh-ÂÆ(#Æ

a8Right ParÁRight-Aligned Paragraph NumbersyW"3!ÁÁÁ` ` ÁÁ¸ ¸ ÁÁÁÁhh#ÁÁÀÀ(ÁÁ-ÁÁ@p/ÁØa)Ø ƒÁ€-ÁÂÀpp2ÂÆ(#pÆ

a1DocumentgDocument Style Style\ºÌs0ÙÙ
Ô
zNÈ¥ÔÁà8ìFÁÃÃà Ã××Ø€I.Ø ÙÙÙÙ×׃

ÄÄÄ Äûÿ2\‡ù ‡€ ®
§µ
a5TechnicalTechnical Document Style)WÙD¾ÁÁà ÃØ„(1)Ø . Ä Äa6TechnicalTechnical Document Style)—àDÂÁÁà ÃØ…(a)Ø . Ä Äa2TechnicalTechnical Document Style<6óèí
Ô ‰?È Ôà Ã؁A.Ø ÃÃ××××ÄÄ

ÁÁÄ Äa3TechnicalTechnical Document Style9W¢g
Ô –2È Ôà ÃØ‚1.Ø ××××
ÁÁÄ Äûÿ2¦ŽÂ4†ö†|a4TechnicalTechnical Document Style8bv¢{Ô –2 Ôà Ã؃a.Ø ××××
ÁÁÄ Äa1TechnicalTechnical Document StyleF²è!<
Ô ‰?È ÔÃÃà Ã××Ø€I.Ø ÙÙÙÙ××

ÄÄÁÁÄ Äa7TechnicalTechnical Document Style(@DÆÁÁà Ã؆i)Ø . Ä Äa8TechnicalTechnical Document Style(àDËÁÁà Ã؇a)Ø . Ä Äûÿ2§X4 Œž¬»Jàÿÿ‰?xxx,ÍXxþ6X@Éü7ûX@þþþþþþþÿþÿÿÿþÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþº÷z-a81,¤’ôa‚&_â xìð¦7ûôXþþþþþþþÿÿÿÿÿþÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþ>ø)gî…v,ðîÖ*ä0 xì]ß7û°˜þþþþþþþÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþ>ÿÿ{,c81,RôcÖ*ä0 xì]ß7ûô˜þþþþþþþÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþÉ:USWPWP"‚Sh™é
ôÓšÿÿÿÿÿÿÿÿÿÿÿÿ^17PSS”777S”7777SSSSSSSSSS77¦”¦S”eeoxe_xx7Jo\ŠoxexeS\xeŠe\\777SS7SSJSJ.SS..J.xSSSSAA.SJoJJAJSJ¦Ï%I%%7%%%77%%%%%%S%S.eSeSeSeSeS”ooJeJeJeJeJ7.7.7.7.oSxSxSxSxSxSxSxSxS\JeSxSxSxS\JxSeSeSeSeSoJoJoJoJxSeJeJeJeJxSxSxSxSxSxSxSxS7.7S7.IS‡SJ.oJ\7\.\.\.\.oSeoSoSxSxSoeAeAeASASASASA\.\.\.xSxSxSxSxSŠo\J\A\A7SS777/¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦NxxxSSS7SMMSSSSS””S:SSSS”:77SSS”..¦¦SSee~¦S¦SxSY~~SS”S7SS”Ë:"¦¦¦¦xx¦¦¦Sx¦¦Sxx””¦¦S唔¦¦¦”S77¦¦¦¦¦xe¦”xxxxxxxxxx7¦SeS\<”¦x¦oS7SxJS_xl¦¦xxxxxxxxxx¦¦¦¦¦M¦xxxx¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦x¦¦xx¦¦¦¦¦¦Šoe¦x¦¦¦Gbxxxx¦¦¦¦¦¦ÝxxxSxx¦xx¦¦¦xxxJxxxxJxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx7xxx7xxx7xxx7xxx777¦¦¦¦¦S¦¦xxxxxxxxxÅeee\e\oJeA\JxSxJ7.oJo\Š\oJoSxJxeeSeSeS\JeJoee\eeeeex7JA==WPWP,X>JA=‡WPWP,X
4@(CA1)
@(CA1-END)
'@(CA1) KILL'
@(CA1-END),X?L8Graphcat for Windows-Unregistered Evaluation Edition 1.0,
TITLE0X>JAL Starting
MTITLE0A =˜WPWP, XJJ LÀ
À \H1,
X MH1, MH1 H2X MH29L2Did you register and receive your free bonus disk? MH1ILBSend $10 to Jerry Stern, P.O. Box 20234, Baltimore, MD 21284-0234 MH10L)ÀÀ1993 Jerry Stern--All Rights Reserved,  STX> NV1AJˆA=§WPWP,
X> NV2AJ‰A=§WPWP,X MV1J MV2J*
@(I1-ELSE),XAL:This macro requires WordPerfect 5.2 for Windows, or newer.,MESSAGEX
4@(CA2)
@(CA2-END)
'@(CA2)
BADVER'
@(CA2-END),X,X
MTITLE0MMESSAGE MSTJJÿÿÿÿJÿÿÿÿD,XJda,X
'BADVER,XP,X @1'
@(I1-ELSE) '@1,X
4@(CA3)
@(CA3-END)
'@(CA3) KILL'
@(CA3-END),X>#LWPTP:Deactivate SubstitutionA
=àWPWP,XL
WPCMCR.DLLMCRLINK,X
6@(ER1)
@(ER1-END)
'@(ER1) OOPS'
@(ER1-END),X> NMAINAJA=§WPWP,X MMAINE
@(I2-ELSE),X
DIE,X @2'
@(I2-ELSE) '@2,X> NBLANKAJdA=§WPWP, X
6@(ER2)
@(ER2-END)
'@(ER2)NICETRY'
@(ER2-END),!X MBLANKQ
@(I3-ELSE),"X> NDOC1AJ€A=§WPWP,#X>=NWPWP,$X>
NCATDOCAJ€A=§WPWP,%X MDOC1
MCATDOC
@(I4-ELSE),&X#NICETRY,'X @4'
@(I4-ELSE) '@4,(X @3'
@(I3-ELSE) '@3,)X>JA=WPWP,*X>
NCATDOCAJ€A=§WPWP,+X>=NWPWP,,X>NLISTDOCAJ€A=§WPWP,-X
MCATDOCMLISTDOC
@(I5-ELSE),.X#NICETRY,/X @5'
@(I5-ELSE) '@5,0X>=ZWPWP,1X
CAT,2X #BEGIN,3X'NICETRY,4X9L2GRAPHCAT needs two blank documents to do its work. MH1|LuClose at least two documents by choosing File, Close (and Yes for any changed document), and then run GRAPHCAT again.,5MESSAGEXJ,6BUTTONSX DISP,7X #DONE,8X 'BEGIN,9X>JA==WPWP,:XJ,;BADCOUNTX 'RPATH,<X> NLANGAJ A=§WPWP,=X MLANG LUS
@(I6-ELSE),>X
Linches,?MEASUREX,@X @6'
@(I6-ELSE)XL centimeters,AMEASUREX,BX '@6,CXJJ2J2J6JJJJ
MTITLE0y,DXJ LT1JJJ"JJ8L1Graphcat builds catalogs of your clip art images.v,EXJ LT2JJJ"JJGL@At each of the prompts below, type in the requested information.v,FXJ LT3JJJ"JJGL@Click OK when done. In the file GRAPHWIN.DOC, there are tips forv,GXJ LT4JJJ"JJILBcustomizing the completed catalog, and a trouble-shooting section.v,HXJ LQ1J#J-J"JJVLOEnter the drive:\path to search. (Location of files)v,IXJ LA1JAJ7J–J JJ€J( hPATH,JXJ LQ2J#JKJ"JJYLREnter the files to find. (file.extension, default *.*)v,KXJ LA2JAJUJ–J JJ€J hMASK,LXJ LQ3J#JiJ"JJQLJEnter the title for the catalog pages. (default `Clip Art in _______')v,MXJ LA3JAJsJ–J JJ JJ( hTITLE,NXJ LQ4J#J‡J"JJJLCHow many columns across should there be? Good Combinationsv,OXJ
LQ4bJÃJJdJJLColumns Inches Cmv,PXJ
LQ4cJÅJ™JdJJL2 1.8 4.5v,QXJ
LQ5dJÅJ¡JdJJL3 1.2 3.0v,RXJ
LQ5eJÅJ©JdJJL4 1.0 2.5v,SXJ
LQ5fJÅJ±JdJJL5 .75 2.0v,TXJ,U
COLXJ LA4JAJ‘J(JJJJJ
gCOL,VXJ LQ5J#J¥J‡JJ-L&How tall should the graphics boxes be?v,WX MLANG LUS
@(I7-ELSE),XX Ið?,Y HIGHXJ LA5JAJ¯J(JJJXJà.Jx gHIGH,ZX @7'
@(I7-ELSE),[X F@,\ HIGHXJ LA5JAJ¯J(JJJOJ™.Jv gHIGH,]X '@7,^XJ LSTJJ¾J"JJ9L2Did you register and receive your free bonus disk?v,_XJ
LST2JJÆJ"JJILBSend $10 to Jerry Stern, P.O. Box 20234, Baltimore, MD 21284-0234v,`XJ
LST3JJÎJ"JJ0L)ÀÀ1993 Jerry Stern--All Rights Reservedv,aXJ
LST4JJÖJ"JJ1L*Add $2.00 shipping outside U.S. and Canadav,bXJ
LST5JJÞJ"JJ>L7Visa/Mastercard Available--Order by mail, phone, or FAXv,cXJ
LST6JJæJ"JJTLM(410) 661-2224 (Voice and FAX) GEnie: J.Stern10 Internet: [email protected]v,dXJ
LRegJvJòJ2JJL &Registers,eX,fMMACRODIALOGRESULTREGISTERX
'BIGBOX,gXJ LA1{,hXMMACRODIALOGRESULTMREGISTER
@(I8-ELSE),iX
#REG,jX @8'
@(I8-ELSE)XMMACRODIALOGRESULTJ
@(I9-ELSE),kX @9'
@(I9-ELSE),lX #DONE,mX '@9X '@8,nX MPATH ZSIZE,oX MSIZEJ*
@(Ia-ELSE),pX,qXiLbThe drive:\path is the location that Graphcat will search for graphics. You cannot leave it blank.,rMESSAGEXJ5,sBUTTONSX DISP,tX
MRESULTJ
@(Ib-ELSE),uX #DONE,vX @b'
@(Ib-ELSE),wX
#BIGBOX,xX '@b,yX @a'
@(Ia-ELSE) '@a,zX MPATH ZSIZE,{XJ MSIZEJ` MPATH ]VAR2,|X LVar2L\
@(Ic-ELSE),}X,~ MPATH NPATHX @c'
@(Ic-ELSE),X MPATHL\,€ NPATHX '@c,X MMASK ZSIZE,‚X MSIZEJ*
@(Id-ELSE),ƒX
L*.*,„ MASKX @d'
@(Id-ELSE)XL. MMASK^T,…XMTJ
@(Ie-ELSE),†X,‡X>L7The mask must include both a filename and an extension. MH12L+For example, try *.* or *.WPG or BIG-????.*,ˆMESSAGEXJ5,‰BUTTONSX DISP,ŠX
MRESULTJ
@(If-ELSE),‹X #DONE,ŒX @f'
@(If-ELSE),X
#BIGBOX,ŽX '@fX @e'
@(Ie-ELSE) '@eX '@d,X MTITLE ZSIZE,X MSIZEJ* @(I10-ELSE),‘XL Clip Art in MNPATH,’ MMASK TITLEX
@10' @(I10-ELSE)
'@10,“X
6@(ER3)
@(ER3-END)
'@(ER3)BADPATH'
@(ER3-END),”X>JAJA=¹WPWP,•X> MTITLEA =ÅWPWP,–X>=iWPWP,—X>JA=^WPWP,˜X>JA=ZWPWP,™X>JAJA=¹WPWP,šX>9L2Catalog created with Unregistered Graphcat/WindowsA =ÅWPWP,›X>JA=ZWPWP,œX
MCOLJ$ @(I11-ELSE),XJ
MCOL2COLUMNS,žXL'MCOLUMNSL'\S|T\S|T\S|T'.1i'|M†,ŸX>=WPWP, X
@11' @(I11-ELSE)
'@11,¡X>J
@
?AJ
@
?AJ
@
?AJ
@
?AJ
@
?AJA =yWPWP,¢X
6@(ER4)
@(ER4-END)
'@(ER4)
BAD'
@(ER4-END),£X>NMACPATHAJrA=§WPWP,¤XMMACPATHL graphcat.dll
MYLINK,¥X>JA*L#Reading the directory listing . . .A =˜WPWP,¦X
MMYLINKLCreateDirListingFile,§ MNPATH MMASKJMMACPATHL delete.meRETVAL,¨X
MMYLINK,©X>MMACPATHL delete.meAJA=[WPWP,ªX>JA=WPWP,«XJ,¬
SAYBYEX
6@(ER5)
@(ER5-END)
'@(ER5)
BYE'
@(ER5-END),­X>'J
@
?AJ
@
?ALA ,®J
@
?AJAJAJA,¯J
@
?AJA JA
JA =K'WPWP,°,±X>MMACPATHL delete.meA=}WPWP,²X>QJ
@
?AJ
@
?A IA Iø?A I@A I@A I@A I @A
I@A I@A I@A =WQWPWP,³X
6@(ER6)
@(ER6-END)
'@(ER6)
BAD'
@(ER6-END),´X
'CREATE,µX LIST,¶X
8@(NF1)
@(NF1-END)
'@(NF1)
BYE'
@(NF1-END),·X>JA=éWPWP,¸X>LÙ
ÁÁ
ÙA J
@
?AJ
@
?A=WPWP,¹X> NENTRYAJA=§WPWP,ºX>JA=éWPWP,»X>=WPWP,¼X>=-WPWP,½X
CAT,¾XJ,¿
SAYBYEXJJ MENTRY
]TMP,ÀX
MTMP
LWP}WP{ @(I12-ELSE),ÁX
#BAD,ÂX
@12' @(I12-ELSE)
'@12,ÃX>JA L Working on the graphic: MENTRYA =˜WPWP,ÄX>JA MNPATH MENTRYA=cWPWP,ÅX>=WPWP,ÆX>JA={WPWP,ÇX>
J
@
?AJ
@
?A MHIGHA =z
WPWP,ÈX>=WPWP,ÉX> MENTRYA =ÅWPWP,ÊX>JA=éWPWP,ËX>=-WPWP,ÌX>=WPWP,ÍX>=WPWP,ÎX>=CWPWP,ÏX>JA=éWPWP,ÐX>=‰WPWP,ÑX>=WPWP,ÒX
#CREATE,ÓX
'BAD,ÔX
DIE,ÕXMBADCOUNTJ,ÖBADCOUNTXMBADCOUNTJ @(I13-ELSE),×X>JA
LFound MENTRY(L!--Not a graphic. Still running...A =˜WPWP,ØX
@13' @(I13-ELSE),ÙXJMBADCOUNT 2BC,ÚX>JA
LFound MENTRY L;  MBCL non-graphic files.A =˜WPWP,ÛX
'@13,ÜX LIST,ÝX>=WPWP,ÞX>L<>A =ÅWPWP,ßX>=WPWP,àX>=-WPWP,áX
#CREATE,âX
'BYE,ãX
MSAYBYEJ @(I14-ELSE),äX
7@(ER7)
@(ER7-END)
'@(ER7) WRONGR'
@(ER7-END),åX8L1ERROR! No files were found matching your request. MH2RLKThere are no files with the names you chose in the directory you specified. MH13L, Check the path and file mask and try again.,æ M1X MM1 MST MH21L*Add $2.00 shipping outside U.S. and Canada MH1>L7Visa/Mastercard Available--Order by mail, phone, or FAX MH17L0(410) 661-2224 (Voice and FAX) GEnie: J.Stern10,çMESSAGEXJ,èBUTTONSX>JA=WPWP,éX>JA=ZWPWP,êX
CAT,ëX>JA=WPWP,ìX DISP,íX #DONE,îX
@14' @(I14-ELSE)
'@14,ïXMBADCOUNTJ @(I15-ELSE),ðX#NONEBAD,ñX
@15' @(I15-ELSE)
'@15,òX LIST,óX>=1WPWP,ôX>JA!LCreating bad files list...A =˜WPWP,õX>'J
@
?AJ
@
?ALA ,öJ
@
?AJAJAJA,÷J
@
?AJA JA
JA =K'WPWP,øX>=‰WPWP,ùX>L<>A J
@
?AJ
@
?A=WPWP,úX>=/WPWP,ûX>=¡WPWP,üX>=WPWP,ýX>L<>A J
@
?AJ
@
?ALA J
@
?A=ˆWPWP,þX>=WPWP,ÿX>=1WPWP,X>JA=éWPWP,X>=‰WPWP,X>=-WPWP,X>LÙ
ÁÁ
ÙA J
@
?AJ
@
?A=WPWP,X>=WPWP,X>=1WPWP,X>=WPWP,X
CAT,X>=WPWP, X>LNon-graphics files:A =ÅWPWP,
X>=WPWP, X>= WPWP, X'NONEBAD,
X>=ïWPWP,X>JALFinishing up...A =˜WPWP,X>=WPWP,X LIST,X>JA=WPWP,X>JA=ZWPWP,X
CAT,X>=WPWP,X>JA=WPWP,X>JA=WPWP,X=L6The graphics catalog is ready to view, print, or edit. MH2L To view, select File,, M1X MM1aLZ Print Preview. There are tips for editing, customizing, and printing this document in the, M1X MM1(L! instruction file, GRAPHWIN.DOC.  MST MH21L*Add $2.00 shipping outside U.S. and Canada MH1>L7Visa/Mastercard Available--Order by mail, phone, or FAX MH17L0(410) 661-2224 (Voice and FAX) GEnie: J.Stern10,MESSAGEXJ@,BUTTONSX DISP,X #DONE,X'BADPATH,XLBad File Path! MH2GL@The file path that you have entered does not contain files that , M1X MM1ÀL¹match the filename mask you have entered. The path name should include only the drive letter and subdirectory name. The mask should be no longer than 12 letters, and may use wild cards.,  M1XJ0,!BUTTONSX DISP,"X #RPATH,#X
'DIE,$X
,%X> NMAINAJA=§WPWP,&X MMAINQ @(I16-ELSE),'X>JA=ZWPWP,(X
#DIE,)X
@16' @(I16-ELSE)XR,*X
'@16,+X 'KILL,,X
DIE,-X8L1You have canceled the operation while incomplete. MH21L*The catalog will not be properly laid out.,. MSTMESSAGEXJ0,/BUTTONSX DISP,0X #DONE,1X 'LIST,2X>
NNOWDOCAJ€A=§WPWP,3X
MNOWDOCMLISTDOC1 @(I17-ELSE),4X>=+WPWP,5X #LIST,6X
@17' @(I17-ELSE)XR,7X
'@17,8X
'CAT,9X>
NNOWDOCAJ€A=§WPWP,:X
MNOWDOC
MCATDOC1 @(I18-ELSE),;X>=WPWP,<X
#CAT,=X
@18' @(I18-ELSE)XR,>X
'@18,?X 'DISP,@XMMCRLINKL
MCRMessageBoxJ,AMMESSAGE
MTITLE0MBUTTONSRESULT,BXR,CX 'OOPS,DXLAn error has occurred.,E MH2MESSAGEX MV1J$ @(I19-ELSE),FXMMESSAGEbL[This macro has not been properly converted for WordPerfect for Windows versions beyond 5.2. MH1&LYou are running WP/WIN version  MV1L. MV2,G MH2MESSAGEX
@19' @(I19-ELSE)XMMESSAGE•LŽThis macro may have been tampered with. Replace GRAPHCAT.WCM and GRAPHCAT.DLL from the original package, or contact the author for assistance.,HMESSAGEX
'@19,IXMMESSAGE,J MSTMESSAGEXJ,KBUTTONSX DISP,LX 'WRONG,MX,NX 'DONE,OX>JA=˜WPWP,PXJz,QXMMCRLINK,RXP,SX
'REG,TXJJ2J2J6JJJ
MTITLE0y,UXJ LT1JJJ"JJ?L8Registration for Science Translations Shareware Productsv,VXJ LT2JJJ"JJZLSAt each of the prompts below, type in the requested information and press Tab to gov,WXJ LT3JJJ"JJ\LU to the next item. Click OK when ready to print. In the file PRODUCTS.DOC, there are v,XXJ LT4JJJ"JJ]LValternate payment methods, site license info., and contact information for the author.v,YXJ LQ1JJ-J"JJ LNamev,ZXJ LA1JJ7J–J JJ< hNAME,[XJ LQ2JJFJ"JJLCompany name, if any.v,\XJ LA2JJPJ–J JJ< hCOMP,]XJ LQ3JJ_J"JJLMailing addresssv,^XJ LA3JJiJ–J JJ< hADD1,_XJ LQ4JJxJ"JJ#L2nd address line, if needed.v,`XJ LA4JJ‚J–J JJ< hADD2,aXJ LQ5JJ‘J"JJ2L+City, state or province, zip or postal codev,bXJ LA5JJ›J–J JJ< hAREA,cXJ LQ6JJªJ"JJLCountryv,dXJ LA6JJ´J‘J JJ< hCOUN,eXJ LQ7JJÃJ"JJ#LVoice Phone OR Email addressv,fXJ LA7JJÍJ‘J JJ< hWIRE,gXJ,h D3XJ,i H3XJ,j D5XJ,k H5XJ LQ8JJæJ"JJL Disk sizev,lXJ LR1JJðJ2JL 3 1/2" DD tD3,mXJ LR2J3JðJ2JL 3 1/2" HD tH3,nXJ LR3JeJðJ2JL 5 1/4" DD tD5,oXJ LR4J—JðJ2JL 5 1/4" HD tH5,pXJ LP1J´J-JxJ
LGraphcat 1.0/Win $10. cGW,qXJ LP2J´J8JxJ
LGraphcat 2.1/DOS $10. cGC,rXJ LP3J´JCJxJ
#LLetterhead Kit 2.1/WIN $10. cLW,sXJ LP4J´JNJxJ
#LLetterhead Kit 2.0/DOS $10. cLH,tXJ LP5J´JYJxJ
LBookbild 1.0/WIN $10. cBW,uXJ LP6J´JdJxJ
LBookbild 1.0/DOS $10. cBB,vXJ LP7J´JoJxJ
#LAnimals 1 Clip Art #101 $5. cW1,wXJ LP8J´JzJxJ
#LAnimals 2 Clip Art #102 $5. cW2,xXJ LP9J´J…JxJ
%LBuildings 1 Clip Art #103 $5. cW3,yXJ
LP10J´JJxJ
"LPeople 1 Clip Art #104 $5. cW4,zXJ
LP11J´J›JxJ
"LPlants 1 Clip Art #105 $5. cW5,{XJ
LP12J´J¦JxJ
!LMyths 1 Clip Art #106 $5. cW6,|XJ
LP13J´J±JxJ
#LAnimals 3 Clip Art #107 $5. cW7,}XJ
LP14J´J¼JxJ
#LAnimals 4 Clip Art #108 $5. cW8,~XJ
LP15J´JÇJxJ
#LPeople 2 Clip Art #109 $5. cW9,XJ
LP16J JÒJŒJ
+L$Maryland residents add Sales Tax 5% cMD,€XJ
LP17J JÝJŒJ
*L#Shipping outside US and Canada $2. cSH,XJ LPrintJÒJðJ#J
J
L&Prints,‚X,ƒMMACRODIALOGRESULT PRINTX
4@(CA4)
@(CA4-END)
'@(CA4) DONE'
@(CA4-END),„XJ LA1{,…XMMACRODIALOGRESULT MPRINT @(I1a-ELSE),†XJz,‡X#CHECKREG,ˆX
@1a' @(I1a-ELSE)XJz,‰X
#BIGBOX,ŠX
'@1a,‹X'CHECKREG,ŒX>JA3L,Composing Registration Form.... Please Wait.A =˜WPWP,X>=NWPWP,ŽX>JA=WPWP,X>LRegistration Form for
MTITLE0A =ÅWPWPX>=WPWPX>=WPWP,X>JA=WPWP,‘X>L
Ship to: MNAMEA =ÅWPWPX>=WPWP,’X> MCOMPA =ÅWPWPX>=WPWP,“X> MADD1A =ÅWPWPX>=WPWP,”X> MADD2A =ÅWPWPX>=WPWP,•X> MAREAA =ÅWPWPX>=WPWP,–X> MCOUNA =ÅWPWPX>=WPWP,—X>=WPWP,˜X>LPhone or Email: MWIREA =ÅWPWPX>=WPWP,™X>=WPWP,šX MD3J @(I1b-ELSE)X>(L!3 1/2" Double Density disk (720K)A =ÅWPWPX
@1b' @(I1b-ELSE)
'@1b,›X MH3J @(I1c-ELSE)X>'L 3 1/2" High Density disk (1.44M)A =ÅWPWPX
@1c' @(I1c-ELSE)
'@1c,œX MD5J @(I1d-ELSE)X>(L!5 1/4" Double Density disk (360K)A =ÅWPWPX
@1d' @(I1d-ELSE)
'@1d,X MH5J @(I1e-ELSE)X>&L5 1/4" High Density disk (1.2M)A =ÅWPWPX
@1e' @(I1e-ELSE)
'@1e,žX>=WPWPX>=WPWP,ŸX MGWJ @(I1f-ELSE)X>&L$10.00 Graphcat 1.0 for WindowsA =ÅWPWPX>=WPWPX
@1f' @(I1f-ELSE)
'@1f, X MGCJ @(I20-ELSE)X>"L$10.00 Graphcat 2.1 for DOSA =ÅWPWPX>=WPWPX
@20' @(I20-ELSE)
'@20,¡X MLWJ @(I21-ELSE)X>,L%$10.00 Letterhead Kit 2.1 for WindowsA =ÅWPWPX>=WPWPX
@21' @(I21-ELSE)
'@21,¢X MLHJ @(I22-ELSE)X>(L!$10.00 Letterhead Kit 2.0 for DOSA =ÅWPWPX>=WPWPX
@22' @(I22-ELSE)
'@22,£X MBWJ @(I23-ELSE)X>&L$10.00 Bookbild 1.0 for WindowsA =ÅWPWPX>=WPWPX
@23' @(I23-ELSE)
'@23,¤X MBBJ @(I24-ELSE)X>"L$10.00 Bookbild 1.0 for DOSA =ÅWPWPX>=WPWPX
@24' @(I24-ELSE)
'@24,¥X MW1J @(I25-ELSE)X>&L$ 5.00 Wood Clips 101 Animals 1A =ÅWPWPX>=WPWPX
@25' @(I25-ELSE)
'@25,¦X MW2J @(I26-ELSE)X>&L$ 5.00 Wood Clips 102 Animals 2A =ÅWPWPX>=WPWPX
@26' @(I26-ELSE)
'@26,§X MW3J @(I27-ELSE)X>(L!$ 5.00 Wood Clips 103 Buildings 1A =ÅWPWPX>=WPWPX
@27' @(I27-ELSE)
'@27,¨X MW4J @(I28-ELSE)X>%L$ 5.00 Wood Clips 104 People 1A =ÅWPWPX>=WPWPX
@28' @(I28-ELSE)
'@28,©X MW5J @(I29-ELSE)X>%L$ 5.00 Wood Clips 105 Plants 1A =ÅWPWPX>=WPWPX
@29' @(I29-ELSE)
'@29,ªX MW6J @(I2a-ELSE)X>$L$ 5.00 Wood Clips 106 Myths 1A =ÅWPWPX>=WPWPX
@2a' @(I2a-ELSE)
'@2a,«X MW7J @(I2b-ELSE)X>&L$ 5.00 Wood Clips 107 Animals 3A =ÅWPWPX>=WPWPX
@2b' @(I2b-ELSE)
'@2b,¬X MW8J @(I2c-ELSE)X>&L$ 5.00 Wood Clips 108 Animals 4A =ÅWPWPX>=WPWPX
@2c' @(I2c-ELSE)
'@2c,­X MW9J @(I2d-ELSE)X>%L$ 5.00 Wood Clips 109 People 2A =ÅWPWPX>=WPWPX
@2d' @(I2d-ELSE)
'@2d,®X>=WPWP,¯XJ
MGW MGC MLW MLH MBW MBB0J MW1 MW2 MW3 MW4 MW5 MW6 MW7 MW8 MW9,°0
SUBXJ
MSUB2S,±X>MSL
SubtotalA =ÅWPWP,²X>=WPWP,³X MMDJ @(I2e-ELSE),´X
MSUB Hš™™™™™©?,µ0 TXXJ MTX2T,¶X>MTL MD Sales TaxA =ÅWPWP,·X>=WPWP,¸X
@2e' @(I2e-ELSE)XJ,¹ TXX
'@2e,ºX MSHJ @(I2f-ELSE),»X
MSUB MTXJ,¼ TOTALX>L$2.00 Air Mail ShippingA =ÅWPWP,½X>=WPWP,¾X
@2f' @(I2f-ELSE)X
MSUB,¿ MTX TOTALX>=WPWP,ÀX
'@2f,ÁXJ MTOTAL2T,ÂX> L$US MTL TotalA =ÅWPWP,ÃX>=WPWP,ÄX>=WPWP,ÅX>AL:Make check or money order payable to Science Translations.A =ÅWPWPX>=WPWP,ÆX>^LWMail form to: Jerry Stern, Science Translations, PO Box 20234, Baltimore, MD 21284-0234A =ÅWPWP,ÇX>=WPWP,ÈX>LOr FAX to 410-661-2224A =ÅWPWPX>=WPWP,ÉX>L‰Only checks drawn on banks in certain countries can be accepted. For the list and other registration options, see the file PRODUCTS.DOC. A =ÅWPWP,ÊX>=WPWP,ËX>=WPWP,ÌX>CL<MasterCard[ ] Visa [ ] Expires ______________A =ÅWPWP,ÍX>=WPWP,ÎX>=WPWP,ÏX>AL:Name as printed on card: _________________________________A =ÅWPWP,ÐX>=WPWP,ÑX>=WPWP,ÒX>AL:Account Number: __________________________________________A =ÅWPWP,ÓX>=WPWP,ÔX>=WPWP,ÕX>AL:Signature: _______________________________________________A =ÅWPWP,ÖX>=1WPWP,×X/L(The registration form is ready to print. MH2L
Thank you!,ØMESSAGEXJ@,ÙBUTTONSX DISP,ÚX #DONE(Š)À
}@2f)¾¨| @(I2f-ELSE))¹¢{@2e)¸w{ @(I2e-ELSE))­®x@2d)­¤x @(I2d-ELSE))¬êw@2c)¬àw @(I2c-ELSE))«%w@2b)«w @(I2b-ELSE))ª`v@2a)ªVv @(I2a-ELSE))©u@29)©“u @(I29-ELSE))¨Ùt@28)¨Ït @(I28-ELSE))§t@27)§ t @(I27-ELSE))¦Ns@26)¦Ds @(I26-ELSE))¥‰r@25)¥r @(I25-ELSE))¤Äq@24)¤ºq @(I24-ELSE))£q@23)£ùp @(I23-ELSE))¢>p@22)¢4p @(I22-ELSE))¡wo@21)¡mo @(I21-ELSE)) ¬n@20) ¢n @(I20-ELSE))Ÿëm@1f)Ÿám @(I1f-ELSE))äl@1e)Úl @(I1e-ELSE))œ @(CA4-END))ƒ¥d@(CA4))H’Q@19)GÃP @(I19-ELSE))>VN@18)=8N @(I18-ELSE))79M@17)6M @(I17-ELSE))*ûJ@16))ÝJ @(I16-ELSE))ño=@15)ñe= @(I15-ELSE))îê<@14)ä¶9
@(ER7-END))ä•9@(ER7))îà< @(I14-ELSE))Û78@13)Øc7 @(I13-ELSE))»2@12)±2 @(I12-ELSE))¶G0
@(NF1-END))¶,0@(NF1))³Å/
@(ER6-END))³ª/@(ER6))¬Ç,
@(ER5-END))¬¬,@(ER5))¢*
@(ER4-END))¢ê)@(ER4)) Ê(@11) À( @(I11-ELSE))“Û%
@(ER3-END))“¼%@(ER3))’…%@10)’{% @(I10-ELSE))Ž¤$@e)Ž}$@f)ŒO$
@(If-ELSE))Ž›$
@(Ie-ELSE))Ž±$@d)„¨"
@(Id-ELSE))€ "@c)~Ç!
@(Ic-ELSE))yç @a)x¸ @b)vŠ
@(Ib-ELSE))yÞ
@(Ia-ELSE))mè@9)k¼
@(I9-ELSE))mõ@8)j]
@(I8-ELSE))]â@7)ZB
@(I7-ELSE))B@6)@Ó
@(I6-ELSE))/Ò @5)/É
@(I5-ELSE))(^
@3)'/
@4)'&

@(I4-ELSE))(U

@(I3-ELSE)) É
@(ER2-END)) ª@(ER2))*@2)!
@(I2-ELSE))k
@(ER1-END))O@(ER1))
@(CA3-END))@(CA3))J@1)z
@(CA2-END))\@(CA2))A
@(I1-ELSE))ì
@(CA1-END))Ð@(CA1))â'9BYE)Ó06BAD)HBADPATH)f¸BIGBOX)8‡
BEGIN) BADVER)‹ÝeCHECKREG)´Þ/CREATE)8OMCAT)N?RDONE)?mNDISP)#åIDIE)+KKILL)10LLIST) µCNONEBAD)3? NICETRY)C,OOOPS)SÐRREG);÷
RPATH)LRWRONGB CWPWPûÿ2ž7§ Õ«ï´"‚Sh™é
ôÓšÿÿÿÿÿÿÿÿÿÿÿÿ^1AVSS”777S”7777SSSSSSSSSS77¦”¦S”oooxoexASoe”xxeuo\exo”oee777SS7SSJSJ:S\..S.\SSSAA.\JoSJASSS¦Ï% %%7%%%77%%%%%%S%S.oSoSoSoSoSšuoJoJoJoJoJA.A.A.A.x\xSxSxSxSx\x\x\x\eJoSxSxSxSeJxSeSoSoSoSoJoJoJoJxSoJoJoJoJxSxSxSxSxSxS\\A.ASA.AS”YS.oSe7e.e.e:e.x\{x\x\xSxS²{oAoAoA\A\A\A\Ae.e.e.x\x\x\x\x\”oeJeAeA7SS777/¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦NxxxSSSASJJSS”SSS””S7SSSS”777YYS”..¦¦SSee~¦S¦SxS_ŠŠ__”S7YS”Ë7"¦¦¦¦xx¦¦¦Sx¦¦ixx””¦¦S唔¦¦¦”S77¦¦¦¦¦xe¦”xxxxxxxxxx7¦SoS\<”¦x¦oS7SxJS_xr¦¦xxxxxxxxxx¦¦¦¦¦P¦xxxx¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦x¦¦xx¦¦¦¦¦¦oe¦x¦¦¦Gbxxxx¦¦¦¦¦¦ÝxxxSxx¦xx¦¦¦xxxSxxxxSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx7xxx7xxx7xxx7xxx777¦¦¦¦¦S¦¦xxxxxxxxxÅoeo\e\oJoAeJJxJA.oJo\”\xJoSxJxeeSeSeSeJeJoeo\eeeooAAxeeeJeeee77<<<<oAAAeeee7eSJ7"â„®°øÆ„ ÿÿÿÿÿÿÿÿÿÿÿÿ^v›ÏÇÇb6………Çb…………ÇÇÇÇÇÇÇÇÇDž…ŽbŽÇb


 
ó 6›Ç
ób  ó
Ýó 
b
ó󅅅ÇDžÇDZDZŒÇÝooÇo6ÝÇÇǛ›oݱ
DZ›ÇÇǎÏYYY…YYY……YYYYYYÇYÇo




Çq




±›o›o›o›o Ý Ç Ç Ç Ç Ý Ý Ý Ýó±
Ç Ç Ç Çó± ÇóÇ






± Ç



± Ç Ç Ç Ç Ç Ç6Ý6ݛo›Ç›o›ÇbÖÇo
Çó…óoóoóŒóo Ý' Ý Ý Ç Ǭ'


›Ý›Ý›Ý›Ý›óoóoóo Ý Ý Ý Ý Ýb
ó±ó›ó›…ÇDž……/ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽN   ÇÇǛDZ±ÇÇbÇÇÇbbDžÇÇÇÇb………ÖÖÇbooŽŽÇÇóó.ŽǎÇ ÇåLLååbDžÖÇbç…"ŽŽŽŽ  ŽŽŽÇ ŽŽû  bbŽŽÇåbbŽŽŽ3bDž…ŽŽŽŽŽ óŽb          …ŽÇ
ÇݐbŽ Ž
Ç…Ç ±Çå 6ŽŽ          ŽŽŽŽŽÀŽ    ŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽŽ ŽŽ  ŽŽŽŽŽŽ[
ó6Ž ŽŽŽªì    ŽŽŽŽŽŽÝ   Ç  Ž  ŽŽŽ   Ç    Ç                                            …   …   …   …   ……3…ŽŽŽŽŽǎŽ         Å

ÝóÝ

›ó±6± ±›o

ÝbÝ ±
Ç ± óóÇóÇóÇó±ó±

Ý6óóó

6›› óóó±óóó󅅐
6›››óóóó…óDZ…//GRAPHCAT.WCM: creates a listing of graphics files in a disk
file
// ÀÀ1993 Jerry L. Stern --All Rights Reserved
Application( WP;WPWP;default; "wpwpus.wcd" )
RevealCodes(0)
RulerShow(0)
OnCancel(kill@)
Title0:="Graphcat for Windows©Unregistered Evaluation Edition
1.0"
MacroStatusPrompt(1; "Starting "+Title0)
SubByte(H1; 2; 1; "À
À")
H2:=H1+H1
ST:=H2+"Did you register and receive your free bonus
disk?"+H1+"Send $10 to Jerry Stern, P.O. Box 20234, Baltimore, MD
21284©0234"+H1+"ÀÀ1993 Jerry Stern©©All Rights Reserved"
GetWPData(v1; 136)
GetWPData(v2; 137)
If ((v1=5) and (v2<2))
Message:="This macro requires WordPerfect 5.2 for Windows, or
newer."
OnCancel(badver@)
Beep
Prompt(Title0; Message+ST; 1; ; )
Wait(100)
Label(badver@)
Quit
Endif
OnCancel(kill@)
UserFunction ("WPTP:Deactivate Substitution")
DLLLoad(MCRLink;"WPCMCR.DLL")
OnError(Oops@)
GetWPData(Main; 129)
If(Main=False)
Call(die@)
Endif
GetWPData(Blank; 100)
OnError(nicetry@)
If (NOT Blank)
GetWPData(doc1; 128)
FileNew()
GetWPData(catdoc; 128)
If (doc1=catdoc)
Go(nicetry@)
EndIf
EndIf
DraftMode(1)
GetWPData(catdoc; 128)
FileNew()
GetWPData(listdoc;128)
If(catdoc = listdoc)
Go(nicetry@)
EndIf
Close()
Call(Cat@)Ôh)0*0*0*°°ԌGO(begin@)
LABEL(nicetry@)
Message:="GRAPHCAT needs two blank documents to do its
work."+H1+"Close at least two documents by choosing File, Close
(and Yes for any changed document), and then run GRAPHCAT again."
Buttons:=16
Call(Disp@)
Go(Done@)
LABEL(begin@)
RevealCodes(0)
Badcount:=0
LABEL(rpath@)
GetWPData(Lang; 32)
If (lang="US")
Measure:="inches"
DefaultUnits(inches)
Else Measure:="centimeters"
DefaultUnits(centimeters)
EndIf
DialogDefine(1; 50; 50; 310; 280; 1+2+16; Title0)
DialogAddText(1; "T1"; 5; 5; 290; 8; 4; "Graphcat builds catalogs
of your clip art images.")
DialogAddText(1; "T2"; 5; 15; 290; 8; 4; "At each of the prompts
below, type in the requested information.")
DialogAddText(1; "T3"; 5; 23; 290; 8; 4; "Click OK when done. In
the file GRAPHWIN.DOC, there are tips for")
DialogAddText(1; "T4"; 5; 31; 290; 8; 4; "customizing the
completed catalog, and a trouble©shooting section.")
DialogAddText(1; "Q1";35; 45; 290; 8; 1; "Enter the drive:\path
to search. (Location of files)")
DialogAddEditBox(1; "A1"; 65; 55; 150; 12; 1+128; path; 40)
DialogAddText(1; "Q2"; 35; 75; 290; 8; 1; "Enter the files to
find. (file.extension, default *.*)")
DialogAddEditBox(1; "A2"; 65; 85; 150; 12; 1+128; Mask; 12)
DialogAddText(1; "Q3"; 35; 105; 290; 8; 1; "Enter the title for
the catalog pages. (default `Clip Art in _______')")
DialogAddEditBox(1; "A3"; 65; 115; 150; 12; 1+32+4096; Title; 40)
DialogAddText(1; "Q4"; 35; 135; 290; 8; 1; "How many columns
across should there be? Good Combinations")
DialogAddText(1; "Q4b"; 195; 143; 100; 8; 1; "Columns Inches
Cm")
DialogAddText(1; "Q4c"; 197; 153; 100; 8; 1; "2 1.8
4.5")
DialogAddText(1; "Q5d"; 197; 161; 100; 8; 1; "3 1.2
3.0")
DialogAddText(1; "Q5e"; 197; 169; 100; 8; 1; "4 1.0
2.5")
DialogAddText(1; "Q5f"; 197; 177; 100; 8; 1; "5 .75
2.0")
Col:=4
DialogAddCounter(1; "A4"; 65; 145; 40; 14; 0; Col; 1; 24; 1)
DialogAddText(1; "Q5"; 35; 165; 135; 8; 1; "How tall should the
graphics boxes be?")
If(lang="US")Ôh)0*0*0*°°Ԍhigh:=1i
DialogAddCounter(1; "A5"; 65; 175; 40; 14; 4; high; 600; 12000;
120)
Else
high:=2.5c
DialogAddCounter(1; "A5"; 65; 175; 40; 14; 3; high; 591; 11929;
118)
EndIf
DialogAddText(1; "ST"; 5; 190; 290; 8; 4; "Did you register and
receive your free bonus disk?")
DialogAddText(1; "ST2"; 5; 198; 290; 8; 4; "Send $10 to Jerry
Stern, P.O. Box 20234, Baltimore, MD 21284©0234")
DialogAddText(1; "ST3"; 5; 206; 290; 8; 4; "ÀÀ1993 Jerry Stern©ªAll Rights Reserved")
DialogAddText(1; "ST4"; 5; 214; 290; 8; 4; "Add $2.00 shipping
outside U.S. and Canada")
DialogAddText(1; "ST5"; 5; 222; 290; 8; 4; "Visa/Mastercard
Available--Order by mail, phone, or FAX")
DialogAddText(1; "ST6"; 5; 230; 290; 8; 4; "(410) 661-2224 (Voice
and FAX) GEnie: J.Stern10 Internet: [email protected]")
DialogAddPushButton(1; "Reg"; 118; 242; 50; 15; 0; "&Register")
Register:=MacroDialogResult
Label(Bigbox@)
DialogDisplay(1; "A1")
If(MacroDialogResult=Register)
Go(Reg@)
Else If(MacroDialogResult=1)
Else
Go(done@)
EndIf EndIf
StrLen(Size; path)
If(size<1)
BEEP
Message:="The drive:\path is the location that Graphcat will
search for graphics. You cannot leave it blank."
Buttons:=53
Call (Disp@)
If(result=2)
Go(done@)
Else
GO(bigbox@)
EndIf
EndIf
StrLen(Size; path)
SubStr(var2; 1; size©1; path)
If("Var2"="\")
npath:=path
Else
npath:=path+"\"
EndIf
StrLen(Size; mask)
If(size<1)
mask:="*.*"
Else BytePos(t; "."; mask)Ôh)0*0*0*°°ԌIf(t=0)
BEEP
Message:="The mask must include both a filename and an
extension."+H1+"For example, try *.* or *.WPG or BIG©????.*"
Buttons:=53
Call (Disp@)
If(result=2)
Go(done@)
Else
GO(bigbox@)
EndIf EndIf EndIf
StrLen(Size; title)
If(size<1)
title:="Clip Art in "+npath+mask
EndIf
OnError(badpath@)
HeaderFooter(0; 0)
Type(Title)
LineFlushRight()
PageNumberInsert(0)
Close(1)
HeaderFooter(0; 2)
Type("Catalog created with Unregistered Graphcat/Windows")
Close(1)
If (Col>1)
NumStr(columns; 0; col)
SendKeys("'"+columns+"'\S|T\S|T\S|T'.1i'|M" ; 0)
ColumnDefineDlg()
EndIf
BoxOptions(Type:0; LeftBorder:3; RightBorder:3; TopBorder:3;
BottomBorder:3; OutLeftSpace:0)
OnError(Bad@)
GetWPData(macpath; 114)
DLLLOAD (MyLink; macpath+"graphcat.dll")
MacroStatusPrompt(1;"Reading the directory listing . . .")
DLLCALL (MyLink; "CreateDirListingFile"; retval:WORD;
{npath; mask; LOWORD(0); macpath+"delete.me"})
DLLFREE (MyLink)
FileOpen(macpath+"delete.me";1)
DraftMode(1)
saybye:=1
OnError(Bye@)
Sort(RecordType:Line!; SortOrder:Ascending!; Selection:"";
Key1Type:Alpha!; Key1Level1:1; Key1Level2:1; Key1Level3:1;
Key2Type:Alpha!; Key2Level1:1; Key2Level2:1; Key2Level3:2)
// ÀÀ1993 Jerry L. Stern --All Rights Reserved
FileDelete(macpath+"delete.me")
TabSet(Origin:LeftMargin!; Type1:Left!; Pos1:0.0"; Pos2:1.5";
Pos3:2.0"; Pos4:2.5"; Pos5:3.0"; Pos6:3.5"; Pos7:4.0"; Pos8:4.5";
Pos9:5.0" )
OnError(Bad@)
Label(create@)
Call(List@)
OnNotFound (Bye@)Ôh)0*0*0*°°ԌSelectMode(1)
SearchText(SearchString:"Ù
ÁÁ
Ù"; SearchDirection:Forward!;
SearchScope:Extended!)
GetWPData(entry; 143)
SelectMode(0)
PosLineDown()
PosLineBegin()
Call(cat@)
saybye:=2
SubStr(Tmp; 1; 6; entry)
If(Tmp="WP}WP{")
GO(bad@)
EndIf
MacroStatusPrompt(1; " Working on the graphic: "+entry)
BoxRetrieve(0; npath+entry)
PosCharPrevious()
BoxSelect(0)
BoxPosition(Anchor:2; AutoMode:1; Height:high)
HardReturn()
Type(entry)
SelectMode(1)
PosLineBegin()
PosCharPrevious()
PosCharPrevious()
BlockProtect()
SelectMode(0)
PosDocBottom()
HardReturn()
GO(create@)
LABEL(bad@)
CALL(die@)
Badcount:=Badcount+1
If(Badcount=1)
MacroStatusPrompt(1; "Found "+ entry +"--Not a graphic. Still
running...")
ELSE
NumStr(bc; 0; badcount)
MacroStatusPrompt(1; "Found "+ entry + "; "+ bc + " non-graphic
files.")
EndIf
Call(List@)
PosLineUp()
Type("<>")
PosLineDown()
PosLineBegin()
GO(create@)
LABEL(bye@)
If(saybye=1)
OnError Call(Wrong@)
M1:="ERROR! No files were found matching your request."+H2+"There
are no files with the names you chose in the directory you
specified."+H1+" Check the path and file mask and try again."
Message:=M1+ST+H2+"Add $2.00 shipping outside U.S. and
Canada"+H1+"Visa/Mastercard Available--Order by mail, phone, orÔh)0*0*0*°°Ô FAX"+H1+"(410) 661-2224 (Voice and FAX) GEnie: J.Stern10"
Buttons:=16
CloseNoSave(0)
Close(0)
Call(Cat@)
CloseNoSave(0)
Call(Disp@)
Go(Done@)
EndIf
If (badcount=0)
Go(nonebad@)
EndIf
Call(list@)
PosDocTop()
MacroStatusPrompt(1; "Creating bad files list...")
Sort(RecordType:Line!; SortOrder:Ascending!; Selection:"";
Key1Type:Alpha!; Key1Level1:1; Key1Level2:1; Key1Level3:1;
Key2Type:Alpha!; Key2Level1:1; Key2Level2:1; Key2Level3:2)
PosDocBottom()
SearchText(SearchString:"<>"; SearchDirection:Backward!;
SearchScope:Extended!)
PosLineEnd()
SelectDocBottom()
DeleteCharNext()
SearchReplace(SearchString:"<>"; SearchDirection:Backward!;
ReplacementScope:Extended!; ReplacementString:"";
ReplacementAction:ReplaceAll!)
PosLineDown()
PosDocTop()
SelectMode(1)
PosDocBottom()
PosLineBegin()
SearchText(SearchString:"Ù
ÁÁ
Ù"; SearchDirection:Forward!;
SearchScope:Extended!)
PosCharPrevious()
SelectColumn()
EditCut()
Call(cat@)
HardReturn()
Type("Non©graphics files:")
HardReturn()
EditPaste()
LABEL(nonebad@)
PosDocVeryTop()
MacroStatusPrompt(1; "Finishing up...")
DeleteCharNext()
Call(List@)
CloseNoSave(0)
Close(0)
Call(Cat@)
PosLineDown()
DraftMode(0)
Display(1)
M1:="The graphics catalog is ready to view, print, or edit."+H2+"Ôh)0*0*0*°°Ô To view, select File,"
M1:=M1+" Print Preview. There are tips for editing, customizing,
and printing this document in the"
Message:=M1+" instruction file, GRAPHWIN.DOC. "+ST+H2+"Add $2.00
shipping outside U.S. and Canada"+H1+"Visa/Mastercard
Available--Order by mail, phone, or FAX"+H1+"(410) 661-2224
(Voice and FAX) GEnie: J.Stern10"
Buttons:=64
Call(Disp@)
Go(Done@)
LABEL(badpath@)
M1:="Bad File Path!"+H2+"The file path that you have entered does
not contain files that "
M1:=M1+"match the filename mask you have entered. The path name
should include only the drive letter and subdirectory name. The
mask should be no longer than 12 letters, and may use wild
cards."
Buttons:=48
Call(Disp@)
Go(rpath@)
LABEL(die@)
CancelOn
GetWPData(Main; 129)
If(not Main)
Close(1)
GO(die@)
ELSE Return
ENDIf
LABEL(kill@)
Call(die@)
Message:="You have canceled the operation while
incomplete."+H2+"The catalog will not be properly laid out."+ST
Buttons:=48
Call(Disp@)
Go(Done@)
Label(List@)
GetWPData(nowdoc; 128)
If(nowdoc<>listdoc)
DocNext()
Go(list@)
Else Return
EndIf
Label(Cat@)
GetWPData(nowdoc; 128)
If(nowdoc<>catdoc)
DocPrevious()
Go(cat@)
Else Return
EndIf
Label(Disp@)
DllCALL(MCRLink;"MCRMessageBox";Result:Word;{LoWord(0);
AnsiString(Message);AnsiString(Title0);(Buttons)})
Return
Label(Oops@)Ôh)0*0*0*°°ԌMessage:="An error has occurred."+H2
If(v1>5)
Message:=message+"This macro has not been properly converted for
WordPerfect for Windows versions beyond 5.2."+H1+"You are running
WP/WIN version "+v1+"."+v2+H2
Else Message:=message+"This macro may have been tampered with.
Replace GRAPHCAT.WCM and GRAPHCAT.DLL from the original package,
or contact the author for assistance."
EndIf
Message:=message+ST
Buttons:=16
Call(Disp@)
Label(Wrong@)
Beep
Label(Done@)
MacroStatusPrompt(0)
DialogDestroy(1)
DLLFree(MCRLink)
Quit
Label(Reg@)
DialogDefine(2; 50; 50; 310; 280; 2+16; Title0)
DialogAddText(2; "T1"; 5; 5; 290; 8; 4; "Registration for Science
Translations Shareware Products")
DialogAddText(2; "T2"; 5; 15; 290; 8; 4; "At each of the prompts
below, type in the requested information and press Tab to go")
DialogAddText(2; "T3"; 5; 23; 290; 8; 4; " to the next item.
Click OK when ready to print. In the file PRODUCTS.DOC, there are
")
DialogAddText(2; "T4"; 5; 31; 290; 8; 4; "alternate payment
methods, site license info., and contact information for the
author.")
DialogAddText(2; "Q1";1; 45; 290; 8; 1; "Name")
DialogAddEditBox(2; "A1"; 1; 55; 150; 12; 1; Name; 60)
DialogAddText(2; "Q2"; 1; 70; 290; 8; 1; "Company name, if any.")
DialogAddEditBox(2; "A2"; 1; 80; 150; 12; 1; Comp; 60)
DialogAddText(2; "Q3"; 1; 95; 290; 8; 1; "Mailing addresss")
DialogAddEditBox(2; "A3"; 1; 105; 150; 12; 1; Add1; 60)
DialogAddText(2; "Q4"; 1; 120; 290; 8; 1; "2nd address line, if
needed.")
DialogAddEditBox(2; "A4"; 1; 130; 150; 12; 1; Add2; 60)
DialogAddText(2; "Q5"; 1; 145; 290; 8; 1; "City, state or
province, zip or postal code")
DialogAddEditBox(2; "A5"; 1; 155; 150; 12; 1; Area; 60)
DialogAddText(2; "Q6"; 1; 170; 290; 8; 1; "Country")
DialogAddEditBox(2; "A6"; 1; 180; 145; 12; 1; Coun; 60)
DialogAddText(2; "Q7"; 1; 195; 290; 8; 1; "Voice Phone OR Email
address")
DialogAddEditBox(2; "A7"; 1; 205; 145; 12; 1; Wire; 60)
d3:=0
h3:=0
d5:=0
h5:=0
DialogAddText(2; "Q8"; 1; 230; 290; 8; 1; "Disk size")
DialogAddRadioButton(2; "R1"; 1; 240; 50; 8; "3 1/2"" DD"; d3)Ôh)0*0*0*°°ԌDialogAddRadioButton(2; "R2"; 51; 240; 50; 8; "3 1/2"" HD"; h3)
DialogAddRadioButton(2; "R3"; 101; 240; 50; 8; "5 1/4"" DD"; d5)
DialogAddRadioButton(2; "R4"; 151; 240; 50; 8; "5 1/4"" HD"; h5)
DialogAddCheckBox(2; "P1"; 180; 45; 120; 10; "Graphcat 1.0/Win
$10."; GW)
DialogAddCheckBox(2; "P2"; 180; 56; 120; 10; "Graphcat 2.1/DOS
$10."; GC)
DialogAddCheckBox(2; "P3"; 180; 67; 120; 10; "Letterhead Kit
2.1/WIN $10."; LW)
DialogAddCheckBox(2; "P4"; 180; 78; 120; 10; "Letterhead Kit
2.0/DOS $10."; LH)
DialogAddCheckBox(2; "P5"; 180; 89; 120; 10; "Bookbild 1.0/WIN
$10."; BW)
DialogAddCheckBox(2; "P6"; 180; 100; 120; 10; "Bookbild 1.0/DOS
$10."; BB)
DialogAddCheckBox(2; "P7"; 180; 111; 120; 10; "Animals 1 Clip
Art #101 $5."; W1)
DialogAddCheckBox(2; "P8"; 180; 122; 120; 10; "Animals 2 Clip
Art #102 $5."; W2)
DialogAddCheckBox(2; "P9"; 180; 133; 120; 10; "Buildings 1 Clip
Art #103 $5."; W3)
DialogAddCheckBox(2; "P10"; 180; 144; 120; 10; "People 1 Clip Art
#104 $5."; W4)
DialogAddCheckBox(2; "P11"; 180; 155; 120; 10; "Plants 1 Clip Art
#105 $5."; W5)
DialogAddCheckBox(2; "P12"; 180; 166; 120; 10; "Myths 1 Clip Art
#106 $5."; W6)
DialogAddCheckBox(2; "P13"; 180; 177; 120; 10; "Animals 3 Clip
Art #107 $5."; W7)
DialogAddCheckBox(2; "P14"; 180; 188; 120; 10; "Animals 4 Clip
Art #108 $5."; W8)
DialogAddCheckBox(2; "P15"; 180; 199; 120; 10; "People 2 Clip Art
#109 $5. ";W9)
DialogAddCheckBox(2; "P16"; 160; 210; 140; 10; "Maryland
residents add Sales Tax 5%"; MD)
DialogAddCheckBox(2; "P17"; 160; 221; 140; 10; "Shipping outside
US and Canada $2."; SH)
DialogAddPushButton(2; "Print"; 210; 240; 35; 13; 1; "&Print")
Print:=MacroDialogResult
ONCANCEL(done@)
DialogDisplay(2; "A1")
If (MacroDialogResult=Print)
DialogDestroy(2)
Go(checkreg@)
Else DialogDestroy(2)
Go(bigbox@)
EndIf
Label(CheckReg@)
MacroStatusPrompt(1; "Composing Registration Form.... Please
Wait.")
FileNew()
FontBold(1)
Type("Registration Form for "+ Title0) HardReturn() HardReturn()
FontBold(0)Ôh) 0*0*0*°°ԌType("Ship to: " + name) HardReturn()
Type(comp) HardReturn()
Type(add1) HardReturn()
Type(add2) HardReturn()
Type(area) HardReturn()
Type(coun) HardReturn()
HardReturn()
Type("Phone or Email: " + wire) HardReturn()
HardReturn()
If (d3=1) Type("3 1/2"" Double Density disk (720K)") EndIf
If (h3=1) Type("3 1/2"" High Density disk (1.44M)") EndIf
If (d5=1) Type("5 1/4"" Double Density disk (360K)") EndIf
If (h5=1) Type("5 1/4"" High Density disk (1.2M)") EndIf
HardReturn() HardReturn()
If (GW=1) Type("$10.00 Graphcat 1.0 for Windows") HardReturn()
EndIf
If (GC=1) Type("$10.00 Graphcat 2.1 for DOS") HardReturn() EndIf
If (LW=1) Type("$10.00 Letterhead Kit 2.1 for Windows")
HardReturn() EndIf
If (LH=1) Type("$10.00 Letterhead Kit 2.0 for DOS") HardReturn()
EndIf
If (BW=1) Type("$10.00 Bookbild 1.0 for Windows") HardReturn()
EndIf
If (BB=1) Type("$10.00 Bookbild 1.0 for DOS") HardReturn() EndIf
If (W1=1) Type("$ 5.00 Wood Clips 101 Animals 1") HardReturn()
EndIf
If (W2=1) Type("$ 5.00 Wood Clips 102 Animals 2") HardReturn()
EndIf
If (W3=1) Type("$ 5.00 Wood Clips 103 Buildings 1") HardReturn()
EndIf
If (W4=1) Type("$ 5.00 Wood Clips 104 People 1") HardReturn()
EndIf
If (W5=1) Type("$ 5.00 Wood Clips 105 Plants 1") HardReturn()
EndIf
If (W6=1) Type("$ 5.00 Wood Clips 106 Myths 1") HardReturn()
EndIf
If (W7=1) Type("$ 5.00 Wood Clips 107 Animals 3") HardReturn()
EndIf
If (W8=1) Type("$ 5.00 Wood Clips 108 Animals 4") HardReturn()
EndIf
If (W9=1) Type("$ 5.00 Wood Clips 109 People 2") HardReturn()
EndIf
HardReturn()
Sub:=10*(GW+GC+LW+LH+BW+BB)+5*(W1+W2+W3+W4+W5+W6+W7+W8+W9)
NumStr(S; 2; sub)
type(s+ " Subtotal")
HardReturn()
If(MD=1)
tx:=sub*0.05
NumStr(T; 2; tx)
Type(t + " MD Sales Tax")
HardReturn()
Else tx:=0
EndIfÔh)
0*0*0*°°ԌIf(SH=1)
total:=sub+tx +2
Type ("$2.00 Air Mail Shipping")
HardReturn()
Else total:=sub+tx
HardReturn()
EndIf
NumStr(t; 2; total)
Type("$US " + t + " Total")
HardReturn()
HardReturn()
Type("Make check or money order payable to Science
Translations.") HardReturn()
Type("Mail form to: Jerry Stern, Science Translations, PO Box
20234, Baltimore, MD 21284©0234")
HardReturn()
Type("Or FAX to 410©661©2224") HardReturn()
Type("Only checks drawn on banks in certain countries can be
accepted. For the list and other registration options, see the
file PRODUCTS.DOC. ")
HardReturn()
HardReturn()
Type("MasterCard[ ] Visa [ ] Expires
______________")
HardReturn()
HardReturn()
Type("Name as printed on card:
_________________________________")
HardReturn()
HardReturn()
Type("Account Number:
__________________________________________")
HardReturn()
HardReturn()
Type("Signature:
_______________________________________________")
PosDocTop()
message:="The registration form is ready to print."+H2+"Thank
you!"
Buttons:=64
Call(disp@)
Go(done@)


  3 Responses to “Category : Word Perfect
Archive   : GCATWPW1.ZIP
Filename : GRAPHCAT.WCM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/