abin       speed 1200 326-0259
abix       speed 1200 861-9767
achan      speed 1200 354-8873
afut       speed 1200 720-3600
aheat      speed 1200 237-1511
alyn       speed 1200 742-9194
amac       speed 1200 274-7196
aomen      speed 1200 1-503-621-3746
asyn       speed 1200 769-5309
avik       speed 1200 354-2171
bine       speed 1200 326-0259 t -8g bin.log             :**
bix        speed 1200 861-9767 t  bix.log                :**
chan       speed 1200 354-8873 t -8g chan.log            :**
dog        speed 1200 964-8069 t -8g dog.log             :**
fut        speed 1200 720-3600 t -8g fut.log             :**
heat       speed 1200 237-1511 t -8g heat.log            :**
lyn        speed 1200 742-9194 t -8g lyn.log             :**
mac        speed 1200 274-7196 t -8g mac.log             :**
metr       speed 1200 721-7360 t -8g metro.log           :**
neww       speed 1200 595-5626 t -8g new.log             :**
omen       speed 1200 1-503-621-3746 t omen.log          :**
syn        speed 1200 769-5309 t -8g syn.log             :**
tele       speed 1200 786-9788 t -8g tele.log            :**
viki       speed 1200 354-2171 t -8g vik.log             :**




::

dial    pat; kill; bye; set mconnect ""
        gosub clsparms
        if !premote,a goto doit
        split oname1
        if !df split oname2
        if %z1 setn n0 1 sets n1 %z1
        if %z2 setn n0 2 sets n2 %z2
        if %z3 setn n0 3 sets n3 %z3
        if %z4 setn n0 4 sets n4 %z4
        if %z5 setn n0 5 sets n5 %z5
        if %z6 setn n0 6 sets n6 %z6
        if %z7 setn n0 7 sets n7 %z7
        if %z8 setn n0 8 sets n8 %z8
        if %z9 setn n0 9 sets n9 %z9
        gosub linkup
doit:   if !%mconnect echo "No Linked Commands"
        else echo "Linked to: %mconnect"
        setc _statliner "%remote "
        putw %mprefix; putw %telno\r
        pat 2l "NO C"
        pat 3l "BUSY"
        pat 5l "T 1" 
        pat 6l "T 2" 
        wait -f45
        if 5 sp 1200 pat; queue delete; return
        if 6 sp 2400 pat; queue delete; return
nocon:  pat; o; set mconnect ""; set remote "Local"
        set statliner ""; fail

::

linkup: if iremote,abix set mconnect "@gosub bon"
        if iremote,abin set mconnect "@gosub pcb.%lib/pb.t"
        if iremote,achan set mconnect "@gosub pcb.%lib/pb.t"
        if iremote,afut set mconnect "@gosub pcb.%lib/pb.t"
        if iremote,aheat set mconnect "@gosub pcb.%lib/pb.t"
        if iremote,alyn set mconnect "@gosub pcb.%lib/pb.t"
        if iremote,amac set mconnect "@gosub pcb.%lib/pb.t"
        if iremote,aomen set mconnect "@gosub omenscan"
        if iremote,asyn set mconnect "@gosub pcb.%lib/pb.t"
        if iremote,avik set mconnect "@gosub pcb.%lib/pb.t"
        return
::

setpass: findq %remote pass
         split z0
         sets password %z1
         return


::

clsparms:  set n0 ""; set n1 ""; set n2 ""; set n3 ""; set n4 ""
        set n5 ""; set n6 ""; set n7 ""; set n8 ""; set n9 ""
        set s0 ""; set s1 ""; set s2 ""; set s3 ""; set s4 ""
        set s5 ""; set s6 ""; set s7 ""; set s8 ""; set s9 ""
        set ifs ",[:] "; set password ""
        return

::

k1:     reskeys
        set f3 "@call ac,1,5,6,9,29"
        set f4 "@call metr"
        set f5 "@call dog"
        set f6 "@call abix"
        set f7 "@call am,2"
        set f8 "@call as,29,31"
        set f9 "@find **\r %phones"
        set f10 "@o; close; fail"
        set fs1 "@gosub qyup.%lib/q.t"
        set fs2 "@gosub sparms"
        set fs7
