Home » Archimedes archive » Acorn User » AU 1995-04.adf » !Internet_StarterPak » !DemConfig/Blanks/FirstDemon
!DemConfig/Blanks/FirstDemon
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-04.adf » !Internet_StarterPak |
| Filename: | !DemConfig/Blanks/FirstDemon |
| Read OK: | ✔ |
| File size: | 0DA2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
#slipdial
#----------------------------------------------------------------
# Script to perform initial dial-up to Demon.
# This is needed to set a password and get the IP address.
#----------------------------------------------------------------
# Set trace level
debug 3
# Configure
set wport "{{driver}}"
set prtnum {{port}}
set speed {{speed}}
set nodename "{{node}}"
set password "{{dempw}}"
# Initialise the modem driver
driver USR
port %wport %prtnum
speed %speed
# Ring the London vPoP
set phonenum 01813384848
# Claim the device driver
if (!claim 3) goto noclaim
# Initialise the modem
if (! init) goto noinit
# Dial Demon; exit if failed
if (!dial /retry=1 /delay=10 %phonenum) goto noanswer
# Hurrah, we got in! No we expect:
# <machine>.demon.co.uk (tty<something>):
# demon login:
# To which we reply with our nodename.
if (!wait /delay=30 "login:") goto nologin
send %nodename
# Now Demon should say:
# There is no password on your account....
# Password:
# If the password has already been set, it just prompts for the password.
if (!wait /delay=10 "Password:") goto nopass
send %password
# If the account is a new one, Demon now prompt with:
# Re-Enter to confirm:
# If it's already been set up, we get:
# Protocol:
# If the account is not set up, or is set up with a different password,
# we get:
# Login incorrect
set response {wait/delay=20 "confirm:" "Protocol:" "incorrect"}
if (?eq %response 0) goto noip
if (?eq %response 3) goto badnode
# If logging in for the first time, need to confirm the password
# Otherwise, tell it what protocol
if (?eq %response 1) send %password
if (?eq %response 2) send "slip"
# We should now get
# <nodename>: IP Address: 158.152.<whatever> ...
# So we just need to capture the IP address
if (!ipget/delay=20 "158.152.") goto noip
# Hang up the phone line
release
# Write the IP address for !DemConfig to pick up
set ipfile "<DemConfig$Dir>.IpAddr"
open/id=f/write %ipfile
write/id=f "Set DemConfig$IpAddr %ipaddress"
close/id=f
oscli "SetType %ipfile Obey"
# Restart !DemConfig to finish the configuration
message/centre "IP address successfully retrieved."
message/add/centre %ipaddress
message/add/centre/wait "Close this window to return to !DemConfig."
task <DemConfig$Dir>
quit
# ---- Error handling ----
:noclaim
set err1 "Unable to claim the device driver."
set err2 "Is something else using the serial port?"
goto fail
:noinit
set err1 "Modem initialisation failed."
set err2 "Is it connected and switched on?"
goto fail
:noanswer
release
set err1 "No dialling tone, no answer, engaged or no carrier."
set err2 "Check modem settings and/or try again later."
goto fail
:nologin
release
set err1 "No 'login:' prompt after 20 seconds"
set err2 "Demon being very slow? Try again later."
goto fail
:nopass
release
set err1 "No 'Password:' prompt after 10 seconds"
set err2 "Demon being very slow? Try again later."
goto fail
:noip
release
set err1 "No IP address forthcoming from Demon."
# Don't know what might have happened here...
set err2 "Click ADJUST on the SLIPdial icon to see the log."
goto fail
:badnode
release
set err1 "Demon say your nodename / password are incorrect."
set err2 "Is account set up yet? Or is another password already set?"
goto fail
# --- Common exit point on error
:fail
message/centre "*** Initial login to Demon failed ***"
message/add/centre "%err1"
message/add/centre "%err2"
message/add/centre/wait "Close this window to return to !DemConfig."
task <DemConfig$Dir>
quit
00000000 23 73 6c 69 70 64 69 61 6c 0a 23 2d 2d 2d 2d 2d |#slipdial.#-----|
00000010 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
00000040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 09 53 63 |-----------.#.Sc|
00000050 72 69 70 74 20 74 6f 20 70 65 72 66 6f 72 6d 20 |ript to perform |
00000060 69 6e 69 74 69 61 6c 20 64 69 61 6c 2d 75 70 20 |initial dial-up |
00000070 74 6f 20 44 65 6d 6f 6e 2e 0a 23 09 54 68 69 73 |to Demon..#.This|
00000080 20 69 73 20 6e 65 65 64 65 64 20 74 6f 20 73 65 | is needed to se|
00000090 74 20 61 20 70 61 73 73 77 6f 72 64 20 61 6e 64 |t a password and|
000000a0 20 67 65 74 20 74 68 65 20 49 50 20 61 64 64 72 | get the IP addr|
000000b0 65 73 73 2e 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |ess..#----------|
000000c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
*
000000f0 2d 2d 2d 2d 2d 2d 0a 0a 23 20 53 65 74 20 74 72 |------..# Set tr|
00000100 61 63 65 20 6c 65 76 65 6c 0a 64 65 62 75 67 20 |ace level.debug |
00000110 33 0a 0a 23 20 43 6f 6e 66 69 67 75 72 65 0a 73 |3..# Configure.s|
00000120 65 74 20 77 70 6f 72 74 20 22 7b 7b 64 72 69 76 |et wport "{{driv|
00000130 65 72 7d 7d 22 0a 73 65 74 20 70 72 74 6e 75 6d |er}}".set prtnum|
00000140 20 7b 7b 70 6f 72 74 7d 7d 0a 73 65 74 20 73 70 | {{port}}.set sp|
00000150 65 65 64 20 7b 7b 73 70 65 65 64 7d 7d 0a 73 65 |eed {{speed}}.se|
00000160 74 20 6e 6f 64 65 6e 61 6d 65 20 22 7b 7b 6e 6f |t nodename "{{no|
00000170 64 65 7d 7d 22 0a 73 65 74 20 70 61 73 73 77 6f |de}}".set passwo|
00000180 72 64 20 22 7b 7b 64 65 6d 70 77 7d 7d 22 0a 0a |rd "{{dempw}}"..|
00000190 23 20 49 6e 69 74 69 61 6c 69 73 65 20 74 68 65 |# Initialise the|
000001a0 20 6d 6f 64 65 6d 20 64 72 69 76 65 72 0a 64 72 | modem driver.dr|
000001b0 69 76 65 72 20 55 53 52 0a 70 6f 72 74 20 25 77 |iver USR.port %w|
000001c0 70 6f 72 74 20 25 70 72 74 6e 75 6d 0a 73 70 65 |port %prtnum.spe|
000001d0 65 64 20 25 73 70 65 65 64 0a 0a 23 20 52 69 6e |ed %speed..# Rin|
000001e0 67 20 74 68 65 20 4c 6f 6e 64 6f 6e 20 76 50 6f |g the London vPo|
000001f0 50 0a 73 65 74 20 70 68 6f 6e 65 6e 75 6d 20 30 |P.set phonenum 0|
00000200 31 38 31 33 33 38 34 38 34 38 0a 0a 23 20 43 6c |1813384848..# Cl|
00000210 61 69 6d 20 74 68 65 20 64 65 76 69 63 65 20 64 |aim the device d|
00000220 72 69 76 65 72 0a 69 66 20 28 21 63 6c 61 69 6d |river.if (!claim|
00000230 20 33 29 20 67 6f 74 6f 20 6e 6f 63 6c 61 69 6d | 3) goto noclaim|
00000240 0a 0a 23 20 49 6e 69 74 69 61 6c 69 73 65 20 74 |..# Initialise t|
00000250 68 65 20 6d 6f 64 65 6d 0a 69 66 20 28 21 20 69 |he modem.if (! i|
00000260 6e 69 74 29 20 67 6f 74 6f 20 6e 6f 69 6e 69 74 |nit) goto noinit|
00000270 0a 0a 23 20 44 69 61 6c 20 44 65 6d 6f 6e 3b 20 |..# Dial Demon; |
00000280 65 78 69 74 20 69 66 20 66 61 69 6c 65 64 0a 69 |exit if failed.i|
00000290 66 20 28 21 64 69 61 6c 20 2f 72 65 74 72 79 3d |f (!dial /retry=|
000002a0 31 20 2f 64 65 6c 61 79 3d 31 30 20 25 70 68 6f |1 /delay=10 %pho|
000002b0 6e 65 6e 75 6d 29 20 67 6f 74 6f 20 6e 6f 61 6e |nenum) goto noan|
000002c0 73 77 65 72 0a 0a 23 20 48 75 72 72 61 68 2c 20 |swer..# Hurrah, |
000002d0 77 65 20 67 6f 74 20 69 6e 21 20 20 4e 6f 20 77 |we got in! No w|
000002e0 65 20 65 78 70 65 63 74 3a 0a 23 09 3c 6d 61 63 |e expect:.#.<mac|
000002f0 68 69 6e 65 3e 2e 64 65 6d 6f 6e 2e 63 6f 2e 75 |hine>.demon.co.u|
00000300 6b 20 28 74 74 79 3c 73 6f 6d 65 74 68 69 6e 67 |k (tty<something|
00000310 3e 29 3a 0a 23 09 64 65 6d 6f 6e 20 6c 6f 67 69 |>):.#.demon logi|
00000320 6e 3a 0a 23 20 54 6f 20 77 68 69 63 68 20 77 65 |n:.# To which we|
00000330 20 72 65 70 6c 79 20 77 69 74 68 20 6f 75 72 20 | reply with our |
00000340 6e 6f 64 65 6e 61 6d 65 2e 0a 0a 69 66 20 28 21 |nodename...if (!|
00000350 77 61 69 74 20 2f 64 65 6c 61 79 3d 33 30 20 22 |wait /delay=30 "|
00000360 6c 6f 67 69 6e 3a 22 29 20 67 6f 74 6f 20 6e 6f |login:") goto no|
00000370 6c 6f 67 69 6e 0a 73 65 6e 64 20 25 6e 6f 64 65 |login.send %node|
00000380 6e 61 6d 65 0a 0a 23 20 4e 6f 77 20 44 65 6d 6f |name..# Now Demo|
00000390 6e 20 73 68 6f 75 6c 64 20 73 61 79 3a 0a 23 09 |n should say:.#.|
000003a0 54 68 65 72 65 20 69 73 20 6e 6f 20 70 61 73 73 |There is no pass|
000003b0 77 6f 72 64 20 6f 6e 20 79 6f 75 72 20 61 63 63 |word on your acc|
000003c0 6f 75 6e 74 2e 2e 2e 2e 0a 23 09 50 61 73 73 77 |ount.....#.Passw|
000003d0 6f 72 64 3a 0a 23 20 49 66 20 74 68 65 20 70 61 |ord:.# If the pa|
000003e0 73 73 77 6f 72 64 20 68 61 73 20 61 6c 72 65 61 |ssword has alrea|
000003f0 64 79 20 62 65 65 6e 20 73 65 74 2c 20 69 74 20 |dy been set, it |
00000400 6a 75 73 74 20 70 72 6f 6d 70 74 73 20 66 6f 72 |just prompts for|
00000410 20 74 68 65 20 70 61 73 73 77 6f 72 64 2e 0a 69 | the password..i|
00000420 66 20 28 21 77 61 69 74 20 2f 64 65 6c 61 79 3d |f (!wait /delay=|
00000430 31 30 20 22 50 61 73 73 77 6f 72 64 3a 22 29 20 |10 "Password:") |
00000440 67 6f 74 6f 20 6e 6f 70 61 73 73 0a 73 65 6e 64 |goto nopass.send|
00000450 20 25 70 61 73 73 77 6f 72 64 0a 0a 23 20 49 66 | %password..# If|
00000460 20 74 68 65 20 61 63 63 6f 75 6e 74 20 69 73 20 | the account is |
00000470 61 20 6e 65 77 20 6f 6e 65 2c 20 44 65 6d 6f 6e |a new one, Demon|
00000480 20 6e 6f 77 20 70 72 6f 6d 70 74 20 77 69 74 68 | now prompt with|
00000490 3a 0a 23 09 52 65 2d 45 6e 74 65 72 20 74 6f 20 |:.#.Re-Enter to |
000004a0 63 6f 6e 66 69 72 6d 3a 0a 23 20 49 66 20 69 74 |confirm:.# If it|
000004b0 27 73 20 61 6c 72 65 61 64 79 20 62 65 65 6e 20 |'s already been |
000004c0 73 65 74 20 75 70 2c 20 77 65 20 67 65 74 3a 0a |set up, we get:.|
000004d0 23 09 50 72 6f 74 6f 63 6f 6c 3a 0a 23 20 49 66 |#.Protocol:.# If|
000004e0 20 74 68 65 20 61 63 63 6f 75 6e 74 20 69 73 20 | the account is |
000004f0 6e 6f 74 20 73 65 74 20 75 70 2c 20 6f 72 20 69 |not set up, or i|
00000500 73 20 73 65 74 20 75 70 20 77 69 74 68 20 61 20 |s set up with a |
00000510 64 69 66 66 65 72 65 6e 74 20 70 61 73 73 77 6f |different passwo|
00000520 72 64 2c 0a 23 20 77 65 20 67 65 74 3a 0a 23 09 |rd,.# we get:.#.|
00000530 4c 6f 67 69 6e 20 69 6e 63 6f 72 72 65 63 74 0a |Login incorrect.|
00000540 73 65 74 20 72 65 73 70 6f 6e 73 65 20 7b 77 61 |set response {wa|
00000550 69 74 2f 64 65 6c 61 79 3d 32 30 20 22 63 6f 6e |it/delay=20 "con|
00000560 66 69 72 6d 3a 22 20 22 50 72 6f 74 6f 63 6f 6c |firm:" "Protocol|
00000570 3a 22 20 22 69 6e 63 6f 72 72 65 63 74 22 7d 0a |:" "incorrect"}.|
00000580 69 66 20 28 3f 65 71 20 25 72 65 73 70 6f 6e 73 |if (?eq %respons|
00000590 65 20 30 29 20 67 6f 74 6f 20 6e 6f 69 70 0a 69 |e 0) goto noip.i|
000005a0 66 20 28 3f 65 71 20 25 72 65 73 70 6f 6e 73 65 |f (?eq %response|
000005b0 20 33 29 20 67 6f 74 6f 20 62 61 64 6e 6f 64 65 | 3) goto badnode|
000005c0 0a 0a 23 20 49 66 20 6c 6f 67 67 69 6e 67 20 69 |..# If logging i|
000005d0 6e 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 |n for the first |
000005e0 74 69 6d 65 2c 20 6e 65 65 64 20 74 6f 20 63 6f |time, need to co|
000005f0 6e 66 69 72 6d 20 74 68 65 20 70 61 73 73 77 6f |nfirm the passwo|
00000600 72 64 0a 23 20 4f 74 68 65 72 77 69 73 65 2c 20 |rd.# Otherwise, |
00000610 74 65 6c 6c 20 69 74 20 77 68 61 74 20 70 72 6f |tell it what pro|
00000620 74 6f 63 6f 6c 0a 69 66 20 28 3f 65 71 20 25 72 |tocol.if (?eq %r|
00000630 65 73 70 6f 6e 73 65 20 31 29 20 73 65 6e 64 20 |esponse 1) send |
00000640 25 70 61 73 73 77 6f 72 64 0a 69 66 20 28 3f 65 |%password.if (?e|
00000650 71 20 25 72 65 73 70 6f 6e 73 65 20 32 29 20 73 |q %response 2) s|
00000660 65 6e 64 20 22 73 6c 69 70 22 0a 0a 23 20 57 65 |end "slip"..# We|
00000670 20 73 68 6f 75 6c 64 20 6e 6f 77 20 67 65 74 0a | should now get.|
00000680 23 09 3c 6e 6f 64 65 6e 61 6d 65 3e 3a 20 49 50 |#.<nodename>: IP|
00000690 20 41 64 64 72 65 73 73 3a 20 31 35 38 2e 31 35 | Address: 158.15|
000006a0 32 2e 3c 77 68 61 74 65 76 65 72 3e 20 2e 2e 2e |2.<whatever> ...|
000006b0 0a 23 20 53 6f 20 77 65 20 6a 75 73 74 20 6e 65 |.# So we just ne|
000006c0 65 64 20 74 6f 20 63 61 70 74 75 72 65 20 74 68 |ed to capture th|
000006d0 65 20 49 50 20 61 64 64 72 65 73 73 0a 69 66 20 |e IP address.if |
000006e0 28 21 69 70 67 65 74 2f 64 65 6c 61 79 3d 32 30 |(!ipget/delay=20|
000006f0 20 22 31 35 38 2e 31 35 32 2e 22 29 20 67 6f 74 | "158.152.") got|
00000700 6f 20 6e 6f 69 70 0a 0a 23 20 48 61 6e 67 20 75 |o noip..# Hang u|
00000710 70 20 74 68 65 20 70 68 6f 6e 65 20 6c 69 6e 65 |p the phone line|
00000720 0a 72 65 6c 65 61 73 65 0a 0a 23 20 57 72 69 74 |.release..# Writ|
00000730 65 20 74 68 65 20 49 50 20 61 64 64 72 65 73 73 |e the IP address|
00000740 20 66 6f 72 20 21 44 65 6d 43 6f 6e 66 69 67 20 | for !DemConfig |
00000750 74 6f 20 70 69 63 6b 20 75 70 0a 73 65 74 20 69 |to pick up.set i|
00000760 70 66 69 6c 65 20 22 3c 44 65 6d 43 6f 6e 66 69 |pfile "<DemConfi|
00000770 67 24 44 69 72 3e 2e 49 70 41 64 64 72 22 0a 6f |g$Dir>.IpAddr".o|
00000780 70 65 6e 2f 69 64 3d 66 2f 77 72 69 74 65 20 25 |pen/id=f/write %|
00000790 69 70 66 69 6c 65 0a 77 72 69 74 65 2f 69 64 3d |ipfile.write/id=|
000007a0 66 20 22 53 65 74 20 44 65 6d 43 6f 6e 66 69 67 |f "Set DemConfig|
000007b0 24 49 70 41 64 64 72 20 25 69 70 61 64 64 72 65 |$IpAddr %ipaddre|
000007c0 73 73 22 0a 63 6c 6f 73 65 2f 69 64 3d 66 0a 6f |ss".close/id=f.o|
000007d0 73 63 6c 69 20 22 53 65 74 54 79 70 65 20 25 69 |scli "SetType %i|
000007e0 70 66 69 6c 65 20 4f 62 65 79 22 0a 0a 23 20 52 |pfile Obey"..# R|
000007f0 65 73 74 61 72 74 20 21 44 65 6d 43 6f 6e 66 69 |estart !DemConfi|
00000800 67 20 74 6f 20 66 69 6e 69 73 68 20 74 68 65 20 |g to finish the |
00000810 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 6d 65 |configuration.me|
00000820 73 73 61 67 65 2f 63 65 6e 74 72 65 20 22 49 50 |ssage/centre "IP|
00000830 20 61 64 64 72 65 73 73 20 73 75 63 63 65 73 73 | address success|
00000840 66 75 6c 6c 79 20 72 65 74 72 69 65 76 65 64 2e |fully retrieved.|
00000850 22 0a 6d 65 73 73 61 67 65 2f 61 64 64 2f 63 65 |".message/add/ce|
00000860 6e 74 72 65 20 25 69 70 61 64 64 72 65 73 73 0a |ntre %ipaddress.|
00000870 6d 65 73 73 61 67 65 2f 61 64 64 2f 63 65 6e 74 |message/add/cent|
00000880 72 65 2f 77 61 69 74 20 22 43 6c 6f 73 65 20 74 |re/wait "Close t|
00000890 68 69 73 20 77 69 6e 64 6f 77 20 74 6f 20 72 65 |his window to re|
000008a0 74 75 72 6e 20 74 6f 20 21 44 65 6d 43 6f 6e 66 |turn to !DemConf|
000008b0 69 67 2e 22 0a 74 61 73 6b 20 3c 44 65 6d 43 6f |ig.".task <DemCo|
000008c0 6e 66 69 67 24 44 69 72 3e 0a 71 75 69 74 0a 0a |nfig$Dir>.quit..|
000008d0 23 20 2d 2d 2d 2d 20 45 72 72 6f 72 20 68 61 6e |# ---- Error han|
000008e0 64 6c 69 6e 67 20 2d 2d 2d 2d 0a 3a 6e 6f 63 6c |dling ----.:nocl|
000008f0 61 69 6d 0a 73 65 74 20 65 72 72 31 20 22 55 6e |aim.set err1 "Un|
00000900 61 62 6c 65 20 74 6f 20 63 6c 61 69 6d 20 74 68 |able to claim th|
00000910 65 20 64 65 76 69 63 65 20 64 72 69 76 65 72 2e |e device driver.|
00000920 22 0a 73 65 74 20 65 72 72 32 20 22 49 73 20 73 |".set err2 "Is s|
00000930 6f 6d 65 74 68 69 6e 67 20 65 6c 73 65 20 75 73 |omething else us|
00000940 69 6e 67 20 74 68 65 20 73 65 72 69 61 6c 20 70 |ing the serial p|
00000950 6f 72 74 3f 22 0a 67 6f 74 6f 20 66 61 69 6c 0a |ort?".goto fail.|
00000960 0a 3a 6e 6f 69 6e 69 74 0a 73 65 74 20 65 72 72 |.:noinit.set err|
00000970 31 20 22 4d 6f 64 65 6d 20 69 6e 69 74 69 61 6c |1 "Modem initial|
00000980 69 73 61 74 69 6f 6e 20 66 61 69 6c 65 64 2e 22 |isation failed."|
00000990 0a 73 65 74 20 65 72 72 32 20 22 49 73 20 69 74 |.set err2 "Is it|
000009a0 20 63 6f 6e 6e 65 63 74 65 64 20 61 6e 64 20 73 | connected and s|
000009b0 77 69 74 63 68 65 64 20 6f 6e 3f 22 0a 67 6f 74 |witched on?".got|
000009c0 6f 20 66 61 69 6c 0a 0a 3a 6e 6f 61 6e 73 77 65 |o fail..:noanswe|
000009d0 72 0a 72 65 6c 65 61 73 65 0a 73 65 74 20 65 72 |r.release.set er|
000009e0 72 31 20 22 4e 6f 20 64 69 61 6c 6c 69 6e 67 20 |r1 "No dialling |
000009f0 74 6f 6e 65 2c 20 6e 6f 20 61 6e 73 77 65 72 2c |tone, no answer,|
00000a00 20 65 6e 67 61 67 65 64 20 6f 72 20 6e 6f 20 63 | engaged or no c|
00000a10 61 72 72 69 65 72 2e 22 0a 73 65 74 20 65 72 72 |arrier.".set err|
00000a20 32 20 22 43 68 65 63 6b 20 6d 6f 64 65 6d 20 73 |2 "Check modem s|
00000a30 65 74 74 69 6e 67 73 20 61 6e 64 2f 6f 72 20 74 |ettings and/or t|
00000a40 72 79 20 61 67 61 69 6e 20 6c 61 74 65 72 2e 22 |ry again later."|
00000a50 0a 67 6f 74 6f 20 66 61 69 6c 0a 0a 3a 6e 6f 6c |.goto fail..:nol|
00000a60 6f 67 69 6e 0a 72 65 6c 65 61 73 65 0a 73 65 74 |ogin.release.set|
00000a70 20 65 72 72 31 20 22 4e 6f 20 27 6c 6f 67 69 6e | err1 "No 'login|
00000a80 3a 27 20 70 72 6f 6d 70 74 20 61 66 74 65 72 20 |:' prompt after |
00000a90 32 30 20 73 65 63 6f 6e 64 73 22 0a 73 65 74 20 |20 seconds".set |
00000aa0 65 72 72 32 20 22 44 65 6d 6f 6e 20 62 65 69 6e |err2 "Demon bein|
00000ab0 67 20 76 65 72 79 20 73 6c 6f 77 3f 20 54 72 79 |g very slow? Try|
00000ac0 20 61 67 61 69 6e 20 6c 61 74 65 72 2e 22 0a 67 | again later.".g|
00000ad0 6f 74 6f 20 66 61 69 6c 0a 0a 3a 6e 6f 70 61 73 |oto fail..:nopas|
00000ae0 73 0a 72 65 6c 65 61 73 65 0a 73 65 74 20 65 72 |s.release.set er|
00000af0 72 31 20 22 4e 6f 20 27 50 61 73 73 77 6f 72 64 |r1 "No 'Password|
00000b00 3a 27 20 70 72 6f 6d 70 74 20 61 66 74 65 72 20 |:' prompt after |
00000b10 31 30 20 73 65 63 6f 6e 64 73 22 0a 73 65 74 20 |10 seconds".set |
00000b20 65 72 72 32 20 22 44 65 6d 6f 6e 20 62 65 69 6e |err2 "Demon bein|
00000b30 67 20 76 65 72 79 20 73 6c 6f 77 3f 20 54 72 79 |g very slow? Try|
00000b40 20 61 67 61 69 6e 20 6c 61 74 65 72 2e 22 0a 67 | again later.".g|
00000b50 6f 74 6f 20 66 61 69 6c 0a 0a 3a 6e 6f 69 70 0a |oto fail..:noip.|
00000b60 72 65 6c 65 61 73 65 0a 73 65 74 20 65 72 72 31 |release.set err1|
00000b70 20 22 4e 6f 20 49 50 20 61 64 64 72 65 73 73 20 | "No IP address |
00000b80 66 6f 72 74 68 63 6f 6d 69 6e 67 20 66 72 6f 6d |forthcoming from|
00000b90 20 44 65 6d 6f 6e 2e 22 0a 23 20 44 6f 6e 27 74 | Demon.".# Don't|
00000ba0 20 6b 6e 6f 77 20 77 68 61 74 20 6d 69 67 68 74 | know what might|
00000bb0 20 68 61 76 65 20 68 61 70 70 65 6e 65 64 20 68 | have happened h|
00000bc0 65 72 65 2e 2e 2e 0a 73 65 74 20 65 72 72 32 20 |ere....set err2 |
00000bd0 22 43 6c 69 63 6b 20 41 44 4a 55 53 54 20 6f 6e |"Click ADJUST on|
00000be0 20 74 68 65 20 53 4c 49 50 64 69 61 6c 20 69 63 | the SLIPdial ic|
00000bf0 6f 6e 20 74 6f 20 73 65 65 20 74 68 65 20 6c 6f |on to see the lo|
00000c00 67 2e 22 0a 67 6f 74 6f 20 66 61 69 6c 0a 0a 3a |g.".goto fail..:|
00000c10 62 61 64 6e 6f 64 65 0a 72 65 6c 65 61 73 65 0a |badnode.release.|
00000c20 73 65 74 20 65 72 72 31 20 22 44 65 6d 6f 6e 20 |set err1 "Demon |
00000c30 73 61 79 20 79 6f 75 72 20 6e 6f 64 65 6e 61 6d |say your nodenam|
00000c40 65 20 2f 20 70 61 73 73 77 6f 72 64 20 61 72 65 |e / password are|
00000c50 20 69 6e 63 6f 72 72 65 63 74 2e 22 0a 73 65 74 | incorrect.".set|
00000c60 20 65 72 72 32 20 22 49 73 20 61 63 63 6f 75 6e | err2 "Is accoun|
00000c70 74 20 73 65 74 20 75 70 20 79 65 74 3f 20 20 4f |t set up yet? O|
00000c80 72 20 69 73 20 61 6e 6f 74 68 65 72 20 70 61 73 |r is another pas|
00000c90 73 77 6f 72 64 20 61 6c 72 65 61 64 79 20 73 65 |sword already se|
00000ca0 74 3f 22 0a 67 6f 74 6f 20 66 61 69 6c 0a 0a 23 |t?".goto fail..#|
00000cb0 20 2d 2d 2d 20 43 6f 6d 6d 6f 6e 20 65 78 69 74 | --- Common exit|
00000cc0 20 70 6f 69 6e 74 20 6f 6e 20 65 72 72 6f 72 0a | point on error.|
00000cd0 3a 66 61 69 6c 0a 6d 65 73 73 61 67 65 2f 63 65 |:fail.message/ce|
00000ce0 6e 74 72 65 20 22 2a 2a 2a 20 49 6e 69 74 69 61 |ntre "*** Initia|
00000cf0 6c 20 6c 6f 67 69 6e 20 74 6f 20 44 65 6d 6f 6e |l login to Demon|
00000d00 20 66 61 69 6c 65 64 20 2a 2a 2a 22 0a 6d 65 73 | failed ***".mes|
00000d10 73 61 67 65 2f 61 64 64 2f 63 65 6e 74 72 65 20 |sage/add/centre |
00000d20 22 25 65 72 72 31 22 0a 6d 65 73 73 61 67 65 2f |"%err1".message/|
00000d30 61 64 64 2f 63 65 6e 74 72 65 20 22 25 65 72 72 |add/centre "%err|
00000d40 32 22 0a 6d 65 73 73 61 67 65 2f 61 64 64 2f 63 |2".message/add/c|
00000d50 65 6e 74 72 65 2f 77 61 69 74 20 22 43 6c 6f 73 |entre/wait "Clos|
00000d60 65 20 74 68 69 73 20 77 69 6e 64 6f 77 20 74 6f |e this window to|
00000d70 20 72 65 74 75 72 6e 20 74 6f 20 21 44 65 6d 43 | return to !DemC|
00000d80 6f 6e 66 69 67 2e 22 0a 74 61 73 6b 20 3c 44 65 |onfig.".task <De|
00000d90 6d 43 6f 6e 66 69 67 24 44 69 72 3e 0a 71 75 69 |mConfig$Dir>.qui|
00000da0 74 0a |t.|
00000da2 
.