Sorry your browser is not supported!

cls 0
load bitmap "C:\Documents and Settings\Admin\Desktop\DBP\splashtemplate1.bmp"

ink rgb(0,0,0),0 : set text font "times new roman" : set text size 48 : set text to normal : set text transparent
do
   center text 145,175,"E"
loop
wait 1000

do
   center text 170,175,"N'
loop
wait 1000

do
   center text 195,175,"G"
loop
wait 1000

do
   center text 195,175,"L"
loop
wait 1000

cls 0
load bitmap "C:\Documents and Settings\Admin\Desktop\DBP\splashtemplate1.bmp"

ink rgb(0,0,0),0 : set text font "times new roman" : set text size 48 : set text to normal : set text transparent

center text 145,175,"E"
wait 1000

center text 170,175,"N"
wait 1000

center text 195,175,"G"
wait 1000

center text 220,175,"L"
wait 1000

sync on

s$ = "This is a Typing effect I guess!"
Pos as float

do
   gosub Typing
   sync
loop

   Typing:
      text 100,100,left$(s$,Pos)
      if Pos < len(s$) then inc Pos,.01
   return

text$ = "print this"

for i = 1 to len(text$)
	text i*10,0,mid$(text$,i)
	wait 1000
next

wait key

set window on
Set window size 800,600

`ONLY WORRIE ABOUT THIS CODE BELOW!!
Time = Timer()    ` make sure you set the time here so in the loop it can check if its 1 second. then inside the if statement it will reset this variable to the new time. (this is used to check the time once *first time its run*)


Do


`DONT WORRIE ABOUT THIS CODE BELOW!! -- for demonstration purposes - to show that the timer code works.

 Ink RGB(RND(255),RND(255),RND(255)),0      ` changed the color of the text. RGB = red/green/blue 0-255 0 is black, 255 is pure colour of R, G or B.
 line 200,RND(600),RND(600)+200,RND(600)    ` RND = randomize. Line makes a line.     first x position/first y position/ second x pos/ second y pos  (in pixels)

`DONT WORRIE ABOUT THIS CODE ABOVE!! -- for demonstration purposes - to show that the timer code works.




`ONLY WORRIE ABOUT THIS CODE BELOW!!

   `Timer gets the current system time.
 If Timer() >= Time + 1000   ` if the current time is greater then the OLD variable Time + 500 milliseconds (half of a second)  it will print... and then it will reset the variable Time, and repeat this process

    Ink RGB(255,0,0),0      `changed the colour of the text, so you can the white lines in the background, and the red text in the forground.
    Print "every 1 second hehe"

    Time = Timer()     ` Old time = Time variable.
 Endif


Loop

set window on
Set window size 800,600



Text$ = "print this"
Time = Timer()

Do

`DONT WORRIE ABOUT THIS CODE BELOW!! -- for demonstration purposes - to show that the timer code works.

 Ink RGB(RND(255),RND(255),RND(255)),0
 line 200,RND(600),RND(600)+200,RND(600)

`DONT WORRIE ABOUT THIS CODE ABOVE!! -- for demonstration purposes - to show that the time


 If Timer() >= Time + 1000

    If i <= Len(Text$)
       i = i + 1
    Endif

    Ink RGB(0,255,0),0  `pure green
    text i*10,0,mid$(text$,i)

    Time = Timer()     ` Old time = Time variable.
 Endif



Loop