Path: ns-mx!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!menudo.uh.edu!lobster!nuchat!xcluud!markj
From: markj@xcluud.sccsi.com (Mark Johnson)
Newsgroups: comp.sys.apple2
Subject: Proterm Global Macro for RN
Message-ID: <1992Apr17.192029.8246@xcluud.sccsi.com>
Date: 17 Apr 92 19:20:29 GMT
Organization: Greater Montrose UFO Appreciation Society & Data Haven
Lines: 40

* A new Proterm 3.0 global macro to read News unattended on Unix Systems *
* append this to your Pt.globals then use option-n after typing rn *
*  from the unix shell.  *
@@N

Pr " "		*  print a space so we can begin anytime  *

@@3


*  make the following 3 lines one line by deleting the carrage returns *


wt "subscribe? [ynY]",@1,"comp.binaries.apple2--read now? [ynq]",@2,"what next?
 [npq]",@4,"-read now? [ynq]",@4,"%)",@4,"continue]",@4,"******** End of
 newsgroups--what next? [qnp]",@5

Go @3

@@1 pr"n"
GO @3       * Continue not subscribing or *

@@2 pr"q"   *   quit when we get to the binaries list *

Go @3

@@4 pr" "   *  print a space to continue  *

Go @3

@@5 pr"q"	*  quit news groups  *
wt "$"
pr"exit^M"	*  log off *
Ex


-- 
-----
markj@xcluud.sccsi.com or uunet!nuchat!xcluud!markj
Houston, Tx.  Voice 713-827-0523
Newsgroups: comp.sys.apple2
Path: news.weeg.uiowa.edu!news.uiowa.edu!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!sdd.hp.com!decwrl!netcomsv!netcom.com!fmlin
From: fmlin@netcom.com (Frank M. Lin)
Subject: Re: 57,600 baud???
Message-ID: <fmlinC4pup0.1vH@netcom.com>
Organization: Netcom Online Communications Services (408-241-9760 login: guest)
References: <seeZ1B2w165w@BlackWlf.Mese.Com>
Date: Tue, 30 Mar 1993 19:12:36 GMT
Lines: 32

Here's the macro that will turn the DTE speed from 38.4k to 57.6k...  I just
realize Netcom is locked at 38.4k.  So I can't tell if it shows any improvement.Thanks to the folks who sent me a copy of the macro.

This should goto your global macro file...

@@f     * toggle max baud rate between 38.4k & 57.6k *
 set $0=2560
 while (gt $0,2304) {
   if (eq (mem $0) 46) {
      if (eq (mem $0+1) 22) {
         if (eq (mem $0+2) 10) {
            if (eq (mem $0+3) 4) {
               set $1=(mem $0+4)
               mem $0+4,1-$1
               set $0=2304
               set &0="38400"
               if ($1) {
                  set &0 = "57600"
               }
               pr #2 "max rate = "+&0+"^m"
            }
         }
      }
    }
  set $0=$0-1
  }
  ex

--
frank m. lin
fmlin@netcom.com