Comando300's Creations Codes

Bouncing Text

By Comando300

Comando300, letter by letter then bouncing

`Code made by Comando300
xc=630 : yc=screen height()/2 : 	sync on : sync rate 27 : hide mouse
timer=900
	do
cls
		dec xc
dec timer
			text xc,yc,"Comando300's Little Creations"
if timer=0 then sleep 2000 : goto start
sync
loop
start:
	dim x#(10)
		
		for dimension=1 to 10
			
			x#(dimension)=1
				next dimension
	i=1
		y#=screen height()/2
	do
cls
	if i=1 then gosub cero
		if i=2 then gosub cero_
			if i=3 then gosub three
				if i=4 then gosub o
					if i=5 then gosub d
				if i=6 then gosub n
			if i=7 then gosub a
		if i=8 then gosub m
	if i=9 then gosub o_
if i=10 then gosub c
	if i=11 then goto bounce
	sync
		loop
	cero:
	text x#(1),y#,"0"
		
		x#(1)=x#(1)+5
			
			if x#(1)=>570 then x#(1)=570 : i=2
return
	cero_:
	text x#(1),y#,"0" : text x#(2),y#,"0"
		x#(2)=x#(2)+5
			if x#(2)=>560 then x#(2)=560 : i=3
return
	three:
	text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3"
		
		x#(3)=x#(3)+5
			if x#(3)=>550 then x#(3)=550 : i=4
return
	o:
		text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
			x#(4)=x#(4)+5
			
				if x#(4)=>540 then x#(4)=540 : i=5
return
	d:
	
	text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
		text x#(5),y#,"D"
			x#(5)=x#(5)+5
				if x#(5)=>530 then x#(5)=530 : i=6
return
	n:
	
		text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
			text x#(5),y#,"D" : text x#(6),y#,"N"
				x#(6)=x#(6)+5
					if x#(6)=>520 then x#(6)=520 : i=7
return
	a:
		text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
			text x#(5),y#,"D" : text x#(6),y#,"N" : text x#(7),y#,"A"
				x#(7)=x#(7)+5
					if x#(7)=>510 then x#(7)=510 : i=8
return
	m:
			text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
				text x#(5),y#,"D" : text x#(6),y#,"N" : text x#(7),y#,"A" : text x#(8),y#,"M"
					x#(8)=x#(8)+5
						if x#(8)=>500 then x#(8)=500 : i=9
return
	o_:
	text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
		text x#(5),y#,"D" : text x#(6),y#,"N" : text x#(7),y#,"A" : text x#(8),y#,"M"
			
			text x#(9),y#,"O"
				x#(9)=x#(9)+5
					if x#(9)=>490 then x#(9)=490 : i=10
return
	c:
	
	text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
		text x#(5),y#,"D" : text x#(6),y#,"N" : text x#(7),y#,"A" : text x#(8),y#,"M"
			
			text x#(9),y#,"O" : text x#(10),y#,"C"
				x#(10)=x#(10)+5
					if x#(10)=>480 then x#(10)=480 : i=11
return
	bounce:
	do
cls
		
	text x#(1),y#,"0" : text x#(2),y#,"0" : text x#(3),y#,"3" : text x#(4),y#,"O"
		text x#(5),y#,"D" : text x#(6),y#,"N" : text x#(7),y#,"A" : text x#(8),y#,"M"
			
			text x#(9),y#,"O" : text x#(10),y#,"C"
				if x#(10)<1 then dirx#=1
					
					if x#(1)=>570 then dirx#=0
						if y#<1 then diry#=1
							if y#=>470 then diry#=0
						if dirx#=1
							
							for x=1 to 10
								
								x#(x)=x#(x)+5
next x
                   
endif
								if dirx#=0
							for x=1 to 10
						
						x#(x)=x#(x)-5
					next x
endif
						if diry#=0 then dec y#,5
						
							if diry#=1 then inc y#,5
	sync
		loop

By Comando300