home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progc / c_all592.arj / TI359.ASC < prev    next >
Text File  |  1991-08-27  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT  :  TURBO BASIC                           NUMBER  :  359
  10.   VERSION  :  1.0
  11.        OS  :  PC-DOS
  12.      DATE  :  July 22, 1987                           PAGE  :  1/1
  13.   TITLE    :  SAVING SCREEN 9 GRAPHICS
  14.  
  15.  
  16.  
  17.  
  18.   This program shows you how to save SCREEN 9 EGA pictures by using
  19.   the GET, PUT, BLOAD, & BSAVE commands.
  20.  
  21.   DEFINT A-Z
  22.  
  23.   BEGIN:
  24.      SCREEN 9
  25.      CIRCLE (160,120),75,5   'Draw a circle to be transfered
  26.      CALL Show.a(1,0,0)      'GET the circle
  27.      CALL Show.a(3,0,0)      'Save it to a file
  28.      CLS                     'Clear the screen
  29.      CALL Show.a(4,0,0)      'Load it into memory
  30.      CALL Show.a(2,0,0)      'PUT it on the screen
  31.   END
  32.  
  33.   SUB Show.a(z,x,y)
  34.  
  35.       STATIC a%()
  36.       DIM a%(16181)
  37.  
  38.       SELECT CASE z
  39.          CASE 1
  40.             GET (0,0)-(319,199), a%
  41.          CASE 2
  42.             PUT (x,y),a%
  43.          CASE 3
  44.             DEF SEG = VARSEG(a%(0))
  45.             BSAVE "GRAPH.PIC", VARPTR(a%(0)), 32632
  46.          CASE 4
  47.             DEF SEG = VARSEG(a%(0))
  48.             BLOAD "GRAPH.PIC", VARPTR(a%(0))
  49.       END SELECT
  50.  
  51.   END SUB
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.