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 2d 2d 2d 2d 0a  |---------------.|
00000050  23 20 53 63 72 69 70 74  20 3a 20 64 65 6d 6f 6e  |# Script : demon|
00000060  0a 23 20 0a 23 20 21 53  6c 69 70 44 69 61 6c 20  |.# .# !SlipDial |
00000070  30 2e 32 39 20 44 65 6d  6f 6e 20 53 63 72 69 70  |0.29 Demon Scrip|
00000080  74 20 2d 20 52 2e 57 2e  4f 72 77 69 6e 20 31 39  |t - R.W.Orwin 19|
00000090  39 34 20 28 72 6f 62 40  77 6f 6e 67 2e 64 65 6d  |94 (rob@wong.dem|
000000a0  6f 6e 2e 63 6f 2e 75 6b  29 0a 23 20 20 20 20 20  |on.co.uk).#     |
000000b0  20 20 20 20 20 20 20 20  20 20 20 53 70 72 69 74  |           Sprit|
000000c0  65 73 20 62 79 20 4a 61  6d 65 73 20 57 6f 6f 64  |es by James Wood|
000000d0  6d 61 6e 20 28 77 6f 6f  64 79 40 62 61 63 63 68  |man (woody@bacch|
000000e0  75 73 2e 64 65 6d 6f 6e  2e 63 6f 2e 75 6b 29 0a  |us.demon.co.uk).|
000000f0  23 20 52 65 76 69 73 65  64 20 61 6e 64 20 75 70  |# Revised and up|
00000100  64 61 74 65 64 20 62 79  20 41 6c 61 6e 20 46 69  |dated by Alan Fi|
00000110  74 63 68 20 28 61 6c 61  6e 40 63 79 63 6c 65 2e  |tch (alan@cycle.|
00000120  64 65 6d 6f 6e 2e 63 6f  2e 75 6b 29 0a 23 20 53  |demon.co.uk).# S|
00000130  6c 69 67 68 74 6c 79 20  72 65 76 69 73 65 64 20  |lightly revised |
00000140  62 79 20 47 72 61 68 61  6d 20 41 6c 6c 61 6e 20  |by Graham Allan |
00000150  28 61 6c 6c 61 6e 40 6d  6e 68 65 70 31 2e 68 65  |(allan@mnhep1.he|
00000160  70 2e 75 6d 6e 2e 65 64  75 29 0a 23 0a 23 20 44  |p.umn.edu).#.# D|
00000170  61 74 65 20 20 20 41 75  74 68 6f 72 20 20 4c 61  |ate   Author  La|
00000180  74 65 73 74 20 52 65 76  69 73 69 6f 6e 0a 23 20  |test Revision.# |
00000190  39 35 30 31 33 31 20 41  50 46 20 20 20 20 20 50  |950131 APF     P|
000001a0  75 74 20 69 6e 20 6e 65  77 20 76 50 6f 50 20 6e  |ut in new vPoP n|
000001b0  75 6d 62 65 72 73 0a 23  20 39 35 30 32 31 36 20  |umbers.# 950216 |
000001c0  47 54 41 20 20 20 20 20  4d 6f 64 69 66 69 65 64  |GTA     Modified|
000001d0  20 54 54 46 4e 2f 4e 65  77 73 62 61 73 65 20 73  | TTFN/Newsbase s|
000001e0  74 61 72 74 69 6e 67 20  63 6f 6d 6d 61 6e 64 73  |tarting commands|
000001f0  0a 23 20 39 35 30 32 32  30 20 43 48 41 48 20 20  |.# 950220 CHAH  |
00000200  20 20 4d 61 64 65 20 6d  6f 72 65 20 65 61 73 69  |  Made more easi|
00000210  6c 79 20 63 6f 6e 66 69  67 75 72 61 62 6c 65 3b  |ly configurable;|
00000220  20 72 65 73 74 6f 72 65  64 20 6c 6f 73 74 20 49  | restored lost I|
00000230  73 6c 65 4f 66 57 69 67  68 74 0a 23 20 39 35 30  |sleOfWight.# 950|
00000240  32 32 30 20 43 48 41 48  20 20 20 20 51 75 6f 74  |220 CHAH    Quot|
00000250  65 73 20 72 6f 75 6e 64  20 6e 75 6d 62 65 72 73  |es round numbers|
00000260  2c 20 65 6c 73 65 20 67  65 74 20 31 2e 33 32 30  |, else get 1.320|
00000270  31 37 2e 2e 2e 45 31 33  20 65 74 63 2e 21 21 21  |17...E13 etc.!!!|
00000280  0a 23 0a 63 61 6c 6c 20  69 6e 69 74 4d 61 69 6e  |.#.call initMain|
00000290  0a 23 0a 23 20 45 64 69  74 20 74 68 65 20 72 6f  |.#.# Edit the ro|
000002a0  75 74 69 6e 65 20 6d 61  6b 65 4e 75 6d 62 65 72  |utine makeNumber|
000002b0  73 20 28 6e 65 61 72 20  74 68 65 20 62 6f 74 74  |s (near the bott|
000002c0  6f 6d 20 6f 66 20 74 68  69 73 20 66 69 6c 65 29  |om of this file)|
000002d0  20 74 6f 20 61 6c 74 65  72 20 74 68 65 0a 23 20  | to alter the.# |
000002e0  22 4c 69 73 74 22 20 6d  65 6e 75 20 6f 70 74 69  |"List" menu opti|
000002f0  6f 6e 20 28 77 68 69 63  68 20 64 69 61 6c 73 20  |on (which dials |
00000300  61 20 6c 69 73 74 20 6f  66 20 6e 75 6d 62 65 72  |a list of number|
00000310  73 20 69 6e 20 73 65 71  75 65 6e 63 65 29 2e 0a  |s in sequence)..|
00000320  23 0a 23 20 4e 6f 74 65  3a 20 69 66 20 79 6f 75  |#.# Note: if you|
00000330  20 61 72 65 20 6f 6e 20  4d 65 72 63 75 72 79 2c  | are on Mercury,|
00000340  20 79 6f 75 20 73 68 6f  75 6c 64 20 61 6c 73 6f  | you should also|
00000350  20 65 64 69 74 20 74 68  65 20 6d 61 6b 65 4e 75  | edit the makeNu|
00000360  6d 62 65 72 73 20 0a 23  20 73 75 62 72 6f 75 74  |mbers .# subrout|
00000370  69 6e 65 20 74 6f 20 72  65 6d 6f 76 65 20 74 68  |ine to remove th|
00000380  65 20 6d 65 72 63 75 72  79 5f 70 69 6e 20 70 69  |e mercury_pin pi|
00000390  6e 20 6e 75 6d 62 65 72  20 66 72 6f 6d 20 79 6f  |n number from yo|
000003a0  75 72 20 6c 6f 63 61 6c  20 6e 75 6d 62 65 72 2e  |ur local number.|
000003b0  0a 23 0a 63 61 6c 6c 20  6d 61 6b 65 4e 75 6d 62  |.#.call makeNumb|
000003c0  65 72 73 0a 73 65 74 20  6c 6f 63 61 6c 20 22 25  |ers.set local "%|
000003d0  4c 6f 6e 64 6f 6e 22 0a  63 61 6c 6c 20 63 6f 6e  |London".call con|
000003e0  66 69 67 75 72 65 0a 63  61 6c 6c 20 73 65 74 73  |figure.call sets|
000003f0  65 72 69 61 6c 0a 63 61  6c 6c 20 6d 61 6b 65 6d  |erial.call makem|
00000400  65 6e 75 73 0a 23 0a 23  20 63 68 61 6e 67 65 20  |enus.#.# change |
00000410  66 6f 6c 6c 6f 77 69 6e  67 20 6c 69 6e 65 20 74  |following line t|
00000420  6f 20 22 63 61 6c 6c 20  6d 65 72 63 75 72 79 5f  |o "call mercury_|
00000430  6f 6e 22 20 66 6f 72 20  64 65 66 61 75 6c 74 20  |on" for default |
00000440  75 73 65 20 6f 66 20 6d  65 72 63 75 72 79 0a 23  |use of mercury.#|
00000450  0a 23 63 61 6c 6c 20 6d  65 72 63 75 72 79 5f 6f  |.#call mercury_o|
00000460  6e 0a 0a 23 0a 23 20 6d  61 69 6e 20 6c 6f 6f 70  |n..#.# main loop|
00000470  0a 23 0a 3a 6c 6f 6f 70  0a 6d 65 73 73 61 67 65  |.#.:loop.message|
00000480  20 2f 63 6c 6f 73 65 0a  77 61 69 74 20 2f 65 76  | /close.wait /ev|
00000490  65 6e 74 0a 67 6f 74 6f  20 6c 6f 6f 70 0a 65 78  |ent.goto loop.ex|
000004a0  69 74 0a 0a 23 20 65 6e  64 20 6f 66 20 70 72 6f  |it..# end of pro|
000004b0  67 72 61 6d 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |gram.#----------|
000004c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000004f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 20 20 20 20 20  |----------.     |
00000500  20 20 20 20 20 20 20 20  20 20 20 0a 23 3d 3d 3d  |           .#===|
00000510  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000550  3d 0a 23 20 53 55 42 52  4f 55 54 49 4e 45 53 0a  |=.# SUBROUTINES.|
00000560  23 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |#===============|
00000570  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000005a0  3d 3d 3d 3d 3d 0a 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |=====..#--------|
000005b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005e0  2d 2d 2d 0a 23 20 53 75  62 72 6f 75 74 69 6e 65  |---.# Subroutine|
000005f0  3a 20 42 69 72 6d 0a 23  20 63 61 6c 6c 73 20 42  |: Birm.# calls B|
00000600  69 72 6d 69 6e 67 68 61  6d 20 64 65 6d 6f 6e 20  |irmingham demon |
00000610  70 68 6f 6e 65 20 6e 75  6d 62 65 72 0a 23 2d 2d  |phone number.#--|
00000620  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000650  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 3a 42 69 72 6d 0a  |---------.:Birm.|
00000660  73 65 74 20 6e 52 65 74  72 69 65 73 20 35 30 0a  |set nRetries 50.|
00000670  73 65 74 20 70 68 6f 6e  65 6e 75 6d 20 22 25 42  |set phonenum "%B|
00000680  69 72 6d 69 6e 67 68 61  6d 22 0a 67 6f 74 6f 20  |irmingham".goto |
00000690  64 6f 64 69 61 6c 20 20  20 20 20 20 20 20 20 20  |dodial          |
000006a0  20 20 20 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   ..#----------|
000006b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000006e0  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
000006f0  42 72 61 64 0a 23 20 63  61 6c 6c 73 20 42 72 61  |Brad.# calls Bra|
00000700  64 66 6f 72 64 20 64 65  6d 6f 6e 20 70 68 6f 6e  |dford demon phon|
00000710  65 20 6e 75 6d 62 65 72  0a 23 2d 2d 2d 2d 2d 2d  |e number.#------|
00000720  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000750  2d 2d 2d 2d 2d 0a 3a 42  72 61 64 0a 73 65 74 20  |-----.:Brad.set |
00000760  6e 52 65 74 72 69 65 73  20 35 30 0a 73 65 74 20  |nRetries 50.set |
00000770  70 68 6f 6e 65 6e 75 6d  20 22 25 42 72 61 64 66  |phonenum "%Bradf|
00000780  6f 72 64 22 0a 67 6f 74  6f 20 64 6f 64 69 61 6c  |ord".goto dodial|
00000790  0a 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..#-------------|
000007a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000007c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 23  |--------------.#|
000007d0  20 53 75 62 72 6f 75 74  69 6e 65 3a 20 42 72 69  | Subroutine: Bri|
000007e0  73 0a 23 20 63 61 6c 6c  73 20 42 72 69 73 74 6f  |s.# calls Bristo|
000007f0  6c 20 64 65 6d 6f 6e 20  70 68 6f 6e 65 20 6e 75  |l demon phone nu|
00000800  6d 62 65 72 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |mber.#----------|
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000840  2d 0a 3a 42 72 69 73 0a  73 65 74 20 6e 52 65 74  |-.:Bris.set nRet|
00000850  72 69 65 73 20 35 30 0a  73 65 74 20 70 68 6f 6e  |ries 50.set phon|
00000860  65 6e 75 6d 20 22 25 42  72 69 73 74 6f 6c 22 0a  |enum "%Bristol".|
00000870  67 6f 74 6f 20 64 6f 64  69 61 6c 0a 0a 23 2d 2d  |goto dodial..#--|
00000880  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000008b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
000008c0  6f 75 74 69 6e 65 3a 20  43 61 6d 62 0a 23 20 63  |outine: Camb.# c|
000008d0  61 6c 6c 73 20 43 61 6d  62 72 69 64 67 65 20 64  |alls Cambridge d|
000008e0  65 6d 6f 6e 20 70 68 6f  6e 65 20 6e 75 6d 62 65  |emon phone numbe|
000008f0  72 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |r.#-------------|
00000900  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000920  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 3a  |--------------.:|
00000930  43 61 6d 62 0a 73 65 74  20 6e 52 65 74 72 69 65  |Camb.set nRetrie|
00000940  73 20 35 30 0a 73 65 74  20 70 68 6f 6e 65 6e 75  |s 50.set phonenu|
00000950  6d 20 22 25 43 61 6d 62  72 69 64 67 65 22 0a 67  |m "%Cambridge".g|
00000960  6f 74 6f 20 64 6f 64 69  61 6c 0a 0a 23 2d 2d 2d  |oto dodial..#---|
00000970  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000009a0  2d 2d 2d 2d 2d 2d 2d 2d  0a 23 20 53 75 62 72 6f  |--------.# Subro|
000009b0  75 74 69 6e 65 3a 20 43  61 72 64 0a 23 20 63 61  |utine: Card.# ca|
000009c0  6c 6c 73 20 43 61 72 64  69 66 66 20 64 65 6d 6f  |lls Cardiff demo|
000009d0  6e 20 70 68 6f 6e 65 20  6e 75 6d 62 65 72 0a 23  |n phone number.#|
000009e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 3a 43 61 72  |-----------.:Car|
00000a20  64 0a 73 65 74 20 6e 52  65 74 72 69 65 73 20 35  |d.set nRetries 5|
00000a30  30 0a 73 65 74 20 70 68  6f 6e 65 6e 75 6d 20 22  |0.set phonenum "|
00000a40  25 43 61 72 64 69 66 66  22 0a 67 6f 74 6f 20 64  |%Cardiff".goto d|
00000a50  6f 64 69 61 6c 0a 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |odial..#--------|
00000a60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a90  2d 2d 2d 0a 23 20 53 75  62 72 6f 75 74 69 6e 65  |---.# Subroutine|
00000aa0  3a 20 43 6f 76 65 0a 23  20 63 61 6c 6c 73 20 43  |: Cove.# calls C|
00000ab0  6f 76 65 6e 74 72 79 20  64 65 6d 6f 6e 20 70 68  |oventry demon ph|
00000ac0  6f 6e 65 20 6e 75 6d 62  65 72 0a 23 2d 2d 2d 2d  |one number.#----|
00000ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000b00  2d 2d 2d 2d 2d 2d 2d 0a  3a 43 6f 76 65 0a 73 65  |-------.:Cove.se|
00000b10  74 20 6e 52 65 74 72 69  65 73 20 35 30 0a 73 65  |t nRetries 50.se|
00000b20  74 20 70 68 6f 6e 65 6e  75 6d 20 22 25 43 6f 76  |t phonenum "%Cov|
00000b30  65 6e 74 72 79 22 0a 67  6f 74 6f 20 64 6f 64 69  |entry".goto dodi|
00000b40  61 6c 0a 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |al..#-----------|
00000b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000b80  0a 23 20 53 75 62 72 6f  75 74 69 6e 65 3a 20 45  |.# Subroutine: E|
00000b90  64 69 6e 0a 23 20 63 61  6c 6c 73 20 65 64 69 6e  |din.# calls edin|
00000ba0  62 75 72 67 68 20 64 65  6d 6f 6e 20 70 68 6f 6e  |burgh demon phon|
00000bb0  65 20 6e 75 6d 62 65 72  0a 23 2d 2d 2d 2d 2d 2d  |e number.#------|
00000bc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000bf0  2d 2d 2d 2d 2d 0a 3a 45  64 69 6e 0a 73 65 74 20  |-----.:Edin.set |
00000c00  6e 52 65 74 72 69 65 73  20 35 30 0a 73 65 74 20  |nRetries 50.set |
00000c10  70 68 6f 6e 65 6e 75 6d  20 22 25 45 64 69 6e 62  |phonenum "%Edinb|
00000c20  75 72 67 68 22 0a 67 6f  74 6f 20 64 6f 64 69 61  |urgh".goto dodia|
00000c30  6c 0a 0a 23 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |l..#------------|
00000c40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00000c70  23 20 53 75 62 72 6f 75  74 69 6e 65 3a 20 47 6c  |# Subroutine: Gl|
00000c80  6f 75 0a 23 20 63 61 6c  6c 73 20 47 6c 6f 75 63  |ou.# calls Glouc|
00000c90  65 73 74 65 72 20 64 65  6d 6f 6e 20 70 68 6f 6e  |ester demon phon|
00000ca0  65 20 6e 75 6d 62 65 72  0a 23 2d 2d 2d 2d 2d 2d  |e number.#------|
00000cb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ce0  2d 2d 2d 2d 2d 0a 3a 47  6c 6f 75 0a 73 65 74 20  |-----.:Glou.set |
00000cf0  6e 52 65 74 72 69 65 73  20 35 30 0a 73 65 74 20  |nRetries 50.set |
00000d00  70 68 6f 6e 65 6e 75 6d  20 22 25 47 6c 6f 75 63  |phonenum "%Glouc|
00000d10  65 73 74 65 72 22 0a 67  6f 74 6f 20 64 6f 64 69  |ester".goto dodi|
00000d20  61 6c 0a 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |al..#-----------|
00000d30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d60  0a 23 20 53 75 62 72 6f  75 74 69 6e 65 3a 20 48  |.# Subroutine: H|
00000d70  75 6c 6c 0a 23 20 63 61  6c 6c 73 20 48 75 6c 6c  |ull.# calls Hull|
00000d80  20 64 65 6d 6f 6e 20 70  68 6f 6e 65 20 6e 75 6d  | demon phone num|
00000d90  62 65 72 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ber.#-----------|
00000da0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000dd0  0a 3a 48 75 6c 6c 0a 73  65 74 20 6e 52 65 74 72  |.:Hull.set nRetr|
00000de0  69 65 73 20 35 30 0a 73  65 74 20 70 68 6f 6e 65  |ies 50.set phone|
00000df0  6e 75 6d 20 22 25 48 75  6c 6c 22 0a 67 6f 74 6f  |num "%Hull".goto|
00000e00  20 64 6f 64 69 61 6c 0a  0a 23 2d 2d 2d 2d 2d 2d  | dodial..#------|
00000e10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000e40  2d 2d 2d 2d 2d 0a 23 20  53 75 62 72 6f 75 74 69  |-----.# Subrouti|
00000e50  6e 65 3a 20 49 73 6c 65  0a 23 20 63 61 6c 6c 73  |ne: Isle.# calls|
00000e60  20 49 73 6c 65 20 6f 66  20 57 69 67 68 74 20 64  | Isle of Wight d|
00000e70  65 6d 6f 6e 20 70 68 6f  6e 65 20 6e 75 6d 62 65  |emon phone numbe|
00000e80  72 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |r.#-------------|
00000e90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000eb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 3a  |--------------.:|
00000ec0  49 73 6c 65 0a 73 65 74  20 6e 52 65 74 72 69 65  |Isle.set nRetrie|
00000ed0  73 20 35 30 0a 73 65 74  20 70 68 6f 6e 65 6e 75  |s 50.set phonenu|
00000ee0  6d 20 22 25 49 73 6c 65  4f 66 57 69 67 68 74 22  |m "%IsleOfWight"|
00000ef0  0a 67 6f 74 6f 20 64 6f  64 69 61 6c 0a 0a 23 2d  |.goto dodial..#-|
00000f00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000f30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
00000f40  72 6f 75 74 69 6e 65 3a  20 4c 65 65 64 0a 23 20  |routine: Leed.# |
00000f50  63 61 6c 6c 73 20 4c 65  65 64 73 20 76 50 6f 50  |calls Leeds vPoP|
00000f60  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00000f70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000f90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 4c  |-------------.:L|
00000fa0  65 65 64 0a 73 65 74 20  6e 52 65 74 72 69 65 73  |eed.set nRetries|
00000fb0  20 35 30 0a 73 65 74 20  70 68 6f 6e 65 6e 75 6d  | 50.set phonenum|
00000fc0  20 22 25 4c 65 65 64 73  22 0a 67 6f 74 6f 20 64  | "%Leeds".goto d|
00000fd0  6f 64 69 61 6c 0a 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |odial..#--------|
00000fe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001010  2d 2d 2d 0a 23 20 53 75  62 72 6f 75 74 69 6e 65  |---.# Subroutine|
00001020  3a 20 4c 65 69 63 0a 23  20 63 61 6c 6c 73 20 4c  |: Leic.# calls L|
00001030  65 69 63 65 73 74 65 72  20 64 65 6d 6f 6e 20 70  |eicester demon p|
00001040  68 6f 6e 65 20 6e 75 6d  62 65 72 0a 23 2d 2d 2d  |hone number.#---|
00001050  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001080  2d 2d 2d 2d 2d 2d 2d 2d  0a 3a 4c 65 69 63 0a 73  |--------.:Leic.s|
00001090  65 74 20 6e 52 65 74 72  69 65 73 20 35 30 0a 73  |et nRetries 50.s|
000010a0  65 74 20 70 68 6f 6e 65  6e 75 6d 20 22 25 4c 65  |et phonenum "%Le|
000010b0  69 63 65 73 74 65 72 22  0a 67 6f 74 6f 20 64 6f  |icester".goto do|
000010c0  64 69 61 6c 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |dial..#---------|
000010d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001100  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
00001110  20 4c 69 76 65 0a 23 20  63 61 6c 6c 73 20 4c 69  | Live.# calls Li|
00001120  76 65 72 70 6f 6f 6c 20  64 65 6d 6f 6e 20 70 68  |verpool demon ph|
00001130  6f 6e 65 20 6e 75 6d 62  65 72 0a 23 2d 2d 2d 2d  |one number.#----|
00001140  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001170  2d 2d 2d 2d 2d 2d 2d 0a  3a 4c 69 76 65 0a 73 65  |-------.:Live.se|
00001180  74 20 6e 52 65 74 72 69  65 73 20 35 30 0a 73 65  |t nRetries 50.se|
00001190  74 20 70 68 6f 6e 65 6e  75 6d 20 22 25 4c 69 76  |t phonenum "%Liv|
000011a0  65 72 70 6f 6f 6c 22 0a  67 6f 74 6f 20 64 6f 64  |erpool".goto dod|
000011b0  69 61 6c 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ial..#----------|
000011c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000011f0  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
00001200  4c 6f 6e 64 0a 23 20 63  61 6c 6c 73 20 6c 6f 6e  |Lond.# calls lon|
00001210  64 6f 6e 20 64 65 6d 6f  6e 20 70 68 6f 6e 65 20  |don demon phone |
00001220  6e 75 6d 62 65 72 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |number.#--------|
00001230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001260  2d 2d 2d 0a 3a 4c 6f 6e  64 0a 73 65 74 20 6e 52  |---.:Lond.set nR|
00001270  65 74 72 69 65 73 20 35  30 0a 73 65 74 20 70 68  |etries 50.set ph|
00001280  6f 6e 65 6e 75 6d 20 22  25 4c 6f 6e 64 6f 6e 22  |onenum "%London"|
00001290  0a 67 6f 74 6f 20 64 6f  64 69 61 6c 0a 0a 23 2d  |.goto dodial..#-|
000012a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000012d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
000012e0  72 6f 75 74 69 6e 65 3a  20 4c 75 74 6f 0a 23 20  |routine: Luto.# |
000012f0  63 61 6c 6c 73 20 6c 75  74 6f 6e 20 64 65 6d 6f  |calls luton demo|
00001300  6e 20 70 68 6f 6e 65 20  6e 75 6d 62 65 72 0a 23  |n phone number.#|
00001310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001340  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 3a 4c 75 74  |-----------.:Lut|
00001350  6f 0a 73 65 74 20 6e 52  65 74 72 69 65 73 20 35  |o.set nRetries 5|
00001360  30 0a 73 65 74 20 70 68  6f 6e 65 6e 75 6d 20 22  |0.set phonenum "|
00001370  25 4c 75 74 6f 6e 22 0a  67 6f 74 6f 20 64 6f 64  |%Luton".goto dod|
00001380  69 61 6c 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ial..#----------|
00001390  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000013c0  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
000013d0  4d 61 6e 63 0a 23 20 63  61 6c 6c 73 20 4d 61 6e  |Manc.# calls Man|
000013e0  63 68 65 73 74 65 72 20  64 65 6d 6f 6e 20 70 68  |chester demon ph|
000013f0  6f 6e 65 20 6e 75 6d 62  65 72 0a 23 2d 2d 2d 2d  |one number.#----|
00001400  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001430  2d 2d 2d 2d 2d 2d 2d 0a  3a 4d 61 6e 63 0a 73 65  |-------.:Manc.se|
00001440  74 20 6e 52 65 74 72 69  65 73 20 35 30 0a 73 65  |t nRetries 50.se|
00001450  74 20 70 68 6f 6e 65 6e  75 6d 20 22 25 4d 61 6e  |t phonenum "%Man|
00001460  63 68 65 73 74 65 72 22  0a 67 6f 74 6f 20 64 6f  |chester".goto do|
00001470  64 69 61 6c 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |dial..#---------|
00001480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000014b0  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
000014c0  20 4e 65 77 63 0a 23 20  63 61 6c 6c 73 20 4e 65  | Newc.# calls Ne|
000014d0  77 63 61 73 74 6c 65 20  64 65 6d 6f 6e 20 70 68  |wcastle demon ph|
000014e0  6f 6e 65 20 6e 75 6d 62  65 72 0a 23 2d 2d 2d 2d  |one number.#----|
000014f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001520  2d 2d 2d 2d 2d 2d 2d 0a  3a 4e 65 77 63 0a 73 65  |-------.:Newc.se|
00001530  74 20 6e 52 65 74 72 69  65 73 20 35 30 0a 73 65  |t nRetries 50.se|
00001540  74 20 70 68 6f 6e 65 6e  75 6d 20 22 25 4e 65 77  |t phonenum "%New|
00001550  63 61 73 74 6c 65 22 0a  67 6f 74 6f 20 64 6f 64  |castle".goto dod|
00001560  69 61 6c 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ial..#----------|
00001570  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000015a0  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
000015b0  4e 6f 74 74 0a 23 20 63  61 6c 6c 73 20 4e 6f 74  |Nott.# calls Not|
000015c0  74 69 6e 67 68 61 6d 20  64 65 6d 6f 6e 20 70 68  |tingham demon ph|
000015d0  6f 6e 65 20 6e 75 6d 62  65 72 0a 23 2d 2d 2d 2d  |one number.#----|
000015e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001610  2d 2d 2d 2d 2d 2d 2d 0a  3a 4e 6f 74 74 0a 73 65  |-------.:Nott.se|
00001620  74 20 6e 52 65 74 72 69  65 73 20 35 30 0a 73 65  |t nRetries 50.se|
00001630  74 20 70 68 6f 6e 65 6e  75 6d 20 22 25 4e 6f 74  |t phonenum "%Not|
00001640  74 69 6e 67 68 61 6d 22  0a 67 6f 74 6f 20 64 6f  |tingham".goto do|
00001650  64 69 61 6c 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |dial..#---------|
00001660  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001690  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
000016a0  20 50 72 65 73 0a 23 20  63 61 6c 6c 73 20 50 72  | Pres.# calls Pr|
000016b0  65 73 74 6f 6e 20 64 65  6d 6f 6e 20 70 68 6f 6e  |eston demon phon|
000016c0  65 20 6e 75 6d 62 65 72  0a 23 2d 2d 2d 2d 2d 2d  |e number.#------|
000016d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001700  2d 2d 2d 2d 2d 0a 3a 50  72 65 73 0a 73 65 74 20  |-----.:Pres.set |
00001710  6e 52 65 74 72 69 65 73  20 35 30 0a 73 65 74 20  |nRetries 50.set |
00001720  70 68 6f 6e 65 6e 75 6d  20 22 25 50 72 65 73 74  |phonenum "%Prest|
00001730  6f 6e 22 0a 67 6f 74 6f  20 64 6f 64 69 61 6c 0a  |on".goto dodial.|
00001740  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00001750  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001770  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 23 20  |-------------.# |
00001780  53 75 62 72 6f 75 74 69  6e 65 3a 20 52 65 61 64  |Subroutine: Read|
00001790  0a 23 20 63 61 6c 6c 73  20 52 65 61 64 69 6e 67  |.# calls Reading|
000017a0  20 64 65 6d 6f 6e 20 70  68 6f 6e 65 20 6e 75 6d  | demon phone num|
000017b0  62 65 72 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ber.#-----------|
000017c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000017f0  0a 3a 52 65 61 64 0a 73  65 74 20 6e 52 65 74 72  |.:Read.set nRetr|
00001800  69 65 73 20 35 30 0a 73  65 74 20 70 68 6f 6e 65  |ies 50.set phone|
00001810  6e 75 6d 20 22 25 52 65  61 64 69 6e 67 22 0a 67  |num "%Reading".g|
00001820  6f 74 6f 20 64 6f 64 69  61 6c 0a 20 20 20 20 20  |oto dodial.     |
00001830  20 20 20 20 20 20 20 20  20 20 20 20 0a 23 2d 2d  |            .#--|
00001840  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001870  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
00001880  6f 75 74 69 6e 65 3a 20  53 61 66 66 0a 23 20 63  |outine: Saff.# c|
00001890  61 6c 6c 73 20 53 61 66  66 72 6f 6e 20 57 61 6c  |alls Saffron Wal|
000018a0  64 65 6e 20 64 65 6d 6f  6e 20 70 68 6f 6e 65 20  |den demon phone |
000018b0  6e 75 6d 62 65 72 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |number.#--------|
000018c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000018f0  2d 2d 2d 0a 3a 53 61 66  66 0a 73 65 74 20 6e 52  |---.:Saff.set nR|
00001900  65 74 72 69 65 73 20 35  30 0a 73 65 74 20 70 68  |etries 50.set ph|
00001910  6f 6e 65 6e 75 6d 20 22  25 53 61 66 66 72 6f 6e  |onenum "%Saffron|
00001920  22 0a 67 6f 74 6f 20 64  6f 64 69 61 6c 0a 0a 23  |".goto dodial..#|
00001930  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 23 20 53 75  |-----------.# Su|
00001970  62 72 6f 75 74 69 6e 65  3a 20 53 68 65 66 0a 23  |broutine: Shef.#|
00001980  20 63 61 6c 6c 73 20 53  68 65 66 66 69 65 6c 64  | calls Sheffield|
00001990  20 64 65 6d 6f 6e 20 70  68 6f 6e 65 20 6e 75 6d  | demon phone num|
000019a0  62 65 72 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ber.#-----------|
000019b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000019e0  0a 3a 53 68 65 66 0a 73  65 74 20 6e 52 65 74 72  |.:Shef.set nRetr|
000019f0  69 65 73 20 35 30 0a 73  65 74 20 70 68 6f 6e 65  |ies 50.set phone|
00001a00  6e 75 6d 20 22 25 53 68  65 66 66 69 65 6c 64 22  |num "%Sheffield"|
00001a10  0a 67 6f 74 6f 20 64 6f  64 69 61 6c 0a 0a 23 2d  |.goto dodial..#-|
00001a20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001a50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
00001a60  72 6f 75 74 69 6e 65 3a  20 53 75 6e 64 0a 23 20  |routine: Sund.# |
00001a70  63 61 6c 6c 73 20 53 75  6e 64 65 72 6c 61 6e 64  |calls Sunderland|
00001a80  20 64 65 6d 6f 6e 20 70  68 6f 6e 65 20 6e 75 6d  | demon phone num|
00001a90  62 65 72 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ber.#-----------|
00001aa0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001ad0  0a 3a 53 75 6e 64 0a 73  65 74 20 6e 52 65 74 72  |.:Sund.set nRetr|
00001ae0  69 65 73 20 35 30 0a 73  65 74 20 70 68 6f 6e 65  |ies 50.set phone|
00001af0  6e 75 6d 20 22 25 53 75  6e 64 65 72 6c 61 6e 64  |num "%Sunderland|
00001b00  22 0a 67 6f 74 6f 20 64  6f 64 69 61 6c 0a 0a 23  |".goto dodial..#|
00001b10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001b40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 23 20 53 75  |-----------.# Su|
00001b50  62 72 6f 75 74 69 6e 65  3a 20 57 6f 6c 76 0a 23  |broutine: Wolv.#|
00001b60  20 63 61 6c 6c 73 20 57  6f 6c 76 65 72 68 61 6d  | calls Wolverham|
00001b70  70 74 6f 6e 20 64 65 6d  6f 6e 20 70 68 6f 6e 65  |pton demon phone|
00001b80  20 6e 75 6d 62 65 72 0a  23 2d 2d 2d 2d 2d 2d 2d  | number.#-------|
00001b90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001bc0  2d 2d 2d 2d 0a 3a 57 6f  6c 76 0a 73 65 74 20 6e  |----.:Wolv.set n|
00001bd0  52 65 74 72 69 65 73 20  35 30 0a 73 65 74 20 70  |Retries 50.set p|
00001be0  68 6f 6e 65 6e 75 6d 20  22 25 57 6f 6c 76 65 72  |honenum "%Wolver|
00001bf0  68 61 6d 70 74 6f 6e 22  0a 67 6f 74 6f 20 64 6f  |hampton".goto do|
00001c00  64 69 61 6c 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |dial..#---------|
00001c10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c40  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
00001c50  20 4c 69 73 74 0a 23 20  43 61 6c 6c 73 20 61 20  | List.# Calls a |
00001c60  6c 69 73 74 20 6f 66 20  70 68 6f 6e 65 20 6e 75  |list of phone nu|
00001c70  6d 62 65 72 73 2c 20 73  70 65 63 69 66 69 65 64  |mbers, specified|
00001c80  20 62 65 6c 6f 77 20 69  6e 20 74 68 65 20 0a 23  | below in the .#|
00001c90  20 76 61 72 69 61 62 6c  65 20 27 70 68 6f 6e 65  | variable 'phone|
00001ca0  6e 75 6d 27 2e 20 20 52  65 74 75 72 6e 73 20 76  |num'.  Returns v|
00001cb0  69 61 20 73 75 62 72 6f  75 74 69 6e 65 20 64 6f  |ia subroutine do|
00001cc0  64 69 61 6c 2e 0a 23 20  6e 52 65 74 72 69 65 73  |dial..# nRetries|
00001cd0  20 69 73 20 74 68 65 20  6e 75 6d 62 65 72 20 6f  | is the number o|
00001ce0  66 20 74 69 6d 65 73 20  53 6c 69 70 44 69 61 6c  |f times SlipDial|
00001cf0  20 72 65 74 72 69 65 73  20 74 68 65 20 6e 75 6d  | retries the num|
00001d00  62 65 72 20 0a 23 20 69  66 20 69 74 20 69 73 20  |ber .# if it is |
00001d10  62 75 73 79 2e 0a 23 20  54 68 65 20 6e 75 6d 62  |busy..# The numb|
00001d20  65 72 20 6f 66 20 72 65  74 72 69 65 73 20 69 73  |er of retries is|
00001d30  20 72 65 64 75 63 65 64  20 63 6f 6d 70 61 72 65  | reduced compare|
00001d40  64 20 74 6f 20 74 68 65  20 6f 74 68 65 72 20 0a  |d to the other .|
00001d50  23 20 6d 65 6e 75 20 69  74 65 6d 73 20 28 77 68  |# menu items (wh|
00001d60  69 63 68 20 64 69 61 6c  20 6f 6e 6c 79 20 6f 6e  |ich dial only on|
00001d70  65 20 50 6f 50 29 20 61  73 20 74 68 65 20 69 6e  |e PoP) as the in|
00001d80  74 65 6e 74 69 6f 6e 20  69 73 20 74 6f 20 0a 23  |tention is to .#|
00001d90  20 74 6f 20 77 6f 72 6b  20 74 68 72 6f 75 67 68  | to work through|
00001da0  20 74 68 65 20 6c 69 73  74 20 6f 66 20 6e 75 6d  | the list of num|
00001db0  62 65 72 73 20 72 65 61  73 6f 6e 61 62 6c 79 20  |bers reasonably |
00001dc0  71 75 69 63 6b 6c 79 2e  0a 23 2d 2d 2d 2d 2d 2d  |quickly..#------|
00001dd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001e00  2d 2d 2d 2d 2d 0a 3a 4c  69 73 74 0a 73 65 74 20  |-----.:List.set |
00001e10  6e 52 65 74 72 69 65 73  20 35 0a 73 65 74 20 70  |nRetries 5.set p|
00001e20  68 6f 6e 65 6e 75 6d 20  22 25 4c 69 73 74 22 0a  |honenum "%List".|
00001e30  67 6f 74 6f 20 64 6f 64  69 61 6c 0a 0a 23 2d 2d  |goto dodial..#--|
00001e40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001e70  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
00001e80  6f 75 74 69 6e 65 3a 20  64 6f 64 69 61 6c 0a 23  |outine: dodial.#|
00001e90  20 4e 6f 74 65 3a 20 68  61 73 20 6d 75 6c 74 69  | Note: has multi|
00001ea0  70 6c 65 20 65 6e 74 72  79 20 70 6f 69 6e 74 73  |ple entry points|
00001eb0  20 66 72 6f 6d 20 22 67  6f 74 6f 22 20 73 74 61  | from "goto" sta|
00001ec0  74 65 6d 65 6e 74 73 0a  23 20 61 62 6f 76 65 2e  |tements.# above.|
00001ed0  20 20 48 6f 77 65 76 65  72 20 69 74 20 66 69 6e  |  However it fin|
00001ee0  61 6c 6c 79 20 72 65 74  75 72 6e 73 20 74 6f 20  |ally returns to |
00001ef0  74 68 65 20 6d 61 69 6e  20 77 61 69 74 69 6e 67  |the main waiting|
00001f00  0a 23 20 6c 6f 6f 70 2e  0a 23 2d 2d 2d 2d 2d 2d  |.# loop..#------|
00001f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001f40  2d 2d 2d 2d 2d 0a 3a 64  6f 64 69 61 6c 20 20 20  |-----.:dodial   |
00001f50  20 20 20 20 20 20 20 20  20 20 20 20 0a 0a 23 0a  |            ..#.|
00001f60  23 20 6b 69 6c 6c 20 6e  65 77 73 62 61 73 65 20  |# kill newsbase |
00001f70  61 6e 64 20 74 74 66 6e  20 69 66 20 74 68 65 79  |and ttfn if they|
00001f80  20 61 72 65 20 72 75 6e  6e 69 6e 67 2c 20 61 6e  | are running, an|
00001f90  64 20 77 65 72 65 20 73  74 61 72 74 65 64 20 66  |d were started f|
00001fa0  72 6f 6d 20 53 6c 69 70  44 69 61 6c 0a 23 0a 23  |rom SlipDial.#.#|
00001fb0  20 4e 6f 74 65 20 74 68  61 74 20 69 66 20 74 68  | Note that if th|
00001fc0  65 79 20 77 65 72 65 6e  27 74 20 73 74 61 72 74  |ey weren't start|
00001fd0  65 64 20 62 79 20 53 6c  69 70 44 69 61 6c 2c 20  |ed by SlipDial, |
00001fe0  53 6c 69 70 44 69 61 6c  20 6b 6e 6f 77 73 20 6e  |SlipDial knows n|
00001ff0  6f 74 68 69 6e 67 0a 23  20 61 62 6f 75 74 20 74  |othing.# about t|
00002000  68 65 6d 20 61 6e 64 20  77 69 6c 6c 20 73 74 61  |hem and will sta|
00002010  72 74 20 61 6e 6f 74 68  65 72 20 63 6f 70 79 20  |rt another copy |
00002020  65 76 65 6e 20 69 66 20  74 68 65 79 20 61 72 65  |even if they are|
00002030  20 61 6c 72 65 61 64 79  20 72 75 6e 6e 69 6e 67  | already running|
00002040  2e 0a 23 0a 74 61 73 6b  20 2f 6b 69 6c 6c 3d 22  |..#.task /kill="|
00002050  4e 65 77 73 62 61 73 65  22 0a 74 61 73 6b 20 2f  |Newsbase".task /|
00002060  6b 69 6c 6c 3d 22 54 54  46 4e 22 0a 0a 23 20 43  |kill="TTFN"..# C|
00002070  6c 61 69 6d 20 74 68 65  20 64 65 76 69 63 65 20  |laim the device |
00002080  64 72 69 76 65 72 0a 69  66 20 28 21 63 6c 61 69  |driver.if (!clai|
00002090  6d 20 33 29 20 72 65 74  75 72 6e 20 30 0a 0a 23  |m 3) return 0..#|
000020a0  20 69 6e 69 74 69 61 6c  69 73 65 20 6d 6f 64 65  | initialise mode|
000020b0  6d 0a 69 6e 69 74 20 0a  0a 23 20 64 69 61 6c 20  |m.init ..# dial |
000020c0  74 68 65 20 6e 75 6d 62  65 72 2c 20 72 65 74 75  |the number, retu|
000020d0  72 6e 20 74 6f 20 6d 61  69 6e 20 6d 65 6e 75 20  |rn to main menu |
000020e0  69 66 20 66 61 69 6c 65  64 2e 0a 72 65 74 72 79  |if failed..retry|
000020f0  20 25 6e 52 65 74 72 69  65 73 20 31 35 0a 69 66  | %nRetries 15.if|
00002100  20 28 21 64 69 61 6c 20  2f 6e 6f 64 69 61 6c 3d  | (!dial /nodial=|
00002110  31 35 20 2f 6e 6f 63 61  72 3d 31 30 20 2f 62 75  |15 /nocar=10 /bu|
00002120  73 79 3d 33 20 25 70 68  6f 6e 65 6e 75 6d 29 20  |sy=3 %phonenum) |
00002130  72 65 74 75 72 6e 20 30  0a 0a 23 0a 23 20 61 72  |return 0..#.# ar|
00002140  72 69 76 65 20 68 65 72  65 20 69 66 20 64 69 61  |rive here if dia|
00002150  6c 20 73 75 63 63 65 65  64 65 64 0a 23 20 67 65  |l succeeded.# ge|
00002160  74 20 75 73 65 72 6e 61  6d 65 2f 70 61 73 73 77  |t username/passw|
00002170  6f 72 64 20 70 72 6f 6d  70 74 73 20 74 6f 20 61  |ord prompts to a|
00002180  75 74 68 65 6e 74 69 63  61 74 65 20 73 65 6c 66  |uthenticate self|
00002190  20 74 6f 20 73 65 72 76  65 72 2e 0a 23 20 61 66  | to server..# af|
000021a0  74 65 72 20 65 61 63 68  20 70 72 6f 6d 70 74 2c  |ter each prompt,|
000021b0  20 72 65 74 75 72 6e 20  74 6f 20 6d 61 69 6e 20  | return to main |
000021c0  6d 65 6e 75 20 69 66 20  66 61 69 6c 65 64 2e 0a  |menu if failed..|
000021d0  23 0a 0a 69 66 20 28 21  77 61 69 74 20 2f 64 65  |#..if (!wait /de|
000021e0  6c 3d 32 30 20 6f 67 69  6e 3a 29 20 67 6f 74 6f  |l=20 ogin:) goto|
000021f0  20 62 61 64 5f 66 69 6e  69 73 68 0a 73 65 6e 64  | bad_finish.send|
00002200  20 25 6e 6f 64 65 6e 61  6d 65 0a 0a 69 66 20 28  | %nodename..if (|
00002210  21 77 61 69 74 20 2f 64  65 6c 3d 32 30 20 77 6f  |!wait /del=20 wo|
00002220  72 64 3a 29 20 67 6f 74  6f 20 62 61 64 5f 66 69  |rd:) goto bad_fi|
00002230  6e 69 73 68 0a 73 65 6e  64 20 25 70 61 73 73 77  |nish.send %passw|
00002240  6f 72 64 0a 0a 69 66 20  28 21 77 61 69 74 20 2f  |ord..if (!wait /|
00002250  64 65 6c 3d 35 30 20 6f  63 6f 6c 3a 29 20 67 6f  |del=50 ocol:) go|
00002260  74 6f 20 62 61 64 5f 66  69 6e 69 73 68 0a 73 65  |to bad_finish.se|
00002270  6e 64 20 25 70 72 6f 74  6f 63 6f 6c 0a 0a 6d 65  |nd %protocol..me|
00002280  73 73 61 67 65 20 2f 63  61 70 74 75 72 65 3d 22  |ssage /capture="|
00002290  49 50 22 20 2f 65 6e 64  3d 22 48 45 4c 4c 4f 22  |IP" /end="HELLO"|
000022a0  20 2f 6d 61 78 6c 69 6e  65 73 3d 37 20 2f 63 65  | /maxlines=7 /ce|
000022b0  6e 74 72 65 0a 69 70 67  65 74 20 31 35 38 2e 0a  |ntre.ipget 158..|
000022c0  69 66 20 28 21 77 61 69  74 20 2f 64 65 6c 3d 33  |if (!wait /del=3|
000022d0  30 20 48 45 4c 4c 4f 29  20 72 65 74 75 72 6e 20  |0 HELLO) return |
000022e0  30 0a 0a 70 61 75 73 65  20 35 0a 74 61 73 6b 20  |0..pause 5.task |
000022f0  2f 6e 61 6d 65 3d 22 54  43 50 2f 49 50 22 20 3c  |/name="TCP/IP" <|
00002300  54 43 50 49 50 32 24 64  69 72 3e 2e 21 52 75 6e  |TCPIP2$dir>.!Run|
00002310  0a 0a 23 20 77 61 74 63  68 20 6f 75 74 20 66 6f  |..# watch out fo|
00002320  72 20 63 61 72 72 69 65  72 20 64 65 74 65 63 74  |r carrier detect|
00002330  20 74 6f 20 67 6f 20 6c  6f 77 0a 61 6c 61 72 6d  | to go low.alarm|
00002340  20 2f 64 63 64 20 22 67  6f 74 6f 20 67 6f 6f 64  | /dcd "goto good|
00002350  5f 66 69 6e 69 73 68 22  0a 3a 6c 6f 6f 70 32 0a  |_finish".:loop2.|
00002360  77 61 69 74 20 2f 65 76  65 6e 74 0a 67 6f 74 6f  |wait /event.goto|
00002370  20 6c 6f 6f 70 32 0a 0a  23 0a 23 20 43 61 6c 6c  | loop2..#.# Call|
00002380  20 68 61 73 20 62 65 65  6e 20 66 69 6e 69 73 68  | has been finish|
00002390  65 64 20 73 75 63 63 65  73 73 66 75 6c 6c 79 2c  |ed successfully,|
000023a0  20 73 6f 20 72 65 6c 65  61 73 65 20 74 68 65 20  | so release the |
000023b0  70 6f 72 74 0a 23 0a 3a  67 6f 6f 64 5f 66 69 6e  |port.#.:good_fin|
000023c0  69 73 68 0a 74 61 73 6b  20 2f 6b 69 6c 6c 3d 22  |ish.task /kill="|
000023d0  54 43 50 2f 49 50 22 0a  6d 65 73 73 61 67 65 20  |TCP/IP".message |
000023e0  2f 63 6c 6f 73 65 0a 6d  65 73 73 61 67 65 20 22  |/close.message "|
000023f0  43 61 6c 6c 20 66 69 6e  69 73 68 65 64 20 73 75  |Call finished su|
00002400  63 63 65 73 73 66 75 6c  6c 79 22 20 2f 63 65 6e  |ccessfully" /cen|
00002410  74 72 65 0a 72 65 6c 65  61 73 65 0a 0a 23 20 6e  |tre.release..# n|
00002420  6f 77 20 70 61 75 73 65  20 66 6f 72 20 32 20 73  |ow pause for 2 s|
00002430  65 63 6f 6e 64 73 20 74  6f 20 61 6c 6c 6f 77 20  |econds to allow |
00002440  52 49 53 43 20 4f 53 20  74 6f 20 73 6f 72 74 20  |RISC OS to sort |
00002450  6f 75 74 20 74 68 65 20  64 69 73 70 6c 61 79 2e  |out the display.|
00002460  0a 70 61 75 73 65 20 32  0a 0a 23 0a 23 20 43 6f  |.pause 2..#.# Co|
00002470  6d 70 75 74 65 20 74 68  65 20 6e 65 77 73 20 74  |mpute the news t|
00002480  72 61 6e 73 66 65 72 20  72 61 74 65 2c 20 61 6e  |ransfer rate, an|
00002490  64 20 64 69 73 70 6c 61  79 20 69 74 2e 0a 23 0a  |d display it..#.|
000024a0  23 20 54 68 69 73 20 77  6f 75 6c 64 20 70 72 6f  |# This would pro|
000024b0  62 61 62 6c 79 20 67 6f  20 77 72 6f 6e 67 20 69  |bably go wrong i|
000024c0  66 20 74 68 65 20 44 65  6d 4e 65 77 73 20 66 69  |f the DemNews fi|
000024d0  6c 65 20 73 74 69 6c 6c  20 65 78 69 73 74 65 64  |le still existed|
000024e0  20 66 72 6f 6d 0a 23 20  61 20 70 72 65 76 69 6f  | from.# a previo|
000024f0  75 73 20 63 61 6c 6c 2c  20 69 2e 65 2e 20 6f 6c  |us call, i.e. ol|
00002500  64 20 6e 65 77 73 20 68  61 64 6e 27 74 20 62 65  |d news hadn't be|
00002510  65 6e 20 74 72 61 6e 73  66 65 72 72 65 64 20 6f  |en transferred o|
00002520  75 74 20 6f 66 20 74 68  65 20 0a 23 20 4d 61 69  |ut of the .# Mai|
00002530  6c 24 44 69 72 20 64 69  72 65 63 74 6f 72 79 2e  |l$Dir directory.|
00002540  20 20 54 68 69 73 20 73  68 6f 75 6c 64 6e 27 74  |  This shouldn't|
00002550  20 68 61 70 70 65 6e 20  69 66 20 74 68 69 73 20  | happen if this |
00002560  73 63 72 69 70 74 20 69  73 20 61 6c 77 61 79 73  |script is always|
00002570  20 75 73 65 64 2e 0a 23  0a 0a 23 0a 23 20 43 68  | used..#..#.# Ch|
00002580  65 63 6b 20 69 66 20 74  68 65 20 6e 65 77 73 20  |eck if the news |
00002590  66 69 6c 65 20 65 78 69  73 74 73 2e 0a 23 0a 23  |file exists..#.#|
000025a0  20 4e 6f 74 65 3a 20 61  20 63 75 72 72 65 6e 74  | Note: a current|
000025b0  6c 79 20 72 75 6e 6e 69  6e 67 20 63 6f 70 79 20  |ly running copy |
000025c0  6f 66 20 4e 65 77 73 62  61 73 65 20 6d 61 79 20  |of Newsbase may |
000025d0  61 6c 72 65 61 64 79 20  68 61 76 65 20 73 74 6f  |already have sto|
000025e0  6c 65 6e 0a 23 20 74 68  65 20 44 65 6d 4e 65 77  |len.# the DemNew|
000025f0  73 20 66 69 6c 65 20 62  65 66 6f 72 65 20 53 6c  |s file before Sl|
00002600  69 70 44 69 61 6c 20 63  61 6e 20 72 65 61 64 20  |ipDial can read |
00002610  69 74 2e 20 20 48 65 6e  63 65 20 74 68 65 20 6d  |it.  Hence the m|
00002620  65 73 73 61 67 65 0a 23  20 72 65 74 75 72 6e 65  |essage.# returne|
00002630  64 20 69 66 20 74 68 65  20 66 69 6c 65 20 64 6f  |d if the file do|
00002640  65 73 20 6e 6f 74 20 65  78 69 73 74 20 68 61 73  |es not exist has|
00002650  20 62 65 65 6e 20 6d 61  64 65 20 6d 6f 72 65 20  | been made more |
00002660  65 78 70 6c 69 63 69 74  2e 0a 23 0a 73 65 74 20  |explicit..#.set |
00002670  6e 65 77 73 45 78 69 73  74 73 20 7b 3f 66 69 6c  |newsExists {?fil|
00002680  65 20 3c 4d 61 69 6c 24  44 69 72 3e 2e 66 6f 6c  |e <Mail$Dir>.fol|
00002690  64 65 72 2e 44 65 6d 4e  65 77 73 7d 0a 63 61 73  |der.DemNews}.cas|
000026a0  65 20 25 6e 65 77 73 45  78 69 73 74 73 0a 77 68  |e %newsExists.wh|
000026b0  65 6e 20 31 20 32 20 33  3b 20 73 65 74 20 6e 72  |en 1 2 3; set nr|
000026c0  61 74 65 20 7b 6e 65 77  73 72 61 74 65 20 44 65  |ate {newsrate De|
000026d0  6d 7d 3b 20 6d 65 73 73  61 67 65 20 22 6e 65 77  |m}; message "new|
000026e0  73 20 72 61 74 65 20 25  6e 72 61 74 65 20 63 70  |s rate %nrate cp|
000026f0  73 22 20 2f 63 65 6e 74  72 65 0a 77 68 65 6e 20  |s" /centre.when |
00002700  30 3b 20 6d 65 73 73 61  67 65 20 22 4e 6f 20 6e  |0; message "No n|
00002710  65 77 73 20 64 6f 77 6e  6c 6f 61 64 65 64 20 6f  |ews downloaded o|
00002720  72 20 6e 65 77 73 20 72  61 74 65 20 63 6f 75 6c  |r news rate coul|
00002730  64 20 6e 6f 74 20 62 65  20 63 6f 6d 70 75 74 65  |d not be compute|
00002740  64 2e 22 20 2f 63 65 6e  74 72 65 0a 65 6e 64 63  |d." /centre.endc|
00002750  61 73 65 0a 75 6e 73 65  74 20 6e 65 77 73 45 78  |ase.unset newsEx|
00002760  69 73 74 73 0a 75 6e 73  65 74 20 6e 72 61 74 65  |ists.unset nrate|
00002770  0a 0a 23 0a 23 20 53 74  61 72 74 20 75 70 20 54  |..#.# Start up T|
00002780  54 46 4e 20 61 6e 64 20  4e 65 77 73 62 61 73 65  |TFN and Newsbase|
00002790  2e 0a 23 0a 23 20 49 66  20 4e 65 77 73 62 61 73  |..#.# If Newsbas|
000027a0  65 20 77 61 73 20 61 6c  72 65 61 64 79 20 72 75  |e was already ru|
000027b0  6e 6e 69 6e 67 2c 20 69  74 20 69 73 20 70 6f 73  |nning, it is pos|
000027c0  73 69 62 6c 65 20 74 68  61 74 20 53 6c 69 70 44  |sible that SlipD|
000027d0  69 61 6c 20 77 69 6c 6c  0a 23 20 62 65 20 75 6e  |ial will.# be un|
000027e0  61 62 6c 65 20 74 6f 20  77 6f 72 6b 20 6f 75 74  |able to work out|
000027f0  20 74 68 65 20 4e 65 77  73 20 52 61 74 65 20 28  | the News Rate (|
00002800  73 65 65 20 61 62 6f 76  65 29 2c 20 62 65 63 61  |see above), beca|
00002810  75 73 65 20 74 68 65 0a  23 20 65 78 69 73 74 69  |use the.# existi|
00002820  6e 67 20 63 6f 70 79 20  6f 66 20 4e 65 77 73 62  |ng copy of Newsb|
00002830  61 73 65 20 68 61 73 20  6d 6f 76 65 64 20 74 68  |ase has moved th|
00002840  65 20 3c 4d 61 69 6c 24  44 69 72 3e 2e 66 6f 6c  |e <Mail$Dir>.fol|
00002850  64 65 72 2e 44 65 6d 4e  65 77 73 0a 23 20 66 69  |der.DemNews.# fi|
00002860  6c 65 20 62 65 66 6f 72  65 20 53 6c 69 70 44 69  |le before SlipDi|
00002870  61 6c 20 63 6f 75 6c 64  20 67 65 74 20 61 74 20  |al could get at |
00002880  69 74 20 74 6f 20 63 6f  6d 70 75 74 65 20 74 68  |it to compute th|
00002890  65 20 6e 65 77 73 72 61  74 65 2e 0a 23 0a 23 20  |e newsrate..#.# |
000028a0  49 66 20 79 6f 75 20 70  72 65 66 65 72 20 74 68  |If you prefer th|
000028b0  61 74 20 53 6c 69 70 44  69 61 6c 20 73 68 6f 75  |at SlipDial shou|
000028c0  6c 64 20 4e 4f 54 20 73  74 61 72 74 20 6e 65 77  |ld NOT start new|
000028d0  20 63 6f 70 69 65 73 20  28 69 2e 65 2e 20 79 6f  | copies (i.e. yo|
000028e0  75 0a 23 20 6e 6f 72 6d  61 6c 6c 79 20 68 61 76  |u.# normally hav|
000028f0  65 20 74 68 65 6d 20 72  75 6e 6e 69 6e 67 20 61  |e them running a|
00002900  6e 79 77 61 79 29 20 63  6f 6d 6d 65 6e 74 20 6f  |nyway) comment o|
00002910  75 74 20 74 68 65 20 6e  65 78 74 20 74 77 6f 0a  |ut the next two.|
00002920  23 20 73 63 72 69 70 74  20 6c 69 6e 65 73 20 77  |# script lines w|
00002930  69 74 68 20 61 20 27 23  27 20 63 68 61 72 61 63  |ith a '#' charac|
00002940  74 65 72 2e 0a 23 0a 23  20 74 68 65 20 28 21 3f  |ter..#.# the (!?|
00002950  74 61 73 6b 20 54 54 46  4e 29 20 70 61 72 74 20  |task TTFN) part |
00002960  6d 65 61 6e 73 20 74 68  65 20 73 63 72 69 70 74  |means the script|
00002970  20 77 69 6c 6c 20 6f 6e  6c 79 20 73 74 61 72 74  | will only start|
00002980  20 54 54 46 4e 2f 4e 65  77 73 62 61 73 65 0a 23  | TTFN/Newsbase.#|
00002990  20 69 66 20 74 68 65 79  20 61 72 65 20 6e 6f 74  | if they are not|
000029a0  20 61 6c 72 65 61 64 79  20 72 75 6e 6e 69 6e 67  | already running|
000029b0  20 28 61 64 64 65 64 20  31 36 2d 66 65 62 2d 39  | (added 16-feb-9|
000029c0  35 20 47 54 41 29 0a 23  0a 69 66 20 28 21 3f 74  |5 GTA).#.if (!?t|
000029d0  61 73 6b 20 54 54 46 4e  29 20 74 61 73 6b 20 2f  |ask TTFN) task /|
000029e0  6e 61 6d 65 3d 22 54 54  46 4e 22 20 3c 54 54 46  |name="TTFN" <TTF|
000029f0  4e 24 44 69 72 3e 2e 21  52 75 6e 0a 69 66 20 28  |N$Dir>.!Run.if (|
00002a00  21 3f 74 61 73 6b 20 4e  65 77 73 42 61 73 65 29  |!?task NewsBase)|
00002a10  20 74 61 73 6b 20 2f 6e  61 6d 65 3d 22 4e 65 77  | task /name="New|
00002a20  73 62 61 73 65 22 20 3c  4e 65 77 73 42 61 73 65  |sbase" <NewsBase|
00002a30  24 44 69 72 3e 2e 21 52  75 6e 0a 72 65 74 75 72  |$Dir>.!Run.retur|
00002a40  6e 20 31 0a 0a 23 0a 23  20 43 61 6c 6c 20 66 61  |n 1..#.# Call fa|
00002a50  69 6c 65 64 20 69 6e 20  73 6f 6d 65 20 77 61 79  |iled in some way|
00002a60  0a 23 0a 3a 62 61 64 5f  66 69 6e 69 73 68 0a 6d  |.#.:bad_finish.m|
00002a70  65 73 73 61 67 65 20 22  43 61 6c 6c 20 73 65 74  |essage "Call set|
00002a80  75 70 20 66 61 69 6c 65  64 22 20 2f 63 65 6e 74  |up failed" /cent|
00002a90  72 65 0a 6d 65 73 73 61  67 65 2f 63 6c 6f 73 65  |re.message/close|
00002aa0  0a 72 65 6c 65 61 73 65  0a 72 65 69 6e 69 74 0a  |.release.reinit.|
00002ab0  72 65 74 75 72 6e 20 30  0a 0a 23 2d 2d 2d 2d 2d  |return 0..#-----|
00002ac0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002af0  2d 2d 2d 2d 2d 2d 0a 23  20 53 75 62 72 6f 75 74  |------.# Subrout|
00002b00  69 6e 65 3a 20 4d 65 72  63 75 72 79 0a 23 20 54  |ine: Mercury.# T|
00002b10  6f 67 67 6c 65 20 74 68  65 20 6d 65 72 63 75 72  |oggle the mercur|
00002b20  79 20 73 77 69 74 63 68  0a 23 2d 2d 2d 2d 2d 2d  |y switch.#------|
00002b30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002b60  2d 2d 2d 2d 2d 0a 3a 6d  65 72 63 75 72 79 0a 69  |-----.:mercury.i|
00002b70  66 20 28 3f 65 71 20 25  6d 65 72 63 75 72 79 5f  |f (?eq %mercury_|
00002b80  70 69 6e 20 25 6d 65 72  63 75 72 79 29 20 67 6f  |pin %mercury) go|
00002b90  74 6f 20 6d 65 72 63 75  72 79 5f 6f 66 66 0a 23  |to mercury_off.#|
00002ba0  20 53 65 74 20 74 68 65  20 4d 65 72 63 75 72 79  | Set the Mercury|
00002bb0  20 73 77 69 74 63 68 20  74 6f 20 4f 4e 2e 0a 3a  | switch to ON..:|
00002bc0  6d 65 72 63 75 72 79 5f  6f 6e 0a 69 63 6f 6e 20  |mercury_on.icon |
00002bd0  2f 69 64 3d 22 4d 65 72  63 75 72 79 22 20 2f 61  |/id="Mercury" /a|
00002be0  63 74 69 6f 6e 3d 22 63  61 6c 6c 20 6d 65 72 63  |ction="call merc|
00002bf0  75 72 79 22 20 68 67 6f  6e 0a 73 65 74 20 6d 65  |ury" hgon.set me|
00002c00  72 63 75 72 79 5f 70 69  6e 20 25 6d 65 72 63 75  |rcury_pin %mercu|
00002c10  72 79 0a 67 6f 74 6f 20  6d 65 72 63 75 72 79 5f  |ry.goto mercury_|
00002c20  72 65 74 75 72 6e 0a 23  20 65 6c 73 65 20 53 65  |return.# else Se|
00002c30  74 20 74 68 65 20 4d 65  72 63 75 72 79 20 73 77  |t the Mercury sw|
00002c40  69 74 63 68 20 74 6f 20  4f 46 46 2e 0a 3a 6d 65  |itch to OFF..:me|
00002c50  72 63 75 72 79 5f 6f 66  66 0a 69 63 6f 6e 20 2f  |rcury_off.icon /|
00002c60  69 64 3d 22 4d 65 72 63  75 72 79 22 20 2f 61 63  |id="Mercury" /ac|
00002c70  74 69 6f 6e 3d 22 63 61  6c 6c 20 6d 65 72 63 75  |tion="call mercu|
00002c80  72 79 22 20 68 67 6f 66  66 0a 73 65 74 20 6d 65  |ry" hgoff.set me|
00002c90  72 63 75 72 79 5f 70 69  6e 20 22 22 0a 3a 6d 65  |rcury_pin "".:me|
00002ca0  72 63 75 72 79 5f 72 65  74 75 72 6e 0a 23 20 72  |rcury_return.# r|
00002cb0  65 6d 61 6b 65 20 74 68  65 20 6e 75 6d 62 65 72  |emake the number|
00002cc0  73 20 77 69 74 68 20 6d  65 72 63 75 72 79 5f 70  |s with mercury_p|
00002cd0  69 6e 20 73 6f 20 74 68  61 74 20 74 68 65 20 70  |in so that the p|
00002ce0  72 65 66 69 78 20 69 73  20 61 64 64 65 64 0a 63  |refix is added.c|
00002cf0  61 6c 6c 20 6d 61 6b 65  4e 75 6d 62 65 72 73 0a  |all makeNumbers.|
00002d00  72 65 74 75 72 6e 20 31  0a 0a 23 2d 2d 2d 2d 2d  |return 1..#-----|
00002d10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002d40  2d 2d 2d 2d 2d 2d 0a 23  20 53 75 62 72 6f 75 74  |------.# Subrout|
00002d50  69 6e 65 3a 20 6d 61 6b  65 6d 65 6e 75 73 0a 23  |ine: makemenus.#|
00002d60  20 44 65 66 69 6e 65 73  20 74 68 65 20 6d 65 6e  | Defines the men|
00002d70  75 73 20 66 6f 72 20 64  69 61 6c 6c 69 6e 67 20  |us for dialling |
00002d80  65 74 63 2e 20 20 4e 6f  74 65 20 6d 65 6e 75 73  |etc.  Note menus|
00002d90  20 6d 75 73 74 20 62 65  0a 23 20 6c 65 73 73 20  | must be.# less |
00002da0  74 68 61 6e 20 32 35 35  20 63 68 61 72 61 63 74  |than 255 charact|
00002db0  65 72 73 2c 20 68 65 6e  63 65 20 74 68 65 20 73  |ers, hence the s|
00002dc0  71 75 61 73 68 65 64 20  6e 61 6d 65 73 2e 20 20  |quashed names.  |
00002dd0  41 6c 73 6f 0a 23 20 74  68 69 73 20 6d 65 6e 75  |Also.# this menu|
00002de0  20 64 6f 65 73 20 6e 6f  74 20 63 6f 6e 74 61 69  | does not contai|
00002df0  6e 20 61 6c 6c 20 70 6f  73 73 69 62 6c 65 20 50  |n all possible P|
00002e00  6f 70 73 2c 20 61 67 61  69 6e 20 64 75 65 0a 23  |ops, again due.#|
00002e10  20 74 6f 20 6c 65 6e 67  74 68 20 72 65 73 74 72  | to length restr|
00002e20  69 63 74 69 6f 6e 73 2e  0a 23 20 45 78 61 6d 70  |ictions..# Examp|
00002e30  6c 65 73 3a 0a 23 20 6d  65 6e 75 20 22 4c 65 65  |les:.# menu "Lee|
00002e40  64 73 3a 63 61 6c 6c 20  4c 65 65 64 22 20 22 4c  |ds:call Leed" "L|
00002e50  6f 6e 64 6f 6e 3a 63 61  6c 6c 20 4c 6f 6e 64 22  |ondon:call Lond"|
00002e60  20 22 4d 61 6e 63 68 65  73 74 65 72 3a 63 61 6c  | "Manchester:cal|
00002e70  6c 20 4d 61 6e 63 22 20  22 4e 65 77 63 61 73 74  |l Manc" "Newcast|
00002e80  6c 65 3a 63 61 6c 6c 20  4e 65 77 63 22 20 22 4e  |le:call Newc" "N|
00002e90  6f 74 74 69 6e 67 68 61  6d 3a 63 61 6c 6c 20 4e  |ottingham:call N|
00002ea0  6f 74 74 22 20 22 50 72  65 73 74 6f 6e 3a 63 61  |ott" "Preston:ca|
00002eb0  6c 6c 20 50 72 65 73 22  20 22 53 68 65 66 66 69  |ll Pres" "Sheffi|
00002ec0  65 6c 64 3a 63 61 6c 6c  20 53 68 65 66 22 20 22  |eld:call Shef" "|
00002ed0  4c 69 73 74 3a 63 61 6c  6c 20 4c 69 73 74 22 0a  |List:call List".|
00002ee0  23 20 6d 65 6e 75 20 2f  69 63 6f 6e 3d 22 4c 6f  |# menu /icon="Lo|
00002ef0  63 61 6c 22 20 20 20 22  4c 6f 63 61 6c 20 63 61  |cal"   "Local ca|
00002f00  6c 6c 3a 63 61 6c 6c 20  4c 65 65 64 22 20 0a 23  |ll:call Leed" .#|
00002f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002f40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 3a 6d 61 6b  |-----------.:mak|
00002f50  65 6d 65 6e 75 73 0a 6d  65 6e 75 20 22 4c 6f 6e  |emenus.menu "Lon|
00002f60  64 6f 6e 3a 63 61 6c 6c  20 4c 6f 6e 64 22 20 22  |don:call Lond" "|
00002f70  4c 65 65 64 73 3a 63 61  6c 6c 20 4c 65 65 64 22  |Leeds:call Leed"|
00002f80  20 22 4d 61 6e 63 68 65  73 74 65 72 3a 63 61 6c  | "Manchester:cal|
00002f90  6c 20 4d 61 6e 63 22 20  22 4e 65 77 63 61 73 74  |l Manc" "Newcast|
00002fa0  6c 65 3a 63 61 6c 6c 20  4e 65 77 63 22 20 22 4e  |le:call Newc" "N|
00002fb0  6f 74 74 69 6e 67 68 61  6d 3a 63 61 6c 6c 20 4e  |ottingham:call N|
00002fc0  6f 74 74 22 20 22 50 72  65 73 74 6f 6e 3a 63 61  |ott" "Preston:ca|
00002fd0  6c 6c 20 50 72 65 73 22  20 22 53 68 65 66 66 69  |ll Pres" "Sheffi|
00002fe0  65 6c 64 3a 63 61 6c 6c  20 53 68 65 66 22 20 22  |eld:call Shef" "|
00002ff0  4c 69 73 74 3a 63 61 6c  6c 20 4c 69 73 74 22 0a  |List:call List".|
00003000  23 6d 65 6e 75 20 2f 69  63 6f 6e 3d 22 4d 65 72  |#menu /icon="Mer|
00003010  63 75 72 79 22 20 22 4d  65 72 63 75 72 79 20 4f  |cury" "Mercury O|
00003020  6e 3a 63 61 6c 6c 20 6d  65 72 63 75 72 79 5f 6f  |n:call mercury_o|
00003030  6e 22 20 22 4d 65 72 63  75 72 79 20 4f 66 66 3a  |n" "Mercury Off:|
00003040  63 61 6c 6c 20 6d 65 72  63 75 72 79 5f 6f 66 66  |call mercury_off|
00003050  22 0a 6d 65 6e 75 20 2f  69 63 6f 6e 3d 22 4c 6f  |".menu /icon="Lo|
00003060  63 61 6c 22 20 20 20 22  4c 6f 6e 64 6f 6e 3a 63  |cal"   "London:c|
00003070  61 6c 6c 20 4c 6f 6e 64  22 20 0a 72 65 74 75 72  |all Lond" .retur|
00003080  6e 20 31 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |n 1..#----------|
00003090  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000030c0  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
000030d0  73 65 74 73 65 72 69 61  6c 0a 23 20 53 65 74 20  |setserial.# Set |
000030e0  53 65 72 69 61 6c 20 50  6f 72 74 2f 44 72 69 76  |Serial Port/Driv|
000030f0  65 72 20 50 61 72 61 6d  65 74 65 72 73 0a 23 2d  |er Parameters.#-|
00003100  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003130  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 3a 73 65 74 73  |----------.:sets|
00003140  65 72 69 61 6c 0a 64 72  69 76 65 72 20 55 53 52  |erial.driver USR|
00003150  0a 70 6f 72 74 20 25 77  70 6f 72 74 20 25 70 72  |.port %wport %pr|
00003160  74 6e 75 6d 0a 73 70 65  65 64 20 25 73 70 65 65  |tnum.speed %spee|
00003170  64 0a 73 65 74 20 70 72  6f 74 6f 63 6f 6c 20 73  |d.set protocol s|
00003180  6c 69 70 0a 72 65 74 75  72 6e 20 31 0a 0a 23 2d  |lip.return 1..#-|
00003190  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000031c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
000031d0  72 6f 75 74 69 6e 65 3a  20 73 65 74 75 70 31 0a  |routine: setup1.|
000031e0  23 20 43 61 6c 6c 65 64  20 74 6f 20 73 65 74 75  |# Called to setu|
000031f0  70 20 64 65 66 61 75 6c  74 73 20 69 66 20 6e 6f  |p defaults if no|
00003200  20 63 6f 6e 66 69 67 75  72 61 74 69 6f 6e 20 66  | configuration f|
00003210  69 6c 65 20 70 72 65 73  65 6e 74 2e 0a 23 2d 2d  |ile present..#--|
00003220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003250  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 3a 73 65 74 75 70  |---------.:setup|
00003260  31 0a 69 6e 70 75 74 2f  70 72 6f 6d 70 74 3d 22  |1.input/prompt="|
00003270  45 6e 74 65 72 20 53 65  72 69 61 6c 20 42 6c 6f  |Enter Serial Blo|
00003280  63 6b 20 44 72 69 76 65  72 20 4e 61 6d 65 22 20  |ck Driver Name" |
00003290  77 70 6f 72 74 0a 69 6e  70 75 74 2f 70 72 6f 6d  |wport.input/prom|
000032a0  70 74 3d 22 45 6e 74 65  72 20 53 65 72 69 61 6c  |pt="Enter Serial|
000032b0  20 50 6f 72 74 20 4e 75  6d 62 65 72 20 28 69 66  | Port Number (if|
000032c0  20 72 65 6c 65 76 61 6e  74 29 22 20 70 72 74 6e  | relevant)" prtn|
000032d0  75 6d 0a 69 6e 70 75 74  2f 70 72 6f 6d 70 74 3d  |um.input/prompt=|
000032e0  22 45 6e 74 65 72 20 59  6f 75 72 20 4d 6f 64 65  |"Enter Your Mode|
000032f0  6d 2d 3e 43 6f 6d 70 75  74 65 72 20 53 70 65 65  |m->Computer Spee|
00003300  64 20 28 62 70 73 29 3a  22 20 73 70 65 65 64 0a  |d (bps):" speed.|
00003310  69 6e 70 75 74 2f 70 72  6f 6d 70 74 3d 22 45 6e  |input/prompt="En|
00003320  74 65 72 20 59 6f 75 72  20 44 65 6d 6f 6e 20 4e  |ter Your Demon N|
00003330  6f 64 65 6e 61 6d 65 3a  22 20 6e 6f 64 65 6e 61  |odename:" nodena|
00003340  6d 65 0a 69 6e 70 75 74  2f 70 72 6f 6d 70 74 3d  |me.input/prompt=|
00003350  22 45 6e 74 65 72 20 59  6f 75 72 20 50 61 73 73  |"Enter Your Pass|
00003360  77 6f 72 64 3a 22 20 70  61 73 73 77 6f 72 64 0a  |word:" password.|
00003370  69 6e 70 75 74 2f 70 72  6f 6d 70 74 3d 22 45 6e  |input/prompt="En|
00003380  74 65 72 20 59 6f 75 72  20 4d 65 72 63 75 72 79  |ter Your Mercury|
00003390  20 50 49 4e 3a 22 20 6d  65 72 63 75 72 79 0a 6f  | PIN:" mercury.o|
000033a0  70 65 6e 2f 69 64 3d 63  6f 6e 66 2f 77 72 69 74  |pen/id=conf/writ|
000033b0  65 20 25 66 69 6c 65 6e  61 6d 65 0a 77 72 69 74  |e %filename.writ|
000033c0  65 2f 69 64 3d 63 6f 6e  66 20 25 77 70 6f 72 74  |e/id=conf %wport|
000033d0  0a 77 72 69 74 65 2f 69  64 3d 63 6f 6e 66 20 25  |.write/id=conf %|
000033e0  70 72 74 6e 75 6d 0a 77  72 69 74 65 2f 69 64 3d  |prtnum.write/id=|
000033f0  63 6f 6e 66 20 25 73 70  65 65 64 0a 77 72 69 74  |conf %speed.writ|
00003400  65 2f 69 64 3d 63 6f 6e  66 20 25 6e 6f 64 65 6e  |e/id=conf %noden|
00003410  61 6d 65 0a 77 72 69 74  65 2f 69 64 3d 63 6f 6e  |ame.write/id=con|
00003420  66 20 25 70 61 73 73 77  6f 72 64 0a 77 72 69 74  |f %password.writ|
00003430  65 2f 69 64 3d 63 6f 6e  66 20 25 6d 65 72 63 75  |e/id=conf %mercu|
00003440  72 79 0a 63 6c 6f 73 65  2f 69 64 3d 63 6f 6e 66  |ry.close/id=conf|
00003450  0a 72 65 74 75 72 6e 20  31 0a 0a 23 2d 2d 2d 2d  |.return 1..#----|
00003460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003490  2d 2d 2d 2d 2d 2d 2d 0a  23 20 53 75 62 72 6f 75  |-------.# Subrou|
000034a0  74 69 6e 65 3a 20 63 6f  6e 66 69 67 75 72 65 0a  |tine: configure.|
000034b0  23 20 54 68 69 73 20 6c  6f 61 64 73 20 70 61 73  |# This loads pas|
000034c0  73 77 6f 72 64 20 63 6f  6e 66 69 67 20 66 72 6f  |sword config fro|
000034d0  6d 20 66 69 6c 65 20 6f  72 20 70 72 6f 6d 70 74  |m file or prompt|
000034e0  73 20 66 6f 72 20 64 61  74 61 20 0a 23 20 74 6f  |s for data .# to|
000034f0  20 63 72 65 61 74 65 20  66 69 6c 65 2e 0a 23 2d  | create file..#-|
00003500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 3a 63 6f 6e 66  |----------.:conf|
00003540  69 67 75 72 65 0a 73 65  74 20 66 69 6c 65 6e 61  |igure.set filena|
00003550  6d 65 20 7b 3f 66 69 6c  65 2f 65 78 70 61 6e 64  |me {?file/expand|
00003560  20 73 6c 69 70 64 69 61  6c 3a 64 65 6d 6f 6e 63  | slipdial:demonc|
00003570  6f 6e 66 67 7d 0a 69 66  20 28 21 3f 66 69 6c 65  |onfg}.if (!?file|
00003580  20 25 66 69 6c 65 6e 61  6d 65 29 20 63 61 6c 6c  | %filename) call|
00003590  20 73 65 74 75 70 31 0a  6f 70 65 6e 2f 72 65 61  | setup1.open/rea|
000035a0  64 2f 69 64 3d 63 6f 6e  66 2f 65 72 72 6f 72 3d  |d/id=conf/error=|
000035b0  22 72 65 74 75 72 6e 22  20 25 66 69 6c 65 6e 61  |"return" %filena|
000035c0  6d 65 0a 72 65 61 64 2f  69 64 3d 63 6f 6e 66 2f  |me.read/id=conf/|
000035d0  65 6f 66 3d 22 67 6f 74  6f 20 63 6c 6f 73 65 63  |eof="goto closec|
000035e0  6f 6e 66 22 20 77 70 6f  72 74 0a 72 65 61 64 2f  |onf" wport.read/|
000035f0  69 64 3d 63 6f 6e 66 2f  65 6f 66 3d 22 67 6f 74  |id=conf/eof="got|
00003600  6f 20 63 6c 6f 73 65 63  6f 6e 66 22 20 70 72 74  |o closeconf" prt|
00003610  6e 75 6d 0a 72 65 61 64  2f 69 64 3d 63 6f 6e 66  |num.read/id=conf|
00003620  2f 65 6f 66 3d 22 67 6f  74 6f 20 63 6c 6f 73 65  |/eof="goto close|
00003630  63 6f 6e 66 22 20 73 70  65 65 64 0a 72 65 61 64  |conf" speed.read|
00003640  2f 69 64 3d 63 6f 6e 66  2f 65 6f 66 3d 22 67 6f  |/id=conf/eof="go|
00003650  74 6f 20 63 6c 6f 73 65  63 6f 6e 66 22 20 6e 6f  |to closeconf" no|
00003660  64 65 6e 61 6d 65 0a 72  65 61 64 2f 69 64 3d 63  |dename.read/id=c|
00003670  6f 6e 66 2f 65 6f 66 3d  22 67 6f 74 6f 20 63 6c  |onf/eof="goto cl|
00003680  6f 73 65 63 6f 6e 66 22  20 70 61 73 73 77 6f 72  |oseconf" passwor|
00003690  64 0a 72 65 61 64 2f 69  64 3d 63 6f 6e 66 2f 65  |d.read/id=conf/e|
000036a0  6f 66 3d 22 67 6f 74 6f  20 63 6c 6f 73 65 63 6f  |of="goto closeco|
000036b0  6e 66 22 20 6d 65 72 63  75 72 79 0a 3a 63 6c 6f  |nf" mercury.:clo|
000036c0  73 65 63 6f 6e 66 0a 63  6c 6f 73 65 2f 69 64 3d  |seconf.close/id=|
000036d0  63 6f 6e 66 0a 72 65 74  75 72 6e 0a 0a 23 2d 2d  |conf.return..#--|
000036e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003710  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
00003720  6f 75 74 69 6e 65 3a 20  6d 61 6b 65 4e 75 6d 62  |outine: makeNumb|
00003730  65 72 73 0a 23 20 4d 61  6b 65 20 61 20 73 65 74  |ers.# Make a set|
00003740  20 6f 66 20 76 61 72 69  61 62 6c 65 73 20 74 6f  | of variables to|
00003750  20 68 6f 6c 64 20 74 68  65 20 70 68 6f 6e 65 20  | hold the phone |
00003760  6e 75 6d 62 65 72 73 2e  0a 23 20 42 79 20 64 65  |numbers..# By de|
00003770  66 61 75 6c 74 2c 20 74  68 69 73 20 69 73 20 73  |fault, this is s|
00003780  65 74 20 75 70 20 66 6f  72 20 4d 65 72 63 75 72  |et up for Mercur|
00003790  79 20 75 73 65 72 73 20  6e 65 61 72 20 74 68 65  |y users near the|
000037a0  20 49 73 6c 65 0a 23 20  6f 66 20 57 69 67 68 74  | Isle.# of Wight|
000037b0  2e 20 59 6f 75 20 73 68  6f 75 6c 64 20 6f 66 20  |. You should of |
000037c0  63 6f 75 72 73 65 20 65  64 69 74 20 74 68 69 73  |course edit this|
000037d0  20 69 66 20 79 6f 75 20  61 72 65 20 6c 6f 63 61  | if you are loca|
000037e0  6c 0a 23 20 74 6f 20 73  6f 6d 65 77 68 65 72 65  |l.# to somewhere|
000037f0  20 65 6c 73 65 2e 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  | else..#--------|
00003800  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003830  2d 2d 2d 0a 3a 6d 61 6b  65 4e 75 6d 62 65 72 73  |---.:makeNumbers|
00003840  0a 73 65 74 20 42 69 72  6d 69 6e 67 68 61 6d 20  |.set Birmingham |
00003850  22 25 6d 65 72 63 75 72  79 5f 70 69 6e 5c 30 31  |"%mercury_pin\01|
00003860  32 31 32 37 35 34 38 34  38 22 0a 73 65 74 20 42  |212754848".set B|
00003870  72 61 64 66 6f 72 64 20  20 20 22 25 6d 65 72 63  |radford   "%merc|
00003880  75 72 79 5f 70 69 6e 5c  30 31 32 37 34 37 35 35  |ury_pin\01274755|
00003890  30 36 36 22 0a 73 65 74  20 42 72 69 73 74 6f 6c  |066".set Bristol|
000038a0  20 20 20 20 22 25 6d 65  72 63 75 72 79 5f 70 69  |    "%mercury_pi|
000038b0  6e 5c 30 31 31 37 39 38  31 34 38 34 38 22 0a 73  |n\01179814848".s|
000038c0  65 74 20 43 61 6d 62 72  69 64 67 65 20 20 22 25  |et Cambridge  "%|
000038d0  6d 65 72 63 75 72 79 5f  70 69 6e 5c 30 31 32 32  |mercury_pin\0122|
000038e0  33 35 37 36 30 31 30 22  0a 73 65 74 20 43 61 72  |3576010".set Car|
000038f0  64 69 66 66 20 20 20 20  22 25 6d 65 72 63 75 72  |diff    "%mercur|
00003900  79 5f 70 69 6e 5c 30 31  32 32 32 32 37 34 38 34  |y_pin\0122227484|
00003910  38 22 0a 73 65 74 20 43  6f 76 65 6e 74 72 79 20  |8".set Coventry |
00003920  20 20 22 25 6d 65 72 63  75 72 79 5f 70 69 6e 5c  |  "%mercury_pin\|
00003930  30 31 32 30 33 32 38 34  38 34 38 22 0a 73 65 74  |01203284848".set|
00003940  20 45 64 69 6e 62 75 72  67 68 20 20 22 25 6d 65  | Edinburgh  "%me|
00003950  72 63 75 72 79 5f 70 69  6e 5c 30 31 33 31 35 35  |rcury_pin\013155|
00003960  32 38 38 38 33 22 0a 73  65 74 20 47 6c 6f 75 63  |28883".set Glouc|
00003970  65 73 74 65 72 20 22 25  6d 65 72 63 75 72 79 5f  |ester "%mercury_|
00003980  70 69 6e 5c 30 31 34 35  32 33 35 34 38 34 38 22  |pin\01452354848"|
00003990  0a 73 65 74 20 48 75 6c  6c 20 20 20 20 20 20 20  |.set Hull       |
000039a0  22 25 6d 65 72 63 75 72  79 5f 70 69 6e 5c 30 31  |"%mercury_pin\01|
000039b0  34 38 32 34 39 35 35 38  30 22 0a 73 65 74 20 49  |482495580".set I|
000039c0  73 6c 65 4f 66 57 69 67  68 74 20 22 25 6d 65 72  |sleOfWight "%mer|
000039d0  63 75 72 79 5f 70 69 6e  5c 30 31 39 38 33 35 32  |cury_pin\0198352|
000039e0  33 33 30 36 22 0a 73 65  74 20 4c 65 65 64 73 20  |3306".set Leeds |
000039f0  20 20 20 20 20 22 25 6d  65 72 63 75 72 79 5f 70  |     "%mercury_p|
00003a00  69 6e 5c 30 31 31 33 32  39 38 34 38 34 38 22 0a  |in\01132984848".|
00003a10  73 65 74 20 4c 65 69 63  65 73 74 65 72 20 20 22  |set Leicester  "|
00003a20  25 6d 65 72 63 75 72 79  5f 70 69 6e 5c 30 31 31  |%mercury_pin\011|
00003a30  36 32 39 30 34 38 34 38  22 0a 73 65 74 20 4c 69  |62904848".set Li|
00003a40  76 65 72 70 6f 6f 6c 20  20 22 25 6d 65 72 63 75  |verpool  "%mercu|
00003a50  72 79 5f 70 69 6e 5c 30  31 35 31 32 31 30 34 38  |ry_pin\015121048|
00003a60  34 38 22 0a 73 65 74 20  4c 6f 6e 64 6f 6e 20 20  |48".set London  |
00003a70  20 20 20 22 25 6d 65 72  63 75 72 79 5f 70 69 6e  |   "%mercury_pin|
00003a80  5c 30 31 38 31 33 33 38  34 38 34 38 22 0a 73 65  |\01813384848".se|
00003a90  74 20 4c 75 74 6f 6e 20  20 20 20 20 20 22 25 6d  |t Luton      "%m|
00003aa0  65 72 63 75 72 79 5f 70  69 6e 5c 30 31 35 38 32  |ercury_pin\01582|
00003ab0  36 34 34 38 34 38 22 0a  73 65 74 20 4d 61 6e 63  |644848".set Manc|
00003ac0  68 65 73 74 65 72 20 22  25 6d 65 72 63 75 72 79  |hester "%mercury|
00003ad0  5f 70 69 6e 5c 30 31 36  31 33 38 35 34 38 34 38  |_pin\01613854848|
00003ae0  22 0a 73 65 74 20 4e 65  77 63 61 73 74 6c 65 20  |".set Newcastle |
00003af0  20 22 25 6d 65 72 63 75  72 79 5f 70 69 6e 5c 30  | "%mercury_pin\0|
00003b00  31 39 31 32 34 37 34 38  34 38 22 0a 73 65 74 20  |1912474848".set |
00003b10  4e 6f 74 74 69 6e 67 68  61 6d 20 22 25 6d 65 72  |Nottingham "%mer|
00003b20  63 75 72 79 5f 70 69 6e  5c 30 31 31 35 39 35 34  |cury_pin\0115954|
00003b30  34 38 34 38 22 0a 73 65  74 20 50 72 65 73 74 6f  |4848".set Presto|
00003b40  6e 20 20 20 20 22 25 6d  65 72 63 75 72 79 5f 70  |n    "%mercury_p|
00003b50  69 6e 5c 30 31 37 37 32  34 38 34 38 34 38 22 0a  |in\01772484848".|
00003b60  73 65 74 20 52 65 61 64  69 6e 67 20 20 20 20 22  |set Reading    "|
00003b70  25 6d 65 72 63 75 72 79  5f 70 69 6e 5c 30 31 37  |%mercury_pin\017|
00003b80  33 34 32 38 34 38 34 38  22 0a 73 65 74 20 53 61  |34284848".set Sa|
00003b90  66 66 72 6f 6e 20 20 20  20 22 25 6d 65 72 63 75  |ffron    "%mercu|
00003ba0  72 79 5f 70 69 6e 5c 30  31 37 39 39 35 30 36 30  |ry_pin\017995060|
00003bb0  31 30 22 0a 73 65 74 20  53 68 65 66 66 69 65 6c  |10".set Sheffiel|
00003bc0  64 20 20 22 25 6d 65 72  63 75 72 79 5f 70 69 6e  |d  "%mercury_pin|
00003bd0  5c 30 31 31 34 32 33 38  34 38 34 38 22 0a 73 65  |\01142384848".se|
00003be0  74 20 53 75 6e 64 65 72  6c 61 6e 64 20 22 25 6d  |t Sunderland "%m|
00003bf0  65 72 63 75 72 79 5f 70  69 6e 5c 30 31 39 31 35  |ercury_pin\01915|
00003c00  32 32 35 30 30 35 22 0a  73 65 74 20 57 6f 6c 76  |225005".set Wolv|
00003c10  65 72 68 61 6d 70 74 6f  6e 20 22 25 6d 65 72 63  |erhampton "%merc|
00003c20  75 72 79 5f 70 69 6e 5c  30 31 39 30 32 34 36 34  |ury_pin\01902464|
00003c30  38 34 38 22 0a 23 0a 23  20 48 61 63 6b 20 74 6f  |848".#.# Hack to|
00003c40  20 72 65 6d 6f 76 65 20  6d 65 72 63 75 72 79 20  | remove mercury |
00003c50  70 69 6e 20 66 72 6f 6d  20 6c 6f 63 61 6c 20 6e  |pin from local n|
00003c60  75 6d 62 65 72 0a 69 66  20 28 3f 65 71 20 22 25  |umber.if (?eq "%|
00003c70  4c 6f 6e 64 6f 6e 22 20  22 25 6d 65 72 63 75 72  |London" "%mercur|
00003c80  79 5f 70 69 6e 5c 25 6c  6f 63 61 6c 22 29 20 73  |y_pin\%local") s|
00003c90  65 74 20 4c 6f 6e 64 6f  6e 20 22 25 6c 6f 63 61  |et London "%loca|
00003ca0  6c 22 0a 23 0a 23 45 64  69 74 20 74 68 65 20 66  |l".#.#Edit the f|
00003cb0  6f 6c 6c 6f 77 69 6e 67  20 6c 69 6e 65 20 74 6f  |ollowing line to|
00003cc0  20 63 75 73 74 6f 6d 69  73 65 20 74 68 65 20 6c  | customise the l|
00003cd0  69 73 74 20 6f 66 20 6e  75 6d 62 65 72 73 20 77  |ist of numbers w|
00003ce0  68 69 63 68 0a 23 20 73  6c 69 70 64 69 61 6c 20  |hich.# slipdial |
00003cf0  64 69 61 6c 73 20 69 6e  20 73 65 71 75 65 6e 63  |dials in sequenc|
00003d00  65 2e 20 20 4e 6f 74 65  20 74 68 61 74 20 74 68  |e.  Note that th|
00003d10  65 20 6c 69 73 74 20 69  73 20 6d 61 64 65 20 75  |e list is made u|
00003d20  70 0a 23 20 6e 61 6d 65  73 20 64 65 66 69 6e 65  |p.# names define|
00003d30  64 20 61 62 6f 76 65 2c  20 70 72 65 63 65 64 65  |d above, precede|
00003d40  64 20 62 79 20 61 20 27  25 27 2e 20 20 4e 6f 74  |d by a '%'.  Not|
00003d50  65 20 74 68 61 74 20 74  68 65 20 73 70 61 63 65  |e that the space|
00003d60  73 0a 23 20 62 65 74 77  65 65 6e 20 74 68 65 20  |s.# between the |
00003d70  6e 61 6d 65 73 20 69 6e  20 74 68 65 20 4c 69 73  |names in the Lis|
00003d80  74 20 6d 75 73 74 20 62  65 20 69 6e 63 6c 75 64  |t must be includ|
00003d90  65 64 2e 0a 23 0a 23 20  45 78 61 6d 70 6c 65 20  |ed..#.# Example |
00003da0  2d 20 74 6f 20 63 61 6c  6c 20 68 75 6c 6c 2c 20  |- to call hull, |
00003db0  62 72 61 64 66 6f 72 64  2c 20 73 61 66 66 72 6f  |bradford, saffro|
00003dc0  6e 20 77 61 6c 64 65 6e  20 69 6e 20 74 68 61 74  |n walden in that|
00003dd0  20 6f 72 64 65 72 0a 23  20 79 6f 75 20 77 6f 75  | order.# you wou|
00003de0  6c 64 20 75 73 65 0a 23  0a 23 20 73 65 74 20 4c  |ld use.#.# set L|
00003df0  69 73 74 20 22 25 48 75  6c 6c 20 25 42 72 61 64  |ist "%Hull %Brad|
00003e00  66 6f 72 64 20 25 53 61  66 66 72 6f 6e 22 0a 23  |ford %Saffron".#|
00003e10  0a 23 20 4e 6f 74 65 20  74 68 61 74 20 74 68 65  |.# Note that the|
00003e20  20 6e 75 6d 62 65 72 20  6f 66 20 72 65 74 72 69  | number of retri|
00003e30  65 73 20 6d 61 64 65 20  61 74 20 65 61 63 68 20  |es made at each |
00003e40  6e 75 6d 62 65 72 20 69  73 0a 23 20 73 65 74 20  |number is.# set |
00003e50  69 6e 20 74 68 65 20 73  75 62 72 6f 75 74 69 6e  |in the subroutin|
00003e60  65 20 3a 4c 69 73 74 0a  23 0a 73 65 74 20 4c 69  |e :List.#.set Li|
00003e70  73 74 20 22 25 4c 65 65  64 73 20 25 50 72 65 73  |st "%Leeds %Pres|
00003e80  74 6f 6e 20 25 4d 61 6e  63 68 65 73 74 65 72 22  |ton %Manchester"|
00003e90  0a 72 65 74 75 72 6e 0a  0a 23 2d 2d 2d 2d 2d 2d  |.return..#------|
00003ea0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003ed0  2d 2d 2d 2d 2d 0a 23 20  53 75 62 72 6f 75 74 69  |-----.# Subrouti|
00003ee0  6e 65 3a 20 69 6e 69 74  4d 61 69 6e 0a 23 20 47  |ne: initMain.# G|
00003ef0  65 6e 65 72 61 6c 20 69  6e 69 74 69 61 6c 69 73  |eneral initialis|
00003f00  61 74 69 6f 6e 2e 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |ation..#--------|
00003f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003f40  2d 2d 2d 0a 3a 69 6e 69  74 4d 61 69 6e 20 20 20  |---.:initMain   |
00003f50  20 20 20 20 20 20 20 20  20 20 20 20 20 0a 23 20  |             .# |
00003f60  72 65 6d 6f 76 65 20 63  6f 6d 6d 65 6e 74 20 66  |remove comment f|
00003f70  72 6f 6d 20 66 6f 6c 6c  6f 77 69 6e 67 20 6c 69  |rom following li|
00003f80  6e 65 20 66 6f 72 20 74  72 61 63 69 6e 67 0a 23  |ne for tracing.#|
00003f90  74 72 61 63 65 20 22 53  6c 69 70 44 69 61 6c 3a  |trace "SlipDial:|
00003fa0  6c 6f 67 6f 75 74 70 75  74 22 0a 64 65 62 75 67  |logoutput".debug|
00003fb0  20 33 0a 69 63 6f 6e 20  2f 66 69 6c 65 3d 22 53  | 3.icon /file="S|
00003fc0  6c 69 70 44 69 61 6c 3a  44 65 6d 6f 6e 53 70 72  |lipDial:DemonSpr|
00003fd0  22 0a 73 65 74 20 6d 65  72 63 75 72 79 5f 70 69  |".set mercury_pi|
00003fe0  6e 20 22 22 0a 23 20 69  63 6f 6e 20 2f 69 64 3d  |n "".# icon /id=|
00003ff0  22 4c 6f 63 61 6c 22 20  2f 61 63 74 69 6f 6e 3d  |"Local" /action=|
00004000  22 63 61 6c 6c 20 4c 65  65 64 22 20 6c 6f 63 0a  |"call Leed" loc.|
00004010  69 63 6f 6e 20 2f 69 64  3d 22 4c 6f 63 61 6c 22  |icon /id="Local"|
00004020  20 2f 61 63 74 69 6f 6e  3d 22 63 61 6c 6c 20 4c  | /action="call L|
00004030  6f 6e 64 22 20 6c 6f 63  0a 72 65 74 75 72 6e 20  |ond" loc.return |
00004040  31 0a 0a 23 20 52 65 76  69 73 69 6f 6e 20 68 69  |1..# Revision hi|
00004050  73 74 6f 72 79 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |story.#---------|
00004060  2d 2d 2d 2d 2d 2d 2d 2d  0a 23 20 39 35 30 32 31  |--------.# 95021|
00004070  36 20 47 54 41 20 20 20  20 20 4d 6f 64 69 66 69  |6 GTA     Modifi|
00004080  65 64 20 63 6f 6d 6d 61  6e 64 73 20 77 68 69 63  |ed commands whic|
00004090  68 20 73 74 61 72 74 20  54 54 46 4e 20 26 20 4e  |h start TTFN & N|
000040a0  65 77 73 62 61 73 65 20  73 6f 20 74 68 61 74 0a  |ewsbase so that.|
000040b0  23 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#               |
000040c0  20 74 68 65 79 20 61 72  65 20 6f 6e 6c 79 20 73  | they are only s|
000040d0  74 61 72 74 65 64 20 69  66 20 6e 6f 74 20 61 6c  |tarted if not al|
000040e0  72 65 61 64 79 20 72 75  6e 6e 69 6e 67 2e 20 44  |ready running. D|
000040f0  65 63 6f 6d 6d 65 6e 74  65 64 0a 23 20 20 20 20  |ecommented.#    |
00004100  20 20 20 20 20 20 20 20  20 20 20 20 65 78 74 72  |            extr|
00004110  61 20 50 4f 50 20 6e 75  6d 62 65 72 73 20 64 75  |a POP numbers du|
00004120  65 20 74 6f 20 69 6e 63  72 65 61 73 65 20 69 6e  |e to increase in|
00004130  20 6e 6f 2e 20 6f 66 20  61 6c 6c 6f 77 65 64 0a  | no. of allowed.|
00004140  23 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#               |
00004150  20 76 61 72 69 61 62 6c  65 73 3b 20 72 65 77 72  | variables; rewr|
00004160  6f 74 65 20 6d 65 6e 75  20 73 6c 69 67 68 74 6c  |ote menu slightl|
00004170  79 20 64 75 65 20 74 6f  20 69 6e 63 72 65 61 73  |y due to increas|
00004180  65 20 69 6e 20 69 74 73  0a 23 20 20 20 20 20 20  |e in its.#      |
00004190  20 20 20 20 20 20 20 20  20 20 70 65 72 6d 69 74  |          permit|
000041a0  74 65 64 20 6c 65 6e 67  74 68 2e 0a 23 20 39 35  |ted length..# 95|
000041b0  30 31 32 39 20 41 50 46  2f 4d 44 4a 20 31 29 20  |0129 APF/MDJ 1) |
000041c0  6d 65 72 67 65 64 20 69  6e 20 69 6d 70 72 6f 76  |merged in improv|
000041d0  65 6d 65 6e 74 73 20 6d  61 64 65 20 62 79 20 4d  |ements made by M|
000041e0  69 6b 65 20 4a 61 6d 65  73 2c 20 69 2e 65 2e 20  |ike James, i.e. |
000041f0  73 65 70 61 72 61 74 65  0a 23 20 20 20 20 20 20  |separate.#      |
00004200  20 20 20 20 20 20 20 20  20 20 6d 65 72 63 75 72  |          mercur|
00004210  79 20 70 69 6e 20 70 72  65 66 69 78 20 66 6f 72  |y pin prefix for|
00004220  20 65 61 63 68 20 6e 75  6d 62 65 72 20 28 61 73  | each number (as|
00004230  20 6c 6f 63 61 6c 20 63  61 6c 6c 73 20 64 6f 6e  | local calls don|
00004240  27 74 20 6e 65 65 64 0a  23 20 20 20 20 20 20 20  |'t need.#       |
00004250  20 20 20 20 20 20 20 20  20 70 69 6e 73 29 2e 20  |         pins). |
00004260  20 4d 69 6b 65 20 61 6c  73 6f 20 61 64 64 65 64  | Mike also added|
00004270  20 61 6e 20 69 63 6f 6e  20 66 6f 72 20 64 69 61  | an icon for dia|
00004280  6c 6c 69 6e 67 20 74 68  65 20 6e 65 61 72 65 73  |lling the neares|
00004290  74 20 0a 23 20 20 20 20  20 20 20 20 20 20 20 20  |t .#            |
000042a0  20 20 20 20 6e 75 6d 62  65 72 2e 0a 23 20 20 20  |    number..#   |
000042b0  20 20 20 20 20 20 20 20  20 20 20 20 20 32 29 20  |             2) |
000042c0  49 6e 63 6c 75 64 65 64  20 61 20 22 72 65 69 6e  |Included a "rein|
000042d0  69 74 22 20 69 66 20 63  61 6c 6c 20 66 61 69 6c  |it" if call fail|
000042e0  73 2c 20 61 73 20 22 72  65 6c 65 61 73 65 22 20  |s, as "release" |
000042f0  6f 6e 20 69 74 73 20 6f  77 6e 0a 23 20 20 20 20  |on its own.#    |
00004300  20 20 20 20 20 20 20 20  20 20 20 20 64 6f 65 73  |            does|
00004310  6e 27 74 20 73 65 65 6d  20 74 6f 20 64 72 6f 70  |n't seem to drop|
00004320  20 74 68 65 20 6c 69 6e  65 2e 20 20 20 20 20 20  | the line.      |
00004330  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004340  20 20 20 20 20 20 20 20  0a 23 20 39 35 30 31 31  |        .# 95011|
00004350  34 20 41 50 46 20 20 20  20 20 52 65 6d 6f 76 65  |4 APF     Remove|
00004360  64 20 74 72 69 6d 6d 69  6e 67 20 6f 66 20 6e 65  |d trimming of ne|
00004370  77 73 20 68 69 73 74 6f  72 79 20 66 69 6c 65 2c  |ws history file,|
00004380  20 61 73 20 6e 65 77 73  62 61 73 65 20 64 6f 65  | as newsbase doe|
00004390  73 20 74 68 69 73 0a 23  20 20 20 20 20 20 20 20  |s this.#        |
000043a0  20 20 20 20 20 20 20 20  62 65 74 74 65 72 20 28  |        better (|
000043b0  61 63 63 6f 72 64 69 6e  67 20 74 6f 20 47 72 61  |according to Gra|
000043c0  68 61 6d 20 41 6c 6c 61  6e 29 0a 23 20 39 34 31  |ham Allan).# 941|
000043d0  32 31 39 20 41 50 46 20  20 20 20 20 4c 69 73 74  |219 APF     List|
000043e0  20 6f 66 20 70 68 6f 6e  65 20 6e 75 6d 73 20 6d  | of phone nums m|
000043f0  75 73 74 20 62 65 20 69  6e 20 71 75 6f 74 65 73  |ust be in quotes|
00004400  2c 20 65 2e 67 2e 20 73  65 74 20 70 68 6f 6e 65  |, e.g. set phone|
00004410  6e 75 6d 20 22 25 4c 69  73 74 22 0a 23 20 39 34  |num "%List".# 94|
00004420  31 32 31 35 20 41 50 46  20 20 20 20 20 46 6f 75  |1215 APF     Fou|
00004430  6e 64 20 6d 79 20 65 72  72 6f 72 20 61 74 20 6c  |nd my error at l|
00004440  61 73 74 20 2d 20 6c 61  62 65 6c 73 20 61 72 65  |ast - labels are|
00004450  20 63 61 73 65 20 73 65  6e 73 69 74 69 76 65 21  | case sensitive!|
00004460  0a 23 20 39 34 31 32 31  33 20 41 50 46 20 20 20  |.# 941213 APF   |
00004470  20 20 42 75 67 20 66 6f  75 6e 64 20 63 61 6c 6c  |  Bug found call|
00004480  69 6e 67 20 4c 6f 6e 64  6f 6e 20 2d 20 53 6c 69  |ing London - Sli|
00004490  70 44 69 61 6c 20 64 69  64 6e 27 74 20 72 65 63  |pDial didn't rec|
000044a0  6f 67 6e 69 73 65 20 22  6c 6f 22 2c 20 69 74 0a  |ognise "lo", it.|
000044b0  23 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#               |
000044c0  20 66 6f 75 6e 64 20 22  6c 6f 6f 70 22 20 69 6e  | found "loop" in|
000044d0  73 74 65 61 64 2c 20 73  6f 20 49 20 63 68 61 6e  |stead, so I chan|
000044e0  67 65 64 20 73 75 62 72  6f 75 74 69 6e 65 20 6e  |ged subroutine n|
000044f0  61 6d 65 20 74 6f 20 22  4c 6f 6e 22 2e 0a 23 20  |ame to "Lon"..# |
00004500  39 34 31 32 30 34 20 41  50 46 20 20 20 20 20 41  |941204 APF     A|
00004510  64 64 65 64 20 6d 6f 72  65 20 63 6f 6d 6d 65 6e  |dded more commen|
00004520  74 73 2e 20 20 4d 6f 64  69 66 65 64 20 22 6e 6f  |ts.  Modifed "no|
00004530  20 6e 65 77 73 20 64 6f  77 6e 6c 6f 61 64 65 64  | news downloaded|
00004540  20 6d 65 73 73 61 67 65  20 74 6f 20 62 65 0a 23  | message to be.#|
00004550  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004560  6d 6f 72 65 20 68 6f 6e  65 73 74 2e 0a 23 20 39  |more honest..# 9|
00004570  34 31 32 30 32 20 41 50  46 20 20 20 20 20 43 68  |41202 APF     Ch|
00004580  65 63 6b 73 20 69 66 20  44 65 6d 48 69 73 74 20  |ecks if DemHist |
00004590  66 69 6c 65 20 65 78 69  73 74 73 20 62 65 66 6f  |file exists befo|
000045a0  72 65 20 74 72 79 69 6e  67 20 74 6f 20 74 72 69  |re trying to tri|
000045b0  6d 20 69 74 2e 20 20 41  6c 6c 20 0a 23 20 20 20  |m it.  All .#   |
000045c0  20 20 20 20 20 20 20 20  20 20 20 20 20 72 65 66  |             ref|
000045d0  65 72 65 6e 63 65 73 20  74 6f 20 63 6f 73 74 20  |erences to cost |
000045e0  63 61 6c 63 75 6c 61 74  69 6f 6e 20 72 65 6d 6f  |calculation remo|
000045f0  76 65 64 2e 20 20 41 6c  6c 20 70 72 65 2d 54 54  |ved.  All pre-TT|
00004600  46 4e 2f 4e 65 77 73 62  61 73 65 0a 23 20 20 20  |FN/Newsbase.#   |
00004610  20 20 20 20 20 20 20 20  20 20 20 20 20 72 65 66  |             ref|
00004620  65 72 65 6e 63 65 73 20  72 65 6d 6f 76 65 64 20  |erences removed |
00004630  28 65 2e 67 2e 20 49 6e  63 6f 72 70 2c 20 52 65  |(e.g. Incorp, Re|
00004640  61 64 6e 65 77 73 2c 20  63 6f 6e 76 6d 61 69 6c  |adnews, convmail|
00004650  29 2e 20 41 64 64 65 64  20 61 6c 6c 0a 23 20 20  |). Added all.#  |
00004660  20 20 20 20 20 20 20 20  20 20 20 20 20 20 6b 6e  |              kn|
00004670  6f 77 6e 20 50 6f 50 20  70 68 6f 6e 65 20 6e 75  |own PoP phone nu|
00004680  6d 62 65 72 73 2e 20 20  41 64 64 65 64 20 61 20  |mbers.  Added a |
00004690  6c 69 73 74 20 6f 66 20  70 68 6f 6e 65 20 6e 75  |list of phone nu|
000046a0  6d 62 65 72 73 20 6f 70  74 69 6f 6e 0a 23 20 20  |mbers option.#  |
000046b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 74 6f  |              to|
000046c0  20 74 68 65 20 6d 65 6e  75 2e 0a 23 20 39 34 31  | the menu..# 941|
000046d0  31 32 31 20 41 50 46 20  20 20 20 20 53 70 72 69  |121 APF     Spri|
000046e0  74 65 73 20 73 68 6f 75  6c 64 20 62 65 20 68 67  |tes should be hg|
000046f0  6f 6e 2c 20 68 67 6f 66  66 20 28 77 69 74 68 6f  |on, hgoff (witho|
00004700  75 74 20 27 5f 27 29 20  0a 23 20 39 34 31 31 31  |ut '_') .# 94111|
00004710  37 20 41 50 46 20 20 20  20 20 54 6f 20 72 65 6e  |7 APF     To ren|
00004720  61 6d 65 20 73 70 72 69  74 65 73 20 74 6f 20 68  |ame sprites to h|
00004730  67 5f 6f 6e 2f 68 67 5f  6f 66 66 20 73 6f 20 73  |g_on/hg_off so s|
00004740  74 61 6e 64 61 72 64 20  44 65 6d 6f 6e 53 70 72  |tandard DemonSpr|
00004750  20 73 70 72 69 74 65 20  0a 23 20 20 20 20 20 20  | sprite .#      |
00004760  20 20 20 20 20 20 20 20  20 20 66 69 6c 65 20 77  |          file w|
00004770  69 6c 6c 20 73 74 69 6c  6c 20 77 6f 72 6b 2e 0a  |ill still work..|
00004780  23 20 39 34 31 30 30 35  20 41 50 46 20 20 20 20  |# 941005 APF    |
00004790  20 4f 72 64 65 72 20 6f  66 20 73 74 61 72 74 75  | Order of startu|
000047a0  70 20 6f 66 20 6e 65 77  73 62 61 73 65 20 61 6e  |p of newsbase an|
000047b0  64 20 54 54 46 4e 20 73  77 61 70 70 65 64 2e 20  |d TTFN swapped. |
000047c0  54 54 46 4e 20 6d 75 73  74 0a 23 20 20 20 20 20  |TTFN must.#     |
000047d0  20 20 20 20 20 20 20 20  20 20 20 73 74 61 72 74  |           start|
000047e0  20 66 69 72 73 74 20 66  6f 72 20 65 76 65 72 79  | first for every|
000047f0  74 68 69 6e 67 20 74 6f  20 77 6f 72 6b 20 70 72  |thing to work pr|
00004800  6f 70 65 72 6c 79 2e 0a  23 20 39 34 30 39 32 39  |operly..# 940929|
00004810  20 41 50 46 20 20 20 20  20 53 74 6f 70 70 65 64  | APF     Stopped|
00004820  20 75 73 69 6e 67 20 74  6d 73 74 72 74 2c 20 74  | using tmstrt, t|
00004830  6d 65 6e 64 2c 20 64 69  66 66 20 74 6f 20 63 72  |mend, diff to cr|
00004840  65 61 74 65 20 61 20 73  68 6f 72 74 20 64 65 6c  |eate a short del|
00004850  61 79 20 2d 20 0a 23 20  20 20 20 20 20 20 20 20  |ay - .#         |
00004860  20 20 20 20 20 20 20 6e  6f 77 20 66 69 78 65 64  |       now fixed|
00004870  20 74 6f 20 33 20 73 65  63 6f 6e 64 73 2e 0a 23  | to 3 seconds..#|
00004880  20 39 34 30 39 32 38 20  41 50 46 20 20 20 20 20  | 940928 APF     |
00004890  52 65 6d 6f 76 65 64 20  72 65 66 65 72 65 6e 63  |Removed referenc|
000048a0  65 73 20 74 6f 20 49 6e  74 65 72 6e 65 74 24 44  |es to Internet$D|
000048b0  69 72 0a 23 20 39 34 30  39 32 36 20 41 50 46 20  |ir.# 940926 APF |
000048c0  20 20 20 20 54 43 50 49  50 24 64 69 72 20 63 68  |    TCPIP$dir ch|
000048d0  61 6e 67 65 64 20 74 6f  20 54 43 50 49 50 32 24  |anged to TCPIP2$|
000048e0  64 69 72 0a 23 20 39 34  30 39 31 32 20 41 50 46  |dir.# 940912 APF|
000048f0  20 20 20 20 20 54 6f 20  61 64 64 20 49 73 6c 65  |     To add Isle|
00004900  20 6f 66 20 57 69 67 68  74 20 27 70 68 6f 6e 65  | of Wight 'phone|
00004910  20 6e 75 6d 62 65 72 0a  23 20 39 34 30 39 31 31  | number.# 940911|
00004920  20 41 50 46 20 20 20 20  20 54 61 73 6b 20 6b 69  | APF     Task ki|
00004930  6c 6c 69 6e 67 20 74 69  64 69 65 64 20 75 70 2e  |lling tidied up.|
00004940  0a 23 20 39 34 30 39 31  31 20 41 50 46 20 20 20  |.# 940911 APF   |
00004950  20 20 54 6f 20 75 73 65  20 6e 65 77 73 62 61 73  |  To use newsbas|
00004960  65 2f 74 74 66 6e 0a 23  20 39 34 30 38 30 33 20  |e/ttfn.# 940803 |
00004970  41 50 46 20 20 20 20 20  42 65 74 61 6e 65 77 73  |APF     Betanews|
00004980  20 61 6c 73 6f 20 63 61  6c 6c 73 20 63 6f 6e 76  | also calls conv|
00004990  6d 61 69 6c 0a 23 20 39  34 30 37 31 37 20 41 50  |mail.# 940717 AP|
000049a0  46 20 20 20 20 20 4e 65  77 73 72 61 74 65 20 61  |F     Newsrate a|
000049b0  64 64 65 64 0a 23 20 39  34 30 37 30 38 20 41 50  |dded.# 940708 AP|
000049c0  46 20 20 20 20 20 54 6f  20 72 65 6c 65 61 73 65  |F     To release|
000049d0  20 6d 6f 64 65 6d 20 63  6f 72 72 65 63 74 6c 79  | modem correctly|
000049e0  20 69 66 20 6e 6f 20 70  72 6f 6d 70 74 20 72 65  | if no prompt re|
000049f0  63 65 69 76 65 64 20 28  65 2e 67 2e 20 6c 6f 67  |ceived (e.g. log|
00004a00  69 6e 2c 0a 23 20 20 20  20 20 20 20 20 20 20 20  |in,.#           |
00004a10  20 20 20 20 20 70 61 73  73 77 6f 72 64 2c 20 70  |     password, p|
00004a20  72 6f 74 6f 63 6f 6c 20  65 74 63 29 2e 0a 23 20  |rotocol etc)..# |
00004a30  39 34 30 37 30 32 20 41  50 46 20 20 20 20 20 54  |940702 APF     T|
00004a40  6f 20 72 65 6e 61 6d 65  20 22 68 67 22 20 74 6f  |o rename "hg" to|
00004a50  20 22 6d 65 72 63 75 72  79 5f 70 69 6e 22 0a 23  | "mercury_pin".#|
00004a60  20 39 34 30 36 32 39 20  41 50 46 20 20 20 20 20  | 940629 APF     |
00004a70  54 6f 20 73 65 6e 64 20  6c 6f 6e 67 20 6d 6f 64  |To send long mod|
00004a80  65 6d 20 73 74 72 69 6e  67 73 20 75 73 69 6e 67  |em strings using|
00004a90  20 74 68 65 20 55 53 52  20 64 72 69 76 65 72 20  | the USR driver |
00004aa0  62 79 20 71 75 6f 74 69  6e 67 20 74 68 65 6d 0a  |by quoting them.|
00004ab0  23 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#               |
00004ac0  20 69 6e 20 71 75 6f 74  65 73 2e 20 28 70 72 65  | in quotes. (pre|
00004ad0  76 69 6f 75 73 20 63 6f  6d 6d 65 6e 74 20 6e 6f  |vious comment no|
00004ae0  20 6c 6f 6e 67 65 72 20  61 70 70 6c 69 65 73 29  | longer applies)|
00004af0  0a 23 20 39 34 30 36 32  37 20 41 50 46 20 20 20  |.# 940627 APF   |
00004b00  20 20 4e 6f 74 65 20 6e  6f 77 20 68 61 72 64 77  |  Note now hardw|
00004b10  69 72 65 64 20 74 6f 20  77 6f 72 6b 20 77 69 74  |ired to work wit|
00004b20  68 20 55 53 52 20 6d 6f  64 65 6d 73 2e 0a        |h USR modems..|
00004b2e