🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

3 total messages Started by Gabriel Landini Wed, 04 Nov 1992 11:06
SVGA in QuickBASIC?
#23
Author: Gabriel Landini
Date: Wed, 04 Nov 1992 11:06
4 lines
524 bytes
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>
Re: SVGA in QuickBASIC?
#213
Author: Alex Matulich
Date: Sat, 07 Nov 1992 15:23
13 lines
906 bytes
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??

Sorry, this will be of no help.  If anybody figures it out, I want to know
too.


-- 
 _ |__  Alex Matulich    alex.matulich@oau.org
 /(+__>  Unicorn Research Corp, 4621 N Landmark Dr, Orlando, FL 32817
//| \     UUCP:  alex@bilver.uucp   {peora|ge-dab|uunet!tous}!bilver!alex
///__)     Internet:  alex@bilver.oau.org | alex%bilver@peora.sdc.ccur.com
Re: SVGA in QuickBASIC?
#215
Author: 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
******************************************************************************
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads