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

Text File | 1991-04-13 | 25.0 KB | 669 lines

███████████████████████████████████████████████████████████████████████████████████
{C}MAC 0.2 The do everything macro for {COMMO}!               04/13/1991

This is not Share Ware.  It is FREE WARE.  And it is not finished yet so
please feel free to modify the code as much as you like.  I ask
only that you state clearly that the code has been modified and that I
be given credit for the original work.  Also I would like very much to
see any improvements or changes that you have made.

This macro contains ideas and code from many sources.  Actually I am not
sure any of it is original.{G}  So if you see some of your code don't be
surprised.

I can be contacted by snail mail at the address below, on The Programer's
Forum! BBS [phone], or in the {COMMO} conference on Relay Net
->CYBER.

The Forum! will always have the latest version of this macro.

Be sure to check the {C}READ.ME file for more instructions.

{don} {238}

Don Garrett
980 Garrison Rd.
Pelzer, SC 29669


█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 1:  PROTOCOLS  █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
============================================================================
 Macros used for DOWNLOADING (receiving)                    Program required
 ───────────────────────────────────────────────────────────────────────────

 ZMODEM batch  {.z.} {exec DSZ port %p rz -m %d %a} {}      DSZ.COM
 YMODEM batch  {ydl} {exec DSZ port %p rb %d %a %w} {}      DSZ.COM
 YMODEM CRC    {---} {exec DSZ port %p rc %d\%i %a %w} {}   DSZ.COM
 XMODEM CRC    {---} {exec DSZ port %p rc %d\%i %a %w} {}   DSZ.COM
 PUMA          {.m.} {exec PUMA P%p S%s r %d\ %a} {}        PUMA.EXE
 SEALINK       {sdl} {exec cd c:\com\uldl} {exec c:\com\commo\CLINK R}  CLINK.EXE
                     {exec cd c:\com\commo %a} {}
 ZMAX          {mdl} {exec ZMAX -k -b 2400 -s 2048 -p %p -u %d -r %a}{} ZMAX.EXE


============================================================================
 Macros used for UPLOADING (sending)
 ───────────────────────────────────────────────────────────────────────────
 ZMODEM batch   {zup} {exec DSZ port %p sz -m %u\%i %a } {}  DSZ.COM
 YMODEM batch   {yup} {exec DSZ port %p sb -k %u\%i %a %w} {}DSZ.COM
 YMODEM CRC     {---} {exec DSZ port %p sx -k %u\%i %a %w} {}DSZ.COM
 XMODEM CRC     {---} {exec DSZ port %p sx %u\%i %a %w} {}   DSZ.COM
 PUMA           {pup} {exec PUMA P%p S%s s %u\%i %a} {}      PUMA.EXE
 SEALINK        {sup} {exec CLINK T %u\%i %a} {}             CLINK.EXE
 ZMAX           {mup} {exec ZMAX -b 2400 -s 2048 -p %p -f %u\%i -f }{} ZMAX.EXE
 Commo PNS u/l  {pns} {exec DSZ port %p sz @c:\com\uldl\file.lst %a}{}

█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 2:  FUNCTION KEY ASSIGNMENTS █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
===============================================================================
 Macros for Shifted Function Keys
