Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / ZCM_SCRP.ZIP / PHOMAST.T < prev next >

Wrap

Text File | 1989-06-23 | 39.6 KB | 777 lines

:: -Revised to ZComm Ver 17.29 ::MRA mods 25 Jan 89 :: ::Release 7.9 Master :: This starter script was written for your convenience by Michael Ash :: CompuServe Account: 71350,3327 :: PHOMAST4.T :: NOTICE --> for a FAST START please take a minute and follow the :: the instruction below... This script is completely modular for your :: convenience, and includes a simple HOST mode example. :: Use an ASCII editor (or WordPerfect in DOS Text mode or WordStar in :: non-document mode) to check the items below to match your particular :: computer setup. To save you time just SEARCH for sections marked with :: the symbol <*> :: 1. Under SETUP, select port 1 or 2 by uncommenting your choice. :: (Note: "uncommenting" is explained below.) :: 2. Under COLORS, select the color string you prefer. :: 3. Under MODEM SETUP, select the proper modem setup string. :: 4. Under Environment, select PULSE or TONE dial. :: 5. See HELPFILE section if you are running older versions of ZCOMM. :: Be sure to rename THIS file PHODIR.T for use with ZCOMM or PHONES.T :: for you YAM users... For those of you that haven't heard of YAM, it's :: the short name for Professional-YAM, a commercial package that includes :: all of ZComm (its shareware subset) plus advanced capabilities for :: professional telecommunications requirements. :: Set up a Subdirectory for C:\ZCOMM and path it in AUTOEXEC.BAT file. :: The following may be added to your autoexec.bat file to give :: color to your 'flash-up' help processor... comments here in () :: set PHONES=c:\zcomm\phodir.t (keeps .t out of root) :: set NORMATTR=2 (sets normal to green) :: set REVATTR=3 (sets reverse to blue) :: set UNDLATTR=10 (makes underline brt green) :: This script expects to find ZCOMM and PHODIR.T in C:\ZCOMM and a :: C:\ZCOMM\TEMP temporary subdirectory... :: Note a ":" before line makes it a comment... this is the method :: to activate OR deactivate lines of code. To turn something OFF :: just put a ":" in front of the line. Words ending with a ":" that :: start in column #1 are labels... :: To activate menu status or make a call from DOS command line enter: :: zcomm gosub menu <-- or --> zcomm call apco :: either via a batch file or directly as a DOS command... :: NOTICE that APCO and CIS auto-log demos are set for local San Antonio :: numbers... These numbers may differ in your area. APCO is an example :: of an auto-log to a TComm(tm) Bulletin Board System. :: That should get you going! Once you are up and running look at the :: other commented features that will give you even more POWER... :: ---------------------------- :: I have spent many hours on this beginner script to make ZCOMM or YAM :: useful to the novice user right out of the starting block. If this :: has helped you get a better grasp of the package I would like to hear :: from you. If you find it truly useful, and you think my time is worth :: something, please send me a dollar and I'll go out for coffee. :: What ever you do, I would appreciate a postcard, just to get an idea :: of who this script finally reached... :: Michael Ash :: 3766 Tupelo Ln #2904 :: San Antonio, TX 78229 :: Happy Computing... :: ---------------------------- :: <*> >>> This SETUP script is where it all begins <<< setup port 1 :designate COM1 : port 2 :designate COM2 (note ':' turns this OFF) ena -d :suppress the Carrier Lost msg during setup : ena -D :establishes a 2sec timing loop for line hits :(use for call waiting where you can't disable) : pa4000 :use for clones running 8 MHz and above... pd1 :turn on time stamping pi10 :set redial for 10 seconds... pt4 :set ascii throttle to 20 char/sec (lower=faster) pv-1 :Verbose OFF (-1 shows none; 50 shows all) pz360 :set CST time zone {could use DOS: set ZONE=360} display bell=visual :turns off bell sound :: The option below allows you to hit an up arrow key to use past :: commands by setting up a history file. Since all keystrokes are :: recorded, (including passwords) you may want to have your calling :: batch file delete it or use a RAMDISK when active for security. history c:\zcomm\histfile :: <*> --- Set up DISPLAY COLORS below --- :: settings: n=text, r=reverse, u=undline, s=status line, :: *=message, @=file indicator (normally binking i.e. files open) :: For example: 2=green, 3=blue, 10=bright green etc... if dc pn7 pr7 pu7 ps7 p*7 p@7 :setup for monochrome monitor : if dc pn15 pr15 pu15 ps15 p*15 p@15 :Colors for composite monitors : if dc pn3 pr10 pu10 ps14 p*10 p@10 :if RGB, a color monitor string : if dc pn31 pr30 pu15 ps14 p*15 p@79 display warpdrive :gas plasma : >>> The line BELOW sets up an EGA/VGA monitor <<< : if dc pn2 pr10 pu6 ps3 p*3 p@3 display warpdrive :EGA/VGA color :: -------------------- : if c goto online :if carrier detected skip modem setup :: Modems using stored profiles will have to initialize and store it :: before this will function correctly...(i.e. Hayes 2400) :: The above line allows you to check the carrier status when YAM/ZCOMM is :: loaded. This means you can take full advantage of the eXit to DOS :: function. Anytime you are on-line you can get to the command line by :: hitting F1 then enter 'X'. What this does is unload the communication :: program but leaves the modem and serial port active. Now you have full :: access to DOS and can return on-line (as long as the host doesn't time :: out). Once through with DOS, re-load YAM/ZCOMM like you did initially :: and WAM -- you're back on-line as if you had never left... To utilize :: uncomment this line and one a couple of screen down stating: "if !c..." :: --- Check Modem Status --- echo "\n\n\n\t\t\t>>> Modem setup in progress <<<\n\n" :: Below is an example of how to use color and graphics (off now) : echo "\n\n\n\t\t ╓──────────────────────────────────────╖" : echo "\t\t ║ \E[44;1;33m >>> Modem setup in progress <<< \E[0m ║" : echo "\t\t ╙──────────────────────────────────────╜\n" sp 1200 : Initially set up speed at 1200 baud pat 9 K\r\n : Check for OK from modem rc: put "ATZ\r"; wait -f3 : ATZ then wait up to 3 sec for OK if 9 goto modset : If Modem on (OK) skip error msg echo "\n\t\t Please turn your modem ON, or check port setup..." sleep 20 : You get 2 seconds to turn it on! cls; goback rc : Check modem again... :: <*> --- Some of the common MODEM SETUP commands definitions --- :: &C1=Data Carrier Detect &D2=hang up with change in DTR &J=jack type :: E1=modem echos commands back to terminal V1=Word result codes :: &S1=run RS232C spec &W=Save config to nonvolatile memory L=speaker low :: X4=Detect dial tones and busy signals; enable extended result codes. :: With this activated (default for most modems) status messages are :: sent to the screen about modem activity. English words instead of :: number codes are displayed on the screen. :: S0=answer rings S6=dial tone wait S7= wait for connect S8=pause for "," :: S9=Carrier det response S10=delay carrier lost and hangup S11=dial speed :: Remember if your modem doesn't hang up correctly try &D2 in the string. modset: putw "AT E1 V1 X1 S0=0 S7=60 S8=2 S11=50 \r" :Normal 1200 baud setup : -- Line below is an alternate 1200 baud setup command -- : putw "AT E1 Q0 S0=0 S6=3 S7=40 S8=2 S10=10 S11=50 V1\r" ; wait -f2 : putw "AT E1 L X4 V1 &C1 &D2 &J &S1 \r" :Hayes/Zenith 2400 baud : putw "AT S0=0 S6=3 S7=60 S10=10 S11=50\r" :second line : putw "ATZ0\r" : Recalls Hayes Profile 0 if already defined : put "AT E0 V1 X4 &D2 \r" :for everex 2400 baud :: -- ZOOM 2400 baud internal modem setup below -- : handshake both : Handshakes both CTS or XOff : putw "AT &C &D2 &L0 C1 X5 S9=5 S10=10 S11=40 S25=0 +Z0=2 +Z3=45\r" : S25 DTR timing to 0 seconds : wait -f1 : Wait 1 second and let modem catch up... :: <*> --- Setup Environment Variables --- online: : set mprefix ATDP : Pulse Dial (commented out here) set mprefix ATDT : Tone Dial : set mprefix ATDT1170, : Tone Dial plus call wait defeat (Texas) set l "1"; set m "1" :: Above Sets long distance carriers. You have two choices 'l' & 'm' :: (i.e. MCI, Sprint). Starting a phone# with %m will call that number :: using the pre-defined phone account... set answerback "\r\nYour NAME and CITY\r\n\21" set disks "abcdef" :set up active disks :: Note the prompts below can be anything you wish... set mprompt "\r\E[1m(F9=Menu) %drive:\L%pwd-> \E[m" :Help prompt : set mprompt "\r\E[1m%drive:\L%pwd->\E[m " :Normal path prompt set hprompt "\r\E[1m%drive:\L%pwd\U [HOST]->\E[m " :HOST mode prompt set fleft "@mput \b" : Makes left arrow destructive bksp set fright "@mput \40" : Makes right arrow a right space set adlopts r : Makes Auto ZModem use crash recovery set quitcmd \003\336off\r : ALT Q logs off automatically after d/l set dirrx c:/zcomm/temp : Sets up default for downloaded files set tmp c:/zcomm/temp : Both tmp and lib are shortcut paths : set lib c:/arc_stor : you can use in your script. For example : if later you add the line 'cd %tmp' it : will put you in the c:\zcomm\temp : subdirectory... :: <*> -- HELPFILE Defined Below -- set helpfile "@!yhp \zcomm\zmanh.hlp zmain" :Call Help Processor 17.29+ : set helpfile "@yhp \zcomm\zmanh.hlp" :(older ZCOMM/YAM call) :: -- Optional setup statements -- : set calllog c:/YAM/calllog : Setup call log (YAM only) :: -- Define Function Keys -- key: cls :Notice how a label starts in Col 1 and ends in a ":" reskeys :reset function keys :: Explained below is the function key define command 'set'. Note below :: the command format sets a FUNCTION KEY to a specific task: set f3 @accept s1 "Enter name of \Capture File: " ; create -s+ %s1 ; t : Notice that I used a special case of the 'set' command where the : key definition actually appears on the next line starting in col #1. : The reason for this is normally function key commands are in : quotes, yet here I wanted a quoted string inside the command. To : avoid having quotes within quotes, there is a special version of the : set command that accepts the next line starting in column 1, as an : implied command. This means you don't need quotes around it... : To explain how the command works remember anything beginning with : an "@" sign is a YAM/ZCOMM command (a @! allows you to execute a DOS : program). Let look at this command defining f3 step by step... : The command "set" tells the program to set the function key : (this case F3) to the following string: : @accept s1 Enter name of Capture File: ;create -s+ %s1 ; t : You could have used an escape sequence \40 to define a space : in the string but only necessary in single line format. This will : make the prompt --> Enter name of Capture File: <-- Now the "accept" : command assigns anything you type in response to this prompt and : stores in a variable s1. Remember ";" is just a way to : separate multiple commands on each line, so you see when we come to : next command "create", it causes a capture file to be opened : using the name you have entered. The modifiers -s+ means, strip : off control characters (-s) and append to the file (+) if it already : exists. Notice the argument %s1 will insert the file name : added after the prompt (stored in s1), and ;t just puts YAM/ : ZCOMM back into terminal mode (ie connected to the other computer) : instead of leaving you in command mode. : You see the PLUS of YAM/ZCOMM is that you can make things look : anyway you want. You can set 38 function keys ( remember that : F1 moves you from circular buffer to terminal mode to command mode : and F2 moves you in the opposite direction). YAM/ZCOMM has THREE : displays and this is a FAST way to move between them... : Now set a series of function keys to activate specific commands... :: --- NORMAL Function Key Definitions --- set f4 @accept s1 "Send ASCII Msg named: " f -p %s1 : send ASCII text or upload : a message... set f5 @accept s1 "Send file using Kermit called: " kermit sb %s1 : send Kermit set f6 @accept s1 "Send file using ZModem called: " sz -Z %s1 : above sends file with ZModem Run Length Encoding (RLE) using '-Z' set f7 @accept s1 "Receive file using CRCXModem called: " rc %s1 :receive CRCXmodem set f8 @accept s1 "Send file CRCXModem called: " sx %s1 :send CRC Xmodem set f9 "@gosub menu" :Call Quick Reference set f10 "@help" :Call help processor :: --- SHIFTED Function Key Definitions --- set fs3 "@gosub color" set fs4 "@echo working...; gosub tlearn" set fs5 : check phone dir entries @accept s5 "Search for title name: "; find \n%s5 %phones set fs6 @echo "\t\t\t Shift F6 not defined -- Hit F9" set fs9 "@!q" : @! allows call to DOS programs, in this case QEdit :: --- ALT-ed Function Key Definitions --- set fa1 "@call -100 apco3" : Examples of key assign set fa2 "@call -100 ap" : note "@call -100" will set fa3 "@write; close" : call number up to 100 set fa4 "@kill; call -100 CIS12" : times if busy. set fa5 "@kill; call -100 pcmag" : kill clears buffer... set fa6 "@kill; bye; gosub host" : Call for HOST mode set fa7 "\t\t\t <your name here>\r" : When on-line, Alt-7 signs : your name in a message... set fa9 "@!q c:\zcomm\phodir.t" : Calls QEdit, loads phodir.t :: This is an opening msg for new ZComm users and can be commented :: out if you wish to skip the opening message. echo "\n\n\t\t -=* Press F9 for Quick Reference *=- \n\n\n\n\n\n\n\n" :: Second part of testing for on-line conditions :: (Optional) : if !c return :if no carrier return, else go online : echo "\t\t System still on-line with remote server..." : putw "\r" ; t :hit return and return to terminal mode return : Returns system back to terminal mode :===========================================================================: menu :On screen Menu Generation... cls; echo " >>> ZComm Function Key Menu <<< " echo " " echo "Alt-N EMERGENCY EXIT, 'Nuke It' to get out of trouble/escape a command " echo " " echo "F1 Exit Circular Buffer F2 Enter Circular Buffer " echo "F3 OPEN Capture file F4 Send ASCII Text " echo "F5 Send Kermit Upload F6 Send Zmodem Upload <<BEST>> " echo "F7 Receive CrcXmodem Download F8 Send CrcXmodem Upload " echo "F9 Press for THIS HELP SCREEN F10 Flashup Help Processor " echo "Alt-1 Get DOS Command prompt Alt-2 Get ZCOMM Command prompt " echo " " echo "sF3 Show some ZComm color choices sF4 Use Turbolearn Script Writer " echo "sF5 Search for dialing entry sF6 <not defined> " echo " " echo "aF1 AutoLog APCO (300 baud) aF2 AutoLog APCO (1200 baud) " echo "aF3 CLOSE Capture file aF4 CIS DEMO at 1200 baud " echo "aF5 Call PC Magazine's BBS aF6 Enter HOST MODE operation " echo "aF7 Sign name on-line ALT-F9 Edit PHODIR.T SCRIPT " echo " " echo " TO CALL OTHER BBSs: enter 'call name' where name is a label " echo " " echo "Stop Redialing ---- press <CR> Hangup w/o pgm exit - enter 'bye' " echo "PgUp into Buffer; <CR> to return -> EXIT hit F1 then -- enter 'off' " return :: --- Color Generation examples --- color cls; echo "\n\t\t\t \E[32m\E[41m >>> ANSI Color Calls <<< \n\n" echo "Foreground:\n" lput "\E[47m\E[30m\\E[30m\E[40m \E[31m\\E[31m \E[32m\\E[32m \E[33m" lput "\\E[33m \E[34m\\E[34m \E[35m\\E[35m \E[36m\\E[36m \E[37m\\E[37m" echo "\n\nBackground:\n" lput "\E[40m\\E[40m \E[30m\E[41m \\E[41m \E[42m \\E[42m \E[43m \\E[43m " lput "\E[44m \\E[44m \E[45m \\E[45m \E[46m \\E[46m \E[47m \\E[47m \n\n" echo "Modifiers (primary green):\n \E[32m" :Switch foreground back to green lput "\E[0mReset, Bold, Faint, Italics, Underline, Blinking," lput " Reverse, Invisible\n\r" lput "\E[0m\\E[0 \E[1m\\E[1m \E[2m\\E[2m \E[3m\\E[3m\E[0m \E[4m\\" lput "E[4m\E[0m \E[5m\\E[5m or \\E[6m \E[0m \E[7m\\E[7m\E[0m \\E[8m" echo "\E[36m\E[21f\t\t Notice \\E[21f puts cursor on 21rd line...\E[23f" return :===========================================================================: : --- Auto Logon Section --- : apco12 cls; echo "\n\t\t ZCOMM is now calling APCO at 1200 Baud\n\n" ena -E -Z -8g :enaBLE Error ck, auto d/l, w graphics nolog; speed 1200 :turn off log and set speed 1200 baud goto number :Skip 300 baud dial apco3 cls; echo "\n\t\t ZCOMM is now calling APCO at 300 Baud\n\n" ena -E -Z -8g :enaBLE Error ck, auto ZModem w graphics nolog; speed 300 :turn off log and set speed 300 baud number: bye :hang up modem 654-7756 :Local dial : 1-654-7756 :Toll call (commented out) : 1-512-654-7756 :Long distance (outside San Antonio) cls : echo "\E[34m\n\n\t\t >>> Welcome to the APCO BBS -- Please standby <<<" : display inhibit :turns off display for opening setup... :(use this to not show opening screens) ena -E -Z -8g :enaBLE Error ck, auto ZModem w graphics pat; pat 1i "ENTER" :Clear patterns and look for ENTER wait :Wait for pattern : put "\rn\ry\r\r" :REQUEST graphics and color put "\r\r\r" :SKIP graphics and color restime :Reset status clock (Yam Only) pat 1i "right (y/N/why)?" wait :wait for tcomm... : display noinhibit :turn display back on if off pat 1i "ast name: " :Look for log in prompt wait :Wait until prompt occurs :: <*> Note you will have to log-on manually first to get a password on :: APCO... Since you don't have a password assigned, the line below :: skips the rest of the auto log-on and hooks you to the APCO HOST. :: When you have a name and password, add them in the 'putw' statement :: BELOW and DELETE (or comment out) this NEXT line... t; return : Abort auto-login until name assigned below. :: ^^^^^^^^^:delete this after name/password loaded below! putw "FIRST LAST NAME\rPASSWORD\r" :Enter name / password pat 2i "==" :Look for 'Announc' string of bulletins wait put \013 :Ctrl K to skip Bulletins put "q\rm\r" :Drop on menu level to prevent timeout :: >>> Alarm Section <<< display nobell=visual :Turn bell back ON lput "\r\n\n\t\t Hit *BACKSPACE* key to \E[3m\E[5mSTOP\E[0m alarm..." sleep 30 :3 sec for response before alarm while "!k&&L<20" lput "\7\7" :For 20x and While nokey, make noise if k goto bv :If keyhit then skip next call :: Put other DOS noise making program here if you wish, for example :: !sound (note the '!' will execute DOS programs from inside script) bv: cls; display bell=visual :space and quiet bell put "r\r" :Prepare to read mail... pf30 :Reset search wait (3 sec) kill :Clear circular buffer restime :Reset the timer (yam only) : create -s+ %tmp\apco%d.log :sTRIP Ctrl, append date file cd %tmp :Change directory to d/l area t :activate terminal mode return :---------------------------------------------------------------------------: : --- Second example of an auto logon script --- : CIS12 cls; bye :Note -- CIS in caps so won't be called by mistake echo "\t\t\tNow accessing CompuServe at 1200 baud...\n\n " speed 1201 435-3883 :Odd number, 2 stop bits, error trap goto cislog :Goto logon section of CIS script cis cls; bye; echo "\t\t\tNow accessing CompuServe at 300 baud...\n\n " speed 300 435-3883 cislog: sleep 20 :Sleep for 2 seconds ena -E -7e : put into Error correcting 7 bit, even parity... echo ""; echo "Sending ^C"; put \3 :Send Ctrl-C, echo doing it. pattern 1i ID: :Wait for ID wait :"i" causes immediate release putw "77770,101\r" :Enter Account (can be yours) pat 1i word: :Wait for password prompt wait putw "FREE-DEMO\r" :Enter password for demo... kill :Kill initial login text restime :Reset status timer (yam only) : create -s+ %tmp\cis.log :sTRIP hi-bit, append data file : cd %tmp :Change directory to d/l area :Set: fULL duplex, B proto, strip ctrl char, don't pAUSE for (CR) ena -fcs!p t :activate terminal mode return : --- End of Auto Log Examples --- : : -------------------------------------------- : :=============================================================================: : : :: Note: This is a "hands-on" script. It only incorporates two "auto : :: logon" examples which show how to write an auto logon script. : :: One example runs an auto logon to the Alamo PC Organization BBS, : :: and the other gets you into the demo area of CompuServe... : :: : :: The APCO BBS is currently operating under the TComm remote : :: access system software, so the auto logon script has to "see" : :: questions asked by that system and answer them. Other BBS : :: systems present a different "face" when you log on, so auto : :: logon scripts for other systems will differ somewhat. : :: : :: The normal single line phone directory entries in the directory : :: below were created with an ASCII text editor. Executing those : :: entries will place ZComm into terminal mode w/graphics enabled : :: as soon as a connect is made. This works well for making calls : :: and gives you full control of the logon process following a : :: connect. However, if you want to develop automatic logon : :: scripts, you will need to comment out or delete the entries : :: following the ';' in the directory examples below (e.g. place : :: a colon and a space in between the ';' and 't -8g'), and then : :: make 't -8g' the final entry in the auto logon routine. : :: : :: The reason for this is that placing ZComm into terminal mode by : :: entering 't' stops script pattern searches. Examples of auto : :: logon scripts may be found in Chuck Forsberg's phone scripts : :: that are distributed with ZComm, and the ZComm manual explains : :: how such auto logon scripts are constructed and how to use the : :: TurboLearn(tm) feature to automate writing scripts. I recommend : :: that new ZComm users use this script essentially "as is" for : :: a while to test your new phone directory entries and become : :: familiar (comfortable) with ZComm. Then you can enjoy the : :: challenge, the fun, and the satisfaction of modifying this script : :: to add auto logon procedures, dial queues, and the like. Keep in : :: mind that this is only a simple example script to use in learning : :: basic ZComm functions. You will have plenty of time to enhance : :: and embellish this script later. : :: : :: <<< comments courtesy of Bob Willoughby >>> : :: : :: >>> Actual Dialing Scripts Are Found Below <<< : :: Remember... those items starting with ":" are commented out : :: : :=============================================================================: : --- Simple Phone Directory Entries --- apco24 bye; speed 2400 654-7817 ena -E;t -8g :membership board # apco12 bye; speed 1200 654-7817 ena -E;t -8g public bye; speed 1200 654-7756 ena -E;t -8g :APCO public BBS :: --- Some San Antonio Bulletin Boards --- abbey_road bye; sp 1200 590-6036 ena -E;t -8g current bye; sp 1200 828-7883 ena -E;t -8g cutting_edge bye; sp 1200 641-6813 ena -E;t -8g sahug bye; sp 1200 341-0586 ena -E;t -8g :Zenith Group satug bye; sp 1200 496-1054 ena -E;t -8g teachers_lounge bye; sp 1200 344-7470 ena -E;t -8g :: Note to users -- Some of the above San Antonio bulletin boards operate :: at speeds higher than 1200 baud. If you have a 2400 baud modem, just :: edit the 'speed 1200' to read 'speed 2400' as appropriate in the above :: directory. Want to add other favorites? Just add them in with an ASCII :: text editor using the above as example entries. It's easy! :: --- Some Classic BBS systems --- buerg24 bye; sp 2400 1-707-778-8944 ena -E;t -8g :Vern Buerg's BBS buerg12 bye; sp 1200 1-707-778-8944 ena -E;t -8g jordan24 bye; sp 2400 1-301-428-7931 ena -E;t -8g :Larry Jordan jordan12 bye; sp 1200 1-301-428-7931 ena -E;t -8g genie12 bye; sp 1200 226-6513 ena -hs;t :GE Network genie24 bye; sp 2400 271-0538 ena -hs;t pcmag bye; sp 1200 1-212-696-0360 ena -E;t -8g :PC Magazine BBS pctech bye; sp 1200 1-301-576-7285 t :PC Tech Journal :: -=- End of simple phone directory entries -=- :=============================================================================: :: Generate a script with TurboLearn Script Writer(TM) :: Hit Shift-F4 to start this... tlearn set fc10 "" :: telephone number, and flag that telno was entered if c goto connected cls accept fc10 "Enter Telephone Number " ag1: accept fa1 "Enter Speed (300, 1200, 2400) " if ifa1,2400 speed 2400 goto ag2 if ifa1,1200 speed 1200 goto ag2 if ifa1,300 speed 300 goto ag2 echo "Bad speed"; goback ag1 ag2: lput "\r\n1 System uses IBM PC (ANSI) line drawing characters\r\n" lput "2 System uses 7 bits even parity\r\n" lput "3 System uses 8 bits No parity (8n1)\r\n" lput "\r\n" acceptl1 fa2 "Choose one of the above: " lput "\r\n" ena -8n @%fc10 if !c echo "Sorry, no connection"; return set fa5 "" if ifa2,1 ena -8g; set fa5 "ena -8g" if ifa2,2 ena -7e; set fa5 "ena -7e" connected: echo "Finish with F1. Use ALT-B to send a break if necessary" learn -y tlrn.tmp cn2: if !r echo "WARNING: Learning (recording) terminated prematurely!" close kill create newscr.t if !r abort echo "Is this to become a Telephone Directory entry (y/n)?" if !y goto nodir accept fa6 "What directory entry name to use? " echoc "%fa6 speed %fa1 %fc10 %fa5" nodir: close; set fa2 "" echo "Should the script disconnect the phone line (y/n) ?" if !y "!tlearn tlrn.tmp >>newscr.t"; goto scdone set fa2 "bye; return" echo "Should the script then exit to the Operating System (y/n)?" if y set fa2 "off" !tlearn -r tlrn.tmp >>newscr.t create -+ newscr.t; echof " %fa2"; close scdone: echo "Your new script is in the file 'newscr.t' !!" if %fc10 echo "You may add this file to your Telephone Directory" if %fc10 echo "Or execute it with 'call %fa6.newscr.t'"; return echo "You may execute this file with 'source newscr.t'" return :=============================================================================: :: --- Using YAM/ZComm in HOST MODE --- :: Note that for maximum -security- have this section be another file :: so users won't see your passwords. :: YAM users can comment in 'demand %password' at end of file host cls; echo " Activating host mode operation... Stand by!\n\n" sp 2400 : sp 1200 : use for 1200 baud host modem... : set home "/HOST" : Optional restricted directory :: The above command can force users into a specific area on disk. It :: CRITICAL you use "/" NOT a "\" in this command. This will lock users :: into that directory and its subdirectories. If you use this :: command, you MUST have your welcome and xhelpfile as a different :: file and this file MUST be in the directory specified by the 'set :: home' command. To function it MUST be a READ ONLY file. You may :: use HOSTHELP.TXT for this purpose but it will need to rename to :: HOSTHELP.T. Remember you will also need to add some starting :: labels and utilize new 'set welcome' and 'set xhelpfile' commands. set welcome "@gosub welcome./zcomm/phodir.t" : setup Welcome set messages "/zcomm/messages" : setup file for messages :: Private should set to another directory so people won't see :: private messages. set private "/zcomm/pmessage" : Setup private message area :: Normally section below would be in another file so people could NOT :: view your passwords. For testing you can get around this by assigning :: your script a READ-ONLY, HIDDEN attributes. For YAM users wanting to :: use the 'demand %password' option, the file CAN NOT have a HIDDEN :: attribute so you MUST put this in another directory that users can't :: access for protection. set password "xxxxxxxx" : CHANGE THIS Access Password set unrestrict "xxxxxx" : WARNING - CHANGE THIS DOS drop PASSWORD!! :: <*> -- HOST Helpfile Defined Below -- set xhelpfile "@gosub help./zcomm/phodir.t" : Custom help 17.29+ : set xhelpfile "@type hosthelp.txt>com1" : (older versions) :^^^^ set this for com1 or com2 : Notice this is an EXTERNAL file! set disks "abcdef" : Setup restricted disk area set call1 "ATZ\r\336\336ATZ\r\336\336" :prepare to answer phone... set call2 "ATZ\r\336\336ATM1X1S0=1\r\336ATM1X1S0=1\r\336\336" : Note 'call3' below would normally be a command that : requires quotes around it, but it includes a quoted string : so you MUST use this alternate form of the set command to : have the actual command start at COL #1 of the next line. : <<< This works with YAM only...>>> : set call3 : @echo "\t\t Now awaiting incoming calls... Press F1 to exit.\n\n" set answerback "\r\nYOUR NAME HERE...\r\n\21" set outahost "@pk512; putw ATE1V1X1S7=60S8=1S11=50S0=0\r;pwd; gosub menu" set baudstr "@gosub baud" : sub below to find speed pc60 : callout interval = 60 sec host : >>> Check for Caller Speed <<< baud pat 1 "CONNECT\r\n"; pat 2 "NO CARRIER" pat 3 "CONNECT 1200\r\n"; pat 4 "CONNECT 2400\r\n" pe-20 wait -Ef25 dis -E if 1 speed 300 return if 3 speed 1200 sleep 20 return if 4 speed 2400 sleep 20 return kill create -+ rings close fail welcome: :In HOST mode, below is what the user will see on login echo " >>> Welcome to YAM/ZCOMM Host Mode <<< " : demand %password :YAM users may comment this in to request password :: The 'demand' command is only available in YAM and NOT in ZComm... :: If you are using ZComm there is no way to restrict initial access :: like you can with YAM. ZComm CAN will RESTRICT access to DOS if :: user doesn't know the password ... help: :Note this is also the help message... echo " " echo " The thing to remember is that when you see the prompt followed " echo " by [HOST] it is like you are actually sitting at the host " echo " terminal... To execute commands on your own YAM/ZComm hit F1 " echo " to call your local terminal program... " echo " " echo " To open access to the complete disk enter the command: UNRESTRICT " echo " and then use the system password -- otherwise you will remain in " echo " the C:\\zcomm directory or one of its subdirectories. " echo " " echo " To see the files on the host enter: 'dir' and hit return. " echo " " echo " TO DOWNLOAD a file from the host enter 'sz filename' (wildcards OK) " echo " (Remember this is just like typing at the HOST keyboard...) " echo " - For XMODEM enter 'sx filename' at HOST prompt - " echo " - For KERMIT enter 'kermit sb filename' at Host prompt - " echo " " echo " TO UPLOAD a file hit F1 to get into your terminal command mode and " echo " then enter 'sz filename'. In ZModem everything else is automatic. " echo " - XMODEM enter 'rx filename' or 'rc filename' for CRCX at HOST prompt - " echo " - KERMIT enter 'kermit rb' at HOST prompt then start your upload - " echo " " echo " To leave a MESSAGE enter the command 'message' and follow prompts. " echo " ---> To see this message anytime enter the command 'help' <--- " :+++++++++++++++++++++++++++++--- That's it ---++++++++++++++++++++++++++++++