home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / modem / cs_mac08.zip / TABLE.MAC < prev    next >
Text File  |  1993-10-24  |  16KB  |  425 lines

  1.  
  2.  ┌────────────────────────────────┐
  3.  │  Chuck Seyboldt's COMMO Macro  │   CS-MAC08:TABLE.MAC
  4.  └────────────────────────────────┘
  5.   *
  6.   *  Contents:       MAILware prompt table
  7.   *                  BBSware prompt table
  8.   *
  9.   *  Called from:    COMMO.MAC   :qwk
  10.   *
  11.   *  Control passes to:  LOGON.MAC,glr
  12.   *
  13.   *  The file you are reading  *DOES NOT*  require editing.
  14.   *
  15. ***  COMMO.FON does require editing.
  16. ***  BBSID particulars must be added to COMMO.FON.
  17.   *
  18.   *  This TABLE.MAC file provides a facility to combine different BBSware
  19.   *  and MAILware prompts.  It is fairly easy to maintain COMMO.FON with
  20.   *  a text editor.  CS-MAC also provides a menu-driven way to add BBSID
  21.   *  particulars to COMMO.FON (it actually writes a COMMOFON.NEW file).
  22.   *
  23.   *  When your macro stalls at a BBSware or MAILware prompt, TABLE.MAC is
  24.   *  one place you should look to change.  This is because TABLE.MAC sets
  25.   *  many of the {look } and {golo } prompt strings that LOGON.MAC uses.
  26.  
  27.  ┌───────────────────────┐
  28.  │  Link from COMMO.MAC  │
  29.  └───────────────────────┘
  30.  {:qwk}  {sete-p0 pcb}
  31.          {call %mail}               ;First set MAILware items
  32.          {comp bbs}                 ;After logon, %bbs will be NUL
  33.          {ifco ,%bbs}               ;Goto %bbs at start of call,
  34.                                     ; "generic logon routine"
  35.          {macl logon.mac,noact}     ;To open two doors in one call
  36.  
  37.  ┌─────────────────────────┐
  38.  │  MAILware Prompt Table  │
  39.  └─────────────────────────┘
  40. *
  41. * %md_pmt  =  MailDoor_ProMpT  (The MAILware Door Main prompt)
  42. * %mt_qwk  =  eMpTy_QWK        (The message signaling an empty packet)
  43. * %md_brnch = MailDoor BRaNCH  (This variable defines "where to branch",
  44. *                               "on what prompt".  Branch occurs after
  45. *                               scan, during summary report.  Used to count
  46. *                               messages or skip-counting)
  47. * %xfer_pmt = TransFER ProMpT  (Seen only from LOGON.MAC:c_xxx count branches)
  48. * %rdr      = ReaDeR type      (To choose packet renaming method in LOGON.MAC.
  49. *                               %qrdr names your .QWK reader, supported types
  50. *                               are JBR and QWK.  %znr names your ZIPNews
  51. *                               reader, supported type is ZNR.  %qrdr and %znr
  52. *                               are defined in your CS-MACxx.CFG file)
  53. * %up, %dn  = Mail UPload & DowN
  54. * %qwk, %rep= Packet Extension (To accomodate other than .QWK packets)
  55. * %yes, %no = yes, no          (Affirmative and negative responses)
  56. * %quit     = Return to BBS    (Command to quit door rather than logoff BBS)
  57.  
  58.  {:p15}                             ;PCBoard 15.0 "qwk" command
  59.          {setv md_pmt,Command?}     ;Note: set %dorno = "|"
  60.          {setv mt_qwk,nothing to download.}
  61.          {setv md_brnch,c_p15,Download ->}    ;Not easy to abort d/l
  62.          {setv xfer_pmt,Aborts Transfer}      ; if message count is low
  63.          {setv rdr,%qrdr}
  64.          {setv qwk,qwk}{setv rep,rep}
  65.          {setv up,qwk u|} {setv dn,qwk d|}
  66.          {setv yes,y|} {setv no,n|}
  67.          {setv quit,|}              ;Quitting the maildoor to get a
  68.          {retu}                     ; fresh command line quickly.
  69.  
  70.  {:mm2}                             ;MarkMail 2
  71.          {setv md_pmt,Mail Command}
  72.          {setv mt_qwk,was found!}
  73.          {setv md_brnch,c_mm2,tal Messages: }
  74.          {setv xfer_pmt,When done?}
  75.          {setv rdr,%qrdr}
  76.          {setv qwk,qwk}{setv rep,rep}
  77.          {setv up,u|}  {setv dn,d|}
  78.          {setv yes,y|} {setv no,n|}
  79.          {setv quit,q|}
  80.          {retu}
  81.  
  82.  {:qm2}                             ;Qmail 2
  83.          {setv md_pmt,) Command?}
  84.          {setv mt_qwk,No Message}
  85.          {setv md_brnch,c_qm2,es Found.........}
  86.          {setv xfer_pmt,this packet (}
  87.          {setv rdr,%qrdr}
  88.          {setv qwk,qwk}{setv rep,rep}
  89.          {setv up,u|}  {setv dn,d|}
  90.          {setv yes,y|} {setv no,n|}
  91.          {setv quit,q|}
  92.          {retu}
  93.  
  94.  {:qm4}                             ;Qmail 4
  95.          {setv md_pmt,l Command?}
  96.          {setv mt_qwk, no messages }
  97.          {setv md_brnch,c_qm4,found....}
  98.          {setv xfer_pmt,se messages}
  99.          {setv rdr,%qrdr}
  100.          {setv qwk,qwk}{setv rep,rep}
  101.          {setv up,u|}  {setv dn,d|}
  102.          {setv yes,y|} {setv no,n|}
  103.          {setv quit,q|}
  104.          {retu}
  105.  
  106.  {:jmr}                             ;Jimmer
  107.          {setv md_pmt,or menu>: }
  108.          {setv mt_qwk,no messages}
  109.          {setv md_brnch,qdl,transfer...}
  110.          {setv xfer_pmt,transfer...}
  111.          {setv rdr,%qrdr}
  112.          {setv qwk,qwk}{setv rep,rep}
  113.          {setv up,u|}  {setv dn,d|}
  114.          {setv yes,y|} {setv no,n|}
  115.          {setv quit,r|}
  116.          {retu}
  117.  
  118.  {:mkq}                             ;MKQwk
  119.          {setv md_pmt,Command:}
  120.          {setv mt_qwk,No Messages}
  121.          {setv md_brnch,qdl,Enter=}
  122.          {setv xfer_pmt,Enter=}
  123.          {setv rdr,%qrdr}
  124.          {setv qwk,qwk}{setv rep,rep}
  125.          {setv up,u|}  {setv dn,d|}
  126.          {setv yes,y|} {setv no,n|}
  127.          {setv quit,q|}
  128.          {retu}
  129.  
  130.  {:dcq}                             ;DCQwk/TAG
  131.          {setv md_pmt,--->}
  132.          {setv mt_qwk,No Message}
  133.          {setv md_brnch,qdl,Help ) }
  134.          {setv xfer_pmt,Help ) }
  135.          {setv rdr,%qrdr}
  136.          {setv qwk,qwk}{setv rep,rep}
  137.          {setv up,u|}  {setv dn,d|}
  138.          {setv yes,g|} {setv no,q|}
  139.          {setv quit,q|}
  140.          {retu}
  141.  
  142.  {:sxp}                             ;Silver Express
  143.          {setv md_pmt,Command:}
  144.          {setv mt_qwk,No Message}
  145.          {setv md_brnch,qdl,Help ) }
  146.          {setv xfer_pmt,Help ) }
  147.          {setv rdr,%qrdr}
  148.          {setv qwk,qwk}{setv rep,rep}
  149.          {setv up,u|}  {setv dn,d|}
  150.          {setv yes,y|} {setv no,n|}
  151.          {setv quit,q|}
  152.          {retu}
  153.  
  154.  {:jet}                             ;JetMail
  155.          {setv md_pmt,Mail Command}
  156.          {setv mt_qwk,ages found.}
  157.          {setv md_brnch,c_mm2,tal Messages: }
  158.          {setv xfer_pmt,bye when done?}
  159.          {setv rdr,%qrdr}
  160.          {setv qwk,qwk}{setv rep,rep}
  161.          {setv up,u|}  {setv dn,d|}
  162.          {setv yes,y|} {setv no,n|}
  163.          {setv quit,q|}
  164.          {retu}
  165.  
  166.  {:roz}                             ;Rosemail
  167.          {setv md_pmt,Mail Command}
  168.          {setv mt_qwk,no new mess}
  169.          {setv md_brnch,c_roz,download:}
  170.          {setv xfer_pmt,is packet (}
  171.          {setv rdr,%qrdr}
  172.          {setv qwk,qwk}{setv rep,rep}
  173.          {setv up,u|}  {setv dn,d|}
  174.          {setv yes,y|} {setv no,n|}
  175.          {setv quit,q|}
  176.          {retu}
  177.  
  178.  {:coq}                             ;Charlie's Off-line .QWK Reader
  179.          {setv md_pmt,_    }        ;this %md_pmt is sort of a kludge
  180.          {setv mt_qwk,r commands}   ;From message base command list menu
  181.          {setv md_brnch,c_coq,Total   }
  182.          {setv xfer_pmt,format [Y,n]? }
  183.          {setv rdr,%qrdr}
  184.          {setv qwk,qwk}{setv rep,rep}
  185.          {setv up,u|}  {setv dn,d|}
  186.          {setv yes,y|} {setv no,n|}
  187.          {setv quit,q|}
  188.          {retu}
  189.  
  190.  {:zns}                             ;ZIPNEWS (Jack Kilday's Internet door)
  191.          {setv md_pmt,choice: }
  192.          {setv mt_qwk,no new articles}
  193.          {setv md_brnch,c_zns,Found:}
  194.          {setv xfer_pmt,articles?}
  195.          {setv rdr,%znr}
  196.          {setv qwk,zns}{setv rep,pst}
  197.          {setv up,u|}  {setv dn,d|}
  198.          {setv yes,y|} {setv no,n|}
  199.          {setv quit,q|}
  200.          {retu}
  201.  
  202.  {:mmj}                             ;MajorBBS .QWK Mail facility
  203.          {setv md_pmt,R,H,X): }
  204.          {setv mt_qwk,no new articles}
  205.          {setv md_brnch,c_mmj,Found:}
  206.          {setv xfer_pmt,to exit): }
  207.          {setv rdr,%qrdr}
  208.          {setv qwk,qwk}{setv rep,rep}
  209.          {setv up,u|}  {setv dn,d|}
  210.          {setv yes,z|} {setv no,x|}
  211.          {setv quit,x|}
  212.          {retu}
  213.  
  214.  {:vbq}                             ;VirtualBBS .QWK Mail facility
  215.          {setv md_pmt,-> }
  216.          {setv mt_qwk,no new articles}
  217.          {setv md_brnch,qdl,for list):}
  218.          {setv xfer_pmt,for list):}
  219.          {setv rdr,%qrdr}
  220.          {setv qwk,qwk}{setv rep,rep}
  221.          {setv up,u}  {setv dn,d}
  222.          {setv yes,z} {setv no,q}
  223.          {setv quit,q}
  224.          {retu}
  225.  
  226.  {:jcq}                             ;JCQWk
  227.          {setv md_pmt,▄▄▄█}
  228.          {setv mt_qwk,no messages this time}
  229.          {setv md_brnch,qdl,<Y/n>}
  230.          {setv xfer_pmt,<Y/n>}
  231.          {setv rdr,%qrdr}
  232.          {setv qwk,qwk}{setv rep,rep}
  233.          {setv up,u}  {setv dn,d}
  234.          {setv yes,y} {setv no,n}
  235.          {setv quit,q}
  236.          {retu}
  237.  
  238.  {:exq}                             ;EXEC-PC QWK-mail
  239.          {setv md_pmt,(NUOHQG}
  240.          {setv mt_qwk,no messages this time}
  241.          {setv md_brnch,qdl,ol X's to abort}
  242.          {setv xfer_pmt,ol X's to abort}
  243.          {setv rdr,%qrdr}
  244.          {setv qwk,qwk}{setv rep,rep}
  245.          {setv up,u}  {setv dn,n}
  246.          {setv yes,y} {setv no,n}
  247.          {setv quit,q}
  248.          {retu}
  249.  
  250.  {:cam}                             ;CAM-Mail
  251.          {setv md_pmt,-Mail Command?}
  252.          {setv mt_qwk,no messages this time}
  253.          {setv md_brnch,c_cam,ages.... }
  254.          {setv xfer_pmt,er)=yes?}
  255.          {setv rdr,%qrdr}
  256.          {setv qwk,qwk}{setv rep,rep}
  257.          {setv up,u}  {setv dn,d}
  258.          {setv yes,y} {setv no,n}
  259.          {setv quit,q}
  260.          {retu}
  261.  
  262.  {:lak}                             ;LAKOTA
  263.          {setv md_pmt,[D U S Q]?}
  264.          {setv mt_qwk,no messages this time}
  265.          {setv md_brnch,qdl,Ready to send}
  266.          {setv xfer_pmt,Ready to send}
  267.          {setv rdr,%qrdr}
  268.          {setv qwk,qwk}{setv rep,rep}
  269.          {setv up,u}  {setv dn,d}
  270.          {setv yes,y} {setv no,n}
  271.          {setv quit,q~~~~~~q|}
  272.          {retu}
  273.  
  274.  ┌────────────────────────┐
  275.  │  BBSware Prompt Table  │
  276.  └────────────────────────┘
  277.  *
  278.  *%bbs_pmt  =  BBSware_ProMpT   (The BBSware Main prompt)
  279.  *%nam_pmt  =  NAMe_ProMpT      (and reply) \ name=%name, handle=%handle
  280.  *%gra_pmt  =  GRAphics ProMpT  (and reply) /    !MUST BE DEFINED!
  281.  *%bypass?  =  Bypass nuisance  (different BBSware have different
  282.  *                               nuisance "continue" prompts.  You
  283.  *                               MUST define all 3!)
  284.  *%bye      = Logoff Command    (Command to exit BBS)
  285.  *%rs       = Response Suffix   (| for BBSware that expects you to
  286.  *                               press <CR> after each command)
  287.  
  288.  {:pcb}  {:alm} {:esc}              ;PCBoard
  289.          {setv bbs_pmt,Command?}    ;Main Board Prompt
  290.          {setv nam_pmt,name,st name?};Name Prompt
  291.          {setv gra_pmt,loq,graphics};Graphics, LOGON.MAC:loq = %grafix
  292.          {setv bypass1,n|,More?}    ;just say 'no' to "More?"
  293.          {setv bypass2,n|,inue?}    ;just say 'no' to "Continue?"
  294.          {setv bypass3,n|,mail?}    ;just say 'no' to "mail scan"
  295.          {setv bye,g}
  296.          {setv rs,|}                ;Response suffix  *none* for hotkey BBS
  297.          {goto _logon}
  298.  
  299.  {:tag}                             ;T.A.G.
  300.          {setv bbs_pmt,IN MENU:}
  301.          {setv nam_pmt,name,number:}
  302.          {setv gra_pmt,loq,hics (}  ;Graphics, LOGON.MAC:loq = %grafix
  303.          {setv bypass1,n|,y/[N])}   ;just say 'no' to mail check
  304.          {setv bypass2,|,tinue>}    ;<Press ENTER to continue>
  305.          {setv bypass3,_,any key^)} ;Press SPACE an "any key" prompts
  306.          {setv bye,/g}
  307.          {setv rs,|}
  308.          {goto _logon}
  309.  
  310.  {:s-f}                                 ;SpitFire
  311.          {setv bbs_pmt,^m^jMAIN MENU -}
  312.          {setv nam_pmt,name,st name:}
  313.          {setv gra_pmt,y,? [y/N]}       ;Spitfire "Graphics" prompt
  314.          {setv bypass1,|,TER >}         ;Spitfire "more" and BLT bypass
  315.          {setv bypass2,n,? [Y/n]}       ;Spitfire "new" prompts
  316.          {setv bypass3,lob,skip this  }
  317.          {setv bye,g}
  318.          {setv rs,|}
  319.          {goto _logon}
  320.  
  321.  {:sfh}                                 ;SpitFire, HOTKEY version
  322.          {setv bbs_pmt,^m^jMAIN MENU -}
  323.          {setv nam_pmt,name,st name:}
  324.          {setv gra_pmt,y,? [y/N]}       ;Spitfire "Graphics" prompt
  325.          {setv bypass1,|,TER >}         ;Spitfire "more" and BLT bypass
  326.          {setv bypass2,n,? [Y/n]}       ;Spitfire "new" prompts
  327.          {setv bypass3,lob,skip this  }
  328.          {setv bye,g}
  329.          {setv rs,|}
  330.          {goto _logon}
  331.  
  332.  {:wc!}                             ;Wildcat!
  333.          {setv bbs_pmt,] ? }
  334.          {setv nam_pmt,name,st name}
  335.          {setv gra_pmt,loq,hics (}  ;Graphics, LOGON.MAC:loq = %grafix
  336.          {setv bypass1,lov,CE ph}   ;Wildcat Phone Number verify
  337.          {setv bypass2,lob,UR bi}   ;Wildcat  Birthdate   verify
  338.          {setv bypass3,s|,S]top?}   ;Wildcat -pause- prompt
  339.          {setv bye,g}
  340.          {setv rs}
  341.          {goto _logon}
  342.  
  343.  {:gap}                             ;GAP
  344.          {setv bbs_pmt,Command :}
  345.          {setv nam_pmt,name,st name}
  346.          {setv gra_pmt,loq, yes :}  ;GAP      "Graphics" prompt
  347.          {setv bypass1,n|,More?}    ;just say 'no' to "More?"
  348.          {setv bypass2,n|,inue?}    ;just say 'no' to "Continue?"
  349.          {setv bypass3,n|,=yes?}    ;just say 'no' to "mail scan"
  350.          {setv bye,g}
  351.          {setv rs,|}
  352.          {goto _logon}
  353.  
  354.  {:rma}                             ;Remote Access
  355.          {setv bbs_pmt,Command:}
  356.          {setv nam_pmt,name, name: }
  357.          {setv gra_pmt,loq,hics (}  ;Graphics, LOGON.MAC:loq = %grafix
  358.          {setv bypass1,|,TER]}      ;Babble continue prompt
  359.          {setv bypass2,|,tinue:}    ;"Press 'Enter' to Continue:" prompt
  360.          {setv bypass3,n,(Y/n/=)}   ;just say 'no' to "More'etc'?"
  361.          {setv bye,g}
  362.          {setv rs,|}
  363.          {goto _logon}
  364.  
  365.  {:mac}                             ;MACROBBS
  366.          {setv bbs_pmt,Command?}
  367.          {setv nam_pmt,name,login:}
  368.          {setv gra_pmt,loq,hics (}  ;Graphics, LOGON.MAC:loq = %grafix
  369.          {setv bypass1,|,any key]}  ;bypass "Press any key"
  370.          {setv bypass2,n|,inue?}    ;just say 'no' to "Continue?"
  371.          {setv bypass3,n|,=yes?}    ;just say 'no' to "mail scan"
  372.          {setv bye,g}
  373.          {setv rs,|}
  374.          {goto _logon}
  375.  
  376.  {:max}                             ;MAXIMUS-CBCS "Charlie's Foxhole"
  377.          {setv bbs_pmt,min(s)^m^j}
  378.          {setv nam_pmt,name, name? }
  379.          {setv gra_pmt,loq,hics (}  ;Graphics, LOGON.MAC:loq = %grafix
  380.          {setv bypass1,n|,More [}   ;No More
  381.          {setv bypass2,n|,mail?}    ;Don't check for mail
  382.          {setv bypass3,n|,etin?}    ;Don't read bulletins
  383.          {setv bye,g}
  384.          {setv rs,|}
  385.          {goto _logon}
  386.  
  387.  {:maj}                             ;Major BBS
  388.          {setv bbs_pmt,to exit):}   ;Expert prompt
  389.          {setv nam_pmt,handle,"new":}
  390.          {setv gra_pmt,loq,hics (}  ;Graphics, LOGON.MAC:loq = %grafix
  391.          {setv bypass1,|,to cont}   ;Press ENTER to continue
  392.          {setv bypass2,q,(Q)uit,}   ;(N)onstop, (Q)uit, (C)ontinue?
  393.          {setv bypass3,lob,dd/yy)?} ;Birthdate Prompt
  394.          {setv bye,x}
  395.          {setv rs,|}
  396.          {goto _logon}
  397.  
  398.  {:vir}                             ;Virtual BBS
  399.          {setv bbs_pmt,Time Left =} ;Expert prompt
  400.          {setv nam_pmt,handle,Login   :}
  401.          {setv gra_pmt,loq,hics (}  ;Graphics, LOGON.MAC:loq = %grafix
  402.          {setv bypass1,|,go for it!};Press ENTER to continue
  403.          {setv bypass2,n|,Enter=No)};No AutoPost
  404.          {setv bypass3,n|,Enter=Yes};Don't read your mail
  405.          {setv bye,g}
  406.          {setv rs}
  407.          {goto _logon}
  408.  
  409.  {:exc}                             ;EXEC-PC
  410.          {setv bbs_pmt,?=HELP) ->}  ;Expert prompt
  411.          {setv nam_pmt,f&l,FIRST name ->}
  412.          {setv gra_pmt,y,cs? (y/N) ->} ;Graphics, LOGON.MAC:
  413.          {setv bypass1,|,ntinue ->} ;Any key to continue
  414.          {setv bypass2,n|,ates) ->} ;Bulletin review?
  415.          {setv bypass3,|,ntinue ->} ;
  416.          {setv bye,g}
  417.          {setv rs}
  418.          {goto _logon}
  419.  
  420.  {:_logon}
  421.          {setv bb,%bbs}             ;for future ACTION.MAC expansion
  422.          {setv bbs}
  423.          {pops-c}
  424.          {macl logon.mac,glr}
  425.