Category : Word Perfect
Archive : GCATWPW1.ZIP
Filename : GRAPHCAT.WCM
Output of file : GRAPHCAT.WCM contained in archive : GCATWPW1.ZIP
ûÿ 2 ã B - R Z
Ù #| x + Courier CG Times Italic CG Times Bold Italic FFWP HP DeskJet 500 FFHPDE50.PRS Ûx
@É Ï x X,,ðYuX@Ð Ðûÿ 2 Ñ v p k û k f a8Document g ÁDocument Style Style º Â X ÂÂX` ` ÂÆÐ ` Æ
a4Document g Document Style Style Ø ªÖ Á ÁÃ ÃÃÃ.ÄÄ Ä Äa6Document g ÁDocument Style Style ½³ G ÂX ÂÆÐ Æ
a5Document g ÁDocument Style Style }± Â X ÂÆ(#Æ
ûÿ 2 [ ¥ v ¨ £ ¸ a2Document g Document Style Style < ño Ç
Ô ? È Ôà ÃØ A. Ø ÃÃ× ×× ×
Ä ÄÄÄa7Document g ÁDocument Style Style yý Â X ÂÂ X` ` ÂÆ(#` Æ
a1Right Par ÁRight-Aligned Paragraph Numbers : ` S Á@ ÁØ I. Ø Á°°
ÁÂ X ÂÆ(#Æ
a2Right Par ÁRight-Aligned Paragraph Numbers C ýö Á ÁÁ@ø` ÁØ A. Ø Á ÁÂ °` ` ÂÆ(#` Æ
ûÿ 2 T §
¬ 4 µ à ¿ a3Document g 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 Numbers p fJ Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ ÁÁhh# ÁÁÀÀ( ÁÁ@°* ÁØ i) Ø ÁÀÀ( Á h- ÂÆ(#Æ
a8Right Par ÁRight-Aligned Paragraph Numbers y W" 3! Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ ÁÁhh# ÁÁÀÀ( ÁÁ- ÁÁ@p/ ÁØ a) Ø Á- Á Àpp2 ÂÆ(#pÆ
a1Document g Document Style Style \ ºÌ s0 Ù Ù
Ô
z N È ¥ ÔÁà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 Style 9 W ¢g
Ô 2 È ÔÃ ÃØ 1. Ø × ×× ×
Á ÁÄ Äûÿ 2 ¦ Â 4 ö | a4Technical Technical Document Style 8 bv ¢{ Ô 2 ÔÃ ÃØ a. Ø × ×× ×
Á ÁÄ Äa1Technical Technical Document Style F ²è! <
Ô ? È ÔÃÃà Ã× ×Ø I. Ø Ù ÙÙ Ù× ×
ÄÄÁ ÁÄ Äa7Technical Technical Document Style ( @ DÆ Á Áà ÃØ i) Ø . Ä Äa8Technical Technical Document Style ( à DË Á Áà ÃØ a) Ø . Ä Äûÿ 2 § X 4 ¬ » J àÿÿ ? x x x , ÍXx þ6X @É ü7ûX@þþþþþþþÿþÿÿÿþÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþº ÷z - a 8 1 , ¤ôa &_â xì ð¦7ûôXþþþþþþþÿÿÿÿÿþÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþ> ø)g î v , à °î Ö*ä0 xì ]ß7û°þþþþþþþÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþ> ÿÿ{ , c 8 1 , R ôc Ö*ä0 xì ]ß7ûôþþþþþþþÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþþÉ : US WPWP " Shé
ôÓÿÿÿÿÿÿÿÿÿÿÿÿ^17PSS777S7777SSSSSSSSSS77¦¦Seeoxe_xx7Jo\oxexeS\xee\\777SS7SSJSJ.SS..J.xSSSSAA.SJoJJAJSJ¦Ï%I%% 7%%%7 7 %%%%%% S%S. eSeSeSeSeSooJeJeJeJeJ7.7.7.7.oSxSxSxSxSxSxSxSxS\JeSxSxSxS\JxSeSeSeSeSoJoJoJoJxSeJeJeJeJxSxSxSxSxSxSxSxS7.7S7.ISSJ.oJ\7\.\.\.\.oS eoSoSxSxSoeAeAeASASASASA\.\.\.xSxSxSxS xSo\J\A\A7 SS 7 77/¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦NxxxS SS7SMMSSSSSS:SSSS: 77 SSS..¦¦SSee~¦S¦SxS Y~~SS S7S S Ë :"¦¦¦¦xx¦¦¦Sx¦¦Sxx ¦¦ S妦¦ S77¦¦¦¦¦xe¦xxxxxxxxxx 7¦SeS\<¦x¦oS7SxJS_xl¦¦xxxxxxxxxx¦¦¦¦¦M¦xxxx¦¦¦¦¦¦¦¦¦¦¦¦¦ ¦¦¦x¦¦xx¦¦¦¦¦¦oe¦x¦ ¦¦ Gb xxxx ¦¦ ¦ ¦¦ ¦ÝxxxSxx¦xx¦¦¦ xx xJ xxxxJ xxxxx xxx xxx xxx xxxxxxxxxxxxxx x xxxxxx xxxxxxxxx7 xxx7 xxx7 xxx7 xxx7 7 7 ¦ ¦ ¦ ¦ ¦ S ¦ ¦ x xxxx xxx xÅeee\ e\oJeA\JxSxJ7.oJo\\oJoSxJxeeSeSeS\JeJoee\eeeeex7
4 @(CA1)
@(CA1-END)
' @(CA1) KILL '
@(CA1-END) , X ? L 8 Graphcat for Windows-Unregistered Evaluation Edition 1.0 ,
TITLE0 X > J A L Starting
M TITLE0 A = WPWP , X J J L À
À \ H1 ,
X M H1 , M H1 H2 X M H2 9 L 2 Did you register and receive your free bonus disk? M H1 I L B Send $10 to Jerry Stern, P.O. Box 20234, Baltimore, MD 21284-0234 M H1 0 L ) ÀÀ1993 Jerry Stern--All Rights Reserved , ST X > N V1 A J A = § WPWP ,
X > N V2 A J A = § WPWP , X M V1 J M V2 J *
@(I1-ELSE) , X A L : This macro requires WordPerfect 5.2 for Windows, or newer. , MESSAGE X
4 @(CA2)
@(CA2-END)
' @(CA2)
BADVER '
@(CA2-END) , X , X
M TITLE0 M MESSAGE M ST J J ÿÿÿÿ J ÿÿÿÿ D , X J d a , X
' BADVER , X P , X @1 '
@(I1-ELSE) ' @1 , X
4 @(CA3)
@(CA3-END)
' @(CA3) KILL '
@(CA3-END) , X > # L WPTP:Deactivate Substitution A
= à WPWP , X L
WPCMCR.DLL MCRLINK , X
6 @(ER1)
@(ER1-END)
' @(ER1) OOPS '
@(ER1-END) , X > N MAIN A J A = § WPWP , X M MAIN E
@(I2-ELSE) , X
DIE , X @2 '
@(I2-ELSE) ' @2 , X > N BLANK A J d A = § WPWP , X
6 @(ER2)
@(ER2-END)
' @(ER2) NICETRY '
@(ER2-END) , ! X M BLANK Q
@(I3-ELSE) , " X > N DOC1 A J A = § WPWP , # X > = N WPWP , $ X >
N CATDOC A J A = § WPWP , % X M DOC1
M CATDOC
@(I4-ELSE) , & X # NICETRY , ' X @4 '
@(I4-ELSE) ' @4 , ( X @3 '
@(I3-ELSE) ' @3 , ) X > J A = WPWP , * X >
N CATDOC A J A = § WPWP , + X > = N WPWP , , X > N LISTDOC A J A = § WPWP , - X
M CATDOC M LISTDOC
@(I5-ELSE) , . X # NICETRY , / X @5 '
@(I5-ELSE) ' @5 , 0 X > = Z WPWP , 1 X
CAT , 2 X # BEGIN , 3 X ' NICETRY , 4 X 9 L 2 GRAPHCAT needs two blank documents to do its work. M H1 | L u Close at least two documents by choosing File, Close (and Yes for any changed document), and then run GRAPHCAT again. , 5 MESSAGE X J , 6 BUTTONS X DISP , 7 X # DONE , 8 X ' BEGIN , 9 X > J A = = WPWP , : X J , ; BADCOUNT X ' RPATH , < X > N LANG A J A = § WPWP , = X M LANG L US
@(I6-ELSE) , > X
L inches , ? MEASURE X , @ X @6 '
@(I6-ELSE) X L centimeters , A MEASURE X , B X ' @6 , C X J J 2 J 2 J 6 J J J J
M TITLE0 y , D X J L T1 J J J " J J 8 L 1 Graphcat builds catalogs of your clip art images. v , E X J L T2 J J J " J J G L @ At each of the prompts below, type in the requested information. v , F X J L T3 J J J " J J G L @ Click OK when done. In the file GRAPHWIN.DOC, there are tips for v , G X J L T4 J J J " J J I L B customizing the completed catalog, and a trouble-shooting section. v , H X J L Q1 J # J - J " J J V L O Enter the drive:\path to search. (Location of files) v , I X J L A1 J A J 7 J J J J J ( h PATH , J X J L Q2 J # J K J " J J Y L R Enter the files to find. (file.extension, default *.*) v , K X J L A2 J A J U J J J J J h MASK , L X J L Q3 J # J i J " J J Q L J Enter the title for the catalog pages. (default `Clip Art in _______') v , M X J L A3 J A J s J J J J J J ( h TITLE , N X J L Q4 J # J J " J J J L C How many columns across should there be? Good Combinations v , O X J
L Q4b J Ã J J d J J L Columns Inches Cm v , P X J
L Q4c J Å J J d J J L 2 1.8 4.5 v , Q X J
L Q5d J Å J ¡ J d J J L 3 1.2 3.0 v , R X J
L Q5e J Å J © J d J J L 4 1.0 2.5 v , S X J
L Q5f J Å J ± J d J J L 5 .75 2.0 v , T X J , U
COL X J L A4 J A J J ( J J J J J
g COL , V X J L Q5 J # J ¥ J J J - L & How tall should the graphics boxes be? v , W X M LANG L US
@(I7-ELSE) , X X I ð? , Y HIGH X J L A5 J A J ¯ J ( J J J X J à. J x g HIGH , Z X @7 '
@(I7-ELSE) , [ X F @ , \ HIGH X J L A5 J A J ¯ J ( J J J O J . J v g HIGH , ] X ' @7 , ^ X J L ST J J ¾ J " J J 9 L 2 Did you register and receive your free bonus disk? v , _ X J
L ST2 J J Æ J " J J I L B Send $10 to Jerry Stern, P.O. Box 20234, Baltimore, MD 21284-0234 v , ` X J
L ST3 J J Î J " J J 0 L ) ÀÀ1993 Jerry Stern--All Rights Reserved v , a X J
L ST4 J J Ö J " J J 1 L * Add $2.00 shipping outside U.S. and Canada v , b X J
L ST5 J J Þ J " J J > L 7 Visa/Mastercard Available--Order by mail, phone, or FAX v , c X J
L ST6 J J æ J " J J T L M (410) 661-2224 (Voice and FAX) GEnie: J.Stern10 Internet: [email protected] v , d X J
L Reg J v J ò J 2 J J L &Register s , e X , f M MACRODIALOGRESULT REGISTER X
' BIGBOX , g X J L A1 { , h X M MACRODIALOGRESULT M REGISTER
@(I8-ELSE) , i X
# REG , j X @8 '
@(I8-ELSE) X M MACRODIALOGRESULT J
@(I9-ELSE) , k X @9 '
@(I9-ELSE) , l X # DONE , m X ' @9 X ' @8 , n X M PATH Z SIZE , o X M SIZE J *
@(Ia-ELSE) , p X , q X i L b The drive:\path is the location that Graphcat will search for graphics. You cannot leave it blank. , r MESSAGE X J 5 , s BUTTONS X DISP , t X
M RESULT J
@(Ib-ELSE) , u X # DONE , v X @b '
@(Ib-ELSE) , w X
# BIGBOX , x X ' @b , y X @a '
@(Ia-ELSE) ' @a , z X M PATH Z SIZE , { X J M SIZE J ` M PATH ] VAR2 , | X L Var2 L \
@(Ic-ELSE) , } X , ~ M PATH NPATH X @c '
@(Ic-ELSE) , X M PATH L \ , NPATH X ' @c , X M MASK Z SIZE , X M SIZE J *
@(Id-ELSE) , X
L *.* , MASK X @d '
@(Id-ELSE) X L . M MASK ^ T , X M T J
@(Ie-ELSE) , X , X > L 7 The mask must include both a filename and an extension. M H1 2 L + For example, try *.* or *.WPG or BIG-????.* , MESSAGE X J 5 , BUTTONS X DISP , X
M RESULT J
@(If-ELSE) , X # DONE , X @f '
@(If-ELSE) , X
# BIGBOX , X ' @f X @e '
@(Ie-ELSE) ' @e X ' @d , X M TITLE Z SIZE , X M SIZE J * @(I10-ELSE) , X L Clip Art in M NPATH , M MASK TITLE X
@10 ' @(I10-ELSE)
' @10 , X
6 @(ER3)
@(ER3-END)
' @(ER3) BADPATH '
@(ER3-END) , X > J A J A = ¹ WPWP , X > M TITLE A = Å WPWP , X > = i WPWP , X > J A = ^ WPWP , X > J A = Z WPWP , X > J A J A = ¹ WPWP , X > 9 L 2 Catalog created with Unregistered Graphcat/Windows A = Å WPWP , X > J A = Z WPWP , X
M COL J $ @(I11-ELSE) , X J
M COL 2 COLUMNS , X L ' M COLUMNS L '\S|T\S|T\S|T'.1i'|M , X > = WPWP , X
@11 ' @(I11-ELSE)
' @11 , ¡ X > J
@
? A J
@
? A J
@
? A J
@
? A J
@
? A J A = y WPWP , ¢ X
6 @(ER4)
@(ER4-END)
' @(ER4)
BAD '
@(ER4-END) , £ X > N MACPATH A J r A = § WPWP , ¤ X M MACPATH L graphcat.dll
MYLINK , ¥ X > J A * L # Reading the directory listing . . . A = WPWP , ¦ X
M MYLINK L CreateDirListingFile , § M NPATH M MASK J M MACPATH L delete.me RETVAL , ¨ X
M MYLINK , © X > M MACPATH L delete.me A J A = [ WPWP , ª X > J A = WPWP , « X J , ¬
SAYBYE X
6 @(ER5)
@(ER5-END)
' @(ER5)
BYE '
@(ER5-END) , X > ' J
@
? A J
@
? A L A , ® J
@
? A J A J A J A , ¯ J
@
? A J A J A
J A = K' WPWP , ° , ± X > M MACPATH L delete.me A = } WPWP , ² X > Q J
@
? A J
@
? A I A I ø? A I @ A I @ A I @ A I @ A
I @ A I @ A I @ A = WQ WPWP , ³ X
6 @(ER6)
@(ER6-END)
' @(ER6)
BAD '
@(ER6-END) , ´ X
' CREATE , µ X LIST , ¶ X
8 @(NF1)
@(NF1-END)
' @(NF1)
BYE '
@(NF1-END) , · X > J A = é WPWP , ¸ X > L Ù
Á Á
Ù A J
@
? A J
@
? A = WPWP , ¹ X > N ENTRY A J A = § WPWP , º X > J A = é WPWP , » X > = WPWP , ¼ X > = - WPWP , ½ X
CAT , ¾ X J , ¿
SAYBYE X J J M ENTRY
] TMP , À X
M TMP
L WP}WP{ @(I12-ELSE) , Á X
# BAD , Â X
@12 ' @(I12-ELSE)
' @12 , Ã X > J A L Working on the graphic: M ENTRY A = WPWP , Ä X > J A M NPATH M ENTRY A = c WPWP , Å X > = WPWP , Æ X > J A = { WPWP , Ç X >
J
@
? A J
@
? A M HIGH A = z
WPWP , È X > = WPWP , É X > M ENTRY A = Å WPWP , Ê X > J A = é WPWP , Ë X > = - WPWP , Ì X > = WPWP , Í X > = WPWP , Î X > = C WPWP , Ï X > J A = é WPWP , Ð X > = WPWP , Ñ X > = WPWP , Ò X
# CREATE , Ó X
' BAD , Ô X
DIE , Õ X M BADCOUNT J , Ö BADCOUNT X M BADCOUNT J @(I13-ELSE) , × X > J A
L Found M ENTRY ( L ! --Not a graphic. Still running... A = WPWP , Ø X
@13 ' @(I13-ELSE) , Ù X J M BADCOUNT 2 BC , Ú X > J A
L Found M ENTRY L ; M BC L non-graphic files. A = WPWP , Û X
' @13 , Ü X LIST , Ý X > = WPWP , Þ X > L <
# CREATE , â X
' BYE , ã X
M SAYBYE J @(I14-ELSE) , ä X
7 @(ER7)
@(ER7-END)
' @(ER7) WRONG R '
@(ER7-END) , å X 8 L 1 ERROR! No files were found matching your request. M H2 R L K There are no files with the names you chose in the directory you specified. M H1 3 L , Check the path and file mask and try again. , æ M1 X M M1 M ST M H2 1 L * Add $2.00 shipping outside U.S. and Canada M H1 > L 7 Visa/Mastercard Available--Order by mail, phone, or FAX M H1 7 L 0 (410) 661-2224 (Voice and FAX) GEnie: J.Stern10 , ç MESSAGE X J , è BUTTONS X > J A = WPWP , é X > J A = Z WPWP , ê X
CAT , ë X > J A = WPWP , ì X DISP , í X # DONE , î X
@14 ' @(I14-ELSE)
' @14 , ï X M BADCOUNT J @(I15-ELSE) , ð X # NONEBAD , ñ X
@15 ' @(I15-ELSE)
' @15 , ò X LIST , ó X > = 1 WPWP , ô X > J A ! L Creating bad files list... A = WPWP , õ X > ' J
@
? A J
@
? A L A , ö J
@
? A J A J A J A , ÷ J
@
? A J A J A
J A = K' WPWP , ø X > = WPWP , ù X > L <
@
? A J
@
? A = WPWP , ú X > = / WPWP , û X > = ¡ WPWP , ü X > = WPWP , ý X > L <
@
? A J
@
? A L A J
@
? A = WPWP , þ X > = WPWP , ÿ X > = 1 WPWP , X > J A = é WPWP , X > = WPWP , X > = - WPWP , X > L Ù
Á Á
Ù A J
@
? A J
@
? A = WPWP , X > = WPWP , X > = 1 WPWP , X > = WPWP , X
CAT , X > = WPWP , X > L Non-graphics files: A = Å WPWP ,
X > = WPWP , X > = WPWP , X ' NONEBAD ,
X > = ï WPWP , X > J A L Finishing up... A = WPWP , X > = WPWP , X LIST , X > J A = WPWP , X > J A = Z WPWP , X
CAT , X > = WPWP , X > J A = WPWP , X > J A = WPWP , X = L 6 The graphics catalog is ready to view, print, or edit. M H2 L To view, select File, , M1 X M M1 a L Z Print Preview. There are tips for editing, customizing, and printing this document in the , M1 X M M1 ( L ! instruction file, GRAPHWIN.DOC. M ST M H2 1 L * Add $2.00 shipping outside U.S. and Canada M H1 > L 7 Visa/Mastercard Available--Order by mail, phone, or FAX M H1 7 L 0 (410) 661-2224 (Voice and FAX) GEnie: J.Stern10 , MESSAGE X J @ , BUTTONS X DISP , X # DONE , X ' BADPATH , X L Bad File Path! M H2 G L @ The file path that you have entered does not contain files that , M1 X M M1 À 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. , M1 X J 0 , ! BUTTONS X DISP , " X # RPATH , # X
' DIE , $ X
, % X > N MAIN A J A = § WPWP , & X M MAIN Q @(I16-ELSE) , ' X > J A = Z WPWP , ( X
# DIE , ) X
@16 ' @(I16-ELSE) X R , * X
' @16 , + X ' KILL , , X
DIE , - X 8 L 1 You have canceled the operation while incomplete. M H2 1 L * The catalog will not be properly laid out. , . M ST MESSAGE X J 0 , / BUTTONS X DISP , 0 X # DONE , 1 X ' LIST , 2 X >
N NOWDOC A J A = § WPWP , 3 X
M NOWDOC M LISTDOC 1 @(I17-ELSE) , 4 X > = + WPWP , 5 X # LIST , 6 X
@17 ' @(I17-ELSE) X R , 7 X
' @17 , 8 X
' CAT , 9 X >
N NOWDOC A J A = § WPWP , : X
M NOWDOC
M CATDOC 1 @(I18-ELSE) , ; X > = WPWP , < X
# CAT , = X
@18 ' @(I18-ELSE) X R , > X
' @18 , ? X ' DISP , @ X M MCRLINK L
MCRMessageBox J , A M MESSAGE
M TITLE0 M BUTTONS RESULT , B X R , C X ' OOPS , D X L An error has occurred. , E M H2 MESSAGE X M V1 J $ @(I19-ELSE) , F X M MESSAGE b L [ This macro has not been properly converted for WordPerfect for Windows versions beyond 5.2. M H1 & L You are running WP/WIN version M V1 L . M V2 , G M H2 MESSAGE X
@19 ' @(I19-ELSE) X M MESSAGE L This macro may have been tampered with. Replace GRAPHCAT.WCM and GRAPHCAT.DLL from the original package, or contact the author for assistance. , H MESSAGE X
' @19 , I X M MESSAGE , J M ST MESSAGE X J , K BUTTONS X DISP , L X ' WRONG , M X , N X ' DONE , O X > J A = WPWP , P X J z , Q X M MCRLINK , R X P , S X
' REG , T X J J 2 J 2 J 6 J J J
M TITLE0 y , U X J L T1 J J J " J J ? L 8 Registration for Science Translations Shareware Products v , V X J L T2 J J J " J J Z L S At each of the prompts below, type in the requested information and press Tab to go v , W X J L T3 J J J " J J \ L U to the next item. Click OK when ready to print. In the file PRODUCTS.DOC, there are v , X X J L T4 J J J " J J ] L V alternate payment methods, site license info., and contact information for the author. v , Y X J L Q1 J J - J " J J L Name v , Z X J L A1 J J 7 J J J J < h NAME , [ X J L Q2 J J F J " J J L Company name, if any. v , \ X J L A2 J J P J J J J < h COMP , ] X J L Q3 J J _ J " J J L Mailing addresss v , ^ X J L A3 J J i J J J J < h ADD1 , _ X J L Q4 J J x J " J J # L 2nd address line, if needed. v , ` X J L A4 J J J J J J < h ADD2 , a X J L Q5 J J J " J J 2 L + City, state or province, zip or postal code v , b X J L A5 J J J J J J < h AREA , c X J L Q6 J J ª J " J J L Country v , d X J L A6 J J ´ J J J J < h COUN , e X J L Q7 J J Ã J " J J # L Voice Phone OR Email address v , f X J L A7 J J Í J J J J < h WIRE , g X J , h D3 X J , i H3 X J , j D5 X J , k H5 X J L Q8 J J æ J " J J L Disk size v , l X J L R1 J J ð J 2 J L 3 1/2" DD t D3 , m X J L R2 J 3 J ð J 2 J L 3 1/2" HD t H3 , n X J L R3 J e J ð J 2 J L 5 1/4" DD t D5 , o X J L R4 J J ð J 2 J L 5 1/4" HD t H5 , p X J L P1 J ´ J - J x J
L Graphcat 1.0/Win $10. c GW , q X J L P2 J ´ J 8 J x J
L Graphcat 2.1/DOS $10. c GC , r X J L P3 J ´ J C J x J
# L Letterhead Kit 2.1/WIN $10. c LW , s X J L P4 J ´ J N J x J
# L Letterhead Kit 2.0/DOS $10. c LH , t X J L P5 J ´ J Y J x J
L Bookbild 1.0/WIN $10. c BW , u X J L P6 J ´ J d J x J
L Bookbild 1.0/DOS $10. c BB , v X J L P7 J ´ J o J x J
# L Animals 1 Clip Art #101 $5. c W1 , w X J L P8 J ´ J z J x J
# L Animals 2 Clip Art #102 $5. c W2 , x X J L P9 J ´ J J x J
% L Buildings 1 Clip Art #103 $5. c W3 , y X J
L P10 J ´ J J x J
" L People 1 Clip Art #104 $5. c W4 , z X J
L P11 J ´ J J x J
" L Plants 1 Clip Art #105 $5. c W5 , { X J
L P12 J ´ J ¦ J x J
! L Myths 1 Clip Art #106 $5. c W6 , | X J
L P13 J ´ J ± J x J
# L Animals 3 Clip Art #107 $5. c W7 , } X J
L P14 J ´ J ¼ J x J
# L Animals 4 Clip Art #108 $5. c W8 , ~ X J
L P15 J ´ J Ç J x J
# L People 2 Clip Art #109 $5. c W9 , X J
L P16 J J Ò J J
+ L $ Maryland residents add Sales Tax 5% c MD , X J
L P17 J J Ý J J
* L # Shipping outside US and Canada $2. c SH , X J L Print J Ò J ð J # J
J
L &Print s , X , M MACRODIALOGRESULT PRINT X
4 @(CA4)
@(CA4-END)
' @(CA4) DONE '
@(CA4-END) , X J L A1 { , X M MACRODIALOGRESULT M PRINT @(I1a-ELSE) , X J z , X # CHECKREG , X
@1a ' @(I1a-ELSE) X J z , X
# BIGBOX , X
' @1a , X ' CHECKREG , X > J A 3 L , Composing Registration Form.... Please Wait. A = WPWP , X > = N WPWP , X > J A = WPWP , X > L Registration Form for
M TITLE0 A = Å WPWP X > = WPWP X > = WPWP , X > J A = WPWP , X > L
Ship to: M NAME A = Å WPWP X > = WPWP , X > M COMP A = Å WPWP X > = WPWP , X > M ADD1 A = Å WPWP X > = WPWP , X > M ADD2 A = Å WPWP X > = WPWP , X > M AREA A = Å WPWP X > = WPWP , X > M COUN A = Å WPWP X > = WPWP , X > = WPWP , X > L Phone or Email: M WIRE A = Å WPWP X > = WPWP , X > = WPWP , X M D3 J @(I1b-ELSE) X > ( L ! 3 1/2" Double Density disk (720K) A = Å WPWP X
@1b ' @(I1b-ELSE)
' @1b , X M H3 J @(I1c-ELSE) X > ' L 3 1/2" High Density disk (1.44M) A = Å WPWP X
@1c ' @(I1c-ELSE)
' @1c , X M D5 J @(I1d-ELSE) X > ( L ! 5 1/4" Double Density disk (360K) A = Å WPWP X
@1d ' @(I1d-ELSE)
' @1d , X M H5 J @(I1e-ELSE) X > & L 5 1/4" High Density disk (1.2M) A = Å WPWP X
@1e ' @(I1e-ELSE)
' @1e , X > = WPWP X > = WPWP , X M GW J @(I1f-ELSE) X > & L $10.00 Graphcat 1.0 for Windows A = Å WPWP X > = WPWP X
@1f ' @(I1f-ELSE)
' @1f , X M GC J @(I20-ELSE) X > " L $10.00 Graphcat 2.1 for DOS A = Å WPWP X > = WPWP X
@20 ' @(I20-ELSE)
' @20 , ¡ X M LW J @(I21-ELSE) X > , L % $10.00 Letterhead Kit 2.1 for Windows A = Å WPWP X > = WPWP X
@21 ' @(I21-ELSE)
' @21 , ¢ X M LH J @(I22-ELSE) X > ( L ! $10.00 Letterhead Kit 2.0 for DOS A = Å WPWP X > = WPWP X
@22 ' @(I22-ELSE)
' @22 , £ X M BW J @(I23-ELSE) X > & L $10.00 Bookbild 1.0 for Windows A = Å WPWP X > = WPWP X
@23 ' @(I23-ELSE)
' @23 , ¤ X M BB J @(I24-ELSE) X > " L $10.00 Bookbild 1.0 for DOS A = Å WPWP X > = WPWP X
@24 ' @(I24-ELSE)
' @24 , ¥ X M W1 J @(I25-ELSE) X > & L $ 5.00 Wood Clips 101 Animals 1 A = Å WPWP X > = WPWP X
@25 ' @(I25-ELSE)
' @25 , ¦ X M W2 J @(I26-ELSE) X > & L $ 5.00 Wood Clips 102 Animals 2 A = Å WPWP X > = WPWP X
@26 ' @(I26-ELSE)
' @26 , § X M W3 J @(I27-ELSE) X > ( L ! $ 5.00 Wood Clips 103 Buildings 1 A = Å WPWP X > = WPWP X
@27 ' @(I27-ELSE)
' @27 , ¨ X M W4 J @(I28-ELSE) X > % L $ 5.00 Wood Clips 104 People 1 A = Å WPWP X > = WPWP X
@28 ' @(I28-ELSE)
' @28 , © X M W5 J @(I29-ELSE) X > % L $ 5.00 Wood Clips 105 Plants 1 A = Å WPWP X > = WPWP X
@29 ' @(I29-ELSE)
' @29 , ª X M W6 J @(I2a-ELSE) X > $ L $ 5.00 Wood Clips 106 Myths 1 A = Å WPWP X > = WPWP X
@2a ' @(I2a-ELSE)
' @2a , « X M W7 J @(I2b-ELSE) X > & L $ 5.00 Wood Clips 107 Animals 3 A = Å WPWP X > = WPWP X
@2b ' @(I2b-ELSE)
' @2b , ¬ X M W8 J @(I2c-ELSE) X > & L $ 5.00 Wood Clips 108 Animals 4 A = Å WPWP X > = WPWP X
@2c ' @(I2c-ELSE)
' @2c , X M W9 J @(I2d-ELSE) X > % L $ 5.00 Wood Clips 109 People 2 A = Å WPWP X > = WPWP X
@2d ' @(I2d-ELSE)
' @2d , ® X > = WPWP , ¯ X J
M GW M GC M LW M LH M BW M BB 0 J M W1 M W2 M W3 M W4 M W5 M W6 M W7 M W8 M W9 , ° 0
SUB X J
M SUB 2 S , ± X > M S L
Subtotal A = Å WPWP , ² X > = WPWP , ³ X M MD J @(I2e-ELSE) , ´ X
M SUB H ©? , µ 0 TX X J M TX 2 T , ¶ X > M T L MD Sales Tax A = Å WPWP , · X > = WPWP , ¸ X
@2e ' @(I2e-ELSE) X J , ¹ TX X
' @2e , º X M SH J @(I2f-ELSE) , » X
M SUB M TX J , ¼ TOTAL X > L $2.00 Air Mail Shipping A = Å WPWP , ½ X > = WPWP , ¾ X
@2f ' @(I2f-ELSE) X
M SUB , ¿ M TX TOTAL X > = WPWP , À X
' @2f , Á X J M TOTAL 2 T , Â X > L $US M T L Total A = Å WPWP , Ã X > = WPWP , Ä X > = WPWP , Å X > A L : Make check or money order payable to Science Translations. A = Å WPWP X > = WPWP , Æ X > ^ L W Mail form to: Jerry Stern, Science Translations, PO Box 20234, Baltimore, MD 21284-0234 A = Å WPWP , Ç X > = WPWP , È X > L Or FAX to 410-661-2224 A = Å WPWP X > = 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 > C L < MasterCard[ ] Visa [ ] Expires ______________ A = Å WPWP , Í X > = WPWP , Î X > = WPWP , Ï X > A L : Name as printed on card: _________________________________ A = Å WPWP , Ð X > = WPWP , Ñ X > = WPWP , Ò X > A L : Account Number: __________________________________________ A = Å WPWP , Ó X > = WPWP , Ô X > = WPWP , Õ X > A L : Signature: _______________________________________________ A = Å WPWP , Ö X > = 1 WPWP , × X / L ( The registration form is ready to print. M H2 L
Thank you! , Ø MESSAGE X J @ , Ù BUTTONS X 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) )
@(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 ) Z B
@(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) ) â '9 BYE ) Ó 06 BAD ) H BADPATH ) f ¸ BIGBOX ) 8
BEGIN ) BADVER ) Ýe CHECKREG ) ´ Þ/ CREATE ) 8 OM CAT ) N ?R DONE ) ? mN DISP ) # åI DIE ) + K KILL ) 1 0L LIST ) µC NONEBAD ) 3 ? NICETRY ) C ,O OOPS ) S ÐR REG ) ; ÷
RPATH ) L R WRONG B C WPWP ûÿ 2 7§ Õ« ï´ " Shé
ôÓÿÿÿÿÿÿÿÿÿÿÿÿ^1AVSS777S7777SSSSSSSSSS77¦¦SoooxoexASoexxeuo\exooee777SS7SSJSJ:S\..S.\SSSAA.\JoSJASSS¦Ï% %% 7%%%7 7 %%%%%% S%S. oSoSoSoSoSuoJoJoJoJoJA.A.A.A.x\xSxSxSxSx\x\x\x\eJoSxSxSxSeJxSeSoSoSoSoJoJoJoJxSoJoJoJoJxSxSxSxSxSxS\\A.ASA.ASYS.oSe7e.e.e:e.x\ {x\x\xSxS²{oAoAoA\A\A\A\Ae.e.e.x\x\x\x\ x\oeJeAeA7 SS 7 77/¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦NxxxS SSASJJSSSSSS7SSSS7 77 YYS..¦¦SSee~¦S¦SxS ___ S7Y S Ë 7"¦¦¦¦xx¦¦¦Sx¦¦ixx ¦¦ S妦¦ S77¦¦¦¦¦xe¦xxxxxxxxxx 7¦SoS\<¦x¦oS7SxJS_xr¦¦xxxxxxxxxx¦¦¦¦¦P¦xxxx¦¦¦¦¦¦¦¦¦¦¦¦¦ ¦¦¦x¦¦xx¦¦¦¦¦¦oe¦x¦ ¦¦ Gb xxxx ¦¦ ¦ ¦¦ ¦ÝxxxSxx¦xx¦¦¦ xx xS xxxxS xxxxx xxx xxx xxx xxxxxxxxxxxxxx x xxxxxx xxxxxxxxx7 xxx7 xxx7 xxx7 xxx7 7 7 ¦ ¦ ¦ ¦ ¦ S ¦ ¦ x xxxx xxx xÅoeo\ e\oJoAeJJxJA.oJo\\xJoSxJxeeSeSeSeJeJoeo\eeeooAAxeeeJe e ee 77<<< < o AAA eee e 7 eSJ7" â ®°øÆ ÿÿÿÿÿÿÿÿÿÿÿÿ^ v Ï Ç Ç b6 Ç b Ç Ç Ç Ç Ç Ç Ç Ç Ç Ç bÇ b
ó 6 Ç
ó b ó
Ý ó
b
ó ó Ç Ç Ç Ç ± Ç ± Ç Ý o o Ç o 6Ý Ç Ç Ç o Ý ±
Ç ± Ç Ç Ç Ï Y Y Y Y Y Y Y Y Y Y Y Y Ç Y Ç o
Ç
Ç
Ç
Ç
Ç q
±
±
±
±
± o o o o Ý Ç Ç Ç Ç Ý Ý Ý Ý ó ±
Ç Ç Ç Ç ó ± Ç ó Ç
Ç
Ç
Ç
±
±
±
± Ç
±
±
±
± Ç Ç Ç Ç Ç Ç 6Ý 6Ý o Ç o Ç bÖ Ç o
Ç ó ó o ó o ó ó o Ý ' Ý Ý Ç Ç ¬'
Ý Ý Ý Ý ó o ó o ó o Ý Ý Ý Ý Ý b
ó ± ó ó Ç Ç / N Ç Ç Ç Ç ± ± Ç Ç bÇ Ç Ç bbÇ Ç Ç Ç Ç b Ö Ö Ç bo o Ç Ç ó ó .Ç Ç Ç å LLå å b Ç Ö Ç b ç " Ç û bb Ç å bb 3 bÇ ó b Ç
Ç Ý b
Ç Ç ± Ç å 6 À [
ó 6 ª ì Ý Ç Ç Ç 3 Ç Å
ó
Ý ó Ý
±
ó ± 6± ± o
±
Ý bÝ ±
Ç ± ó ó Ç ó Ç ó Ç ó ± ó ±
ó
Ý 6ó ó ó
6 ó ó ó ± ó ó ó ó
6 ó ó ó ó ó Ç ± //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:"<
SearchScope:Extended!)
PosLineEnd()
SelectDocBottom()
DeleteCharNext()
SearchReplace(SearchString:"<
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@)
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/