SAVING SCREEN 9 GRAPHICS

  PRODUCT  :  TURBO BASIC                           NUMBER  :  359
  VERSION  :  1.0
       OS  :  PC-DOS
     DATE  :  July 22, 1987                           PAGE  :  1/1
  TITLE    :  SAVING SCREEN 9 GRAPHICS




  This program shows you how to save SCREEN 9 EGA pictures by using
  the GET, PUT, BLOAD, & BSAVE commands.

  DEFINT A-Z

  BEGIN:
     SCREEN 9
     CIRCLE (160,120),75,5   'Draw a circle to be transfered
     CALL Show.a(1,0,0)      'GET the circle
     CALL Show.a(3,0,0)      'Save it to a file
     CLS                     'Clear the screen
     CALL Show.a(4,0,0)      'Load it into memory
     CALL Show.a(2,0,0)      'PUT it on the screen
  END

  SUB Show.a(z,x,y)

      STATIC a%()
      DIM a%(16181)

      SELECT CASE z
         CASE 1
            GET (0,0)-(319,199), a%
         CASE 2
            PUT (x,y),a%
         CASE 3
            DEF SEG = VARSEG(a%(0))
            BSAVE "GRAPH.PIC", VARPTR(a%(0)), 32632
         CASE 4
            DEF SEG = VARSEG(a%(0))
            BLOAD "GRAPH.PIC", VARPTR(a%(0))
      END SELECT

  END SUB