Pete's QBASIC Site

You might try this forum:
http://www.network54.com/Forum/554399/

[quote="Codemss"]It isn't working when I use this: IF segment = seg1 THEN if segment <> 31999 then PUT (0, 0), b1(0), PSET ELSE if segment <> 31999 then PUT (0, 0), b2(0), PSET END IF [/quote] I did not put the test into the second "if segment". When I did, I got goofy results. Mac

[quote="Bulldog"]The error is happening here
IF segment = seg1 THEN PUT (0, 0), b1(0), PSET ELSE PUT (0, 0), b2(0), PSET[/quote]

Heh! Missed my post above by 15 minutes! It explains how to get around the error, but not why the bad value occurs.

Mac

[quote="Mac"]I was unable to determine why the function call was illegal. [/quote] Well, I figured out this would help, so the error trap is not necessary: [code] IF segment = seg1 THEN if segment<>31999 then PUT (0, 0), b1(0), PSET ELSE [/code] Don't ask me what's wrong with 31,999. I ran...

[quote="Codemss"]I can't compile this program.[/quote] You mean "I can compile the program, but it eventually bombs out when running"? At least that's what happens to me. No problem compiling. Runs for a while. Then gets "Illegal Function Call". I really, really hate to...

Dang! It's the old "I forgot to turn off HTML problem" I noticed everybody else has the same problem in this thread. When you post code, you must remember to turn HTML off or else the less-than-sign is interpreted as an attempt to give an HTML command to the browser. Many slip through as i...

for some reason i cannot get my ai to move can someone help please Here. (I slowed down the enemy so it didn't win immediately) Mac SCREEN 13 x = 50 y = 50 aix = 12 aiy = 15 DO typed$ = INKEY$ IF typed$ = CHR$(27) THEN SYSTEM WAIT &H3DA, 8 LINE (x - 8, y - 8)-(x + 8, y + 8), 0, BF CIRCLE (x, y)...

..what should i do? What you should do is work on something easier. Your code had so many problems I couldn't explain them one at a time. If you insist on working on something that is over your head, you can use the code I put below for a starter. Mac CLS ' menu menu: CLS DO COLOR 10, 0 LOCATE 5, 2...

But why is FB faster than QB? Faster compared to what need? I have written a zillion QBasic programs. None have made me want a faster computer or a faster interpreter. Take the program Monopoly at http://www.network54.com/Forum/190883/message/1156376791 Even the years old original version which I d...

Hi, Mac: Fun500 was certainly made in QB4.5, so it will not work in QBasic. Thanks, Antoni. FYI, whenever I say QBasic, I include QuickBasic. I consider them the same thing, although I know all the long history. I will run programs in QB4.5 if necessary, although I prefer QB1.0. So if the program i...

Something keeps screwing my code up, Yeah, I just tried to post if a < b then if b > a then test As a result, I got if a a then test And everything except "if a" was in bold. Since I had HTML enabled (I wish the default was "no") the system took "< b" to mean "mak...

it is jumpy Right. Try this DO IF INKEY$ = "s" THEN Change it to DO K$ = INKEY$ IF K$ = "s" THEN And substitute K$ for all the INKEY$ tests below. The reason: Say you press an "a" and your loop happens to be on the first instruction. The command IF INKEY$ = "s&quo...

A QB GUI is a GUI made in QB. A GUI is a Graphical User Interface. Fun500 GUI 3.0 is my GUI(actually made in FB) and can be found at http://fun500.brandoncornell.com Well, I went to that site, but couldn't see exactly what to download to get a "GUI". I'm still not sure what one is. Window...

Brandon wrote:If you hate QB GUIs look away

Uh, right, but what's a "QB GUI"?

And where would one find Fun500 GUI 3.0

Mac

Nixon wrote:Because ...blah, blah

Good answer!!

Mac

about qb 4.5 1. Do i have to pay for it? 2. Is it illegal to download from the internet? 3. Why is it illegal to download it for free if Microsoft doesn't sell this product anymore? 1) No 2) Maybe technically, yes, but in actual fact, no. I've heard in Massachusetts or some state, it is illegal for...

Thank you You're welcome, but I have a bug in the code I gave you. Insert OPEN "z.xxx" FOR OUTPUT AS #2: CLOSE #2: 'reset size to zero before OPEN "z.xxx" FOR BINARY AS #2 (assuming you use two files. If you are encrypting in place, you will have only one file and no need for th...

Actually you do [read/write blocks] True. But a blocksize of 1 is best for this kind of operation. Disk i/o is the same as QBasic keeps a buffer anyway. It would be difficult to detect any difference in run time, but you may want to write some test programs to show me otherwise. Why is 1 the best? ...

Glad you are back on track.

Mac

Got stuck in the room with all the colorful pound signs. If you are in a room and the doors are closed, you have to get rid of all the pound-signs that are the same color as you are. Once you do that, you can go to another room. If you enter a room with no pound-signs that are your color, then you ...