home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library1 / rmex232.bas < prev    next >
Encoding:
BASIC Source File  |  1990-04-13  |  526 b   |  21 lines
  1. CLS
  2. SCREEN 2
  3. CIRCLE (160,87), 86
  4. PAINT (160,87), 2
  5. 'Create an array to store the screen data
  6. 'and GET a portion of the screen into it.
  7. DIM Buffer%(0:3589)
  8. GET (0,0) - (319,174), Buffer%
  9.  
  10. 'Copy the array to a memory image file
  11. DEF SEG = VARSEG(Buffer%(0))
  12. BSAVE "SCREEN.FIL", VARPTR(Buffer%(0)), 7180
  13. CLS
  14.  
  15. 'Reload the buffer array with screen data
  16. DEF SEG = VARSEG(Buffer%(0))
  17. BLOAD "SCREEN.FIL", VARPTR(Buffer%(0))
  18. 'PUT the image somewhere else on the screen
  19. PUT (320,0), Buffer%
  20. WHILE NOT INSTAT:WEND
  21. END