         ᪥ ਫ  :
.桫 .ᮢ "ਥ 䥪⨢ ணࠬ஢  Clarion"

	 ঠ 䠩:
         
        
         
	 

         
 ਬ 뤥 ⤥쭠 ४  ᪥.  ਢ
ᯨ᮪  ४਩, ᮤঠ ਬ,  ﬨ 㥬 
⥩.

MODEL    ਡ⨢ ᯮ㥬 

EXAMP1   ᥢ
EXAMP2    ᪮쪨 ᥩ  室  
EXAMP3   ᯮ짮  Include (Editor  Designer-)
EXAMP4    , (᪮쪮 Edit-楤   Include)
EXAMP5    譨 ணࠬ/楤 G_RunProc
		( Reporter-  祩 )
EXAMP6    譨 ணࠬ/楤 Menu
		( ணࠬ  ࠬࠬ)
EXAMP7   ⥫  楤 Menu
		(襭    )
EXAMP8	 ⥫  楤 Menu
		(襭 ࠭ )
EXAMP9   ⥫  楤 Menu
		(ᬮ    WpView)
!!  襬    Norton Commander (Symantec Corp) !!
EXAMP10	 祭 讣 ᫠  
		(⮤ ᯮ짮 Setup-楤)
EXAMP11  祭 讣 ᫠  
		(ਠ ࠧ  )
EXAMP12  祭 讣 ᫠  
		( 楤,     )
EXAMP13	 祭 讣 ᫠  
		(뢠  memo-)
EXAMP14  祭 讣 ᫠  
		(⪫祭 Esc  )
EXAMP15  祭 讣 ᫠  
		(ᮡ 楤 Table)
EXAMP16     Designer-
EXAMP17	 ਧ⠫ ஫  Browse-䥩  Designer-
		(᪠窨  )
EXAMP18	 ਧ⠫ ஫  Browse-䥩  Designer-
		(᪠窨  )
EXAMP19  ⠥  ஫  ⠡
		(⨪쭠 ࠧ⪠)
EXAMP20  ⠥  ஫  ⠡
		(⥪   ஫/ᥬ ⥫䮭)
EXAMP21  ⠥  ஫  ⠡
		(ࠢ 梥⮬  ஫)
EXAMP22  ⠥  ஫  ⠡
		(ਧ⠫쭠 ࠧ⪠ 梥⮬)
EXAMP23  ⠥  ஫  ⠡
		(ᮢ )
EXAMP24  ⠥  ஫  ⠡
		(⪠ ।㥬 )
EXAMP25     ஫ 
		( ᯥ樠쭮 )
EXAMP26     ஫ 
		( 筮 )
EXAMP27     ஫ 
		(ᯮ짮 Routine)
EXAMP28  ૥  Designer-
EXM1	 ન஢ ᥩ  ⠡
VIBOR	 ࠭ 롮ப  
EXM2       ⨯  ⠡,  ଥ, ਬ ᮢ⭮ ࠡ
EXM4      ४஢ 
EXM5       ⭮ 浪
NSI	 ꥤ ࠢ筨   䠩+ࠡ  ᨬ묨 
ࠬ
VIEW     ணࠬ ᬮ ⥪⮢ 䠩
PWD        ஫
CLOCK	 訥 

         
	ᯠ 娢.
	ਡ⨢  ᫥ ஢  ४ Clarion, 
ਬ  , 㤮 .  ⮨ ஢  ਬ  
४, - ࠧ 㤥 ᫮.

         
	  ᨬ묨 ࠬ
	
  ন ࠧ  ࠡ  ᨬ묨  
