#: 15065 S10/OS9/6809 (CoCo)
    25-Apr-92  09:31:15
Sb: #15047-echo off
Fm: Kevin Darling 76703,4227
To: Sharon  Lind 70760,3643 (X)

Hi Sharon... what you'll want to use is the SS.OPT (pg 8-112 Tech Manual)
get/set status call.  It gets/puts 32 bytes of path descriptor options. The SCF
options are described on (pg 6-4 and 6-5).

The easiest method is to just allocate a VARNAME(32):BYTE variable, and use it
to save/put the options.  But by changing some of the option names (so that
Basic09 doesn't see them as keywords), we get clearer subroutines for now:

 PROCEDURE EchoOff
 PARAM path:integer \ (* pass desired path number

 DIM I_GetStt:BYTE \I_GetStt=$8D
 DIM I_SetStt:BYTE \I_SetStt=$8E
 DIM SS_Opt:BYTE \SS_Opt=$00
 TYPE stack=cc,a,b,dp:BYTE; x,y,u:INTEGER
 DIM regs:stack
 (* the following is really typed all on one line:
 TYPE scfopts=dtp,upc,bso,dlo,eko,alf,nul,pau,pag,bsp,del,eor,
 eofile,rpr,dup,psc,intpt,qut,bse,ovf,par,bau,d2p(2),xon,xoff,
 eer,misc(5):BYTE
 DIM pd:scfopts

 regs.a=path
 regs.b=SS_Opt
 regs.x=ADDR(pd)
 RUN syscall(I_GetStt,regs) \ (* get current options
 pd.eko=0                   \ (* turn off echo byte
 RUN syscall(I_SetStt,regs) \ (* set new options with echo off
 END

The reverse (EchoOn) would look the same, except of course "pd.eko=1" instead.

Please ask if have any questions -  kevin