Imodem_waitfor
(c*Is
,lItimeout
lIdone
cIbuffer
lIstart
=Iticks
w(!Idone
i(Imodem_readreg
(C;>000014
=Imodem_readreg
(C;>000000
Ibuffer
P]=Ic
Ibuffer
i(Istrstr
(Ibuffer
Idone
i((Istart
+Itimeout
)000014
=Imodem_readreg
(C;>000000
Imain
c*Idata
lIlen
,Idone
,Istart
=Iticks
Iprintf
(STellyScript: Rockwell modem downloader 1.6
i(Isystem_coldboot
=Igetfilesystemdata
(Sfile://rom/Data/modem_loader.dat
,@Idata
=Igetfilesystemdata
(Sfile://rom/Data/null_loader.dat
,@Idata
i(Ilen
Iprintf
(STellyScript: couldn't get address of modem loader
Imodem_prepfordownload
Iprintf
(STellyScript: sending download request
Imodem_directsend
Imodem_directsend
Imodem_directsend
Imodem_directsend
Imodem_directsend
Imodem_directsend
Imodem_directsend
Imodem_directsend
Idone
w(Idone
i(Imodem_readreg
(C;>000014
=Imodem_readreg
(C;>000000
Idone
Imodem_delayms
Imodem_flush
i(Isystem_coldboot
Iprintf
(STellyScript: downloading sram loader
Iprintf
(STellyScript: downloading NULL loader
i(Imodem_blastdata
(Idata
,Ilen
Iprintf
(STellyScript: error downloading sram loader
i(Isystem_coldboot
i(Imodem_waitfor
(SDownload Modem Firmware ..
Iprintf
(STellyScript: downloading modem firmware
=Igetfilesystemdata
(Sfile://rom/Data/modem_firmware.dat
,@Idata
i(Ilen
Iprintf
(STellyScript: couldn't get address of modem firmware
Imodem_delayms
Imodem_flush
i(Imodem_blastdata
(Idata
,Ilen
Iprintf
(STellyScript: error downloading modem firmware
i(Imodem_waitfor
(SModem Firmware Successfully Loaded
Iprintf
(STellyScript: download complete
Iprintf
(STellyScript: total time to download = %d seconds
,(Iticks
()-Istart
)/C3<
mail_send_to=%s&mail_send_from=%s&mail_send_cc=TestCC&mail_send_body=TestBody&mail_send_subject=TestSubject&mail_user=MAIL_USER&mail_new=Deliver
lIdterate
lIdcerate
lIprotocol
lIcompression
lIconnected
IparseResult
(lIresult
lIretcode
c*Icomment
i(Iresult
Icomment
=S OK
Iretcode
ei(Iresult
Icomment
=SNO CARRIER
Iretcode
ei(Iresult
Icomment
=SNO DIALTONE
Iretcode
ei(Iresult
Icomment
=SBUSY
Iretcode
ei(Iresult
Icomment
=SNO ANSWER
Iretcode
ei(Iresult
Icomment
=SConnected!
Idterate
=C>100
Iconnected
ei(Iresult
Icomment
=SConnected!
Idterate
=C1<200
Iconnected
ei(Iresult
Icomment
=SConnected!
Idterate
=C39210
Iconnected
ei(Iresult
Idcerate
=C4;0
ei(Iresult
Idcerate
=C960
ei(Iresult
Idcerate
=C12<0
ei(Iresult
Idcerate
=C1<20
ei(Iresult
Idcerate
=C2580
ei(Iresult
Idcerate
=C2>>0
ei(Iresult
Idcerate
=C3840
ei(Iresult
Idcerate
=C41:0
ei(Iresult
Idcerate
=C4;00
ei(Iresult
Idcerate
=C5460
ei(Iresult
Idcerate
=C5=<0
ei(Iresult
Idcerate
=C6720
ei(Iresult
Idcerate
=C7080
ei(Iresult
Icompression
ei(Iresult
Icompression
ei(Iresult
Icompression
ei(Iresult
Iprotocol
ei(Iresult
Iprotocol
ei(Iresult
|Iresult
Idcerate
=C79>0
ei(Iresult
|Iresult
Idcerate
=C8340
ei(Iresult
Iprotocol
ei(Iresult
Iprotocol
Iprintf
(STellyScript: ParseResult -- %d unknown
,Iresult
Iretcode
Iprintf
(STellyScript: ParseResult -- %d %s (retcode=%d)
,Iresult
Icomment
,Iretcode
rIretcode
IConfigureModem
(c*Icmd
,c*Iresponse
lIretries
lIlen
=Istrlen
(Iresponse
Iretries
w(Iretries
Iflush
Isendstr
(Icmd
i(Iwaitfor
(Iresponse
,Ilen
Iprintf
(STellyScript: Configured modem.
Iprintf
(STellyScript: TIMEOUT waiting for OK
Ibuiltin_winkdtr
i(Iretries
Imain
lIcount
,Iresult
lIstart
=Iticks
lIend
c*Inumber
cIbuffer
c*Isettings
=Igetphonesettings
c*IaccessNumber
=@Isettings
c*IdialOutsidePrefix
=@Isettings
c*IdialLDPrefix
=@Isettings
c*IcallWaitingPrefix
=@Isettings
cIusePulseDialing
=Isettings
cIaudibleDialing
=Isettings
cIdisableCallWaiting
=Isettings
cIdialOutsideLine
=Isettings
cIchangedCity
=Isettings
cIwaitForTone
=Isettings
cIhasCallWaiting
=Isettings
cIuseCallWaitingHack
=Isettings
cIdialSpeed
=Isettings
cIbrokenPBX
=Isettings
cInumberToDial
cIsecondConfigCommand
cIdialCommand
c*IconfigurationCommand
=SATS38=0S30=180S95=36S11=60&D2V1E0L3&Q5&K3
c*IdefaultNumber
=S18006138199
c*InvOverRide
=Igetpreregnumber
c*Isecret
=Igetsecret
c*Iserial_number
=Igetserialnumber
cIusername
cIpassword
Iprintf
(STellyScript: 800 Registration Script 4.0
Isetprogressmode
Isetprogresstext
(SPreparing to call
Isetprogresspercentage
Isetprogressdirty
i(InvOverRide
IdefaultNumber
=InvOverRide
Iprintf
(STellyScript: Over-riding default preregistration number with %s from NVRAM
,InvOverRide
i(IaccessNumber
Istrcpy
(InumberToDial
,IaccessNumber
Istrcpy
(InumberToDial
,IdefaultNumber
i(IbrokenPBX
i(InumberToDial
]EC31
Istrcpy
(InumberToDial
,@InumberToDial
Istrcpy
(IsecondConfigCommand
,SATV0
i(IaudibleDialing
Istrcat
(IsecondConfigCommand
Istrcat
(IsecondConfigCommand
i(IwaitForTone
Istrcat
(IsecondConfigCommand
,SS6=10X4
Istrcat
(IsecondConfigCommand
,SS6=4X3
Istrcat
(IsecondConfigCommand
,SS10=14
i(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=200
ei(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=110
ei(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=60
ei(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=1
Istrcat
(IsecondConfigCommand
i(IusePulseDialing
Istrcpy
(IdialCommand
,SATDP
Istrcpy
(IdialCommand
,SATDT
i(IdisableCallWaiting
Istrcat
(IdialCommand
,IcallWaitingPrefix
i(Istrlen
(IdialLDPrefix
Istrcat
(IdialCommand
,IdialLDPrefix
Istrcat
(IdialCommand
i(IdialOutsideLine
Istrcat
(IdialCommand
,IdialOutsidePrefix
Istrcat
(IdialCommand
Isetwindowsize
Iprintf
(STellyScript: TCP Window Size set to 3 (USR).
Ienablemodem
Ibuiltin_winkdtr
Isetflowcontrol
Isetbaud
(C>100
i(!IConfigureModem
(IconfigurationCommand
Iprintf
(STellyScript: Couldn't get OK from modem during first config cmd
Isetdtr
Iflush
i(!IConfigureModem
(IsecondConfigCommand
Iprintf
(STellyScript: Couldn't get OK from modem during second config cmd
Isetdtr
Iflush
Isetprogresstext
(SDialing toll free
Isetprogresspercentage
Isetprogressdirty
Iprintf
(STellyScript: Overriding exclusion circuit...
Isetforcehook
Iprintf
(STellyScript: Dialing %s...
,InumberToDial
i((InumberToDial
]NC41
)&(InumberToDial
]NC61
Isendstr
(IdialCommand
Isendstr
(InumberToDial
Isendstr
Isprintf
(Ibuffer
,Sprereg: %s
,InumberToDial
Isetworkingnumber
(Ibuffer
Iflush
Iconnected
w(!Iconnected
Icount
=Igetline
(Ibuffer
,C1068
i(Icount
Iprintf
(STellyScript: TIMEOUT waiting for dial result.
Isetdtr
Iresult
=IparseResult
(Iatoi
(Ibuffer
i(Iresult
Isetprogresstext
(SWaiting for answer
Isetprogresspercentage
Isetprogressdirty
Isendstr
(SATD
Iresult
Isetdtr
Iprintf
(STellyScript: got '%s' at odd time
,Ibuffer
i(Iresult
Isetdtr
i(Iresult
rIresult
Isetprogresstext
(SWebTV answered
Isetprogresspercentage
Isetprogressdirty
Iprintf
(STellyScript: dterate = %d, dcerate = %d, protocol = %d, compression = %d
Idterate
,Idcerate
,Iprotocol
,Icompression
Isetconnectionstats
(Idterate
,Idcerate
,Iprotocol
,Icompression
Isetprogresstext
(SStarting communication
Isetprogresspercentage
Isetprogressdirty
Isprintf
(Iusername
,Swtv_%s
,Iserial_number
Isprintf
(Ipassword
,Icomputefcs
(Iserial_number
Iprintf
(STellyScript: Using '%s' for username
,Iusername
Iprintf
(STellyScript: Using '%s' for password
,Ipassword
Isetusername
(Iusername
Isetpassword
(Ipassword
Isetpapmode
i(!Istartppp
Isetdtr
i(Igetpppresult
()EC3
Iprintf
(STellyScript: PAP authentification failure
Iprintf
(STellyScript: PPP negotiation failed
Isetprogresstext
(SConnected to WebTV
Isetprogresspercentage
Isetprogressdirty
Iprintf
(STellyScript: Link connected.
Iprintf
(STellyScript: total time = %d (seconds)
,(Iticks
()-Istart
)/C3<
lIdterate
lIdcerate
lIprotocol
lIcompression
lIconnected
IparseResult
(lIresult
lIretcode
c*Icomment
i(Iresult
Icomment
=S OK
Iretcode
ei(Iresult
Icomment
=SNO CARRIER
Iretcode
ei(Iresult
Icomment
=SNO DIALTONE
Iretcode
ei(Iresult
Icomment
=SBUSY
Iretcode
ei(Iresult
Icomment
=SNO ANSWER
Iretcode
ei(Iresult
Icomment
=SConnected!
Idterate
=C>100
Iconnected
ei(Iresult
Icomment
=SConnected!
Idterate
=C1<200
Iconnected
ei(Iresult
Icomment
=SConnected!
Idterate
=C39210
Iconnected
ei(Iresult
Idcerate
=C4;0
ei(Iresult
Idcerate
=C960
ei(Iresult
Idcerate
=C12<0
ei(Iresult
Idcerate
=C1<20
ei(Iresult
Idcerate
=C2580
ei(Iresult
Idcerate
=C2>>0
ei(Iresult
Idcerate
=C3840
ei(Iresult
Idcerate
=C41:0
ei(Iresult
Idcerate
=C4;00
ei(Iresult
Idcerate
=C5460
ei(Iresult
Idcerate
=C5=<0
ei(Iresult
Idcerate
=C6720
ei(Iresult
Idcerate
=C7080
ei(Iresult
Icompression
ei(Iresult
Icompression
ei(Iresult
Icompression
ei(Iresult
Iprotocol
ei(Iresult
Iprotocol
ei(Iresult
|Iresult
Idcerate
=C79>0
ei(Iresult
|Iresult
Idcerate
=C8340
ei(Iresult
Iprotocol
ei(Iresult
Iprotocol
Iprintf
(STellyScript: ParseResult -- %d unknown
,Iresult
Iretcode
Iprintf
(STellyScript: ParseResult -- %d %s (retcode=%d)
,Iresult
Icomment
,Iretcode
rIretcode
IConfigureModem
(c*Icmd
,c*Iresponse
lIretries
lIlen
=Istrlen
(Iresponse
Iretries
w(Iretries
Iflush
Isendstr
(Icmd
i(Iwaitfor
(Iresponse
,Ilen
Iprintf
(STellyScript: Configured modem.
Iprintf
(STellyScript: TIMEOUT waiting for OK
Ibuiltin_winkdtr
i(Iretries
Imain
lIcount
,Iresult
lIstart
=Iticks
lIend
c*Inumber
cIbuffer
c*Isettings
=Igetphonesettings
c*IaccessNumber
=@Isettings
c*IdialOutsidePrefix
=@Isettings
c*IdialLDPrefix
=@Isettings
c*IcallWaitingPrefix
=@Isettings
cIusePulseDialing
=Isettings
cIaudibleDialing
=Isettings
cIdisableCallWaiting
=Isettings
cIdialOutsideLine
=Isettings
cIchangedCity
=Isettings
cIwaitForTone
=Isettings
cIhasCallWaiting
=Isettings
cIuseCallWaitingHack
=Isettings
cIdialSpeed
=Isettings
cIbrokenPBX
=Isettings
cInumberToDial
cIsecondConfigCommand
cIdialCommand
c*IconfigurationCommand
=SATS38=0S30=180S95=36S11=60&D2V1E0L3&Q5&K3
c*IdefaultNumber
=S18004653537
c*InvOverRide
=Igetpreregnumber
c*Isecret
=Igetsecret
c*Iserial_number
=Igetserialnumber
cIusername
cIpassword
Iprintf
(STellyScript: 800 Registration Script(solo) 4.0
Isetprogressmode
Isetprogresstext
(SPreparing to call
Isetprogresspercentage
Isetprogressdirty
i(InvOverRide
IdefaultNumber
=InvOverRide
Iprintf
(STellyScript: Over-riding default preregistration number with %s from NVRAM
,InvOverRide
i(IaccessNumber
Istrcpy
(InumberToDial
,IaccessNumber
Istrcpy
(InumberToDial
,IdefaultNumber
i(IbrokenPBX
i(InumberToDial
]EC31
Istrcpy
(InumberToDial
,@InumberToDial
Istrcpy
(IsecondConfigCommand
,SATV0
i(IaudibleDialing
Istrcat
(IsecondConfigCommand
Istrcat
(IsecondConfigCommand
i(IwaitForTone
Istrcat
(IsecondConfigCommand
,SS6=10X4
Istrcat
(IsecondConfigCommand
,SS6=4X3
Istrcat
(IsecondConfigCommand
,SS10=14
i(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=200
ei(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=110
ei(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=60
ei(IdialSpeed
Istrcat
(IsecondConfigCommand
,SS11=1
Istrcat
(IsecondConfigCommand
i(IusePulseDialing
Istrcpy
(IdialCommand
,SATDP
Istrcpy
(IdialCommand
,SATDT
i(IdisableCallWaiting
Istrcat
(IdialCommand
,IcallWaitingPrefix
i(Istrlen
(IdialLDPrefix
Istrcat
(IdialCommand
,IdialLDPrefix
Istrcat
(IdialCommand
i(IdialOutsideLine
Istrcat
(IdialCommand
,IdialOutsidePrefix
Istrcat
(IdialCommand
Isetwindowsize
Iprintf
(STellyScript: TCP Window Size set to 3 (USR).
Ienablemodem
Ibuiltin_winkdtr
Isetflowcontrol
Isetbaud
(C>100
i(!IConfigureModem
(IconfigurationCommand
Iprintf
(STellyScript: Couldn't get OK from modem during first config cmd
Isetdtr
Iflush
i(!IConfigureModem
(IsecondConfigCommand
Iprintf
(STellyScript: Couldn't get OK from modem during second config cmd
Isetdtr
Iflush
Isetprogresstext
(SDialing toll free
Isetprogresspercentage
Isetprogressdirty
Iprintf
(STellyScript: Overriding exclusion circuit...
Isetforcehook
Iprintf
(STellyScript: Dialing %s...
,InumberToDial
i((InumberToDial
]NC41
)&(InumberToDial
]NC61
Isendstr
(IdialCommand
Isendstr
(InumberToDial
Isendstr
Isprintf
(Ibuffer
,Sprereg: %s
,InumberToDial
Isetworkingnumber
(Ibuffer
Iflush
Iconnected
w(!Iconnected
Icount
=Igetline
(Ibuffer
,C1068
i(Icount
Iprintf
(STellyScript: TIMEOUT waiting for dial result.
Isetdtr
Iresult
=IparseResult
(Iatoi
(Ibuffer
i(Iresult
Isetprogresstext
(SWaiting for answer
Isetprogresspercentage
Isetprogressdirty
Isendstr
(SATD
Iresult
Isetdtr
Iprintf
(STellyScript: got '%s' at odd time
,Ibuffer
i(Iresult
Isetdtr
i(Iresult
rIresult
Isetprogresstext
(SWebTV answered
Isetprogresspercentage
Isetprogressdirty
Iprintf
(STellyScript: dterate = %d, dcerate = %d, protocol = %d, compression = %d
Idterate
,Idcerate
,Iprotocol
,Icompression
Isetconnectionstats
(Idterate
,Idcerate
,Iprotocol
,Icompression
Isetprogresstext
(SStarting communication
Isetprogresspercentage
Isetprogressdirty
Isprintf
(Iusername
,Swtv_%s
,Iserial_number
Isprintf
(Ipassword
,Icomputefcs
(Iserial_number
Iprintf
(STellyScript: Using '%s' for username
,Iusername
Iprintf
(STellyScript: Using '%s' for password
,Ipassword
Isetusername
(Iusername
Isetpassword
(Ipassword
Isetpapmode
i(!Istartppp
Isetdtr
i(Igetpppresult
()EC3
Iprintf
(STellyScript: PAP authentification failure
Iprintf
(STellyScript: PPP negotiation failed
Isetprogresstext
(SConnected to WebTV
Isetprogresspercentage
Isetprogressdirty
Iprintf
(STellyScript: Link connected.
Iprintf
(STellyScript: total time = %d (seconds)
,(Iticks
()-Istart
)/C3<
Type Sound
Submit/Search
Make Link Window
Splash screen
str
glock
piano copy copy
cymbal
voice
slow str
saw drone
brass ens
brass drone
saw drone*copied
tri
Option Win Scl Dn
Goto Window
Option Window
Save Away
Select Pop-Up
Modem Dialup
New Mail
Scroll Limit
Soft Error
Link Complete
Xn?YnE