The REAL Never-Ending BASIC program

[EgoTrip]

Based on this topic: The never ending BASIC program


Maybe we should attempt a real, serious program that doesn't go around in circles finding ways to restart and avoid restarting the CPC.


Basically, copy the code adding a line to the existing program.


I'll start

Code Select Expand


10 MODE 0


[mr_lou]

Code Select Expand


10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15


[Bryce]

Code Select Expand


10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32


Bryce.

[Gryzor]

This is actually a great idea, but how are you going to do anything with it? Programming is structured, and even using chained commands like Bryce did (yeah! my CPC just farted!) you can't do much, I suspect, unless you pre-reserve blocks of lines to jump to with a goto.

Still, curious to see what might come out of it

[Bryce]

Programming is structured...

You've obviously never seen any of my programs

Bryce.

[Gryzor]

hey, if you're offering free beer (or more) to the participants, that's fine by me. Fuzzy logic FTW!

[EgoTrip]

I dunno Gryzor, you can have many single line routines going on, and it could produce a demo of sorts, with running and even playable segments, one liner programs that go on to the next when a key is pressed or something.


Give me some time and I'll come up with something.

[Gryzor]

Yeah, but that would be just a collection of one-liners, not a program.

[EgoTrip]

but it would be a program, are not programs collections of many routines?

Code Select Expand

10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32
40 BORDER 7:INK 0,7:INK 1,26:PRINT"    THE  CPCWIKI":PRINT"  BASIC MEGA DEMO"


[Gryzor]

NOW you're talking

[cpcitor]

Code Select Expand

10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32
40 BORDER 7:INK 0,7:INK 1,26:PRINT"    THE  CPCWIKI":PRINT"  BASIC MEGA DEMO"


Code Select Expand

10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32
40 BORDER 7:INK 0,7:INK 1,26:PRINT"    THE  CPCWIKI":PRINT"  BASIC MEGA DEMO"
50 SOUND 57,284,200,15:SOUND 58,225,400,15:SOUND 60,190,400,15


[Gryzor]

Oh wow.

[Bryce]

Oh wow.

You're easily impressed.

Bryce.

[TFM]

Ingenuity can be found in simple things. Everybody can do it complex 

[Gryzor]

Quote from: Gryzor on Yesterday at 16:53:26Oh wow.
You're easily impressed.

Bryce.

But... it bleeps! It burps! 

[TFM]

Code Select Expand

10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32
40 BORDER 7:INK 0,7:INK 1,26:PRINT"    THE  CPCWIKI":PRINT"  BASIC MEGA DEMO"
50 SOUND 57,284,200,15:SOUND 58,225,400,15:SOUND 60,190,400,15


Code Select Expand

10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32
40 BORDER 7:INK 0,7:INK 1,26:PRINT"    THE  CPCWIKI":PRINT"  BASIC MEGA DEMO"
50 SOUND 57,284,200,15:SOUND 58,225,400,15:SOUND 60,190,400,15

70 CALL GIRL


[Prodatron]

Code Select Expand

10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32
40 BORDER 7:INK 0,7:INK 1,26:PRINT"    THE  CPCWIKI":PRINT"  BASIC MEGA DEMO"
50 SOUND 57,284,200,15:SOUND 58,225,400,15:SOUND 60,190,400,15

70 CALL GIRL


Code Select Expand

10 MODE 0
20 SOUND 1,478,200,15:SOUND 2,440,200,15
30 SYMBOL AFTER 32
40 BORDER 7:INK 0,7:INK 1,26:PRINT"    THE  CPCWIKI":PRINT"  BASIC MEGA DEMO"
50 SOUND 57,284,200,15:SOUND 58,225,400,15:SOUND 60,190,400,15
60 POKE 0,&C9
70 CALL GIRL


[AMSDOS]

You've obviously never seen any of my programs

Bryce.

Is that a cry for help? 

[Bryce]

My programs are beyond help. It's usually the programmer who sees them that cries

Bryce.

[Gryzor]

Last time I programmed (.net ftw!) it took me some 20K for a really simple CLI thingy. Apparently I rediscovered a few routines on the way, and then a friend did it in 2KB. But it was a nice experience. I revisited it a couple of years later (a month ago!) and *I* cried.

[AMSDOS]

Last time I programmed (.net ftw!) it took me some 20K for a really simple CLI thingy. Apparently I rediscovered a few routines on the way, and then a friend did it in 2KB. But it was a nice experience. I revisited it a couple of years later (a month ago!) and *I* cried.

Kind of feel the same way taking some 10-Liner and making it a 8k program out of it. Though that's what happens when you've got an 6k Library file strapped to it.