try this link then if that doesnt work:
http://mccorp.orgfree.com/files/acid30.zip
Search found 83 matches
- Mon May 03, 2010 1:41 am
- Forum: General Discussion
- Topic: I have made the original Xbox run Qbasic
- Replies: 4
- Views: 9078
- Fri Mar 05, 2010 3:37 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: IF
- Replies: 17
- Views: 20318
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...
- Thu Mar 04, 2010 10:59 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: IF
- Replies: 17
- Views: 20318
- Thu Mar 04, 2010 8:37 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: IF
- Replies: 17
- Views: 20318
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 ...
- Tue Mar 02, 2010 1:16 pm
- Forum: QBASIC and QB64 Questions & Answers
- Topic: IF
- Replies: 17
- Views: 20318
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...
- Thu Feb 25, 2010 4:36 am
- Forum: Pete's QB Site News
- Topic: New Moderator: burger2227
- Replies: 11
- Views: 38763
- Sun Feb 21, 2010 1:15 am
- Forum: News and Announcements
- Topic: Stop Sending Me Emails
- Replies: 4
- Views: 18445
- Sat Feb 20, 2010 11:15 am
- Forum: News and Announcements
- Topic: Stop Sending Me Emails
- Replies: 4
- Views: 18445
Stop Sending Me Emails
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 ...
- Sun Jan 24, 2010 12:21 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
- Sat Jan 23, 2010 7:41 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
- Sat Jan 23, 2010 3:52 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
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...
- Sat Jan 23, 2010 12:30 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
- Fri Jan 22, 2010 3:21 pm
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
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 ...
- Fri Jan 22, 2010 3:18 pm
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
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...
- Fri Jan 22, 2010 3:13 pm
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
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 ...
- Fri Jan 22, 2010 12:55 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Inventory in a simple text adventure.
- Replies: 14
- Views: 19864
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...
- Wed Jan 20, 2010 7:07 am
- Forum: General Discussion
- Topic: I'm new
- Replies: 6
- Views: 13561
- Wed Jan 20, 2010 12:18 am
- Forum: General Discussion
- Topic: I'm new
- Replies: 6
- Views: 13561
- Tue Jan 19, 2010 4:31 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Turn off computer
- Replies: 29
- Views: 35648
- Tue Jan 19, 2010 1:42 am
- Forum: QBASIC and QB64 Questions & Answers
- Topic: Turn off computer
- Replies: 29
- Views: 35648