Cursor avec typewriter effect

[jofers_]

Hello Alain! Both your English and your taste in movies are excellent.

I'm not sure how to get the cursor there automatically, but you can fake it by printing the cursor, and then writing over it each iteration of the loop. You do this by using CSRLIN to find the current row, POS to find the current column, and LOCATE to move the print location.

Before the loop, print the cursor so the screen will be at a non-zero horizontal position

Code:

PRINT Cur$

Then, inside the loop each iteration, move the screen one space back, and print the cursor after each character:

Code:

LOCATE CSRLIN, POS(0) - 1
PRINT MID$(Text$, Count, 1); Cur$;

Finally, after the loop, "erase" the cursor by printing space over it:

Code:

LOCATE CSRLIN, POS(0) - 1
PRINT " "

That gives me the desired effect: