Piper's Pit BBS/FTP: ibm 0200

home *** CD-ROM | disk | FTP | other *** search

/ Piper's Pit BBS/FTP: ibm 0200 - 0209 / ibm0200-0209 / ibm0200.tar / ibm0200 / BOYAN52R.ZIP / SCRIPT.BSC < prev next >

Wrap

Text File | 1994-01-29 | 31.7 KB | 612 lines

\\ \\ Script.bsc by: Lee Breeden \\ \\ This script contains all of the commands for doing a mail and file \\ calls with PCBoard, GAP and UltraBBS. You need to setup a system script \\ that sets all of the variables in this script. This script has the \\ variables in it, and the system script needs to be named in the dialing \\ directory under script name. Use MakeMail to create a system script. \\ \\ ******************************************************************** \\ \\ Please note that this script will call the system back if it \\ \\ fails in different places. Use the \SVA[X] command with \\ \\ caution. If the system that your calling is long distance, BEWARE! \\ \\ ******************************************************************** \\ \\ Script using all variables V0-9 VA-H F=cursor position G=messages count \\ H=Timer to wait for total messages. \\ VP new path for mail downloading. If using only download path, you \\ MUST change the command below to \SVP[%D:] |name \SVP[C:\mail\] \IE+%VN,X[\eb]\svt[0] \wp[1]\dm21[Starting to log name onto %SN] \CA-[\SVA[X]\eb] \\ Checks carrier \if+Press Escape twice[^[~^[{\gb[name]] \\ looks for prompt \if+raphics[n q NS{\gb[name]] \\ looks for prompt \if+Color? (Y/N/Help)[{\gb[name]] \\ MIGHT NEED TO MODIFY \if+(C)olor ANSI[C{\gb[name]] \\ MIGHT NEED TO MODIFY \if+irst[\! \@{\gb[name]] \\ looks for prompt \if+ast[\@{\gb[name]] \\ looks for prompt \if+required[{\gb[name]] \\ looks for prompt \if+Is this correct[{\gb[name]] \\ looks for prompt \if+Continue[{\gb[name]] \\ looks for prompt \if+Re-enter your name[r{\gb[name]] \\ error messages \if+CAUTION: Auto[{\SVA[X]\eb] \\ error messages \if+Keyboard Time Expired[{\SVA[X]\eb] \\ error messages \if+board is currently attempting to dial out[{\SVA[X]\eb] \\ error messages \if+Automatic Disconnect[{\SVA[X]\eb] \\ error messages \if+NETMAIL IN PROGRESS:[{\SVA[X]\AB] \\ error messages \if+NO CARRIER[{\SVA[X]\eb] \\ error messages \if+Did you forget[n{\SVA[X]\eb] \\ error messages \if+assword[%PW{\SVN[X]\eb] \\ looks for prompt {\pa[1]\gb[name] |QUEST \IE+%VQ,X[\eb] \\ This section will \CA-[\SVA[X]\eb]\\WP[1]\CA-[\AB] \\ get you to the \DM[Script running - connected to %SN pass # %VT `] \\ command prompt. \IF+(NS)[n{\GB[quest]] \\ This block will be \IF+ontinue[{\GB[quest]] \\ called at the complete \IF+mail[{\GB[quest]] \\ of many blocks used \IF+(NS)non-stop?[n{\GB[quest]] \\ in this script. \IF+Command?[{\SVQ[X]\SVT[0]\EB] \\ It is useful for \IF+(Enter)[N{\GB[quest]] \\ unforeseen prompts \IF+(Enter)=none?[{\GB[quest]] \\ that the sysop might \IF+More?[n{\GB[quest]] \\ have lurking in the \IF+respond[{\GB[quest]] \\ system. \IF+More[N{\GB[quest]] \\ in this script. \IF+Main Board Command?[{\SVQ[X]\SVT[0]\eb] \\ \IF+"] Main Board Command?[{\SVQ[X]\SVT[0]\eb] \\ \IF+Your Main Menu[{\SVQ[X]\SVT[0]\eb] \\ \IF+Conference Command?[{\SVQ[X]\SVT[0]\eb] \\ \IF+Scan [n{\GB[quest]] \\ \IF+assword[%PW{] \\ \IF+Your Main Board[{\SVQ[X]\SVT[0]\eb] \\ \IF+ Command [{\SVT[0]\eb] \+VT[1] \IE+%VT,2[\pa[2]\GB[quest] \\ block to its beginning \IE+%VT,3[^K \pa[2]\GB[quest] \\ block to its beginning \IE+%VT,4[\pa[2]\GB[quest] \\ block to its beginning \IE+%VT,5[^X \pa[2]\GB[quest] \\ block to its beginning \IE+%VT,6[\pa[2]\GB[quest] \\ block to its beginning \IE+%VT,7[\pa[2]\GB[quest] \\ block to its beginning \IE+%VT,8[\pa[2]\GB[quest] \\ block to its beginning \IE+%VT,9[\pa[2]\GB[quest] \\ block to its beginning \IE+%VT,10[{\svt[0]]\pa[2]\GB[quest] \\ block to its beginning |2QUEST \\ This block is EXACTLY the same as the one above only it will not \\ register as being completed as the above one will. \CA-[\SVA[X]\eb]\\WP[1] \\ get you to the \DM[Script running - connected to %SN pass # %VT `] \\ command prompt. \IF+(NS)[n{\GB[2quest]] \\ This block will be \IF+ontinue[{\GB[2quest]] \\ called at the complete \IF+mail[{\GB[2quest]] \\ of many blocks used \IF+(NS)non-stop?[n{\GB[2quest]] \\ in this script. \IF+Command?[{\SVT[0]\EB] \\ It is useful for \IF+(Enter)[N{\GB[2quest]] \\ unforeseen prompts \IF+(Enter)=none?[{\GB[2quest]] \\ that the sysop might \IF+More?[n{\GB[2quest]] \\ have lurking in the \IF+respond[{\GB[2quest]] \\ system. \IF+More?[n{\GB[2quest]] \\ in this script. \IF+Main Board Command?[{\SVT[0]\eb] \\ \IF+Scan [n{\GB[2quest]] \\ \IF+assword[%PW{] \\ \IF+Your Main Board[{\SVT[0]\eb] \\ \IF+Your Main Menu[{\SVT[0]\eb] \IF+Conference Command?[{\SVQ[X]\SVT[0]\eb] \\ \IF+"] Main Board Command?[{\SVQ[X]\SVT[0]\eb] \\ \IF+ Command [{\SVT[0]\eb] \\ \+VT[1] \IE+%VT,2[\pa[2]\GB[2quest] \\ block to its beginning \IE+%VT,3[\ie-%VJ,X[^K] \pa[2]\GB[2quest] \\ block to its beginning \IE+%VT,4[\pa[2]\GB[2quest] \\ block to its beginning \IE+%VT,5[\ie-%VJ,X[^J] \pa[2]\GB[2quest] \\ block to its beginning \IF+"] Main Board Command?[{.SVQ[X]\SVT[0]\eb] \\ \IE+%VT,6[\pa[2]\GB[2quest] \\ block to its beginning \IE+%VT,7[{\svt[0]]\pa[2]\gb[2quest] \\ block to its beginning |mail \IE+%VM,X[\eb] \au-\dm21[Starting Mail block] \\ This will open the mail \\ au- turn auto-dn-load off \CA-[\SVA[X]\eb] \\ door from main command \IE+%V2,QMAIL4[Qmail4{ |op %V2{]\PA[5]\SVM[X]\eb \\ waits 5 sec before door. |Omail \IE+%VM,X[\eb] \au-\dm21[Starting Mail block] \\ This will open the mail \\ au- turn auto-dn-load off \CA-[\SVA[X]\eb] \\ door from main command o{\PA[5]\SVM[X]\eb \\ waits 5 sec before door. |QMul \+VT[1] \IE+%VS,X[\eb] \CA-[\SVA[X]\eb] \\ display message {\WF[Qmail Command?]~u{\IW-[\SVS[]\IVt+9[\SVA[x]\svt[0]\bl[2quest]\gb[QMul]] \\ issue upload command \wf[B01]\IVt+9[\SVA[x]]\IW-[\SVS[]\bl[2quest]\gb[QMul]] \ulz-[%VP%V1]\it+[\dc-[copy %VP%v1 %VP1%V1]\DC-[del %VP%V1]] \SVS[X]{\svt[0]\eb \\ above block renames \\ *.rep to 1*.rep |QMdl \IE+%VG,X[\eb] \dm22[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\Display message \wp[1]{\WF[Qmail Command?]~d{ \\issue command for dnload \to[%VH]\wf[messages found.... 0]\IW+[q{\eb] \\ checks for messages \\to[%VH]\wf[no messages were found]\IW+[q{\eb] \\ checks for messages \to[254]\WF[Do you]~y{ \\ waits for prompt \CA-[\SVA[X]\eb] \IW+[\bl[renfile]] \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ download mail packet. \CA-[\SVA[X]\eb] ~~{\WF[Command?]~q{ \CA+[\ie+%VX,X[\bl[extfile]]] \\ Extract newfiles.dat from qwk packet \to[40]\bl[2quest] \\ return to main. \SVG[X]\svt[0]\eb |MMul \+VT[1] \IE+%VS,X[\eb] \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display ~\if+Hit "[Enter"] to continue?[{] \\ if prompt do it. \\if+Time Adjusted[{\SVA[X]\eb] \\ Some systems will \if+Time Expired!![{\SVA[X]\eb] \\ error if not enough \if+Automatic Logoff[{\SVA[X]\eb] \\ time to do file transfer \WF[Command?]~u{\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[MMul]] \\ give upload command \WF[B01]\IW-[\SVS[]\bl[2quest]\gb[MMul]] \ulz-[%VP%V1] \\ do Zmodem upload of mail \it+[\dc-[copy %VP%v1 %VP1%V1]] \\ if successful ren file \IT+[\DC-[del %VP%V1]] \\ del old file. \SVS[X]\svt[0]\eb |MMdl \IE+%VG,X[\eb] \dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{] \\ if prompt command \\if+Time Adjusted[{\SVA[X]\eb] \\ some error messages \if+Time Expired!![{\SVA[X]\eb] \\ some error messages \if+Automatic Logoff[{\SVA[X]\eb] \\ some error messages \WF[Command?]~d{ \\ Enter download command \to[%VH]\WF[No Messages Found]\IW+[\sva[x]q{\eb] \to[254]\wf[Total M]\IW-[q{\eb]~y{ \\check message \CA-[\SVA[X]\eb] \IW-[\wf[you]y{] \CA-[\SVA[X]\eb] \IW+[\bl[renfile]]\CA-[\SVA[X]\eb]\\ make backups of the existing qwks \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ do Zmodem transfer \CA-[\SVA[X]\eb] \to[40]\WF[MarkMail Command?]q{ \\ Quit door \CA+[\ie+%VX,X[\bl[extfile]]] \\ Extract newfiles.dat from qwk packet \IE-%VX,X[\pa[4]]\bl[2quest]\SVG[X]\eb \\ run prompt command. \SVG[X]\svt[0]\eb |RMul \+VT[1] \IE+%VS,X[\eb] \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display ~\if+Hit "[Enter"] to continue?[{] \\ if prompt do it. \\if+Time Adjusted[{\SVA[X]\eb] \\ Some systems will \if+Time Expired!![{\SVA[X]\eb] \\ error if not enough \if+Automatic Logoff[{\SVA[X]\eb] \\ time to do file transfer \WF[Command?]~u{\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[RMul]] \\ give upload command \WF[B01] \IW-[\SVS[]\bl[2quest]\gb[RMul]] {\ulz-[%VP%V1] \\ do Zmodem upload of mail \it+[\dc-[copy %VP%v1 %VP1%V1]] \\ if successful ren file \IT+[\DC-[del %VP%V1]] \\ del old file. \SVS[X]\svt[0]\eb |RMdl \IE+%VG,X[\eb] \dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{] \\ if prompt command \\if+Time Adjusted[{\SVA[X]\eb] \\ some error messages \if+Time Expired!![{\SVA[X]\eb] \\ some error messages \if+Automatic Logoff[{\SVA[X]\eb] \\ some error messages \CA-[\SVA[X]\eb] \WF[Command?]~d;y{ \\ Enter download command \WF[checking]\IW+[\bl[renfile]] \\ make backups of the existing qwks \CA-[\SVA[X]\eb] \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ do Zmodem transfer \CA-[\SVA[X]\eb] \to[40]\WF[Command?]q{ \\ Quit door \CA+[\ie+%VX,X[\bl[extfile]]] \\ Extract newfiles.dat from qwk packet \IE-%VX,X[\pa[4]]\bl[2quest]\SVG[X]\eb \\ run prompt command. \SVG[X]\svt[0]\eb |KMul \+VT[1] \IE+%VS,X[\eb] \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ message display ~\if+Hit "[Enter"] to continue?[{] \\ if prompt do it. \\if+Time Adjusted[{\SVA[X]\eb] \\ Some systems will \if+Time Expired!![{\SVA[X]\eb] \\ error if not enough \if+Automatic Logoff[{\SVA[X]\eb] \\ time to do file transfer \WF[Kmail Command?]u{~\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[KMul]] \\ give upload command \WF[B01]\IW-[\SVS[]\bl[2quest]\gb[KMul]] {\ulz-[%VP%V1] \\ do Zmodem upload of mail \it+[\dc-[copy %VP%v1 %VP1%V1]] \\ if successful ren file \IT+[\DC-[del %VP%V1]] \\ del old file. \SVS[X]\svt[0]\eb |KMdl \IE+%VG,X[\eb] {\dm23[Starting to do Mail Dnload]\CA-[\SVA[X]\eb] \\ Message display \WP[1]{\TO[254]~\if+Hit "[Enter"] to continue?[{] \\ if prompt command \CA-[\SVA[X]\eb] \\if+Time Adjusted[{\SVA[X]\eb] \\ some error messages currently off. \if+Time Expired!![{\SVA[X]\eb] \\ some error messages \if+Automatic disconnect[{\SVA[X]\eb] \\ some error messages \if+Automatic Logoff[{\SVA[X]\eb] \\ some error messages \WF[Command?]~d{ \\ Enter download command \to[%VH]\WF[No Messages Found]\IW+[q{\eb] \to[254]\wf[Do You Want]~y{ \\check message \CA-[\SVA[X]\eb] \\to[254]\wf[Total M]~\rvd-[15]\dvd[9]\ie+%vd,%VG[\sve[M]]~y{ \\check message \IW+[\bl[renfile] \\ make backups of the existing qwks \TO[254]\CA-[\SVA[X]\eb] \WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ do Zmodem transfer \CA-[\SVA[X]\eb] \ie+%ve,M[\+vb[1]\gb[KMdl]\\if maximum # of messages re-due MM block \CA-[\SVA[X]\eb] \to[40]\WF[Command?]q{ \\ Quit door \CA+[\ie+%VX,X[\bl[extfile]]] \\ Extract newfiles.dat from qwk packet \IE-%VX,X[\pa[4]]\bl[2quest]\SVG[X]\eb \\ run prompt command. \SVG[X]\svt[0]\eb |MRul \\MegaMail \IE+%VS,X[\eb] \dm23[Starting %v1 Mail upload]\PA[1] \WF[B01]~\ULZ[%VP%V1] \it+[\dc-[copy %VP%V1 %VP1%V1]] \\ these commands I am not sure if \IT+[\DC-[del %VP%V1]] \\ there needed w/Megamail. \SVS[X]\eb |MRdl \IE+%VG,X[\eb] \PA[5]\dm23[Starting %V4 Mail download] \IW+[\bl[renfile] \\ make backups of the existing qwks \to[254]\WF[B00]~\DLZ[%VP%V4] \\ I have been told that this isn't \to[40]\DM22[Leaving MegaMail Door]\SVG[X]\eb \\ needed... I don't really know. \svt[0] |OMul \+VT[1] \IE+%VS,X[\eb] \CA-[\SVA[X]\eb] \\ display message \WF[ommand,]~u{\IW-[\SVS[]\bl[2quest]\gb[OMul]] \\ issue upload command \WF[ZIP]{ \\ Compression \wf[B01]\IW-[\SVS[]\IVt+9[\svt[0]\eb\bl[2quest]\gb[QMul]] \ulz-[%VP%V1]\it+[\dc-[copy %VP%v1 %VP1%V1]\DC-[del %VP%V1]] \SVS[X]\svt[0]\eb \\ above block renames \\ *.rep to 1*.rep |OMdl \IE+%VG,X[\eb] \dm22[Starting to do Mail Upload]\CA-[\SVA[X]\eb] \\ Display message \wp[1]\WF[Command,]~d{ \\ issue command for dnload \WF[ZIP]{ \\ Compression \WF[limit]{ \\ Message limit \WF[New Files?]y{ \\ New file option \WF[Your Personal Messages?]N{ \\ Persional message option \to[%VH]\wf[SysOp-Defined Maximum Number]\IW+[\SVL[X]\eb] \\ checks for message limit \to[254]\WF[Transfer]~S{ \\ waits for prompt \CA-[\SVA[X]\eb] \IW+[\bl[renfile]] \TO[254]\WF[B00]\iw-[\SVA[x]\eb]\dlz-[%VP%v4]\IT-[\SVA[X]]\\ download mail packet. \IVL+X[\+Vb[1]\SVL[]\bl[OMdl]] \CA-[\SVA[X]\eb] ~~{\WF[Command?]~q \CA+[\ie+%VX,X[\bl[extfile]]] \\ Extract newfiles.dat from qwk packet {\to[40]\bl[2quest] \\ return to main. \SVG[X]\svt[0]\eb |renfile \CA-[\SVA[X]\eb] \dm[ Altering file names ] \lm[V0=%V0 Va=%Va Vb=%Vb VC=%VC ] \\ logs messages to disk about- \lm[VD=%VD VE=%VE VF=%Vf VG=%VG ] \\ variables being used. \IE+%Vb,9[\dc-[del %VP8%v4]\gb[8]] \\ From here to the end of the \IE+%Vb,8[\dc-[del %VP7%v4]\gb[7]] \\ end of this section, these \IE+%Vb,7[\dc-[del %VP6%v4]\gb[6]] \\ commands will rename the qwks \IE+%Vb,6[\dc-[del %VP5%v4]\gb[5]] \\ to the defined setup. \IE+%Vb,5[\dc-[del %VP4%v4]\gb[4]] \\ . \IE+%Vb,4[\dc-[del %VP3%v4]\gb[3]] \\ . \IE+%Vb,3[\dc-[del %VP2%v4]\gb[2]] \\ . \IE+%Vb,2[\dc-[del %VP1%v4]\gb[1]] \\ . \IE+%Vb,1[\gb[delfile]] \\ . \IE+%Vb, [\gb[delfile]] \\ . \IE-%V6,[\gb[delfile]] \\ . |9 \\ . \dc-[ren %VP8%v4 9%v4]\gb[8] \\ . |8 \\ . \dc-[ren %VP7%v4 8%v4]\gb[7] \\ . |7 \\ . \dc-[ren %VP6%v4 7%v4]\gb[6] \\ . |6 \\ . \dc-[ren %VP5%v4 6%v4]\gb[5] \\ . |5 \\ . \dc-[ren %VP4%v4 5%v4]\gb[4] \\ . |4 \\ . \dc-[ren %VP3%v4 4%v4]\gb[3] \\ . |3 \\ . \dc-[ren %VP2%v4 3%v4]\gb[2] \\ . |2 \\ . \dc-[ren %VP1%v4 2%v4]\gb[1] \\ . |1 \\ . \dc-[ren %VP%v4 1%v4]\gb[delfile] \\ * end of ren file commands * |delfile \\ . \dc-[del %VP%v4] \\ By default, this will delete one file. |Prodoor \\ Probably will eliminate this one. \dm[Entering prodoor]\CA-[\eb] \to[20]\wf[ommand]{\iw-[\gb[prodoor]] \\ enters prodoor if not successful \wf[ommand]open %V3{\pa[5] \\ at prompt try again. Open other \eb \\ wise. |FILES \fe+%S:%VI.up[\sv3[5]\SVT[0]\bl[fileInfo]] \lm[ New File listing for «═════════ %VI ══════════» ] \ie+N,%VC[\eb] \CA-[\SVA[X]\eb] \IE+%VF,X[\eb] \CA-[\eb]\dm[Scanning for new files]\WP[1] \\ check carrier \wf[ommand]n s %VC ns{\pa[2] \\ issues command for new file \to[60]\bl[2quest] \\ scan and then runs quest block \\fe+%S:%VI.msg[\svt[0]\bl[upmess]] \eb |FileInfo \\CA-[\SVA[X]\eb] \dm22,22[fileinfo block, getting file name] \GV0[%S:%VI.up] \\ Reads info on current line of file \\II+(,%V0[ \bl[other] \GB[fileInfo] ] \\ if ( is contained on \bl[quest2] \\ line, change conferences. \\II+/,%V0[ \bl[join] \GB[fileInfo] ] \\ if / is contained on \bl[quest2] \\ line, change conferences. \II+%V0,^Z[ \gv[] \bl[okfile] \BL[upload] \bl[clear] \bl[upclean] \ST[ ]\eb] \\ This checks for end of file marker. \IE+%V0,"+[\bl[okfile] \BL[upload] \bl[clear] \GB[FileInfo] ] \\ If "+" is on this line \\ do U/L and repeat block. \II+%V0,"*[\EB] \\ If "*" is on this line \eb and \\ then do U/L \SV%V3[%V0]\+v3[1] \GB[FileInfo] \\ sends info and repeats block. |okfile \fe+%U:%v5[\svo[ok]] \fe+%D:%v5[\svo[ok]] \fe+c:\host\boyan1\%v5[\svo[ok]\SVK[c:\host\boyan1\%v5]] \fe+c:\host\tribbs\%v5[\svo[ok]\SVK[c:\host\tribbs\%v5]] \fe+c:\host\program\%v5[\svo[ok]\SVK[c:\host\program\%v5]] \fe+c:\host\wp1\%v5[\svo[ok]\SVK[c:\host\wp1\%v5]] \fe+c:\host\window\%v5[\svo[ok]\SVK[c:\host\window\%v5]] \fe+c:\host\dos1\%v5[\svo[ok]\SVK[c:\host\dos1\%v5]] \fe+c:\host\readers\%v5[\svo[ok]\SVK[c:\host\readers\%v5]] \fe+c:\host\other1\%v5[\svo[ok]\SVK[c:\host\other1\%v5]] \fe+c:\host\BUS\%v5[\svo[ok]\SVK[c:\host\BUS\%v5]] \fe+c:\host\COMM1\%v5[\svo[ok]\SVK[c:\host\COMM1\%v5]] |clear \sv5[]\sv6[]\sv7[]\sv8[]\svo[] \\ Clears info stored in variables 5-8 \sv3[5]\svt[0] \\ Set variable 3 to 5 for use in \\ fileinfo block |upclean \ie+%VI,new[\eb] \dc-[copy %S:%VI.up %S:1%Vi.up] \dc-[del %s:%vi.up] |upload \wp[1] \CA-[\SVA[]\eb] \IE+%VU,X[\eb] \IE+%VT,9[\SVT[0]{] \IE-%VO,ok[\eb] \IE+%V5," `[\eb] \\ if nothing is contained in %V5 end block \IE+%V5,"+[\eb] \\ if + is contained in %V5 end block \dm23,23[Starting file upload]\CA-[\eb] \\ check carrier \if+Insufficient[{\eb] \\ issue upload & file name \if+Upload (Enter)=none?[{\eb] \\ issue upload & file name \if+(Enter)=none?[{\eb] \\ issue upload & file name \if+Enter the Filename[{\eb] \\ issue upload & file name \if+? ([\bl[upinfo]\eb] \if+Enter the Filename[\bl[upinfo]\eb] \if+enter a description[\bl[upinfo]\eb] \if+exists[\eb] \if+duplicates[{\eb] \IF+Main Board Command?[u %v5 {\gb[upload]] \\ issue upload & file name \IF+"] Main Board Command?[u %v5 {\gb[upload]] \\ issue upload & file name \IF+Your Main Menu[u %v5 {\gb[upload]] \\ issue upload & file name \IF+Conference Command?[u %v5 {\gb[upload]] \\ issue upload & file name \IF+ Command[u %v5 {\gb[upload]] \\ issue upload & file name \if+B01[\bl[upinfo]\eb] \pa[2]\+VT[1]\gb[upload] \eb |join \II-/,%V0[ \eb ] \dv0[1] j `%v0 q ns{ \\ Command to change conferences. \bl[2quest] |other \\ this block is flagged by a ( \\ in the %VI.dow file. The ( \\ is deleted and the other commands \\ on this line are sent. ie: \\ F 080192 \dv0[1] %v0 q ns{ \\ Command to change conferences. \pa[30]\bl[2quest] |upinfo \CA-[\SVA[X]\eb]\to[5] \if+ommand[\eb]%V6{ \\ if not correct prompt end \II-%v7, [\WF[? ( ]%v7{|%v7{] \\ if not then add file \II-%V8, [\WF[? ( ]%v8{|%v8{] \\ description. {\pa[1]{\CA-[\SVA[X]\eb] \fe+%U:%v5[\WF[B01]\ko[0]\ulz-[%v5]{\bl[checking]] \\ Start Zmodem transfer. \fe+%D:%v5[\WF[B01]\ko[0]\ulz-[%D:%v5]{\bl[checking]] \\ Start Zmodem transfer. \fe+%VK[\WF[B01]\ko[0]\ulz-[%VK]{\bl[checking]] \\ Start Zmodem transfer. |checking \to[12]\wf[ZIPLAB PLUS] \IW+[\to[50]\svj[x]\WF[passed]] \\ If system does file check \IW-[\to[40]\wf[command]] \\ If system does file check {\bl[2quest]\svj[] \\ pause and then run quest bl. |dowlst \CA-[\SVA[X]\eb] \GV0[%S:%VI.dow] \\ Reads info on current line of file \II+/,%V0[ \bl[join] \GB[dowlst] ] \\ if / is contained on \bl[quest2] \\ line, change conferences. \II+(,%V0[ \bl[other] \GB[fileInfo] ] \\ if ( is contained on \bl[quest2] \\ line, change conferences. \IE+%V0,^Z[ \gv[] \ST[ ] \bl[wipefile] \eb]\\ This checks for end of file marker. \SV9[%V0] \bl[download] \GB[dowlst] \\ sends info and repeats block. |upclear \sv0[]\sv9[] \\ Clears info stored in variables 0&9 |wipefile \dc-[copy %S:%VI.dow %S:1%VI.dow] \dc-[del %S:%VI.dow] |download \IE+%VD,X[\eb] \fe+%D:%V9[\eb] \fe+%U:%V9[\eb] \fe+c:\host\%V9[\eb] \iv9+[\eb] \CA-[\eb]\dm8[Starting file dnload]{ \\ check carrier \if+Insufficient time remaining[\bl[2quest]\eb]\\looking for time - endblock \if+uploads are currently disabled[\bl[2quest]\eb]\\looking for disabled - endblock \if+found on disk![\bl[2quest]\eb] \\ looking for found to - endblock \if+ommand[db;%v9{\gb[download]] \\ looking for command to - download \if+ilespec[{\gb[download]] \\ execute download commands \if+(1) Enter the filename[{\svt[0]\bl[2quest]\eb] \\ error message and abort block \if+(G)oodbye after Batch[{\gb[download]] \\ looking for this to proceed \if+(A)dd a File[{\gb[download]] \\ looking for this to proceed \if+Download (Enter)=none?[{\gb[download]] \\ looking for this to proceed \if+(2) Enter the filename[{\gb[download]] \\ looking for this to proceed \if+(3) Enter the filename[{\gb[download]] \\ looking for this to proceed \if+(4) Enter the filename[{\gb[download]] \\ looking for this to proceed \if+(5) Enter the filename[{\gb[download]] \\ looking for this to proceed \if+(6) Enter the filename[{\gb[download]] \\ looking for this to proceed \if+(7) Enter the filename[{\gb[download]] \\ looking for this to proceed \if+(8) Enter the filename[{\gb[download]] \\ looking for this to proceed \if+(9) Enter the filename[{\gb[download]] \\ looking for this to proceed \II-.zip,%V9[\if+B00[\dlz-[o:\test1\%V9]\pa[1]\svt[0]\bl[2quest]\eb]] \\ waits for Zmodem signal/dnloads \II+.zip,%V9[\if+B00[\dlz-[%V9]\pa[1]\svt[0]\bl[2quest]\eb]] \\ waits for Zmodem signal/dnloads \if+Transfer Ended[\svt[0]\bl[2quest]\eb] \\ Cycles quest block \if+found[\bl[2quest]\eb] \\ Error message and quest block \+vt[1]\ivt+15[\eb] \pa[2]{\gb[download] \eb |upmess \ivt+45[\svt[0]\bl[2quest]\eb] \if+command[e \svt[0]\gb[upmess]] \if+=`ALL[sysop{\svt[0]\gb[upmess]] \if+(R)e-enter User's Name[r{\svt[0]\gb[upmess]] \if+Subject (Enter)=abort[Hang ZipLab{\svt[0]\gb[upmess]] \if+Use Full Screen Editor?[y{\svt[0]\gb[upmess]] \if+echo[y{\svt[0]\gb[upmess]] \if+(------------------[\ula-[%S:%Vi.msg]\svt[0]\dc-[copy %S:%vi.msg %S:1%vi.msg\eb] \if+To (Enter)=`ALL[sysop{\svt[0]\gb[upmess]] {\+vt[1] \gb[upmess] \\Perform (S)oundex Search, (R)e-enter User's Name or (C)ontinue on? (S) |logoff \\ Log off block \svx[] \ca-[\eb]\svb[]\svc[] \dm[Getting ready to log off] \\ Message display. \wp[1]\ko[ ]\to[12]\au+ \\ check carrier & reset settings \\ie+%S#,22[\ca-[ATZ{\eb]g y~{\eb] \ca-[\EB]g y{ \ca-[\EB|{~{\eb] \\issue <G>oodbye command before hanging up. |calback \\ Call back block if error occurred \dm20[ Script terminating, unable to log on ] \\ not get logged onto \dm21[ You have three seconds to hit ESC ] \\ the system, lets try \dm22[ before logging off this system. ] \\ again on another call. \pa[3]\um[ %SN terminated at %HR %MI ] \\ place note in user log. \qa+[%v0]\SVA[]{\ko[] \\ adds current system phone number to queue \IE+ON,%LD[\LD-] \\ Checks log status and turns off if necessary g y{~atz{~\AB |Settings \sv0[1] \DM4,%V0[ ╔═══════════════════════════════════════╗ ]\+V0[1] \DM4,%V0[ ║ Current settings ║ ]\+V0[1] \DM4,%V0[ ╠═══════════════════════════════════════╣ ]\+V0[1] \DM4,%V0[ ║ Avail. shell MEM : %DS ║ ]\+V0[1] \DM4,%V0[ ║ Current Act Module : %AM ║ ]\+V0[1] \DM4,%V0[ ║ Pervious Act Mod : %AP ║ ]\+V0[1] \DM4,%V0[ ║ Beep & Bells : %BB ║ ]\+V0[1] \DM4,%V0[ ║ 8Bit ON/OFF : %B8 ║ ]\+V0[1] \DM4,%V0[ ║ Com Port : %MD ║ ]\+V0[1] \DM4,%V0[ ║ Modem Speed : %MS ║ ]\+V0[1] \DM4,%V0[ ║ Modem Parity : %MP ║ ]\+V0[1] \DM4,%V0[ ║ Echo set to : %EC ║ ]\+V0[1] \DM4,%V0[ ║ Uart Setting : %AU ║ ]\+V0[1] \DM4,%V0[ ║ Line Feeds set to : %LF ║ ]\+V0[1] \DM4,%V0[ ║ Current Printer Set: %PR ║ ]\+V0[1] \DM4,%V0[ ║ Default Protocol : %DP ]\+V0[1] \DM4,%V0[ ║ Current Log file : %LN ]\+V0[1] \DM4,%V0[ ║ Path for Protocol : %P: ]\+V0[1] \DM4,%V0[ ║ Current Phone dir : %FD ]\+V0[1] \DM4,%V0[ ║ Connected to : %SN ]\+V0[1] \DM4,%V0[ ║ Last filename : %TF ]\+V0[1] \DM4,%V0[ ║ Current Dir : %C: ]\+V0[1] \DM4,%V0[ ║ Download Directory : %D: ]\+V0[1] \DM4,%V0[ ╚════════════════════════════════════════════════════════════════════════════════════╝ ] \KV0_[Enter to Continue: ] |*TAB \\ This runs automatically when <Tab> pressed \SV0[1] \KS \DM38,%V0[ ╔═══════════════════════════════════════╗ ] \+V0[1] \DM38,%V0[ ║ OnLine MENU %HR:%MI %Mo/%DA/%YR ║ ] \+V0[1] \DM38,%V0[ ╠═══════════════════════════════════════╣ ] \+V0[1] \DM38,%V0[ ║ <C> = find main Command ║ ] \+V0[1] \DM38,%V0[ ║ <D> = Download a file ║ ] \+V0[1] \DM38,%V0[ ║ <DM>= Download Mail (from mail door) ║ ] \+V0[1] \DM38,%V0[ ║ <E> = Edit Script ║ ] \+V0[1] \DM38,%V0[ ║ <F> = File Manager ║ ] \+V0[1] \DM38,%V0[ ║ <G> = Goodbye ║ ] \+V0[1] \DM38,%V0[ ║ <J> = Jump to DOS ║ ] \+V0[1] \DM38,%V0[ ║ <L> = Log to disk ...status %LD ║ ] \+V0[1] \DM38,%V0[ ║ <M> = Mail (check for your mail) ║ ] \+V0[1] \DM38,%V0[ ║ <N> = New File Scan ║ ] \+V0[1] \DM38,%V0[ ║ <O> = Open Door ║ ] \+V0[1] \DM38,%V0[ ║ <P> = edit Phone directory ║ ] \+V0[1] \DM38,%V0[ ║ <Q> = Quick Note file ║ ] \+V0[1] \DM38,%V0[ ║ <S> = Scroll-back buffer ║ ] \+V0[1] \DM38,%V0[ ║ <T> = Termanial Mode ║ ] \+V0[1] \DM38,%V0[ ║ <U> = Upload a file ║ ] \+V0[1] \DM38,%V0[ ║ <UM>= Upload Mail (from mail door) ║ ] \+V0[1] \DM38,%V0[ ╟───────────────────────────────────────╢ ] \+V0[1] \DM38,%V0[ ║ <R> = RESUME Script <?> Manual Macro ║ ] \+V0[1] \DM38,%V0[ ║<Esc>= ABORT script <V>iew Settings ║ ] \+V0[1] \DM38,%V0[ ╚═══════════════════════════════════════╝ ] \KO[30] \BB+ \KV0__[Enter OPTION: ] \BB- \RS \IV0+C[\SVQ[]\bl[quest]\gb[termlines]] \IV0+DM[\SVG[]\bl[KMdl]] \IV0+D[\SVD[]\bl[Download]] \IV0+E[\DC-[%WC %S:%VY]\gb[*tab]] \IV0+G[\bl[logoff]\EB] \IV0+F[\FM[]\gb[*tab]] \IV0+J[\JD\gb[*tab]] \IV0+L[\LD*\gb[*tab]] \IV0+M[R Y{\GB[termlines]] \IV0+?[\KV9[MACRO:] \LV9[] \IE+%LV,1[\SV9[%V9]]\gb[*tab]] \IV0+N[\SVF[]\bl[files]{\GB[termlines]] \IV0+O[\SVM[]op %V2 {\GB[termlines]] \IV0+P[\DI[] \GB[*Tab] ] \IV0+Q[\DC-[%WC %B:notes.txt]] \IV0+R[\gs[%VI;menu]] \IV0+S[\RB\gb[*Tab]] \IV0+T[\gb[termlines]\gb[*tab]] \IV0+UM[\SVS[]\bl[KMul]\gb[*tab]] \IV0+U[\SVU[]\bl[upload]\gb[*tab]] \IV0+V[\bl[settings]\gb[*tab]] \GB[*TAB] |TermLines \to[120] \ST[ » Press <TAB> for Menu options «] \RE[\CA-[\ab] \IK+[%IK]] \RE[\CA-[\ab] \IK+[%IK] \IF+new[\em] ] |extfile \fe+%D:%vi.qwk[\af`%S:newfiles.lst[` «═══════ File listing for %Vi %mo/%da ═══════» ]] \nd[%S:] \fe+%D:%vi.qwk[\dc-[pkunzip -o -e %d:%vi.qwk newfiles.dat]] \fe+%S:newfiles.dat[\dc-[type %S:newfiles.dat >> %S:newfiles.lst]] \fe+%S:newfiles.dat[\dc-[del %S:newfiles.dat]]\nd[%B:] |*WrapUp \\MA[7]