GEMini Atari/GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso/files/telecomm/unitmacs/unimac.txt

Text File | 1990-02-18 | 17KB | 339 lines

In addition to the sample macros you will find in recent Uniterm
documents in versions (2.0d and later), I have included here
three macros I have used for a long time to do auto-dialing on
BBS's.  Before I removed phone numbers, system prompts and
responses, and login names and passwords, these macros and all
their features were known to work well and perform all the
claimed functions.  Unfortunately, when this information is
removed, the macros will no longer work.  Also, by their nature
each person's system, modem, desired features, etc. will be
different.  Within the constraints of the maximum 4k file size of
these macros for Uniterm 2.0d and later, I have included all the
comments I could to explain what I was doing.  I'm sorry if some
of these comments appear quite cryptic.

To use these macros, you must put them in a word processor that
will write them to an ASCII file with no control codes.  Make
sure you name the files the same names you intend to use in the
Auto-dialer, Function Keys, or other macro you call them from.
When you see "loadsetup" near the beginning of each file, you are
to enter in the blank space following the name of the setup file
you want to use when this BBS is called.  Inspect closely the
codes sent to the modem to control its features.  Although my
modem is an Atari Hayes compatible, these will most likely have
to be changed or removed for your equipment and are included as
examples.  When these macros are called, they must be in the
default directory that Uniterm is run from.  You can use the
command: path('C:')  in the auto-load macro or:
%path('C:') on a function key to change the default directory to
a "C" ramdisk (as I do) for example.  If you do this, make sure
all other files such as setup files are there also or you will
have to switch directories back and forth at the proper times.

I will also apologize here for the convoluted code.  I'm not a
programer although I enjoyed mastering this editor without much
help from the documentation and poor examples (parts of which
don't appear to work).  You will see some labels out of order
and probable to expert eyes, some wasted code.  I have added
features to these macros as they grew on me but didn't always
renumber lines.  If nothing else, these should get you further
down the learning curve than the original documentation got me.
I played with these for 2 years before I got Uniterm's editor to
work properly for me.

The three files here:

BBSDIAL.MAC
This is a generic auto-login with re-dial that is prompted for
the user to enter the number of times re-dials will be attempted
after the first dial fails.  This is the simplest of the three
files.

Listed here is a copy of the file as reference.  I may include
additional comments in brackets "[ ]" here that are not permitted
in the macros that you can run.  I have also filled some of the
blank entry lines with X's or examples that will not work if you
try to run the macros by removing them from this file.
>>>>>>>>>>>>>>>>>>>>>>>START EXAMPLE ONE>>>>>>>>>>>>>>>>>>>>>>>
# This is a general purpose BBS auto-dial.  Edit modem codes, login, and setup
# files for your purposes.  Remember...macro must not exceed 4k, speed of code
# transmission is determined by transfer rate in ASCII transfer menu.
# Control-C can abort between commands.
me('Loading Uniterm set up File') w(10)
loadsetup('uniterm.set') w(10) [THIS IS THE DEFAULT SETUP]
# Following are modem codes:
se('atz\r\n') w(10) se('ats7=17\r\n') w(10) se('atx4\r\n')
# This macro will redial w/prompt for retry number.
me('Dialing MY FAVORITE BBS.  Will re-dial w/prompt for retries') w(10)
se('atdt9990000\r\n') w(05) set(1,1) set(2,0)
# Following is looking for first message from online to respond to.
if(!get('CONNECT',21)) ju(1) [IF YOUR MODEM DISPLAYS THIS
MESSAGE UPON CONFIRMING CONNECTION. IF NOT, YOU MAY WANT TO USE
THE FIRST SYSTEM PROMPT YOU GET]
:7
# Put log-on codes here. Put prompt text in "get", response in "send".
  ge('HIT RETURN',10) w(05) se('\R\N')
  ge('YOUR NAME',10) me('YOU MIGHT HAVE TO WAIT HERE') w(05)
se('MARY OR TOM') ge('Enter ID Number',15) w(20) se('9999999\r\n')
  ge('Enter Your Password:',15) w(05) se('ZXZXZ\r\n')
#Start history and exit. [WHEN THE LAST LOGIN PROMPT IS
SATISFIED, THE SCREEN HISTORY IS TURNED ON AND THE MACRO ENDS
YOU CAN CONTINUE AT THIS POINT WITH YOU FIRST MENU SELECTIONS AND
AUTO DOWNLOADS OR MESSAGE BASE SCANS HERE.  I ALWAYS DO THIS
MANUALLY BECAUSE I NEVER DO IT THE SAME]
  history(1) me('History recording is ON') w(20) exit(0)
