| Title: | Atari ST, TT, & Falcon |
| Notice: | Please read note 1.0 and its replies before posting! |
| Moderator: | FUNYET::ANDERSON |
| Created: | Mon Apr 04 1988 |
| Last Modified: | Tue May 06 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 1433 |
| Total number of notes: | 10312 |
I am using GFA Basic for a small specialised terminal emulator for my
ham radio but cannot get the cursor to show. If I do not use "OPENW 1"
then the cursor works OK using "~XBIOS(21,2)" and "PRINT CHR$(27)+"e""
but as soon as I put the OPENW command it doen't show. Any ideas?
Thanks.
Howard
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 1055.1 | Here is a way to do it | BRSTR1::PIGEON | Atlantis_Watcher | Wed Jan 30 1991 13:01 | 25 |
I know how to do this...
The only way to get a cursor inside a window is to program a
sprite yourself
I use the following procedures in my programs.
> PROCEDURE curson
a%=WINDTAB+(window%-1)*12+2
cux=(CRSCOL-1)*8+DPEEK(a%+2)+1
cuy=(CRSLIN-1)*8+DPEEK(a%+4)+20
SPRITE cursor$,cux,cuy
RETURN
> PROCEDURE cursof
SPRITE cursor$
RETURN
> PROCEDURE cursdef
cursor$=MKI$(0)+MKI$(0)+MKI$(-1)+MKI$(0)+MKI$(1) !cursor attributes
FOR i%=1 TO 8
cursor$=cursor$+MKL$(&HFC00)
NEXT i%
cursor$=cursor$+MKD$(0)+MKD$(0)+MKD$(0)+MKD$(0)
RETURN
| |||||
| 1055.2 | For Hi Res... | SUBURB::JAMESH | Left Handed People are SUPER Natural | Fri Feb 01 1991 04:45 | 6 |
Thanks very much, thats great and really appreciated.
For high res I had to change cuy to be:
cuy=(CRSLIN-1)*16+DPEEK(a%+4)+45.
I would never have gotten there on my own.
Regards.
...Howard
| |||||