**START-UP MACRO**             /* control passes here upon {COMMO}(tm) start-up */
 {SRT}  {call cap} {call dil} {}/* open capture file and start the dialing */

 **OPENS CAPTURE FILE AUTOCOM.CAP**
 {CAP}  {capture y,autocom.cap} {return}

 **MAIN ROUTINE, CALLS OTHERS** /* this is the connect macro from commo.fon */
 {MAN}  {call log} {call dwn} {call adi} {goto ngn} /*logon,download,additional macro, hangup */

 **GENERIC LOG ONTO BBS UP TO MAIN BOARD**
 {LOG}  {setlook 120,hng,15,n|}
        {golook tn1,continue}
        {golook nol,bort?}
        {golook nol,no?}
        {golook nol,yes?}
        {golook nol,more?}
        {golook nol,[y]}
        {golook nol,[n]}
        {lookfor first name}
        {call nam}
        {password} {send |}
 {CON}  {golook tn2,continue}
        {golook nop,bort?}
        {golook nop,no?}
        {golook nop,yes?}
        {golook nop,more?}
        {golook nop,[y]}
        {golook nop,[n]}
        {lookfor command?}
        {return}

 {NOL}  {send ~n|} {goto log}         /* send no if no?, or yes? is seen */
 {NOP}  {send ~n|} {goto con}         /* send no if no?, or yes? is seen */
 {TN1}  {send ~|}  {goto log}         /* send enter if continue is seen  */
 {TN2}  {send ~|}  {goto con}         /* send enter if continue is seen  */

 **NORMAL HANG UP**
 {NGN}  {ifexist autoerr,hng,}                /* if error flag, abnormal exit */
        {send g|~y|~n|} {pause 15} {hangup y}
        {exit 0}

 **ABNORMAL HANGUP**
 {HNG}  {send g|~y|~n|} {pause 15} {hangup y}
        {exit 1}

 **2ND HALF OF FILE DOWNLOAD**
 {DN2}  {setlook 120,hng,3,|}
        {golook bad,not found}                /* flag error if file not found */
        {golook bad,sorry}
        {lookfor ^XB00}                       /* wait for zmodem prompt */
        {CALL .Z.}                            /* call user's dsz macro */
 {CNT}  {setlook 120,hng,10,n|}
        {lookfor command}
        {return}

 {BSY}  {local y} {send BBS is busy, waiting 15 minutes to call again...|^j^j}
        {local n}
        {pause 900}  /*wait 15 min*/
        {call dll} {goto man}

 {bad}  {exec md autoerr}                   /* flag error with autoerr dir */
        {send |}
        {goto cnt}                          /* continue with remainder */