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















Comments

Post a Comment

Popular posts from this blog

PHILEMON

PHILEMON 1:1 Paul, a prisoner of Jesus Christ, and Timothy {our} brother, unto Philemon our dearly beloved, and fellowlabourer, PHILEMON 1:2 And to {our} beloved Apphia, and Archippus our fellowsoldier, and to the church in thy house: PHILEMON 1:3 Grace to you, and peace, from God our Father and the Lord Jesus Christ. PHILEMON 1:4 I thank my God, making mention of thee always in my prayers, PHILEMON 1:5 Hearing of thy love and faith, which thou hast toward the Lord Jesus, and toward all saints; PHILEMON 1:6 That the communication of thy faith may become effectual by the acknowledging of every good thing which is in you in Christ Jesus. PHILEMON 1:7 For we have great joy and consolation in thy love, because the bowels of the saints are refreshed by thee, brother. PHILEMON 1:8 Wherefore, though I might be much bold in Christ to enjoin thee that which is convenient, PHILEMON 1:9 Yet for love's sake I rather beseech {thee}, being such an one as Paul the aged, and now ...
Read more

War of the World TV series

EDITOR'S NOTE: I have only compiled this list.  I claim no responsibility for errors, discrepensies, bogus entries, repeated or contradictiory entries, spelling or grammatical errors, or governmental action against those in possession of this list. Thank for for your support! THE PREMISE: Last year, I attended a Science Fiction convention during which I discovered (along with other things) that the makers of the recently-demised TV series War of the Worlds, had a scene in the very first episode, where the original Martian war machines were found mouldering in a LA warehouse.  For fun, the special effects folk labeled one of the boxes in the warehouse 'Ark of the Covenant', indicating that it was the SAME warehouse where the Govt.  hid everything that folks were not to know about.  Recently, I decided to try to use this warehouse in a role-playing game, for fun.  I've been trying to figure out things that should be in some of the boxes.  I'...
Read more