home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / MISCTI10.ZIP / TI359.ASC < prev    next >
Encoding:
Text File  |  1988-04-08  |  1.1 KB  |  44 lines
  1. PRODUCT  :  TURBO BASIC                           NUMBER  :  359
  2. VERSION  :  1.0
  3.      OS  :  PC-DOS
  4.    DATE  :  July 22, 1987                           PAGE  :  1/1
  5.  
  6. TITLE    :  SAVING SCREEN 9 GRAPHICS
  7. ----------------------------------------------------------------
  8.  
  9.  
  10. This program shows you how to save SCREEN 9 EGA pictures by using
  11. the GET, PUT, BLOAD, & BSAVE commands.
  12.  
  13. DEFINT A-Z
  14.  
  15. BEGIN:
  16.    SCREEN 9
  17.    CIRCLE (160,120),75,5   'Draw a circle to be transfered
  18.    CALL Show.a(1,0,0)      'GET the circle
  19.    CALL Show.a(3,0,0)      'Save it to a file
  20.    CLS                     'Clear the screen
  21.    CALL Show.a(4,0,0)      'Load it into memory
  22.    CALL Show.a(2,0,0)      'PUT it on the screen
  23. END
  24.  
  25. SUB Show.a(z,x,y)
  26.  
  27.     STATIC a%()
  28.     DIM a%(16181)
  29.  
  30.     SELECT CASE z
  31.        CASE 1
  32.           GET (0,0)-(319,199), a%
  33.        CASE 2
  34.           PUT (x,y),a%
  35.        CASE 3
  36.           DEF SEG = VARSEG(a%(0))
  37.           BSAVE "GRAPH.PIC", VARPTR(a%(0)), 32632
  38.        CASE 4
  39.           DEF SEG = VARSEG(a%(0))
  40.           BLOAD "GRAPH.PIC", VARPTR(a%(0))
  41.     END SELECT
  42.  
  43. END SUB
  44.