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

 
Output of file : INDEX.WCM contained in archive : GCATWPW1.ZIP
ÿWPC‚:
ûÿ2
BVP Z¦
Courier 10cpiÿÿ‰?xxx
›^ôxþ6X@ɓ8ó X@ÿÿÿþþþþÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿDOS Text PrinterDOTEXPRI.PRSÛx Œ
@ɇÏY$†X@ÐÐûÿ2<vLpÂk23|xa8DocumentgÁDocument Style Styleº ŠÂXÂÂX` ` ÂÆÐ ` Æ

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

ûÿ2ïkÏ¥:vßšUa5DocumentgÁDocument Style Style }±­ÂXÂÆ(#Æ

a2DocumentgDocument Style Style<ño Ç
Ô ‰?È Ôà Ã؁A.Ø ÃÃ××××

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

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

ûÿ2Ì £!
§Ä ¬k µa2Right ParÁRight-Aligned Paragraph Numbers Cýö ÁÁÁ@ø` ÁØ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.Ø ƒÁ€¸ ¸ ÁÂ` ÂÆ(#Æ

ûÿ2.
¿þȽЅ ÙU
a5Right ParÁRight-Aligned Paragraph Numbers
_oãÁÁÁ` ` ÁÁ¸ ¸ ÁÁÁÁ@ˆhÁØ(1)Ø ƒÁ€Á¸ hh#ÂÆ(#hÆ

a6Right ParÁRight-Aligned Paragraph NumbershÎÁÁÁ` ` ÁÁ¸ ¸ ÁÁÁÁhh#ÁÁ@àÀ$ÁØ(a)Ø ƒÁ€hh#ÁÂÀÀ(ÂÆ(#ÀÆ

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

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

ûÿ2ì
Ð` ‡0 ‡· ®>
a1DocumentgDocument Style Style\ºÌs0ÙÙ
Ô
zNÈ¥ÔÁà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 Style9W¢g
Ô –2È Ôà ÃØ‚1.Ø ××××
ÁÁÄ Äa4TechnicalTechnical Document Style8bv¢{Ô –2 Ôà Ã؃a.Ø ××××
ÁÁÄ Äa1TechnicalTechnical Document StyleF²è!<
Ô ‰?È ÔÃÃà Ã××Ø€I.Ø ÙÙÙÙ××

ÄÄÁÁÄ Äa7TechnicalTechnical Document Style(@DÆÁÁà Ã؆i)Ø . Ä Äûÿ2†å kõ(‹€:a8TechnicalTechnical Document Style(àDËÁÁà Ã؇a)Ø . Ä ÄÉ,&USWPWPDFe:\wpwin52\macros\index.wcmcmW%ä(,,,,X,,X>JA==WPWP,X
4@(CA1)
@(CA1-END)
'@(CA1) DONE'
@(CA1-END),X1L*Index--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,XL
WPCMCR.DLLMCRLINK,X
6@(ER1)
@(ER1-END)
'@(ER1) OOPS'
@(ER1-END),X
4@(CA3)
@(CA3-END)
'@(CA3) DONE'
@(CA3-END),XJJ2J2J6JëJJJ
MTITLE0y,XJ LT1JJJ"JJaLZINDEX creates a list of the files in the directory that you specify, in a form that can bev,XJ LT2JJ
J"JJ^LW used in a database. When the list is completed, you may run Index again to add anotherv,XJ LT3JJJ"JJ_LXlist below the existing list, or you may save the file as ASCII Text (DOS): choose File,v,XJ LT4JJJ"JJ[LTSave As... from the menu. At each of the prompts below, type in the answer and pressv, XJ LT5JJ%J"JJWLPTab to go to the next item. In the file GRAPHWIN.DOC, there are instructions forv,!XJ LT6JJ-J"JJVLOimporting the new file into a database program, and a trouble-shooting section.v,"XJ LQ1J#JAJ"JJSLLEnter the drive:\path to search. (Location of files)v,#XJ LA1JAJKJ–J JJ€J( hPATH,$XJ LQ2J#JZJ"JJULNEnter the file mask. (file.extension, default *.*)v,%XJ LA2JAJdJ–J JJ€J hMASK,&XJ LQ3J#JsJ"JJOLHEnter the title for the group of files. (default `Files in _______')v,'XJ LA3JAJ}J–J JJ JJ( hTITLE,(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,+XJ
LST4JJ¨J"JJ1L*Add $2.00 shipping outside U.S. and Canadav,,XJ
LST5JJ°J"JJ>L7Visa/Mastercard Available--Order by mail, phone, or FAXv,-XJ
LST6JJ¸J"JJTLM(410) 661-2224 (Voice and FAX) GEnie: J.Stern10 Internet: [email protected]v,.X
4@(CA4)
@(CA4-END)
'@(CA4) DONE'
@(CA4-END),/X
'BIGBOX,0XJ LA1{,1XMMACRODIALOGRESULTJ
@(I2-ELSE),2X @2'
@(I2-ELSE),3X #DONE,4X '@2,5X MMASK ZSIZE,6X MSIZEJ*
@(I3-ELSE),7X
L*.*,8 MASKX @3'
@(I3-ELSE)XL. MMASK^T,9XMTJ
@(I4-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
@(I5-ELSE),?X #DONE,@X @5'
@(I5-ELSE),AX
#BIGBOX,BX '@5X @4'
@(I4-ELSE) '@4X '@3,CX MPATH ZSIZE,DX MSIZEJ*
@(I6-ELSE),EX,FXcL\The drive:\path is the location that Index will search for files. You cannot leave it blank.,GMESSAGEXJ5,HBUTTONSX DISP,IX
MRESULTJ
@(I7-ELSE),JX #DONE,KX @7'
@(I7-ELSE),LX
#BIGBOX,MX '@7,NX @6'
@(I6-ELSE) '@6,OXJ MSIZEJ` MPATH ]VAR2,PX LVar2L\
@(I8-ELSE),QX,R MPATH NPATHX @8'
@(I8-ELSE),SX MPATHL\,T NPATHX '@8,UX MTITLE ZSIZE,VX MSIZEJ*
@(I9-ELSE),WXL Files in MNPATH,X MMASK TITLEX @9'
@(I9-ELSE) '@9,YX>NMACPATHAJrA=§WPWP,ZXMMACPATHL graphcat.dll
MYLINK,[X>JA*L#Reading the directory listing . . .A =˜WPWP,\X
MMYLINKLCreateDirListingFile,] MNPATH MMASKJMMACPATHL delete.meRETVAL,^X
MMYLINK,_X>=‰WPWP,`X>L A =ÅWPWP,aX>MMACPATHL delete.meAJAJA=\WPWP,bX>MMACPATHL delete.meA=}WPWP,cX>=WPWP,dX>=WPWP,eX> NRTAJqA=§WPWP,fX MRTL
@(Ia-ELSE),gX#BADPATH,hX @a'
@(Ia-ELSE) '@a,iX
8@(NF1)
@(NF1-END)
'@(NF1)BADPATH'
@(NF1-END),jX>=ËWPWP,kX L|Z†,lX>L Ù
ÙA J
@
?AJ
@
?AL, MTITLEL Ù
ÙA J
@
?A=ˆWPWP,mX>=ËWPWP,nX L|Z†,oX>LÙ
ÁÁ
ÙA J
@
?AJ
@
?AL,A J
@
?A=ˆWPWP,pX>=‰WPWP,qX #DONE,rX'BADPATH,sXL ERROR! MH2ð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.,tMESSAGEXJ5,uBUTTONSX DISP,vX
MRESULTJ
@(Ib-ELSE),wX
#BIGBOX,xX @b'
@(Ib-ELSE)X #DONE,yX '@b,zX 'DISP,{XMMCRLINKL
MCRMessageBoxJ,|MMESSAGE
MTITLE0MBUTTONSRESULT,}XR,~X 'OOPS,XLAn error has occurred.,€ MH2MESSAGEX MV1J$
@(Ic-ELSE),XMMESSAGEbL[This macro has not been properly converted for WordPerfect for Windows versions beyond 5.2. MH1&LYou are running WP/WIN version  MV1L. MV2,‚ MH2MESSAGEX @c'
@(Ic-ELSE),ƒXMMESSAGE]LVThe error should not have occurred. The macro or DLL file may have been tampered with.,„MESSAGEX '@c,…XMMESSAGE,† MSTMESSAGEXJ,‡BUTTONSX,ˆX DISP,‰X 'DONE,ŠXMMCRLINK,‹XP(*)„$@c)‚ò#
@(Ic-ELSE))yˆ!@b)xd!
@(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)2X
@(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)~^"OOPSB CWPWPÔÔ//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
ÐÐ

  3 Responses to “Category : Word Perfect
Archive   : GCATWPW1.ZIP
Filename : INDEX.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/