🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: alt.lang.basic
Article #215

Re: SVGA in QuickBASIC?

#215
From: Brian Wheeler
Date: Sat, 07 Nov 1992 19:15
48 lines
2066 bytes
In <920604110653@ibm3090.bham.ac.uk> g.landini@uk.ac.bham (Gabriel Landini) writes:

>Is there any way in which I could use any of my Paradise chip video modes
>(SVGA) in QuickBASIC??
>Gabriel
><G.Landini@bham.ac.uk>

Yeah, I think so...
if you know what the VideoBIOS interrupts are, it should be pretty easy.
Unfortunatly, You may have to bypass QB's graphic functions :(
All you need to do is use the QB.QLB file to get access to them
Here's what you do:
dos prompt> QB /L

Here's the program (I don't know the Paradise mode #'s, so I've substituted
	Standard VGA #'s)

REM $INCLUDE: 'qb.bi'
REM That's the header for the interrupts

DIM regs as regtype 'CPU Register Type
'The following code is the same as:
'	MOV	ax,0000
'	INT	10h
regs.AX = &h13 'VGA 320x200x256
Interrupt &h10, regs, regs
'Computer is now in VGA mode
'Draw a dot:
MyPSET 160,100,1,0

Sub MyPSET (x,y,color,page)
	dim regs as regtype		'MOV AH,0ch
	regs.AX= (&h0c*256)+color	'MOV al,color
	regs.BX=page*256		'MOV bh,page
	regs.CX=x			'MOV cx,x
	regs.DX=y			'MOV dx,y
	Interrupt &h10,regs,regs	'INT 10h
end sub

That should do it.
If you choose a mode that QB doesn't support, you'll probably have to use a 
routine like MyPSET

-- 
******************************************************************************
* Brian 'Nautical' Wheeler - These are my opinions, do you hear me?  MINE!
* "Wombats are our friends" - Me
******************************************************************************
Technical Details
Message-ID: <BxD1Hq.Bs5@usenet.ucs.indiana.edu>
Path: arc1-ca.pugleaf.net!sparky!uunet!haven.umd.edu!darwin.sura.net!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!usenet.ucs.indiana.edu!silver.ucs.indiana.edu!bdwheele
References: <920604110653@ibm3090.bham.ac.uk>

Show Full Headers
Complete Article Headers
Newsgroups: alt.lang.basic
Path: arc1-ca.pugleaf.net!sparky!uunet!haven.umd.edu!darwin.sura.net!zaphod.mps.ohio-state.edu!sol.ctr.columbia.edu!usenet.ucs.indiana.edu!silver.ucs.indiana.edu!bdwheele
From: bdwheele@silver.ucs.indiana.edu (Brian Wheeler)
Subject: Re: SVGA in QuickBASIC?
Message-ID: <BxD1Hq.Bs5@usenet.ucs.indiana.edu>
Sender: news@usenet.ucs.indiana.edu (USENET News System)
Nntp-Posting-Host: silver.ucs.indiana.edu
Organization: Indiana University
References: <920604110653@ibm3090.bham.ac.uk>
Date: Sat, 7 Nov 1992 19:15:26 GMT
Lines: 48