Category : Word Perfect
Archive : GCATWPW1.ZIP
Filename : INDEX.WCM
Output of file : INDEX.WCM contained in archive : GCATWPW1.ZIP
ûÿ 2
B V P Z ¦
Courier 10cpi ÿÿ ? x x x
^ôx þ6X @É 8ó X@ÿÿÿþþþþÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDOS Text Printer DOTEXPRI.PRS Ûx
@É Ï Y$X@Ð Ðûÿ 2 < v L p  k 2 3| x a8Document g ÁDocument Style Style º  X ÂÂX` ` ÂÆÐ ` Æ
a4Document g Document Style Style Ø ªÖ Á ÁÃ ÃÃÃ.ÄÄ Ä Äa6Document g ÁDocument Style Style ½³ G ÂX ÂÆÐ Æ
ûÿ 2 ï k Ï ¥ : v ß U a5Document g ÁDocument Style Style }± Â X ÂÆ(#Æ
a2Document g Document Style Style < ño Ç
Ô ? È Ôà ÃØ A. Ø ÃÃ× ×× ×
Ä ÄÄÄa7Document g ÁDocument Style Style yý Â X ÂÂ X` ` ÂÆ(#` Æ
a1Right Par ÁRight-Aligned Paragraph Numbers : ` S Á@ ÁØ I. Ø Á°°
ÁÂ X ÂÆ(#Æ
ûÿ 2 Ì £ !
§ Ä ¬ k µ a2Right Par ÁRight-Aligned Paragraph Numbers C ýö Á ÁÁ@ø` ÁØ A. Ø Á ÁÂ °` ` ÂÆ(#` Æ
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. Ø Á¸ ¸ Á ` ÂÆ(#Æ
ûÿ 2 .
¿ þ È ½ Ð Ù U
a5Right Par ÁRight-Aligned Paragraph Numbers
_ oã Á ÁÁ` ` ÁÁ¸ ¸ ÁÁ ÁÁ@h ÁØ (1) Ø Á Á ¸ hh# ÂÆ(#hÆ
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Æ
ûÿ 2 ì
Ð ` 0 · ® >
a1Document g Document Style Style \ ºÌ s0 Ù Ù
Ô
z N È ¥ ÔÁà8ìFÁÃÃà Ã× ×Ø I. Ø Ù ÙÙ Ù× ×
ÄÄÄ Äa5Technical Technical Document Style ) WÙ D¾ Á ÁÃ ÃØ (1) Ø . Ä Äa6Technical Technical Document Style ) à DÂ Á ÁÃ ÃØ (a) Ø . Ä Äa2Technical Technical Document Style < 6ó èí
Ô ? È Ôà ÃØ A. Ø ÃÃ× ×× ×ÄÄ
Á ÁÄ Äûÿ 2 ³ § ¦ Å Â k - a3Technical Technical Document Style 9 W ¢g
Ô 2 È ÔÃ ÃØ 1. Ø × ×× ×
Á ÁÄ Äa4Technical Technical Document Style 8 bv ¢{ Ô 2 ÔÃ ÃØ a. Ø × ×× ×
Á ÁÄ Äa1Technical Technical Document Style F ²è! <
Ô ? È ÔÃÃà Ã× ×Ø I. Ø Ù ÙÙ Ù× ×
ÄÄÁ ÁÄ Äa7Technical Technical Document Style ( @ DÆ Á ÁÃ ÃØ i) Ø . Ä Äûÿ 2 å k õ( : a8Technical Technical Document Style ( à DË Á ÁÃ ÃØ a) Ø . Ä ÄÉ,& US WPWP DF e:\wpwin52\macros\index.wcm cm W% ä( , , , , X , , X > J A = = WPWP , X
4 @(CA1)
@(CA1-END)
' @(CA1) DONE '
@(CA1-END) , X 1 L * Index--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 L
WPCMCR.DLL MCRLINK , X
6 @(ER1)
@(ER1-END)
' @(ER1) OOPS '
@(ER1-END) , X
4 @(CA3)
@(CA3-END)
' @(CA3) DONE '
@(CA3-END) , X J J 2 J 2 J 6 J ë J J J
M TITLE0 y , X J L T1 J J J " J J a L Z INDEX creates a list of the files in the directory that you specify, in a form that can be v , X J L T2 J J
J " J J ^ L W used in a database. When the list is completed, you may run Index again to add another v , X J L T3 J J J " J J _ L X list below the existing list, or you may save the file as ASCII Text (DOS): choose File, v , X J L T4 J J J " J J [ L T Save As... from the menu. At each of the prompts below, type in the answer and press v , X J L T5 J J % J " J J W L P Tab to go to the next item. In the file GRAPHWIN.DOC, there are instructions for v , ! X J L T6 J J - J " J J V L O importing the new file into a database program, and a trouble-shooting section. v , " X J L Q1 J # J A J " J J S L L Enter the drive:\path to search. (Location of files) v , # X J L A1 J A J K J J J J J ( h PATH , $ X J L Q2 J # J Z J " J J U L N Enter the file mask. (file.extension, default *.*) v , % X J L A2 J A J d J J J J J h MASK , & X J L Q3 J # J s J " J J O L H Enter the title for the group of files. (default `Files in _______') v , ' X J L A3 J A J } J J J J J J ( h TITLE , ( 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 , + X J
L ST4 J J ¨ J " J J 1 L * Add $2.00 shipping outside U.S. and Canada v , , X J
L ST5 J J ° J " J J > L 7 Visa/Mastercard Available--Order by mail, phone, or FAX v , - 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 , . X
4 @(CA4)
@(CA4-END)
' @(CA4) DONE '
@(CA4-END) , / X
' BIGBOX , 0 X J L A1 { , 1 X M MACRODIALOGRESULT J
@(I2-ELSE) , 2 X @2 '
@(I2-ELSE) , 3 X # DONE , 4 X ' @2 , 5 X M MASK Z SIZE , 6 X M SIZE J *
@(I3-ELSE) , 7 X
L *.* , 8 MASK X @3 '
@(I3-ELSE) X L . M MASK ^ T , 9 X M T J
@(I4-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
@(I5-ELSE) , ? X # DONE , @ X @5 '
@(I5-ELSE) , A X
# BIGBOX , B X ' @5 X @4 '
@(I4-ELSE) ' @4 X ' @3 , C X M PATH Z SIZE , D X M SIZE J *
@(I6-ELSE) , E X , F X c L \ The drive:\path is the location that Index will search for files. You cannot leave it blank. , G MESSAGE X J 5 , H BUTTONS X DISP , I X
M RESULT J
@(I7-ELSE) , J X # DONE , K X @7 '
@(I7-ELSE) , L X
# BIGBOX , M X ' @7 , N X @6 '
@(I6-ELSE) ' @6 , O X J M SIZE J ` M PATH ] VAR2 , P X L Var2 L \
@(I8-ELSE) , Q X , R M PATH NPATH X @8 '
@(I8-ELSE) , S X M PATH L \ , T NPATH X ' @8 , U X M TITLE Z SIZE , V X M SIZE J *
@(I9-ELSE) , W X L Files in M NPATH , X M MASK TITLE X @9 '
@(I9-ELSE) ' @9 , Y X > N MACPATH A J r A = § WPWP , Z 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 > = WPWP , ` X > L A = Å WPWP , a X > M MACPATH L delete.me A J A J A = \ WPWP , b X > M MACPATH L delete.me A = } WPWP , c X > = WPWP , d X > = WPWP , e X > N RT A J q A = § WPWP , f X M RT L
@(Ia-ELSE) , g X # BADPATH , h X @a '
@(Ia-ELSE) ' @a , i X
8 @(NF1)
@(NF1-END)
' @(NF1) BADPATH '
@(NF1-END) , j X > = Ë WPWP , k X L |Z , l X > L Ù
Ù A J
@
? A J
@
? A L , M TITLE L Ù
Ù A J
@
? A = WPWP , m X > = Ë WPWP , n X L |Z , o X > L Ù
Á Á
Ù A J
@
? A J
@
? A L , A J
@
? A = WPWP , p X > = WPWP , q X # DONE , r X ' BADPATH , s X L ERROR! M H2 ð L é The file path that you have entered is not valid, or there are no matching files. The path name should include only the drive letter and subdirectory name. The mask should be no longer than twelve letters, and wild cards may be used. , t MESSAGE X J 5 , u BUTTONS X DISP , v X
M RESULT J
@(Ib-ELSE) , w X
# BIGBOX , x X @b '
@(Ib-ELSE) X # DONE , y X ' @b , z X ' DISP , { X M MCRLINK L
MCRMessageBox J , | M MESSAGE
M TITLE0 M BUTTONS RESULT , } X R , ~ X ' OOPS , X L An error has occurred. , M H2 MESSAGE X M V1 J $
@(Ic-ELSE) , 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 , M H2 MESSAGE X @c '
@(Ic-ELSE) , X M MESSAGE ] L V The error should not have occurred. The macro or DLL file may have been tampered with. , MESSAGE X ' @c , X M MESSAGE , M ST MESSAGE X J , BUTTONS X , X DISP , X ' DONE , X M MCRLINK , X P ( * ) $ @c ) ò#
@(Ic-ELSE) ) y ! @b ) x d!
@(Ib-ELSE) ) i
@(NF1-END) ) i ù @(NF1) ) h  @a ) h ¹
@(Ia-ELSE) ) X å @9 ) X Ü
@(I9-ELSE) ) T @8 ) R Ô
@(I8-ELSE) ) N @6 ) M ç @7 ) K ¹
@(I7-ELSE) ) N
@(I6-ELSE) ) B @4 ) B ö @5 ) @ È
@(I5-ELSE) ) B
@(I4-ELSE) ) B * @3 ) 8 !
@(I3-ELSE) ) 4 @2 ) 2 X
@(I2-ELSE) ) . ·
@(CA4-END) ) . @(CA4) ) è
@(CA3-END) ) Ì @(CA3) )
@(ER1-END) ) y @(ER1) ) @1 ) G
@(CA2-END) ) ) @(CA2) )
@(I1-ELSE) ) Ç
@(CA1-END) ) « @(CA1) ) r BADPATH ) / Ð BIGBOX ) Ø BADVER ) z ! DISP ) %% DONE ) ~ ^" OOPS B C WPWP Ô Ô//INDEX.WCM Shareware evaluation version
//creates a listing of file names in a directory
// ÀÀ1993 Jerry L. Stern --All Rights Reserved
Application( WP;WPWP;default; "wpwpus.wcd" )
//Graphcat for Windows Version 1.0
RevealCodes(0)
OnCancel(done@)
Title0:="Index©©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
DLLLoad(MCRLink;"WPCMCR.DLL")
OnError(Oops@)
OnCancel(Done@)
DialogDefine(1; 50; 50; 310; 235; 1+2+16; Title0)
DialogAddText(1; "T1"; 5; 5; 290; 8; 4; "INDEX creates a list of
the files in the directory that you specify, in a form that can
be")
DialogAddText(1; "T2"; 5; 13; 290; 8; 4; " used in a database.
When the list is completed, you may run Index again to add
another")
DialogAddText(1; "T3"; 5; 21; 290; 8; 4; "list below the existing
list, or you may save the file as ASCII Text (DOS): choose
File,")
DialogAddText(1; "T4"; 5; 29; 290; 8; 4; "Save As... from the
menu. At each of the prompts below, type in the answer and
press")
DialogAddText(1; "T5"; 5; 37; 290; 8; 4; "Tab to go to the next
item. In the file GRAPHWIN.DOC, there are instructions for")
DialogAddText(1; "T6"; 5; 45; 290; 8; 4; "importing the new file
into a database program, and a trouble©shooting section.")
DialogAddText(1; "Q1";35; 65; 290; 8; 1; "Enter the drive:\path
to search. (Location of files)")
DialogAddEditBox(1; "A1"; 65; 75; 150; 12; 1+128; path; 40)
DialogAddText(1; "Q2"; 35; 90; 290; 8; 1; "Enter the file mask.
(file.extension, default *.*)")
DialogAddEditBox(1; "A2"; 65; 100; 150; 12; 1+128; Mask; 12)
DialogAddText(1; "Q3"; 35; 115; 290; 8; 1; "Enter the title for
the group of files. (default `Files in _______')")Ô " h) 0*0*0*°°7
" ÔDialogAddEditBox(1; "A3"; 65; 125; 150; 12; 1+32+4096; Title; 40)
DialogAddText(1; "ST"; 5; 144; 290; 8; 4; "Did you register and
receive your free bonus disk?")
DialogAddText(1; "ST2"; 5; 152; 290; 8; 4; "Send $10 to Jerry
Stern, P.O. Box 20234, Baltimore, MD 21284©0234")
DialogAddText(1; "ST3"; 5; 160; 290; 8; 4; "ÀÀ1993 Jerry Stern©ªAll Rights Reserved")
DialogAddText(1; "ST4"; 5; 168; 290; 8; 4; "Add $2.00 shipping
outside U.S. and Canada")
DialogAddText(1; "ST5"; 5; 176; 290; 8; 4; "Visa/Mastercard
Available--Order by mail, phone, or FAX")
DialogAddText(1; "ST6"; 5; 184; 290; 8; 4; "(410) 661-2224 (Voice
and FAX) GEnie: J.Stern10 Internet: [email protected]")
ONCANCEL(done@)
Label(Bigbox@)
DialogDisplay(1; "A1")
If(MacroDialogResult=1)
Else
Go(done@)
EndIf
StrLen(Size; mask)
If(size<1)
mask:="*.*"
Else BytePos(t; "."; mask)
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; path)
If(size<1)
BEEP
Message:="The drive:\path is the location that Index will search
for files. You cannot leave it blank."
Buttons:=53
Call (Disp@)
If(result=2)
Go(done@)
Else
GO(bigbox@)
EndIf
EndIf
SubStr(var2; 1; size©1; path)
If("Var2"="\")
npath:=path
Else
npath:=path+"\"
EndIfÔ " h) 0*0*0*°°7
" ÔStrLen(Size; title)
If(size<1)
title:="Files in "+npath+mask
EndIf
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)
PosDocBottom()
Type(" ")
FileRetrieve(macpath+"delete.me"; 1; 1)
FileDelete(macpath+"delete.me")
DeleteCharPrevious()
PosCharNext()
GetWPData(rt; 113)
If (rt="")
Go(BadPath@)
EndIf
OnNotFound(BadPath@)
SearchReplaceDlg()
SendKeys ("|Z"; 0)
SearchReplace(SearchString:"Ù
Ù"; SearchDirection:Forward!;
ReplacementScope:1; ReplacementString:","+Title+"Ù
Ù";
ReplacementAction:ReplaceAll!)
SearchReplaceDlg()
SendKeys ("|Z"; 0)
SearchReplace(SearchString:"Ù
Á Á
Ù"; SearchDirection:Backward!;
ReplacementScope:1; ReplacementString:",";
ReplacementAction:ReplaceAll!)
PosDocBottom()
Go(Done@)
LABEL(badpath@)
Message:=" ERROR!"+ H2 +"The file path that you have entered is
not valid, or there are no matching files. The path name should
include only the drive letter and subdirectory name. The mask
should be no longer than twelve letters, and wild cards may be
used."
Buttons:=53
Call(Disp@)
If (Result=4)
Go(Bigbox@)
Else Go(Done@)
EndIf
Label(Disp@)
DllCALL(MCRLink;"MCRMessageBox";Result:Word;{LoWord(0);
AnsiString(Message);AnsiString(Title0);(Buttons)})
Return
Label(Oops@)
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Ô " h) 0*0*0*°°7
" Ô WP/WIN version "+v1+"."+v2+H2
Else
Message:=message+"The error should not have occurred. The macro
or DLL file may have been tampered with."
EndIf
Message:=message+ST
Buttons:=16
Beep
Call(Disp@)
Label(Done@)
DLLFree(MCRLink)
Quit
Ð Ð
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/