This program is all with
gosubs. it's my username letter by letter and then start to 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
