PureBasic Forums - English

Code: Select all

I’ve been in clubs around the world 
From Rome to Massachusetts 
I’ve been in every kind of band 
And I’ve played all kinds of music 
I guess I’ve learned a thing or two 
Lord knows I’ve paid some dues 
If the crowd is in a trance 
And you want ‘em in their dancing shoes 

Everybody loves the blues 
Everybody loves the blues 
LA to Santa Cruz 
Everybody loves the blues 

I’ve played Rock and Funk and R&B 
Polka, punk, and watusi 
Latin, tango, twist and waltz 
Country, congo, western, schmaltz 
Blue Suede Shoes to Long Tall Sally 
Even yodeled in the valley 
Fox-trot, metal, glam and thrash 
As long as they were paying cash 
A lotta styles across the miles 
To keep the folks amused 
But if you really wanna know 
What makes ‘em blow a fuse 

Everybody loves the blues 
Everybody loves the blues 
Taiwan to Syracuse 
Everybody loves the blues 

Everybody loves the blues 
Everybody loves the blues 
Let the people choose 
Everybody loves the blues 

Let me hear you say: “I love the blues”… 

So when you want to groove 
Everybody loves the blues 
You want the crowd to move 
Everybody loves the blues 
Portland to Baton Rouge 
Everybody loves the blues

Code: Select all

RandomSeed(1)

OpenConsole()
ConsoleTitle("The PureBasic Song v1.0 Retared Edition")

NewList Text.s()

AddElement(Text()): Text() = "PureBasic, it's so sexy!"
AddElement(Text()): Text() = "I can feel the power!"
AddElement(Text()): Text() = "Oh yeah!"
AddElement(Text()): Text() = "Hell yeah!"
AddElement(Text()): Text() = "Fred is the MAN!"
AddElement(Text()): Text() = "PureBasic is the best language around! Yeah!"
AddElement(Text()): Text() = "I love it!"
AddElement(Text()): Text() = "My hamster died."
AddElement(Text()): Text() = "Everything else sucks!"
AddElement(Text()): Text() = "PureBasic!!!"
AddElement(Text()): Text() = "I have no life, I code all day!"
AddElement(Text()): Text() = "PureBasic is my only friend!"
AddElement(Text()): Text() = "PureBasic is my god!"

Procedure SetColor()
  Color1.b
  Color2.b
  Repeat
    Color1 = Random(15)
    Color2 = Random(15)
  Until Color1 <> Color2
  ConsoleColor(Color1,Color2)
EndProcedure

Repeat
  Beep_(Random(1000),Random(100))
  Delay(Random(200))
  SelectElement(Text(),Random(CountList(Text())))
  SetColor()
  PrintN(Text())
  ShuttTheHellUp.b = Asc(Right(Inkey(),1))
Until ShuttTheHellUp = #True