===============================================================================
 {sf1} {goto rep} {}         All rep upload.
 {sf2} {goto mmm} {}         Start mail macro.
 {sf3} {goto mmr} {}         Start reps only.
 {sf4} {goto amr} {}         All mail macro.
 {sf5} {call mm2} {return}   Deletes all "flag files".
 {sf6} {exen echo ## %%_date %%_time ## >> %c} {return}    Time mark
 {sf7} {exed c:\utility\misc\list.com  commo.use /e} {} List commo.use file.
 {sf8}  {exed c:\utility\misc\list.com %c /E} {}   (Scrollback)
 {sf9}  {exec d %u\*.rep %w} {}               Dir of reply packets
 {sf0}  {exec d %d\*.qw* %w} {}               Dir of mail packets

============================================================================
 Macros for Function Keys
 ───────────────────────────────────────────────────────────────────────────
 {nf1}{send FIRST_NAME|~~LAST_NAME|~~~~YOUR_PASSWORD|} {return}       Simple logon
 {nf2}{goto wcl}{}                                    Wildcat Logon
 {nf3}{exed c:\utility\shez\shez.exe c:\com\uldl} {}    Calls SHEZ in ULDL dir
 {nf4}                                                U/L Rep
        {send u|}{pause 2}
        {exec DSZ port %p sz -m c:\com\uldl\%c.rep %a}
        {exen renrep %c}
 {return}
 {nf5} {exen c:\com\commo\renqwk %c} {return}       Renames .QWK file
 {nf6} {goto wcm}                               Call Wild Cat Mail d/l
 {nf7} {send AT L1|} {return}  Quiet modem
 {nf8} {send AT L3|} {return}  Loud modem
 {nf9} {exed c:\utility\misc\list.com c:\com\commo\commo.doc} {return}
 {nf0} {exed c:\utility\misc\list.com c:\com\uldl} {return}



 ===========================================================================
 Macros for Alt Function Keys
 ───────────────────────────────────────────────────────────────────────────

 {af1} {goto ydl} {}           Ymodem batch download
 {af2} {goto sdl} {}           Sealink download
 {af3} {goto mdl} {}           Zmax download
 {af4} {goto zup} {}           Zmodem upload
 {af5} {goto yup} {}           Ymodem batch upload
 {af6} {goto pup} {}           Puma upload
 {af7} {goto sup} {}           Sealink upload
 {af8} {goto mup} {}           Zmax upload
 {af9} {goto pns} {}           PNS Zmodem upload
 {af0} {goto olq} {}           Online quoting macro


===========================================================================
Macros for Control Function Keys
===========================================================================
 {cf1} {goto fdn} {}           Automatic file download mark and dial
 {cf2} {goto dfd} {}           Automatic file download dial marked
 {cf3} {exec c:\com\commo\bimenu} {}
 {cf4} {}
 {cf5} {goto de1} {}
 {cf6} {goto de2} {}
 {cf7} {goto de3} {}
 {cf8} {goto de4} {}
 {cf9} {goto de5} {}
 {cf0} {exed c:\utility\misc\list.com c:\com\uldl\get} {}


 ───────────────────────────────────────────────────────────────────────────
 FUNCTION KEY ASSIGNMENTS - QUICK REFERENCE
 I do a screen print of the portion below and tape it to my keyboard.
 ───────────────────────────────────────────────────────────────────────────
       Misc              Mail             Protocols        Files&Delays
 nf1 Log on        sf1 reps mk&dial   af1 Ymod/b d/l    cf1 files mk&dial
 nf2 WC log on     sf2 mail dial      af2 Sea d/l       cf2 files dial
 nf3 SHEZ in ULDL  sf3 reps dial      af3 Zamx d/l      cf3 BIMENU
 nf4 u/l rep       sf4 mail mk&dial   af4 Zmod u/l      cf4
 nf5 renqwk        sf5 DEL flags      af5 Ymod/b u/l    cf5 delay m u&d
 nf6 WC m d/l      sf6 time mark      af6 Puma u/l      cf6 delay m u&d+fd
 nf7 quiet         sf7 LIST commo.use af7 Sea u/l       cf7 delay m u+fd
 nf8 loud          sf8 LIST %c        af8 Zmax u/l      cf8 delay fd
 nf9 LIST {C}.doc  sf9 DIR *.rep      af9 PNS Zmod u/l  cf9 delay mu
 nf0 LIST uldl dir sf0 DIR *.qwk      af0 Online Quote  cf0 LIST get dir




 █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
 █ SECTION 3:  DELAY ROUTINES  █
 █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
============================================================================
Delay routine for Automatic Mail Upload / Download
============================================================================
{de1}
    {hold 0:00}
    {call amr}
{return}

============================================================================
Delay routine for Automatic Mail Upload / Download followed by
Automatic File Download
============================================================================
{de2}
    {hold 10:40}
{---}{call amr}
    {call fdn}
{return}

============================================================================
Delay routine for Automatic Mail Upload  followed by
Automatic File Download
============================================================================
{de3}
    {hold 21:05}
{---}{call rep}
    {call fdn}
{return}


============================================================================
Delay routine for Automatic File Download
============================================================================
{de4}
    {hold 1:00}
{---}{call fdn}
{return}

============================================================================
Delay routine for Automatic Mail Upload
============================================================================
{de5}
    {hold 23:30}
    {call rep}
{return}

 ============================================================================
 UNMark sequence.  After a successful logon other references are
 unmarked from the dialing directory.
 ============================================================================
 {umk}
        {ifexist c:\com\commo\cyber.cur,,um1}
        {unmark CYBER1,CYBER2}
    {um1}
        {ifexist c:\com\commo\doors.cur,,um2}
        {unmark DOORS1,DOORS2}
    {um2}
        {ifexist c:\com\commo\ultimate.cur,,um3}
        {unmark ULTIMATE1,ULTIMATE2}
    {um3}
 {return}


█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 4:  LOGON                 █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█

============================================================================

============================================================================
Linked macros.  The following macros are linked to the various BBS's and
are run on connection.  They open a capture file with same name as the .QWK
and .REP packets.  This will allow the use of the %c variable later and
is essential for the proper functioning of these macros.  The macro name
must be placed in the {COMMO} dialing directory, (COMMO.FON file.)
============================================================================
 {tav}{capture n}{capture y,b-beard}   {call wcl} {return}
 {com}{capture n}{capture y,comax}     {call wcl} {return}
 {cyb}{capture n}{capture y,cyber}     {call wcl} {return}
 {for}{capture n}{capture y,forum!}    {call wcl} {return}
 {lif}{capture n}{capture y,lifeline}  {call wcl} {return}
 {dat}{capture n}{capture y,dataconn}  {call wcl} {return}

 {pro}{capture n} {lookfor First Name?} {goto nf1}

 {doo}{capture n} {capture y,doors}     {call pcb} {return}
 {ult}{capture n} {capture y,ultimate}  {call pcb} {return}


============================================================================
Set CURent BBS name.  This macro sets the .CUR file to the current board
name.  This file lets you test for the board name with an ifexist
function.  See the UMK macro below.
============================================================================
 {cur}
         {exen del c:\com\commo\*.cur}
         {exen echo > c:\com\commo\%c.cur}
 {return}


============================================================================
Wildcat! logon.
============================================================================
 {wcl}
         {call cur}
         {call umk}
         {call sf6}
         {asci ,:}
         {setlook 60,tou,4,|  }
         {lookfor First Name?}
         {send FIRST_NAME LAST_NAME|~~YOUR_PASSWORD|}
         {setlook 300,tou,4,|  }
 {goto beg}

 {beg}                                           *** BEGin
         {golook bdy,BIRTH DATE}
         {golook phn,Phone Number}
         {golook _no,Y/n}
         {golook wc2,MENU: [M}
         {golook wc2,MENU [M}
         {lookfor  ESSAGE MENU}
         {wc2}
         {ifexist c:\com\commo\fileflag,wcf,}
         {ifexist c:\com\commo\mailflag,wcm,wc3}
         {wc3}
 {return}

 ======= subs for nf2 above
 {bdy}{send 03-06-42|} {send ~~~~y|} {goto beg}        *** send BirthDaY

 {phn}{send 803-243-2581|} {send ~~~~y|} {goto beg}    *** send PHoNe number

 {_no}{send n|}{goto beg}                              *** send no



 ===========================================================================
 PCBoard logon.
 ───────────────────────────────────────────────────────────────────────────
 {pcb}
        {call cur}
        {call umk}
        {asci ,:}{call sf6}
        {setlook 60,tou,3,n|}
        {lookfor first name?} {send FIRST_NAME LAST_NAME|~YOUR_PASSWORD|}
        {golook pc8,Main Menu Command,}
        {lookfor Main Board Command}
        {ifexist c:\com\commo\fileflag,pcf,}
        {ifexist c:\com\commo\mailflag,pcm,pc3}
 {return}
 ====
 {pc3}{return}  removed (send door 1|)

 ====
 {tou}
 {execute echo *********************TIME OUT ON >> c:\com\commo\commo.use}{goto hng}
 ====
 {hng}{BEEP}{PAUSE 15}{send g|}{pause 15}{hangup y}
      {capture n}{clear}{call sf6}{return}


█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 5:  AUTOMATIC MAIL UPLOAD AND DOWNLOAD  █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
============================================================================
Mark all boards for netmail download and run netmail download.
============================================================================
**** Auto Mail run.
 {amr}
        {unmark}
        {mark CYBER1}
        {mark CYBER2}
        {mark DOORS1}
        {mark DOORS2}
        {mark FORUM!}
        {mark TAVERN}
        {mark COMAX}
        {mark LIFELINE}
 {goto mmm}


============================================================================
Dial all marked BBSs and upload .REPs if present and download mail.
============================================================================
 ****My Mail Macro
 {mmm}             Upload & Download
       {call mm2}
       {send AT S0=0 S7=90 E0 Q0 V1 X4 &C1 &d2 |}
       {exen echo mailflag > c:\com\commo\mailflag}
       {auto y}
       {push}
       {dial 100,}
       {auto n}
       {call mm2}
 {}


 ───────────────────────────────────────────────────────────────────────────
 Wildcat! Mail download and/or upload.  (Control is passed to this macro
 after logon if exists c:\com\commo\mailflag.
 ───────────────────────────────────────────────────────────────────────────
 {wcm}   {send m|}
         {lookfor MESSAGE MENU} {send n|}
         {setlook 60,tou,4,?}
         {lookfor TOMCAT MENU}
       {rq5}
         {exen del c:\com\commo\repflag}
         {exen copy c:\com\uldl\%c.rep c:\com\commo\repflag}
         {ifexist c:\com\commo\repflag,cup,rqm}

       {cup}                                          Call UP/load rep
          {call nf4}
          {lookfor TOMCAT MENU}
          {exen renrep %c}
          {goto rqm}

 ───────────────────────────────────────────────────────────────────────────
 Request Tomcat mail from Wildcat! BBS.
 ───────────────────────────────────────────────────────────────────────────
 {rqm}
          {ifexist c:\com\commo\repsonly,lof,}
          {setlook 600,tou,0,}
        {rq7}
          {send d|}
          {golook lof,Nothing}
          {golook rq6,limit exceeded!}
          {lookfor transfer?} {send g|}
          {call dlm}
          {lookfor NO CARRIER}
          {capture n}
          {clear}
          {call sf6}
 {return}


 {rq6}
          {lookfor transfer?} {send y|}  If the message limit is exceeded
          {call dlm}                     then go back and ask for more.
          {goto rq7}


 ───────────────────────────────────────────────────────────────────────────
 *** Down Load Mail (Download .QWK, rename and return.)
 ───────────────────────────────────────────────────────────────────────────
 {dlm}
       {lookfor .qwk now}
       {pause 4}
       {exec DSZ port %p rz -m %d}
       {execute renqwk %c}
 {return}


 {lof}{pause 10}{send g|}{pause 20}{hang y}  *** LogOFf                                                                   ^
 {capture n}{clear}{call sf6}{return}



 ───────────────────────────────────────────────────────────────────────────
 ***PCMail for pcboard
 ───────────────────────────────────────────────────────────────────────────
 {pcm}
        {send door qm3|}
        {setlook 600,tou,10,|}
        {lookfor <COMMAND>}
        {ifexist c:\com\uldl\doors.rep,pc1,pc2}
     {pc2}
        {lookfor <COMMAND>}
        {send d|}
        {golook lof,<NO TRANSFER>}
        {lookfor N)?}{send y|}
        {lookfor <DOWNLOAD>}
     {pc4}
        {exec DSZ port %p rz -m %d}
        {execute renqwk %c}
        {golook pc4,<DOWNLOAD>}
        {golook pc6,<DL ERROR>}
        {golook pc7,NO CARRIER}
        {lookfor <COMMAND>}
        {send g|}
        {lookfor NO CARRIER}
     {pc7}
        {capture n}
        {clear}
        {call sf6}
 {return}

====
 {pc1}
        {call nf4}
        {lookfor <COMMAND>}
        {exen renrep %c}
        {ifexist c:\com\commo\repsonly,lof,pc2}

 ====
 {pc6}
        {execute echo ***************************DL ERROR >> c:\com\commo\commo.use}
        {goto hng}



█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 6: UPLOAD .REP PACKETS ONLY   █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
============================================================================
Marks all boards that have .REP packets then dials and uploads them.
============================================================================
 {rep}
        {unmark}
        {ifexist c:\com\uldl\cyber.rep,,re2}
        {mark CYBER1,CYBER2}
     {re2}
        {ifexist c:\com\uldl\forum!.rep,,re3}
        {mark FORUM!}
     {re3}
        {ifexist c:\com\uldl\b-beard.rep,,re4}
        {mark TAVERN}
     {re4}
        {ifexist c:\com\uldl\comax.rep,,re5}
        {mark COMAX}
     {re5}
        {ifexist c:\com\uldl\doors.rep,,re6}
        {mark DOORS1,DOORS2}
     {re6}
        NOW BLANK ADD NEW BOARD HERE
     {re7}
        {ifexist c:\com\uldl\lifeline.rep,,re8}
        {mark LIFELINE}
     {re8}
 {goto mmr}


 ===========================================================================
 Dials marked BBS's for .REP upload.
 ===========================================================================
 {mmr}
        {call mm2}
        {send AT S0=0 S7=90 E0 Q0 V1 X4 &C1 &d2 |}
        {exen echo mailflag > c:\com\commo\mailflag}
        {exen echo repsonly > c:\com\commo\repsonly}
        {auto y}
        {push}
        {dial 100,}
        {auto n}
        {call mm2}
 {}

 {mm2}
        {exen del c:\com\commo\mailflag}
        {exen del c:\com\commo\fileflag}
        {exen del c:\com\commo\repsonly}
 {return}


█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 7:  AUTOMATIC FILE DOWNLOAD.  █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█

 ============================================================================
 Mark sequence for automatic file download.
 ============================================================================
 {fdn}
        {unmark}
        {ifexist c:\com\uldl\cyber.get,,fd1}
        {mark CYBER1,CYBER2}
    {fd1}
        {ifexist c:\com\uldl\forum!.get,,fd2}
        {mark FORUM!}
    {fd2}
        {ifexist c:\com\uldl\b-beard.get,,fd3}
        {mark TAVERN}
    {fd3}
        {ifexist c:\com\uldl\comax.get,,fd4}
        {mark COMAX}
    {fd4}
        {ifexist c:\com\uldl\doors.get,,fd5}
        {mark DOORS1,DOORS2}
    {fd5}
        {ifexist c:\com\uldl\dataconn.get,,fd6}
        {mark DATA}
    {fd6}
        {ifexist c:\com\uldl\lifeline.get,,fd7}
        {mark LIFELINE}
    {fd7}
        {ifexist c:\com\uldl\ultimate.get,,fd8}
        {mark ULTIMATE1,ULTIMATE2}
    {fd8}

 {goto dfd}


 ========================================================================
 Autofile download file dialing macro
 ========================================================================
 {dfd}
        {call mm2}
        {send AT S0=0 S7=90 E0 Q0 V1 X4 &C1 &d2 |}
        {exen echo fileflag > c:\com\commo\fileflag}
        {push}
        {dial 100,mm2}
 {}



 ===========================================================================
 Automatic file download from a list for a Wildcat! BBS.
 ===========================================================================
 {wcf}
     {exen del c:\com\uldl\file.get}
     {exen copy c:\com\uldl\%c.get c:\com\uldl\file.get}
     {exen move c:\com\uldl\%c.get c:\com\uldl\get}
     {ifexist c:\com\uldl\file.get,,wc5}
     {send F}
     {setlook 60,tou,6,y|}
     {lookfor ext Search}
     {send D}
     {lookfor Select:}
     {send z}
     {lookfor Enter File}
     {asci c:\com\uldl\file.get}
     {pause 10}
     {send |}
     {golook lof,ext Search}
     {lookfor LogOff}
     {send y|}
     {lookfor Ready}
     {execute DSZ port %p rz -m %d}
     {pause 30}
     {capture n}
     {clear}
     {call sf6}
     {exen del c:\com\uldl\file.get}
     {wc5}
 {return}


 ========================================================================
 Automatic file download from a list for a PCboard BBS.
 ========================================================================
  {pcf}
      {exen del c:\com\uldl\file.get}
      {exen copy c:\com\uldl\%c.get c:\com\uldl\file.get}
      {exen move c:\com\uldl\%c.get c:\com\uldl\get}
      {ifexist c:\com\uldl\file.get,,pc5}
      {setlook 60,tou,0,}
{...} {send D|}
      {lookfor (Enter)=none?}
      {asci c:\com\uldl\file.get}
      {pause 10}
      {send |}
      {lookfor (Enter)=continue?}
      {send g|}
      {lookfor Start your download ...}
      {execute DSZ port %p rz -m %d}
      {pause 30}
      {capture n}
      {clear}
      {call sf6}
      {exen del c:\com\uldl\file.get}
      {pc5}
  {return}



█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 8:  AUTOMATIC FILE UPLOAD █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
=========================================================================
 COMING SOON!   Automatic batch uploads.
=========================================================================




█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
█ SECTION 9: Full Screen Editor Key Support █
█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
=========================================================================
 The following keys are used by full screen editors such as Visual
 Editor in ProDoor, PCBoard's full screen editor, ANSIED in RBBS and
 others.  They may be changed to suit your own needs (all keys do not
 work with all editors).  See Appendix D in COMMO.DOC for details on
 character representation.

 Note that the left arrow function (^S) is also the XOFF character.
 This may cause a problem on some systems.  If pressing the left arrow
 seems to hang the remote, press ^Q and change the "lfa" macro to:

        {send ^[[D} {}  or  {send ^@K} {}


 ───────────────────────────────────────────────────────────────────────────
 Macro                  Key             Function
 ───────────────────────────────────────────────────────────────────────────
 {hom} {send ^W} {}     Home            Start of line
 {end} {send ^P} {}     End             End of line
 {pgu} {send ^R} {}     PgUp            Page up
 {pgd} {send ^C} {}     PgDn            Page down

 {upa} {send ^E} {}     Up Arrow        Cursor up
 {dna} {send ^X} {}     Down Arrow      Cursor down
 {lfa} {send ^S} {}     Left Arrow      Cursor left
 {rta} {send ^D} {}     Right Arrow     Cursor right

 {cla} {send ^A} {}     ^Left Arrow     Word left
 {cra} {send ^F} {}     ^Right Arrow    Word right

 {ins} {send ^V} {}     Insert          Toggle insert mode
 {del} {send ^G} {}     Delete          Delete character
 {cnd} {send ^K} {}     ^End            Delete to end of line


 █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█
 █ SECTION 10: Online Quoting Macro █
 █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█

 {olq}
      {screen n,c:\com\uldl\temp}
      {scroll}
      {exen q c:\com\uldl\temp}
      {asci c:\com\uldl\temp}
      {exen del c:\com\uldl\temp}
      {screen n,c:\com\commo.scn}{}