@accept tmp "File to edit? " ; !%~sled %tmp
        set fs8 "@gosub tedit"
        set fs10 "@gosub findname rc -k %z0"
        return

::

tedit:   sets tmp %menu
         accept menu "Script to edit? %tmp "
         if !%menu sets menu %tmp
         if !%menu return
         set tmp ""
         !%~sled %menu
         return

::

findname:  if "h " echo "Xmodem CRC - looking for filename "
findloop:  if "!H([A-Za-z0-9])(\.)([A-Za-z0-9])" goto cantfind
           ss y "([A-Za-z0-9\_\.\-]+)(\.)([A-Za-z0-9]+)"
           lput "\n\r\ESIs\E& %z0 \EScorrect (y/N)? \E&"
           if !y goback findloop
           return
cantfind:  accept z0 "\ESEnter filename to download: \E&"
           if !%z0 sets z0 %remote.%rxcnt
           return

::

sparms: lput "\r\n"
        display nlmode
        lput   "    z\bz\t\tn\bn\t\ts\bs\n"
        lput "0\b0  " lput "%z0\t\t%n0\t\t%s0\n"
        lput "1\b1  " lput "%z1\t\t%n1\t\t%s1\n"
        lput "2\b2  " lput "%z2\t\t%n2\t\t%s2\n"
        lput "3\b3  " lput "%z3\t\t%n3\t\t%s3\n"
        lput "4\b4  " lput "%z4\t\t%n4\t\t%s4\n"
        lput "5\b5  " lput "%z5\t\t%n5\t\t%s5\n"
        lput "6\b6  " lput "%z6\t\t%n6\t\t%s6\n"
        lput "7\b7  " lput "%z7\t\t%n7\t\t%s7\n"
        lput "8\b8  " lput "%z8\t\t%n8\t\t%s8\n"
        lput "9\b9 " lput "%z9\t\t%n9\t\t%s9\n"
        display nonlmode
        return

::

bon     pf15
        pat 1 "r \042bix\042): "
        wait -f5
        while !1 put \r wait
        put "bix\r"
        gosub setpass
        pat 1 "\nName? "
        wait
        if n o return
        put "username\r"
        pat 1 "Password: "
        wait
        put "%password\r"
        pat 1$ "\n:"
        wait
        kill; create -+ abix%d.log
        put "show\r"
        pat 1$ "\n:"
        wait
        echo "Live..."
        gosub bkeys
        keys
        if df t
        sleep 10
        put "bye\r"
        pat 1i "BIX"
        wait
        o; write; close; gosub k1; return
bkeys:  set f3 "join television/general\r"
        set f4 "join television/hardware\r"
        set f5 "join television/program.rwars\r"
        set f6 "join telecomm.pgms/general\r"
        set f7 "join ibm.pc/chat\r"
        set f8 "join ibm.pc/pc.jr\r"
        set f9 "join graphic.disp/displays\r"
        return

::

omenscan: pat 1 ") Please: "
          wait
          put "your name\r"
          create -+ aomen.log
          pat 1 "ct (y/n) ?"
          wait
          put "y"
          pat 1 "m-Host(C):"
          wait
          zcommandw "sz -Zr answer messages"
          pat 1 "m-Host(C):"
          wait
          put "dirt\r"
          pat 1$ "m-Host(C):"
          wait
          lput "\r\n\ESReady to log off Telegodzilla -stop?\E&\r\n"
          pH10
          lput "\ESAuto-Logoff in ten seconds \E&"
          if y t
          pH0
          put "bye\r"
          sleep 30
          o; write; close; return
  
::

setup   port 1
        pd1; pz300
        speed 1200; display warpdrive; display overstrike
        put ATZ\r
        set lib "c:"
        set mprefix ATDT
        set mprompt "\r\Lz%drive:\b\b\bz%drive:\x20"
        set mcommand "gosub dial"
        ps97 pn110 pr97 p@110 p*97
        o
        cls
        display bell=visual
        gosub k1
        if "da>1" return
        sets z0 "%w.arc"
        if f%z0 "!%~arce %w >nul"
        gosub qyup.%lib/q.t
        return

::

