🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: net.micro.atari16
Article #1533

Cursors and *.PRG

#1533
From: harrison
Date: Fri, 15 Aug 1986 13:21
30 lines
1709 bytes
If one names the program FOO.PRG, then default is no  cursor,  as
has  been  stated by many others.  Naming it FOO.TOS will turn on
the cursor, but if the program also contains  windows  and  other
GEM  stuff  from  the RSC set it will usually hang.  The solution
for me, where sometimes I'm using  windows  and  sometimes   just
naked   printf's   in   the  same program  is  to explicitly turn
the cursor on and off.  Also, GEM will fire up the  cursor  where
it was left last time, so I usually home it and clear the screen.
Then I can keep calling it FOO.PRG.  Example:

        /* GEM stuff */
        ....
        /* regular stuff begins */
        graf_mouse(M_OFF, 0L);  /* turn off mouse */
        Cconout('\033'); Cconout('H');   /* home cursor */
        Cconout('\033'); Cconout('J');   /* clear to end of screen */
        Ccconout('\033'); Cconout('e');  /* enable cursor */

        printf("Hello world.\n");

        Cconout('\033'); Cconout('f');   /* cursor off */
        ...

Then, the link is:

link68 [u] foo.68k=gemstart,foo,vdibind,aesbind,osbind,gemlib,libf

-- 
    David Harrison, Dept. of Physics, Univ. of Toronto
    {ihnp4,utzoo}!utcs!utfyzx!harrison
Technical Details
Message-ID: <1986Aug15.092121.22604@utfyzx.uucp>
Path: arc1-ca.pugleaf.net!utzoo!utcs!utfyzx!harrison

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!utcs!utfyzx!harrison
From: harrison@utfyzx.UUCP
Newsgroups: net.micro.atari16
Subject: Cursors and *.PRG
Message-ID: <1986Aug15.092121.22604@utfyzx.uucp>
Date: Fri, 15-Aug-86 09:21:21 EDT
Article-I.D.: utfyzx.1986Aug15.092121.22604
Posted: Fri Aug 15 09:21:21 1986
Date-Received: Fri, 15-Aug-86 20:46:29 EDT
Reply-To: harrison@utfyzx.UUCP (David Harrison)
Organization: Dept. of Physics, Univ. of Toronto
Lines: 30