Archive for the ‘QBasic’ Category

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