home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI332.ASC < prev    next >
Encoding:
Text File  |  1988-04-18  |  1.6 KB  |  106 lines
  1. PRODUCT : TURBO TUTOR     NUMBER : 332
  2. VERSION : 2.00
  3.      OS : PC-DOS
  4.    DATE : August 25, 1986
  5.  
  6.   TITLE : WINDOWS UPDATE
  7.  
  8. The following modifications prevent the possible locking of  your 
  9. system when the WINDOWS example is run on a monochrome system.
  10.  
  11. 1. Make a backup of the file TUTOR.LIB.
  12.  
  13. 2. Load the file TUTOR.LIB into the Turbo Pascal editor.
  14.  
  15. 3. In the procedure MoveToScreen:
  16.  
  17.     Change the line:
  18.         .
  19.         .
  20.         .
  21.       Len := Len shr 1;
  22.         .
  23.         .
  24.         .
  25.  
  26.     Change to:
  27.         .
  28.         .
  29.         .
  30.       if VideoMode = MonoMode then
  31.         Move(Source, Dest, Len)
  32.       else begin
  33.         Len := Len shr 1;
  34.         .
  35.         .
  36.         .
  37.  
  38. 4.  Change the line:
  39.         .
  40.         .
  41.         .
  42.       end; { MoveToScreen }
  43.         .
  44.         .
  45.         .
  46.  
  47.  
  48.     Change to:
  49.         .
  50.         .
  51.         .
  52.         end;
  53.       end; { MoveToScreen }
  54.         .
  55.         .
  56.         .
  57.  
  58. 5. In the procedure MoveFromScreen:
  59.  
  60.     Change the line:
  61.         .
  62.         .
  63.         .
  64.       Len := Len shr 1;
  65.         .
  66.         .
  67.         .
  68.  
  69.     Change to:
  70.         .
  71.         .
  72.         .
  73.       if VideoMode = MonoMode then
  74.         Move(Source, Dest, Len)
  75.       else begin
  76.         Len := Len shr 1;
  77.         .
  78.         .
  79.         .
  80.  
  81. 6.  Change the line:
  82.         .
  83.         .
  84.         .
  85.       end; { MoveFromScreen }
  86.         .
  87.         .
  88.         .
  89.  
  90.  
  91.     Change to:
  92.         .
  93.         .
  94.         .
  95.         end;
  96.       end; { MoveFromScreen }
  97.         .
  98.         .
  99.         .
  100.  
  101. 7.  At the top of the file, update the version number from 2.0 to     
  102. 2.00A.
  103.  
  104. 8.  Save the file TUTOR.LIB.
  105.  
  106.