! $Header: e:\proj\3uscript/RCS/uk_tv.scr 1.1 1995/09/04 21:51:24 Mark_Hadfield $

! Psion Comms Script to download PAO UK TV Listings from Compuserve.
! To be used in conjunction with ReadCIS.

INFO "UK_TV $Revision: 1.1 $"
NEXISTS "m:\cis\switch\uk_tv.on" GOTO goodbye

! CAPTURE "\CIS\SERVICE\TV_LOG.CIS"

! PA News                                                                
SENDWAIT 120 "go pao", "choice !" GOTO noprompt

! 4 TV & Radio Listings
SENDWAIT 120 "4", "choice !" GOTO noprompt


! ------------------- 1 BBC1 ----------------------
SENDWAIT 60 "1", " 1 " GOTO noprompt
bbc1pages1:
WAIT 60 (ON REPLY " 2 " GOTO bbc1pages2
         ON REPLY "choice !" GOTO bbc1pages1ok)
GOTO noprompt
         
bbc1pages1ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 1"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2

bbc1pages2:
WAIT 60 (ON REPLY " 3 TV BBC1 " GOTO bbc1pages3
         ON REPLY "choice !" GOTO bbc1pages2ok)
GOTO noprompt

bbc1pages2ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 2,1"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2

bbc1pages3:
WAIT 60 (ON REPLY " 4 TV BBC1 " GOTO bbc1pages4
         ON REPLY "choice !" GOTO bbc1pages3ok)
GOTO noprompt

bbc1pages3ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 3,2,1"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2

bbc1pages4:
WAIT 60 (ON REPLY " 5 TV BBC1 " GOTO bbc1pages5
         ON REPLY "choice !" GOTO bbc1pages5ok)
GOTO noprompt

bbc1pages4ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 4,3,2"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2

bbc1pages5:
WAIT 60 (ON REPLY " 6 TV BBC1 " GOTO bbc1pages6
         ON REPLY "choice !" GOTO bbc1pages5ok)
GOTO noprompt

bbc1pages5ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 5,4,3"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2

bbc1pages6:
WAIT 60 (ON REPLY " 7 TV BBC1 " GOTO bbc1pages7
         ON REPLY "choice !" GOTO bbc1pages6ok)
GOTO noprompt

bbc1pages6ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 6,5,4"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2

bbc1pages7:
WAIT 60 (ON REPLY " 8 TV BBC1 " GOTO bbc1pages8
         ON REPLY "choice !" GOTO bbc1pages7ok)
GOTO noprompt

bbc1pages7ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 7,6,5"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2

bbc1pages8:
WAIT 60 (ON REPLY " 9 " GOTO unknownpage
         ON REPLY "choice !" GOTO bbc1pages8ok)
GOTO noprompt

bbc1pages8ok:
EXISTS "\cis\service\bbc_1.cis" GOTO bbc2
SEND "s 8,7,6"
RECEIVE "\cis\service\bbc_1.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO bbc2



! ------------------- 2 BBC2 ----------------------
bbc2:
SENDWAIT 60 "m", "choice !" GOTO noprompt
SENDWAIT 60 "2", " 1 " GOTO noprompt
bbc2pages1:
WAIT 60 (ON REPLY " 2 TV BBC2 " GOTO bbc2pages2
         ON REPLY "choice !" GOTO bbc2pages1ok)
GOTO noprompt
         
bbc2pages1ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 1"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv

bbc2pages2:
WAIT 60 (ON REPLY " 3 TV BBC2 " GOTO bbc2pages3
         ON REPLY "choice !" GOTO bbc2pages2ok)
GOTO noprompt

bbc2pages2ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 2,1"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv

bbc2pages3:
WAIT 60 (ON REPLY " 4 TV BBC2 " GOTO bbc2pages4
         ON REPLY "choice !" GOTO bbc2pages3ok)
GOTO noprompt

bbc2pages3ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 3,2,1"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv

bbc2pages4:
WAIT 60 (ON REPLY " 5 TV BBC2 " GOTO bbc2pages5
         ON REPLY "choice !" GOTO bbc2pages4ok)
GOTO noprompt

bbc2pages4ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 4,3,2"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv

bbc2pages5:
WAIT 60 (ON REPLY " 6 TV BBC2 " GOTO bbc2pages6
         ON REPLY "choice !" GOTO bbc2pages5ok)
GOTO noprompt

bbc2pages5ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 5,4,3"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv

bbc2pages6:
WAIT 60 (ON REPLY " 7 TV BBC2 " GOTO bbc2pages7
         ON REPLY "choice !" GOTO bbc2pages6ok)
GOTO noprompt

bbc2pages6ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 6,5,4"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv

bbc2pages7:
WAIT 60 (ON REPLY " 8 TV BBC2 " GOTO bbc2pages8
         ON REPLY "choice !" GOTO bbc2pages7ok)
GOTO noprompt

bbc2pages7ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 7,6,5"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv

bbc2pages8:
WAIT 60 (ON REPLY " 9 " GOTO unknownpage
         ON REPLY "choice !" GOTO bbc2pages8ok)
GOTO noprompt

bbc2pages8ok:
EXISTS "\cis\service\bbc_2.cis" GOTO itv
SEND "s 8,7,6"
RECEIVE "\cis\service\bbc_2.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO itv


! ---------------- 3 ITV --------------------------
itv:
SENDWAIT 60 "m", "choice !" GOTO noprompt
SENDWAIT 60 "3", "choice !" GOTO noprompt

! -------- ITV Page from <UserName1> --------------
SENDWAIT 60 "<UserName1>", " 1 " GOTO noprompt
itvpages1:
WAIT 60 (ON REPLY " 2 TV " GOTO itvpages2
         ON REPLY "choice !" GOTO itvpages1ok)
GOTO noprompt
         
itvpages1ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 1"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4

itvpages2:
WAIT 60 (ON REPLY " 3 TV " GOTO itvpages3
         ON REPLY "choice !" GOTO itvpages2ok)
GOTO noprompt

itvpages2ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 2,1"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4

itvpages3:
WAIT 60 (ON REPLY " 4 TV " GOTO itvpages4
         ON REPLY "choice !" GOTO itvpages3ok)
GOTO noprompt

itvpages3ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 3,2,1"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4

itvpages4:
WAIT 60 (ON REPLY " 5 TV " GOTO itvpages5
         ON REPLY "choice !" GOTO itvpages4ok)
GOTO noprompt

itvpages4ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 4,3,2"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4

itvpages5:
WAIT 60 (ON REPLY " 6 TV " GOTO itvpages6
         ON REPLY "choice !" GOTO itvpages5ok)
GOTO noprompt

itvpages5ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 5,4,3"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4

itvpages6:
WAIT 60 (ON REPLY " 7 TV " GOTO itvpages7
         ON REPLY "choice !" GOTO itvpages6ok)
GOTO noprompt

itvpages6ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 6,5,4"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4

itvpages7:
WAIT 60 (ON REPLY " 8 TV " GOTO itvpages8
         ON REPLY "choice !" GOTO itvpages7ok)
GOTO noprompt

itvpages7ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 7,6,5"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4

itvpages8:
WAIT 60 (ON REPLY " 9 TV " GOTO unknownpage
         ON REPLY "choice !" GOTO itvpages8ok)
GOTO noprompt

itvpages8ok:
EXISTS "\cis\service\itv.cis" GOTO chan4
SEND "s 8,7,6"
RECEIVE "\cis\service\itv.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO chan4



! ------------- 4 CHANNEL 4 -----------------------
chan4:
SENDWAIT 60 "m", "choice !" GOTO noprompt
SENDWAIT 60 "m", "choice !" GOTO noprompt
SENDWAIT 60 "4", " 2 " GOTO noprompt
chan4pages2:
WAIT 60 (ON REPLY " 4 " GOTO chan4pages4
         ON REPLY "choice !" GOTO chan4pages2ok)
