💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › Collections › AOL › T… captured on 2024-12-18 at 00:09:42.

View Raw

More Information

-=-=-=-=-=-=-

# --  10 February 1989
# PC Pursuit dial macro for Talk is Cheap 3.0
# By Jay Yoder
# This macro will dial a PC Pursuit city and redial if busy
# Mousetext is used

# variable definitions
# $1 - PCP city address
# $2 - error code
# $3 - "online" if already connected to pcp when macro is called

set statline off
display ^L
# determine if already connected to pcp.
set timer 1
xmit "^M"
waitfor string "@"
if found assign "online" 3
if equal $3 "online" goto menu1
set screen off
# All addresses set for 1200bps
set baud 1200
# monitor speaker off
xmit "ATM0^M"
waitfor string "OK"
set duplex full
goto menu1

# QUIT
display ^L^M
stop

# BYE - Exit macro
display "^L^JUse ^[^OA^X^N-H to hangup.^J^M"
stop

# ERROR
window 15,64,14,20
gotoxy 17,16
display "^G"
if equal $2 "1" display "             Indial not answering"
if equal $2 "2" display "            Logon to indial failed"
if equal $2 "3" display "  Did not recieve password query from indial"
if equal $2 "4" display " Outdial modem did not respond to ATZ command"
if equal $2 "5" display "          Automatic logon has failed"
gotoxy 17,17
display                 "                STILL ONLINE?"
gotoxy 17,18
display                 "                Macro aborted                "
gotoxy 0,23
stop

# BEGIN
if equal $3 "online" goto loop1
assign "1" 2
# dialpcp - Call local indial and logon
display ^L
window 20,60,9,13
gotoxy 22,11
display "         Dialing PC Pursuit          "
set timer 60
# Insert your local PC Pursuit number here
xmit "ATDT ^M"
waitfor string "CONNECT"
if found goto logonpcp
if failed goto error

# logonpcp
assign "2" 2
gotoxy 22,11
display "         PC Pursuit answering        "
pause 1
xmit "^M^M"
waitfor string "TERMINAL="
if failed goto error
xmit "D3^M"
waitfor string "@"
if failed goto error
# set commands to allow downloads from pcp net bbs
if equal $1 "pursuit" xmit "SET 0:0,57:1,63:0^M"
if equal $1 "pursuit" waitfor string "@"
if failed goto error
set screen on

