ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/COMM/MISC/COMMO52.ZIP/SAMPLES.MAC

Text File | 1992-03-07 | 9.2 KB | 240 lines

                  ┌───────────────────────────┐
                  │ Additional Macro Examples │
                  └───────────────────────────┘

This file contains a number of sample macros.  Feel free to copy any of them
to COMMO.MAC and to alter them to your own needs.  Additions will be made to
this file as time permits.  Thanks to the users for their contributions.

{COMMO} macros can be made to do many amazing things besides just logging into
BBS's and doing mail runs (those are indeed popular functions, however).  Some
of the simplest macros demonstrate this capability.


 The first two macros are used for reading messages.  They use the grey plus
 and minus keys in the lower right corner of the keyboard. The first one sends
 a <cr>, then clears the screen.  Makes messages a lot easier to read since
 each one starts displaying at the top of the screen.  The second macro just
 sends a <cr>.  Nice for keyboards without the extra Enter key.

 Message reading macros
 ───────────────────────────────────────────────────────────────────────────
 {:gr+} {send |} {clear} {}
 {:gr-} {send |} {}


The next macro is a very important one.  It shows the basic method of asking
for a filename and uploading the file.  Notice that it first sets the variable
"file" to the upload directory (the variable "uldir").  Then when the INPUt
function executes, the upload directory appears in the input line with a "\".

 Upload a file using Zmodem (via DSZ)
 ───────────────────────────────────────────────────────────────────────────
 {:af2} {setv file,%uldir\}
        {input file,Enter a filename:}
        {exec-AW DSZ port %_por sz -m %file} {}


 Start my mail reader after a mail run
 ───────────────────────────────────────────────────────────────────────────
 {:cF3} {exec-N jabber} {}            JABBER Reader


The next two utilities are used in various macros to wait for carrier detect
to drop, then continue dialing (ncr) and to hangup when necessary and continue
dialing (hng):

 {:hng}
        {pause 3} {hangup y}
 {:ncr}
        {pause 1} {ifcarrier ncr}
        {pause 5} {dial ,} {beep} {}



 My generic login macro will login to most popular BBS's.  The generic login
 subroutine can be called from mail run macros, etc.  The GOLOok with the
 ";passwor" ignores the string "password" in the opening instructions on an
 Auntie board.  Put {login} in your Dialing Directory macro field.

 Generic login macro
 ───────────────────────────────────────────────────────────────────────────
 {:login} {capture y,c:\commo\commo.cap}      RBBS, PCBoard, Auntie, etc.
          {asci ,} {call gls} {}

 Generic login subroutine
 ───────────────────────────────────────────────────────────────────────────
  {:gls} {setlook 60,hng,10,|}
  {:li1} {calo li1,li2,(enter)}         {calo li1,li3,graphics (enter)}
         {calo li1,li4,first name}      {calo li1,li5,last name}
         {calo li1,li3,is this correct} {golo li1,;passwor}
         {lookfor password}             {send ~%_pas|} {return}
  {:li2} {send ~|}        {return}
  {:li3} {send ~y|}       {return}
  {:li4} {send ~Fred|}    {return}
  {:li5} {send ~Brucker|} {return}


Here is a macro using variables to do a mail run on a PCBoard with a MarkMail,
Rosemail or QMail door.  It will upload a reply packet if one exists, delete
the packet if the upload is successful, then log off.  If there is no reply
packet it will download new messages and log off. At the end it will wait for
carrier detect to drop, then continue multi-number dialing.

The subroutines "mail_up" and "mail_dn" can be changed to use any protocol.
The supplied ones use the Internal Xmodem-1k.

Four variables must be set prior to starting this macro.  These can be set in
Dialing Directory entry or in the Linked Macro.  For example, to call Northern
Lights and use the QMail door, the Dialing Directory (all on one line!) would
be:

  Northern Lights   12/21/91  {1 207 761 4782}  {password} {pcbmail} {} ...
      ... {nodeid,nlbbs} {maildoor,qmail} {nomsgs,sorry, but no} {ptim,2}

This will set the variables and go direct to "pcbmail."

To use a Linked Macro instead you would have a Dialing Directory entry like:

  Northern Lights   12/21/91  {1 207 761 4782}  {password} {northern} {}

And then have a Linked Macro such as:

  {:northern}
        {setv nodeid,nlbbs}             Set node id
        {setv maildoor,qmail}           Set door type
        {setv nomsgs,sorry, but no}     Set message to LOOKfor if no messages
        {setv ptim,2}                   Set prompt timer duration
        {goto pcbmail}                  GOTO the mail run macro


 PCBoard generic mailrun
 ───────────────────────────────────────────────────────────────────────────
 {:pcbmail}
         {capt y,c:\commo\%nodeid.%_day} {asci ,}
         {setl 30,hng} {look ^g} {call gls}
         {setl 60,hng,%ptim,n|} {look command?}
         {setl 120,hng}  ** turn off prompt timer

         {send open %maildoor|} {look %maildoor command}
         {ifex %uldir\%nodeid.rep,,mr_dl}  ** if no reply, go to download
 {:mr_ul}
         {send u|} {look %nodeid.rep} {call mail_up}
         {look %maildoor command} {ifcon mr_gb,mr_ul} ** if error, try again
 {:mr_dl}
         {send d|}
 {:mr_dl1}
         {golo mr_gb,%nomsgs} {calo mr_dl1,mr_sy,when done?}
         {calo mr_dl1,mr_sy,(y/n)} {look %nodeid.qwk}
         {call mail_dn} {look %maildoor command}
         {ifcon ,mr_dl}  ** if error, try again
 {:mr_gb}
         {send g|} {goto hng}
 {:mr_sy}
         {send y|} {return}

 {:mail_dn} {pause 2} {rxmo %dldir\%nodeid.qwk} {comp %_err,0} {return}

 {:mail_up} {sxmo-k %uldir\%nodeid.rep} {ifer 1,mu_end}
            {exec-N del %uldir\%nodeid.rep}
 {:mu_end}  {comp %_err,0} {return}


Here is my mailrun macro for Babble Underground using the MKQwk mail door for
Remote Access.  The variable "dldir" is used as the disk directory for
downloading the .QWK packet, "uldir" for the .REP.

 Babble Underground mail run
 ───────────────────────────────────────────────────────────────────────────
 {:babble}
        {setv nodeid,babble-u}  ** set board ID
        {capt y,c:\commo\%nodeid.%_day} {asci ,}
        {setl 60,hng}
        {look escape twice} {send ^[^[}  ** for Front Door
        {look real name?} {send Fred Brucker|}  <<-- Your name here
        {look password:} {send %_pas|}
 {:bu_lk1}
        {calo bu_lk1,bu_n,y/n}
        {look command:} {send q}  ** open .QWK door
        {look command:}
        {ifex %uldir\%nodeid.rep,,bu_dl}  ** if no reply, go to download
 {:bu_ul}
        {send u}
 {:bu_lk2}
        {calo bu_lk2,bu_y,yes/no}
        {look transfer now}
        {call mail_up}
        {look command:} {send g~y}
        {pause 2} {goto hng}
 {:bu_dl}
        {setl 600,hng}   ** set timeout for download
        {send d}
 {:bu_lk3}
        {calo bu_lk3,bu_y,yes/no}
        {golo hng,no messages found}
        {look transfer now}
        {call mail_dn}
        {pause 5} {goto hng}

 {:bu_y}
        {send y} {return}
 {:bu_n}
        {send n} {return}


This is my mail run macro for Directory Assistance using the JIMMER RBBS mail
door.  If a reply packet exists, it will be uploaded.  If there is no reply
packet it will download the new messages.

 Directory Assistance mail run
 ───────────────────────────────────────────────────────────────────────────
 {:damail}
         {setv nodeid,dirasnt}
         {unmark 3dir 2dir}  ** unmark directory entries
         {capt y,\commo\dir.%_day} {asci ,}
         {setl 60,hng}
         {golo ncr,no carrier}
         {look =-=-=-=-=-}
         {setl 60,hng,3,n|}
         {look first name} {send fred;brucker;%_pass%;!main|}
         {golo ncr,no carrier}
         {look your command} {send open jimmer|}
         {setl 60,hng}
         {call dm3}
         {ifex %uldir\%nodeid.rep,,dm1}
 {:dm0}  {send u|} {look %nodeid.rep} {call mail_up}
         {call dm3} {ifcon ,dm0} {send g|} {goto dm2}
 {:dm1}  {send d|}
         {golo hng,no messages to download}
         {golo hng,you must select}
         {setl 300,hng}
         {look %nodeid.qwk} {call mail_dn}
         {call dm3} {ifcon ,dm1}
 {:dm2}  {send g|} {look slam!} {goto hng}

 {:dm3}  {calo dm3,dm4,to continue>}
         {golo ncr,no carrier}
         {look your selection} {return}
 {:dm4}  {send |} {return}


 Here's my latest whizbang quoting macro.  It saves the Screen Image File
 pathname in the variable "scrsav."

 Then it sets the Screen Image File to a temporary file and goes into
 Scrollback.  In Scrollback I write a block of text to disk (the quote), then
 exit.  My editor (QEdit) is then executed on the temporary file.  I do what I
 need there to dress up the quote (like add quoting marks, etc.).  When I save
 the file and exit the editor, the macro does an ASCII Upload of the file and
 deletes it.

 Then the Screen Image pathname is restored to what it was before.

 Quoting macro
 ───────────────────────────────────────────────────────────────────────────
 {:cf6} {setv scrsav,%_scr} {screen n,%dldir\temp} {scroll}
        {exec-N q %_scr} {asci %_scr}
        {exec-N del %_scr} {screen n,%scrsav} {}

                                - end -