GOTO noprompt
         
chan4pages2ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 2"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky

chan4pages4:
WAIT 60 (ON REPLY " 6 TV CHANNEL4 " GOTO chan4pages6
         ON REPLY "choice !" GOTO chan4pages4ok)
GOTO noprompt

chan4pages4ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 4,2"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky

chan4pages6:
WAIT 60 (ON REPLY " 8 TV CHANNEL4 " GOTO chan4pages8
         ON REPLY "choice !" GOTO chan4pages6ok)
GOTO noprompt

chan4pages6ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 6,4,2"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky

chan4pages8:
WAIT 60 (ON REPLY " 10 TV CHANNEL4 " GOTO chan4pages10
         ON REPLY "choice !" GOTO chan4pages8ok)
GOTO noprompt

chan4pages8ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 8,6,4"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky

chan4pages10:
WAIT 60 (ON REPLY " 12 TV CHANNEL4 " GOTO chan4pages12
         ON REPLY "choice !" GOTO chan4pages10ok)
GOTO noprompt

chan4pages10ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 10,8,6"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky

chan4pages12:
WAIT 60 (ON REPLY " 14 TV CHANNEL4 " GOTO chan4pages14
         ON REPLY "choice !" GOTO chan4pages12ok)
GOTO noprompt

chan4pages12ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 12,10,8"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky

chan4pages14:
WAIT 60 (ON REPLY " 16 TV CHANNEL4 " GOTO chan4pages16
         ON REPLY "choice !" GOTO chan4pages14ok)
GOTO noprompt

chan4pages14ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 14,12,10"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky

chan4pages16:
WAIT 60 (ON REPLY " 17 " GOTO unknownpage
         ON REPLY "choice !" GOTO chan4pages16ok)
GOTO noprompt

chan4pages16ok:
EXISTS "\cis\service\c4.cis" GOTO sky
SEND "s 16,14,12"
RECEIVE "\cis\service\c4.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO sky



! --------------- 5 SATELLITE ---------------------
sky:
SENDWAIT 60 "m", "choice !" GOTO noprompt
SENDWAIT 60 "5", " 1 " GOTO noprompt
skypages1:
WAIT 60 (ON REPLY " 2 TV SATELLITE " GOTO skypages2
         ON REPLY "choice !" GOTO skypages1ok)
GOTO noprompt
         
skypages1ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 1"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages2:
WAIT 60 (ON REPLY " 3 TV SATELLITE " GOTO skypages3
         ON REPLY "choice !" GOTO skypages2ok)
GOTO noprompt

skypages2ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 2,1"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages3:
WAIT 60 (ON REPLY " 4 TV SATELLITE " GOTO skypages4
         ON REPLY "choice !" GOTO skypages3ok)
GOTO noprompt

skypages3ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 3,2,1"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages4:
WAIT 60 (ON REPLY " 5 TV SATELLITE " GOTO skypages5
         ON REPLY "choice !" GOTO skypages4ok)
GOTO noprompt

skypages4ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 4,3,2"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages5:
WAIT 60 (ON REPLY " 6 TV SATELLITE " GOTO skypages6
         ON REPLY "choice !" GOTO skypages5ok)
GOTO noprompt

skypages5ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 5,4,3"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages6:
WAIT 60 (ON REPLY " 7 TV SATELLITE " GOTO skypages7
         ON REPLY "choice !" GOTO skypages6ok)
GOTO noprompt

skypages6ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 6,5,4"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages7:
WAIT 60 (ON REPLY " 8 TV SATELLITE " GOTO skypages8
         ON REPLY "choice !" GOTO skypages7ok)
GOTO noprompt

skypages7ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 7,6,5"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages8:
WAIT 60 (ON REPLY " 9 TV SATELLITE " GOTO skypages9
         ON REPLY "choice !" GOTO skypages8ok)
GOTO noprompt

skypages8ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 8,7,6"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages9:
WAIT 60 (ON REPLY " 10 TV SATELLITE " GOTO skypages10
         ON REPLY "choice !" GOTO skypages9ok)
