WPC  
                 0   (                  Y                 U         	          	      	   	         	                 U        	%            /          {           '   !   `   7  #        !   `     	)        "                                                                                                                                     < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "4  ? x x x  X    Xx   A p p l e   L a s e r W r i t e r   I I f   '3   pet   	 ^-(4  APLW2F.PRS   hhhhhhhh PUBD/DOC1                                                                                                                                          H    lSJ    (                    $          M e s s a g e                                                                                                                                  +  A                                                                (     	                                                                                                                                                                                              (                                                                 d     
                                                            d     
                                                                                                                                                                                                                                                                                                                                                                                                       O v e r v i e w D l g                                                                                                                                                                                                                                                                                                                   A d d T e x t                                                   (                                                                 ~                                                                 ~                                                                 "                                                                 	      - I                                                         ~	      - E                                                         N
      - B                                                         	                                                                 
                                                                 
                                                                 r                                                                                                                                                                                                                                                                     "     #                                                            
     %                                                                 $                                                                 "                                                                 !                                                            \     '                                                            ^     &                                                                 )                                                                 (                                                                P o s i t i o n                                                                                                                           M e s s a g e    ,                                                            	     +                                                                 *                                                            	X!     .                                                            	     -                                                            	     0                                                            	     /                                                            	     2                                                            	     1                                                            	     4                                                            	     3                                                            	     6                                                            	     5                                                            	     7                                                            	     8                                                            	X!                                                                    b!                    D       3      5C      5            "                         d                  C        @:      C      $J      S      ae      ak      P       P      _      f     v      "y      }                  n            	      
      "
      	
      
      -
                  "                  -                  -      
      
      "
       
                        "        $      @z      	@    @    A      
A    A0      
A<    A      
A    A    
      A,      
A8     
z      B                         %      gX                        %      =      -[      n      t            ,&            '            4      '%                                                 -      l      -e      )      	<      	I      	?!      	"      	#      	R&      	'      :*(      M*      	W*          D  j  w    *  C          J  d      :  C  J  e  q    P  _  l  v      T  n    	  	  
  w
  
  
                    
  
        :  z    0      ,  z            %  X          %  =  [  n  t              &  `          g  {                  l    %  Z      e    <  I    ?!  X!  "  -"  #  #  R&  k&  '  '  *(  (  =)  M*  W*  < @p       ` (    CT i t l e = " C o a c h "   D  C  HD       = #| d         " B D O ??=K ' 	            " B D O ??=K ' 	              =  ? x x x  X    Xx   r 5 d d d  X    d                                             
    !    W       X   X  X X         X X  o  [      X     `	 P
      h X     p `      x h   ! (#   Xo //*********************************************   	       ////     NAME:    `	     P
      WPCHTB04.WPM   	 N   //     PURPOSE:     AddtexttoaTable   	     // //*********************************************  //RevisionHistory////     7/26/93     TextChanges  %
 
   
  Global(ScrnMode;MsgAdj;DefTitle;title)Global(FakeBtns;CancelMsg;HotElement;SaveScrn)Global(w;h;tbox;hbox;helpmsg;hintbox)select[0]=0DefTitle="Coach"        	                       `	     P
           //Maintitlename%
    
 Title="Coach"ScrnMode=?ScreenHigh24Use("wpchlibr.wpm")                    h //Sharedlibraryfile   	    Use("wpchlbtb.wpm")If(NotExists(module))     ScreenSetup()     If(?Dialog<>36)        	 c
             ColorScheme()     Endif         `	     P
              	    Endif              `	     P
              	 X   If(?BlockActive)     BlockoffEndifOnCancelCall(CancelCoach)Error(off!)MsgAdj=DlgMessage()CancelMsg=0	   	 7!   //*********************************************////     MAINPROGRAM:Coach   	 N   ////*********************************************//Label(menu)WindowMaximizeCancel(Off!)Success=0IF(NOTEXISTS(Module))Call(OverviewDlg)                     //OverviewDialog   	 6
        If(Result=1)             	              CancelCoach()     Endif         `	     P
              	 
"	   Endif              `	     P
      	   	 y	   //**********************************************************//     AddText   	 W    //**********************************************************     ExitTableEdit()     Call(AddText)     If(NOTExists(Module))          h     X      //   	 C             RestoreStates()     EndifReturn//*********************************************//     ENDMAINPROGRAM   	 6
   //*********************************************//*********************************************////     SUBROUTINE:OverviewDlg   	    ////*********************************************Label(OverviewDlg)If(NotExists(Module))          Message(&tbox;1100)          h     X //WelcomeScreen   	 
Z             Result=Welcome("Coach";&tbox)     If(Result=1)          Return     EndifEndifReturn	   	 D   //***************************************************************////     SUBROUTINE:AddText   	 N   ////***************************************************************LABEL(AddText)If(NOT?InTable)     Call(Position)EndifIf(NOT?InTable)     Message(&tbox;1200)0     0    (#(#       DlgCreate(Result;"Coach";DlgNoCancel!+DlgNoOk!;;;65;8)  
  (#(#            DlgControl(CtrlPushButton!;;"~CreateNewTable";;2;6)          DlgControl(CtrlPushButton!;;"~EditATable";;22;6)          DlgControl(CtrlPushButton!;;"Quit...Esc";StyCancel!;42;6)               ForNext(x;1;tbox[0])                   `	 DlgControl(CtrlLabel!;;tbox[x];;2;x+1;;)               Endfor     Dlgend     If(Result=1)          CancelCoach()     Endif     If(Result=1)               WindowMaximize               Run("WPCHTB01.WPM")               ExitTableEdit()  %
    
       Else     If(Result=2)          Call(Position)          Go(Addtext)     Else          Return     EndifEndif    P
         	 ."   Endifkeypress={    `	 8154;                    h     X //F7key   	 #%                      `	 8158;                    h     X //F1   	 z&   }        	 !q'   chkcode={1}Message(&hintbox;1205)Message(&tbox;1210)FakeIt(DefTitle;&tbox;5;1;1)Repeat         `	 //added   	 ".   Key=DoEdit(1;&chkcode;&keypress)               //WaitforusertoF7   	 Y#/   If(key=8158orKey=3)     Result=Hint(&hintbox;99;99;3)EndifUntil(Key=1orkey=8154)    h     X //added   	 &!4   Message(&tbox;1215)Result=MessageBox("Coach";&tbox;5)If(Result=2)    P
           //Ifnotdone   	 )/%9             Go(AddText)ElseIf(Result=1)    P
           //Ifdone   	 +$'<             WindowMaximizeEndifEndif   	 -)?   RETURN	   	       //*********************************************////     SUBROUTINE:Position   	 N   ////**********************************************LABEL(Position)          Message(&tbox;1220)          h     X      //Placecursorattableposition   	              FakeIt(DefTitle;&tbox;3;1;0)          keypress={8154;}               h     X           //F7key   	 	8             chkcode={1;}          Key=DoEdit(1;&chkcode;&keypress)     //WaitforusertoF7   	 6
   RETURN	   	 y	   //*********************************************////     PROCEDURE:Message   	 N   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1100:    P
           //WelcomeScreen   	 
	        tbox={    `	 "Youcanaddtexttoatable.";   	 6
                      `	 "";                   `	 "+++";   	    Ѐ"English󀀀	German󀀀	Spanish󀀀	Hebrew󀀀";   	 +
{
   Ѐ"*,";   	 
#	   Ѐ"thedog	derhund	elperro	ha'kelev";   	 z	   Ѐ"*,";   	 !q
   Ѐ"goodmorning	gtenmorgen	buenosdas	bokkertov";   	    Ѐ"---";   	 o                      `	 "";               }CaseOf1200:     tbox={    `	 "Yourcursorisnotinatable.";   	                       `	     P
 "";                   `	 }CaseOf1205:     Hintbox={    P
 "Ifyouarehavingdifficultyfittingallyourtextin";   	 E                      `	     P
 "inthetable,youcantrychangingthefontormargins.";                   `	     P
 "Youmayalsowanttotrychangingthecolumnwidths.";                   `	 }CaseOf1210:     Tbox={     "Toaddtexttoatable, %
 	   
  ";     "";     "Placethecursorinacell,thentypeyourtext.";   	 $%        "Use>  r [BoldOn]?
   
 Tab>   [BoldOff]?
   
 Ԁor>  r [BoldOn]?
   
 Shift+Tab>   [BoldOff]?
   
 Ԁtomoveto   	 &   anothercell.";     "Use>  r [BoldOn]?
   
 Ctrl+Insert>   [BoldOff]?
   
 Ԁor>  r [BoldOn]?
   
 Ctrl+Delete>   [BoldOff]?
   
 Ԁto   	 1(   addordeletearow.";     "";          }CaseOf1215:     tbox={    `	 "Areyoufinishedtypingtextinyourtable?";   	 "'.                      `	 "";               }CaseOf1220:    P
           //Positioncursorintablefortextentry   	 &j!3        tbox={    `	 "Placethecursorinthetable.";   	 &"4                      `	 "";     }DEFAULT:    `	     P
           //Ifnonewerefound   	 i)$8        tbox={    `	 "Messagenotfound!";   	 *`%9                      `	 "";               }     hbox={    `	 "Nohintavailable.Whattypeofinformation";   	 ,'=                      `	 "wouldbehelpfulhere?";                   `	 "";   	 -J)?                  }ENDSwitchENDPROC8          