============================================================

		 砭 :
		---------------------------

-)  UsrExit   :   ।࠭
   ணࠬ 짮⥫  ਩ 襭. ⮬
     F_Jump,   த ࠡ
   ணࠬ  砥  樨 訡. 
   ਢ  砭, 易  ᯮ짮
    F_Jump.

1) ।⢥ । ।祩 ࠢ  짮-
   ⥫ 楤 室 ࡮-᪠ ⮬᪨
   頥  ६ ExitProc 祭 nil.  ⮩ -
   稭  ணࠬ Tst_Jump  ExitProc := @MyExit;
   室  ⥫ 横 repeat ... until.

2)  砥, ᫨ ணࠬ ⮨  ᪮쪨 㫥,
    ᫥ ᯮ짮 ᫥饩 ४樥:
       LongJump  ᯮ짮 FAR- ६-
       Jump.  ᥣ ⮣ , ᫨ 
      Jump  䥩     ᯮ짮
        ࣠樨 ࠡ⪨ ᪫⥫ 権.

3)  SetJump ᫥ ᯮ ।⢥ ।
   ஬,   । ࠢ  -
    ᪫⥫쭮 樨.

============================================================