POSITION X,X + GRAPHICS 8

[Ricky Spanish]

Seems over the years I've forgotten some 'basic' things about BASIC. For instance, I'm trying to display certain information in the GR.8 text window at the bottom of the screen, and to prevent it from scrolling I thought is a simple matter of for example : 1000 POSITION 0,0: ? "X=";INT(X),"Y=";INT(Y). With this it still scrolls. I have to resort to using : 1000 [CLEAR]: ? "X=";INT(X),"Y=";INT(Y). But then it blinks. Kind of annoying to look at. If somebody could point out the solution it would be appreciated. Thanks !

Edited October 23, 2022 by Ricky Spanish
spelling, always spelling

[TGB1718]

The position statement will be acting on the graphics portion of the screen.

The ? statement is working in the graphics window.

 

You can manipulate this by using memory locations 656 to 667, they control the 

text window row/column.

 Either that or get the text window address and POKE the values in

 

Try something like this, note the ';' at the end of the print line

 

10 GRAPHICS 8:X=12.345:Y=987.345
20 POKE 656,2:POKE 657,10: REM ROW 2 - COLUMN 10
25 ? "X=";INT(X),"Y=";INT(Y);
30 GOTO 30

 

You can turn the cursor off if you don't want it by POKE 752,1

and back on with POKE 752,0

 

Just for fun

 

10 GRAPHICS 8:X=12.345:Y=987.345
11 POKE 752,1
15 FOR I=0 TO 24
20 POKE 656,2:POKE 657,I
25 ? " X=";INT(X),"Y=";INT(Y);" ";
26 NEXT I
30 FOR I=24 TO 0 STEP -1
40 POKE 656,2:POKE 657,I
45 ? " X=";INT(X),"Y=";INT(Y);" ";
46 NEXT I
50 GOTO 15

Edited October 23, 2022 by TGB1718
Edit:

[Ricky Spanish]

26 minutes ago, TGB1718 said:

Try something like this

Yeah that worked. Many thanks for it and the explanation !

[Ricky Spanish]

@TGB1718 I did notice one thing, if the value exceeds 100, then say goes back to 80, instead of showing 80, it will show 800, or say 151, then 50 it will show 501 etc., etc.

[+Stephen]

2 minutes ago, Ricky Spanish said:

@TGB1718 I did notice one thing, if the value exceeds 100, then say goes back to 80, instead of showing 80, it will show 800, or say 151, then 50 it will show 501 etc., etc.

Print a few blank characters (spaces) after the numbers so it is always the same # of digits.  Printing to a line you have already written to (as you have seen) does not clear the line - it simply prints over top of what is already there.

[Ricky Spanish]

31 minutes ago, Stephen said:

Print a few blank characters (spaces) after the numbers so it is always the same # of digits.

110% correct. I really gotta hunker down and relearn what I forgot. Thanks !

[TGB1718]

11 hours ago, Ricky Spanish said:

110% correct. I really gotta hunker down and relearn what I forgot. Thanks !

You may have noticed on my little fun code I put a space in front and behind of the strings for that very purpose

 

[Ricky Spanish]

3 hours ago, TGB1718 said:

You may have noticed on my little fun code I put a space in front and behind of the strings for that very purpose

And I totally missed that part. Apparently I need to brush up on my comprehension skills as well haha. 

[baktra]

3 hours ago, Ricky Spanish said:

And I totally missed that part. Apparently I need to brush up on my comprehension skills as well haha. 

Perhaps not, @TGB1718 just forgot to use monospaced font or the code block.

10 GRAPHICS 8:X=12.345:Y=987.345
11 POKE 752,1
15 FOR I=0 TO 24
20 POKE 656,2:POKE 657,I
25 ? " X=";INT(X),"Y=";INT(Y);" ";
26 NEXT I
30 FOR I=24 TO 0 STEP -1
40 POKE 656,2:POKE 657,I
45 ? " X=";INT(X),"Y=";INT(Y);" ";
46 NEXT I
50 GOTO 15