               —§í
í
[	ì	       COPYFILE200  Il&‹   ˜         MAKEZAP 200 & …Ë$   ˜         MENU    2009 . G<ò#   è         NWINDO  200g k {»u¢   ˆ         SCOLOR  200Ò 9 Ã—M   Ø         TPVERS  200 LBR   Ø         ZCOLOR  200&& Æ¸:O   (         INSTX   200Lz hn”            INSTX2  DOCÆ/ î+Ãk   P         INSTX   ZAPõ“ 8í
  D         INSTX   COMˆ¶ {âí
  Û	       ÿ                               ÿ                               ÿ                               ÿ                               ÿ                               ÿ                               ÿ                               ÿ                               {**********************************************************************}
{*                  C O P Y F I L E . 2 0 0                           *}
{*                                                                    *}
{*      Separate this file out into an Include COPYFILE.200           *}
{**********************************************************************}

{----------------------------------------------------------------------}
{ C o p y F i l e : Copy input file to output file                     }
{----------------------------------------------------------------------}
Procedure  CopyFile(Input_File,Output_File :ParmString;
                               var Return_Code :integer);
   Const
      RecordSize = 128 ;
      RecordNum  = 200 ;
   Type
      HeapBuffer = array[1..RecordSize,1..RecordNum] of byte;
   Var
      FileIn,FileOut   : File;
      HeapPtr          : ^HeapBuffer;
      RecordCount      :integer;
   Begin
      Assign(FileIn,Input_File);
      Assign(FileOut,Output_File);
      {$I-} Reset(FileIn); {$I+}
      Return_Code := IOresult;
      If (Return_Code = 0) then        { If input File exists then     }
         Begin                         { create the output file        }
         Writeln(' Creating ',Output_File );
         ReWrite(FileOut);
         New(HeapPtr);

         Repeat
            Blockread(FileIn,HeapPtr^,RecordNum,RecordCount);
            Blockwrite(FileOut,HeapPtr^,RecordCount);
         Until RecordCount = 0;

         Dispose(HeapPtr);
         End;

      Close(FileIn);Close(FileOut);
   End; { CopyFile }
{......................................................................}
                                                                                            {**********************************************************************}
{*                                                                    *}
{*         M A K E _ Z A P :  A p p l y  S p e c i f i e d  Z a p     *}
{*                                                                    *}
{*             S e p a r a t e  O u t  I n t o  MakeZap.200           *}
{**********************************************************************}

{---- ---- ---- ---- ----- ---- ---- ---- ---- ----- ---- ---- ----- --}
{        F i n d _ Z a p  : P o s i t i o n  t o  H e a d e r          }
{--- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --}
Procedure Find_Zap(Header :ParmString; Var Return_Code :integer);
   Var
      TempHdr    : String[80];
      TempString : String[80];

   Begin { Find_Zap }
     Assign(Zap_File,Zap_Filename);                 { Find Correct Zap posn}
     {$I-}Reset(Zap_File);{$I+}
     Return_Code := IOresult;
     If (Return_Code <> 0) then
        Pause(Zap_Filename+' Error: '+Char(Return_Code));

     TempHdr := Header+' '+Version_Key[Version].Name; {Concatenate Version }
     While (TempHdr[Length(TempHdr)] = ' ')           {Name to search string}
        do                                            {and deblank from end}
        TempHdr[0] := Pred(TempHdr[0]);               {Show search string  }
                                                      {within delimiters   }
     Write(' Searching for Header ');                 
     NormVideo; Writeln(Chr(16),TempHdr,Chr(17)); LowVideo;
     Return_Code := 1;

     x := wherex; y :=wherey;
     Repeat                               { Until Keyword header found    }
     Readln(Zap_file,TempString);         { Look For zap identifier       }
     GotoXY(x,y);                         { Show the lines we're skipping.}
     Write(Chr(16),TempString,Chr(17));
     If Tempstring[0] > TempHdr[0] then   { Equilize string lengths for   }
        Tempstring[0] := TempHdr[0] ;     { Filestring = Keyword compare  }
     Until (TempString = TempHdr) or (Eof(Zap_File));

     If TempString = TempHdr then         { Set a return code for either  }
        begin                             { Success or Failure and give   }
        Return_Code := 0;                 { human some mortal indication  }
        Writeln;Writeln(' Positioned to Zap');
        end
    else begin
        Writeln;Pause(' Zap not found');
        Return_Code := 1;
        end
   End { Find_Zap };


{-------------------------------------------------------------------}
{    M a i n   P r o c e d u r e                                    }
{--- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---}
{ Open Zap file, Position to Header, read the data and apply the zap}
{ Data as follows:                                                  }
{ Character Header identifier                                       }
{ $address length $hex $hex $hex $hex $hex . . . . . . . . . . . .  }
{           :                                                       }
{           :                                                       }
{ $0   End of Zap for this identifier                               }
{-------------------------------------------------------------------}
Procedure Make_Zap (Zap_Index : Zaptypes; Var Return_Code :integer);

   Var
      Zap_Address,
      Zap_Length   :integer ;
      Zap_Data     :array[1..80] of byte;
      x,y          :integer;

   Begin { Make_Zap }

    Find_Zap(Zap_Headers[Zap_Index], Return_Code); { Search for the Header}
    x:=WhereX; y:=WhereY;

    If ( Return_Code = 0 ) then            { When we find the Zap Keyword in }
    Repeat { Until Address = 0 }           { Ascii zap file, fetch the zap   }
       Read(Zap_File,Zap_Address);         { address and number of zap bytes }        { Get Zap address      }
       x:=x Mod 20 +1; GotoXY(x,y);        { on the Line.                    }
       Write(' Working...');               { While making the zap, keep the  }
       If Zap_Address <> 0 then            { User content with a turtle title}
          Begin
          Read(Zap_File,Zap_Length);                { Read Zap byte count }
          For I := 1 to Zap_Length Do               { Read the Zap Data   }
                   Read(Zap_File, Zap_Data[I] );
                   Readln(Zap_File);                { Skip any comments   }
          Seek(ComOut_File,Zap_Address-$100);       { Seek to Zap Address}
          For I := 1 to Zap_Length Do
                   Write(ComOut_File,Zap_Data[I]);  { Write the Zap Data }
          End { Zap_Address <> 0 }
    Until (Zap_Address = 0);
   Close(Zap_File); Writeln;
   End; { Make_Zap }
  {....................................................................}
                    {**********************************************************************}
{*             M E N U . 2 0 0      Menu Management Routines          *}
{*                                                                    *}
{*                  Separate  Out  into  File   Menu.200              *}
{**********************************************************************}
{----------------------------------------------------------------------}
{            Max : Find Max of A or B                                  }
{----------------------------------------------------------------------}
Function Max (A,B :integer ) :Integer ;
   Begin { Max };
      If A > B then Max := A
         else Max := B
   End; { Max }
{----------------------------------------------------------------------}
{            Min : Find Min of A or B                                  }
{----------------------------------------------------------------------}
Function Min (A,B :integer ) :Integer ;
   Begin { Min };
      If A < B then Min := A
         else Min := B
   End; { Min }

{----------------------------------------------------------------------}
{             Keyin :       Key input from keyboard                    }
{----------------------------------------------------------------------}
  Function Keyin: Byte;   { Single-Key Input Routine (MSDOS/PCDOS) }
    Const
      Esc      = #27;       { Esc key                }
    Var
      Ch      :char;
     Begin
           Read(Kbd,Ch);
           if (Ch = Esc) and keypressed then
              begin                    { If extended key type get }
              Read(kbd,Ch);            { get next key in          }
              end;
           Keyin := Ord(Ch) ;          { Assign input to Output   }
     End;
{----------------------------------------------------------------------}
{          B e e p   :  S o u n d  t h e  H o r n                      }
{----------------------------------------------------------------------}
Procedure Beep(N :integer);      {------------------------------------------}
   Begin                         {  This routine sounds a tone of frequency }
      Sound(n);                  {  N for approximately 100 ms              }
      Delay(100);                {------------------------------------------}
      Sound(n div 2);
      Delay(100);
      Nosound;
      End {Beep} ;
{----------------------------------------------------------------------}
{          P a u s e :  Write Message and wait for keyboard            }
{----------------------------------------------------------------------}
Procedure Pause (Msg: ParmString);
   Var
      Ch   :char;
    Begin
    Beep(600);
    Writeln(Msg);
    Writeln(' Press a Key...');
    Ch := Char(Keyin);
    End;

{----------------------------------------------------------------------}
{         M e n u  :   Generate Menu Display                           }
{----------------------------------------------------------------------}

Function Menu( Input_Items: integer; var Data): integer;

  Const
       {Max_Items must be specified maximum number items in menu array }

        Maxnumber= 40;        { Max Menu size          }
        Downlist = 80;        { Down_arrow = Esc + 80  }
        Uplist   = 72;        { Up arrow = Esc + 72    }
        Select   = 13;        { Enter/Return key       }
        Cancel   = 27;        { ESC key + nothing else }

    Last_Selected :integer = 1;           { Remember the last selection}

  Type
     Listtype=Array[1..maxnumber] Of String[Max_String];

  Var
     Item_List: Listtype absolute Data;

      Item,
      Xposn,
      Yposn,I : Integer;         { Selection Position    }
      Chval   :byte;
      x,y     :integer;

  Begin  { Menu }

    ClrScr;
    Xposn := 4;
    Yposn := 1;
        For I := 1 to Input_Items do
           Begin
           GotoXY(Xposn,Yposn+I);
           writeln(Item_List[I]);
           end;
        writeln;

    GotoXY(Xposn,Yposn+I+2);                   { Display Instructions }
    writeln('Select Option with Arrow keys then press Enter');
    GotoXY(Xposn,Yposn+I+4);
    writeln('-  The Hunters Helper -           INSTX 2.00');

    Item := Last_Selected;             { Position to Previous Selection}
    Yposn:= 1;                         { Pick menu }
    Repeat
      GotoXY(Xposn,Yposn+Item);        { Position to current choice    }
      Get_Abs_Attr(Attr);              { Get Current Text Attributes   }
      TextColor((Attr and $0F) or $08);{ Turn Bright Attr on           }
      Textbackground(Black);
      write(Item_List[Item]);          { Write Current Choice          }
                                 { Get Keyboard and clear current pick }
      Chval := Keyin;
      If Chval <> Select Then          { Set current line to normal attr}
                         begin
                         GotoXY(Xposn,Yposn+Item);
                         TextColor(Attr and $0F);
                         Textbackground(Attr Shr 4);
                         write(Item_List[Item]);
                         end;
      Case Chval of                      { Determine new Pick }
         Select  :  Begin                { Set and remember this selection}
                    Menu := Item;
                    Last_Selected := Item;
                    end;
         Cancel  :  Menu := 0;
         DownList:  Item := Item Mod Input_Items +1 ;
         Uplist  :  Begin
                    Item :=(Item-1) Mod Input_Items ;
                    If (Item=0) then Item := Input_Items;
                    end;
         end;

    Until (Chval = Select) Or (Chval = Cancel)
  End;
{......................................................................}
                                                                        {**********************************************************************}
{*             N W I N D O . 2 0 0     :  New Windos Procedures       *}
{*                                                                    *}
{*                  Separate this into File NWINDO.200                *}
{**********************************************************************}
{                 Kloned and Kludged by Lane.H.Ferris                  }
{                     -- The Hunters Helper --                         }
{               Original ideas by Michael A. Covington                 }
{               Requirements: IBM PC or close compatible.              }
{----------------------------------------------------------------------}

Const
      MaxWin = 4;       { maximum number of Windows open at once }
      InitDone :boolean = false ;      { Initialization switch   }

      On     = True ;
      Off    = False ;
      VideoEnable = $08;               { Video Signal Enable Bit }
      Black  :byte = 0;                { Video Color Attributes  }
      Blue   :byte = 1;
      Green  :byte = 2;
      Cyan   :byte = 3;
      Red    :byte = 4;
      Magenta:byte = 5;
      Yellow :byte = 6;
      White  :byte = 7;
      Bright :byte = 8;
      Blink  :byte = 16;
      BackGround : byte = 16 ;

Type
     Imagetype  = array [1..4000] of char;  { Screen Image in the heap    }
     WinDimtype = record
                    x1,y1,x2,y2: integer
                  end;

     Screens    = record              { Save Screen Information     }
                   Image: Imagetype;  { Saved screen Image }
                   Dim:   WinDimtype; { Saved Window Dimensions }
                   x,y:   integer;    { Saved cursor position }
                  end;


 Var

  Win:                                { Global variable package }
    record
      Dim:    WinDimtype;             { Current Window Dimensions }
      Depth:  integer;
      Stack:  array[1..maxWin] of ^Screens;

    end;

  Crtmode     :byte      absolute $0040:$0049;
  Crtwidth    :byte      absolute $0040:$004A;
  Monobuffer  :Imagetype absolute $B000:$0000;
  Colorbuffer :Imagetype absolute $B800:$0000;
  CrtAdapter  :integer   absolute $0040:$0063; { Current Display Adapter }
  VideoMode   :byte      absolute $0040:$0065; { Video Port Mode byte    }
  Video_Buffer:integer;                        { Record the current Video}
  Attr        :byte;
  Switch      :boolean;
  Delta,
  Xtemp,Ytemp :integer;

{------------------------------------------------------------------}
{          Get Absolute postion of Cursor into parameters x,y      }
{------------------------------------------------------------------}
Procedure Get_Abs_Cursor (var x,y :integer);
  Var
      Active_Page  : byte absolute $0040:$0062;  { Current Video Page Index}
      Crt_Pages    : array[0..7] of integer absolute $0040:$0050 ;

   Begin

      X := Crt_Pages[active_page];     { Get Cursor Position       }
      Y := Hi(X)+1;                    { Y get Row                 }
      X := Lo(X)+1;                    { X gets Col position       }
   End;
{----------------------------------------------------------------------}
{      G e t _ A b s _ A t t r  : Get current Text Attributes          }
{----------------------------------------------------------------------}
Procedure  Get_Abs_Attr(Var Byteval:byte);{ Get current text attribute }
   Begin                             { keeping the textcolor. Not the  }
      Get_Abs_Cursor(x,y) ;          { compiler colors.                }
      Byteval :=                     { Get old Cursor attributes }
           Mem[ Video_Buffer:((x-1 + (y-1) * 80 ) * 2)+1 ] ;
   End; { Get_Abs_Attr }
{----------------------------------------------------------------------}
{      L o w V i d e o :   Set Low intensity on Screen                 }
{----------------------------------------------------------------------}
Procedure  LowVideo;                 { Change to Low Video intensity   }
  Var
   Byteval :byte;
   Begin                             { keeping the textcolor. Not the  }
      Get_Abs_Cursor(x,y) ;          { compiler colors.                }
      Byteval :=                     { Get old Cursor attributes }
           Mem[ Video_Buffer:((x-1 + (y-1) * 80 ) * 2)+1 ] ;
      TextColor(Byteval And $07);   { Take Low nibble 0..15  }
   End; { Low Video }
{----------------------------------------------------------------------}
{      N o r m V i d e o :   Set Low intensity on Screen               }
{----------------------------------------------------------------------}
Procedure  NormVideo;                { Change to Low Video intensity   }
  Var
   Byteval :byte;
   Begin                             { keeping the textcolor. Not the  }
      Get_Abs_Cursor(x,y) ;          { compiler colors.                }
      Byteval :=                       { Get old Cursor attributes }
           Mem[ Video_Buffer:((x-1 + (y-1) * 80 ) * 2)+1 ] ;
      TextColor((Byteval and $0F) Or Bright); { Take Low nibble 0..15  }
   End; { Low Video }
{----------------------------------------------------------------------}
{      R e v e r s e V i d e o :   Set Low intensity on Screen         }
{----------------------------------------------------------------------}
Procedure  ReverseVideo;                { Change to Low Video intensity   }
  Var
   Byteval :byte;
   Begin                             { keeping the textcolor. Not the  }
      Get_Abs_Cursor(x,y) ;          { compiler colors.                }
      Byteval :=                       { Get old Cursor attributes }
           Mem[ Video_Buffer:((x-1 + (y-1) * 80 ) * 2)+1 ] ;
                                             { Take high nibble 0..15  }
      TextColor((Byteval div 16) or (Byteval and $08));
      TextBackground(Byteval mod 16);        {  Take low nibble       }
   End; { Low Video }

{------------------------------------------------------------------}
{          Turn the Video On/Off to avoid Read/Write snow          }
{------------------------------------------------------------------}
Procedure Video (Switch:boolean);
   Begin
      If (Switch = Off) then
      Port[CrtAdapter+4] := (VideoMode - VideoEnable)
      else Port[CrtAdapter+4] := (VideoMode or VideoEnable);
   End;
{----------------------------------------------------------------------}
{      B l i n k :  Turn the Video Blink Attribute On or Off           }
{----------------------------------------------------------------------}
Procedure BlinkChar(OnOff :boolean);   { Blink at cursor On|Off        }
  Var
    Byteval :byte;
  Begin                                { keeping the textcolor. Not the}
  Get_Abs_Cursor(x,y) ;             { compiler colors.              }
  Byteval :=                        { Get old Cursor attributes     }
        Mem[ Video_Buffer:((x-1 + (y-1) * 80 ) * 2)+1 ] ;
  If (OnOff)
      then Byteval := Byteval Or $80    { Turn Blink On             }
      else Byteval := Byteval And $7F;  { Turn blink Off            }
  Mem[Video_Buffer:((x-1+(y-1)*80)*2)+1] := Byteval;
  End; {Procedure Blink }
{------------------------------------------------------------------}
{     InitWin Saves the Current (whole) Screen                     }
{------------------------------------------------------------------}
Procedure InitWin;
  { Records Initial Window Dimensions }
   Begin

      If CrtMode = 7 then
      Video_Buffer := $B000            {Set Ptr to Monobuffer      }
      else Video_Buffer := $B800;      { or Color Buffer          }

     with Win.Dim do
       begin x1:=1; y1:=1; x2:=crtwidth; y2:=25 end;
     Win.Depth:=0;
     InitDone := True ;                    { Show initialization Done }
end;
{------------------------------------------------------------------}
{       BoxWin Draws a Box around the current Window               }
{------------------------------------------------------------------}
procedure BoxWin(x1,y1,x2,y2:integer; Attr:byte);

  { Draws a box, fills it with blanks, and makes it the current }
  { Window.  Dimensions given are for the box; actual Window is }
  { one unit smaller in each direction.                         }
  { This routine can be used separately from the rest of the    }
  { removable Window package.                                   }

var
    x,y      : integer;

begin
  Window(1,1,80,25);
  TextColor((Attr Mod 16) or Bright) ;
  TextBackground(Attr Div 16);

  { Top }
  gotoxy(x1,y1);                     { Windo Origin        }
  Write( chr(213) );                 { Top Left Corner     }
  For x:=x1+1 to x2-1 do             { Top Bar             }
     Write( chr(205));
  Write( chr(184) );                 { Top Right Corner

  { Sides  }
  for y:=y1+1 to y2-1 do
    begin
      gotoxy(x1,y);                  { Left Side Bar       }
      write( chr(179) );
      gotoxy(X2,y) ;                 { Right Side Bar      }
      write( chr(179) );
    end;

  { Bottom }
  gotoxy(x1,y2);                     { Bottom Left Corner }
  write( chr(212) );
  for x:=x1+1 to x2-1 do             { Bottom Bar         }
     write( chr(205) );
  write( chr(190) );                 { Bottom Right Corner }

  { Make it the current Window }
  Window(x1+1,y1+1,x2-1,y2-1);
  gotoxy(1,1) ;
  TextColor( Attr mod 16);          { Take Low nibble 0..15  }
  TextBackground ( Attr Div 16);    { Take High nibble  0..9 }
  ClrScr;
end;
{------------------------------------------------------------------}
{       MkWin   Make a Window                                      }
{------------------------------------------------------------------}
procedure MkWin(x1,y1,x2,y2 :integer; attr :byte);
  { Create a removable Window }

begin

  If (InitDone = false) then              { Initialize if not done yet }
      InitWin;

  with Win do Depth:=Depth+1;              { Increment Stack pointer }
  if Win.Depth>maxWin then
    begin
      writeln(^G,' Windows nested too deep ');
      halt
    end;
                {-------------------------------------}
                {       Save contents of screen       }
                {-------------------------------------}
  Video(Off) ;                          { Turn off Video to avoid Snow  }

  With Win do
    Begin
    New(Stack[Depth]);                  { Allocate Current Screen to Heap }
    If CrtMode = 7 then
    Stack[Depth]^.Image := monobuffer   { set pointer to it      }
    else
    Stack[Depth]^.Image := colorbuffer ;
    End ;

    Video(On) ;                           { Turn the Video back on        }

  With Win do
     Begin                                { Save Screen Dimentions        }
     Stack[Depth]^.Dim := Dim;
     Stack[Win.Depth]^.x  := wherex;      { Save Cursor Position          }
     Stack[Win.Depth]^.y  := wherey;
     End ;

                                          { Validate the Window Placement}
  If (X2 > 80) then                       { If off right of screen       }
          begin
          Delta := X2 - 80;               { Overflow off right margin    }
          X1 := X1 - Delta;               { Move Left window edge        }
          X2 := X2 - Delta;               { Move Right edge on 80        }
          end;
  If (Y2 > 24) then                       { If off bottom   screen       }
          begin
          Delta := Y2 - 24;               { Overflow off right margin    }
          Y1 := Y1 - Delta ;              { Move Top edge up             }
          Y2 := Y2 - Delta ;              { Move Bottom  24              }
          end;
  If (X1 < 1) then X1 := 1;               { Validate left side of window }
  If (Y1 < 1) then Y1 := 1;

  BoxWin(x1,y1,x2,y2,Attr);               { Create the New window }
  Win.Dim.x1 := x1+1;
  Win.Dim.y1 := y1+1;                     { Allow for margins }
  Win.Dim.x2 := x2-1;
  Win.Dim.y2 := y2-1;

end;
{------------------------------------------------------------------}
{     Remove Window                                                }
{------------------------------------------------------------------}
  { Remove the most recently created removable Window }
  { Restore screen contents, Window Dimensions, and   }
  { position of cursor.  }
Procedure RmWin;
  Var
    Tempbyte : byte;

   Begin
   Video(Off);

   With Win do
      Begin                                { Restore next Screen       }
      If crtmode = 7 then
      monobuffer := Stack[Depth]^.Image
      else
      colorbuffer := Stack[Depth]^.Image;
      Dispose(Stack[Depth]);                { Remove Screen from Heap   }

   Video(On);

   With Win do                              { Re-instate the Sub-Window }
    Begin                                   { Position the old cursor   }
      Dim := Stack[Depth]^.Dim;
      Window(Dim.x1,Dim.y1,Dim.x2,Dim.y2);
      gotoxy(Stack[Depth]^.x,Stack[Depth]^.y);
    end;

      Get_Abs_Cursor(x,y) ;          { New Cursor Position       }
      Tempbyte :=                    { Get old Cursor attributes }
           Mem[ Video_Buffer:((x-1 + (y-1) * 80 ) * 2)+1 ];

      TextColor( Tempbyte And $0F );        { Take Low nibble  0..15}
      TextBackground ( Tempbyte Div 16);   { Take High nibble  0..9 }
      Depth := Depth - 1
    end ;
end;
{......................................................................}
                                                                                                                        {**********************************************************************}
{*          S C O L O R . I N C   :    Select Color from palette      *}
{*                                                                    *}
{*               Separate this file into SCOLOR.200                   *}
{**********************************************************************}
{----------------------------------------------------------------------}
{      S e l e c t _ C o l o r  : Ask for Color and Return Attribute   }
{----------------------------------------------------------------------}
{ Ask user to choose a color foreground and background and return the  }
{ attribute.                                                           }
{ Input:   Attribute at which to position the first Cursor             }
{ Output:  Atribute selection by the user or Zero                      }
{**********************************************************************}
Procedure Select_Color(Var Attr: byte) ;
   Const
       Arr_Up    = 72 ;
       Arr_Dn    = 80 ;
       Arr_Right = 77 ;
       Arr_Left  = 75 ;
       Return    = 13 ;
       Esc       = 27 ;
   Var
       Fieldwidth,
       ColorMatrixX,ColorMatrixY,
       Foreground
                           :integer;
       ch                  :char;
       Old_Attr,
       Old_Text,
       Old_background,
       Chval               :byte;
{----------------------------------------------------------------------}
{   B l i n k  the Cursor Position On/Off                              }
{----------------------------------------------------------------------}
 Procedure Blink_Off;                  { Turn off blinking             }
   Var
      x,y :integer;
   Begin
   x := WhereX; y := WhereY;           { Save old cursor position      }
   For I := x to x+FieldWidth-1 do
      Begin
      GotoXY(I,y);BlinkChar(Off);
      end;
   GotoXY(x,y);                        { Restore old cursor position   }
   End;

 Procedure Blink_On;                   { Turn off blinking             }
   Var
      x,y :integer;
   Begin
   x := WhereX; y := WhereY;           { Save old cursor position      }
   For I := x to x+FieldWidth-1 do
      Begin
      GotoXY(I,y);BlinkChar(On);
      end;
   GotoXY(x,y);                        { Restore old cursor position   }
   End;

{----------------------------------------------------------------------}
{      Move_Right_Left_Up_Dn : Cursor Move Routines                    }
{----------------------------------------------------------------------}
Procedure Move_Right;                  { Move Cursor right one position}
   Begin                               { Restore unblinking attributes }
   Blink_Off;                          { to old cursor postion         }
   ColorMatrixX :=(ColorMatrixX + FieldWidth);
   If ColorMatrixX > 16*Fieldwidth then ColorMatrixX := Fieldwidth;
   GotoXY(ColorMatrixX,ColorMatrixY); { Move to new cursor postion and}
   Blink_On;                          { set blinking attribute        }
   End; {Move_Right}

Procedure Move_Left;                   { Move Cursor Left one position }
   Begin                               { Restore unblinking attributes }
   Blink_Off;                          { to old cursor postion         }
   ColorMatrixX := ColorMatrixX - FieldWidth;
   If (ColorMatrixX < FieldWidth) then
       ColorMatrixX := FieldWidth*16;
   GotoXY(ColorMatrixX,ColorMatrixY);  { Move to new cursor postion and}
   Blink_On;                           { set blinking attribute        }
   End; {Move_Left}

Procedure Move_Up;                     { Move up one Row               }
  Begin                                { Restore unblinking attributes }
   Blink_Off;                          { to old cursor postion         }
   ColorMatrixY := ColorMatrixY - 1;
   If ColorMatrixY < 4 then ColorMatrixY := 4+7;
   GotoXY(ColorMatrixX,ColorMatrixY);  { Move to new cursor postion and}
   Blink_On;                           { set blinking attribute        }
  end; {Move_Up}

Procedure Move_Down;                   { Move Down one Row             }
   Begin                               { Restore unblinking attributes }
   Blink_Off;                          { to old cursor postion         }
   ColorMatrixY := ColorMatrixY + 1;
   If ColorMatrixY > 4+7 then colorMatrixY := 4;
   GotoXY(ColorMatrixX,ColorMatrixY);  { Move to new cursor postion and}
   Blink_On;                           { set blinking attribute        }
   end; {Move_Down}

Procedure Selected;                    { Pass back selected attribute  }
   Begin
   Blink_Off;                          { Turn off any linking          }
   Get_Abs_Cursor(x,y);
   Attr :=                             { Get old Cursor attributes     }
        Mem[ Video_Buffer:((x-1 + (y-1) * 80 ) * 2)+1 ] ;
   End; {Procedure Selected }
{-----------------------------------------------------------------------}
{      M a i n  P r o c e d u r e  : Select Color and Return Attribute  }
{-----------------------------------------------------------------------}
Begin {Select_Color}

  Old_Attr := Attr;                           { Save old Attributes  }
  Old_Text := Attr and $0F;
  Old_background := Attr shr 4;
  Get_Abs_Cursor(x,y);                        { Find Cursor and make }
  MkWin(4,y,74,y+16,White);                   { a window/Set Color   }

  Fieldwidth := 4;                            { Colors Display Width }
  TextColor(Old_Text);
  clrscr;
  GotoXY(14,1);  write('* * *   Move Cursor to Select Colors   * * *');
  GotoXY(14,2);  write('Enter ');
  TextColor(Old_Text+Blink);Write('[Return]');
  TextColor(Old_Text);Write(' to select -- ');
  TextColor(Old_Text+Blink); Write('[Esc]');
  TextColor(Old_Text); Writeln(' to Ignore');
  ColorMatrixX := WhereX; ColorMatrixY := WhereY;
  For Background:=0 to 7 do            { Background Color attributes   }
    Begin
    for Foreground:=0 to 15 do         { Foreground Color attributes   }
      begin                            { Display the Color matrix      }
      gotoxy(Fieldwidth*(Foreground+1),Background+4); { display posn }
      textcolor(Foreground);
      textbackground(Background);
      write(Foreground:Fieldwidth-1);
      end; { Forground}
  Writeln;
  end; { Background }
                                          { Put Cursor at Old Attriute }
  ColorMatrixX := Fieldwidth * (Old_Text)+Fieldwidth;
  ColorMatrixY := 4 + (Old_background);
  GotoXY(ColorMatrixX,ColorMatrixY);      { Position the Cursor        }
  Chval := 0;

  Repeat {until Chval=Return|Esc key}     { Get an attribute selection }
  Chval := Keyin;                         { Wait for user key          }
  Case Chval of
       Arr_Right   : Move_Right;
       Arr_Left    : Move_Left;
       Arr_Up      : Move_Up;
       Arr_Dn      : Move_Down;
       Return      : Selected;
       Esc         :
  else Beep(600);
  end; {case Chval}
  Until (Chval=Return) or (Chval=Esc);
  RmWin;                                  { Remove the Color Window    }
end; {Select_Color}
{.......................................................................}
                                                      {*********************************************************************}
{*                 T  P  V  E  R  S  .  2  0  0                      *}
{*                                                                   *}
{*          O p e n  C o m p i l e r :   and get Version             *}
{*                                                                   *}
{*               Separate This file into TPVERS.200                  *}
{*********************************************************************}
Procedure Open_Compiler;
   Var
      TempStr :string[8];               {Tempory Trash String }
    Begin
        TempStr := 'VERSIONS';          { Find 'Versions in Zap file }
        Version := 0;                   { No version found yet       }
        Version_Key[Version].Name := '';{ No Version as of yet}

        Find_Zap(TempStr,Return_code);  { Set up the Version Key array}

        If (Return_Code = 0) then            { When "VERSION" found in zap   }
           Begin { Find Version}             { file, read Compiler Version   }
              I:=0;                          { Jmp Address and Keyname until }
                                             { Verify Address = zero         }
              repeat {until Versify = 0}
                 I := I +1;
                 Read(Zap_File,
                     Version_Key[i].Verify);
                     If Version_Key[i].Verify <> 0 then
                        Begin
                        Readln(Zap_File,
                               Version_Key[i].UniqueWord,
                               Version_Key[i].Name);
                        end;
              until (Version_Key[i].Verify=0);

              Actual_Versions := I -1;           { Set Number of Version Found  }
              For I := 1 to Actual_Versions do   { Remove Blanks from Version   }
                 While (Pos(' ',Version_Key[i].Name) <> 0)
                   Do   Delete(Version_key[i].Name,
                               Pos(' ',Version_Key[i].Name),1);

           Return_Code := 1;              { Set Error Return code      }
           Assign(ComOUT_File,ComOut_Filename);
           {$I-} Reset(ComOUT_File);      { Open the copied .COM file     }
           {$I+} Return_Code := IOresult;
           If  ( Return_Code <> 0 ) then
              Pause('Please Specify .COM files first');

           If ( Return_Code = 0) then
            Begin
            Return_Code := 1;

               For I := 1 to Actual_Versions do
               Begin                          { Seek to Verify Word        }
               Seek(ComOut_File,Version_Key[i].Verify-$100);
               Read(ComOut_File,B,A);         { Read the Jump Address      }
               ComStartAddr := B + A shl 8 ;
               If (ComStartAddr = Version_Key[I].UniqueWord) then
                  Begin
                  Version := I;
                  Return_Code := 0;
                  end;
               end;

            If (Return_code <> 0) then
                  Begin
                  Beep(600);
                  Pause(' '+ComOut_Filename+' is not a TURBO Compiler');
                  Return_Code := 1;
                  end;
           End; { Return_Code = 0 }
      End; {Find Version}
    Close(Zap_File);
    End; {Open_Compiler}
{......................................................................}

                                  {**********************************************************************}
{*         Z a p  C o l o r s  :  Modify Compiler Menu/Edit Colors    *}
{*                                                                    *}
{*          Separate this file into ZCOLOR.200                        *}
{**********************************************************************}
Procedure Zap_Colors;                  { Reverse Compiler Intensity    }
   Var
      Zap_Address :integer;
      Chval,
      Char_Hi,Char_Lo,Char_Marked,Char_Err :byte;
{------------------------------------------------------------------------}
{        Find_Colors : Find old colors and postion to Output File        }
{------------------------------------------------------------------------}
    Procedure Find_Colors;

       Begin
       Zap_type := Zap_Edit_Colors;
                                          { Find original Colors positn}
       Find_Zap(Zap_Headers[zap_type],Return_Code);

       If ( Return_Code = 0 ) then                 { Get Zap address      }
         Begin {Find Zap}                          { for reference only   }
         Read(Zap_File,Zap_Address);
         Seek(ComOut_File,Zap_Address-$100);         { Seek to Zap Address  }
                                                     { Current Attributes   }
         Read(ComOut_File,Char_Hi,Char_Lo,Char_Marked,Char_Err);

         Repeat {unitl Chval = 13}                   { Get Hilite Colors    }
            Textcolor(Char_Hi and $0F);TextBackground(Char_Hi shr 4);
            ClrScr;Writeln(' Enter Editor Hilite Attributes:');
            Select_color(Char_Hi);                     { Get New Colors     }
            Textcolor(Char_Hi and $0F);TextBackground(Char_Hi shr 4);
            ClrScr;Writeln(' Return if acceptable or hit any key...');
            Chval := Keyin;
         Until (Chval = 13);

         Repeat {unitl Chval = 13}                  { Get Normal color attrib}
            Textcolor(Char_Lo and $0F);TextBackground(Char_Lo shr 4);
            ClrScr;Writeln(' Enter Editor Normal Text Attributes:');
            Select_color(Char_Lo);                   { Get New Colors       }
            Textcolor(Char_Lo and $0F);TextBackground(Char_Lo shr 4);
            ClrScr;Writeln(' Return if acceptable or hit any key...');
            Chval := Keyin;
         Until (Chval = 13);

         Repeat {unitl Chval = 13}                  { Get Error Attributes   }
            Textcolor(Char_Marked and $0F);TextBackground(Char_Marked shr 4);
            ClrScr;Writeln(' Enter Editor Marked Text Attributes:');
            Select_color(Char_Marked);               { Get New Colors       }
            Textcolor(Char_Marked and $0F);TextBackground(Char_Marked shr 4);
            ClrScr;Writeln(' Return if acceptable or hit any key...');
            Chval := Keyin;
         Until (Chval = 13);

         Repeat {unitl Chval = 13}                  { Get Error Attributes   }
            Textcolor(Char_Err and $0F);TextBackground(Char_Err shr 4);
            ClrScr;Writeln(' Enter Error Message Text Attributes:');
            Select_color(Char_Err);                  { Get New Colors       }
            Textcolor(Char_Err and $0F);TextBackground(Char_Err shr 4);
            ClrScr;Writeln(' Return if acceptable or hit any key...');
            Chval := Keyin;
         Until (Chval = 13);

         Seek(ComOut_File,Zap_Address-$100);         { Seek to Zap Address  }
         Return_Code := IOresult;                    { Write New Attributes }
         Write(ComOut_File,Char_Hi,Char_Lo,Char_Marked,Char_Err);

        End; {Find_Zap Return_Code = 0}
    End;{Procedure Find_Colors}
{-----------------------------------------------------------------------}
{   M A I N  Z a p _ C o l o r s  P r o c e d u r e                     }
{-----------------------------------------------------------------------}

   Begin { Procedure Zap_Colors}
   Get_Abs_Cursor(x,y);                  { Get current cursor position }
   MkWin(x,y,x+48,y+7,White);            { Make an input window        }
   Textcolor(Bright+Blue); TextBackground(Black); Clrscr;

   Open_Compiler;                        { Open Compiler/Get Version   }
   If (Return_Code = 0) then Find_Colors;

   If (Return_Code <> 0) then
        Begin                         { Write Error msg and pause   }
        Pause(' Error Processing Edit Color Zap ');
        end;
   If (Return_Code = 0) then
        Begin
        Pause(' Compiler Color Zaps Completed ');
        end;

   Close(Zap_File);
   Close(ComOut_File);
   RmWin;

 End; { Procedure Zap_Colors }
{......................................................................}
                                                                                                {$R+}
{$V-}
Program Instx;                                    { CIS Version 2.00   }
{----------------------------------------------------------------------}
{               Install the Turbo User Options                         }
{----------------------------------------------------------------------}
{ Purpose:   Install Patches/Zaps to Load Modules                      }
{                      (specifically the Turbo compiler)               }
{                                                                      }
{ Methods:   Zaps are identified within a file by the concatenation of }
{            a set of keywords consisting of:                          }
{                                                                      }
{                        "TITLE VERSION"                               }
{                                                                      }
{            where "TITLE" is choosen by the user and "VERSION"        }
{            is a string derived from the first instruction in         }
{            the binary file to receive the zap. The default Zap file  }
{            is INSTX.ZAP which may be overridden by Menu item 1       }
{                                                                      }
{ Input:     A zap text (patch) file consisting of Version identifiers,}
{            Zap title + Version, zap offset, zap length, zap bytes,   }
{            followed by a zero.                                       }
{                                                                      }
{            A source copy of the binary file to receive the zap.      }
{            This file will be copied; not modified.                   }
{                                                                      }
{ Output:    A copy of the source input file modified by the specified }
{            zap(s).                                                   }
{                                                                      }
{----------------------------------------------------------------------}
{                                                                      }
{----------------------------------------------------------------------}
{           Install the PcDos Turbo eXecute Command                    }
{----------------------------------------------------------------------}
 Type
   Option_Choices = (None, Zap_Data, Com_Names, Edit_Intensity,
                     Edit_Colors, X_command, User_Zap, Exit_Pgm);

   ZapTypes       = (No_Zap,Zap_Edit_Intensity,     { Zaps in Data File}
                     Zap_Edit_Colors, Zap_X_Command,
                     User_Zap_type);


   ParmString     = String[255] ;      { Dummy definition for parms    }

 Const
   Max_Versions = 8 ;                    { Number of Turbo Versions }
   Actual_Versions :integer = Max_Versions;{ Versions acutally found}
   Max_string   = 60;                    { Max Menu Title length    }
   Max_Items    = 7;                     { Maximum menu items below }
                                         { Menu items               }
   Menu_Items: array[1..Max_Items] of string[Max_String] =
               (' Specify Input Zap Data File ',
                ' Specify Input/Output .COM File Names ',
                ' Reverse Edit Intensity Attributes ',
                ' Specify Edit Screen Colors ',
                ' Install the eXecute Command ',
                ' User Specified Zap ',
                ' Exit this program ' );


   Zap_Headers: array[Zap_Edit_Intensity..User_Zap_Type] { Define Zap  }
                                   of string[10] =       { Headers     }
               ('INTENSITY', 'COLORS', 'XCOMMAND', 'USER');

   ComIN_Filename   : string[64] = 'TURBO.COM';   { Input command file }
   ComOUT_Filename  : string[64] = 'TURBX.COM';   { Output command file}
   Zap_Filename     : string[64] = 'INSTX.ZAP';   { Default input data }

   Ok       :boolean = false;          { Boolean trash collector }

 Var
   Zap_File :text;                     { Zap input data file           }
   ComIN_File  : File of Byte;         { Input Command File            }
   ComOUT_File : File of Byte;         { Output Command File           }
   ComStartAddr:integer;               { Compiler Code start  addr     }
   Option      :integer;
   Choice      :Option_Choices;           { Set of User choices        }
   i,j,
   x,y         :integer;
   Return_Code :integer;
   A,B         :byte;

   Zap_Type   : Zaptypes;              { Parameter Strings passed to }
   Version_Key :array[0..Max_Versions] of
               record                    { Version 0 is no version  }
               Verify     : integer;     { Unique Versify address   }
               UniqueWord : integer;     { contents at versify addr }
               Name       : string[8];   { 'PC300B','PC301A'  etc.  }
               end;
   Version    : integer;               { Set to current Version index }

{$I Nwindo.200}                        { Window Procedures              }
{$I Menu.200}                          { Menu Display Function          }
{$I CopyFile.200}                      { Duplicate a File               }
{$I MakeZap.200}                       { Make Zaps to Output File       }
{$I TPVers.200}                        { Open and find Compiler Version }
{$I Scolor.200}                        { Select Compiler Color Option   }
{$I Zcolor.200}                        { Zaps Colors into Compiler      }
{-----------------------------------------------------------------------}
{             G e t    U s e r   F i l e n a m e                        }
{-----------------------------------------------------------------------}
Procedure Get_User_Filename (Var  FileName :ParmString;
                             var  Return_Code :integer);
   Var
      TempString   : string[64] ;
      TempFile     : File ;
   Begin
      Readln(TempString);                       { user want new zap file }
      If (TempString = '') then TempString := FileName; { Assign Default }
      For I := 1 to length(TempString) do
         TempString[I] := UpCase(TempString[I]);
      Assign(TempFile,TempString);                      { filename if Cr }
      {$I-} Reset(TempFile); {I+}
      Return_Code := IOresult ;

   Close(Tempfile);                    { Close file for now..used later}
   FileName := TempString;             { Assign the final File name    }
   End; { Get_User_Filename }
{----------------------------------------------------------------------}
{     G e t  Z a p  I n p u t  D a t a  F i l e                        }
{----------------------------------------------------------------------}
Procedure Get_Zapdata_file ;       { Open user Specified Zap data      }
   Begin

   Get_Abs_Cursor(x,y);            { Get current cursor position       }
   MkWin(x,y+1,x+40,y+6,Green);      { Make an input window              }
   Textcolor(Green);TextBackground(Black);GotoXy(1,1);

   Repeat
      Write('  Patch (Zap) Data File ');
      NormVideo;
      Writeln(chr(16),' ',Zap_Filename,' ',chr(17));
      LowVideo;

      Writeln(' Enter New File or <Return> to Accept ');
      Get_User_Filename(Zap_Filename,Return_Code);

      If (Return_Code <> 0 ) then Writeln('   ', Zap_Filename, ' not found');
   Until (Return_Code = 0 );
   RmWin;                            { Remove the Window               }
   End; { Get_Zapdata_file }
{----------------------------------------------------------------------}
{     C o m _ N a m e s :  G e t  .C o m   F i l e  N a m e s          }
{----------------------------------------------------------------------}
Procedure Get_Com_Names ;          { Open user Specified Command Files }
   Begin

   Get_Abs_Cursor(x,y);            { Get current cursor position       }
   MkWin(x,y+1,x+48,y+8,Blue);       { Make an input window              }
   Textcolor(Yellow); TextBackground(Blue); Clrscr;

   Repeat { until ComIN_filename <> ComOUT_Filename }

   Repeat                                        { Get Input .COM File }
      Write(' Default ');
      NormVideo; Write('Input'); LowVideo;
      Write(' .COM File ');                      { Ask user for input  }
      NormVideo;                                 { or take the default }
      Writeln(chr(16),' ',ComIN_Filename,' ',chr(17));
      LowVideo;
      Writeln(' Enter New File or <Return> to Accept ');
      Get_User_Filename(ComIN_Filename,Return_Code);
      If (Return_Code <> 0) then Writeln('   ', ComIN_Filename, ' not found');
   Until (Return_Code = 0 );

      Write(' Default ');                        { Get OUTput filename }
      NormVideo; Write('Output'); LowVideo;
      Write(' .COM File ');                      { Ask user for input  }
      NormVideo;                                 { or take the default }
      Writeln(chr(16),' ',ComOUT_Filename,' ',chr(17));
      LowVideo;
      Writeln(' Enter New File or <Return> to Accept ');
      Get_User_Filename(ComOUT_Filename,Return_Code);

   If (ComIN_Filename = ComOUT_Filename) then
      Begin
      NormVideo;
      Writeln('Specify Separate Files for Input/Output Please');
      LowVideo;
      End;

   Until (ComIN_Filename <> ComOUT_Filename);
                                     { Copy Compiler to Work File      }
   CopyFile(ComIN_Filename,ComOUT_Filename,Return_Code);

   RmWin;                            { Remove the Window               }
   End; { Get_Com_Names }
{----------------------------------------------------------------------}
{  Z a p  I n t e n s i t y : Transpose Compiler Edit Intensity        }
{----------------------------------------------------------------------}
Procedure Zap_Intensity;               { Reverse Compiler Intensity    }
   Begin

   Get_Abs_Cursor(x,y);                  { Get current cursor position }
   MkWin(x,y+1,x+48,y+8,White);            { Make an input window        }
   Textcolor(Green); TextBackground(Black); Clrscr;

   Open_Compiler;                        { Open Compiler/Get Version   }
   If (Return_Code = 0) then
       Begin

       Zap_Type := Zap_Edit_Intensity;   { Pass parm to cause          }
       Make_Zap(Zap_Type,Return_Code);   { Compiler  Intensity zaps    }

       If (Return_Code <> 0) then
           Begin                         { Write Error msg and pause   }
           Pause(' Error Processing Intensity Zap ');
           end;
       If (Return_Code = 0) then
           Begin
           Pause(' Compiler Intensity Zaps Completed ');
           end;
       end;
   Close(Zap_file);Close(ComOut_File);
   RmWin;
   End; { Zap_Intensity }
{----------------------------------------------------------------------}
{  Z a p  X c m d : Install the PCDos eXecute Command                  }
{----------------------------------------------------------------------}
Procedure Zap_Xcmd;         { Install the PCDos Turbo eXecute command  }
   Begin

   Get_Abs_Cursor(x,y);                  { Get current cursor position }
   MkWin(4,y+1,76,y+9,Magenta);            { Make an input window        }
   Textcolor(White); TextBackground(Red); Clrscr;

   Open_Compiler;                        { Open Compiler/Get Version   }
   If (Return_Code = 0) then
       Begin

       Zap_Type := Zap_X_Command;        { Pass parm to cause          }
       Make_Zap(Zap_Type,Return_Code);   { Compiler  eXecute   zaps    }

       If (Return_Code <> 0) then
           Begin                         { Write Error msg and pause   }
           Pause(' Error Processing eXecute Zap ');
           end;
       If (Return_Code = 0) then
           Begin
           Pause(' Compiler eXecute Zap Completed ');
           end;
       end;
   Close(Zap_file);Close(ComOut_File);
   RmWin;
   End; { Zap_Intensity }
{----------------------------------------------------------------------}
{  U  s  e  r   Z a p  : Execute a user specified zap from file        }
{----------------------------------------------------------------------}
Procedure User_Specified_Zap;           { Install a User Specified zap }
   Var                                  { whose key we will obtain from}
      TempStr :string[80];              { the console, then match up   }

    Procedure Exit_Out;                 { Provide Cleanup and Exit Rtn }
       Begin
       Close(Zap_file);Close(ComOut_File);
       RmWin;
       End;

   Begin                                 { with a Zap title in the file }
   Get_Abs_Cursor(x,y);                  { Get current cursor position }
   MkWin(4,y+1,76,y+9,Cyan+Bright);        { Make an input window        }
   Textcolor(White); TextBackground(Blue); Clrscr;

   Open_Compiler;                        { Open Compiler/Get Version   }
   If (Return_Code = 0) then
       Begin
       Zap_Type := User_Zap_Type;        { Index is User Zap type      }
       Writeln(' Enter the search Keyword for this ZAP:');
       Readln(TempStr);                  { Ask user for the zap Key    }

       If (Ord(TempStr[0]) < 1) or (TempStr[1] <= ' ')
          then Begin Exit_Out; Exit; End;

       Zap_Headers[User_Zap_Type] := TempStr;
       Make_Zap(Zap_Type,Return_Code);   { Find and Make the Zap       }

       If (Return_Code <> 0) then
           Begin                         { Write Error msg and pause   }
           Pause(' Error Processing User Zap ');
           end;
       If (Return_Code = 0) then
           Begin
           Pause(' User Specified Zap Completed ');
           end;
       end;
   Exit_Out;
   End; { User_Specified_Zap }
{----------------------------------------------------------------------}
{         S a y   B y e   B y e  : Terminate Program                   }
{----------------------------------------------------------------------}
Procedure Say_ByeBye;
   Begin
      Writeln ('   Bye Bye');
   End   ;
{----------------------------------------------------------------------}
{                M a i n   P r o c e d u r e                           }
{----------------------------------------------------------------------}
Begin {Main}

{----------------------------------------------------------------------}
{               S h o w  M e n u  O p t i o n s                        }
{----------------------------------------------------------------------}
    MkWin(1,1,Max_String,Max_Items+8,Yellow); { Make an Options Window }

  Repeat {until Choice = Exit_Pgm}
     Textcolor(Bright+Cyan); TextBackground(Green);
     Option := Menu(Max_Items,Menu_Items);    { Fetch User Choice      }
     Choice := Option_Choices(Option);        { Translate to Case      }

     Case Choice of                  { Execute Sub-Menu Options        }
        Zap_data        : Get_Zapdata_file;
        Com_names       : Get_Com_names;
        Edit_Intensity  : Zap_Intensity;
        Edit_Colors     : Zap_Colors;
        X_command       : Zap_Xcmd;
        User_Zap        : User_Specified_Zap;
        None,Exit_Pgm   : Say_ByeBye

        else
           Begin
           Beep(600);
           Clrscr;
           Pause ('...Undefined program funtion.');
           end;
     end; { Case Choice }
   Until (Choice = Exit_Pgm) or (Choice = None);
     RmWin;

(**)
End. { Main }
{......................................................................}
                                                                                     {**********************************************************************}
{*                 I  N  S  T  X  .  D  O  C                          *}
{*                                                                    *}
{*             Separate this file out into INSTX.DOC                  *}
{**********************************************************************}

       These file are demarked into Text,Main,and Include files.
       A line of {*********} marks the file header and ....
       A line of {.........} marks the file trailer.
       The header indicates the filename used in the {$I ...}
       statement.
{----------------------------------------------------------------------}
{                 A r c h i v e     F o r m a t s                      }
{----------------------------------------------------------------------}
       If you found this file in ".ARC" format ......

       It was necessary to Archive the files to avoid excessive
       download time.

       Separate the file with "ARC X INSTX2". Run Turbo with a main
       file of INSTX.200. The input Turbo Compiler 3.00B or 3.01A
       must reside within the current path. Patches will be made
       to a copy; not the "real thing".

{----------------------------------------------------------------------}
{                 L i b r a r i e d / S q u e e z e d                  }
{----------------------------------------------------------------------}
       The Borland Sysops do not make allowances for [read reject]
       ARChive'd  format.  Therefore this file is LBR'd, then Squeezed
       to avoid excessive cost of uploading/downloading. It will require
       Xmodem in any case. I apologize for the inconvenience to the user
       and hope Borland's decision is more reasonable than arbitrary.

{----------------------------------------------------------------------}
{            I n s t a l l     e X e c u t e  C o m m a n d            }
{----------------------------------------------------------------------}
      This program provides modifications to the Borland Turbo Pascal
      compiler Versions 3.00B and 3.01A.

      Menu selections are -

      1) Specify Input Zap Data File

         This entry allows you to specify your own input zap file
         or accept the default "INSTX.ZAP" provided.

      2) Specify Input/Output .COM File Names

         This entry allows you to override the default Input/Output
         files used as source and target of the zaps or accept the
         defaults of "TURBO.COM" and "TURBX.COM" as the input and
         output file respecively.  The input file will be copied to
         the output file. The output file name must specify a file
         other than the input file.

      3) Reverse Edit Intensity Attributes

         This zap will reverse the intensity attributes of the Turbo
         editor Menus and editor text screen.  This zap will not affect
         the intensity attributes of programs produced by Turbo.

      4) Specify Edit Screen colors

         This zap allows PC Color Graphics Adapter (CGA) users to choose
         full screen color attributes for Hilite, Normal, Marked, and Error
         text for the Editor menus and screen. This does not affect
         color/attributes of programs produced by the compiler.

      5) Install the eXecute Command

         This zap will install a DOS shell (EXEC process) so you may
         exit to DOS while preserving the TURBO environment. You must
         enter the DOS EXIT command to return to TURBO. Note that this
         process requires a minimum of 128K for the TURBO compiler. The
         eXecute command will obtain a second copy of COMMAND.COM from
         the path specifed by the Comspec= environment parameter. (Thanks
         to John Falconer's UseEnv function). Thus, you must have Command.Com
         available via that path. Errors are returned as "EXEC Error #"
         where # =

                2: Command.Com not found on specified (Comspec) path
                3: Path not found - incorrect Comspec path assignment
                4: Too many open files - cant get a handle from DOS
                5: Access denied - hidden Command.Com ??? Say What !!???
                6: Invalid Handle
                7: Memory control blocks destroyed-memory allocation err
                8: Insufficient memory to run secondary shell
                9: invalid Memory block address - clobbered memory
                                   :
               15: Invalid drive specified

         for further information on unlikely errors see DOS Technical
         Reference Manual (Murphy's Error Return Table 5-15).

      6) User specified Zaps

         This menu will ask you for a Keyword, search the Zap file
         for a matching Keyword+Version and apply the zap.
         Look at the INSTX.ZAP file for user zaps that apply to
         your particular version of TURBO. You will find such zaps by
         TURBO gurus as
                         Bela Lubkin
                         N.Arley Dealey
                         et al.

         whose ideas gave rise to this program. The "maximum" zap sets
         the default mAximum memory that a compiled program uses to
         64K rather than All memory. the "msgyes" zap causes the compiler
         to answer its own "Include error messages (Y/N)?" Yes, while the
         "msgno" does the opposite.


                                        Regards

                                        - The Hunters Helper -
                                            Lane  Ferris
                                            4268 26th St.
                                            San Francisco 94131
                                            CompuServe [70357,2716]
{......................................................................}
                                          {**********************************************************************}
{*                  I  N  S  T  X  .  Z  A  P                         *}
{*              Separate this file out into INSTX.ZAP                 *}
{**********************************************************************}

VERSIONS
$0101 $2BB3 PC300B                 PC-DOS Turbo Pascal Version 3.00B
$0101 $2C79 PC301A                 PC-DOS Turbo Pascal Version 3.01A
0

INTENSITY PC301A                   TP301A Menu/Edit Intensity Reversal
$3F9F  3 $E8 $15 $00               Call 3FB7 Menu Intensity Reversal
$3FA4  3 $E8 $20 $00               Call 3FC7
$3FC3  3 $E9 $CB $C2               Jmp  0291 Edit Intensity Reversal
$3FD3  3 $E9 $C4 $C2               Jmp  029A
0

COLORS PC301A                      Fake Color Zap for Positioning
$177   4 $0E $07 $07 $4F           HiLite Normal Marked Error attributes
0

maximum PC301A                     Set mAximum Compiler Free to 64K
$2E3A  2 $00 $10
0
msgyes PC301A                      Set Compiler Error Message Load to yes
$2F5E  4 $0C $FF $EB $1E
0
msgno PC301A                       Set Compiler Error Message Load to no
$2F5E  4 $24 $00 $EB $1E
0

XCOMMAND PC301A                    Compiler 301A Execute Command
$2DB1  2 $10 $A3                   New Turbo Module Length
$3012  2 $FC $6B                   Call to Initialize
$3099  8 $65 $D8 $65 $63 $75 $74 $65 $20          eXecute
$9C10 16 $E9 $EA $02 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C20 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C30 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C40 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C50 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C60 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C70 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C80 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C90 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CA0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CB0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CC0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CD0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CE0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CF0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9D00 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9D10 16 $58 $0E $50 $1E $E8 $00 $00 $5B $81 $EB $07 $01 $B1 $04 $D3 $EB
$9D20 16 $8C $C8 $03 $C3 $8E $D8 $E8 $45 $00 $8C $0E $FD $05 $B8 $23 $01
$9D30 16 $1E $50 $CB $E8 $49 $00 $8C $16 $F9 $05 $89 $26 $FB $05 $33 $C9
$9D40 16 $2B $CC $B8 $D4 $05 $2B $C1 $0E $17 $8B $E0 $E8 $B7 $00 $E8 $62
$9D50 16 $00 $E8 $FC $00 $0B $C0 $74 $03 $E8 $89 $00 $E8 $93 $00 $E8 $35
$9D60 16 $00 $8E $16 $F9 $05 $8B $26 $FB $05 $E8 $AF $00 $1F $CB $1E $1E
$9D70 16 $07 $0E $1F $33 $F6 $8B $FE $B9 $00 $01 $FC $F3 $A4 $1F $C3 $33
$9D80 16 $C9 $2B $CC $0E $07 $8B $F4 $03 $F1 $BF $D4 $05 $1E $16 $1F $4E
$9D90 16 $4F $FD $F3 $A4 $1F $C3 $33 $C9 $2B $0E $FB $05 $0E $07 $BE $D4
$9DA0 16 $05 $8B $3E $FB $05 $03 $F9 $06 $8E $06 $F9 $05 $4F $4E $FD $F3
$9DB0 16 $A4 $07 $C3 $BA $05 $06 $E8 $1E $00 $A1 $FD $05 $48 $8E $C0 $26
$9DC0 16 $A1 $03 $00 $A3 $FF $05 $B1 $06 $D3 $E8 $BB $47 $06 $E8 $07 $01
$9DD0 16 $BA $39 $06 $E8 $01 $00 $C3 $52 $BA $68 $06 $E8 $01 $00 $5A $B4
$9DE0 16 $09 $CD $21 $C3 $BB $34 $06 $E8 $ED $00 $BA $24 $06 $E8 $E7 $FF
$9DF0 16 $C3 $A1 $FD $05 $06 $8E $C0 $8B $1E $FF $05 $B4 $4A $CD $21 $07
$9E00 16 $72 $02 $33 $C0 $C3 $1E $1E $07 $33 $C0 $8E $D8 $BE $88 $00 $BF
$9E10 16 $01 $06 $B9 $02 $00 $FC $A5 $E2 $FC $1F $C3 $33 $C0 $8E $C0 $BF
$9E20 16 $88 $00 $BE $01 $06 $B9 $02 $00 $FC $A5 $E2 $FC $C3 $A1 $FD $05
$9E30 16 $48 $8E $C0 $26 $03 $06 $03 $00 $40 $8E $C0 $26 $A1 $03 $00 $B1
$9E40 16 $06 $D3 $E8 $BB $61 $06 $E8 $8E $00 $BA $51 $06 $E8 $90 $FF $C3
$9E50 16 $55 $8B $EC $1E $06 $FC $BB $FA $06 $B1 $04 $D3 $EB $8C $C9 $03
$9E60 16 $D9 $81 $C3 $00 $10 $43 $A1 $FD $05 $06 $2B $D8 $8E $C0 $B4 $4A
$9E70 16 $CD $21 $07 $73 $03 $EB $5C $90 $E8 $B2 $FF $2E $89 $26 $F6 $06
$9E80 16 $2E $8C $16 $F8 $06 $C7 $06 $7E $06 $00 $00 $B8 $00 $37 $CD $21
$9E90 16 $88 $16 $8D $06 $8D $16 $8C $06 $89 $16 $80 $06 $8C $1E $82 $06
$9EA0 16 $B8 $00 $00 $50 $B8 $B5 $06 $1E $50 $B8 $9C $06 $1E $50 $8B $EC
$9EB0 16 $E8 $1B $01 $BA $9D $06 $8C $C8 $8E $D8 $8E $C0 $BB $7E $06 $B4
$9EC0 16 $4B $B0 $00 $CD $21 $72 $02 $33 $C0 $2E $8E $16 $F8 $06 $2E $8B
$9ED0 16 $26 $F6 $06 $07 $1F $5D $C3 $1E $0E $1F $52 $56 $B9 $04 $00 $C6
$9EE0 16 $07 $20 $43 $E2 $FA $BE $0A $00 $2B $D2 $F7 $F6 $83 $C2 $30 $4B
$9EF0 16 $88 $17 $41 $0B $C0 $75 $F1 $8B $C1 $5E $5A $1F $C3 $E8 $01 $02
$9F00 16 $8B $EC $E8 $00 $00 $58 $2D $08 $00 $2D $ED $02 $B1 $04 $D3 $E8
$9F10 16 $8C $C9 $03 $C1 $8E $D8 $8C $0E $FD $05 $B8 $10 $03 $1E $50 $CB
$9F20 16 $F6 $06 $6B $06 $01 $75 $03 $E8 $2C $00 $E8 $10 $00 $E8 $E6 $01
$9F30 16 $2E $FF $36 $FD $05 $2E $FF $36 $2B $03 $CB $00 $00 $8E $06 $FD
$9F40 16 $05 $8B $1E $7C $06 $8B $5F $06 $26 $8A $1F $B1 $04 $D2 $EB $32
$9F50 16 $FF $B4 $0B $CD $10 $C3 $80 $0E $6B $06 $01 $8E $06 $FD $05 $8B
$9F60 16 $46 $12 $8B $D8 $83 $EB $02 $26 $8B $07 $05 $ED $02 $26 $89 $07
$9F70 16 $8B $46 $12 $C7 $06 $7C $06 $6C $06 $3B $06 $6C $06 $74 $06 $C7
$9F80 16 $06 $7C $06 $74 $06 $8B $1E $7C $06 $8B $47 $02 $A3 $2B $03 $8B
$9F90 16 $5F $04 $8E $06 $FD $05 $26 $8B $37 $B9 $21 $00 $BF $D4 $05 $1E
$9FA0 16 $07 $1E $8E $1E $FD $05 $F3 $A4 $1F $8B $1E $7C $06 $8B $5F $04
$9FB0 16 $8B $0E $FD $05 $8E $C1 $8C $D8 $2B $C1 $B9 $04 $00 $D3 $E0 $50
$9FC0 16 $05 $D4 $05 $26 $89 $07 $58 $05 $00 $01 $A3 $F6 $05 $C3 $55 $1E
$9FD0 16 $06 $83 $EC $04 $8B $EC $2B $C0 $C4 $5E $10 $26 $8A $07 $3C $00
$9FE0 16 $77 $03 $E9 $07 $01 $89 $46 $00 $03 $D8 $43 $26 $C6 $07 $3D $8C
$9FF0 16 $CA $8E $C2 $26 $8B $1E $2C $00 $83 $FB $00 $75 $0D $8B $DA $4B
$A000 16 $8E $C3 $26 $03 $1E $03 $00 $83 $C3 $02 $8B $D3 $4A $8E $C2 $26
$A010 16 $8B $0E $03 $00 $D1 $E1 $D1 $E1 $D1 $E1 $D1 $E1 $89 $4E $02 $8E
$A020 16 $C3 $2B $FF $8B $DF $8B $D1 $3B $7E $02 $73 $40 $B0 $3D $E8 $C8
$A030 16 $00 $75 $39 $8B $DF $8B $D1 $4F $8B $4E $00 $C5 $76 $10 $41 $03
$A040 16 $F1 $FD $F3 $A6 $75 $E1 $83 $7E $14 $00 $75 $29 $8B $FB $8B $CA
$A050 16 $B0 $00 $FC $F2 $AE $2B $D1 $8B $CA $49 $8C $C0 $8E $D8 $8B $F3
$A060 16 $C4 $7E $0C $26 $88 $0D $47 $F3 $A4 $EB $77 $90 $83 $7E $14 $00
$A070 16 $75 $2C $EB $78 $90 $03 $56 $00 $47 $8B $DF $B0 $00 $E8 $79 $00
$A080 16 $26 $3A $05 $75 $09 $8B $FB $26 $C6 $05 $00 $EB $11 $90 $8B $F7
$A090 16 $8B $4E $02 $2B $CF $8C $C0 $8E $D8 $8B $FB $FC $F3 $A4 $2B $FF
$A0A0 16 $8B $4E $02 $B8 $00 $00 $26 $3B $05 $74 $06 $47 $E2 $F8 $EB $3C
$A0B0 16 $90 $47 $8B $5E $02 $2B $DF $2B $5E $00 $7E $30 $83 $EB $02 $7E
$A0C0 16 $2B $C5 $76 $0C $8A $0C $80 $F9 $00 $74 $17 $8B $4E $00 $41 $C5
$A0D0 16 $76 $10 $46 $FC $F3 $A4 $C5 $76 $0C $8A $0C $46 $F3 $A4 $B8 $00
$A0E0 16 $00 $AB $83 $C4 $04 $B0 $01 $22 $C0 $EB $08 $90 $83 $C4 $04 $B0
$A0F0 16 $01 $32 $C0 $07 $1F $5D $C2 $0A $00 $8B $FB $8B $CA $FC $F2 $AE
$A100 16 $C3 $55 $8B $EC $87 $46 $00 $87 $46 $02 $53 $51 $52 $56 $57 $1E
$A110 16 $06 $50 $8B $6E $02 $C3 $5D $07 $1F $5F $5E $5A $59 $5B $58 $55
$A120 16 $8B $EC $87 $6E $02 $C2 $02 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A130 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A140 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A150 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A160 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A170 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A180 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A190 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1A0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1B0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1C0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1D0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1E0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1F0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A200 16 $00 $00 $00 $00 $00 $58 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A210 16 $00 $00 $00 $00 $00 $45 $6E $74 $65 $72 $20 $5B $45 $58 $49 $54
$A220 16 $5D $20 $74 $6F $20 $43 $6F $6E $74 $69 $6E $75 $65 $20 $54 $55
$A230 16 $52 $42 $4F $24 $45 $78 $65 $63 $20 $45 $72 $72 $6F $72 $20 $43
$A240 16 $6F $64 $65 $20 $30 $30 $30 $30 $24 $54 $75 $72 $62 $6F $20 $52
$A250 16 $65 $67 $69 $6F $6E $3A $20 $30 $30 $30 $30 $20 $4B $20 $2D $20
$A260 16 $24 $65 $58 $65 $63 $75 $74 $65 $20 $52 $65 $67 $69 $6F $6E $3A
$A270 16 $20 $30 $30 $30 $30 $20 $4B $24 $0D $0A $24 $00 $31 $2F $C3 $3E
$A280 16 $F0 $2E $78 $01 $14 $30 $8B $3F $B6 $2F $78 $01 $4C $01 $00 $00
$A290 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $0F $2F $43 $20
$A2A0 16 $43 $4F $4D $4D $41 $4E $44 $2E $43 $4F $4D $0D $00 $00 $00 $00
$A2B0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A2C0 16 $00 $00 $00 $00 $00 $07 $43 $4F $4D $53 $50 $45 $43 $3D $06 $50
$A2D0 16 $52 $4F $4D $50 $54 $3D $1E $00 $00 $00 $00 $00 $00 $00 $00 $00
$A2E0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A2F0 16 $00 $00 $00 $00 $00 $07 $00 $EF $06 $00 $00 $C7 $06 $C7 $06 $54
$A300 10 $55 $52 $42 $4F $0D $0A $00 $00 $00 $00
0

INTENSITY PC300B                   TP300B Menu/Edit Intensity Reversal
$3EFB  3 $E9 $76 $C3               Jmp  0274 Edit Intensity Reversal
$3F0B  3 $E9 $6F $C3               Jmp  027D
$3ED7  3 $E8 $15 $00               Call 3EEF Reverse Menu Intensity
$3EDC  3 $E8 $20 $00               Call 3EFF
0
COLORS PC300B                      Fake Color Zap for Positioning
$177   4 $0E $07 $07 $4F           HiLite Normal Marked Error attributes
0

XCOMMAND PC300B                    Compiler 300B Execute Command
$2CEB  2 $10 $A3                   New Turbo Module Length
$2F2F  2 $DF $6C                   Call to Initialize
$2FD3  8 $65 $D8 $65 $63 $75 $74 $65 $20          eXecute
$9C10 16 $E9 $EA $02 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C20 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C30 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C40 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C50 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C60 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C70 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C80 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9C90 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CA0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CB0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CC0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CD0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CE0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9CF0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9D00 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$9D10 16 $58 $0E $50 $1E $E8 $00 $00 $5B $81 $EB $07 $01 $B1 $04 $D3 $EB
$9D20 16 $8C $C8 $03 $C3 $8E $D8 $E8 $45 $00 $8C $0E $FD $05 $B8 $23 $01
$9D30 16 $1E $50 $CB $E8 $49 $00 $8C $16 $F9 $05 $89 $26 $FB $05 $33 $C9
$9D40 16 $2B $CC $B8 $D4 $05 $2B $C1 $0E $17 $8B $E0 $E8 $B7 $00 $E8 $62
$9D50 16 $00 $E8 $FC $00 $0B $C0 $74 $03 $E8 $89 $00 $E8 $93 $00 $E8 $35
$9D60 16 $00 $8E $16 $F9 $05 $8B $26 $FB $05 $E8 $AF $00 $1F $CB $1E $1E
$9D70 16 $07 $0E $1F $33 $F6 $8B $FE $B9 $00 $01 $FC $F3 $A4 $1F $C3 $33
$9D80 16 $C9 $2B $CC $0E $07 $8B $F4 $03 $F1 $BF $D4 $05 $1E $16 $1F $4E
$9D90 16 $4F $FD $F3 $A4 $1F $C3 $33 $C9 $2B $0E $FB $05 $0E $07 $BE $D4
$9DA0 16 $05 $8B $3E $FB $05 $03 $F9 $06 $8E $06 $F9 $05 $4F $4E $FD $F3
$9DB0 16 $A4 $07 $C3 $BA $05 $06 $E8 $1E $00 $A1 $FD $05 $48 $8E $C0 $26
$9DC0 16 $A1 $03 $00 $A3 $FF $05 $B1 $06 $D3 $E8 $BB $47 $06 $E8 $07 $01
$9DD0 16 $BA $39 $06 $E8 $01 $00 $C3 $52 $BA $68 $06 $E8 $01 $00 $5A $B4
$9DE0 16 $09 $CD $21 $C3 $BB $34 $06 $E8 $ED $00 $BA $24 $06 $E8 $E7 $FF
$9DF0 16 $C3 $A1 $FD $05 $06 $8E $C0 $8B $1E $FF $05 $B4 $4A $CD $21 $07
$9E00 16 $72 $02 $33 $C0 $C3 $1E $1E $07 $33 $C0 $8E $D8 $BE $88 $00 $BF
$9E10 16 $01 $06 $B9 $02 $00 $FC $A5 $E2 $FC $1F $C3 $33 $C0 $8E $C0 $BF
$9E20 16 $88 $00 $BE $01 $06 $B9 $02 $00 $FC $A5 $E2 $FC $C3 $A1 $FD $05
$9E30 16 $48 $8E $C0 $26 $03 $06 $03 $00 $40 $8E $C0 $26 $A1 $03 $00 $B1
$9E40 16 $06 $D3 $E8 $BB $61 $06 $E8 $8E $00 $BA $51 $06 $E8 $90 $FF $C3
$9E50 16 $55 $8B $EC $1E $06 $FC $BB $FA $06 $B1 $04 $D3 $EB $8C $C9 $03
$9E60 16 $D9 $81 $C3 $00 $10 $43 $A1 $FD $05 $06 $2B $D8 $8E $C0 $B4 $4A
$9E70 16 $CD $21 $07 $73 $03 $EB $5C $90 $E8 $B2 $FF $2E $89 $26 $F6 $06
$9E80 16 $2E $8C $16 $F8 $06 $C7 $06 $7E $06 $00 $00 $B8 $00 $37 $CD $21
$9E90 16 $88 $16 $8D $06 $8D $16 $8C $06 $89 $16 $80 $06 $8C $1E $82 $06
$9EA0 16 $B8 $00 $00 $50 $B8 $B5 $06 $1E $50 $B8 $9C $06 $1E $50 $8B $EC
$9EB0 16 $E8 $1B $01 $BA $9D $06 $8C $C8 $8E $D8 $8E $C0 $BB $7E $06 $B4
$9EC0 16 $4B $B0 $00 $CD $21 $72 $02 $33 $C0 $2E $8E $16 $F8 $06 $2E $8B
$9ED0 16 $26 $F6 $06 $07 $1F $5D $C3 $1E $0E $1F $52 $56 $B9 $04 $00 $C6
$9EE0 16 $07 $20 $43 $E2 $FA $BE $0A $00 $2B $D2 $F7 $F6 $83 $C2 $30 $4B
$9EF0 16 $88 $17 $41 $0B $C0 $75 $F1 $8B $C1 $5E $5A $1F $C3 $E8 $01 $02
$9F00 16 $8B $EC $E8 $00 $00 $58 $2D $08 $00 $2D $ED $02 $B1 $04 $D3 $E8
$9F10 16 $8C $C9 $03 $C1 $8E $D8 $8C $0E $FD $05 $B8 $10 $03 $1E $50 $CB
$9F20 16 $F6 $06 $6B $06 $01 $75 $03 $E8 $2C $00 $E8 $10 $00 $E8 $E6 $01
$9F30 16 $2E $FF $36 $FD $05 $2E $FF $36 $2B $03 $CB $00 $00 $8E $06 $FD
$9F40 16 $05 $8B $1E $7C $06 $8B $5F $06 $26 $8A $1F $B1 $04 $D2 $EB $32
$9F50 16 $FF $B4 $0B $CD $10 $C3 $80 $0E $6B $06 $01 $8E $06 $FD $05 $8B
$9F60 16 $46 $12 $8B $D8 $83 $EB $02 $26 $8B $07 $05 $ED $02 $26 $89 $07
$9F70 16 $8B $46 $12 $C7 $06 $7C $06 $6C $06 $3B $06 $6C $06 $74 $06 $C7
$9F80 16 $06 $7C $06 $74 $06 $8B $1E $7C $06 $8B $47 $02 $A3 $2B $03 $8B
$9F90 16 $5F $04 $8E $06 $FD $05 $26 $8B $37 $B9 $21 $00 $BF $D4 $05 $1E
$9FA0 16 $07 $1E $8E $1E $FD $05 $F3 $A4 $1F $8B $1E $7C $06 $8B $5F $04
$9FB0 16 $8B $0E $FD $05 $8E $C1 $8C $D8 $2B $C1 $B9 $04 $00 $D3 $E0 $50
$9FC0 16 $05 $D4 $05 $26 $89 $07 $58 $05 $00 $01 $A3 $F6 $05 $C3 $55 $1E
$9FD0 16 $06 $83 $EC $04 $8B $EC $2B $C0 $C4 $5E $10 $26 $8A $07 $3C $00
$9FE0 16 $77 $03 $E9 $07 $01 $89 $46 $00 $03 $D8 $43 $26 $C6 $07 $3D $8C
$9FF0 16 $CA $8E $C2 $26 $8B $1E $2C $00 $83 $FB $00 $75 $0D $8B $DA $4B
$A000 16 $8E $C3 $26 $03 $1E $03 $00 $83 $C3 $02 $8B $D3 $4A $8E $C2 $26
$A010 16 $8B $0E $03 $00 $D1 $E1 $D1 $E1 $D1 $E1 $D1 $E1 $89 $4E $02 $8E
$A020 16 $C3 $2B $FF $8B $DF $8B $D1 $3B $7E $02 $73 $40 $B0 $3D $E8 $C8
$A030 16 $00 $75 $39 $8B $DF $8B $D1 $4F $8B $4E $00 $C5 $76 $10 $41 $03
$A040 16 $F1 $FD $F3 $A6 $75 $E1 $83 $7E $14 $00 $75 $29 $8B $FB $8B $CA
$A050 16 $B0 $00 $FC $F2 $AE $2B $D1 $8B $CA $49 $8C $C0 $8E $D8 $8B $F3
$A060 16 $C4 $7E $0C $26 $88 $0D $47 $F3 $A4 $EB $77 $90 $83 $7E $14 $00
$A070 16 $75 $2C $EB $78 $90 $03 $56 $00 $47 $8B $DF $B0 $00 $E8 $79 $00
$A080 16 $26 $3A $05 $75 $09 $8B $FB $26 $C6 $05 $00 $EB $11 $90 $8B $F7
$A090 16 $8B $4E $02 $2B $CF $8C $C0 $8E $D8 $8B $FB $FC $F3 $A4 $2B $FF
$A0A0 16 $8B $4E $02 $B8 $00 $00 $26 $3B $05 $74 $06 $47 $E2 $F8 $EB $3C
$A0B0 16 $90 $47 $8B $5E $02 $2B $DF $2B $5E $00 $7E $30 $83 $EB $02 $7E
$A0C0 16 $2B $C5 $76 $0C $8A $0C $80 $F9 $00 $74 $17 $8B $4E $00 $41 $C5
$A0D0 16 $76 $10 $46 $FC $F3 $A4 $C5 $76 $0C $8A $0C $46 $F3 $A4 $B8 $00
$A0E0 16 $00 $AB $83 $C4 $04 $B0 $01 $22 $C0 $EB $08 $90 $83 $C4 $04 $B0
$A0F0 16 $01 $32 $C0 $07 $1F $5D $C2 $0A $00 $8B $FB $8B $CA $FC $F2 $AE
$A100 16 $C3 $55 $8B $EC $87 $46 $00 $87 $46 $02 $53 $51 $52 $56 $57 $1E
$A110 16 $06 $50 $8B $6E $02 $C3 $5D $07 $1F $5F $5E $5A $59 $5B $58 $55
$A120 16 $8B $EC $87 $6E $02 $C2 $02 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A130 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A140 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A150 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A160 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A170 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A180 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A190 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1A0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1B0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1C0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1D0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1E0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A1F0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A200 16 $00 $00 $00 $00 $00 $58 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A210 16 $00 $00 $00 $00 $00 $45 $6E $74 $65 $72 $20 $5B $45 $58 $49 $54
$A220 16 $5D $20 $74 $6F $20 $43 $6F $6E $74 $69 $6E $75 $65 $20 $54 $55
$A230 16 $52 $42 $4F $24 $45 $78 $65 $63 $20 $45 $72 $72 $6F $72 $20 $43
$A240 16 $6F $64 $65 $20 $30 $30 $30 $30 $24 $54 $75 $72 $62 $6F $20 $52
$A250 16 $65 $67 $69 $6F $6E $3A $20 $30 $30 $30 $30 $20 $4B $20 $2D $20
$A260 16 $24 $65 $58 $65 $63 $75 $74 $65 $20 $52 $65 $67 $69 $6F $6E $3A
$A270 16 $20 $30 $30 $30 $30 $20 $4B $24 $0D $0A $24 $00 $31 $2F $C3 $3E
$A280 16 $F0 $2E $78 $01 $14 $30 $8B $3F $B6 $2F $78 $01 $4C $01 $00 $00
$A290 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $0F $2F $43 $20
$A2A0 16 $43 $4F $4D $4D $41 $4E $44 $2E $43 $4F $4D $0D $00 $00 $00 $00
$A2B0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A2C0 16 $00 $00 $00 $00 $00 $07 $43 $4F $4D $53 $50 $45 $43 $3D $06 $50
$A2D0 16 $52 $4F $4D $50 $54 $3D $1E $00 $00 $00 $00 $00 $00 $00 $00 $00
$A2E0 16 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00 $00
$A2F0 16 $00 $00 $00 $00 $00 $07 $00 $EF $06 $00 $00 $C7 $06 $C7 $06 $54
$A300 10 $55 $52 $42 $4F $0D $0A $00 $00 $00 $00
0
{......................................................................}
                                                                  éy,Í«Copyright (C) 1985 BORLAND Inc ±W <3                                        Default display modePÿÿpp.Š'
äùtC.ŠPèØXþÌuóøÃy ÿ,Ç n .Æ” ¾  &‹.£•&‹D.£—ú&ÇÄ&ŒLûë"P3ÀŽØÇ  Û.£’X.ÿ.•.Æ”ÿ.ÿ.•è4 .ÿ’.€>”ÿuð.¡—ú&‰D.¡•&‰û.¡’À£ Ã‹Ã‹Èãè âûÃQ‹ âþYÃU´Í]: t  é¡ U¸ Š> ‹ .‹jþÎþÊÍ´‹ 2ÿÍ]ÃSQRUèA ´°Š> ŠîŠ .‹jþÎþÊ:îu2ÀÍ]ZY[ÃSQRUè ´ëÓP  ¢ XÃP   ¢ XÃ´2ÿÍÃSQRUèòÿ¸ Š> ‹Ê.ŠjþÊÍ]ZY[Ãèø. m<ÿuU´Í]Æ  Æ  Æ	 ÿ<·P³ ¾ot ¾w<t<r°³ÿ<t·(<t2À³ ¾s¢ ˆ .ˆ>j.‹£  .‹D£ U´Í: t  2äÍ]éXÿÃPSQRVWUœ†Ö .:6ks.:js´2ÿÍ]_^ZY[XÃé/è/ÿŠÂ* þÀ2äÃè!ÿŠÆ* þÀ2äÃ[<w.¢kX<Pw.¢jX.:ksþÈ¢ X.:jsþÈ¢ ÿã$¨t$€€& p Ã$±Òà€&  ÃU£ Ç
   Ç   Ç Ç  	 2äÍ3Ûˆ  ´ÍþÇ´Í]ÃÆ	 ¸?ëÇÆ	 ëôÆ	 ¸èµÿ¸ ëF$Š&  €ä
Ä¢  U2ÿŠ  ´Í]ÃUŠ  €ãï´€>	 t´:Är*Ä€Ëˆ  ·ŠØ´Í]ëÈU‹Ø´Í]Ã[¹€>	 t¹?=Ç w£ X;Áw£ X; s£ X; s£
 ÿã[ZYS´Éx
 ; wÒx ; wUÍ]Ã´£ _XZ[‰ è” ‰ èã’[W‰ èƒ ‰ èÒ‹Ø;Ú~;‹ÂÀ+Ã£ ‹ËAès ¡ À~ÂÂ+Ã+Ã£ ¡  ëÂÂ£ ¡  âÒÃ‹ÃÀ+Â£ ‹ÊAè8 ¡ À~ÃÃ+Â+Â£ ¡  ëÃÃ£ ¡  âÒÃ3É+ÃtxAÃIÃQR¡ ‹ ‹ èÿZYÃ‹Ø¸Ý4º ;Ós÷ó‹Øäa¨uæa°¶æCŠÃæBŠÇæBÃäa$üæaÃ‘[_ë)PQ±ÓèØYX% Ã;Úu;ÁÃÁÚëå&‹E&‹]PÃXÃ[S‰>& Œ( ‹Á » r3Û$øè¼ÿ‹È‹ÓÇ. " Œ0 Ä>" èÂÿt%è°ÿs‰>. Œ0 &Ä=ëéès t	+ÁÚ% ë6&Ä=ëTè` ‹ÇŒÃè‹ÿ£Š‰ŒQR‹È‹Ó‹ÄŒÓƒëè_ÿ3ÀèhÿZYwéo	3À3ÛSP&ÿu&ÿ5‹ÇŒÃèTÿ‹øŽÃ&&E&E&EÄ6. &‰<&DÃÄ6& &‰<&DÃ‘[_ë[S‹Á&‹&‹U » r3Û$øèîþ£* ‰, Ä>" ‹ÇŒÃèêþsW&‹&‹]èÞþs‹øŽÃëî‹ñŽÂÿ6, ÿ6* &‰&‰\&D&D&‰&‰U&‹E&‹]è< t&Ä=&‹E&‹]&‹&‹Uë&‰" ‰$ ‹ùŽÂ&‰&‰]‹È‹Ó¡* ‹, &‰E&‰]£2 ‰4 ÇŒÃ4 èKþèVþuQ¡Š‹ŒèJþt1‹ñŽÂ&‹&‹\&‹L&‹T&‰&‰]¡2 ‹4 è)þ&‰E&‰]3ÀÃ‰>ŠŒŒW3Àü¹ ó«_3ÀÃ3É3Ò3öÄ>" èþtè &Ä=ëó‹ÄŒÓƒëèÓý3À+Œrè ‹ÂÃ;ós‹óèÑý‹È‹ÓÃèÀÿ‹ÆÃ[¡Š&‰‹Œ&‰Uÿã[&Ä=‰>Š‰>" ŒŒŒ$ 3ÀÄ>" ¹ üó«ÿã€>’ °ÿu
´Í° tþÈ% Â  ’Æ’ 
Àu"2äÍ
Àuˆ&’°
äu°€>”u<ué|2äÂ XZPRURèûùX<uŠ ëh<
uþÆ.:6kr[ë?<u
: tOþÊëK<u´2ÿÍëER´	2ÿ¹ Š ÍZþÂ.:jr'Š þÆ.:6krþÎR¸Š> ‹ .‹jþÎþÊÍZ´2ÿÍ]€>”uLè&ÿtLè9ÿ<uLè1ÿXÃXZP´ëXZP´ë´è 2äÂ €ü=t€ü<t€ü>t2€ü€tGUÍ!]ÃVQ‹6z‹|ƒ< tFFâ÷Y^¸ ùÃYèÚÿr‰^ÃQV‹6z‹|9uÇ  FFâô^Yë¹‹6z‹|‹Ût	´>è¦ÿÇ  FFâíÃ3À£r¿@‰>z‰|3Àüó«ŽÀ&ÇŒ b
&ŒŽ è£÷Æ” ¾&
¿6¹ üó¥3À£’¢€£‚£„Æ~Æ6 ÃSlŸ=	E	M	ŸlÿÿÁ ÿÿ‚ ÿÿC ÿÿÄ ÿÿÅ ÿÿÁ         ÿÿÁ         ÏSQRWV2äPÿ:^_ZY[ÃSQRWVLÿ8ëîU‹ì‡^.ŠC
ÀtèÑÿëó‡^]Ãèåÿ
 Ã<ar<zw, ÃPŠÄè XPÐÈÐÈÐÈÐÈè X$'@'ëš
ätù¸  xþÈÃèN^ŒÈ.D.D.D
.; véDŒË.\ŽÛ.\.‹ +Ó.;Tr.‹T‹ú¸þÿê s‹Â ±Óà3ÒÓŽÒ‹à£t3À£Š‰Œ£" ‰$ WÄ>" ¹ üó«_.÷ uŒÈŽÀß+Ø´Jèùý.‹D£v.‹D£x.‹.‹LQVèXþ^Y¿@ùù‰>^.‹D£`øÀtÇZ  Æ\ ‰>j.‹D£lÀtÇf Æh ƒÆV3ÀŽÀ&¡  £Ž&¡ £&Ç  2&Œ ÷r t&Ç ð&Œ ÷r tÆ”Ç~Ð3À£ˆ¢–‹`¿Zè‹l¿fèÆú è¢öÃ´0è+ý
ÀtÃº_ëºM´	èýºu´	èý´ è
ýNot enough memory$Incorrect DOS version$
Program aborted
$P¿ZèÂ¿fè»3ÀŽÀ¡Ž&£  ¡&£ X÷r u´LèŸü´€èšüÿ6v¸=PŽxË[.‹Àt53Ò‹ÀtSØBëô‹Ë[‹óƒÆ‹;÷t+ÎñùNOýó¤JuãÇ  ƒÃÿã^.;uƒÆÿæPRV¿–2ÀŠàŠ
ÀtGëõW
ät€ü:t	€ü\tÆ\GFF.ŠˆFG
Àuõ¸ =º–è ü‹Ø_^ZÆ r).‰¸ B2íŠÎŠò2ÒèåûYr´?Tè×ûr´>èÏûëŠ²ðVé¨[èRS¾¶ ¿–¹  üó¥ÃLÿ6Ã[YSŠÐŠñþÊþÎé‹õ‹ÐÒtè “[+àL‹üüª‘ó¤ÿã3Ò¿€ .Š2íG3Ûã.Š< t<	uGIëï‹÷ã.Š< t<	tGIëï‹Ç+ÆtCJuÒ“Ãˆæ‰>è[êYXSQ»¶ èòë#ˆæ‰>è[êZX¿ôEESP‘»¶ è÷YÄ>èWŠæ2ö“-¶ +ÈvG&Æ þÆ:òtâó‘»¶ ŠCG&ˆþÆ:òtâñ_&ˆ5Ã2Àë°¢ç‰>ð[òìîèG S3À»¶ 8t08çuèðr!Ä>ì&‰ë¿ôèr‹÷Ä>ìü¥¥¥3À8t“-µ Ä>ð&‰Ã¹@ ë¹ ¿¶ X‹ô6Š2ö;Êv‹ÊBF¿¶ üó¤Æ âÿà´,è>ú‰þ‰üÃ[ŒÚ‹÷_üó¤ŽÚÿã[ŒÚ‹÷+á‹üüó¤ŽÚÿã[Y_üóªÿã‘ŒÚ[_^ü;÷sñùNOýó¤ŽÚÿã[XUPWS‹÷ŽØü­P­‹Ø­‹È­‹Ð­‹è­P­‹ø­P­ŽÀ^XÃœWU‹ìÄ~
ü«‹Ã«‹Á«‹Â«X«‹Æ«X«ŒØ«X«X«[ƒÄ]ÿã;ÁsÃ²ëv;Á|;ÂÃ²‘ëh‹Ä+Ár= r±ÓèŒÑÁ;ŒrÃ²ÿëI[XS€”LèVøtLèiø€&”<tÃ†ƒ†º ë#3À†€Ã€>€ uÃŠ€¶ë[XS²†¶Rè´ùZ¡†- ‡ˆÀuRRÿ6ˆÿ~Z€þsèú^C
User Break ë0Æúÿwèú
I/O ëè÷ù
Run-time èéù error  ŠÂèúèÙù, PC= ¡ˆè÷ùèÊù
Program aborted
 °é¹ûÂ Ày÷ØÃPè [Ñè™÷ó’Ã‹þ‹üSQŠÇŠûŠÝŠé2ÉÐØÑÛÑÙXÈXØ¸ébÈ¸6Ø‰þ‰ü‹ÃÃÀy÷ØÆ-C2íº'è ºèè ºd è	 ²
è ŠÈë2ÉþÁ+ÂsúÂþÅþÉuþÍt€Á0ˆCÃ3À€?$º
 u²CPŠè0ùŠÈX€é0r%€ù
r€úu€é€ù
r€ùsR÷âZr2íÁsÎë	€út‹ÈÉÃŠ€ù-uCQèªÿYr	€ù-u÷ØøÃ= €u€ù-uÃùÃ[‹÷&Š2íA+á‹üüó¤ÿã^.Š2íA+á‹üüó¤ÿæZŠÁ‹Ü6Š2íÙC6Ä?‹ô:ÈvŠÈ6ˆAüó¤gÿâ[‹÷2í+áL‹ü6ˆGüó¤ÿã[2í‹ô6Š2ä+Á‹þøÀt'y‹ç6ŠAüó¤ë6ˆùñAýó¤G‹çÿãèE ¸ tHÀÃè9 ¸ uHÀÃè- ¸ sHÀÃè! ¸ vHÀÃè ¸ wHÀÃè	 ¸ rHÀÃ‹üƒÇ6Š2íG‹÷ñ6Š2öF‹ÞÚŠÁŠâ;Êv‡ÊÉtüó¦u:àZY‹ãQÿâ†‹ü6Š2ö‹÷Fò6ŠÑr&6ˆ2í+ù‹çAVüó¤‹þ^NO‹ÊAýó¤G‹çÿ&†²éýü†èƒ÷‹ÈXèrH‹ô6Š2ö‹üú+Ðvð;Ñvñ‹Ñýó¤ë3Ò‡÷6ˆ‹æÿ&†[‹ü6Š2äàDÿã†‹ü6Š2öG‹÷ò6Š2íF‹ÞÙ3À+Ñr@ÉtBüQWVó¦^_Yt@GJuñ3À‹ãÿ&†ˆ £[‰&
ŒSÄ>WèÚý¸ P¡HèBÿÄ>
èÇýèõþÄ>è¼ýÿ6¸ÿ è%ÿèàþŠ è×ýéWÿ£[SÄ>WèŠý¸ P¡Hèòþ¡
äuÄ>èlýP¸ÿ èØþè“þ±ÿèŒýÃ[XþÈu†Äÿã‰†²é¹û‹ô6Š\2ÿ6‹@Šà°6‰@Ã[â‹ô6Š:Át2äð‹ü2íù‘Aýó¤G‹çÿã
äu
ÀtÃ²épû[Z‹÷ƒì ‹üQü
ít2ÀªþÍuûŽÚó¤Y´ *å*át2ÀªþÌuûÿã[ƒì ‹ü¹ 3Àüó«ÿãèï 6Ã‘[XS*Èr2íAŠáèÛ ŠÌ6ÐàsC°âôÃ‹ôFF6‹| 6ŽD"ŠÕ2öò2íüó¤Â$ [ŠÕ2ö2í‹ôòñ‹üƒÇ ;÷tNOýó¤G‹çÿã¸ ë3Àè• ó§ŽÚt5 ÀÂ@ 3Àë¸ è} Hu‡þ­¯uâø¸ ë3ÀŽÚÀÂ@ è_ ­«âúŽÚÂ  èQ ­÷Ð#«âøŽÚÂ  èA ­#«âúŽÚÂ  ‹Ü6‹G"
ät3Àëè 6"¸  t@ÀÂ" ŠØ2ÿ±ÓëƒÃÜŠÈ€á°ÒàÃ‹ôƒÆ‹üƒÇ$ŒÚ¹ üÃ;Ã¸  u;Ñu@ÀÃ;Ã¸ u;ÑuHÀÃÇ  €ëÇ   
Ét3> 
Àu‹Á‹Þ‹×Ã:Áv‘‡Þ‡×ˆ$*È€ù(rŠ$ëß‰> €&!€‰>"06#Ï €€Î€€ùrŠç‹Ú3Ò€éëð€ùrŠãŠßŠúŠÖ2ö€é
Ét
ÑêÑÛÐÜþÉuö $ö#€uåÞ×s^ÑÚÑÛÐÜþÀuTùÃ†å‡Þ‡×*åÞ×s€6!€öÔ÷Ó÷Ò€ÄƒÓ ƒÒ ±
öuŠòŠ×ŠûŠÜ2ä,rþÉuêëöÆ€uÐäÑÓÑÒþÈuñ3À3Û3ÒÃ€æ26!Ã
Éto
ÀtqÁè£‰‰2ä3Û3Ò¿±GŠ-
íuŠãŠßŠúŠÖ2öë¾ ÐÝs&ÑÚÑÛÐÜNuçþÉuÍ‘ŸöÆ€užÐÕÑÓÑÒ
ÉtþÉ‘26!
Àu3À3Û3ÒÃ
Àtû*Áõè ¢¿±¾ ;u
;u:&r*&õÐÕNu
ˆ-þÉtO¾ ÐäÑÓÑÒsÊ*&øëÙÐäÑÓÑÒr;u
;u:&õ‹‹‹ŸöÆ€u	žÐÕÑÓÑÒëþÁuùÃéYÿr€r[3À3Û3ÒÃ€s[ùÃ‰‹Ê3ÏöÕ€å€ˆ.!€Î€Ï €‰6‰>ÃWVQèÀýY^_ÃWVQè®ýY^_ÃWVQèŸþY^_ÃWVQèÿY^_ÃR3×ZyRÑÒZÃöÆ€tè tõÃ:Áu
Àt
;×u;Þu:åÃÀu3Û3ÒÃŠü‹ÐÒy÷Ú¸ 
öu°ˆ†ÖÒxþÈÑâyú
ÿx€æ3ÛÃ<¨sI‹È‹ó‹ú2ä3Û3Ò€é€v9€ùrŠç‹Úºÿÿ€éëï€ùrŠãŠßŠúŠÖ¶ÿ€é
ÉtùÑÚÑÛÐÜþÉuõ#×#Þ"åÃ2ÀÃRSPè©ÿ‹È‹ó‹úX[Zé×ü[&ÿu&ÿu&ÿ5ÿã[.ÿw.ÿw.ÿ7ƒÃÿã[XYZ_&‰&‰M&‰Uÿã†Y^_X[ZèŸürRSPÿ&†²é{ö†Y^_X[Zè|üëã†Y^_X[ZèhýëÔ†Y^_X[Z
ÉtèÏýëÁ²éEö‹Ü6€ t6€w€Ã‹Ü6€gÃ†Y^_X[Zè™þÿ6†¸ tHÀÃ†Y^_X[Zèþÿ6†¸ uHÀÃ†Y^_X[Zèeþÿ6†¸ sHÀÃ†Y^_X[ZèKþÿ6†¸ vHÀÃ†Y^_X[Zè1þÿ6†¸ wHÀÃ†Y^_X[Zèþÿ6†¸ rHÀÃ†X[Z‹È‹ó‹úé ÿ†X[ZèLþéîþ†X[Zèþéáþèöº€ ° öÇ€uÑáÑÓþÊþÈuñ2Ò€çXSQRÿàµÿë2í[XZZS’±*Êr"€ùwþÁŠü€Ì€Óès
ít@xöÇ€t÷ØÃ3ÀÃ²’é	õè¬ýYRSPÿá†Y^_Xè›ýRSPWVQÿ&††X[Z‹È‹ó‹ú
ÀtAöÆ€uC£‰‰€Á€Ðù€Á€ŠÁ,¢%¡‹‹èýèþüþÈRSPè´ú:%Y^_sÞWVQÿ&†²é‘ô†Y^_¸!»¢ÚºIèŒúë†X[Z<lr[¹ƒ!¾¢Ú¿IR€æèÙüZrèÉüWVQèzýY^_è³üöÆ€tè—üþÉèºüœrè–üþÉè¯ürþÁ€Î€èCú<lr	¿)¹ èÆr
Àt€ö€éŒýX9Ÿ?×`C0’0gª?(2×n¶*ï8tÐ Ðzˆˆˆˆ~«ªªªª†X[Z
ÀtöÆ€t²éÔóŠì±*Á˜P‘¹€û¾3ó¿5èÈú‹È‹ó‹ú¸ 3Û3ÒèÿûRSP¸ 3Ûº €è·ùY^_èû¿ß¹ è8þÀ¹Ò¾÷¿r1èšùYRSP‘èü¹€Ò¾÷¿r1èyúY^_è€ù<gs3À3Û3ÒéÖü}ŠØ‰}é¢‹.:}Žã8Žc~I’$I~ÍÌÌÌL«ªªª*†X[ZöÆ€œ€æ¹€Ò¾÷¿r1è¢ú<ˆsURSPþÀµÿèÖýY^_Pè¬û
ÀtþÈ‘‡Þ‡×è
ù¿|¹ è²YÑésQ¹û¾3ó¿5èêùYÁrt‹È‹ó‹ú¸ 3Û3ÒèLúé?üX²éÀòm.`1pF,þåt6|‰„!wS<ÿÃ.zÒ}[•|%¸FXc~üïýu€Ò÷r1†X[Z
Àt¼3ÉöÆ€tA€æQ¹ 3ö3ÿèçúr‘‡Þ‡×èèùYAAQ¹~J¾Žé¿oèÍúsèð ë{¿Ž¹ QW.‹.‹u.‹}è°ú_YrƒÇâçƒïƒÇ£‰‰W.‹.‹u.‹}èiúRSP¡‹‹èù¹ 3ö3ÿè
ø‹È‹ó‹úX[Zèkùè… _ƒÇ.‹.‹u.‹}èé÷YöÁtQ‹È‹ó‹ú¸!»¢ÚºIèÈ÷YöÁt€Î€é'ûçÏÌTöô¢0	jÁ‘
€µžŠoD€‚,:Í€jÁ‘
     €!¢ÚI}è¢‹.º}Žã8Žc~I’$I’~ÍÌÌÌL«ªªªª¿¾¹ RSPQW‹È‹ó‹úèUø_Yè Y^_éJø£‰‰.‹.‹].‹UQWëQW.‹.‹u.‹}è-÷‹‹6‹>èø_YƒÇâÚ¹ 3ö3ÿé÷Sƒúr!‹Áèyë²öE€tþÂ*Âs2À<	r°	þÀŠÐŠðRè™ ZŠÂþÀ
öuÁyÆ& ë	<r°è[¾&öÅ€t°-èj Šé
ötµ 
íyèY ëèK þÍyù
Òt°.èI þÅtè@ þÊuõþÊxè, ë÷
öuÃ°Eè+ °+
ÉyöÙ°-è °/þÀ€é
sùè €Á:ŠÁëŠ
ÀtFë°0ˆCÃ‹‹]‹U
Àu¾&Ç00FFþ2uô¹  ÃŠî€æPR,€˜ºM ÷ê ŠÌZX€ùÙuþÁQöÙèvY<sèõþÉQ€Î€±„*È° t
ÑêÑÛÑØþÉuö¾&Šî±Òí€Å0ˆ,€æRSPÑàÑÓÑÒÑàÑÓÑÒYÁYÙYÑÑàÑÓÑÒFþ2uÍYÃ2ä»&Ø€?5Æ rþÈxKþ€?:rÆ ëïÆ1ÆG þÁÃŠ€ù-uCQè Yr€ù-u	€= t€u€øÃ‹ó3À3Û3Ò3ÉÆ% Š€ùar€ùzw€é è¥ r&è6r2WVQRSPŠÁ2äè½÷Y^_è+õY^_öÅ@tþ%ë€ù.uöÅ@ùu€Í@Fëµ‹ÞÃ€ùEŠ%u;èE rïFŠ€ù+t€ù-u€Í FèE rÙPŠÁFè< rŠàÐàÐàÄÐàÁFŠÈXöÅ töÙè
 ‰‰]‰Uë¬€ùÚ|€ù&
QVWè _^YÃùÃŠ€ù0r	€ù:õr€é0ÃRSPˆ$
ÉyöÙŠÙ€ãüŠûÐëß2ÿ¿".‹.‹].‹U€átèV þÉuù‹È‹ó‹úX[Zö$€ué<õé³õ     Ž   @›   ¼>¨ ¥Ôh¶¿ÉÃ¬Åëx-ÐÍÎÂSÞùx9?ë+¨­ÅøÉ{Î—@
ÀuÃ€Î€QRSPÑêÑÛÐÜÑêÑÛÐÜYåYÙYÑYsÑÚÑÛÐÜþÀuùÃ€æÃ^_ZY[WVöÇ€u€Ï€° *Âr< s
ÀtÑëÑÙþÈëô‹Á‹ÓÃ3À3ÒÃ¸ÿÿºÿÿÃ‹Ú‹ÈÂtº  öÇ€uÑáÑÓþÊëó€çXSQRÿà°¢8[èì_SŒÀŒÚ;Âuÿfv5W¾¶ }¹  üó¥_è‹s° »ÿÿ&‰€>8 t&ˆEEL&‰EÃ&ÇE  ÃÆ€"Ã2Àë°ë°¢8†ÿ6†&ŠE$t&€eßÃ&‰Mè€>€ uñè–€>€ uç÷r t¸ D&‹èàå÷Â€ t&ÇE €>8s&ÆE€&‹]&‰]&‰]
ÃtY¸B&‹3É3Òè¬å&‹Mù€ r¹€ +ÁƒÚ sÁ‹È3À3ÒQ‹Ê‹Ð¸ B&‹è‚åèZ÷Ú&‹u&€<tFBuöë¸B&‹¹ÿÿè`å&ÆE@&‹E&‰E&E&‰E
Ã†ÿ6†&€}€uï&‹U&+U
t¸B&‹¹ÿÿè$å´@&‹3Éèåë¸†ÿ6†&€}@ué!Ã†ÿ6†&ŠE$u&èáÿ&ÆE &‹ƒûvƒûÿt&Çÿÿ´>èÔäsÆ€ÿÃ¹	 »¿$QS¾¶ ¹ Šèæ.:t	[YƒÃâçùÃFCâéYY€<:uó.Š.‹_ÃCONÁÿÿTRMÁÿÿKBD‚ÿÿLSTCÿÿAUXÄÿÿUSRÅÿÿINP   OUT  ERR  &ƒ=ÿu-¸=²ö8t´<3É²ñRUèCäZr&‰Ãˆ€<uÆ€óÃ†Ç2ZŒ4ÿ&††‰>2Œ4&öE€uÆ€ÿ&††Ç2fŒ4ÿ&††‰>2Œ4&öE@uÆ€ÿ&†°ÿë2À†Ç2ZŒ4€&\ßWPè X
Àtèëä_ÿ&†2öŠ.€ý~rµ~Æ~»6 ‰‚2Éè£ä²<t9<t5<tCþÊ<t+<t'<t5<tC<tE< rÕ:ÍtÑŠ'ˆþÁC€ü sˆ'èC ë¾þÉx¸èiä  KþÊuðë¬Š< r¦è& þÁCþÊuðëš
öt–ë
öuÆëèRäÇ
CC‰„ÃŠ&”Æ” PèäXˆ&”ÃÄ>2€>€ uu&ŠE¨ uh$u&‹]&;]
rè_ &‹]&ŠC&‰]ë?W<u‹‚;„r	Šðè
ÿ‹‚ŠC‰‚ë<uLÿ8ë<uLÿ@ëLÿD_&ˆE&€M Ã&ŠEÃ°Ã´?&‹&‹M&‹Uè\âs3À&‹]Àu&Æ@&‰]Ø&‰]
ÃW»¶ SèDÿ[<t"&€eß< vîˆCû5tSè)ÿ[< v&€eßëçÆ »¶ €? _Ãr€? tÆ€ùÃWèÿþ&€eß_[&ˆÿãøëù[Sœèšÿtè$êèÎÿrs&‰Ã&ˆÃÃ[Sè}ÿtW¿:è(ù‹÷_è¨ÿrü¥¥¥Ã[S3Û2íWSQè¤þY[<t<t&€eß_C&ˆââë_&ˆÃ[S2íWQèzþYü<t<t&€eß_ªâæÃ_° óªÃè[þ<t&€eß<
t<uìèGþ<
u&€eßÃÄ>2€>€ u?&ŠM€áu&‹]&ˆC&‰]&;]
t%ÃP€ùt€ùt€ùtÿBÃÿ:Ãÿ<Ãÿ>Ã&‹M&+Mt´@&‹&‹U&‰UèÇàr;ÁtÆ€ðÃÀtè%â<v‘I° QèxÿYâ÷[XSéoÿ‘[XSQ»¶ èWèXèâë¶ +Ãv‘S° QèPÿYâ÷[‹Ë»¶ ŠSQè@ÿY[CâôÃ’[Y¿:EESQ»¶ èAöë¾[YS¿)Éu¿ )èµèè ÃTRUEFALSEè á‹ÜCC6*vŠÈ2íS° QèëþYâ÷[6Š2íCÉt6ŠSQèÕþY[CâóZ‹ãÿâ[.Š2íCã.ŠSQèºþY[Câóÿã°è®þ°
é©þºëº ëºëº †ÿ6†&öE€t RèÄüZ:Ât<t< w
öt&€eßëä3À@Ã3ÀÃ2Àéù2Àë°¢8†ÿ6†Qè8 Y€>€ uQè
ûY€>€ u&‰MÃ†ÿ6†´@&‹3ÉéLßÂ †ÿ6†&ÇE  éLú†‰>2Œ4&ƒ} uÆ€ÿ&†Ç8?™ëÇ8@ð[^S€>€ uA‹×Ä>2Š&8&‹&‹MŽÞèëÞr!;Át#€>8?uÀt&‹M‹úøŽÆ+È3ÀüóªÃ 9¢€Ã3Ò†_ÿ6†&‹Mè¿ ‹Ê‹Ð¸ B&‹QRèžÞY[r;Áu;ÓtÆ€‘Ãè°÷ëÉ[S¸D&‹è{Þ
À¸  u@ÀÃ[S¸B&‹3É3Òè`Þ&‹MëO[Sèæÿé­÷[S¸B&‹3É3Òè@ÞPR¸B&‹3É3Òè1ÞY[PR‹Ó¸ B&‹è"ÞZX&‹MIÁƒÒ ë´[SèÁÿéh÷ƒùt‹ñ3Û¹! ÑÓÞsÞùõÑÐÑÒâðÃ‹Ø‹Â÷á“÷áÓÃ‘[_SéMþ‘[_SéJþÇ8?™ëÇ8@ð†Z^_Pè> Y€>€ u
;Át 9¢€ÿ&†Ç8?™ëÇ8@ð†‹Ï[XZ^_SQè	 _&‰ÿ&†&ƒ} tO&ƒ}tR&÷eZ‘Š&8&‹ŽÞèZÝs 9¢€3À&‹Mƒùt‹úø3Ò÷ñÒt€>8?uP+ÊŽÆ3ÀüóªX@ÃÆ€Ã†ÿ6†´AUèÝsÆ€Ã†è‹â_ÿ6†´VUW¿¶ èæÜ_rÖ¾¶ }¹  üó¥Ã†èZâÿ6†¡¶ 
Àt(€ü:uèÞ,Ar«<s§´ŠÐè©Ü€>¸  t
´;º¶ èšÜrÃ·9ë·:†èâÿ6†Šçëâ†Xÿ6†
Àu´èoÜþÀŠÐ@¢¶ Ç· :\´G¾¹ èXÜsÆ ¾¶ 3ÛŠ
Àt	FC&ˆþÉuñ&ˆÃ»|,ë3Û†ÿ6†÷r uBS¸ =UèÜZr0‹Ø¸ B3ÉèÜr$´?¹ÿÿº|-èüÛ´>èöÛ‹&tè“ÜÇ~Ðé" ²é¥÷Æ€!ÃèWÝ  ,Ñ6ÀH        ‹ìè4ßa.œ-éß,  Specify Input Zap Data File                                & Specify Input/Output .COM File Names                       # Reverse Edit Intensity Attributes                           Specify Edit Screen Colors                                  Install the eXecute Command                                 User Specified Zap                                          Exit this program                                          	INTENSITY COLORS    XCOMMAND  USER      	TURBO.COM                                                       	TURBX.COM                                                       	INSTX.ZAP                                                          I @ J @    °   ¸c @ e @ U‹ìUé b @ P @ Ä~W.Ä>k0W.Ä>g0&Š2ä_¹ è,ßÑàø&‹_&‰Ä~WÄ~&‹ŠÄ2ä _&‰Ä~WÄ~&‹2ä _&‰é  ‹å]Â U‹ìUé  ¹ èöÞ¿ÍW¿ÏWèxÿÄ~W¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —&Š2ä_¹  ºÿ è£Þ&ˆé  ‹å]Â U‹ìUé  L¹ è—Þ¿ÍW¿ÏWèÿ¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —&Š2ä¹  ºÿ èKÞˆFýŠFý2ä% è5Òé  ‹å]ÃU‹ìUé  L¹ è6Þ¿ÍW¿ÏWè¸þ¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —&Š2ä¹  ºÿ èêÝˆFýŠFý2ä% P. E02äYÁèÊÑé  ‹å]ÃU‹ìUé  L¹ èËÝ¿ÍW¿ÏWèMþ¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —&Š2ä¹  ºÿ èÝˆFýŠFý2ä¹ ™÷ùPŠFý2ä% YÁèZÑŠFý2ä¹ ™÷ù’è_Ñé  ‹å]ÃU‹ìUé  ŠF2ä=  té .Ä>X0&‹ P.Ä>\0&Š2ä- Zîé .Ä>X0&‹ P.Ä>\0&Š2ä Zîé  ‹å]Â U‹ìUé  L¹ èöÜ¿ÍW¿ÏWèxý¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —&Š2ä¹  ºÿ èªÜˆFýŠF2äÀué ŠFý2ä€ ¹  ºÿ èŠÜˆFýé ŠFý2ä% ¹  ºÿ èsÜˆFý¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —WŠFý2ä_¹  ºÿ è;Ü&ˆé  ‹å]Â U‹ìUé  .Ä>H0&Š2ä= té	 ¸ °£gé ¸ ¸£g¸ £M¸ £O.Ä>L0&Š2ä£Q¸ £S¸  £U¸ ¹  º èÖÛ.¢<0é  ‹å]ÃU‹ìUé  ƒì¸ P¸ P¸P P¸ èyÏŠF2ä¹ ™÷ù’P. E02äYÁèŽÏŠF2ä¹ ™÷ùè”Ï‹FP‹F
èeÙèñ¸Õ P¸  èKôèÍÛ‹F P‹F- Y‘+È}é A‰FüQèåð¸Í P¸  è ôè¢ÛYItÿFüéåÿèËð¸¸ P¸  èôèˆÛ‹F
 P‹F- Y‘+È}éC A‰FúQ‹FP‹FúèëØè–ð¸³ P¸  èÑóèSÛ‹FP‹FúèÑØè|ð¸³ P¸  è·óè9ÛYItÿFúéÁÿ‹FP‹Fè­ØèXð¸Ô P¸  è“óèÛ‹F P‹F- Y‘+È}é A‰FüQè-ð¸Í P¸  èhóèêÚYItÿFüéåÿèð¸¾ P¸  èNóèÐÚ‹F P‹F
 P‹F- P‹F- èÎ¸ P¸ è0ØŠF2ä¹ ™÷ù’è2ÎŠF2ä¹ ™÷ùè8ÎèŒÌé  ‹å]Â
 U‹ìUé  . <02ä=  té	 ¹ èÚèÓý¡U £U¡U= é5 è€ï¸ P¸  è»òèxó Windows nested too deep èsóèÚ3ÀéÖ¹ èÁÙ¸  ¹  º è§ÙPèWü¡UH¹ èÙÑàÑà—ÇW¹¬è½Ï.Ä>H0&Š2ä= té$ ¡UH¹ ècÙÑàÑà—Ä½WW.Ä>P0¹ èµØé! ¡UH¹ è?ÙÑàÑà—Ä½WW.Ä>T0¹ è‘Ø¹ è:Ù¸ ¹  º è ÙPèÐû¡UH¹ èÙÑàÑà—Ä½WÇ W¿M¹ èXØ¡UH¹ èåØÑàÑà—Ä½WWèÌ_&‰…¨¡UH¹ èÆØÑàÑà—Ä½WWè~Ì_&‰…ª‹F=P é ‹F-P £k‹F+k‰F‹F+k‰F‹F= é ‹F- £k‹F
+k‰F
‹F+k‰F‹F= |é ¸ ‰F‹F
= |é ¸ ‰F
¹ èQØ‹FP‹F
P‹FP‹FPŠF2ä¹  ºÿ è%ØPèVü‹F £M‹F
 £O‹F- £Q‹F- £Sé  ‹å]Â
 U‹ìUé  L¹ èô×¸  ¹  º èÚ×PèŠú.Ä>H0&Š2ä= té$ .Ä>P0W¡UH¹ è©×ÑàÑà—Ä½W¹ è×é! .Ä>T0W¡UH¹ è…×ÑàÑà—Ä½W¹ èÞÖ¡UH¹ èk×ÑàÑà—ÇW¹¬èhÎ¹ èm×¸ ¹  º èS×Pèú¿MW¡UH¹ è6×ÑàÑà—Ä½WÇ ¹ è‹Ö¡MP¡OP¡QP¡SèäÊ¡UH¹ è×ÑàÑà—Ä½W&‹…¨P¡UH¹ èíÖÑàÑà—Ä½W&‹…ªèÍÔ¹ èîÖ¿ÍW¿ÏWèp÷¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —&Š2ä¹  ºÿ è¢ÖˆFýŠFý2ä% èŒÊŠFý2ä¹ ™÷ùè’Ê¡U- £Ué  ‹å]ÃU‹ìUé  ‹F;Fé	 ‹F‰Fé ‹F‰Fé  ‹F‹å]Â U‹ìUé  ‹F;F|é	 ‹F‰Fé ‹F‰Fé  ‹F‹å]Â U‹ìUé  L¿Jè…ë~ýè¥íèbÖŠFý2ä= ¸ tHPèÒÓY#ÁÀué ¿JèXë~ýèxíè5ÖŠFý2ä¹  ºÿ èÈÕˆFé  ŠF2ä‹å]Â U‹ìUé  ‹FèƒË¸d èôÇ‹F¹ ™÷ùèqË¸d èâÇèËé  ‹å]Â U‹ìUé  L¹ è†Õ¸XPèºÿèë~èp×¸  èÄîèïèºÕèíêèïî Press a Key...èôîèžÕ¹ èGÕLèÿ¹  ºÿ è,ÕˆFýé  ‹å]Â U‹ìUé  ƒìètÇ¸ ‰Fú¸ ‰Fø¸ P‹FY‘+È}éC A‰FöQ‹FúP‹FøFöèÊÒÄ~‹FöH¹( èÌÔ¹= ÷áøèaêèÑÖ¸  è%îèqîèÕYItÿFöéÁÿèDêè^îèÕ‹FúP‹FøFö è€Òè+êè-î.Select Option with Arrow keys then press Enterèîè½Ô‹FúP‹FøFö è5Òèàéèâí,-  The Hunters Helper -           INSTX 2.00èÊíètÔ.¡ª:‰Fü¸ ‰Fø‹FúP‹FøFüèâÑ¹
 èÔ¿iWèøô i2ä%  è×Ç. =02äèâÇÄ~‹FüH¹( è¿Ó¹= ÷áøèTéèÄÕ¸  èíèÔ¹ èºÓLèŒý¹  ºÿ èŸÓˆFõŠFõ2ä= uéI ‹FúP‹FøFüèiÑ i2ä% èoÇ i2ä¹ ÓèèvÇÄ~‹FüH¹( èSÓ¹= ÷áøèèèèXÕ¸  è¬ìè¥ÓŠFõ2ä= té ‹Fü‰F
‹Fü.£ª:éQ = té	 ¸  ‰F
é@ =P té ‹Fü™÷~’ ‰Füé' =H té ‹Fü- ™÷~’‰Fü‹Fü=  té ‹F‰FüŠFõ2ä= ¸ tHPŠFõ2ä= ¸ tHYÁÀué©þé  ‹F
‹å]Â U‹ìUé  ìž ~²W¾è–Ôè‹ì¾fÿW~è†Ôè{ì~²W¸€ è!îÄ~Wè¿Ò_&‰Ä~&‹=  té… èæçèèë
 Creating ~èEÔ¸  è™ëèåëèÒ¾fÿW¸€ èÝíè€Ò¾bÿ¹ dèJÈ~²WÄ¾bÿW¸È P¾`ÿèïíè[Ò¾fÿWÄ¾bÿW‹†`ÿè±íèEÒ‹†`ÿ=  téÄÿ¾bÿ¹ dèÒÈ~²èìè$Ò¾fÿèìèÒé  ‹å]ÂU‹ìUé  ì¢ ¿`W¿ú/è£Óè©äèóÑ¿`¹€ èñäÄ~WèÚÑ_&‰Ä~&‹=  ué2 ¹èwÑ¿ú/èkÓèÓ Error: èÔÄ~&‹Šà°PèÔ±ÿèºÓè·û~­W~è:Ó¸ PèdÔ¡K¹	 èÑ¹ ÷á—ÇÚèÓèJÔ±PèCÓ~­èÓè¼Ô¹Q èñÐ—ŠC­2ä=  té ŠF­2äH¹  ºÿ èÞÐˆF­éÍÿèjæèlê Searching for Header èÑ¹ èÀÐèyòèAæ¸ P¸  è|é~­è¤Ò¸  èøé¸ P¸  èeéè:êèäÐ¹ èÐèåñÄ~¸ &‰èÄ£Íè&Ä£Ï¿`èØå¾\ÿ±PèFèè—èè¯Ð¡ÍP¡Ïè-ÎèØå¸ P¸  èé¾\ÿè:Ò¸  èŽé¸ P¸  èûèè}ÐŠ†\ÿ2äPŠF­2äY‘;Áé ŠF­2ä¹  ºÿ èûÏˆ†\ÿ¾\ÿèøÑ~­èñÑèœÒP¿`è¨éYÁÀuélÿ¾\ÿèÔÑ~­èÍÑèxÒué4 Ä~¸  &‰èEåè_éè	Ðè<åè>é Positioned to Zapè@éèêÏé2 èåè4éèÞÏ¹è‡Ïè˜Ñ Zap not found±ÿèÜÑèÙùÄ~¸ &‰é  ‹å]ÂU‹ìUé  ƒìX¹¬èKÏŠF2äH¹ è'Ï¹ ÷á—ÇL/è,Ñ±ÿè˜ÑÄ~WèeýèÁÂ‰F¨èÉÂ‰F¦Ä~&‹=  téý ¿`èmä~üè¡æèJÏ‹F¨¹ ™÷ù’ ‰F¨‹F¨P‹F¦è¸Ìècäèeè Working...èÏ‹Fü=  ué§ ¿`è"ä~úèVæèÿÎ¸ P‹FúY‘+È}é, A£ÉQ¿`èüã¡ÉH¹P èpÎ—{ªè"æèÎÎYItÿÉéØÿ¿`èÕãèžæè¶Î¿xW‹Fü- èéè¥Î¸ P‹FúY‘+È}é, A£ÉQ¿xè‡è¡ÉH¹P èÎ—{ªèšèètÎYItÿÉéØÿ‹Fü=  téÿ¿`èˆâèTÎè‡ãè¡çèKÎé  ‹å]Â U‹ìUé  ƒì	~õWèóÏVERSIONS±èûÏ¸  £K¡K¹	 èªÍ¹ ÷á—ÇÚWèÇÏ ±è×Ï¹¬è§Í~õè›Ï±ÿèÐ¿ÑWèÔû¡Ñ=  té˜¸  £É¡É £É¿`èÜâ¡É¹	 èQÍ¹ ÷á—ÇÖè åè©Í¡É¹	 è7Í¹ ÷á—‹…Ö=  ué= ¿`è â¡É¹	 èÍ¹ ÷á—ÇØèÄä¡É¹	 èþÌ¹ ÷á—ÇÚ±èèäè9åèQÍ¡É¹	 èßÌ¹ ÷á—‹…Ö=  técÿ¡É- .£Ÿ-¸ P.¡Ÿ-Y‘+È}és A£ÉQ¸ P¡É¹	 è Ì¹ ÷á—ÇÚè¥ÎèaÐ=  ué= ¡É¹	 è~Ì¹ ÷á—ÇÚW¸ P¡É¹	 èeÌ¹ ÷á—ÇÚèjÎè&ÐP¸ è»ÐéÿYItÿÉé‘ÿ¸ £Ñ¿xW¿¹/è@Îè5æ¿x¹ è0æèÌ£Ñ¡Ñ=  ué1 ¹è!Ìè2ÎPlease Specify .COM files first±ÿèeÎèbö¡Ñ=  téû ¸ £Ñ¸ P.¡Ÿ-Y‘+È}éˆ A£ÉQ¿xW¡É¹	 è©Ë¹ ÷á—‹…Ö- èwæèÿË¿xèöå¿Ôèæ¿ÓèæèçË Ô2äP Ó2ä¹ ÓàYÁ£Ä¡ÄP¡É¹	 è[Ë¹ ÷á—X;…Øté ¡É£K¸  £ÑYItÿÉé|ÿ¡Ñ=  uéQ ¹ è;Ë¸XPèoõ¹è.Ë¸  P¿¹/èÍèÒÏèIÎè.Í is not a TURBO Compilerè*Î±ÿèeÍèbõ¸ £Ñ¿`èkßè7Ëé  ‹å]ÃU‹ìUéU‹Äÿvþ‹èUé  ƒìèf¾‰Fúèn¾‰Fø‹FúP‹Fú‹^þ6Gü- Y‘+È}é0 A£ÉQ¡ÉP‹FøèmÈ¹	 èŽÊ¸  ¹  º ètÊPèzíYItÿÉéÔÿ‹FúP‹FøèBÈé  ‹å]ÃU‹Äÿvþ‹èUé  ƒìèð½‰Fúèø½‰Fø‹FúP‹Fú‹^þ6Gü- Y‘+È}é0 A£ÉQ¡ÉP‹Føè÷Ç¹	 èÊ¸ ¹  º èþÉPèíYItÿÉéÔÿ‹FúP‹FøèÌÇé  ‹å]ÃU‹Äÿvþ‹èUé  ¹ èÚÉèÿþ‹^þ6‹Gú‹^þ6Gü‹^þ6‰Gú‹^þ6‹GúP¸ ‹^þ6÷oüY‘;Áé ‹^þ6‹Gü‹^þ6‰Gú‹^þ6‹GúP‹^þ6‹Gøè`Ç¹ èÉèÿé  ‹å]ÃU‹Äÿvþ‹èUé  ¹ èeÉèŠþ‹^þ6‹Gú‹^þ6+Gü‹^þ6‰Gú‹^þ6‹Gú‹^þ6;Gü|é ‹^þ6‹Gü¹ ÷é‹^þ6‰Gú‹^þ6‹GúP‹^þ6‹GøèîÆ¹ èÉèªþé  ‹å]ÃU‹Äÿvþ‹èUé  ¹ èóÈèþ‹^þ6‹Gø- ‹^þ6‰Gø‹^þ6‹Gø= |é ¸  ‹^þ6‰Gø‹^þ6‹GúP‹^þ6‹GøèŠÆ¹ è«ÈèFþé  ‹å]ÃU‹Äÿvþ‹èUé  ¹ èÈè´ý‹^þ6‹Gø ‹^þ6‰Gø‹^þ6‹GøP¸  Y‘;Áé
 ¸ ‹^þ6‰Gø‹^þ6‹GúP‹^þ6‹Gøè!Æ¹ èBÈèÝýé  ‹å]ÃU‹Äÿvþ‹èUé  ¹ è&ÈèKý¹ èÈ¿ÍW¿ÏWèŸè‹^þ6ÄW¡gP¡Í- P¡Ï- ¹P ÷éYÁ¹ ÷é —&Š2ä_¹  ºÿ èÆÇ&ˆé  ‹å]ÃƒìÄ~&Š2ä¹  ºÿ è¨ÇˆFôÄ~&Š2ä% ¹  ºÿ è‘ÇˆFóÄ~&Š2ä¹ Óè¹  ºÿ èxÇˆFò¹ è}Ç¿ÍW¿ÏWèÿç¹ èjÇ¸ P¡ÏP¸J P¡Ï P. D02ä¹  ºÿ è:ÇPèí¸ ‰FüŠFó2äè »èˆ¹¸ P¸ èÅè­Üè¯à,* * *   Move Cursor to Select Colors   * * *èDÇ¸ P¸ èÂÄèmÜèoàEnter è*ÇŠFó2äP. F02äYÁè±ºèKÜèMà[Return]èÇŠFó2äè—ºè1Üè3à to select -- èæÆŠFó2äP. F02äYÁèmºèÜè	à[Esc]èÅÆŠFó2äèVºèðÛèòß
 to Ignoreèüßè¦Æèò¹‰Fúèú¹‰Fø¸  P¸ Y‘+È}év A.¢G0Q¸  P¸ Y‘+È}éK A‰FöQ‹FüP‹Fö Y÷éP. G02ä èÝÃ‹Föèè¹. G02äèó¹èyÛ‹FöP‹Fü- èÍÞè3ÆYItÿFöé¹ÿè\Ûèvßè ÆYIt.þG0éÿ‹FüPŠFó2äY÷éFü‰Fú¸ PŠFò2äYÁ‰Fø‹FúP‹FøèqÃ¸  ¹  ºÿ è~ÅˆFñ¹ èƒÅLèUï¹  ºÿ èhÅˆFñŠFñ2ä=M té ¹ è`Åèqûéh =K té ¹ èLÅèÒûéT =H té ¹ è8Åè0üé@ =P té ¹ è$Åè€üé, = té ¹ èÅèÕüé = té é ¹ èùÄ¸XPè-ïŠFñ2ä= ¸ tHPŠFñ2ä= ¸ tHYÁÀuéBÿ¹ èÅÄèÀìé  ‹å]Â U‹ìUéªU‹Äÿvþ‹èUé  ¸ ¹  º èŒÄ¢Õ¹¬è‘Ä Õ2äH¹ èmÄ¹ ÷á—ÇL/èrÆ±ÿèÞÆ¿ÑWè«ò¡Ñ=  téP¿`èÂÙ‹^þ6üèòÛè›Ä¿xW‹^þ6‹Gü- èþÞè†Ä¿xè}Þ‹^þ6úèÞ‹^þ6ùè„Þ‹^þ6øèyÞ‹^þ6÷ènÞèPÄ‹^þ6ŠGú2ä% èÚ·‹^þ6ŠGú2ä¹ ÓèèÝ·è1¶è`ÙèbÝ  Enter Editor Hilite Attributes:èVÝè Ä¹ è©Ã‹^þ6úWè¾ø‹^þ6ŠGú2ä% èx·‹^þ6ŠGú2ä¹ Óèè{·èÏµèþØè Ý' Return if acceptable or hit any key...èíÜè—Ã¹ è@ÃLèí¹  ºÿ è%Ã‹^þ6ˆGû‹^þ6ŠGû2ä= téÿ‹^þ6ŠGù2ä% èö¶‹^þ6ŠGù2ä¹ Óèèù¶èMµè|Øè~Ü% Enter Editor Normal Text Attributes:èmÜèÃ¹ èÀÂ‹^þ6ùWèÕ÷‹^þ6ŠGù2ä% è¶‹^þ6ŠGù2ä¹ Óèè’¶èæ´èØèÜ' Return if acceptable or hit any key...èÜè®Â¹ èWÂLè)ì¹  ºÿ è<Â‹^þ6ˆGû‹^þ6ŠGû2ä= téÿ‹^þ6ŠGø2ä% è¶‹^þ6ŠGø2ä¹ Óèè¶èd´è“×è•Û% Enter Editor Marked Text Attributes:è„Ûè.Â¹ è×Á‹^þ6øWèìö‹^þ6ŠGø2ä% è¦µ‹^þ6ŠGø2ä¹ Óèè©µèý³è,×è.Û' Return if acceptable or hit any key...èÛèÅÁ¹ ènÁLè@ë¹  ºÿ èSÁ‹^þ6ˆGû‹^þ6ŠGû2ä= téÿ‹^þ6ŠG÷2ä% è$µ‹^þ6ŠG÷2ä¹ Óèè'µè{³èªÖè¬Ú% Enter Error Message Text Attributes:è›ÚèEÁ¹ èîÀ‹^þ6÷Wèö‹^þ6ŠG÷2ä% è½´‹^þ6ŠG÷2ä¹ ÓèèÀ´è³èCÖèEÚ' Return if acceptable or hit any key...è2ÚèÜÀ¹ è…ÀLèWê¹  ºÿ èjÀ‹^þ6ˆGû‹^þ6ŠGû2ä= téÿ¿xW‹^þ6‹Gü- èÛèœÀè’À£Ñ¿xèÚ‹^þ6úè§Ú‹^þ6ùèœÚ‹^þ6øè‘Ú‹^þ6÷è†Úè`Àé  ‹å]Ãƒì¹ èÿ¿¿ÍW¿ÏWèà¹ èì¿¡ÍP¡ÏP¡Í0 P¡Ï P. D02ä¹  ºÿ è¹¿Pè•å. E02äP. >02äYÁèš³. =02äè¥³èù±¹ èž¿èªñ¡Ñ=  té	 ¹ èŠ¿èÕú¡Ñ=  ué3 ¹èv¿è‡Á! Error Processing Edit Color Zap ±ÿè¸Áèµé¡Ñ=  té1 ¹è8¿èIÁ Compiler Color Zaps Completed ±ÿè|Áèyé¿`èˆÓèT¿¿xè9ÙèJ¿¹ èó¾èîæé  ‹å]ÃU‹ìUé  ì è‘Ô~½±@è´Öè ¿~½èÃÀèÙÀ èjÁué ~½WÄ~è«À±@èÕÀ¸ P~½è›ÀèJÂY‘+È}é: A£ÉQ¡É¹A èn¾—W¡É¹A èc¾—ŠC½2äè²_¹  ºÿ èZ¾ˆC½YItÿÉéÊÿ¾qÿW~½èHÀè=Ø¾qÿW¸€ èâÙÄ~Wè€¾_&‰¾qÿèfØÄ~W~½èÀ±ÿèBÀé  ‹å]Â U‹ìUé  ¹ è¾¿ÍW¿ÏWè„Þ¹ èï½¡ÍP¡Ï P¡Í( P¡Ï P. ?02ä¹  ºÿ è¹½Pè•ã. ?02äè¤±. =02äè¯±¸ P¸ è€»è+Óè-×  Patch (Zap) Data File ¹ è‚½è;ßèÓ¸ P¸  è>Ö¸  P¸  è4Ö¿ú/è\¿¸  è°Ö¸  P¸  èÖ¸ P¸  èÖèèÖ¹ è>½è–Þè¿ÒèÁÖ& Enter New File or <Return> to Accept è¯Ö¹› è½¿ú/W¿ÑWèþ¡Ñ=  ué( èqÒèsÖ   ¿ú/è×¾¸  è+Öè_Ö
 not foundèiÖ¡Ñ=  téÿ¹ è´¼è¯äé  ‹å]ÃU‹ìUé  ¹ è¼¿ÍW¿ÏWèÝ¹ èŠ¼¡ÍP¡Ï P¡Í0 P¡Ï P. >02ä¹  ºÿ èT¼Pè0â. C02äè?°. >02äèJ°èž®èÍÑèÏÕ	 Default ¹ è3¼èìÝè´Ñè¶ÕInput¹ è¼èvÝèŸÑè¡Õ .COM File ¹ è¼è¼Ýè„Ñ¸ P¸  è¿Ô¸  P¸  èµÔ¿x/èÝ½¸  è1Õ¸  P¸  èžÔ¸ P¸  è”ÔèiÕ¹ è¿»èÝè@ÑèBÕ& Enter New File or <Return> to Accept è0Õ¹› è†»¿x/W¿ÑWèü¡Ñ=  ué( èòÐèôÔ   ¿x/èX½¸  è¬ÔèàÔ
 not foundèêÔ¡Ñ=  téòþè¿ÐèÁÔ	 Default ¹ è%»èÞÜè¦Ðè¨ÔOutput¹ è»ègÜèÐè’Ô .COM File ¹ èôºè­ÜèuÐ¸ P¸  è°Ó¸  P¸  è¦Ó¿¹/èÎ¼¸  è"Ô¸  P¸  èÓ¸ P¸  è…ÓèZÔ¹ è°ºèÜè1Ðè3Ô& Enter New File or <Return> to Accept è!Ô¹› èwº¿¹/W¿ÑWèû¿x/è^¼¿¹/èW¼è½uéJ ¹ èNºèÜèÏÏèÑÓ.Specify Separate Files for Input/Output Pleaseè·Ó¹ èºèeÛ¿x/èþ»¿¹/è÷»è®¼ué«ý¹¨èî¹¿x/èâ»±ÿèN¼¿¹/èÖ»±ÿèB¼¿ÑWèç¹ èÈ¹èÃáé  ‹å]ÃU‹ìUé  ¹ è±¹¿ÍW¿ÏWè3Ú¹ èž¹¡ÍP¡Ï P¡Í0 P¡Ï P. D02ä¹  ºÿ èh¹PèDß. ?02äèS­. =02äè^­è²«¹ èW¹ècë¡Ñ=  té© ¸ ¹  º è/¹¢Õ¹d è4¹ Õ2ä¹  º è¹P¿ÑWèÂé¡Ñ=  ué2 ¹è¹è»  Error Processing Intensity Zap ±ÿèO»èLã¡Ñ=  té5 ¹èÏ¸èàº# Compiler Intensity Zaps Completed ±ÿè»èã¿`èÍ¿xèÏÒ¹ èŒ¸è‡àé  ‹å]ÃU‹ìUé  ¹ èu¸¿ÍW¿ÏWè÷Ø¹ èb¸¸ P¡Ï P¸L P¡Ï	 P. B02ä¹  ºÿ è/¸PèÞ. D02äè¬. A02äè%¬èyª¹ è¸è*ê¡Ñ=  té¤ ¸ ¹  º èö·¢Õ¹d èû· Õ2ä¹  º èß·P¿ÑWè‰è¡Ñ=  ué0 ¹èÓ·èä¹ Error Processing eXecute Zap ±ÿèºèâ¡Ñ=  té2 ¹è˜·è©¹  Compiler eXecute Zap Completed ±ÿèÛ¹èØá¿`èçË¿xè›Ñ¹ èX·èSßé  ‹å]ÃU‹ìUé* U‹Äÿvþ‹èUé  ¿`è¶Ë¿xèjÑ¹ è'·è"ßé  ‹å]ÃƒìQ¹ è·¿ÍW¿ÏWè–×¹ è·¸ P¡Ï P¸L P¡Ï	 P. @02äP. E02äYÁ¹  ºÿ èÄ¶Pè Ü. D02äè¯ª. >02äèºªè©¹ è³¶è¿è¡Ñ=  té ¸ ¹  º è‹¶¢ÕèÌèÐ' Enter the search Keyword for this ZAP:è	ÐèÌ~­±Pè;ÎŠF­2ä= ¸ |HPŠF®2ä=  ¸ ~HYÁÀué ¹ è,¶èâþéª ¿m/W~­è¸±
è?¸¹d è¶ Õ2ä¹  º èóµP¿ÑWèæ¡Ñ=  ué- ¹èçµèø· Error Processing User Zap ±ÿè/¸è,à¡Ñ=  té0 ¹è¯µèÀ· User Specified Zap Completed ±ÿèô·èñß¹ èµè5þé  ‹å]ÃU‹ìUé  èòÊèôÎ
   Bye ByeèþÎé  ‹å]Ã¹ èMµ¸ P¸ P¸< P¸  P. C02ä¹  ºÿ èµPèùÚ. E02äP. @02äYÁèþ¨. ?02äè	©¹ èµLL¸ P¿¡-WèÉß£Æ¡Æ¹  º èÚ´¢È È2ä= té ¹ èÒ´èÀöé¼ = té ¹ è¾´èøé¨ = té ¹ èª´èéúé” = té ¹ è–´èÚïé€ = té ¹ è‚´èýûél = té ¹W èn´èýéX =  t= té ¹ èU´èÝþé? ¹ èI´¸XPè}Þè”¦¹è9´èJ¶...Undefined program funtion.±ÿè¶è|Þ È2ä= ¸ tHP È2ä=  ¸ tHYÁÀuéÂþ¹ èã³èÞÛé  3Àè°  