# loop1 - Call outdial city
assign "3" 2
display "^L^JConnecting to $1^M^J^J"
if equal $1 "pursuit" xmit "C PURSUIT^M^J"
if equal $1 "pursuit" goto lab2
if equal $1 "portal" xmit "C PORTAL,"
if equal $1 "portal" goto lab1
if equal $1 "execpc" xmit "C EXECPC,"
if equal $1 "execpc" goto lab1
if equal $1 "delphi" xmit "C DELPHI,"
if equal $1 "delphi" goto lab1
if equal $1 "plink" xmit "C PLINK,"
if equal $1 "plink" goto lab1
if equal $1 "91450" xmit "C 91450,"
if equal $1 "91450" goto lab1
xmit "C D/$1/12,"
# lab1
set timer 1
# Insert your pcp id here
xmit "        ^M^J"
waitfor string "PASSWORD ="
if failed goto error
# Insert your pcp password here
xmit "        ^M"
# lab2 - Don't xmit id, password if calling pursuit bbs
set timer 10
waitfor string "CONNECTED"
if found goto connected
# Offer oppertunity to quit if outdial is busy
display "^L^J^MPress <ESC> now to quit . . .^M^J"
set timer 3
waitfor keyboard
if keyboard ^[ goto bye
display "^L"
goto loop1

# connected
assign "4" 2
if equal $1 "pursuit" goto $1
if equal $1 "delphi" goto $1
if equal $1 "portal" goto $1
if equal $1 "execpc" goto $1
if equal $1 "plink" goto $1
if equal $1 "91450" goto mnemonics
xmit "ATZ^M"
waitfor string "OK"
if failed goto error
display "^LConnected to $1!^J^J^M"
if equal $1 "ilchi" display "For 815 use 1815 + phone number.^J^M"
if equal $1 "txdal" display "For 817 use 1817 + phone number.^J^M"
if equal $1 "nynyo" display "For 718 use 1718 + phone number.^J^M"
if equal $1 "moslo" display "For 618 use 1618 + phone number.^J^M"
if equal $1 "azpho" display "Ft McDowell, Higley & SpStanaJct must use^J^M"
if equal $1 "azpho" display "1 + phone number [see coverage.txt].^J^M"
# turn on racal vadic
xmit ^E^M
pause 1
display ^G^G
stop

# PURSUIT - Logon to pursuit BBS
assign "5" 2
set timer 60
# set commands to allow downloads
xmit "@^M"
waitfor string "@"
if failed goto error
xmit "SET 2:0,4:1^M"
waitfor string "@"
if failed goto error
xmit "CONT^M"
waitfor string "Depress a key to continue"
if failed goto error
xmit "^M"
waitfor string "Enter your first name"
if failed goto error
# Insert your name here
xmit "          ^M"
waitfor string "Enter your password"
if failed goto error
# Insert your password here
xmit "         ^M"
stop

# PORTAL - Logon to Portal
assign "5" 2
emulate termcaps/adds.regent
set timer 60
waitfor string "Enter name, NEW, INFO, or HELP:"
if failed goto error
# Insert your name here
xmit "          ^M"
waitfor string "Enter password:"
if failed goto error
pause 2
# Insert your portal password here
xmit "POIUYTREWQASDFGHJKL^M"
stop

# You will need to write your own logon macro for these DAF's

# EXECPC - Logon to ExecPc
display "^G^G"
stop

# PLINK - Logon to People Link
display "^G^G"
stop

# MNEMATICS - Logon to Mnematics
display "^G^G"
stop

# DELPHI - Logon to Delphi
display "^G^G"
stop

# MENU1
set timer 255
display "^Y^J                               ^[^O@^N  PC Pursuit  ^O@^X^N^J^M"
display " _____________________________________________________________________________^J^M"
display "^[^OZ^N Area Code      City          Address | Area Code      City          Address ^[^O_^N^X^J^M"
display "^[^OZLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL^N|^[^OLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL_^N^X^J^M"
display "^[^OZ^N A  404     Atlanta GA          GAATL | N  305     Miami FL            FLMIA ^[^O_^N^X^J^M"
display "^[^OZ^N B  617     Boston MA           MABOS | O  414     Milwaukee WI        WIMIL ^[^O_^N^X^J^M"
display "^[^OZ^N C  312/815 Chicago IL          ILCHI | P  612     Minneapolis MN      MNMIN ^[^O_^N^X^J^M" 
display "^[^OZ^N D  216     Cleveland OH        OHCLE | Q  201     Newark NJ           NJNEW ^[^O_^N^X^J^M"
display "^[^OZ^N E  714     Colton CA           CACOL | R  212/718 New York NY         NYNYO ^[^O_^N^X^J^M"
display "^[^OZ^N F  214/817 Dallas              TXDAL | S  415     Oakland CA          CAOAK ^[^O_^N^X^J^M"
display "^[^OZ^N G  303     Denver CO           CODEN | T  415     Palo Alto CA        CAPAL ^[^O_^N^X^J^M"
display "^[^OZ^N H  313     Detroit MI          MIDET | U  215     Philadelphia PA     PAPHI ^[^O_^N^X^J^M"
display "^[^OZ^N I  818     Glendale CA         CAGLE | V  602     Phoenix AZ          AZPHO ^[^O_^N^X^J^M"
display "^[^OZ^N J  203     Hartford CT         CTHAR | W  503     Portland OR         ORPOR ^[^O_^N^X^J^M"
display "^[^OZ^N K  713     Houston TX          TXHOU | X  919     Rsrch Triangle Park NCRTP ^[^O_^N^X^J^M"
display "^[^OZ^N L  816/913 Kansas City MO      MOKCI | Y  916     Sacramento CA       CASAC ^[^O_^N^X^J^M"
display "^[^OZ^N M  213     Los Angeles CA      CALAN | Z  810     Salt Lake City UT   UTSLC ^[^O_^N^X^J^M"
display "^[^OZ^N______________________________________|______________________________________^[^O_^N^X^J^J^M"
display "^J              Letter keys select - ^[^OM^X^N for next menu - ESC to quit: "

# tryagain1
waitfor keyboard
if failed goto tryagain1
if keyboard ^M goto menu2
if keyboard ^[ goto quit
if keyboard a assign GAATL 1
if keyboard b assign MABOS 1
if keyboard c assign ILCHI 1
if keyboard d assign OHCLE 1
if keyboard e assign CACOL 1
if keyboard f assign TXDAL 1
if keyboard g assign CODEN 1
if keyboard h assign MIDET 1
if keyboard i assign CAGLE 1
if keyboard j assign CTHAR 1
if keyboard k assign TXHOU 1
if keyboard l assign MOKCI 1
if keyboard m assign CALAN 1
if keyboard n assign FLMIA 1
if keyboard o assign WIMIL 1
if keyboard p assign MNMIN 1
if keyboard q assign NJNEW 1
if keyboard r assign NYNYO 1
if keyboard s assign CAOAK 1
if keyboard t assign CAPAL 1
if keyboard u assign PAPHI 1
if keyboard v assign AZPHO 1
if keyboard w assign ORPOR 1
if keyboard x assign NCRTP 1
if keyboard y assign CASAC 1
if keyboard z assign UTSLC 1
if null 1 display ^G
if null 1 goto tryagain1
goto begin

# MENU2
display "^Y^J                               ^[^O@^N  PC Pursuit  ^O@^X^N^J^M"
display " _____________________________________________________________________________^J^M"
display "^[^OZ^N Area Code      City          Address |              DAF             Address ^[^O_^N^X^J^M"
display "^[^OZLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL^X^N|^[^OLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL_^N^X^J^M"
display "^[^OZ^N A  619     San Diego CA        CASDI | M     Delphi                  DELPHI ^[^O_^N^X^J^M"
display "^[^OZ^N B  415     San Francisco CA    CASFA | N     ExecPc                  EXECPC ^[^O_^N^X^J^M"
display "^[^OZ^N C  408     San Jose CA         CASJO | O     Mnematics                91450 ^[^O_^N^X^J^M" 
display "^[^OZ^N D  714     Santa Anna CA       CASAN | P     People Link              PLINK ^[^O_^N^X^J^M"
display "^[^OZ^N E  206     Seattle WA          WASEA | Q     Portal                  PORTAL ^[^O_^N^X^J^M"
display "^[^OZ^N F  314/618 St. Louis MO        MOSLO | R     PC Pursuit BBS         PURSUIT ^[^O_^N^X^J^M"
display "^[^OZ^N G  813     Tampa FL            FLTAM | S                                    ^[^O_^N^X^J^M"
display "^[^OZ^N H  202/703 Washington DC       DCWAS | T                                    ^[^O_^N^X^J^M"
display "^[^OZ^N    301                               | U                                    ^[^O_^N^X^J^M"
display "^[^OZ^N I                                    | V                                    ^[^O_^N^X^J^M"
display "^[^OZ^N J                                    | W                                    ^[^O_^N^X^J^M"
display "^[^OZ^N K                                    | X                                    ^[^O_^N^X^J^M"
display "^[^OZ^N L                                    | Y                                    ^[^O_^N^X^J^M"
display "^[^OZ^N______________________________________|______________________________________^[^O_^N^X^J^J^M"
display "^J              Letter keys select - ^[^OM^X^N for next menu - ESC to quit: "

# tryagain2
waitfor keyboard
if failed goto tryagain2
if keyboard ^[ goto quit
if keyboard ^M goto menu1
if keyboard a assign CASDI 1
if keyboard b assign CASFA 1
if keyboard c assign CASJO 1
if keyboard d assign CASAN 1
if keyboard e assign WASEA 1
if keyboard f assign MOSLO 1
if keyboard g assign FLTAM 1
if keyboard h assign DCWAS 1
# if keyboard i assign 
# if keyboard j assign 
# if keyboard k assign 
# if keyboard l assign
if keyboard m assign DELPHI 1
if keyboard n assign EXECPC 1
if keyboard o assign 91450 1
if keyboard p assign PLINK 1
if keyboard q assign PORTAL 1
if keyboard r assign PURSUIT 1
if null 1 display ^G
if null 1 goto tryagain2
goto begin