PureBasic Forums - English

Code: Select all

OpenConsole() 
ConsoleTitle("C:\Programme\PureBasic\Compilers") 
PrintN("") 
For a=1 To 50
Print("*")
Delay(1)
Next
PrintN("") 
a$="PureBasic v4.01 Beta 1 <Windows - x86>"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(1)
Next
PrintN("") 
For a=1 To 50
Print("*")
Delay(1)
Next
Delay(200) 
PrintN("")
a$= "Compiling C:\Programme\PureBasic\Examples\Doubles.pb"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(20)
Next
Delay(500)
PrintN("")
a$="Loading external libraries..."
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(10)
Next
PrintN("")
Delay(500)
PrintN("Starting compilation...") 
Delay(1500)
PrintN("38 lines processed")
Delay(500)
a$= "Creating executable."
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(5)
Next
PrintN("")
Delay(1000)
PrintN("") 
a$="- Feel the ..PuRe.. Power -"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(100)
Next
Delay(2000)
PrintN("")
a$="C:\Programme\PureBasic\Compilers "
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(5)
Next
Delay(1000)
PrintN("")
a$="exe complete, please press enter to test"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(5)
Next
Input()
ClearConsole()
a$="Wake up Neo"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(220)
Next
Delay(2000)
ClearConsole()
PrintN("")
a$="The Matrix has you"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(220)
Next
Delay(2000)
ClearConsole()
a$="Follow the white rabbit"
a=Len(a$)
For b=1 To a
b$=Mid(a$,b,1)
Print(b$)
Delay(220)
Next
Delay(1000)
PrintN("")
PrintN("")
PrintN("")
PrintN("")
PrintN("   (\(\")
PrintN("   ( ';')")
PrintN("  o(^)(^)")
PrintN("  ------------------->")
Print("He went that way...")
Delay(2000)
PrintN("")
PrintN("")
PrintN("")
PrintN("Test complete, press enter to finish")
Input()
CloseConsole()