home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Current Shareware 1994 January
/
SHAR194.ISO
/
modem
/
cs_mac08.zip
/
TABLE.MAC
< prev
next >
Wrap
Text File
|
1993-10-24
|
16KB
|
425 lines
┌────────────────────────────────┐
│ Chuck Seyboldt's COMMO Macro │ CS-MAC08:TABLE.MAC
└────────────────────────────────┘
*
* Contents: MAILware prompt table
* BBSware prompt table
*
* Called from: COMMO.MAC :qwk
*
* Control passes to: LOGON.MAC,glr
*
* The file you are reading *DOES NOT* require editing.
*
*** COMMO.FON does require editing.
*** BBSID particulars must be added to COMMO.FON.
*
* This TABLE.MAC file provides a facility to combine different BBSware
* and MAILware prompts. It is fairly easy to maintain COMMO.FON with
* a text editor. CS-MAC also provides a menu-driven way to add BBSID
* particulars to COMMO.FON (it actually writes a COMMOFON.NEW file).
*
* When your macro stalls at a BBSware or MAILware prompt, TABLE.MAC is
* one place you should look to change. This is because TABLE.MAC sets
* many of the {look } and {golo } prompt strings that LOGON.MAC uses.
┌───────────────────────┐
│ Link from COMMO.MAC │
└───────────────────────┘
{:qwk} {sete-p0 pcb}
{call %mail} ;First set MAILware items
{comp bbs} ;After logon, %bbs will be NUL
{ifco ,%bbs} ;Goto %bbs at start of call,
; "generic logon routine"
{macl logon.mac,noact} ;To open two doors in one call
┌─────────────────────────┐
│ MAILware Prompt Table │
└─────────────────────────┘
*
* %md_pmt = MailDoor_ProMpT (The MAILware Door Main prompt)
* %mt_qwk = eMpTy_QWK (The message signaling an empty packet)
* %md_brnch = MailDoor BRaNCH (This variable defines "where to branch",
* "on what prompt". Branch occurs after
* scan, during summary report. Used to count
* messages or skip-counting)
* %xfer_pmt = TransFER ProMpT (Seen only from LOGON.MAC:c_xxx count branches)
* %rdr = ReaDeR type (To choose packet renaming method in LOGON.MAC.
* %qrdr names your .QWK reader, supported types
* are JBR and QWK. %znr names your ZIPNews
* reader, supported type is ZNR. %qrdr and %znr
* are defined in your CS-MACxx.CFG file)
* %up, %dn = Mail UPload & DowN
* %qwk, %rep= Packet Extension (To accomodate other than .QWK packets)
* %yes, %no = yes, no (Affirmative and negative responses)
* %quit = Return to BBS (Command to quit door rather than logoff BBS)
{:p15} ;PCBoard 15.0 "qwk" command
{setv md_pmt,Command?} ;Note: set %dorno = "|"
{setv mt_qwk,nothing to download.}
{setv md_brnch,c_p15,Download ->} ;Not easy to abort d/l
{setv xfer_pmt,Aborts Transfer} ; if message count is low
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,qwk u|} {setv dn,qwk d|}
{setv yes,y|} {setv no,n|}
{setv quit,|} ;Quitting the maildoor to get a
{retu} ; fresh command line quickly.
{:mm2} ;MarkMail 2
{setv md_pmt,Mail Command}
{setv mt_qwk,was found!}
{setv md_brnch,c_mm2,tal Messages: }
{setv xfer_pmt,When done?}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:qm2} ;Qmail 2
{setv md_pmt,) Command?}
{setv mt_qwk,No Message}
{setv md_brnch,c_qm2,es Found.........}
{setv xfer_pmt,this packet (}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:qm4} ;Qmail 4
{setv md_pmt,l Command?}
{setv mt_qwk, no messages }
{setv md_brnch,c_qm4,found....}
{setv xfer_pmt,se messages}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:jmr} ;Jimmer
{setv md_pmt,or menu>: }
{setv mt_qwk,no messages}
{setv md_brnch,qdl,transfer...}
{setv xfer_pmt,transfer...}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,r|}
{retu}
{:mkq} ;MKQwk
{setv md_pmt,Command:}
{setv mt_qwk,No Messages}
{setv md_brnch,qdl,Enter=}
{setv xfer_pmt,Enter=}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:dcq} ;DCQwk/TAG
{setv md_pmt,--->}
{setv mt_qwk,No Message}
{setv md_brnch,qdl,Help ) }
{setv xfer_pmt,Help ) }
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,g|} {setv no,q|}
{setv quit,q|}
{retu}
{:sxp} ;Silver Express
{setv md_pmt,Command:}
{setv mt_qwk,No Message}
{setv md_brnch,qdl,Help ) }
{setv xfer_pmt,Help ) }
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:jet} ;JetMail
{setv md_pmt,Mail Command}
{setv mt_qwk,ages found.}
{setv md_brnch,c_mm2,tal Messages: }
{setv xfer_pmt,bye when done?}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:roz} ;Rosemail
{setv md_pmt,Mail Command}
{setv mt_qwk,no new mess}
{setv md_brnch,c_roz,download:}
{setv xfer_pmt,is packet (}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:coq} ;Charlie's Off-line .QWK Reader
{setv md_pmt,_ } ;this %md_pmt is sort of a kludge
{setv mt_qwk,r commands} ;From message base command list menu
{setv md_brnch,c_coq,Total }
{setv xfer_pmt,format [Y,n]? }
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:zns} ;ZIPNEWS (Jack Kilday's Internet door)
{setv md_pmt,choice: }
{setv mt_qwk,no new articles}
{setv md_brnch,c_zns,Found:}
{setv xfer_pmt,articles?}
{setv rdr,%znr}
{setv qwk,zns}{setv rep,pst}
{setv up,u|} {setv dn,d|}
{setv yes,y|} {setv no,n|}
{setv quit,q|}
{retu}
{:mmj} ;MajorBBS .QWK Mail facility
{setv md_pmt,R,H,X): }
{setv mt_qwk,no new articles}
{setv md_brnch,c_mmj,Found:}
{setv xfer_pmt,to exit): }
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u|} {setv dn,d|}
{setv yes,z|} {setv no,x|}
{setv quit,x|}
{retu}
{:vbq} ;VirtualBBS .QWK Mail facility
{setv md_pmt,-> }
{setv mt_qwk,no new articles}
{setv md_brnch,qdl,for list):}
{setv xfer_pmt,for list):}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u} {setv dn,d}
{setv yes,z} {setv no,q}
{setv quit,q}
{retu}
{:jcq} ;JCQWk
{setv md_pmt,▄▄▄█}
{setv mt_qwk,no messages this time}
{setv md_brnch,qdl,<Y/n>}
{setv xfer_pmt,<Y/n>}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u} {setv dn,d}
{setv yes,y} {setv no,n}
{setv quit,q}
{retu}
{:exq} ;EXEC-PC QWK-mail
{setv md_pmt,(NUOHQG}
{setv mt_qwk,no messages this time}
{setv md_brnch,qdl,ol X's to abort}
{setv xfer_pmt,ol X's to abort}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u} {setv dn,n}
{setv yes,y} {setv no,n}
{setv quit,q}
{retu}
{:cam} ;CAM-Mail
{setv md_pmt,-Mail Command?}
{setv mt_qwk,no messages this time}
{setv md_brnch,c_cam,ages.... }
{setv xfer_pmt,er)=yes?}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u} {setv dn,d}
{setv yes,y} {setv no,n}
{setv quit,q}
{retu}
{:lak} ;LAKOTA
{setv md_pmt,[D U S Q]?}
{setv mt_qwk,no messages this time}
{setv md_brnch,qdl,Ready to send}
{setv xfer_pmt,Ready to send}
{setv rdr,%qrdr}
{setv qwk,qwk}{setv rep,rep}
{setv up,u} {setv dn,d}
{setv yes,y} {setv no,n}
{setv quit,q~~~~~~q|}
{retu}
┌────────────────────────┐
│ BBSware Prompt Table │
└────────────────────────┘
*
*%bbs_pmt = BBSware_ProMpT (The BBSware Main prompt)
*%nam_pmt = NAMe_ProMpT (and reply) \ name=%name, handle=%handle
*%gra_pmt = GRAphics ProMpT (and reply) / !MUST BE DEFINED!
*%bypass? = Bypass nuisance (different BBSware have different
* nuisance "continue" prompts. You
* MUST define all 3!)
*%bye = Logoff Command (Command to exit BBS)
*%rs = Response Suffix (| for BBSware that expects you to
* press <CR> after each command)
{:pcb} {:alm} {:esc} ;PCBoard
{setv bbs_pmt,Command?} ;Main Board Prompt
{setv nam_pmt,name,st name?};Name Prompt
{setv gra_pmt,loq,graphics};Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,n|,More?} ;just say 'no' to "More?"
{setv bypass2,n|,inue?} ;just say 'no' to "Continue?"
{setv bypass3,n|,mail?} ;just say 'no' to "mail scan"
{setv bye,g}
{setv rs,|} ;Response suffix *none* for hotkey BBS
{goto _logon}
{:tag} ;T.A.G.
{setv bbs_pmt,IN MENU:}
{setv nam_pmt,name,number:}
{setv gra_pmt,loq,hics (} ;Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,n|,y/[N])} ;just say 'no' to mail check
{setv bypass2,|,tinue>} ;<Press ENTER to continue>
{setv bypass3,_,any key^)} ;Press SPACE an "any key" prompts
{setv bye,/g}
{setv rs,|}
{goto _logon}
{:s-f} ;SpitFire
{setv bbs_pmt,^m^jMAIN MENU -}
{setv nam_pmt,name,st name:}
{setv gra_pmt,y,? [y/N]} ;Spitfire "Graphics" prompt
{setv bypass1,|,TER >} ;Spitfire "more" and BLT bypass
{setv bypass2,n,? [Y/n]} ;Spitfire "new" prompts
{setv bypass3,lob,skip this }
{setv bye,g}
{setv rs,|}
{goto _logon}
{:sfh} ;SpitFire, HOTKEY version
{setv bbs_pmt,^m^jMAIN MENU -}
{setv nam_pmt,name,st name:}
{setv gra_pmt,y,? [y/N]} ;Spitfire "Graphics" prompt
{setv bypass1,|,TER >} ;Spitfire "more" and BLT bypass
{setv bypass2,n,? [Y/n]} ;Spitfire "new" prompts
{setv bypass3,lob,skip this }
{setv bye,g}
{setv rs,|}
{goto _logon}
{:wc!} ;Wildcat!
{setv bbs_pmt,] ? }
{setv nam_pmt,name,st name}
{setv gra_pmt,loq,hics (} ;Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,lov,CE ph} ;Wildcat Phone Number verify
{setv bypass2,lob,UR bi} ;Wildcat Birthdate verify
{setv bypass3,s|,S]top?} ;Wildcat -pause- prompt
{setv bye,g}
{setv rs}
{goto _logon}
{:gap} ;GAP
{setv bbs_pmt,Command :}
{setv nam_pmt,name,st name}
{setv gra_pmt,loq, yes :} ;GAP "Graphics" prompt
{setv bypass1,n|,More?} ;just say 'no' to "More?"
{setv bypass2,n|,inue?} ;just say 'no' to "Continue?"
{setv bypass3,n|,=yes?} ;just say 'no' to "mail scan"
{setv bye,g}
{setv rs,|}
{goto _logon}
{:rma} ;Remote Access
{setv bbs_pmt,Command:}
{setv nam_pmt,name, name: }
{setv gra_pmt,loq,hics (} ;Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,|,TER]} ;Babble continue prompt
{setv bypass2,|,tinue:} ;"Press 'Enter' to Continue:" prompt
{setv bypass3,n,(Y/n/=)} ;just say 'no' to "More'etc'?"
{setv bye,g}
{setv rs,|}
{goto _logon}
{:mac} ;MACROBBS
{setv bbs_pmt,Command?}
{setv nam_pmt,name,login:}
{setv gra_pmt,loq,hics (} ;Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,|,any key]} ;bypass "Press any key"
{setv bypass2,n|,inue?} ;just say 'no' to "Continue?"
{setv bypass3,n|,=yes?} ;just say 'no' to "mail scan"
{setv bye,g}
{setv rs,|}
{goto _logon}
{:max} ;MAXIMUS-CBCS "Charlie's Foxhole"
{setv bbs_pmt,min(s)^m^j}
{setv nam_pmt,name, name? }
{setv gra_pmt,loq,hics (} ;Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,n|,More [} ;No More
{setv bypass2,n|,mail?} ;Don't check for mail
{setv bypass3,n|,etin?} ;Don't read bulletins
{setv bye,g}
{setv rs,|}
{goto _logon}
{:maj} ;Major BBS
{setv bbs_pmt,to exit):} ;Expert prompt
{setv nam_pmt,handle,"new":}
{setv gra_pmt,loq,hics (} ;Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,|,to cont} ;Press ENTER to continue
{setv bypass2,q,(Q)uit,} ;(N)onstop, (Q)uit, (C)ontinue?
{setv bypass3,lob,dd/yy)?} ;Birthdate Prompt
{setv bye,x}
{setv rs,|}
{goto _logon}
{:vir} ;Virtual BBS
{setv bbs_pmt,Time Left =} ;Expert prompt
{setv nam_pmt,handle,Login :}
{setv gra_pmt,loq,hics (} ;Graphics, LOGON.MAC:loq = %grafix
{setv bypass1,|,go for it!};Press ENTER to continue
{setv bypass2,n|,Enter=No)};No AutoPost
{setv bypass3,n|,Enter=Yes};Don't read your mail
{setv bye,g}
{setv rs}
{goto _logon}
{:exc} ;EXEC-PC
{setv bbs_pmt,?=HELP) ->} ;Expert prompt
{setv nam_pmt,f&l,FIRST name ->}
{setv gra_pmt,y,cs? (y/N) ->} ;Graphics, LOGON.MAC:
{setv bypass1,|,ntinue ->} ;Any key to continue
{setv bypass2,n|,ates) ->} ;Bulletin review?
{setv bypass3,|,ntinue ->} ;
{setv bye,g}
{setv rs}
{goto _logon}
{:_logon}
{setv bb,%bbs} ;for future ACTION.MAC expansion
{setv bbs}
{pops-c}
{macl logon.mac,glr}