Category : Word Perfect
Archive   : BOOKWIN1.ZIP
Filename : BOOKBILD.WCM

 
Output of file : BOOKBILD.WCM contained in archive : BOOKWIN1.ZIP
ÿWPCÎy
ûÿ2BVP Z¦Courier 10cpiÿÿ‰?xxx
›^ôxþ6X@ɓ8ó X@ÿÿÿþþþþÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDOS Text PrinterDOTEXPRI.PRS¼’xÐðP4o”7ûY$†¼P3|x.ûÿ2þvBp¸k(k“a8DocumentgÁDocument Style Styleº ŠÂXÂÂX` ` ÂÆÐ ` Æ

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

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

ûÿ2ˆ¥0vÕšK£å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.Ø ƒÁ€Á°` ` ÂÆ(#` Æ

ûÿ2 §º
¬a µ
 ¿Â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ô
ȳÐ{ ÙK
Ð$ 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‰‡& ‡­ ®4
§â
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/¦»Âa†#†©a4TechnicalTechnical Document Style8bv¢{Ô –2 Ôà Ã؃a.Ø ××××
ÁÁÄ Äa1TechnicalTechnical Document StyleF²è!<
Ô ‰?È ÔÃÃà Ã××Ø€I.Ø ÙÙÙÙ××

ÄÄÁÁÄ Äa7TechnicalTechnical Document Style(@DÆÁÁà Ã؆i)Ø . Ä Äa8TechnicalTechnical Document Style(àDËÁÁà Ã؇a)Ø . Ä Äûÿ2 aKhƒÉ;.USWPWPDFe:\wpwin52\macros\bookbild.wcmna:h,,,X,X>JA==WPWP,X
4@(CA1)
@(CA1-END)
'@(CA1) KILL'
@(CA1-END),X4L-Bookbild--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 MH2 MSTJJÿÿÿÿJÿÿÿÿD,XJda,X
'BADVER,XP,X @1'
@(I1-ELSE) '@1,X>#LWPTP:Deactivate SubstitutionA
=àWPWP,XL
WPCMCR.DLLMCRLINK,X>NCHANGEDAJbA=§WPWP,XMCHANGED
@(I2-ELSE),X:L3You must save the document before running BOOKBILD. MH2ŸL˜Changes have been made to this document since it was last saved. BOOKBILD destroys the original document, so save the file, and then run BOOKBILD again., MSTMESSAGEXJ,BUTTONSX DISP,X #DONE,X @2'
@(I2-ELSE) '@2,X>=‰WPWP, X>NPAJA=§WPWP,!XMPJ
@(I3-ELSE),"X:L3Your document is too short to convert to a booklet. MH2RLKThere must be more than one page to the booklet for BOOKBILD to convert it.,# MSTMESSAGEXJ,$BUTTONSX DISP,%X #DONE,&X @3'
@(I3-ELSE) '@3,'XJJ2J2JJÜJJJ
MTITLE0y,(XJ LT1JJJJJ:L3Bookbild converts pamphlets to a camera-ready form.v,)XJ LT2JJ
JJJ6L/In the file BOOKWIN.DOC, there are instructionsv,*XJ LT3JJJJJ0L)for preparing the booklet for conversion.v,+XJ LI1JJ(JJJ'L Before continuing, did you . . .v,,XJ LI2JJ7JJJ@L9Select a paper type containing labels 2 across by 1 down?v,-XJ LI3JJAJJJBL;Move all setup and tab set codes to Document Initial Codes?v,.XJ LI4JJKJJJ@L9Restore all text to the Base Font before each page break?v,/XJ LI5JJUJJJ>L7Break all multiple-page tables into single-page tables?v,0XJ LI6JJ_JJJ:L3Generate all tables, cross references, and indexes?v,1XJ LSTJJxJJJ9L2Did you register and receive your free bonus disk?v,2XJ
LST2JJ€JJJILBSend $10 to Jerry Stern, P.O. Box 20234, Baltimore, MD 21284-0234v,3XJ
LST3JJˆJJJ0L)ÀÀ1993 Jerry Stern--All Rights Reservedv,4XJ
LST4JJJJJ1L*Add $2.00 shipping outside U.S. and Canadav,5XJ
LST5JJ˜JJJ>L7Visa/Mastercard Available--Order by mail, phone, or FAXv,6XJ
LST6JJ JJJTLM(410) 661-2224 (Voice and FAX) GEnie: J.Stern10 Internet: [email protected]v,7XJ
LRegJlJ´J2JJL &Registers,8X,9MMACRODIALOGRESULTREGISTERX
'BIGBOX,:XJ LA1{,;XMMACRODIALOGRESULTMREGISTER
@(I4-ELSE),<X
#REG,=X @4'
@(I4-ELSE)XMMACRODIALOGRESULTJ
@(I5-ELSE),>X @5'
@(I5-ELSE),?X #DONE,@X '@5X '@4,AX>JALStarting up . . .A =˜WPWP,BX> NFNAJ A=§WPWP,CX> NPNAJA=§WPWP,DX>
NSECDOCAJ€A=§WPWP,EX>=2WPWP,FX>=WPWP,GX> MPN MFNAJA=[WPWP,HX>
NOLDDOCAJ€A=§WPWP,IX
MOLDDOC
MSECDOC
@(I6-ELSE),JX7L0There is no empty document available to work in. MH2…L~Empty at least one document screen and begin again. For maximum speed, close all documents except the booklet being converted.,KMESSAGEXJ,LBUTTONSX DISP,MX #DONE,NX @6'
@(I6-ELSE) '@6,OX>LÙ ÓÓ ÙA J
@
?AJ
@
?ALA J
@
?A=ˆWPWP,PX>=‰WPWP,QX>=WPWP,RX>=aWPWP,SX>$LThis pamphlet prepared using
MTITLE0 L. A =ÅWPWP,TX> NP1AJA=§WPWP,UX MP1J/J$
@(I7-ELSE),VXHLAA booklet should be laid out to be a multiple of four pages long. MH2hLaBOOKBILD is padding the end of your document so that the final result will be the correct length.,WMESSAGEXJ@,XBUTTONSX DISP,YX '@8 MP1J/J$ @(W1-END),ZX>=MWPWP,[X> NP1AJA=§WPWP,\X @8' @(W1-END),]X @7'
@(I7-ELSE)X>L A =ÅWPWP,^X '@7,_XJ,` LPAGEX> NHPAGEAJA=§WPWP,aX '@9 MHPAGE MLPAGE$ @(W2-END),bXJ MHPAGE 2HP,cX>JAL
Copying page MHPA =˜WPWP,dX
OLD,eX> MHPAGEA=HWPWP,fX>=5WPWP,gX>=WPWP,hX>JA=éWPWP,iX
NEW,jX>=WPWP,kX> MHPAGEA=XWPWP,lX>= WPWP,mX>=‰WPWP,nX>=WPWP,oX>=MWPWP,pXJ MLPAGE 2LP,qX>JAL
Copying page MLPA =˜WPWP,rX
OLD,sX> MLPAGEA=HWPWP,tX>=5WPWP,uX>=WPWP,vX>JA=éWPWP,wX
NEW,xX>=WPWP,yX> MLPAGEA=XWPWP,zX>= WPWP,{X>=‰WPWP,|X>=WPWP,}X>=MWPWP,~X MLPAGEJ, LPAGEX MHPAGEJ,€` HPAGEXJ MLPAGE 2LP,X>JAL
Copying page MLPA =˜WPWP,‚X
OLD,ƒX> MLPAGEA=HWPWP,„X>=5WPWP,…X>=WPWP,†X>JA=éWPWP,‡X
NEW,ˆX>=WPWP,‰X> MLPAGEA=XWPWP,ŠX>= WPWP,‹X>=‰WPWP,ŒX>=WPWP,X>=MWPWP,ŽXJ MHPAGE 2HP,X>JAL
Copying page MHPA =˜WPWP,X
OLD,‘X> MHPAGEA=HWPWP,’X>=5WPWP,“X>=WPWP,”X>JA=éWPWP,•X
NEW,–X>=WPWP,—X> MHPAGEA=XWPWP,˜X>= WPWP,™X>=‰WPWP,šX>=WPWP,›X>=MWPWP,œX MLPAGEJ, LPAGEX MHPAGEJ,ž` HPAGEX @9' @(W2-END),ŸX>JA&LCopying complete--finishing up.A =˜WPWP, X>=WPWP,¡X>=1WPWP,¢X
OLD,£X>JA=ZWPWP,¤X
NEW,¥XL
Done . . . MH2¨L¡Your document has been replaced by the booklet. You must move any header and footer codes from the beginning of page 1 to the physical beginning of the document,,¦ M1XLLE and add Suppress codes as needed to correct for their new positions.,§ MST M2X 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,¨ M3X MM1 MM2,© MM3MESSAGEXJ@,ªBUTTONSX DISP,«X #DONE,¬X 'KILL,­XÄL½YOU HAVE CANCELED THE OPERATION WHILE INCOMPLETE. The booklet will not be properly laid out. When you are ready to begin again, resave the materials before running the BOOKBILD macro again.,® MSTMESSAGEXJ0,¯BUTTONSX DISP,°X #DONE,±X
'NEW,²X>
NNOWDOCAJ€A=§WPWP,³X
MNOWDOC
MSECDOC1
@(I8-ELSE),´X>=+WPWP,µX
#NEW,¶X @a'
@(I8-ELSE)XR,·X '@a,¸X
'OLD,¹X>
NNOWDOCAJ€A=§WPWP,ºX
MNOWDOC
MOLDDOC1
@(I9-ELSE),»X>=WPWP,¼X
#OLD,½X @b'
@(I9-ELSE)XR,¾X '@b,¿X 'DISP,ÀXMMCRLINKL
MCRMessageBoxJ,ÁMMESSAGE
MTITLE0MBUTTONSRESULT,ÂXR,ÃX 'DONE,ÄX>JA=˜WPWP,ÅXMMCRLINK,ÆXP,ÇX
'REG,ÈXJJ2J2J6JJJ
MTITLE0y,ÉXJ LT1JJJ"JJ?L8Registration for Science Translations Shareware Productsv,ÊXJ LT2JJJ"JJZLSAt each of the prompts below, type in the requested information and press Tab to gov,ËXJ LT3JJJ"JJ\LU to the next item. Click OK when ready to print. In the file PRODUCTS.DOC, there are v,ÌXJ LT4JJJ"JJ]LValternate payment methods, site license info., and contact information for the author.v,ÍXJ LQ1JJ-J"JJ LNamev,ÎXJ 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,ÕXJ LQ5JJ‘J"JJ2L+City, state or province, zip or postal codev,ÖXJ LA5JJ›J–J JJ< hAREA,×XJ LQ6JJªJ"JJLCountryv,ØXJ LA6JJ´J‘J JJ< hCOUN,ÙXJ LQ7JJÃJ"JJ#LVoice Phone OR Email addressv,ÚXJ LA7JJÍJ‘J JJ< hWIRE,ÛXJ,Ü D3XJ,Ý H3XJ,Þ D5XJ,ß H5XJ LQ8JJæJ"JJL Disk sizev,àXJ LR1JJðJ2JL 3 1/2" DD tD3,áXJ LR2J3JðJ2JL 3 1/2" HD tH3,âXJ LR3JeJðJ2JL 5 1/4" DD tD5,ãXJ LR4J—JðJ2JL 5 1/4" HD tH5,äXJ LP1J´J-JxJ
LGraphcat 1.0/Win $10. cGW,åXJ LP2J´J8JxJ
LGraphcat 2.1/DOS $10. cGC,æXJ LP3J´JCJxJ
#LLetterhead Kit 2.1/WIN $10. cLW,çXJ LP4J´JNJxJ
#LLetterhead Kit 2.0/DOS $10. cLH,èXJ LP5J´JYJxJ
LBookbild 1.0/WIN $10. cBW,éXJ LP6J´JdJxJ
LBookbild 1.0/DOS $10. cBB,êXJ LP7J´JoJxJ
#LAnimals 1 Clip Art #101 $5. cW1,ëXJ LP8J´JzJxJ
#LAnimals 2 Clip Art #102 $5. cW2,ìXJ LP9J´J…JxJ
%LBuildings 1 Clip Art #103 $5. cW3,íXJ
LP10J´JJxJ
"LPeople 1 Clip Art #104 $5. cW4,îXJ
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@(CA3)
@(CA3-END)
'@(CA3) DONE'
@(CA3-END),øXJ LA1{,ùXMMACRODIALOGRESULT MPRINT
@(Ia-ELSE),úXJz,ûX#CHECKREG,üX @c'
@(Ia-ELSE)XJz,ýX
#BIGBOX,þX '@c,ÿX'CHECKREG,X>JA@L9Composing and Printing 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
@(Ib-ELSE)X>(L!3 1/2" Double Density disk (720K)A =ÅWPWPX @d'
@(Ib-ELSE) '@d,X MH3J
@(Ic-ELSE)X>'L 3 1/2" High Density disk (1.44M)A =ÅWPWPX @e'
@(Ic-ELSE) '@e,X MD5J
@(Id-ELSE)X>(L!5 1/4" Double Density disk (360K)A =ÅWPWPX @f'
@(Id-ELSE) '@f,X MH5J
@(Ie-ELSE)X>&L5 1/4" High Density disk (1.2M)A =ÅWPWPX
@10'
@(Ie-ELSE)
'@10,X>=WPWPX>=WPWP,X MGWJ
@(If-ELSE)X>&L$10.00 Graphcat 1.0 for WindowsA =ÅWPWPX>=WPWPX
@11'
@(If-ELSE)
'@11,X MGCJ @(I10-ELSE)X>"L$10.00 Graphcat 2.1 for DOSA =ÅWPWPX>=WPWPX
@12' @(I10-ELSE)
'@12,X MLWJ @(I11-ELSE)X>,L%$10.00 Letterhead Kit 2.1 for WindowsA =ÅWPWPX>=WPWPX
@13' @(I11-ELSE)
'@13,X MLHJ @(I12-ELSE)X>(L!$10.00 Letterhead Kit 2.0 for DOSA =ÅWPWPX>=WPWPX
@14' @(I12-ELSE)
'@14,X MBWJ @(I13-ELSE)X>&L$10.00 Bookbild 1.0 for WindowsA =ÅWPWPX>=WPWPX
@15' @(I13-ELSE)
'@15,X MBBJ @(I14-ELSE)X>"L$10.00 Bookbild 1.0 for DOSA =ÅWPWPX>=WPWPX
@16' @(I14-ELSE)
'@16,X MW1J @(I15-ELSE)X>&L$ 5.00 Wood Clips 101 Animals 1A =ÅWPWPX>=WPWPX
@17' @(I15-ELSE)
'@17,X MW2J @(I16-ELSE)X>&L$ 5.00 Wood Clips 102 Animals 2A =ÅWPWPX>=WPWPX
@18' @(I16-ELSE)
'@18,X MW3J @(I17-ELSE)X>(L!$ 5.00 Wood Clips 103 Buildings 1A =ÅWPWPX>=WPWPX
@19' @(I17-ELSE)
'@19,X MW4J @(I18-ELSE)X>%L$ 5.00 Wood Clips 104 People 1A =ÅWPWPX>=WPWPX
@1a' @(I18-ELSE)
'@1a,X MW5J @(I19-ELSE)X>%L$ 5.00 Wood Clips 105 Plants 1A =ÅWPWPX>=WPWPX
@1b' @(I19-ELSE)
'@1b,X MW6J @(I1a-ELSE)X>$L$ 5.00 Wood Clips 106 Myths 1A =ÅWPWPX>=WPWPX
@1c' @(I1a-ELSE)
'@1c,X MW7J @(I1b-ELSE)X>&L$ 5.00 Wood Clips 107 Animals 3A =ÅWPWPX>=WPWPX
@1d' @(I1b-ELSE)
'@1d, X MW8J @(I1c-ELSE)X>&L$ 5.00 Wood Clips 108 Animals 4A =ÅWPWPX>=WPWPX
@1e' @(I1c-ELSE)
'@1e,!X MW9J @(I1d-ELSE)X>%L$ 5.00 Wood Clips 109 People 2A =ÅWPWPX>=WPWPX
@1f' @(I1d-ELSE)
'@1f,"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 @(I1e-ELSE),(X
MSUB Hš™™™™™©?,)0 TXXJ MTX2T,*X>MTL MD Sales TaxA =ÅWPWP,+X>=WPWP,,X
@20' @(I1e-ELSE)XJ,- TXX
'@20,.X MSHJ @(I1f-ELSE),/X
MSUB MTXJ,0 TOTALX>L$2.00 Air Mail ShippingA =ÅWPWP,1X>=WPWP,2X
@21' @(I1f-ELSE)X
MSUB,3 MTX TOTALX>=WPWP,4X
'@21,5XJ MTOTAL2T,6X> L$US MTL TotalA =ÅWPWP,7X>=WPWP,8X>=WPWP,9X>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,AX>=WPWP,BX>=WPWP,CX>AL:Name as printed on card: _________________________________A =ÅWPWP,DX>=WPWP,EX>=WPWP,FX>AL:Account Number: __________________________________________A =ÅWPWP,GX>=WPWP,HX>=WPWP,IX>AL:Signature: _______________________________________________A =ÅWPWP,JX>=1WPWP,KX/L(The registration form is ready to print. MH2L
Thank you!,LMESSAGEXJ@,MBUTTONSX DISP,NX #DONE(Q)4Z@21)2Z @(I1f-ELSE))-Y@20),îX @(I1e-ELSE))!%V@1f)!V @(I1d-ELSE)) aU@1e) WU @(I1c-ELSE))œT@1d)’T @(I1b-ELSE))×S@1c)ÍS @(I1a-ELSE))S@1b)
S @(I19-ELSE))PR@1a)FR @(I18-ELSE))ŒQ@19)‚Q @(I17-ELSE))ÅP@18)»P @(I16-ELSE))P@17)öO @(I15-ELSE));O@16)1O @(I14-ELSE))zN@15)pN @(I13-ELSE))µM@14)«M @(I12-ELSE))îL@13)äL @(I11-ELSE))#L@12)L @(I10-ELSE))bK@11)XK
@(If-ELSE))]J@10)SJ
@(Ie-ELSE))·I@f)®I
@(Id-ELSE))I@e)I
@(Ic-ELSE))lH@d)cH
@(Ib-ELSE))þ @(Ia-ELSE))÷?B
@(CA3-END))÷#B@(CA3))¾ÿ.@b)½â.
@(I9-ELSE))·æ-@a)¶É-
@(I8-ELSE))ž©' @(W2-END))a$@9)^¦@7)\> @(W1-END))Y}@8)]d
@(I7-ELSE))N3@6)N*
@(I6-ELSE))@s@5)>G
@(I5-ELSE))@€@4)=è
@(I4-ELSE))&v
@3)&m

