The never ending BASIC program

[Devilmarkus]

Idea: anyone who replies here, copies the already existing code, and adds one line.
We will check the results then, if the program is runnable.

I begin:

Code Select Expand

10 MODE 1

(The next who replies, copies my "10 MODE 1" and adds line 20 and so on...)

Let's see, what happens!

[remax]

Code Select Expand

10 MODE 1
20 CLS

[Devilmarkus]

Awwwww.... Come on, remax: CLS is not really needed after a MODE 1... 

[remax]

We are never too cautious...

[mr_lou]

Code Select Expand


10 MODE 1
20 CLS
30 CALL 0


[Devilmarkus]

And the winner is mr_lou.
Program finished.

[EgoTrip]

Code Select Expand


10 MODE 1
20 CLS
25 POKE 0,&C9
30 CALL 0


[mr_lou]

Code Select Expand


10 MODE 1
20 CLS
25 POKE 0,&C9
29 POKE 0,1
30 CALL 0


[EgoTrip]

Code Select Expand

10 MODE 1
20 CLS
25 POKE 0,&C9
26 GOTO 30
29 POKE 0,1
30 CALL 0


Spoiler: ShowHide

RENUM 1,1

Code Select Expand

1 MODE 1
2 CLS
3 POKE 0,&C9
4 GOTO 6
5 POKE 0,1
6 CALL 0


[mr_lou]

Code Select Expand


10 MODE 1
20 CLS
25 POKE 0,&C9
26 GOTO 30
29 POKE 0,1
30 CALL 0
31 POKE 0,1:CALL 0


[EgoTrip]

While this is fun and all, and going around in circles, maybe a real attempt at this should be made on the programming forum.

[db6128]

Proposed rules: No resetting or other tricks, no messing up code with POKEs, probably no MC at all since it does say "BASIC program", no adding lines between existing ones unless there's a very good reason... etc.?

Edit: Never mind; I found the new thread.

[AMSDOS]

Code Select Expand

1 mode 1:while 1:print"hello":wend
10 MODE 1
20 CLS
25 POKE 0,&C9
26 GOTO 30
29 POKE 0,1
30 CALL 0
31 POKE 0,1:CALL 0





^^ You did say Never Ending.