:1
# 1st fail and re-dial message. [THIS IN INVOKED WHEN "CONNECT"
FAILS]
  ec('\r\n') ec('Failed!\r\n') w(05)
  if(!input('Retries?  Enter #1-?+Ret. or Cancel')) ec('Quit!\n') exit(0)
# Check to see if $T is "0". Yes=quit, No=go on.
  if(com($T,'0')) ec('Quit.  FINISHED!\r\n') exit(0)
# Use # in $T to set re-try counter.
  set(1,.$T)
# place number in "Wait" command 3 seconds less than re-dial timeout.
  me('Re-dial in 30 seconds.') w(270) [I DO THIS BECAUSE OF MY 3
SECOND ALT-C ABORT MESSAGE] (*)
:2
# Re-dial count, display, and check follows: @1= retry countdown @2=retry#
# "$T"=current retry display count.
# Display total remaining user re-tries on next line:
  ec("@1) ec(' re-dial remains:\r\n') w(05)
  set(1,add(@1,-1)) set(2,add(@2,1)) con('RETRY# ',"@2') ec($T) ec('\r\n')
  me('Re-dialing MY FAVORITE BBS. Cntrl-C aborts. NOW!') w(30) (*)
  me('Dialing...') send('atdt       \r\n') [PUT THE SAME NUMBER
HERE AS ABOVE]
# Timeout for re-dial and success/fail.  "ju(4)"=fail
  if(!ge('CONNECT',21)) ec('\r\n') ju(4)
# If success, will return to log-in code near beginning.
  ju(7)
:4
# Look for count in @1 for "0". If not, re-dial.
# If so, prompt for more retries.
  if(com("@1','0')) ca(5)
# Failed and redial message for all until last prompt.
  ec('Failed!\r\n') w(10) se('\n') me('Re-dial in 30 sec.') w(270) ju(2)
:5
# Prompt to try again or stop and end macro.
  ec('Failed!  More retries?\r\n') w(05) se('\n')
# User clicks "OK" will loop re-dial routine.
# Prompt for re-try #. "set" for variable int. @1 to # entered by user.
# If "cancel is clicked, message, and end.
  if(input('Retries failed. Try again? Enter #-
RET.')) ju(6) [THIS IS WERE THE USE GETS TO TELL THE MACRO HOW
MANY TIMES TO RE-DIAL THE BBS OR CANCEL AND END THE MACRO]
  ec('ALL RETRIES FAILED! FINISHED.\r\n') w(10) exit(0)
:6
# Check to see if $T is "0". Yes=quit, No=go on.
  if(com($T,'0')) ec('Quit.  FINISHED!\r\n') exit(0)
# Make "set" for variable "@1" user number.
  w(05) set(1,.$T) ju(2)
[REMEMBER THIS MACRO WILL NOT RUN AS IS]
>>>>>>>>>>>>>>>>>>>>>>>END EXAMPLE ONE<<<<<<<<<<<<<<<<<<<<<<<<<

GENIEX.MAC

This is the macro I use to dial and log on to GEnie with Uniterm.
Less editing will be needed here as my prompts will be similar to
yours.  Remember you can use function keys to call macros to do
the complicated message, file, and mail tasks on GEnie.  I most
often use the function keys to send the one letter or word
commands I use most often.  I have one function key that calls a
macro that displays a section of character faces for me to select
from to send at frivolous moments.
>>>>>>>>>>>>>>>>>>>>>>START EXAMPLE TWO<<<<<<<<<<<<<<<<<<<<<<<<<<

#This macro will load a customized GEnie set-up file and dial w/login.
#Be sure control codes sent to modem are correct for your equipment.

me('Setting modem echo to OFF,timeout to 17 sec.') w(20)
se('atz\r\n') w(10) se('ate0\r\n') w(10) se('ats7=17\r\n') w(10)
me('Loading GEnie set-up file') w(05) Loadsetup('genie.set')
#This macro will redial w/prompt for retry number.
me('Dialing GEnie BBS.  Will re-dial w/prompt for retries') w(20)
#The following code contains the phone number and sets re-dial countdown:
se('atdt       \r\n') w(05) set(1,1) set(2,0)
#Following looking for first message from online to respond to:
if(!get('CONNECT',20)) ca(1)
#Put log-on codes here.
W(10) se('h') w(05) se('h') w(05) sΣ('h\n')
get('U#=',10) w(10)
send('        ,        \r\n') w(10)
#Start history and end macro.
history(1) me('History recording is on') w(20) exit(0)
:1
#1st fail and re-dial message.
  ec('Failed!\r\n') w(05) se('\n')
#If # and OK, go on (User enters num. of times to re-dial). If Cancel, exit.
  if(!input('Retries?  Enter #1-?+Ret. or Cancel')) ec('Quit!\n') exit(0)
#Check to see if $T is "0". Yes=quit, No=go on.
  if(com($T,'0')) ec('Quit.  FINISHED!\r\n') exit(0)
#Use # in $T to set re-try counter.
  set(1,.$T)
#Place number in "Wait" command 3 seconds less than re-dial timeout.
  me('Re-dial in 30 seconds.') w(270)
:2
#Re-dial count, display, and check follows: @1= retry countdown @2=retry#,
#"$T"=current re-try display count.
#Display total remaining user re-tries on next line:
  ec("@1) ec(' re-dial remains:\n') w(05)
  set(1,add(@1,-1)) set(2,add(@2,1)) con('RETRY# ',"@2') ec($T) ec('\r\n')
  mess('Re-dialing GEnie BBS.   Cntrl-C aborts. NOW!') w(30)
  me('Dialing...') send('atdt       \r\n')
#Timeout for re-dial and success/fail.  "ju(4)"=fail
  if(!ge('CONNECT',35)) ju(4)
#If success, will return to log-in code near beginning.
  return( )
:4
#Look for count in @1 for "0". If not, re-dial.
#If so, prompt for more retries.
  if(com("@1','0')) ju(5)
#Failed and redial message for all until last prompt.
  ec('Failed!\r\n') w(10) se('\n') me('Re-dial in 30 sec.') w(270) ju(2)
:5
#Prompt to try again or stop and end macro.
  ec('Failed!  More retries?\r\n') w(05) se('\n')
#User clicks "OK", will loop re-dial routine.
#Prompt for re-try #. "set" for variable int. @1 to # entered by user.
#If "Cancel" is clicked, message, and end.
  if(input('Retries failed. Try again? Enter#1-?')) ju(6)
  ec('ALL RETRIES FAILED! FINISHED.\r\n') w(10) exit(0)
:6
#Check to see if $T is "0". Yes=quit, No=go on.
  if(com($T,'0')) ec('Quit.  FINISHED!\n') exit(0)
#Make "set" for variable "@1" user number.
  w(05) set(1,.$T) ju(2)
[REMEMBER THIS MACRO WILL NOT RUN AS IS]
>>>>>>>>>>>>>>>>>>>>>>>>>END EXAMPLE TWO<<<<<<<<<<<<<<<<<<<<<<<<<

MLTIDIAL.MAC

This is the most complicated of the three because I use it to
dial through each number of a multi-line BBS to direct access
those lines.  The board that I call with this particular macro
also happens to have the nasty attribute of being a Unix based
system that cannot get the baud rate from the modem report, but
must "learn" it from sampling a series of carriage returns.  Also
Unix doesn't like line feeds.  If these features help you with
problems similar the the ones I've had with these boards, it's
good that I left them in here.  If not, all the associated code
will have to be removed and replaced with the logon sequence that
is appropriate for your needs.  When I use this with Unix I also
make sure carriage returns do not include line feeds in the
"Terminal 1" perameter menu of the setup file that is loaded in.

If you use this to access multi-line systems and don't need to
call as many lines, delete the "Dialing Port X" lines from the
bottom up until you have the total number of lines you want to
access.  You will also have to edit the "set" number in the
fourth line of label #5 to one number greater than the total
number of different phone numbers.  Also "set" in line seven near
the beginning of the file to the same number of different
numbers.  The number in the "ATDT" command in line seven must be
the same as the first line of the multiple number list.  I know
you expert programmers will cringe as all this but I've made my
excuses.  This could save the average person hours of
experimenting as I have.

Note:  You may have noticed in most of these commands that I've
abbreviated the commands to only a couple of letters to save file
space.  This may be confusing to those who are not familiar with
the words these letters represent.  I suggest you have a print
out of the Uniterm macro editor file in the Uniterm documentation
to refer to while de-ciphering these files.

<<<<<<<<<<<<<<<<<<<<<<START EXAMPLE THREE>>>>>>>>>>>>>>>>>>>>>

# This macro will dial multiple numbers for multi-line BBS's and
# prompt for re-tries.  Edit modem codes, login, and setup file names.
me('Loading          BBS set-up file') w(05) loadsetup('      .set') w(05)
se('atz\r\n') w(10) se('ats7=17\r\n') w(10) se('atx4\r\n') w(10)
me('Dialing           BBS. Will re-dial w/# cycle')
# Set 1 must be equal to entries in redial list. Dial and login follows:
se('atdt       \r\n') w(05) set(1,8) set(2,0) set(3,0)
# If "CONNECT", 3 Crs and log in.  If not, "FAILED!" + re-dial.
if(!get('CONNECT',20)) ju(1)
:7
# Put login code here.  Carriage returns, no line feeds fo≥ Unix.
# Edit codes for your purposes.
# Send up to 8 Cr's, hangup, try next #.  If ok, login.
  ec('\r\nSending carriage returns...\r\n') w(50)
  ec('1\r\n') se('\r') (40) ec('2\r\n') se('\r')
  ec('Should get system message here.  If not, more Cr`s\r\n')
  if(!ge('login:',04)) ec('3\r\n')'3\r\n')'3\r\n')'3\r\n')'3\r\n')S BECAUSE OF MY 3
SECOND ALT-C ABORT MESSAGE] (*)
:2
# Re-dial count, display, and check follows: @1= retry countdown @2=retry#
# "$T"=current retry display count.
# Display total remaining user re-tries on next line:
  ec("@1) ec(' re-dial remains:\r\n') w(05)
  set(1,add(@1,-1)) set(2,add(@2,1)) con('RETRY# ',"@2') ec($T) ec('\r\n')
  me('Re-dialing MY FAVORITE BBS. Cntrl-C aborts. NOW!') w(30) (*)
  me('Dialing...') send('atdt       \r\n') [PUT THE SAME NUMBER
HERE AS ABOVE]
# Timeout for re-dial and success/fail.  "ju(4)"=fail
  if(!ge('CONNECT',21)) ec('\r\n') ju(4)
# If success, will return to log-in code near beginning.
  ju(7)
:4
# Look for count in @1 for "0". If not, re-dial.
# If so, prompt for more retries.
  if(com("@1','0')) ca(5)
# Failed and redial message for all until last prompt.
  ec('Failed!\r\n') w(10) se('\n') me('Re-dial in 30 sec.') w(270) ju(2)
:5
# Prompt to try again or stop and end macro.
  ec('Failed!  More retries?\r\n') w(05) se('\n')
# User clicks "OK" will loop re-dial routine.
# Prompt for re-try #. "set" for variable int. @1 to # entered by user.
# If "cancel is clicked, message, and end.
  if(input('Retries failed. Try again? Enter #-
RET.')) ju(6) [THIS IS WERE THE USE GETS TO TELL THE MACRO HOW
MANY TIMES TO RE-DIAL THE BBS OR CANCEL AND END THE MACRO]
  ec('ALL RETRIES FAILED! FINISHED.\r\n') w(10) exit(0)
:6
# Check to see if $T is "0". Yes=quit, No=go on.
  if(com($T,'0')) ec('Quit.  FINISHED!\r\n') exit(0)
# Make "set" for variable "@1" user number.
  w(05) set(1,.$T) ju(2)
[REMEMBER THIS MACRO WILL NOT RUN AS IS]
>>>>>>>>>>>>>>>>>>>>>>>END EXAMPLE ONE<<<<<<<<<<<<<<<<<<<<<<<<<

GENIEX.MAC

This is the macro I use to dial and log on to GEnie with Uniterm.
Less editing will be needed here as my prompts will be similar to
yours.  Remember you can use function keys to call macros to do
the complicated message, file, and mail tasks on GEnie.  I most
often use the function keys to send the one letter or word
commands I use most often.  I have one function key that calls a
macro that displays a section of character faces for me to select
from to send at frivolous moments.
>>>>>>>>>>>>>>>>>>>>>>START EXAMPLE TWO<<<<<<<<<<<<<<<<<<<<<<<<<<

#This macro will load a customized GEnie set-up file and dial w/login.
#Be sure control codes sent to modem are correct for your equipment.

me('Setting modem echo to OFF,timeout to 17 sec.') w(20)
se('atz\r\n') w(10) se('ase('\r')
  if(!ge('login:',04)) ec('7\r\n') se('\r') if(!ge('login:',04)) ju(11)
  ju(8)
:11
  se('\r') ec('Sent 8th Carriage Return.  Hangup if no go.\r\n')
# Set #3 changes 20 sec. timeout to 30. Ju(6)=hang+dial next. (8)=login
  if(!ge('login:',04)) set(3,1) ju(6)
  ju(8)
[REMEMBER THIS MACRO WILL NOT RUN AS IS]
>>>>>>>>>>>>>>>>>>>>>>>>>>>END EXAMPLE THREE<<<<<<<<<<<<<<<<<<<<<<

I will be happy to answer any questions you have concerning these
examples of anything else I've learned about Uniterm.  I think
it's the best PD terminal emulator for the ST and beats most made
for any other computer.

Paul Varn
GEnie: pvarn
2/18/90
---------------------------- END FILE ----------------------------