Re: graphics routines

 BBS: Inland Empire Archive
Date: 11-18-92 (16:05)             Number: 379
From: FRED DISANO                  Refer#: NONE
  To: JOHN GALLAS                   Recvd: NO  
Subj: Re: graphics routines          Conf: (2) Quik_Bas
  Ok bud, maby I can help you out here, to set a pixel in
any screen mode just use interrupts, here check this one:

 REM $include:''
defint a-z
dim shared iregs as Regtypex, oregs as Regtypex

 cls:screen 13 'change this to the mode you want

  Al=2 'This is the color of the pixel 2 being green*256+al
  bh=0 'This is the graphics page of which to write on,
ignored if only '1 page is supported.
  iregs.bx=bh*256 'this is the column
  iregs.dx=20 'this is the row, again change this to whatever position
 interruptx &h10,iregs,oregs

 Okay, there you go.  As far as setting 1024x768x256 I
don't know but I can set the 1024x768x16 here's how

defint a-z
dim shared iregs as regtypex, oregs as regtypex

interruptx &h10,iregs,oregs

 There you go, good luck and by the way, I don't know if
that last code will work.  Have good one.

--- Maximus 2.01wb
 * Origin: QuickShare Canada Point * Orleans, ON (613)830-2802 (1:163/518)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET