Challenge....

[oracle]

I know this thread seems to have finished a while ago, but these programs are all so cool, so I have to ask: where can I get them all in an easy zipped package?

Or:

Can I take these and host them on QBasic New Zealand? I'll add a link for anyone who says yes to their site of choice, or an email address or whatever you guys want.

[na_th_an]

Ask to rel. He was keeping some kind of archive.

I'm quite sure you can host those programs in your site. At least, you can host phobeous and mine's (that cool fire effect).

[oracle]

Definately the fire effect. And the forest.bas too. Why didn't antoni put those 300 data lines into one huge data line?

[TerraGoetia]

This is a seven-liner I did at school.  You've probably seen something like this 100's of times.

1 SCREEN 13
2 DO
3 IF INKEY$ <> "" THEN END
4 X = INT(RND * 250) + 1
5 Y = INT(RND * 250) + 1
6 CIRCLE STEP (0,0), X, Y
7 LOOP

[na_th_an]

Definately the fire effect. And the forest.bas too. Why didn't antoni put those 300 data lines into one huge data line?

Well, because of line length restrictions. "Expression too complex" can be given if lines are greater than 256 characters long. From that line size, BC.EXE begins behaving oddly

Anyway, those 300 data lines don't count 'cause the effect itself is done in the first lines. The DATAs are just for the neato image.

[oracle]

I have linux back!!!

So... I have debian and got dosemu through apt-get (the coolest program in linux btw!)... now, how do I get it to stop giving me the "sorry, there is no operating system. Goodbye!" message, and get it to start running qbasic?

TerraGoteia: Thanks, source is always good. I don't event understand half the hardware stuff these guys are (were?) pulling, so I'm making it my job to soon (after my site is up).

[na_th_an]

Well, you have to install MSDOS, DRDOS or FreeDOS in DosEMU. I would recommend you MSDOS if you have it, if not, just download FreeDOS. Anyhow, a single "MSDOS diskette images" should be OK in Google .

[red_Marvin]

I haven't written any licence agreement for my nineliner,
so you're free to do what you want with it
(as long as you don't pretend somebody else than me has done it)

[oracle]

All source code I recieve will be credited to its correct owner. However I may improve any code I recieve to make a better/faster program out of it, but the origional creator will still be credited with the base work.

I'm gonna see if I can get DOS now.

[na_th_an]

Here: http://aw.localhost.ee/aw/view/1145.html

You have to create a membership, but it is free.

[red_Marvin]

oracle: I never meant I don't trust you and I trust everybody here
if they say "I've done this code myself" but what I said was just
this normal security/rights/watever blah and I didn't mean to
offend you or anybody else here as a matter of fact, I take it
as a great honour if somebody is willing to do anything with my
code as I think my programming skills are very modest in comparision
with other programmers here...

 

[oracle]

Marvin: That's cool. I just wanted my policy known to all  :wink:

[relsoft]

Oracle: Yep you can host em. :*)

Link:

http://qb45.tonez-online.com/qbasic/pn/modules.php?op=modload&name=Downloads&file=index&req=viewdownloaddetails&lid=1475&ttitle=The_Nine_Liners

[oracle]

Thanks!

I never found that site before, can you believe it? It never showed up when I was doing a google search. I should be searching with dogpile or something...

Nathan: DOSEMU WORKS!!! Thanks man! Now to get the mouse to work and then I'm really rocking!

[seph]

I like this one a lot, considering I'm not a very creative person

Code:

SCREEN 13
WHILE INKEY$ = ""
        'CLS
        RANDOMIZE TIMER * 4
        x = INT((320) * RND + 1)
        y = INT((200) * RND + 1)
        PSET (x, y), x + y
        IF x = y THEN CLS
WEND