home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / nan_news / vol3 / no6 / restore.fig < prev    next >
Text File  |  1989-05-01  |  818b  |  34 lines
  1. Figure 2.  Restore the Screen
  2.  
  3.  
  4. Example 1: Restore screen column by column (80 buffers).
  5.  
  6. IF FILE('main.scr')
  7.    RESTORE FROM main.scr ADDITIVE
  8.    delay = 20      && Adjust this to your hardware.
  9.    FOR xx = 40 TO 79
  10.       buff1 = '_buffer' + LTRIM(STR(xx))
  11.       buff2 = '_buffer' + LTRIM(STR(79 - xx))
  12.       RESTSCREEN(0, xx, 24, xx, &buff1)
  13.       RESTSCREEN(0, 79 - xx, 24, 79 - xx, &buff2)
  14.       FOR yy = 1 TO delay
  15.       NEXT
  16.    NEXT
  17. ENDIF
  18. RELEASE ALL LIKE _buffer*
  19.  
  20.  
  21.  
  22. Example 2: Restore screen row by row (25 buffers).
  23.  
  24. IF FILE('main.scr')
  25.    RESTORE FROM main.scr ADDITIVE
  26.    delay = 20      && Adjust this to your hardware.
  27.    FOR xx = 0 TO 24
  28.       buff1 = '_buffer' + LTRIM(STR(xx))
  29.       RESTSCREEN(xx, 0, xx, 79, &buff1)
  30.       FOR yy = 1 TO delay
  31.       NEXT
  32.    NEXT
  33. ENDIF
  34.