Hi there!
I'm creating a procedure that will make Letters dancing on the screen.
So, if it can be useful to someone, here's the basic code.
(Still needs improvements on space between letters - but this depends on wich kind of font you will use) - but it gives the way to go.
input "Text: ",phrase$
set text font "Arial"
set text size 30
length=len(phrase$)
dim LettresMobiles$(length,5)
for a=1 to length
LettresMobiles$(a,1)=mid$(Phrase$,a)
next a
randomize timer()
Ligne=100
sync on
for a= 1 to length
rrif:
b=rnd(3)+1
if b=c then goto rrif
c=b
lettresmobiles$(a,2)=str$(Ligne)
lettresmobiles$(a,3)=str$(Ligne+b)
lettresmobiles$(a,4)=str$(Ligne-b)
if bb$="-1"
bb$="1"
else
bb$="-1"
endif
lettresmobiles$(a,5)=bb$
next a
d=23
do
cls
for a= 1 to length
Y=val(lettresmobiles$(a,2))+val(lettresmobiles$(a,5))
lettresmobiles$(a,2)=str$(y)
text 100+d,y,lettresmobiles$(a,1)
if y=>val(lettresmobiles$(a,3)) then lettresmobiles$(a,5)="-1"
if y=<val(lettresmobiles$(a,4)) then lettresmobiles$(a,5)="1"
Rem Line modified by Spooky
inc d,text width(lettresmobiles$(a,1))
rem
next a
wait 40
d=22
sync
loop
