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...
User avatar
maximus
Flying Officer
Posts: 203
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France

disable the cursor

Post by maximus »

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 ?
User avatar
Dbug
Site Admin
Posts: 4437
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Re: disable the cursor

Post by Dbug »

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: 203
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France

Re: disable the cursor

Post by maximus »

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:
Igotafro
Officer Cadet
Posts: 47
Joined: Tue Feb 05, 2008 3:42 pm

Re: disable the cursor

Post by Igotafro »

AND is a Basic command :)
Try this:

Code: Select all

10 POKE#26A,PEEK(#26A) AND 254
User avatar
maximus
Flying Officer
Posts: 203
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France

Re: disable the cursor

Post by maximus »

Oh my god, :oops:

Thanks, it works perfectly

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

Re: disable the cursor

Post by Dbug »

n00b :p
User avatar
maximus
Flying Officer
Posts: 203
Joined: Thu Feb 23, 2006 7:45 pm
Location: Nimes, France

Re: disable the cursor

Post by maximus »

:mrgreen:
Post Reply