Category : Pascal Source Code
Archive   : PASS_ALL.ZIP
Filename : TI332.ASC

 
Output of file : TI332.ASC contained in archive : PASS_ALL.ZIP









PRODUCT : TURBO TUTOR NUMBER : 332
VERSION : 2.00
OS : PC-DOS
DATE : August 25, 1986 PAGE : 1/3
TITLE : WINDOWS UPDATET




The following modifications prevent the possible locking of your
system when the WINDOWS example is run on a monochrome system.

1. Make a backup of the file TUTOR.LIB.

2. Load the file TUTOR.LIB into the Turbo Pascal editor.

3. In the procedure MoveToScreen:

Change the line:
.
.
.
Len := Len shr 1;
.
.
.

Change to:
.
.
.
if VideoMode = MonoMode then
Move(Source, Dest, Len)
else begin
Len := Len shr 1;
.
.
.

4. Change the line:
.
.
.
end; { MoveToScreen }
.
.
.

Change to:
.
.
.














PRODUCT : TURBO TUTOR NUMBER : 332
VERSION : 2.00
OS : PC-DOS
DATE : August 25, 1986 PAGE : 2/3
TITLE : WINDOWS UPDATE




end;
end; { MoveToScreen }
.
.
.

5. In the procedure MoveFromScreen:

Change the line:
.
.
.
Len := Len shr 1;
.
.
.

Change to:
.
.
.
if VideoMode = MonoMode then
Move(Source, Dest, Len)
else begin
Len := Len shr 1;
.
.
.

6. Change the line:
.
.
.
end; { MoveFromScreen }
.
.
.

Change to:
.
.
.
end;














PRODUCT : TURBO TUTOR NUMBER : 332
VERSION : 2.00
OS : PC-DOS
DATE : August 25, 1986 PAGE : 3/3
TITLE : WINDOWS UPDATE




end; { MoveFromScreen }
.
.
.

7. At the top of the file, update the version number from 2.0
to 2.00A.

8. Save the file TUTOR.LIB.