*Click* Loading please wait...

[Dio]

Code:

COLOR 9, 0
CLS
a$ = chr$(82)+ chr$(65)+chr$(32)+ chr$(69)+ chr$(83)
b$ = chr$(65) +chr$(66) +chr$(32)+ chr$(82)
c$ = chr$(86)+ chr$(79) +chr$(89)+ chr$(32)+chr$(76) +chr$(76) +chr$(65)
all1$ = a$+b$ +c$
FOR I = 16 TO 1 step -1
  all$ = all$ + mid$(all1$,I,1)
next
LOCATE 11, 35: PRINT "loading..."
LOCATE 12, 34: PRINT "[________________]"
FOR I = 1 to 17
  sleep 400
  locate 12,35:? left(all$,I)
next

LOCATE 11, 46: PRINT "done"