04-10-2006, 12:18 PM
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"
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Here