disable the cursor

Everything related to BASIC version 1.x (Oric 1 and Atmos) or HYPERBASIC (Telestrat).
Don't hesitate to give your small program samples, technical insights, or questions...
Post Reply
User avatar
maximus
Flying Officer
Posts: 190
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France
Contact:

disable the cursor

Post by maximus » Thu Feb 20, 2014 3:42 pm

I try with PRINT CHR$(17)

Of course it works, but when program read again the instruction, it reappears :?

Is there a way to disable it definitively ?
Image

User avatar
Dbug
Site Admin
Posts: 2361
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Re: disable the cursor

Post by Dbug » Thu Feb 20, 2014 5:39 pm

In $26A is a byte with some control bits:
- Bit 0 -> Cursor status (does the cursor blink)
- Bit 1 -> Video status (does printing to the screen works)
- Bit 3 -> Keyboard sound status (will it do clickety clicks)
- Bit 5 -> Are the two first columns of the screen writable by print

So I guess something like POKE#26A,PEEK(#26A) AND 254 should work.

User avatar
maximus
Flying Officer
Posts: 190
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France
Contact:

Re: disable the cursor

Post by maximus » Thu Feb 20, 2014 7:51 pm

Thanks Dbug for your very fast reaction :D

but what do i add ?

Code: Select all

10 POKE#26A,PEEK(#26A)
20 POKE#26A,254
product strange effect :shock:
Image

Igotafro
Officer Cadet
Posts: 47
Joined: Tue Feb 05, 2008 3:42 pm

Re: disable the cursor

Post by Igotafro » Thu Feb 20, 2014 8:02 pm

AND is a Basic command :)
Try this:

Code: Select all

10 POKE#26A,PEEK(#26A) AND 254

User avatar
maximus
Flying Officer
Posts: 190
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France
Contact:

Re: disable the cursor

Post by maximus » Thu Feb 20, 2014 8:09 pm

Oh my god, :oops:

Thanks, it works perfectly

:D
Image

User avatar
Dbug
Site Admin
Posts: 2361
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Re: disable the cursor

Post by Dbug » Thu Feb 20, 2014 8:17 pm

n00b :p

User avatar
maximus
Flying Officer
Posts: 190
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France
Contact:

Re: disable the cursor

Post by maximus » Thu Feb 20, 2014 8:32 pm

:mrgreen:
Image

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest