Re-enactment of the program that made me start programming

Posted: September 18, 2010 in QBasic, Software

Nostalgia…

So I downloaded a version of QBasic today. This is a re-enactment of one of the first computer programs that I wrote in 1995 when I was 11 years old sitting in computer class.

The code might have been copied from QBasic help, but looking through here, http://www.qbasicnews.com/qboho/, I couldn’t seem to a find an example that does this. Anyone seen an example in QBasic help that draws random purple rectangles on screen?

Basically, when I saw that I could do this with a computer…write commands and create something from nothing…I was hooked.

Source code here:

SCREEN 7
COLOR 5, 0
RANDOMIZE TIMER
DO
CLS
x = INT(RND * 320)
y = INT(RND * 200)
size = INT(RND * 10) + 10
LINE (x, y)-(x + size, y + size), , BF
LOOP WHILE INKEY$ = “”

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s