home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI257.ASC < prev    next >
Encoding:
Text File  |  1988-04-18  |  2.1 KB  |  67 lines
  1. PRODUCT : TURBO GRAPHIX TOOLBOX     NUMBER : 257
  2. VERSION : 1.00x
  3.      OS : PC-DOS
  4.    DATE : March 13, 1986
  5.  
  6.   TITLE : AT&T LOADSCREEN PATCH
  7.  
  8. The  following modifications may be made to the GRAPHIX.SYS  file 
  9. of  the Turbo Graphix Toolbox to allow the LoadScreen routine  to 
  10. function properly on an AT&T 6300.
  11.  
  12. 1.    Move the procedures SwapScreen, CopyScreen and InvertScreen       
  13. to a position just above the SaveScreen Procedure.
  14.  
  15. 2.    Change the SaveScreen procedure (after the main begin) to                    
  16. read  as follows:  ( The lines which have been changed have                    
  17. the symbol {Changed} next to them.)
  18.     
  19. begin
  20.   move(mem[GrafBase:0000],mem[seg(ScreenGlb^):0000],
  21.       (ScreenSizeGlb+1) shl 1);                        {Changed}
  22.   IOErr := False;
  23.   {picture := ptr(GrafBase,0); }                       {Changed}
  24.   picture := ScreenGlb;                                {Changed}
  25.   assign(PictureFile,FileName);
  26.   {$I-} rewrite(PictureFile); {$I+}
  27.   IOCheck;
  28.   if not ioerr then
  29.   begin
  30.     {$I-} write(PictureFile,picture^); {$I+}
  31.     IOCheck;
  32.   end;
  33.   if not ioerr then
  34.   begin
  35.     {$I-} close(PictureFile); {$I+}
  36.     IOCheck;
  37.   end;
  38.   move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000],   {Changed} 
  39.       (ScreenSizeGlb+1) shl 1);                   
  40. end;
  41.  
  42.  
  43. 3.     Change  the LoadScreen procedure (after the main begin) to                      
  44. read  as  follows:  (  The lines which  have  been  changed  have                      
  45. the symbol {Changed} next to them.)
  46.     
  47.   
  48. procedure LoadScreen(FileName:wrkstring);
  49. type PicFile = file of ScrenType;
  50. var Picture:screenpointer;
  51.     PictureFile : PicFile;
  52. begin
  53.   {picture := ptr(GrafBase,0);}                        {Changed}
  54.   picture := ScreenGlb;                                {Changed}
  55.   assign(Picture,FileName);
  56.   {$I-} reset(PictureFile); {$I+}
  57.   if IOResult<>then Error(11,5)
  58.   else
  59.   begin
  60.     read(PictureFile,picture^);
  61.     close(PictureFile);
  62.   end;
  63.   move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000],   {Changed}
  64.       (ScreenSizeGlb + 1) shl 1);
  65. end;
  66.  
  67.