home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / HUBRUN10.ZIP / HUBRUN.MAC < prev    next >
Text File  |  1993-06-05  |  11KB  |  244 lines
  1. {:MAIN1}    {SETE-p0 quit}
  2.             {IFEX %_hom%hubrun.ttn,,cerror}
  3.             ─────────────────>   DATA READ AREA   <─────────────────
  4.             {ROPE %_hom%hubrun.ttn}
  5.             {READ maildir}{READ rxdir}{READ capdir}{READ hslprg}{READ tries}{RCLO}
  6.             ─────────────────>     SET PARMS      <─────────────────
  7.             {SOUN n}{LIGH y}{PARM ,,,T}
  8.             {SETV ss_h,~h}{SETV ss_m,~m}{SETV ss_s,~s}{SETV ss_|,~|}
  9.             {SETV ss_y,~y}{SETV ss_a,~a}{SETV ss_n,~n}{SETV d_count,1}
  10.             {SETV d_rem,%tries}{DECR d_rem}{INCR %tries}
  11.             ─────────────────>      DIALING       <─────────────────
  12.             {WOPE-A %capdir%hubrun.log}
  13.             {MARK 1.,2.,3.,4.,5.,6.,7.,8.,9.}{CLEA}
  14.             {CLEA}{DIAL-C 1,noconn,exit}
  15. {:EXIT}     {WRIT %_24h%:%_min%:%_sec -- MAILRUN COMPLETE..EXIT TO DOS}
  16.             {WRIT ----------------------------------------------------------------------------}
  17.             {WCLO}
  18. {:QUIT}     {EXIT}
  19.             ─────────────────>    LINKED MACRO    <──────────────────
  20. {:TT0}      {CLEA}
  21.             {ROPE %_hom%%bbsid.ttn}
  22.             {READ fname}{READ lname}{READ meth}{READ mway}{READ capnum}{RCLO}
  23.             {IFEX %capdir%%bbsid.cap,,st1}
  24.             {EXEC-N del %capdir%%bbsid.cap}
  25. {:ST1}      {CAPM screen}{CALL setcap}
  26.             {CALO st1,sd2e,Press <Esc> twice}
  27.             {CALO st1,sd1e,Escape Key}
  28.             {SSLO ss_s,<S>top}
  29.             {SSLO ss_|,color graphics (y/N)}
  30.             {SSLO ss_|,key to continue}
  31.             {LOOK FIRST and LAST name:}
  32.             {SETV xfercnt,1}
  33.             {IFEX %maildir%%bbsid.re1,,st1x}
  34.             {EXEC del %maildir%%bbsid.re1}
  35.    {:ST1X}  {IFEX %maildir%%bbsid.qwk,,tt1}
  36.             {SETV qcntr,0}
  37.    {:TLOOP}
  38.             {INCR qcntr}
  39.             {COMP qcntr,999}{IFCO tloop1}
  40.             {IFEX %maildir%%bbsid.%qcntr,tloop}
  41.             {EXEC ren %maildir%%bbsid.qwk %bbsid.%qcntr}
  42.    {:TLOOP1}
  43.             {WRIT %_24h%:%_min%:%_sec -- old %bbsid.qwk has been renamed}
  44.             {WRIT          ** last .qwk renamed to %bbsid.%qcntr in %maildir}
  45.             {WRIT          ** be sure to delete old .qwk files when no longer needed}
  46.             {SETV qcntr}
  47. {:TT1}      {WRIT %_24h%:%_min%:%_sec -- logging on to bbs as %fname %lname}
  48.             {COMP lname}{IFCO ,ST1a}
  49.             {SEND fname;%_pas}{GOTO st1b}
  50. {:ST1A}     {SEND %fname %lname%;%_pas|}
  51. {:ST1B}     {COMP mway,bypass}{IFCO mail-b}
  52.             {GOLO gdc,^jNO CARRIER^m}
  53.             {SSLO ss_s,<S>top}
  54.             {SSLO ss_|,key to continue}
  55.             {SSLO ss_|,For Main Menu}
  56.             {GOLO mail,Enter Selection}
  57.             {LOOK ]?}
  58. {:MAIL}     {CALL %meth%}
  59. {:MAIL-B}   {SETL 30,gto,,}
  60.             {SSLO ss_s,<S>top}
  61.             {SSLO ss_|,key to continue}
  62. {:MAIL-C}   {LOOK HS*^b}{CALL hsl-m}
  63.             {CALO mail-c,badxfer,Try Again (Y/n)?}
  64.             {LOOK ^jNO CARRIER^m}
  65.             {WRIT %_24h%:%_min%:%_sec -- logoff..received NO CARRIER}
  66.             {WRIT %_24h%:%_min%:%_sec -- deleting %bbsid.rep if one exists}
  67.             {IFEX %maildir%%bbsid.rep,,gby}
  68.             {EXEC ren %maildir%%bbsid.rep %bbsid.re1}
  69. {:GBY}      {SUBS temp,1,7,%bbsid}
  70.             {CALL capupdt}
  71.             {ROPE %_hom%hubrun.fon}{SETV count,0}
  72. {:GBL2}     {WRIT %_24h%:%_min%:%_sec -- unmarking all %bbsid nodes in dialing directory}
  73. {:GBL2A}    {INCR count}
  74.             {COMP count,10}{IFCO gbl_x}
  75.             {READ line%count}
  76.             {COMP line%count}{IFCO gbl_x}
  77.             {INST line%count,%bbsid}
  78.             {SETV line%count}{IFCO ,gbl2a}
  79.             {UNMA %count.}{GOTO gbl2a}
  80. {:GBL_X}    {RCLO}
  81.             {SETV fname}{SETV lname}{SETV mway}{SETV meth}{SETV capnum}
  82.             {SETV temp}{SETV count}
  83. {:RETURN}   {RETU}
  84. {:BADXFER}
  85.             {WRIT %_24h%:%_min%:%_sec% -- TRANFER FAILED..ATTEMPT #%xfercnt}
  86.             {COMP xfercnt,3}
  87.             {IFCO bx-1}
  88.             {SEND |}{INCR xfercnt}{GOTO mail-c}
  89.     {:BX-1}
  90.             {WRIT %_24h:%_min%:%_sec% -- no additional attempts will be made..logging off}
  91.             {WRIT %_24h:%_min%:%_sec% -- your outbound .REP has been renamed to %bbsid.re1}
  92.             {WRIT %_24h:%_min%:%_sec% -- the renamed file is in %maildir}
  93.             {SEND n|}{GOTO mail-c}
  94.             ────────────────>     .CAP UPDATE     <─────────────────
  95. {:CAPUPDT}  {HANG y}{CAPT n}{CLEA}
  96.             {WRIT %_24h%:%_min%:%_sec -- modem on-hook}
  97.             {COMP capnum,1}{IFCO return}
  98.             {SETV capcnt,%capnum}{INCR %capnum}
  99.             {IFEX %capdir%%temp%%capcnt.cap,deloc}
  100. {:CAPLOOP}  {DECR capcnt}{DECR capnum}
  101.             {COMP capcnt,0}{IFCO loopexit}
  102.             {IFEX %capdir%%temp%%capcnt.cap,,caploop}
  103.             {EXEC-N ren %capdir%%temp%%capcnt.cap %temp%%capnum.cap}
  104.             {GOTO caploop}
  105. {:LOOPEXIT} {EXEC ren %capdir%%bbsid.cap %temp%1.cap}
  106.             {WRIT %_24h%:%_min%:%_sec -- completed renaming capture files}{RETU}
  107. ─────────────────────────   Protocol Command Strings  ─────────────────────────
  108. {:HSL-M}    {PAUS 1}
  109.             {WRIT %_24h%:%_min%:%_sec -- begin mail transfer with hslink}
  110.             {EXEC-d %hslprg -P%_por -U%rxdir %maildir%%bbsid%.rep}
  111.             {WRIT %_24h%:%_min%:%_sec -- finish mail transfer with hslink}{RETU}
  112. ──────────────────────────   General Purpose Macros  ──────────────────────────
  113. {:DELOC}    {EXEC del %capdir%%temp%%capcnt%.cap}{GOTO caploop}
  114. {:MMENU}    {SEND ~%mway}{RETU}
  115. {:MESGM}    {SEND ~m}
  116.             {SETL 45,gto,,}
  117.             {SSLO ss_s,<S>top}
  118.             {SSLO ss_|,key to continue}
  119.             {GOLO mesg1,Enter Selection}
  120.             {LOOK ]?}
  121. {:MESG1}    {SEND ~%mway}{RETU}
  122. {:DOORM}    {SEND ~d}
  123.             {SETL 45,gto,,}
  124.             {SSLO ss_s,<S>top}
  125.             {SSLO ss_|,key to continue}
  126.             {LOOK Door Number}
  127.             {SEND ~%mway|}{RETU}
  128. {:CERROR}   {CLEA}
  129.             {WRIT}
  130.             {WRIT LOG TYPE:  Error Report}
  131.             {WRIT     DATE:  %_dat}
  132.             {WRIT    BBSID:  %bbsid}
  133.             {WRIT}
  134.             {WRIT TIME:}
  135.             {WRIT ─────}
  136.             {WRIT}
  137.             {WRIT %_24h%:%_min%:%_sec -- unable to run script..%_hom%hubrun.ttn file not found}
  138.             {WRIT %_24h%:%_min%:%_sec -- reinstall the script with HINSTALL}
  139.             {WRIT %_24h%:%_min%:%_sec -- EXIT TO DOS}
  140.             {WRIT ----------------------------------------------------------------------------}
  141.             {WCLO}
  142.             {EXIT}
  143. {:SETCAP}   {SETL 60,gto,,}
  144.             {SETV d_count,1}{SETV d_rem,%tries}{DECR d_rem}
  145.             {WRIT}
  146.             {WRIT LOG TYPE:  New Session}
  147.             {WRIT     DATE:  %_dat}
  148.             {WRIT    BBSID:  %bbsid}
  149.             {WRIT}
  150.             {WRIT TIME:}
  151.             {WRIT ─────}
  152.             {WRIT}
  153.             {WRIT %_24h%:%_min%:%_sec -- CONNECT %_mod}
  154.             {CAPT y,%capdir%%bbsid.cap}{RETU}
  155. {:NOCONN}   {INCR d_count}{DECR d_rem}
  156.             {COMP %_dtc,3} {IFCO nc2}
  157.             {COMP %_dtc,2} {IFCO ,nocon}
  158.             {COMP %_dialrt,BUSY}{IFCO nocon}
  159.             {COMP %_dialrt,OK}{IFCO ,nc2a}
  160. {:NOCON}    {COMP d_count,%tries}{IFCO nocon_x}
  161.             {DISP 1,52,0a,╓─────────────────────────╖
  162.             {DISP 2,52,0a,║ Dial Attempt #:         ║
  163.             {DISP 3,52,0a,║ Attempts Remaining:     ║
  164.             {DISP 4,52,0a,╙─────────────────────────╜
  165.             {DISP 2,70,0c,%d_count}
  166.             {DISP 3,74,0c,%d_rem}{RETU}
  167. {:NOCON_X}  {ROPE %_hom%hubrun.fon}{SETV count,0}
  168. {:NC_X1}    {INCR count}
  169.             {COMP count,10}{IFCO unma-l}
  170.             {READ line%count}
  171.             {COMP line%count}{IFCO unma-l}
  172.             {INST line%count,%bbsid}
  173.             {SETV line%count}
  174.             {IFCO ,unma-L}
  175.             {UNMA %count.}{GOTO nc_x1}
  176. {:UNMA-L}   {RCLO}
  177.             {WRIT}
  178.             {WRIT LOG TYPE:  Error Report}
  179.             {WRIT     DATE:  %_dat}
  180.             {WRIT    BBSID:  %bbsid}
  181.             {WRIT}
  182.             {WRIT TIME:}
  183.             {WRIT ─────}
  184.             {WRIT}
  185.             {WRIT %_24h%:%_min%:%_sec -- Unable to connect with BBS..BUSY during entire event}
  186.             {RETU}
  187. {:NC2}      {COMP %%bbsid,} {IFCO ,nc3}
  188.             {SETV %%bbsid,0}
  189. {:NC3}      {INCR %%bbsid}
  190.             {COMP %%bbsid,2} {IFCO ,return}
  191.             {UNMA-L}
  192.             {WRIT}
  193.             {WRIT LOG TYPE:  Error Report}
  194.             {WRIT     DATE:  %_dat}
  195.             {WRIT    BBSID:  %bbsid}
  196.             {WRIT}
  197.             {WRIT TIME:}
  198.             {WRIT ─────}
  199.             {WRIT}
  200.             {WRIT %_24h%:%_min%:%_sec -- Could not connect..BBS appears to be "down" or "hung"}
  201.             {SETV %%bbsid,}{RETU}
  202. {:NC2A}     {COMP %%bbsid,} {IFCO ,nc3a}
  203.             {SETV %%bbsid,0}
  204. {:NC3a}     {INCR %%bbsid}
  205.             {COMP %%bbsid,1}{IFCO-G nc3b}
  206.             {WRIT}
  207.             {WRIT LOG TYPE:  Error Report}
  208.             {WRIT     DATE:  %_dat}
  209.             {WRIT    BBSID:  %bbsid}
  210.             {WRIT}
  211.             {WRIT TIME:}
  212.             {WRIT ─────}
  213.             {WRIT}
  214.             {WRIT %_24h%:%_min%:%_sec -- Could not connect with this BBS..}
  215.             {WRIT              I received a "NO CARRIER" failure response from the}
  216.             {WRIT              modem.  Compare the value of "S7" in your modem}
  217.             {WRIT              setting to the value of ^(dct=?^) in your COMMO.SET}
  218.             {WRIT              Be sure the "S7" value is greater than the "dct"}
  219.             {WRIT              value.  Otherwise, the modem will time out before}
  220.             {WRIT              COMMO's dialer.}
  221. {:NC3b}     {COMP %%bbsid,5} {IFCO ,return}
  222.             {UNMA-L}
  223.             {WRIT}
  224.             {WRIT LOG TYPE:  Error Report}
  225.             {WRIT     DATE:  %_dat}
  226.             {WRIT    BBSID:  %bbsid}
  227.             {WRIT}
  228.             {WRIT TIME:}
  229.             {WRIT ─────}
  230.             {WRIT}
  231.             {WRIT %_24h%:%_min%:%_sec -- Could not connect with this BBS..}
  232.             {WRIT              I received 5 consecutive "NO CARRIER" responses}
  233.             {WRIT              from the modem.  The board with id of "%bbsid%"}
  234.             {WRIT              is probably "down" or "hung"..however, there may}
  235.             {WRIT              be some other problem..}
  236.             {SETV %%bbsid,}{RETU}
  237. {:GTO}      {WRIT %_24h%:%_min%:%_sec -- script timed out..dropping carrier}
  238.             {WRIT %_24h%:%_min%:%_sec -- review %bbsid.cap to see where/why script hung}
  239.             {GOTO gby}
  240. {:GDC}      {WRIT %_24h%:%_min%:%_sec -- LOST CARRIER!}
  241.             {GOTO gby}
  242. {:SD1E}     {SEND ~^[}{RETU}
  243. {:SD2E}     {SEND ~^[~^[}{RETU}
  244.