Code: Select all
0 print "{clear}"
1 let c = 48
2 for i = 0 to 39
3 poke 1024+i, c
4 let c = c+1
5 if c > 57 then let c = 48
6 next i
7 let m$ = "donkeysoft mmxiv"
8 let c = 1
9 gosub 100
10 let m$ = "right justify"
11 let c = 0
12 gosub 100
13 end
100 let t = 40 - len( m$ )
101 if c then let t = t * 0.5
102 print tab( t ); m$
103 return
Setting the variable c to 1 or more will center/centre the text, and setting it to zero will right-justify it. Obviously, it'll only work with strings that are the width of the screen or less.
Regards,
Shaun.