Page 1 of 1

Free Programs and Source Code

Posted: Mon Sep 17, 2012 3:49 pm
by mikecaterina1
Post any porgram you have created or modified, finished or unfinished. Post a link to you program/ code if possbile (i.e. Dropbox), as copy and paste doesn't work in Qbasic only QB64 and retyping a program leaves alot of room for errors.
Note: Any programs you post can be downloaded, modified and reposted by anyone, so do not post if you do not want this to happen.

Countdown

Posted: Mon Sep 17, 2012 3:54 pm
by mikecaterina1
Here is a simple countdown program I wrote just for fun. You can set the countdown length. You can also set what the program says after the countdown. The scroll the program talks about is a little arrow the moves across the screen after the countdown. Feel free to download, use and edit this program.

https://www.dropbox.com/sh/5hycvasm0cvgxmu/nxTTclkzVN

Posted: Tue Sep 18, 2012 12:35 am
by bongomeno
Here is a simple jewel elimination style game that I made last week.

http://www.geekbasic.com/downloads/QJEWEL.ZIP

Posted: Tue Sep 18, 2012 3:19 pm
by mikecaterina1
Good game but only the right arrow key work for me and I can't get past the first line, is there a bug in the program or is it my computer? :?

Posted: Tue Sep 18, 2012 8:02 pm
by burger2227
Same here. K is missing to go left.

The code allows you to use just CAP letter keys too

Posted: Tue Sep 18, 2012 11:12 pm
by bongomeno
Are you using the arrow keys to move the cursor?

Posted: Tue Sep 18, 2012 11:51 pm
by burger2227
Of course and like I said the CHR$(0) + K is missing to go left. Why don't you fix it. It doesn't move any way but right.

Posted: Wed Sep 19, 2012 12:58 pm
by bongomeno
It works on all of the computers that I have tested it on.
Try this link to the exe and actual source file. http://www.geekbasic.com/downloads/QJEWEL.ZIP Stuff was lost while posting here.

Also, why would I need chr$(0) when I have SELECT CASE RIGHT$(in$, 1)?

Posted: Wed Sep 19, 2012 3:33 pm
by mikecaterina1
I downloaded and it works with DosBox but it is very skippy and slow :(

Posted: Wed Sep 19, 2012 10:43 pm
by burger2227
Also, why would I need chr$(0) when I have SELECT CASE RIGHT$(in$, 1)?
You don't. That's why K would work too, like I said...

Posted: Thu Sep 20, 2012 10:34 am
by bongomeno
ahh I misread your post.

and Qbasic +inkey$+circles + Dosbox = slow

Try using QB64. It will run super fast!