Pete's QBASIC Site

try this link then if that doesnt work:

http://mccorp.orgfree.com/files/acid30.zip

i tried Beep personally, it doesnt work for me either. just BEEP doesnt work, i tried everything else and they all worked. if you want a print command: case "PRINT" if Line$(count+1) <> "" then print Line$(count+1) else print any questions? btw, i think BEEP doesnt work if the PC doesnt support PC S...

Bongomeno, you didnt notice that i said COMPILE the example
i gave. CTRL+BREAK works only in the QB environment.

i think a working example will do it: dim Labels$(1000) dim LineNum(1000) dim Line$(1000) GOTOs = 0 LengthOfFile = 0 open command$ for input as #1 while not eof(1) input #1, Line$(LengthOfFile) Line$(LengthOfFile) = ucase$(Line$(LengthOfFile)) LengthOfFile = LengthOfFile + 1 wend close #1 for count ...

some help is available. first, include these three lines at the start of your program: dim shared Labels$(1000) dim shared LineNum(1000) GOTOs = 0 the third line is used to say how many labels we defined. insert the following snippet of code before where you begin to translate commands and do what t...

lvrcs, LMAO stands for (L)aughing (M)y (A)ss (O)ff.

anyway, Congratulations on being a moderator Burger, you earned it!

thanks for the lossy recommendation.
im still recieving emails saying to Virus-Check Your Pc From Petesqbsite
Adminsterator. now i even recieve emails telling to check your Pm at
Petesqbsite.com forum, will someone ban my account once for all?

Im not a member of this Forum, and therefore nobody has the right to send me an Email concerning this Forum. and i got thirty two emails just tonight, saying to Virus-Check your PC, and the Email address from which this message came is Pberg@petesqbsite.com. as i told before, please stop sending me ...

well. have fun. im leaving.

nobody said im an expert in QBASIC, but im an expert in C++.
by the way, i should start ignoring you!

i hope these four things make something clear: first off, you are right we are not equal. since my ten years experience is NOTHING against your WhatSoEver experience of programming. second off, i never force anybody to do anything. third off, leave everybody in this board in peace. if you really wan...

every beginner starts with GOTO, JBender too, i always try to start
from scratch and build up every little details you may have skipped.
by the way, whats your problem cheese-burger?

by the way, to avoid your posts going lost. there are two ways. 1) type your text, copy it, and then post the message. if the message is deleted, just edit your existing message or make a new one with the text you copied 2) type your text in notepad or any other text editor, copy the text and paste ...

an example will make all this stuff more clear. ask Any questions!: declare sub ShowBackpack declare sub TakeItem(NameOfItem$) dim shared items dim shared Inventory$(100) 20 input c$ c$ = ucase$(c$) ' make the command case-insensitive if c$ = "TAKE CAMERA" then TakeItem("Camera") end if if c$ = "BAC...

sure, its very easy. but lets make something clear, you know goto? it works like this: [code] goto Label: Label: print "Label" [/code] gosub works like this: [code] gosub Label: print "Back" Label: print "Label" return [/code] run the second code, GOSUB doesnt mean to head into a SUB command. while ...

i programmed some Text-Adventures (some month ago), btw. here is the inventory formula i use: [code] dim Inventory$(100) ' declare an array of 100 elements [/code] arrays are a long-list of variables, the dollar sign means this is a String Array. now: [code] Items = 0 [/code] this one sets the Varia...

you bet and i bet nobody here shares his own picture.

welcome Aboard! by the way, you posted in the best section!

Well... My mistake.

come on, even i know that TinyCounter.com lets you to set the number
on which the counter starts in... and i say, i took count of your site two
days ago. only four visits.