GOTO noprompt

skypages9ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 9,8,7"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio

skypages10:
WAIT 60 (ON REPLY " 11 " GOTO unknownpage
         ON REPLY "choice !" GOTO skypages10ok)
GOTO noprompt

skypages10ok:
EXISTS "\cis\service\sky.cis" GOTO radio
SEND "s 10,9,8"
RECEIVE "\cis\service\sky.cis", "ASCII"
SENDWAIT 60 "m", "choice !" GOTO noprompt
GOTO radio



! ----------------- 6 RADIO -----------------------
radio:
SENDWAIT 60 "m", "choice !" GOTO noprompt
SENDWAIT 60 "6", " 1 " GOTO noprompt
radiopages1:
WAIT 60 (ON REPLY " 2 RADIO SUMMYS " GOTO radiopages2
         ON REPLY "choice !" GOTO radiopages1ok)
GOTO noprompt
         
radiopages1ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 1"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff

radiopages2:
WAIT 60 (ON REPLY " 3 RADIO SUMMYS " GOTO radiopages3
         ON REPLY "choice !" GOTO radiopages2ok)
GOTO noprompt

radiopages2ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 2,1"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff

radiopages3:
WAIT 60 (ON REPLY " 4 RADIO SUMMYS " GOTO radiopages4
         ON REPLY "choice !" GOTO radiopages3ok)
GOTO noprompt

radiopages3ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 3,2,1"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff

radiopages4:
WAIT 60 (ON REPLY " 5 RADIO SUMMYS " GOTO radiopages5
         ON REPLY "choice !" GOTO radiopages4ok)
GOTO noprompt

radiopages4ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 4,3,2"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff

radiopages5:
WAIT 60 (ON REPLY " 6 RADIO SUMMYS " GOTO radiopages6
         ON REPLY "choice !" GOTO radiopages5ok)
GOTO noprompt

radiopages5ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 5,4,3"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff

radiopages6:
WAIT 60 (ON REPLY " 7 RADIO SUMMYS " GOTO radiopages7
         ON REPLY "choice !" GOTO radiopages6ok)
GOTO noprompt

radiopages6ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 6,5,4"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff

radiopages7:
WAIT 60 (ON REPLY " 8 RADIO SUMMYS " GOTO radiopages8
         ON REPLY "choice !" GOTO radiopages7ok)
GOTO noprompt

radiopages7ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 7,6,5"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff

radiopages8:
WAIT 60 (ON REPLY " 9 " GOTO unknownpage
         ON REPLY "choice !" GOTO radiopages8ok)
GOTO noprompt

radiopages8ok:
EXISTS "\cis\service\radio.cis" GOTO logoff
SEND "s 8,7,6"
RECEIVE "\cis\service\radio.cis", "ASCII"
GOTO logoff


! -------------------------------------------------

noprompt:
INFO "Compuserve has not responded with a prompt"
WAIT 20
GOTO logoff

unknownpage:
INFO "Unknown page. Time to edit the script again!"
WAIT 20
GOTO logoff

! -------------------------------------------------

goodbye:

logoff:
EXISTS "a:\app\readcis\Logoff.sco" GOTO alogoff
EXISTS "b:\app\readcis\Logoff.sco" GOTO blogoff
EXISTS "m:\app\readcis\Logoff.sco" GOTO mlogoff
GOTO mylogoff

alogoff:
CALL "a:\app\readcis\Logoff.sco"
blogoff:
CALL "b:\app\readcis\Logoff.sco"
mlogoff:
CALL "m:\app\readcis\Logoff.sco"

mylogoff:
SENDWAIT 60 "off", "Connect" GOTO modemhangup

modemhangup:
SENDWAIT 20 "+++", "OK" GOTO disconnect
SENDWAIT 60 "ATH", "NO CARRIER" GOTO terminate
WAIT 20

disconnect:
HANGUP

terminate:
EXIT