E:130397                                     (C) 1997 ORIONSOFT
---------------------------------------------------------------


        ⪮ ᠭ 㫥 Wind.mac  Menu.mac
        --------------------------------------------
                       PRODOS V2.00
                      ----------------


     ᯮ짮  뢠 㫥     -
࠭᫨஢  ६頥 ଠ .rel,    ணࠬ
  㪠 ४⨢

   .request Wind,Menu

    ਢ ᯨ᮪ ᯮ㥬    㫥,  -
ਬ:

   extrn IniWnd,Open,Close,Menu



             1.   䥩 Wind
             ==================================

   祩:

   wbx - 2   - ᬥ饭  ᨬ   X  -
         .   ᨬ , ⠭ ணࠬ-
          Open,     ᬥ饭    १  ࠭ 
         (wbx) ᥫ. 祭  㬮砭 16.
   wby - 1   - ᬥ饭  ᨬ   Y   -
         .   ᨬ , ⠭ ணࠬ-
          Open,    ᬥ饭   孥 १ ࠭ 
         (wby) ᥫ. 祭  㬮砭 3.

   ணࠬ:
    
   XBdos - 맮 ७ BDOS, 祬  室 A  -
          樨 (160..169),  HL -  ਯ -
         樨 ( ⭮,  ⠡ ᠭ  -
         ᪮  - TOO). 室 祭: A, HL.

   ScrDim - । ࠧ୮ (᫠ ᪮⥩)  ࠭.
          室  ॣ A 頥 ᫮ 1..4  -
         ᨬ  ⥪饣 ० ࠭.

   IniWnd - 樠 ⥪ .  祭 DE  室 -
            砫 ⥪,  HL -   ⥪ + 1.
          ⥪ 뢠 室  ॡ㥬 㡨
          :      ⥪ 뤥 
         26 . ਬ,   
                  DE=8000h, 
                  HL=8000h+20*26.
          ணࠬ   맢  ᠬ 砫
         । ࠡ⮩  ணࠬ Open, Close.

   Open -  . ஢  IX ᮤন  ⠡-
          ᠭ   11 :

         db Mode
         db x1,y1,x2,y2
         dw ColTab,FrmTab,Title

            Mode । ०  , 祬 -
         饥 祭  Mode  ।  樥
         ᫥ ⮢:

           7 - ਧ "sav" - ࠭ ଠ樨  
                ⥪ ;
           6 - ਧ "sdw" - 뢮  ⥭;
           5 - ਧ "frm" - 뢮 ࠬ;
           4 - ਧ "clw" - ⪨  ᫥ ⠭;
           0 - ਧ "win" - ⠭  .

         ⠫  - 㫥.

           ᫨  0 ,  㤥 ⠭  -
           㪠묨 ࠬࠬ,  ᫨ 㫥 -  -
          ⥪饣   ,   ⮬ -
            6   5  । 뢮  ⥭ 
         ࠬ. ᫨   ⠪ 㫥  (  Mode  㫥-
         ),   楤  Open  ந  
         ⢨.

            筮 祭  0    -
         ⠫  7..4. ᫨  7 ,  ᮤন
         ࠭     ⥪騥 ࠬ 뢮 -
         ࠭   ᯥ樠쭮 ⥪    -
         饣 ⠭ 楤ன Close.

           ᫨  6 ,   ࠢ  ᭨   뢮-
           ⥭ - ᯥ樠 ᨬ,   -
          9- ⮬  ⠡ FrmTab.

           ᫨  5 ,   ਬ  뢮
         ࠬ  8- ᨬ,   ⠡楩 FrmTab, 
          ᫥ ⮣ ⠭  ࠬ.

           ᫨  4 ,     ⠭  
         頥 䮭 ࠬ.

           ࠬ x1,y1  x2,y2  ᨬ묨 न-
         ⠬  孥  ࠢ  㣫, 祬
          祭 稭  1.

           ColTab   ᮬ ⠡ 梥⮢   -
         饬 砥 6 :

            梥 䮭 ࠬ  ,
            梥 ।  ࠬ  ,
            梥 䮭   ࠬ,
            梥 ।  ,
            梥 䮭  ⥭,
            梥 ।   ⥭.

           FrmTab  ᮬ ⠡  8- ᨬ ࠬ-
          (ॡ ᨬ -  ᮢ  ५)    
         ᨬ  ⥭ (᫨  ᯮ),  -
         :

           FrmTab: "Ŀ"

           Title  ᮬ   ࠬ, 稢-
         饣 ⮬ 0 (ᯮ, ᫨ 뢮 ࠬ).

            室  楤  Open 頥 祭 A=0 
         砥 ᯥ譮  ,   訡 뤥-
          ᪮  ,   ਧ 訡 -
         ஢  (A=80H).

   Close -  .  室 ࠬ஢.  室   A
         頥 ਧ 訡,  ਬ,  ᫨  ⥪ 
         .  楤 뢠   ᫥-
          , ⮣   ⮬ 7 Mode.



                       2.   Menu
                       ===================

   ணࠬ:

   InSym -    ᨬ     -7   
         ⮡ࠦ .
    
   Menu  - ࠡ  .  室    ⠡:
         IX 㪠뢠   ⠡ ᠭ , ᠭ
           Wind (  뢠  室  -
          ணࠬ  뢠  室  );

         IY 㪠뢠  ⠡ ᠭ :

         db Type
         db N
         db Current
         db x,y
         dw List,Hotk,AdrT
        [db dx]

          Type । ⨯ :   0 - ⨪쭮, 1 -
         ਧ⠫쭮.

          N  ᫮ ० .

          Current । ⥪騩 㭪 , 뤥
         㪠⥫ (1..N).

          x,y ।   ࢮ 㭪
            (x,y 稭  ).

         List   ᮬ ᯨ᪠   㭪⮢  ,
            蠥 ⮬ 0, ਬ:

         List: db ' Yes ',0
               db ' No ',0

         Hotk  ᮬ ᯨ᪠ "" ,  -
         :

         Hotk: db 'YN'

         AdrT  ᮬ ⠡ ᮢ ࠡ⪨ -
          㭪 , ਬ:

         AdrT: dw Yes,No

         ࠬ dx  ᯮ  ⮫쪮   ਧ⠫쭮
            蠣  ᯮ 㭪⮢    -
         ⠫  ᨬ.


         ணࠬ Menu 頥 ਧ "CY"  砥 -
         室    2,  "NC"  㣨 :

          A=0 - 室   ⢫ १   㭪⮢
          A<>0 - 訡 뤥   .

         ணࠬ ࠡ⪨ 㭪 ,  ன 㪠-
           ⠡ AdrT, 砥  祭 ०
          ॣ C (1..N)     ᫥騥 -
         ࠬ:

          ਧ "CY"  襭 ࠡ    室 
          ணࠬ Menu १  㭪 ( ⮬  -
          室 Menu 㤥 A=0);

          ਧ "NC",  A=0  砥 ᯥ譮 ࠡ⪨ 㭪
             ;

          ਧ "NC", A<>0  砥 訡 뤥 .


    13.06.97                                     .誮


                        *** ORIONSOFT ***



 ⮢  --
	;"z"  "cy" -  ⮢  ⪠ 짮⥫
	;"nz"  "n