Pete's QBASIC Site

Microsoft used to recomend to use ENVIRON$:
-If the variable windir exists, you are in a shell in some version of windows (from 3.0 to XP)
-If the variable OS exists you are in windows NT-2000-XP

Not so accurate as SHELL "VER>file"...

Perhaps you are linking with a non-mbf module? Wrong run-time lib?

I'm afraid i can't be of more help, as I have never used the /mbf option.

Guest: Nek's code works... if every variable is integer. You are probably using the QB defaults that make all variables floating point, so rounding errors may prevent the code from work. The easiest workaround is to put a pair of parentheses in the IF condition. berth = int(rnd * 16) + 5 if (berth A...

Programs doing "plain QB" work without a problem. You will run into problems if you use game libraries that access SVGA modes, EMS memory and/or soundcard. Tweaking with hardware ports is not allowed at all. There are workarounds to all of these problems but they require special settings o...

For the QB bload format, you can use any editor, do a standard bmp, then use one of the qb programs that convert bmp to bload...
Here is one of them:
http://www.qb45.com/index.php?page=down ... oad&id=638

FreeBasic can bload standard bmp files so any editor is OK.

To bad subjects I would add "Does not work!" and "OK, guys, now explain this to me!"

If by loading you mean the program does not compile or does not run as expected, FB and QB differ in some aspects, you have the list here
http://www.freebasic.net/wiki/wikka.php?wakka=LangQB

BTW: A .bas file must be saved in text format to be readable by anything else than QB.

Ok, this is a problem with QB not having unsigned integers. You can try compiling the code or try this (i hope last) one using LONG variables: '$include:'qb.bi' declare SUB font (text$, X%, Y%, clr%) screen 12 dim regs as regtypex dim shared segm%, offs& regs.ax=&h1130 regs.bx=&h0300 cal...

He said each record had 66 LINES .... NRecordLines=66 Linetoread=8 ColToRead=12 Charstoread=17 open "MyData.txt" for input as #1 open "MyOutput.txt" for output as #2 n=0 do n=n+1 for i=1 to NRecordlines line input #1,a$ if i=linetoread then print #2; n,mid$(a$,coltoread,charstore...

Or use Plasma/Rel 's SuperPut
http://www.phatcode.net/downloads.php?id=166
It was very used just before FB sucked our brain

An example: declare SUB font (text$, X%, Y%, clr%) screen 12 k%=0 for i%=0 to 7 for j%=0 to 60 font "This is a demo",120*i%,8*j%,k%+1 k%=((k%+1) mod 14) next next sleep end SUB font (text$, X%, Y%, clr%) x%=x%-7 DEF SEG = -90 'make even the length if len(text$) and 1 then text$=text$+"...

I see four counters in your code, which one does not work?
If you're speaking about intcount you are specifically increasing it by 1 twice every call to B010Process. Is this the problem?

Forget about loading JPEG in QB, I once did a loader, it added 30K to the compiled program. JPEG is off limits for everyday use in QB.
You can find several good gif loaders around.

Even simpler: DIM WorkName(1 TO 5) AS STRING WorkName(1) = "Stephane Richard" WorkName(2) = "Pete Berg" WorkName(3) = "Alice Cooper" WorkName(4) = "Terry Fox" WorkName(5) = "Kristian Virtanen" REM Assuming that no name is greater than 30 characters. ...

In the ugly and powerless batch scripting language of DOS and W9x, zero length files were used by the more 1337 programmers to overcome the limitations of the language. Zero length files made good flags. And I remember a way to separe a file name from its extension using a dummy file and REN... I mu...

I would be surprised if your sound was'nt here:

http://www.qbasicnews.com/abc/showsnipp ... snippet=19

Well, you just want DEL not to mess your screen layout with it's error message if the file does not exist, is'nt?
In windows XP, 2000,( NT?) you can just redirect the error messages to the NUL device.
It will not work in W9x or DOS

I have a couple of questions. Firstly, I notice that well done games never have a problem with flicker. I've also noticed that in relsoft's polygon files, he uses something called the setvideoseg which seems to get rid of flicker and black blocks behind sprites. Can anyone give me anymore info on t...