Category : Word Perfect
Archive   : COACH6.ZIP
Filename : WPCH_MG0.WPM

 
Output of file : WPCH_MG0.WPM contained in archive : COACH6.ZIP

ÿWPC³#
 0(x;˜žì6 "
(
.
#4
 “UC €[ %Û  /á "{  ‹ 
ü—
Ÿ!`¯ ) ¾ ¾" Ž! ŽOverviewDlgyž#y¦-Iyˆ-Eÿd-Byä% –$ –Nodocsy¦
Message( î'` & îyøMessage
5â^"a e a}aƒ%”æ°%ÄaÚaà æ÷3• ½ ú 
@-bio
Ã-åì-ò©œçœç @P @j@s @€A¨
A´A
^Aä
Aï
)AH
ASA—
A¢Bò D -J “
@¡
@¹
 AÎ

AÙ

A
A 
AX
Ac 
AŸ
Aª 
BË )ò    < ]ÿÿÈ@ÿÿÈ@ÿÿ[email protected]Apple LaserWriter IINTXuÌkeskuuÌheinkuuÌelokuuÌAPLW2NTX.PRShhhhhhhhðÿHÀÎtz´¢D< Œ
9p`(' É Labels


0
.



X<Ô6X9`+Courier”/‰?xxx°XXx,ÄþÿþÿþÿþÿþÿþÿþÿÿÿþÿÿÿÿÿÿÿþÿÿÿÿÿþÿÿÿÿÿÿÿþÿÿÿþÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿþÿþÿþÿÿÿÿÿâP^}”°ÄÚæ÷3b¥´ÌØæú (@bio‹£Ãåìò©ÈÑç:?P¨^ä)H—ò , D J “
¡
Î
 X Ÿ Ë Ò ò   4 <]ÿÿÿÿPCUS=3wpchlibr.wpmC=3 ScreenSetup=68 ÿÿÿÿ=2@=&ÿÿÿÿNodocs=.æ=&&'=2@= ÿÿÿÿ=
.= = 3ScrnMode3MsgAdj3DefTitle3CancelMsg=
3HotElement3SaveScrn3StndAlone3Formfile=3DefTitle3Coach=3Title3Labels=3ScrnMode6•2B=3CancelMsg2=3 ColorScheme=3MsgAdj3 DlgMessage€=3 OverviewDlg=4Result2 ÿÿÿÿ =3StndAlone2=3wpchlb01.wpm=9= ÿÿÿÿ=4Result2 ÿÿÿÿ"=3StndAlone2=3Formfile3Labels=3wpchmg01.wpm=9= ÿÿÿÿ!= 9=!="
3Var2
2=#
3Var2
2=$.œ=%2
=& 3tbox<2ç3 Message='3w2F=(3h2=)3Result4DefTitle2222ÿÿ2ÿÿ4w4h@=*2/3Quit...rüEsc‚ü24w2B4h2B2ÿÿ2ÿÿ@=+3x2 ÿÿÿÿ# 3tbox2 3x4x24x 3tbox2 2Rÿÿÿÿ-E=,2/ 3tbox4x 2ÿÿ24x24w2B2@=-ˆ-I=.2
3lbo 3~Labels (only)2ÿÿ222ÿÿ2ÿÿ@=/2
3lbm"3Labels (~merge)2ÿÿ222ÿÿ2ÿÿ@=0@=14Result2# ÿÿÿÿ%=23 QuitCoach=3 ÿÿÿÿ$=49=5=63novar3Coach22ÿÿ2ÿÿ2/2 @=72/P3The coach needs at least one available2ÿÿ222ÿÿ2ÿÿ@=82/L3document screen to run. Exit one or2ÿÿ222ÿÿ2ÿÿ@=92/R3more of your documents and then run the2ÿÿ222ÿÿ2ÿÿ@=:2/3coach again.2ÿÿ222ÿÿ2ÿÿ@=;@=<3 QuitCoach==
IMsg Itbox<=>
4Msg=?2ç ÿÿÿÿ(=@ 3tbox 3tbox2
Z3 rüCreating Labels‚ü 3tbox2
3 3tbox2
N3 There are two ways to create labels: 3tbox2
3 3tbox2
†3 --easier and faster but limited to labels. 3tbox2
3 3tbox2
x3 --uses a DATA file that can produce 3tbox2
v3 labels, form letters, envelopes, 3tbox2 
j3 business directories, etc. 3tbox2

3 3tbox2 
63 Select one of the above. 3tbox2 
32
2 =A ÿÿÿÿ&=B9l˜S˜Ð#|xT þÿ"ÿÿBDÿÿOÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿñÿƒó?ÿÿÿÿÿüÿÿÿÿÿ¿?ËüóÿÿÿÏÿÿÏÿð=ÀàK—ûûíùÀƒ'À€ ($¡¡A æÿú  ¾ ¾" Ž! ŽOverviewDlgyž#y¦-Iyˆ-Eÿd-Byä% –$ –Nodocsy¦
Message( î'` & îyøÝ
ƒ!ÝÝ W ÝÒh°ÒÒh°Ò//*********************************************Ì//Ì//à À àNAME:à p àà È
àà
àWPCH_MG0.WPMÐ @ Ð//à À àÐ X Ð//à À àPURPOSE:à p àCoach€on€Form€FileÐ Ð  Ð//Ì//à À àAUTHOR:à p àà È
àBrent€Standing,€WordPerfect€Corp.Ð ` ° Ð//Ì//*********************************************ÌÌ//€Revision€HistoryÌ//Ì//ÌUse("wpchlibr.wpm")à È
àà
àà x àà Ð à//€Shared€library€fileÐ Ø(
 ÐScreenSetup()ÌIf(NOT(?DocBlank))Ìà À àError(On!)Ìà À àONERROR(Nodocs)Ìà À àFilenewÌà À àONERROR()Ìà À àError(Off!)ÌElseÌà À àClearDoc()ÌEndIfÌGlobal(ScrnMode;MsgAdj;DefTitle;CancelMsg)ÌGlobal(HotElement;SaveScrn;StndAlone;Formfile)ÌDefTitle="Coach"à È
à//€Main€title€nameÐ P ÐTitle="Labels"ÌScrnMode=?ScreenHigh„24ÌCancelMsg=1ÌColorScheme()ÌMsgAdj=DlgMessage()ÌCall(OverviewDlg)ÌIf(Result€=€14)Ìà À àStndAlone=1Ìà À àChain("wpchlb01.wpm")Ìà À àReturnÌEndifÌIf(Result€=€15)Ìà À àStndAlone=1Ìà À àFormfile€=€"Labels"Ìà À àChain("wpchmg01.wpm")Ìà À àReturnÌEndifÌReturnÐ  '`", Ð//*********************************************Ì//Ì//à À àMAIN€PROGRAM:€CoachÐ @ Ð//Ì//*********************************************ÌLabel(OverviewDlg)Ìà À àVar[1]=0€Var[2]=0€Ìà À àWindowMaximizeÌà À àCancel(Off!)Ìà À àMessage(&tbox;999)Ìà À àw=70€h=16Ìà À àDlgCreate(Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!;;;w;h)Ìà À àà  àDlgControl€(CtrlPushButton!;;"Quit...Ô> rü Ô[Bold€On]Ô?

ÔEscÔ> ‚ü Ô[BoldÏOff]Ô?

Ô";StyCancel!;w„15;h„2)à x àÐ Ø(
 Ðà À àà  àForNext(x;1;tbox[0])à Ð àà ( àà € à//Add€Welcome€MessageÐ  ð
 Ðà À àà  àà p àDlgControl(CtrlLabel!;;tbox[x];;2;x+1;w„1;1)Ìà À àà  àEndforÌà À àà  àDlgControl(CtrlRadioButton!;lbo;"~Labels€(only)";;3;6)Ìà À àà  àDlgControl(CtrlRadioButton!;lbm;"Labels€(~merge)"ñTñÔ%
€
ÔñTñ;;3;8)Ìà À àDlgEndÌà À àIf€(Result=„1)Ìà À àà  àQuitCoach()Ìà À àEndifÌReturnÌ//*********************************************Ì//à À àEND€MAIN€PROGRAMÐ 8ˆ Ð//*********************************************Ð  P Ð//*********************************************Ì//Ì//à À àSUBROUTINE:€NodocsÐ @ Ð//Ì//*********************************************ÌLabel(Nodocs)ÌDlgCreate(novar;"Coach";DlgNoCancel!;;;47;9)ÌDlgControl(ctrllabel!;;"The€coach€needs€at€least€one€available";;2;2)ÌDlgControl(ctrllabel!;;"document€screen€to€run.€€Exit€one€or";;2;3)ÌDlgControl(ctrllabel!;;"more€of€your€documents€and€then€run€the";;2;4)ÌDlgControl(ctrllabel!;;"coach€again.";;2;5)ÌDlgEndÌQuitCoach()Ð  `  ÐProcedure€Message(&tbox;Msg)ÌÌSWITCH(Msg)ÌCaseOf€999:Ìà À àtbox={à p à"€€€€€€€€€€€€€€€€€€€€€€€€€€Ô> rü Ô[Bold€On]Ô?

ÔCreating€LabelsÔ> ‚ü Ô[Bold€Off]Ô?

Ô";Ð Ð  Ð"";Ì"€There€are€two€ways€to€create€labels:";Ì"";Ì"€€€€€€€€€€€€€€€€€€€€€€€„„easier€and€faster€but€limited€to€labels.";Ì"";Ì"€€€€€€€€€€€€€€€€€€€€€€€„„uses€a€DATA€file€that€can€produce";Ì"€€€€€€€€€€€€€€€€€€€€€€€€€labels,€forñLñÔ%
€
ÔñLñm€letters,€envelopes,";Ì"€€€€€€€€€€€€€€€€€€€€€€€€€business€directories,€etc.";Ì"";Ì"€Select€one€of€the€above.";Ì"";Ìà À à}ÌENDSWITCHñLñÔ%
€
ÔñLñÌEndProc