᫮묨 ࠬ.  㬮砭,  ஥  ࠡ  
᫮묨. ⮡ ७ந ᣥ஢ 楤 ⨯ Table  
ࠡ  ᨬ묨 ࠬ 室 ⠢   
(᪫⥫ ) । ப ᮤঠ騬 ⥪
	OMIT('NOT_FOR_DGT
( ப  ⠡ 2.)   믮  ⨥  
Alt_A - ᮮ⢥騩    ਫ 䠩 CLA.EDT. 
(  ᠬ  ᤥ ।⢥  .)

	饭 ᯮᮡ ࠡ  稬 蠬
        
	  ஡ ᬮ७ 堭, 騩 
Setup-楤 ࠢ ࠡ⮩  .  奬 ⠪:

	case d_setup
	of 0
	  d_setup = 2
	of 2
	  d_setup = 4
	  ! 室 Alert-
	of 4
	  d_setup = 2
	  if keycode() = hot_key
	  ! ᮡ⢥ 믮
	    ret_cod = 0        ! ନ஢  
	. .

 ⮪ ⬠  ﭭ ॡ뢠 祭
६ d_setup.  ﭭ 筨 㤭 室 訡
( , 祬 ,  ...)  쭮 䠩 ᤥ
訥 , ⥯ 祭 D_Setup = 2  4 ন
   ⠢. ᭮  祭 D_Setup = 3.

 祭 ॡ । ࠢ Setup-楤  , ⠪
 ᫥ Accept-. ⮡ ࠧ /᫥ ᯮ 祭
६ Ret_Cod -    祩 楤. 
쭮 䠩   ६  । ࠢ 
Setup-楤  Accept-,  ࠭   祭
 Accept-.

	if ~d_setup           !d_setup = 0 -  室  楤
	  d_setup = 3
	elsif ~ret_cod        !ret_cod = 0 - । Accept
	  ! 室 Alert-
	else                  !ret_cod <> 0 - ᫥ Accept
	  if keycode() = hot_key
	    ! ᮡ⢥ 믮
	    ret_cod = 0        ! ନ஢  
	. .
ணࠬ 砥 -   - ,  ...
⫠ ࠧ .

  ਬ 12,13


	 
EXAMP1   ᥢ
       ᥢ,  ᠭ  .  室
⮡ ࠢ쭮 ࠡ뢠  ESC   ᫥饬  ⥬, 
  ᮮ饭. ( ᮮ饭  , ᫨  
室  ⭮ ࠢ.)

EXAMP8    14  ⥪ 	select(?menu_field)
	 ᫥  	select(?menu_field")

EXAMP12  祭 讣 ᫠  
		( 楤,     )
       ᥢ,  ᠭ  .  ࠧ饭
। ,  ⨢  ,  室 ⮡ ᫥
 ࠡ뢠    , ᫨ 㤠  
 ESC. (  ⮬, ⮡  ࢠ Accept, - ⠫쭮
ᤥ .)

EXAMP13	 祭 讣 ᫠  
		(뢠  memo-)
	   ।騬 ਬ஬,  Memo- - 
࠭ ࢮ, ⮬ ।  祣   㦭.

EXAMP14  祭 讣 ᫠  
		(⪫祭 Esc  )
	  ᮦ, ਢ  ⥪ ਬ  
㣨 ﬨ  ४⭮ (⭮  襩 
室  楤 ந  ᫥ ⮣  ⨣
?first_field - ࢮ ,   ⮣). 騩 ਠ 룫廊,
ਬ, ⠪:
	 if ~d_setup
	   d_setup = 3
	 elsif ~ret_cod		   !塞 Esc 祩 襩
	   alert(Esc_key)
	 elsif keycode()=esc_key   !ࠡ뢥  
	     beep                  !
	     select(?)             !⠢    
	     update(?)
	     ret_cod = 0
	 .
 ਠ ।,   ࠭  , ஬ 
?menu_field". 騩 砩   ᠭ ⠪, ⮡ Esc
 ⮫쪮  ࢮ  .

EXAMP23  ⠥  ஫  ⠡
		(ᮢ )
 ⥪ FOREGROUND  BACKGROUND    FOREHUE  BACKHUE
ᮮ⢥⢥. ஬ ⮣,  ⥪ 饭 ⠭ 梥 ᫥
襭 Update-楤. 騩 ਠ ணࠬ ਢ 
	act# = action
	if inrange(action,2,3)
	  f# = forehue(row,col)
	  b# = backhue(row,col)
	  sethue(f#,b#)
	  reverse
	  color(row(?point),col,rows(?point),cols)
	  sethue
	.
	UPD				!맮 
	if inrange(act#,2,3)
	  sethue(f#,b#)
	  color(row(?point),col,rows(?point),cols)
	  sethue
	.

EXAMP26,27     ஫ 
		( 筮 )
 ⥪ ROWS - ⪠ ६,   २  ROWS_.

EXAMP28  ૥  Designer-
	।  ૥ ࠭ ୮.  १
ணࠬ 뢠  ᮮ饭 Return location would be overlaid,
 ᠬ  ᥡ 뢠,  ணࠬ ⠫, ⢨⥫쭮,
૥...

EXM2       ⨯  ଥ
	  横   ० ४஢  ப
Next-楤    
	else action = 0.
  ப  룫拉 ⠪:
if act#=1 then select(?mem:dummy);add_count# +=1;cycle else action = 0.
