Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

The 20 Line Challenge / My 20 Lines

Author

Message

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 29th Mar 2004 17:32

Did you ever see a real 20 lines code ?
Here it is :

SYNC ON : DIM ligne(20,4)
FOR x = 1 TO 20
   ligne(x,1)=RND(500)+50 : ligne(x,2)=RND(500)+50 : ligne(x,3)=RND(20)+20 * x : ligne(x,4)=RND(20)+20 * x
NEXT x
REPEAT
CLS
FOR X = 1 TO 20
      ligne(x,1)=ligne(x,1)+RND(2)-1 : ligne(x,2)=ligne(x,2)+RND(2)-1 : ligne(x,3)=ligne(x,3)+RND(2)-1 : ligne(x,4)=ligne(x,4)+RND(2)-1 : LINE ligne(x,1),ligne(x,3),ligne(x,2),ligne(x,4)
NEXT x
SYNC
UNTIL MOUSECLICK()=1

- Stand clear of the closing doors -

Back to top

Profile PM Email Website

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 29th Mar 2004 21:37

Lol !

Back to top

Profile PM

Damokles

21

Years of Service

User Offline

Joined: 28th May 2003

Location: Belgium

Posted: 29th Mar 2004 22:58

I was just thinking about it, when I saw this thread
But you can be sure, these are really 20 lines

- Stand clear of the closing doors -

Back to top

Profile PM Email Website

Atreides

21

Years of Service

User Offline

Joined: 11th Oct 2003

Location: Switzerland (but NOT on a mountain !)

Posted: 29th Mar 2004 23:23

haha, that's funny ^_^
put somebody into a bag with only the head out, let him in front of your program for a few houres, and he'll squint ^__^

The sleeper must awaken !

Back to top

Profile PM Website

Back to top

Login to post a reply

Server time is: 2024-11-23 12:32:47
Your offset time is: 2024-11-23 12:32:47