@(I3-ELSE))˜@2)
@(I2-ELSE))@1):
@(CA2-END))@(CA2))
@(I1-ELSE))·
@(CA1-END))›@(CA1))9CBIGBOX)ØBADVER)ÿWCCHECKREG)ÃÕ/DONE)¿/DISP)¬’+KILL)±ã,NEW)¸ü-OLD)ÇN0REGB CWPWPÐÐÔÔ//Bookbild.WCM Shareware Evaluation Version v. 1.0
// ÀÀ1993 Jerry Stern; All Rights Reserved
Application (WP; WPWP; Default; "WPWPUS.WCD")
RevealCodes(0)
OnCancel(kill@)
Title0:="Bookbild©©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+H2+ST; 1; ; )
Wait(100)
Label(badver@)
Quit
Endif
UserFunction ("WPTP:Deactivate Substitution")
DLLLoad(MCRLink;"WPCMCR.DLL")
GetWPData(changed;98)
IF(changed)
Ô
‰?àÑ9ÔMessage:="à ÃÄ ÄYou must save the document before running
BOOKBILD."+H2+"Changes have been made to this document since it
was last saved. BOOKBILD destroys the original document, so save
the file, and then run BOOKBILD again."+ST
Buttons:=16
Call(Disp@)
Go(Done@)
EndIf
PosDocBottom()
GetWPData(p;14)
IF(p=1)
Ô
‰?xÑ9ÔMessage:="à ÃÄ ÄYour document is too short to convert to a
booklet."+H2+"There must be more than one page to the booklet for
BOOKBILD to convert it."+ST
Buttons:=16
Call(Disp@)
Go(Done@)
EndIf
DialogDefine(1; 50; 50; 280; 220; 1+2+16; Title0)
DialogAddText(1; "T1"; 5; 5; 270; 8; 4; "Bookbild converts
pamphlets to a camera©ready form.")
DialogAddText(1; "T2"; 5; 13; 270; 8; 4; "In the file
BOOKWIN.DOC, there are instructions")
DialogAddText(1; "T3"; 5; 21; 270; 8; 4; "for preparing the
booklet for conversion.")
DialogAddText(1; "I1"; 5; 40; 270; 8; 4; "Before continuing, didÔ"h)0*0*0*°°7
"Ô you . . .")
DialogAddText(1; "I2"; 5; 55; 270; 8; 4; "Select a paper type
containing labels 2 across by 1 down?")
DialogAddText(1; "I3"; 5; 65; 270; 8; 4; "Move all setup and tab
set codes to Document Initial Codes?")
DialogAddText(1; "I4"; 5; 75; 270; 8; 4; "Restore all text to the
Base Font before each page break?")
DialogAddText(1; "I5"; 5; 85; 270; 8; 4; "Break all multiple-page
tables into single-page tables?")
DialogAddText(1; "I6"; 5; 95; 270; 8; 4; "Generate all tables,
cross references, and indexes?")
DialogAddText(1; "ST"; 5; 120; 270; 8; 4; "Did you register and
receive your free bonus disk?")
DialogAddText(1; "ST2"; 5; 128; 270; 8; 4; "Send $10 to Jerry
Stern, P.O. Box 20234, Baltimore, MD 21284©0234")
DialogAddText(1; "ST3"; 5; 136; 270; 8; 4; "ÀÀ1993 Jerry Stern©ªAll Rights Reserved")
DialogAddText(1; "ST4"; 5; 144; 270; 8; 4; "Add $2.00 shipping
outside U.S. and Canada")
DialogAddText(1; "ST5"; 5; 152; 270; 8; 4; "Visa/Mastercard
Available--Order by mail, phone, or FAX")
DialogAddText(1; "ST6"; 5; 160; 270; 8; 4; "(410) 661-2224 (Voice
and FAX) GEnie: J.Stern10 Internet: [email protected]")
DialogAddPushButton(1; "Reg"; 108; 180; 50; 14; 0; "&Register")
Register:=MacroDialogResult
Label(bigbox@)
DialogDisplay(1; "A1")
If(MacroDialogResult=Register)
Go(Reg@)
Else If(MacroDialogResult=1)
Else
Go(done@)
EndIf EndIf
MacroStatusPrompt(1; "Starting up . . .")
GetWPData(fn; 12)
GetWPData(pn; 15)
GetWPData(secdoc; 128)
SelectAll()
EditCut()
FileOpen(pn+fn; 0)
GetWPData(olddoc; 128)
If (olddoc=secdoc)
Ô
‰?Ð Ñ9ÔMessage:="à ÃÄ ÄThere is no empty document available to work
in."+H2+"Empty at least one document screen and begin again. For
maximum speed, close all documents except the booklet being
converted."
Buttons:=16
Call(Disp@)
Go(Done@)
EndIf
SearchReplace(SearchString:"Ù ÓÓ Ù"; SearchDirection:Forward!;
ReplacementScope:Extended!; ReplacementString:"";
ReplacementAction:ReplaceAll!)
PosDocBottom()Ô"h)0*0*0*°°7
"ԌHardReturn()
LineCenter()
Type("This pamphlet prepared using "+Title0+". ")
GetWPData(P1; 14)
IF((P1 MOD 4) > 0)
Message:="A booklet should be laid out to be a multiple of four
pages long."+H2+"BOOKBILD is padding the end of your document so
that the final result will be the correct length."
Buttons:=64
Call(Disp@)
While((P1 MOD 4) > 0)
HardPageBreak()
GetWPData(P1; 14)
EndWhile
Else Type(" ")
EndIf
lpage:=1
GetWPData(hpage; 14)
WHILE(hpage>lpage)
NumStr(hp;0;hpage)
MacroStatusPrompt(1; "Copying page "+ hp)
Call(old@)
PosGoTo(Page:hpage)
SelectPage()
EditCopy()
SelectMode(0)
Call(new@)
PosCharNext()
PageNumbering(NewNumber:hpage)
EditPaste()
PosDocBottom()
DeleteCharPrevious()
HardPageBreak()
NumStr(lp;0;lpage)
MacroStatusPrompt(1; "Copying page "+ lp)
Call(old@)
PosGoTo(Page:lpage)
SelectPage()
EditCopy()
SelectMode(0)
Call(new@)
PosCharNext()
PageNumbering(NewNumber:lpage)
EditPaste()
PosDocBottom()
DeleteCharPrevious()
HardPageBreak()
lpage:=lpage+1
hpage:=hpage©1
NumStr(lp;0;lpage)
MacroStatusPrompt(1; "Copying page "+ lp)
Call(old@)
PosGoTo(Page:lpage)
SelectPage()Ô"h)0*0*0*°°7
"ԌEditCopy()
SelectMode(0)
Call(new@)
PosCharNext()
PageNumbering(NewNumber:lpage)
EditPaste()
PosDocBottom()
DeleteCharPrevious()
HardPageBreak()
NumStr(hp;0;hpage)
MacroStatusPrompt(1; "Copying page "+ hp)
Call(old@)
PosGoTo(Page:hpage)
SelectPage()
EditCopy()
SelectMode(0)
Call(new@)
PosCharNext()
PageNumbering(NewNumber:hpage)
EditPaste()
PosDocBottom()
DeleteCharPrevious()
HardPageBreak()
lpage:=lpage+1
hpage:=hpage-1
EndWhile
MacroStatusPrompt(1;"Copying complete©©finishing up.")
DeleteCharPrevious()
PosDocTop()
Call(Old@)
Close(0)
Call(new@)
M1:="Done . . ."+H2+"Your document has been replaced by the
booklet. You must move any header and footer codes from the
beginning of page 1 to the physical beginning of the document,"
M2:=" and add Suppress codes as needed to correct for their new
positions."+ST
M3:=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"
Message:=M1+M2+M3
Buttons:=64
Call(Disp@)
Go(Done@)
LABEL(kill@)
Message:="YOU HAVE CANCELED THE OPERATION WHILE INCOMPLETE. The
booklet will not be properly laid out. When you are ready to
begin again, resave the materials before running the BOOKBILD
macro again."+ST
Buttons:=48
Call(Disp@)
Go(Done@)
Label(New@)
GetWPData(nowdoc; 128)Ô"h)0*0*0*°°7
"ԌIf(nowdoc<>secdoc)
DocNext()
Go(New@)
Else Return
EndIf
Label(Old@)
GetWPData(nowdoc; 128)
If(nowdoc<>olddoc)
DocPrevious()
Go(Old@)
Else Return
EndIf
Label(Disp@)
DllCALL(MCRLink;"MCRMessageBox";Result:Word;{LoWord(0);
AnsiString(Message);AnsiString(Title0);(Buttons)})
Return
Label(Done@)
MacroStatusPrompt(0)
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")Ô"h)0*0*0*°°7
"ԌDialogAddRadioButton(2; "R1"; 1; 240; 50; 8; "3 1/2"" DD"; d3)
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 and Printing Registration
Form.... Please Wait.")
FileNew()
FontBold(1)
Type("Registration Form for "+ Title0) HardReturn() HardReturn()Ô"h)0*0*0*°°7
"ԌFontBold(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Ô"h)0*0*0*°°7
"ԌEndIf
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   : BOOKWIN1.ZIP
Filename : BOOKBILD.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/