Well, to get two at once, you should use variables to keep the coordinates in. Here's an example.
Dim dMax as LONG
dMax = 10000 'or whatever
Char1$ = "A"
x1 = 1
y1 = 1
Char2$ = "B"
x2 = 1
y2 = 2
AreWeDone = 0
While AreWeDone = 0
Locate y1,x1
Print Char1$
Locate y2,x2
Print Char2$
x1 = x1 + 1
x2 = x2 + 1
For d = 1 to dMax
Next
If x1 > 39 or x2 > 39 then AreWeDone = 1
Wend
|