BBS: Inland Empire Archive Date: 05-24-92 (01:22) Number: 143 From: MARK BUTLER Refer#: NONE To: JOHN GALLAS Recvd: NO Subj: video memory segment Conf: (2) Quik_Bas
On 05-22-92 JOHN GALLAS wrote to MARK BUTLER... MB> FUNCTION CRT% MB> IF (PEEK(1040) AND 48) = 48 THEN MB> CRT = 0 '<-------- monochrome, use &HB000 MB> ELSE MB> CRT = -1 '<-------- color, use &HB800 MB> END IF MB> END FUNCTION JG> I tried that on my monochrome monitor and it told me that I JG> had color. Then I ran my CGA simulator and it said that I had JG> monochrome. So I think you have the two mixed around, if the JG> above statement is true, then it will be mono else color. ??? that's weird. I retested this again on my CGA (Crumby Graphics Abortion) equiped machine directly from the above snippet and the CRT% function kicked me back a -1 (for color). I have also tried this on a Herc compatible mono card and got back a 0 from CRT% (for mono) I don't know what coulda went wrong for you. You say CRT% gave you a -1 on a mono card _before_ you ran the simcga software? I'm not even sure simcga should make a difference anyway but I really wouldn't know for sure since I've never used simcga type software. All I do know is that one is _supposed_ get a zero from CRT% on a mono-card. S-t-r-a-n-g-e..... (que in TwiLight ZoNe theme) -----------> MHB :-) ... OFFLINE 1.36 * The future isn't what it used to be ........................................................................... --- WM v2.01/91-0012 * Origin: Com-Dat BBS Hillsboro, OR. HST (503) 681-0543 (1:105/314)
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