home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TVED_FIX.ZIP / TV-EDIT.FIX
Encoding:
Text File  |  1992-01-28  |  1.4 KB  |  76 lines
  1.  
  2.   PATCHES FOR EDITORS.PAS TP6 UNIT
  3.   ================================
  4.  
  5.   The following patch fixes the problem of not being able to enter
  6.   numbers 3 thru 6 into the editor of the EDITORS.PAS example
  7.   shipped with Turbo Pascal 6.0.
  8.  
  9.   Open EDITORS.PAS in the TURBO editor and search for the EXISTING
  10.   code. Once that is found change the EXISTING code to the CHANGE
  11.   TO code. Save your changes and recompile EDITORS.PAS.
  12.  
  13. ---------------------------------------------------
  14.  
  15.   EXISTING (line 421):
  16.  
  17.   LODSW
  18.   OR      BL,BL
  19.   JE      @@2
  20.   CMP     BL,DL
  21.  
  22.  
  23.   CHANGE TO:
  24.  
  25.   LODSW
  26.   CMP     BL,DL
  27.  
  28. ---------------------------------------------------
  29.  
  30.   EXISTING (line 425):
  31.  
  32.   JE      @@4
  33.   @@2:    CMP     BH,DH
  34.   JE      @@4
  35.  
  36.  
  37.   CHANGE TO:
  38.  
  39.   JE      @@4
  40.   CMP     BH,DH
  41.   JE      @@4
  42.  
  43. ---------------------------------------------------
  44.  
  45.   EXISTING (line 739):
  46.  
  47.   var
  48.     Key: Word;
  49.  
  50.  
  51.   CHANGE TO:
  52.  
  53.   var
  54.     ShiftState: Byte absolute $40:$17;
  55.     Key: Word;
  56.  
  57. ---------------------------------------------------
  58.  
  59.   EXISTING (line 744):
  60.  
  61.   begin
  62.     Key := Event.KeyCode;
  63.  
  64.  
  65.   CHANGE TO:
  66.  
  67.   begin
  68.     if (ShiftState and $03 <> 0)
  69.     and (Event.ScanCode >= $47)
  70.     and (Event.ScanCode <= $51) then
  71.       Event.CharCode := #0;
  72.     Key := Event.KeyCode;
  73.  
  74. ---------------------------------------------------
  75.  
  76.