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  7b 7b 6c 6f 63 61 6c 7d  7d 22 0a 63 61 6c 6c 20  |{{local}}".call |
000003e0  63 6f 6e 66 69 67 75 72  65 0a 63 61 6c 6c 20 73  |configure.call s|
000003f0  65 74 73 65 72 69 61 6c  0a 63 61 6c 6c 20 6d 61  |etserial.call ma|
00000400  6b 65 6d 65 6e 75 73 0a  23 0a 23 20 63 68 61 6e  |kemenus.#.# chan|
00000410  67 65 20 66 6f 6c 6c 6f  77 69 6e 67 20 6c 69 6e  |ge following lin|
00000420  65 20 74 6f 20 22 63 61  6c 6c 20 6d 65 72 63 75  |e to "call mercu|
00000430  72 79 5f 6f 6e 22 20 66  6f 72 20 64 65 66 61 75  |ry_on" for defau|
00000440  6c 74 20 75 73 65 20 6f  66 20 6d 65 72 63 75 72  |lt use of mercur|
00000450  79 0a 23 0a 7b 7b 68 67  7d 7d 63 61 6c 6c 20 6d  |y.#.{{hg}}call m|
00000460  65 72 63 75 72 79 5f 6f  6e 0a 0a 23 0a 23 20 6d  |ercury_on..#.# m|
00000470  61 69 6e 20 6c 6f 6f 70  0a 23 0a 3a 6c 6f 6f 70  |ain loop.#.:loop|
00000480  0a 6d 65 73 73 61 67 65  20 2f 63 6c 6f 73 65 0a  |.message /close.|
00000490  77 61 69 74 20 2f 65 76  65 6e 74 0a 67 6f 74 6f  |wait /event.goto|
000004a0  20 6c 6f 6f 70 0a 65 78  69 74 0a 0a 23 20 65 6e  | loop.exit..# en|
000004b0  64 20 6f 66 20 70 72 6f  67 72 61 6d 0a 23 2d 2d  |d of program.#--|
000004c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000500  2d 2d 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |--.             |
00000510  20 20 20 0a 23 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |   .#===========|
00000520  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000550  3d 3d 3d 3d 3d 3d 3d 3d  3d 0a 23 20 53 55 42 52  |=========.# SUBR|
00000560  4f 55 54 49 4e 45 53 0a  23 3d 3d 3d 3d 3d 3d 3d  |OUTINES.#=======|
00000570  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000005a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0a 0a 23  |=============..#|
000005b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 23 20 53 75  |-----------.# Su|
000005f0  62 72 6f 75 74 69 6e 65  3a 20 42 69 72 6d 0a 23  |broutine: Birm.#|
00000600  20 63 61 6c 6c 73 20 42  69 72 6d 69 6e 67 68 61  | calls Birmingha|
00000610  6d 20 64 65 6d 6f 6e 20  70 68 6f 6e 65 20 6e 75  |m demon phone nu|
00000620  6d 62 65 72 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |mber.#----------|
00000630  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000660  2d 0a 3a 42 69 72 6d 0a  73 65 74 20 6e 52 65 74  |-.:Birm.set nRet|
00000670  72 69 65 73 20 35 30 0a  73 65 74 20 70 68 6f 6e  |ries 50.set phon|
00000680  65 6e 75 6d 20 22 25 42  69 72 6d 69 6e 67 68 61  |enum "%Birmingha|
00000690  6d 22 0a 67 6f 74 6f 20  64 6f 64 69 61 6c 20 20  |m".goto dodial  |
000006a0  20 20 20 20 20 20 20 20  20 20 20 0a 0a 23 2d 2d  |           ..#--|
000006b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000006e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
000006f0  6f 75 74 69 6e 65 3a 20  42 72 61 64 0a 23 20 63  |outine: Brad.# c|
00000700  61 6c 6c 73 20 42 72 61  64 66 6f 72 64 20 64 65  |alls Bradford de|
00000710  6d 6f 6e 20 70 68 6f 6e  65 20 6e 75 6d 62 65 72  |mon phone number|
00000720  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00000730  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000750  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 42  |-------------.:B|
00000760  72 61 64 0a 73 65 74 20  6e 52 65 74 72 69 65 73  |rad.set nRetries|
00000770  20 35 30 0a 73 65 74 20  70 68 6f 6e 65 6e 75 6d  | 50.set phonenum|
00000780  20 22 25 42 72 61 64 66  6f 72 64 22 0a 67 6f 74  | "%Bradford".got|
00000790  6f 20 64 6f 64 69 61 6c  0a 0a 23 2d 2d 2d 2d 2d  |o dodial..#-----|
000007a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000007d0  2d 2d 2d 2d 2d 2d 0a 23  20 53 75 62 72 6f 75 74  |------.# Subrout|
000007e0  69 6e 65 3a 20 42 72 69  73 0a 23 20 63 61 6c 6c  |ine: Bris.# call|
000007f0  73 20 42 72 69 73 74 6f  6c 20 64 65 6d 6f 6e 20  |s Bristol demon |
00000800  70 68 6f 6e 65 20 6e 75  6d 62 65 72 0a 23 2d 2d  |phone number.#--|
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000840  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 3a 42 72 69 73 0a  |---------.:Bris.|
00000850  73 65 74 20 6e 52 65 74  72 69 65 73 20 35 30 0a  |set nRetries 50.|
00000860  73 65 74 20 70 68 6f 6e  65 6e 75 6d 20 22 25 42  |set phonenum "%B|
00000870  72 69 73 74 6f 6c 22 0a  67 6f 74 6f 20 64 6f 64  |ristol".goto dod|
00000880  69 61 6c 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ial..#----------|
00000890  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000008c0  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
000008d0  43 61 6d 62 0a 23 20 63  61 6c 6c 73 20 43 61 6d  |Camb.# calls Cam|
000008e0  62 72 69 64 67 65 20 64  65 6d 6f 6e 20 70 68 6f  |bridge demon pho|
000008f0  6e 65 20 6e 75 6d 62 65  72 0a 23 2d 2d 2d 2d 2d  |ne number.#-----|
00000900  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000930  2d 2d 2d 2d 2d 2d 0a 3a  43 61 6d 62 0a 73 65 74  |------.:Camb.set|
00000940  20 6e 52 65 74 72 69 65  73 20 35 30 0a 73 65 74  | nRetries 50.set|
00000950  20 70 68 6f 6e 65 6e 75  6d 20 22 25 43 61 6d 62  | phonenum "%Camb|
00000960  72 69 64 67 65 22 0a 67  6f 74 6f 20 64 6f 64 69  |ridge".goto dodi|
00000970  61 6c 0a 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |al..#-----------|
00000980  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000009b0  0a 23 20 53 75 62 72 6f  75 74 69 6e 65 3a 20 43  |.# Subroutine: C|
000009c0  61 72 64 0a 23 20 63 61  6c 6c 73 20 43 61 72 64  |ard.# calls Card|
000009d0  69 66 66 20 64 65 6d 6f  6e 20 70 68 6f 6e 65 20  |iff demon phone |
000009e0  6e 75 6d 62 65 72 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |number.#--------|
000009f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a20  2d 2d 2d 0a 3a 43 61 72  64 0a 73 65 74 20 6e 52  |---.:Card.set nR|
00000a30  65 74 72 69 65 73 20 35  30 0a 73 65 74 20 70 68  |etries 50.set ph|
00000a40  6f 6e 65 6e 75 6d 20 22  25 43 61 72 64 69 66 66  |onenum "%Cardiff|
00000a50  22 0a 67 6f 74 6f 20 64  6f 64 69 61 6c 0a 0a 23  |".goto dodial..#|
00000a60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 23 20 53 75  |-----------.# Su|
00000aa0  62 72 6f 75 74 69 6e 65  3a 20 43 6f 76 65 0a 23  |broutine: Cove.#|
00000ab0  20 63 61 6c 6c 73 20 43  6f 76 65 6e 74 72 79 20  | calls Coventry |
00000ac0  64 65 6d 6f 6e 20 70 68  6f 6e 65 20 6e 75 6d 62  |demon phone numb|
00000ad0  65 72 0a 23 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |er.#------------|
00000ae0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000b00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00000b10  3a 43 6f 76 65 0a 73 65  74 20 6e 52 65 74 72 69  |:Cove.set nRetri|
00000b20  65 73 20 35 30 0a 73 65  74 20 70 68 6f 6e 65 6e  |es 50.set phonen|
00000b30  75 6d 20 22 25 43 6f 76  65 6e 74 72 79 22 0a 67  |um "%Coventry".g|
00000b40  6f 74 6f 20 64 6f 64 69  61 6c 0a 0a 23 2d 2d 2d  |oto dodial..#---|
00000b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000b80  2d 2d 2d 2d 2d 2d 2d 2d  0a 23 20 53 75 62 72 6f  |--------.# Subro|
00000b90  75 74 69 6e 65 3a 20 45  64 69 6e 0a 23 20 63 61  |utine: Edin.# ca|
00000ba0  6c 6c 73 20 65 64 69 6e  62 75 72 67 68 20 64 65  |lls edinburgh de|
00000bb0  6d 6f 6e 20 70 68 6f 6e  65 20 6e 75 6d 62 65 72  |mon phone number|
00000bc0  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00000bd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000bf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 45  |-------------.:E|
00000c00  64 69 6e 0a 73 65 74 20  6e 52 65 74 72 69 65 73  |din.set nRetries|
00000c10  20 35 30 0a 73 65 74 20  70 68 6f 6e 65 6e 75 6d  | 50.set phonenum|
00000c20  20 22 25 45 64 69 6e 62  75 72 67 68 22 0a 67 6f  | "%Edinburgh".go|
00000c30  74 6f 20 64 6f 64 69 61  6c 0a 0a 23 2d 2d 2d 2d  |to dodial..#----|
00000c40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c70  2d 2d 2d 2d 2d 2d 2d 0a  23 20 53 75 62 72 6f 75  |-------.# Subrou|
00000c80  74 69 6e 65 3a 20 47 6c  6f 75 0a 23 20 63 61 6c  |tine: Glou.# cal|
00000c90  6c 73 20 47 6c 6f 75 63  65 73 74 65 72 20 64 65  |ls Gloucester de|
00000ca0  6d 6f 6e 20 70 68 6f 6e  65 20 6e 75 6d 62 65 72  |mon phone number|
00000cb0  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00000cc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ce0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 47  |-------------.:G|
00000cf0  6c 6f 75 0a 73 65 74 20  6e 52 65 74 72 69 65 73  |lou.set nRetries|
00000d00  20 35 30 0a 73 65 74 20  70 68 6f 6e 65 6e 75 6d  | 50.set phonenum|
00000d10  20 22 25 47 6c 6f 75 63  65 73 74 65 72 22 0a 67  | "%Gloucester".g|
00000d20  6f 74 6f 20 64 6f 64 69  61 6c 0a 0a 23 2d 2d 2d  |oto dodial..#---|
00000d30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d60  2d 2d 2d 2d 2d 2d 2d 2d  0a 23 20 53 75 62 72 6f  |--------.# Subro|
00000d70  75 74 69 6e 65 3a 20 48  75 6c 6c 0a 23 20 63 61  |utine: Hull.# ca|
00000d80  6c 6c 73 20 48 75 6c 6c  20 64 65 6d 6f 6e 20 70  |lls Hull demon p|
00000d90  68 6f 6e 65 20 6e 75 6d  62 65 72 0a 23 2d 2d 2d  |hone number.#---|
00000da0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000dd0  2d 2d 2d 2d 2d 2d 2d 2d  0a 3a 48 75 6c 6c 0a 73  |--------.:Hull.s|
00000de0  65 74 20 6e 52 65 74 72  69 65 73 20 35 30 0a 73  |et nRetries 50.s|
00000df0  65 74 20 70 68 6f 6e 65  6e 75 6d 20 22 25 48 75  |et phonenum "%Hu|
00000e00  6c 6c 22 0a 67 6f 74 6f  20 64 6f 64 69 61 6c 0a  |ll".goto dodial.|
00000e10  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00000e20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000e40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 23 20  |-------------.# |
00000e50  53 75 62 72 6f 75 74 69  6e 65 3a 20 49 73 6c 65  |Subroutine: Isle|
00000e60  0a 23 20 63 61 6c 6c 73  20 49 73 6c 65 20 6f 66  |.# calls Isle of|
00000e70  20 57 69 67 68 74 20 64  65 6d 6f 6e 20 70 68 6f  | Wight demon pho|
00000e80  6e 65 20 6e 75 6d 62 65  72 0a 23 2d 2d 2d 2d 2d  |ne number.#-----|
00000e90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ec0  2d 2d 2d 2d 2d 2d 0a 3a  49 73 6c 65 0a 73 65 74  |------.:Isle.set|
00000ed0  20 6e 52 65 74 72 69 65  73 20 35 30 0a 73 65 74  | nRetries 50.set|
00000ee0  20 70 68 6f 6e 65 6e 75  6d 20 22 25 49 73 6c 65  | phonenum "%Isle|
00000ef0  4f 66 57 69 67 68 74 22  0a 67 6f 74 6f 20 64 6f  |OfWight".goto do|
00000f00  64 69 61 6c 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |dial..#---------|
00000f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000f40  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
00000f50  20 4c 65 65 64 0a 23 20  63 61 6c 6c 73 20 4c 65  | Leed.# calls Le|
00000f60  65 64 73 20 76 50 6f 50  0a 23 2d 2d 2d 2d 2d 2d  |eds vPoP.#------|
00000f70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000fa0  2d 2d 2d 2d 2d 0a 3a 4c  65 65 64 0a 73 65 74 20  |-----.:Leed.set |
00000fb0  6e 52 65 74 72 69 65 73  20 35 30 0a 73 65 74 20  |nRetries 50.set |
00000fc0  70 68 6f 6e 65 6e 75 6d  20 22 25 4c 65 65 64 73  |phonenum "%Leeds|
00000fd0  22 0a 67 6f 74 6f 20 64  6f 64 69 61 6c 0a 0a 23  |".goto dodial..#|
00000fe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 23 20 53 75  |-----------.# Su|
00001020  62 72 6f 75 74 69 6e 65  3a 20 4c 65 69 63 0a 23  |broutine: Leic.#|
00001030  20 63 61 6c 6c 73 20 4c  65 69 63 65 73 74 65 72  | calls Leicester|
00001040  20 64 65 6d 6f 6e 20 70  68 6f 6e 65 20 6e 75 6d  | demon phone num|
00001050  62 65 72 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ber.#-----------|
00001060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001090  0a 3a 4c 65 69 63 0a 73  65 74 20 6e 52 65 74 72  |.:Leic.set nRetr|
000010a0  69 65 73 20 35 30 0a 73  65 74 20 70 68 6f 6e 65  |ies 50.set phone|
000010b0  6e 75 6d 20 22 25 4c 65  69 63 65 73 74 65 72 22  |num "%Leicester"|
000010c0  0a 67 6f 74 6f 20 64 6f  64 69 61 6c 0a 0a 23 2d  |.goto dodial..#-|
000010d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001100  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
00001110  72 6f 75 74 69 6e 65 3a  20 4c 69 76 65 0a 23 20  |routine: Live.# |
00001120  63 61 6c 6c 73 20 4c 69  76 65 72 70 6f 6f 6c 20  |calls Liverpool |
00001130  64 65 6d 6f 6e 20 70 68  6f 6e 65 20 6e 75 6d 62  |demon phone numb|
00001140  65 72 0a 23 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |er.#------------|
00001150  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00001180  3a 4c 69 76 65 0a 73 65  74 20 6e 52 65 74 72 69  |:Live.set nRetri|
00001190  65 73 20 35 30 0a 73 65  74 20 70 68 6f 6e 65 6e  |es 50.set phonen|
000011a0  75 6d 20 22 25 4c 69 76  65 72 70 6f 6f 6c 22 0a  |um "%Liverpool".|
000011b0  67 6f 74 6f 20 64 6f 64  69 61 6c 0a 0a 23 2d 2d  |goto dodial..#--|
000011c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000011f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
00001200  6f 75 74 69 6e 65 3a 20  4c 6f 6e 64 0a 23 20 63  |outine: Lond.# c|
00001210  61 6c 6c 73 20 6c 6f 6e  64 6f 6e 20 64 65 6d 6f  |alls london demo|
00001220  6e 20 70 68 6f 6e 65 20  6e 75 6d 62 65 72 0a 23  |n phone number.#|
00001230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001260  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 3a 4c 6f 6e  |-----------.:Lon|
00001270  64 0a 73 65 74 20 6e 52  65 74 72 69 65 73 20 35  |d.set nRetries 5|
00001280  30 0a 73 65 74 20 70 68  6f 6e 65 6e 75 6d 20 22  |0.set phonenum "|
00001290  25 4c 6f 6e 64 6f 6e 22  0a 67 6f 74 6f 20 64 6f  |%London".goto do|
000012a0  64 69 61 6c 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |dial..#---------|
000012b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000012e0  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
000012f0  20 4c 75 74 6f 0a 23 20  63 61 6c 6c 73 20 6c 75  | Luto.# calls lu|
00001300  74 6f 6e 20 64 65 6d 6f  6e 20 70 68 6f 6e 65 20  |ton demon phone |
00001310  6e 75 6d 62 65 72 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |number.#--------|
00001320  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001350  2d 2d 2d 0a 3a 4c 75 74  6f 0a 73 65 74 20 6e 52  |---.:Luto.set nR|
00001360  65 74 72 69 65 73 20 35  30 0a 73 65 74 20 70 68  |etries 50.set ph|
00001370  6f 6e 65 6e 75 6d 20 22  25 4c 75 74 6f 6e 22 0a  |onenum "%Luton".|
00001380  67 6f 74 6f 20 64 6f 64  69 61 6c 0a 0a 23 2d 2d  |goto dodial..#--|
00001390  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000013c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
000013d0  6f 75 74 69 6e 65 3a 20  4d 61 6e 63 0a 23 20 63  |outine: Manc.# c|
000013e0  61 6c 6c 73 20 4d 61 6e  63 68 65 73 74 65 72 20  |alls Manchester |
000013f0  64 65 6d 6f 6e 20 70 68  6f 6e 65 20 6e 75 6d 62  |demon phone numb|
00001400  65 72 0a 23 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |er.#------------|
00001410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001430  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00001440  3a 4d 61 6e 63 0a 73 65  74 20 6e 52 65 74 72 69  |:Manc.set nRetri|
00001450  65 73 20 35 30 0a 73 65  74 20 70 68 6f 6e 65 6e  |es 50.set phonen|
00001460  75 6d 20 22 25 4d 61 6e  63 68 65 73 74 65 72 22  |um "%Manchester"|
00001470  0a 67 6f 74 6f 20 64 6f  64 69 61 6c 0a 0a 23 2d  |.goto dodial..#-|
00001480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000014b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
000014c0  72 6f 75 74 69 6e 65 3a  20 4e 65 77 63 0a 23 20  |routine: Newc.# |
000014d0  63 61 6c 6c 73 20 4e 65  77 63 61 73 74 6c 65 20  |calls Newcastle |
000014e0  64 65 6d 6f 6e 20 70 68  6f 6e 65 20 6e 75 6d 62  |demon phone numb|
000014f0  65 72 0a 23 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |er.#------------|
00001500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001520  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00001530  3a 4e 65 77 63 0a 73 65  74 20 6e 52 65 74 72 69  |:Newc.set nRetri|
00001540  65 73 20 35 30 0a 73 65  74 20 70 68 6f 6e 65 6e  |es 50.set phonen|
00001550  75 6d 20 22 25 4e 65 77  63 61 73 74 6c 65 22 0a  |um "%Newcastle".|
00001560  67 6f 74 6f 20 64 6f 64  69 61 6c 0a 0a 23 2d 2d  |goto dodial..#--|
00001570  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000015a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
000015b0  6f 75 74 69 6e 65 3a 20  4e 6f 74 74 0a 23 20 63  |outine: Nott.# c|
000015c0  61 6c 6c 73 20 4e 6f 74  74 69 6e 67 68 61 6d 20  |alls Nottingham |
000015d0  64 65 6d 6f 6e 20 70 68  6f 6e 65 20 6e 75 6d 62  |demon phone numb|
000015e0  65 72 0a 23 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |er.#------------|
000015f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001610  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00001620  3a 4e 6f 74 74 0a 73 65  74 20 6e 52 65 74 72 69  |:Nott.set nRetri|
00001630  65 73 20 35 30 0a 73 65  74 20 70 68 6f 6e 65 6e  |es 50.set phonen|
00001640  75 6d 20 22 25 4e 6f 74  74 69 6e 67 68 61 6d 22  |um "%Nottingham"|
00001650  0a 67 6f 74 6f 20 64 6f  64 69 61 6c 0a 0a 23 2d  |.goto dodial..#-|
00001660  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001690  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
000016a0  72 6f 75 74 69 6e 65 3a  20 50 72 65 73 0a 23 20  |routine: Pres.# |
000016b0  63 61 6c 6c 73 20 50 72  65 73 74 6f 6e 20 64 65  |calls Preston de|
000016c0  6d 6f 6e 20 70 68 6f 6e  65 20 6e 75 6d 62 65 72  |mon phone number|
000016d0  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
000016e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001700  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 50  |-------------.:P|
00001710  72 65 73 0a 73 65 74 20  6e 52 65 74 72 69 65 73  |res.set nRetries|
00001720  20 35 30 0a 73 65 74 20  70 68 6f 6e 65 6e 75 6d  | 50.set phonenum|
00001730  20 22 25 50 72 65 73 74  6f 6e 22 0a 67 6f 74 6f  | "%Preston".goto|
00001740  20 64 6f 64 69 61 6c 0a  0a 23 2d 2d 2d 2d 2d 2d  | dodial..#------|
00001750  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001780  2d 2d 2d 2d 2d 0a 23 20  53 75 62 72 6f 75 74 69  |-----.# Subrouti|
00001790  6e 65 3a 20 52 65 61 64  0a 23 20 63 61 6c 6c 73  |ne: Read.# calls|
000017a0  20 52 65 61 64 69 6e 67  20 64 65 6d 6f 6e 20 70  | Reading demon p|
000017b0  68 6f 6e 65 20 6e 75 6d  62 65 72 0a 23 2d 2d 2d  |hone number.#---|
000017c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000017f0  2d 2d 2d 2d 2d 2d 2d 2d  0a 3a 52 65 61 64 0a 73  |--------.:Read.s|
00001800  65 74 20 6e 52 65 74 72  69 65 73 20 35 30 0a 73  |et nRetries 50.s|
00001810  65 74 20 70 68 6f 6e 65  6e 75 6d 20 22 25 52 65  |et phonenum "%Re|
00001820  61 64 69 6e 67 22 0a 67  6f 74 6f 20 64 6f 64 69  |ading".goto dodi|
00001830  61 6c 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |al.             |
00001840  20 20 20 20 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |    .#----------|
00001850  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001880  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
00001890  53 61 66 66 0a 23 20 63  61 6c 6c 73 20 53 61 66  |Saff.# calls Saf|
000018a0  66 72 6f 6e 20 57 61 6c  64 65 6e 20 64 65 6d 6f  |fron Walden demo|
000018b0  6e 20 70 68 6f 6e 65 20  6e 75 6d 62 65 72 0a 23  |n phone number.#|
000018c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000018f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 3a 53 61 66  |-----------.:Saf|
00001900  66 0a 73 65 74 20 6e 52  65 74 72 69 65 73 20 35  |f.set nRetries 5|
00001910  30 0a 73 65 74 20 70 68  6f 6e 65 6e 75 6d 20 22  |0.set phonenum "|
00001920  25 53 61 66 66 72 6f 6e  22 0a 67 6f 74 6f 20 64  |%Saffron".goto d|
00001930  6f 64 69 61 6c 0a 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |odial..#--------|
00001940  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001970  2d 2d 2d 0a 23 20 53 75  62 72 6f 75 74 69 6e 65  |---.# Subroutine|
00001980  3a 20 53 68 65 66 0a 23  20 63 61 6c 6c 73 20 53  |: Shef.# calls S|
00001990  68 65 66 66 69 65 6c 64  20 64 65 6d 6f 6e 20 70  |heffield demon p|
000019a0  68 6f 6e 65 20 6e 75 6d  62 65 72 0a 23 2d 2d 2d  |hone number.#---|
000019b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000019e0  2d 2d 2d 2d 2d 2d 2d 2d  0a 3a 53 68 65 66 0a 73  |--------.:Shef.s|
000019f0  65 74 20 6e 52 65 74 72  69 65 73 20 35 30 0a 73  |et nRetries 50.s|
00001a00  65 74 20 70 68 6f 6e 65  6e 75 6d 20 22 25 53 68  |et phonenum "%Sh|
00001a10  65 66 66 69 65 6c 64 22  0a 67 6f 74 6f 20 64 6f  |effield".goto do|
00001a20  64 69 61 6c 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |dial..#---------|
00001a30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001a60  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
00001a70  20 53 75 6e 64 0a 23 20  63 61 6c 6c 73 20 53 75  | Sund.# calls Su|
00001a80  6e 64 65 72 6c 61 6e 64  20 64 65 6d 6f 6e 20 70  |nderland demon p|
00001a90  68 6f 6e 65 20 6e 75 6d  62 65 72 0a 23 2d 2d 2d  |hone number.#---|
00001aa0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001ad0  2d 2d 2d 2d 2d 2d 2d 2d  0a 3a 53 75 6e 64 0a 73  |--------.:Sund.s|
00001ae0  65 74 20 6e 52 65 74 72  69 65 73 20 35 30 0a 73  |et nRetries 50.s|
00001af0  65 74 20 70 68 6f 6e 65  6e 75 6d 20 22 25 53 75  |et phonenum "%Su|
00001b00  6e 64 65 72 6c 61 6e 64  22 0a 67 6f 74 6f 20 64  |nderland".goto d|
00001b10  6f 64 69 61 6c 0a 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |odial..#--------|
00001b20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001b50  2d 2d 2d 0a 23 20 53 75  62 72 6f 75 74 69 6e 65  |---.# Subroutine|
00001b60  3a 20 57 6f 6c 76 0a 23  20 63 61 6c 6c 73 20 57  |: Wolv.# calls W|
00001b70  6f 6c 76 65 72 68 61 6d  70 74 6f 6e 20 64 65 6d  |olverhampton dem|
00001b80  6f 6e 20 70 68 6f 6e 65  20 6e 75 6d 62 65 72 0a  |on phone number.|
00001b90  23 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |#---------------|
00001ba0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001bc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0a 3a 57 6f  |------------.:Wo|
00001bd0  6c 76 0a 73 65 74 20 6e  52 65 74 72 69 65 73 20  |lv.set nRetries |
00001be0  35 30 0a 73 65 74 20 70  68 6f 6e 65 6e 75 6d 20  |50.set phonenum |
00001bf0  22 25 57 6f 6c 76 65 72  68 61 6d 70 74 6f 6e 22  |"%Wolverhampton"|
00001c00  0a 67 6f 74 6f 20 64 6f  64 69 61 6c 0a 0a 23 2d  |.goto dodial..#-|
00001c10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
00001c50  72 6f 75 74 69 6e 65 3a  20 4c 69 73 74 0a 23 20  |routine: List.# |
00001c60  43 61 6c 6c 73 20 61 20  6c 69 73 74 20 6f 66 20  |Calls a list of |
00001c70  70 68 6f 6e 65 20 6e 75  6d 62 65 72 73 2c 20 73  |phone numbers, s|
00001c80  70 65 63 69 66 69 65 64  20 62 65 6c 6f 77 20 69  |pecified below i|
00001c90  6e 20 74 68 65 20 0a 23  20 76 61 72 69 61 62 6c  |n the .# variabl|
00001ca0  65 20 27 70 68 6f 6e 65  6e 75 6d 27 2e 20 20 52  |e 'phonenum'.  R|
00001cb0  65 74 75 72 6e 73 20 76  69 61 20 73 75 62 72 6f  |eturns via subro|
00001cc0  75 74 69 6e 65 20 64 6f  64 69 61 6c 2e 0a 23 20  |utine dodial..# |
00001cd0  6e 52 65 74 72 69 65 73  20 69 73 20 74 68 65 20  |nRetries is the |
00001ce0  6e 75 6d 62 65 72 20 6f  66 20 74 69 6d 65 73 20  |number of times |
00001cf0  53 6c 69 70 44 69 61 6c  20 72 65 74 72 69 65 73  |SlipDial retries|
00001d00  20 74 68 65 20 6e 75 6d  62 65 72 20 0a 23 20 69  | the number .# i|
00001d10  66 20 69 74 20 69 73 20  62 75 73 79 2e 0a 23 20  |f it is busy..# |
00001d20  54 68 65 20 6e 75 6d 62  65 72 20 6f 66 20 72 65  |The number of re|
00001d30  74 72 69 65 73 20 69 73  20 72 65 64 75 63 65 64  |tries is reduced|
00001d40  20 63 6f 6d 70 61 72 65  64 20 74 6f 20 74 68 65  | compared to the|
00001d50  20 6f 74 68 65 72 20 0a  23 20 6d 65 6e 75 20 69  | other .# menu i|
00001d60  74 65 6d 73 20 28 77 68  69 63 68 20 64 69 61 6c  |tems (which dial|
00001d70  20 6f 6e 6c 79 20 6f 6e  65 20 50 6f 50 29 20 61  | only one PoP) a|
00001d80  73 20 74 68 65 20 69 6e  74 65 6e 74 69 6f 6e 20  |s the intention |
00001d90  69 73 20 74 6f 20 0a 23  20 74 6f 20 77 6f 72 6b  |is to .# to work|
00001da0  20 74 68 72 6f 75 67 68  20 74 68 65 20 6c 69 73  | through the lis|
00001db0  74 20 6f 66 20 6e 75 6d  62 65 72 73 20 72 65 61  |t of numbers rea|
00001dc0  73 6f 6e 61 62 6c 79 20  71 75 69 63 6b 6c 79 2e  |sonably quickly.|
00001dd0  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00001de0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001e00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 4c  |-------------.:L|
00001e10  69 73 74 0a 73 65 74 20  6e 52 65 74 72 69 65 73  |ist.set nRetries|
00001e20  20 35 0a 73 65 74 20 70  68 6f 6e 65 6e 75 6d 20  | 5.set phonenum |
00001e30  22 25 4c 69 73 74 22 0a  67 6f 74 6f 20 64 6f 64  |"%List".goto dod|
00001e40  69 61 6c 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ial..#----------|
00001e50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001e80  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
00001e90  64 6f 64 69 61 6c 0a 23  20 4e 6f 74 65 3a 20 68  |dodial.# Note: h|
00001ea0  61 73 20 6d 75 6c 74 69  70 6c 65 20 65 6e 74 72  |as multiple entr|
00001eb0  79 20 70 6f 69 6e 74 73  20 66 72 6f 6d 20 22 67  |y points from "g|
00001ec0  6f 74 6f 22 20 73 74 61  74 65 6d 65 6e 74 73 0a  |oto" statements.|
00001ed0  23 20 61 62 6f 76 65 2e  20 20 48 6f 77 65 76 65  |# above.  Howeve|
00001ee0  72 20 69 74 20 66 69 6e  61 6c 6c 79 20 72 65 74  |r it finally ret|
00001ef0  75 72 6e 73 20 74 6f 20  74 68 65 20 6d 61 69 6e  |urns to the main|
00001f00  20 77 61 69 74 69 6e 67  0a 23 20 6c 6f 6f 70 2e  | waiting.# loop.|
00001f10  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00001f20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001f40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 64  |-------------.:d|
00001f50  6f 64 69 61 6c 20 20 20  20 20 20 20 20 20 20 20  |odial           |
00001f60  20 20 20 20 0a 0a 23 0a  23 20 6b 69 6c 6c 20 6e  |    ..#.# kill n|
00001f70  65 77 73 62 61 73 65 20  61 6e 64 20 74 74 66 6e  |ewsbase and ttfn|
00001f80  20 69 66 20 74 68 65 79  20 61 72 65 20 72 75 6e  | if they are run|
00001f90  6e 69 6e 67 2c 20 61 6e  64 20 77 65 72 65 20 73  |ning, and were s|
00001fa0  74 61 72 74 65 64 20 66  72 6f 6d 20 53 6c 69 70  |tarted from Slip|
00001fb0  44 69 61 6c 0a 23 0a 23  20 4e 6f 74 65 20 74 68  |Dial.#.# Note th|
00001fc0  61 74 20 69 66 20 74 68  65 79 20 77 65 72 65 6e  |at if they weren|
00001fd0  27 74 20 73 74 61 72 74  65 64 20 62 79 20 53 6c  |'t started by Sl|
00001fe0  69 70 44 69 61 6c 2c 20  53 6c 69 70 44 69 61 6c  |ipDial, SlipDial|
00001ff0  20 6b 6e 6f 77 73 20 6e  6f 74 68 69 6e 67 0a 23  | knows nothing.#|
00002000  20 61 62 6f 75 74 20 74  68 65 6d 20 61 6e 64 20  | about them and |
00002010  77 69 6c 6c 20 73 74 61  72 74 20 61 6e 6f 74 68  |will start anoth|
00002020  65 72 20 63 6f 70 79 20  65 76 65 6e 20 69 66 20  |er copy even if |
00002030  74 68 65 79 20 61 72 65  20 61 6c 72 65 61 64 79  |they are already|
00002040  20 72 75 6e 6e 69 6e 67  2e 0a 23 0a 74 61 73 6b  | running..#.task|
00002050  20 2f 6b 69 6c 6c 3d 22  4e 65 77 73 62 61 73 65  | /kill="Newsbase|
00002060  22 0a 74 61 73 6b 20 2f  6b 69 6c 6c 3d 22 54 54  |".task /kill="TT|
00002070  46 4e 22 0a 0a 23 20 43  6c 61 69 6d 20 74 68 65  |FN"..# Claim the|
00002080  20 64 65 76 69 63 65 20  64 72 69 76 65 72 0a 69  | device driver.i|
00002090  66 20 28 21 63 6c 61 69  6d 20 33 29 20 72 65 74  |f (!claim 3) ret|
000020a0  75 72 6e 20 30 0a 0a 23  20 69 6e 69 74 69 61 6c  |urn 0..# initial|
000020b0  69 73 65 20 6d 6f 64 65  6d 0a 69 6e 69 74 20 0a  |ise modem.init .|
000020c0  0a 23 20 64 69 61 6c 20  74 68 65 20 6e 75 6d 62  |.# dial the numb|
000020d0  65 72 2c 20 72 65 74 75  72 6e 20 74 6f 20 6d 61  |er, return to ma|
000020e0  69 6e 20 6d 65 6e 75 20  69 66 20 66 61 69 6c 65  |in menu if faile|
000020f0  64 2e 0a 72 65 74 72 79  20 25 6e 52 65 74 72 69  |d..retry %nRetri|
00002100  65 73 20 31 35 0a 69 66  20 28 21 64 69 61 6c 20  |es 15.if (!dial |
00002110  2f 6e 6f 64 69 61 6c 3d  31 35 20 2f 6e 6f 63 61  |/nodial=15 /noca|
00002120  72 3d 31 30 20 2f 62 75  73 79 3d 33 20 25 70 68  |r=10 /busy=3 %ph|
00002130  6f 6e 65 6e 75 6d 29 20  72 65 74 75 72 6e 20 30  |onenum) return 0|
00002140  0a 0a 23 0a 23 20 61 72  72 69 76 65 20 68 65 72  |..#.# arrive her|
00002150  65 20 69 66 20 64 69 61  6c 20 73 75 63 63 65 65  |e if dial succee|
00002160  64 65 64 0a 23 20 67 65  74 20 75 73 65 72 6e 61  |ded.# get userna|
00002170  6d 65 2f 70 61 73 73 77  6f 72 64 20 70 72 6f 6d  |me/password prom|
00002180  70 74 73 20 74 6f 20 61  75 74 68 65 6e 74 69 63  |pts to authentic|
00002190  61 74 65 20 73 65 6c 66  20 74 6f 20 73 65 72 76  |ate self to serv|
000021a0  65 72 2e 0a 23 20 61 66  74 65 72 20 65 61 63 68  |er..# after each|
000021b0  20 70 72 6f 6d 70 74 2c  20 72 65 74 75 72 6e 20  | prompt, return |
000021c0  74 6f 20 6d 61 69 6e 20  6d 65 6e 75 20 69 66 20  |to main menu if |
000021d0  66 61 69 6c 65 64 2e 0a  23 0a 0a 69 66 20 28 21  |failed..#..if (!|
000021e0  77 61 69 74 20 2f 64 65  6c 3d 32 30 20 6f 67 69  |wait /del=20 ogi|
000021f0  6e 3a 29 20 67 6f 74 6f  20 62 61 64 5f 66 69 6e  |n:) goto bad_fin|
00002200  69 73 68 0a 73 65 6e 64  20 25 6e 6f 64 65 6e 61  |ish.send %nodena|
00002210  6d 65 0a 0a 69 66 20 28  21 77 61 69 74 20 2f 64  |me..if (!wait /d|
00002220  65 6c 3d 32 30 20 77 6f  72 64 3a 29 20 67 6f 74  |el=20 word:) got|
00002230  6f 20 62 61 64 5f 66 69  6e 69 73 68 0a 73 65 6e  |o bad_finish.sen|
00002240  64 20 25 70 61 73 73 77  6f 72 64 0a 0a 69 66 20  |d %password..if |
00002250  28 21 77 61 69 74 20 2f  64 65 6c 3d 35 30 20 6f  |(!wait /del=50 o|
00002260  63 6f 6c 3a 29 20 67 6f  74 6f 20 62 61 64 5f 66  |col:) goto bad_f|
00002270  69 6e 69 73 68 0a 73 65  6e 64 20 25 70 72 6f 74  |inish.send %prot|
00002280  6f 63 6f 6c 0a 0a 6d 65  73 73 61 67 65 20 2f 63  |ocol..message /c|
00002290  61 70 74 75 72 65 3d 22  49 50 22 20 2f 65 6e 64  |apture="IP" /end|
000022a0  3d 22 48 45 4c 4c 4f 22  20 2f 6d 61 78 6c 69 6e  |="HELLO" /maxlin|
000022b0  65 73 3d 37 20 2f 63 65  6e 74 72 65 0a 69 70 67  |es=7 /centre.ipg|
000022c0  65 74 20 31 35 38 2e 0a  69 66 20 28 21 77 61 69  |et 158..if (!wai|
000022d0  74 20 2f 64 65 6c 3d 33  30 20 48 45 4c 4c 4f 29  |t /del=30 HELLO)|
000022e0  20 72 65 74 75 72 6e 20  30 0a 0a 70 61 75 73 65  | return 0..pause|
000022f0  20 35 0a 74 61 73 6b 20  2f 6e 61 6d 65 3d 22 54  | 5.task /name="T|
00002300  43 50 2f 49 50 22 20 3c  54 43 50 49 50 32 24 64  |CP/IP" <TCPIP2$d|
00002310  69 72 3e 2e 21 52 75 6e  0a 0a 23 20 77 61 74 63  |ir>.!Run..# watc|
00002320  68 20 6f 75 74 20 66 6f  72 20 63 61 72 72 69 65  |h out for carrie|
00002330  72 20 64 65 74 65 63 74  20 74 6f 20 67 6f 20 6c  |r detect to go l|
00002340  6f 77 0a 61 6c 61 72 6d  20 2f 64 63 64 20 22 67  |ow.alarm /dcd "g|
00002350  6f 74 6f 20 67 6f 6f 64  5f 66 69 6e 69 73 68 22  |oto good_finish"|
00002360  0a 3a 6c 6f 6f 70 32 0a  77 61 69 74 20 2f 65 76  |.:loop2.wait /ev|
00002370  65 6e 74 0a 67 6f 74 6f  20 6c 6f 6f 70 32 0a 0a  |ent.goto loop2..|
00002380  23 0a 23 20 43 61 6c 6c  20 68 61 73 20 62 65 65  |#.# Call has bee|
00002390  6e 20 66 69 6e 69 73 68  65 64 20 73 75 63 63 65  |n finished succe|
000023a0  73 73 66 75 6c 6c 79 2c  20 73 6f 20 72 65 6c 65  |ssfully, so rele|
000023b0  61 73 65 20 74 68 65 20  70 6f 72 74 0a 23 0a 3a  |ase the port.#.:|
000023c0  67 6f 6f 64 5f 66 69 6e  69 73 68 0a 74 61 73 6b  |good_finish.task|
000023d0  20 2f 6b 69 6c 6c 3d 22  54 43 50 2f 49 50 22 0a  | /kill="TCP/IP".|
000023e0  6d 65 73 73 61 67 65 20  2f 63 6c 6f 73 65 0a 6d  |message /close.m|
000023f0  65 73 73 61 67 65 20 22  43 61 6c 6c 20 66 69 6e  |essage "Call fin|
00002400  69 73 68 65 64 20 73 75  63 63 65 73 73 66 75 6c  |ished successful|
00002410  6c 79 22 20 2f 63 65 6e  74 72 65 0a 72 65 6c 65  |ly" /centre.rele|
00002420  61 73 65 0a 0a 23 20 6e  6f 77 20 70 61 75 73 65  |ase..# now pause|
00002430  20 66 6f 72 20 32 20 73  65 63 6f 6e 64 73 20 74  | for 2 seconds t|
00002440  6f 20 61 6c 6c 6f 77 20  52 49 53 43 20 4f 53 20  |o allow RISC OS |
00002450  74 6f 20 73 6f 72 74 20  6f 75 74 20 74 68 65 20  |to sort out the |
00002460  64 69 73 70 6c 61 79 2e  0a 70 61 75 73 65 20 32  |display..pause 2|
00002470  0a 0a 23 0a 23 20 43 6f  6d 70 75 74 65 20 74 68  |..#.# Compute th|
00002480  65 20 6e 65 77 73 20 74  72 61 6e 73 66 65 72 20  |e news transfer |
00002490  72 61 74 65 2c 20 61 6e  64 20 64 69 73 70 6c 61  |rate, and displa|
000024a0  79 20 69 74 2e 0a 23 0a  23 20 54 68 69 73 20 77  |y it..#.# This w|
000024b0  6f 75 6c 64 20 70 72 6f  62 61 62 6c 79 20 67 6f  |ould probably go|
000024c0  20 77 72 6f 6e 67 20 69  66 20 74 68 65 20 44 65  | wrong if the De|
000024d0  6d 4e 65 77 73 20 66 69  6c 65 20 73 74 69 6c 6c  |mNews file still|
000024e0  20 65 78 69 73 74 65 64  20 66 72 6f 6d 0a 23 20  | existed from.# |
000024f0  61 20 70 72 65 76 69 6f  75 73 20 63 61 6c 6c 2c  |a previous call,|
00002500  20 69 2e 65 2e 20 6f 6c  64 20 6e 65 77 73 20 68  | i.e. old news h|
00002510  61 64 6e 27 74 20 62 65  65 6e 20 74 72 61 6e 73  |adn't been trans|
00002520  66 65 72 72 65 64 20 6f  75 74 20 6f 66 20 74 68  |ferred out of th|
00002530  65 20 0a 23 20 4d 61 69  6c 24 44 69 72 20 64 69  |e .# Mail$Dir di|
00002540  72 65 63 74 6f 72 79 2e  20 20 54 68 69 73 20 73  |rectory.  This s|
00002550  68 6f 75 6c 64 6e 27 74  20 68 61 70 70 65 6e 20  |houldn't happen |
00002560  69 66 20 74 68 69 73 20  73 63 72 69 70 74 20 69  |if this script i|
00002570  73 20 61 6c 77 61 79 73  20 75 73 65 64 2e 0a 23  |s always used..#|
00002580  0a 0a 23 0a 23 20 43 68  65 63 6b 20 69 66 20 74  |..#.# Check if t|
00002590  68 65 20 6e 65 77 73 20  66 69 6c 65 20 65 78 69  |he news file exi|
000025a0  73 74 73 2e 0a 23 0a 23  20 4e 6f 74 65 3a 20 61  |sts..#.# Note: a|
000025b0  20 63 75 72 72 65 6e 74  6c 79 20 72 75 6e 6e 69  | currently runni|
000025c0  6e 67 20 63 6f 70 79 20  6f 66 20 4e 65 77 73 62  |ng copy of Newsb|
000025d0  61 73 65 20 6d 61 79 20  61 6c 72 65 61 64 79 20  |ase may already |
000025e0  68 61 76 65 20 73 74 6f  6c 65 6e 0a 23 20 74 68  |have stolen.# th|
000025f0  65 20 44 65 6d 4e 65 77  73 20 66 69 6c 65 20 62  |e DemNews file b|
00002600  65 66 6f 72 65 20 53 6c  69 70 44 69 61 6c 20 63  |efore SlipDial c|
00002610  61 6e 20 72 65 61 64 20  69 74 2e 20 20 48 65 6e  |an read it.  Hen|
00002620  63 65 20 74 68 65 20 6d  65 73 73 61 67 65 0a 23  |ce the message.#|
00002630  20 72 65 74 75 72 6e 65  64 20 69 66 20 74 68 65  | returned if the|
00002640  20 66 69 6c 65 20 64 6f  65 73 20 6e 6f 74 20 65  | file does not e|
00002650  78 69 73 74 20 68 61 73  20 62 65 65 6e 20 6d 61  |xist has been ma|
00002660  64 65 20 6d 6f 72 65 20  65 78 70 6c 69 63 69 74  |de more explicit|
00002670  2e 0a 23 0a 73 65 74 20  6e 65 77 73 45 78 69 73  |..#.set newsExis|
00002680  74 73 20 7b 3f 66 69 6c  65 20 3c 4d 61 69 6c 24  |ts {?file <Mail$|
00002690  44 69 72 3e 2e 66 6f 6c  64 65 72 2e 44 65 6d 4e  |Dir>.folder.DemN|
000026a0  65 77 73 7d 0a 63 61 73  65 20 25 6e 65 77 73 45  |ews}.case %newsE|
000026b0  78 69 73 74 73 0a 77 68  65 6e 20 31 20 32 20 33  |xists.when 1 2 3|
000026c0  3b 20 73 65 74 20 6e 72  61 74 65 20 7b 6e 65 77  |; set nrate {new|
000026d0  73 72 61 74 65 20 44 65  6d 7d 3b 20 6d 65 73 73  |srate Dem}; mess|
000026e0  61 67 65 20 22 6e 65 77  73 20 72 61 74 65 20 25  |age "news rate %|
000026f0  6e 72 61 74 65 20 63 70  73 22 20 2f 63 65 6e 74  |nrate cps" /cent|
00002700  72 65 0a 77 68 65 6e 20  30 3b 20 6d 65 73 73 61  |re.when 0; messa|
00002710  67 65 20 22 4e 6f 20 6e  65 77 73 20 64 6f 77 6e  |ge "No news down|
00002720  6c 6f 61 64 65 64 20 6f  72 20 6e 65 77 73 20 72  |loaded or news r|
00002730  61 74 65 20 63 6f 75 6c  64 20 6e 6f 74 20 62 65  |ate could not be|
00002740  20 63 6f 6d 70 75 74 65  64 2e 22 20 2f 63 65 6e  | computed." /cen|
00002750  74 72 65 0a 65 6e 64 63  61 73 65 0a 75 6e 73 65  |tre.endcase.unse|
00002760  74 20 6e 65 77 73 45 78  69 73 74 73 0a 75 6e 73  |t newsExists.uns|
00002770  65 74 20 6e 72 61 74 65  0a 0a 23 0a 23 20 53 74  |et nrate..#.# St|
00002780  61 72 74 20 75 70 20 54  54 46 4e 20 61 6e 64 20  |art up TTFN and |
00002790  4e 65 77 73 62 61 73 65  2e 0a 23 0a 23 20 49 66  |Newsbase..#.# If|
000027a0  20 4e 65 77 73 62 61 73  65 20 77 61 73 20 61 6c  | Newsbase was al|
000027b0  72 65 61 64 79 20 72 75  6e 6e 69 6e 67 2c 20 69  |ready running, i|
000027c0  74 20 69 73 20 70 6f 73  73 69 62 6c 65 20 74 68  |t is possible th|
000027d0  61 74 20 53 6c 69 70 44  69 61 6c 20 77 69 6c 6c  |at SlipDial will|
000027e0  0a 23 20 62 65 20 75 6e  61 62 6c 65 20 74 6f 20  |.# be unable to |
000027f0  77 6f 72 6b 20 6f 75 74  20 74 68 65 20 4e 65 77  |work out the New|
00002800  73 20 52 61 74 65 20 28  73 65 65 20 61 62 6f 76  |s Rate (see abov|
00002810  65 29 2c 20 62 65 63 61  75 73 65 20 74 68 65 0a  |e), because the.|
00002820  23 20 65 78 69 73 74 69  6e 67 20 63 6f 70 79 20  |# existing copy |
00002830  6f 66 20 4e 65 77 73 62  61 73 65 20 68 61 73 20  |of Newsbase has |
00002840  6d 6f 76 65 64 20 74 68  65 20 3c 4d 61 69 6c 24  |moved the <Mail$|
00002850  44 69 72 3e 2e 66 6f 6c  64 65 72 2e 44 65 6d 4e  |Dir>.folder.DemN|
00002860  65 77 73 0a 23 20 66 69  6c 65 20 62 65 66 6f 72  |ews.# file befor|
00002870  65 20 53 6c 69 70 44 69  61 6c 20 63 6f 75 6c 64  |e SlipDial could|
00002880  20 67 65 74 20 61 74 20  69 74 20 74 6f 20 63 6f  | get at it to co|
00002890  6d 70 75 74 65 20 74 68  65 20 6e 65 77 73 72 61  |mpute the newsra|
000028a0  74 65 2e 0a 23 0a 23 20  49 66 20 79 6f 75 20 70  |te..#.# If you p|
000028b0  72 65 66 65 72 20 74 68  61 74 20 53 6c 69 70 44  |refer that SlipD|
000028c0  69 61 6c 20 73 68 6f 75  6c 64 20 4e 4f 54 20 73  |ial should NOT s|
000028d0  74 61 72 74 20 6e 65 77  20 63 6f 70 69 65 73 20  |tart new copies |
000028e0  28 69 2e 65 2e 20 79 6f  75 0a 23 20 6e 6f 72 6d  |(i.e. you.# norm|
000028f0  61 6c 6c 79 20 68 61 76  65 20 74 68 65 6d 20 72  |ally have them r|
00002900  75 6e 6e 69 6e 67 20 61  6e 79 77 61 79 29 20 63  |unning anyway) c|
00002910  6f 6d 6d 65 6e 74 20 6f  75 74 20 74 68 65 20 6e  |omment out the n|
00002920  65 78 74 20 74 77 6f 0a  23 20 73 63 72 69 70 74  |ext two.# script|
00002930  20 6c 69 6e 65 73 20 77  69 74 68 20 61 20 27 23  | lines with a '#|
00002940  27 20 63 68 61 72 61 63  74 65 72 2e 0a 23 0a 23  |' character..#.#|
00002950  20 74 68 65 20 28 21 3f  74 61 73 6b 20 54 54 46  | the (!?task TTF|
00002960  4e 29 20 70 61 72 74 20  6d 65 61 6e 73 20 74 68  |N) part means th|
00002970  65 20 73 63 72 69 70 74  20 77 69 6c 6c 20 6f 6e  |e script will on|
00002980  6c 79 20 73 74 61 72 74  20 54 54 46 4e 2f 4e 65  |ly start TTFN/Ne|
00002990  77 73 62 61 73 65 0a 23  20 69 66 20 74 68 65 79  |wsbase.# if they|
000029a0  20 61 72 65 20 6e 6f 74  20 61 6c 72 65 61 64 79  | are not already|
000029b0  20 72 75 6e 6e 69 6e 67  20 28 61 64 64 65 64 20  | running (added |
000029c0  31 36 2d 66 65 62 2d 39  35 20 47 54 41 29 0a 23  |16-feb-95 GTA).#|
000029d0  0a 69 66 20 28 21 3f 74  61 73 6b 20 54 54 46 4e  |.if (!?task TTFN|
000029e0  29 20 74 61 73 6b 20 2f  6e 61 6d 65 3d 22 54 54  |) task /name="TT|
000029f0  46 4e 22 20 3c 54 54 46  4e 24 44 69 72 3e 2e 21  |FN" <TTFN$Dir>.!|
00002a00  52 75 6e 0a 69 66 20 28  21 3f 74 61 73 6b 20 4e  |Run.if (!?task N|
00002a10  65 77 73 42 61 73 65 29  20 74 61 73 6b 20 2f 6e  |ewsBase) task /n|
00002a20  61 6d 65 3d 22 4e 65 77  73 62 61 73 65 22 20 3c  |ame="Newsbase" <|
00002a30  4e 65 77 73 42 61 73 65  24 44 69 72 3e 2e 21 52  |NewsBase$Dir>.!R|
00002a40  75 6e 0a 72 65 74 75 72  6e 20 31 0a 0a 23 0a 23  |un.return 1..#.#|
00002a50  20 43 61 6c 6c 20 66 61  69 6c 65 64 20 69 6e 20  | Call failed in |
00002a60  73 6f 6d 65 20 77 61 79  0a 23 0a 3a 62 61 64 5f  |some way.#.:bad_|
00002a70  66 69 6e 69 73 68 0a 6d  65 73 73 61 67 65 20 22  |finish.message "|
00002a80  43 61 6c 6c 20 73 65 74  75 70 20 66 61 69 6c 65  |Call setup faile|
00002a90  64 22 20 2f 63 65 6e 74  72 65 0a 6d 65 73 73 61  |d" /centre.messa|
00002aa0  67 65 2f 63 6c 6f 73 65  0a 72 65 6c 65 61 73 65  |ge/close.release|
00002ab0  0a 72 65 69 6e 69 74 0a  72 65 74 75 72 6e 20 30  |.reinit.return 0|
00002ac0  0a 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..#-------------|
00002ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002af0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 23  |--------------.#|
00002b00  20 53 75 62 72 6f 75 74  69 6e 65 3a 20 4d 65 72  | Subroutine: Mer|
00002b10  63 75 72 79 0a 23 20 54  6f 67 67 6c 65 20 74 68  |cury.# Toggle th|
00002b20  65 20 6d 65 72 63 75 72  79 20 73 77 69 74 63 68  |e mercury switch|
00002b30  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00002b40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0a 3a 6d  |-------------.:m|
00002b70  65 72 63 75 72 79 0a 69  66 20 28 3f 65 71 20 25  |ercury.if (?eq %|
00002b80  6d 65 72 63 75 72 79 5f  70 69 6e 20 25 6d 65 72  |mercury_pin %mer|
00002b90  63 75 72 79 29 20 67 6f  74 6f 20 6d 65 72 63 75  |cury) goto mercu|
00002ba0  72 79 5f 6f 66 66 0a 23  20 53 65 74 20 74 68 65  |ry_off.# Set the|
00002bb0  20 4d 65 72 63 75 72 79  20 73 77 69 74 63 68 20  | Mercury switch |
00002bc0  74 6f 20 4f 4e 2e 0a 3a  6d 65 72 63 75 72 79 5f  |to ON..:mercury_|
00002bd0  6f 6e 0a 69 63 6f 6e 20  2f 69 64 3d 22 4d 65 72  |on.icon /id="Mer|
00002be0  63 75 72 79 22 20 2f 61  63 74 69 6f 6e 3d 22 63  |cury" /action="c|
00002bf0  61 6c 6c 20 6d 65 72 63  75 72 79 22 20 68 67 6f  |all mercury" hgo|
00002c00  6e 0a 73 65 74 20 6d 65  72 63 75 72 79 5f 70 69  |n.set mercury_pi|
00002c10  6e 20 25 6d 65 72 63 75  72 79 0a 67 6f 74 6f 20  |n %mercury.goto |
00002c20  6d 65 72 63 75 72 79 5f  72 65 74 75 72 6e 0a 23  |mercury_return.#|
00002c30  20 65 6c 73 65 20 53 65  74 20 74 68 65 20 4d 65  | else Set the Me|
00002c40  72 63 75 72 79 20 73 77  69 74 63 68 20 74 6f 20  |rcury switch to |
00002c50  4f 46 46 2e 0a 3a 6d 65  72 63 75 72 79 5f 6f 66  |OFF..:mercury_of|
00002c60  66 0a 69 63 6f 6e 20 2f  69 64 3d 22 4d 65 72 63  |f.icon /id="Merc|
00002c70  75 72 79 22 20 2f 61 63  74 69 6f 6e 3d 22 63 61  |ury" /action="ca|
00002c80  6c 6c 20 6d 65 72 63 75  72 79 22 20 68 67 6f 66  |ll mercury" hgof|
00002c90  66 0a 73 65 74 20 6d 65  72 63 75 72 79 5f 70 69  |f.set mercury_pi|
00002ca0  6e 20 22 22 0a 3a 6d 65  72 63 75 72 79 5f 72 65  |n "".:mercury_re|
00002cb0  74 75 72 6e 0a 23 20 72  65 6d 61 6b 65 20 74 68  |turn.# remake th|
00002cc0  65 20 6e 75 6d 62 65 72  73 20 77 69 74 68 20 6d  |e numbers with m|
00002cd0  65 72 63 75 72 79 5f 70  69 6e 20 73 6f 20 74 68  |ercury_pin so th|
00002ce0  61 74 20 74 68 65 20 70  72 65 66 69 78 20 69 73  |at the prefix is|
00002cf0  20 61 64 64 65 64 0a 63  61 6c 6c 20 6d 61 6b 65  | added.call make|
00002d00  4e 75 6d 62 65 72 73 0a  72 65 74 75 72 6e 20 31  |Numbers.return 1|
00002d10  0a 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..#-------------|
00002d20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002d40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 23  |--------------.#|
00002d50  20 53 75 62 72 6f 75 74  69 6e 65 3a 20 6d 61 6b  | Subroutine: mak|
00002d60  65 6d 65 6e 75 73 0a 23  20 44 65 66 69 6e 65 73  |emenus.# Defines|
00002d70  20 74 68 65 20 6d 65 6e  75 73 20 66 6f 72 20 64  | the menus for d|
00002d80  69 61 6c 6c 69 6e 67 20  65 74 63 2e 20 20 4e 6f  |ialling etc.  No|
00002d90  74 65 20 6d 65 6e 75 73  20 6d 75 73 74 20 62 65  |te menus must be|
00002da0  0a 23 20 6c 65 73 73 20  74 68 61 6e 20 32 35 35  |.# less than 255|
00002db0  20 63 68 61 72 61 63 74  65 72 73 2c 20 68 65 6e  | characters, hen|
00002dc0  63 65 20 74 68 65 20 73  71 75 61 73 68 65 64 20  |ce the squashed |
00002dd0  6e 61 6d 65 73 2e 20 20  41 6c 73 6f 0a 23 20 74  |names.  Also.# t|
00002de0  68 69 73 20 6d 65 6e 75  20 64 6f 65 73 20 6e 6f  |his menu does no|
00002df0  74 20 63 6f 6e 74 61 69  6e 20 61 6c 6c 20 70 6f  |t contain all po|
00002e00  73 73 69 62 6c 65 20 50  6f 70 73 2c 20 61 67 61  |ssible Pops, aga|
00002e10  69 6e 20 64 75 65 0a 23  20 74 6f 20 6c 65 6e 67  |in due.# to leng|
00002e20  74 68 20 72 65 73 74 72  69 63 74 69 6f 6e 73 2e  |th restrictions.|
00002e30  0a 23 20 45 78 61 6d 70  6c 65 73 3a 0a 23 20 6d  |.# Examples:.# m|
00002e40  65 6e 75 20 22 4c 65 65  64 73 3a 63 61 6c 6c 20  |enu "Leeds:call |
00002e50  4c 65 65 64 22 20 22 4c  6f 6e 64 6f 6e 3a 63 61  |Leed" "London:ca|
00002e60  6c 6c 20 4c 6f 6e 64 22  20 22 4d 61 6e 63 68 65  |ll Lond" "Manche|
00002e70  73 74 65 72 3a 63 61 6c  6c 20 4d 61 6e 63 22 20  |ster:call Manc" |
00002e80  22 4e 65 77 63 61 73 74  6c 65 3a 63 61 6c 6c 20  |"Newcastle:call |
00002e90  4e 65 77 63 22 20 22 4e  6f 74 74 69 6e 67 68 61  |Newc" "Nottingha|
00002ea0  6d 3a 63 61 6c 6c 20 4e  6f 74 74 22 20 22 50 72  |m:call Nott" "Pr|
00002eb0  65 73 74 6f 6e 3a 63 61  6c 6c 20 50 72 65 73 22  |eston:call Pres"|
00002ec0  20 22 53 68 65 66 66 69  65 6c 64 3a 63 61 6c 6c  | "Sheffield:call|
00002ed0  20 53 68 65 66 22 20 22  4c 69 73 74 3a 63 61 6c  | Shef" "List:cal|
00002ee0  6c 20 4c 69 73 74 22 0a  23 20 6d 65 6e 75 20 2f  |l List".# menu /|
00002ef0  69 63 6f 6e 3d 22 4c 6f  63 61 6c 22 20 20 20 22  |icon="Local"   "|
00002f00  4c 6f 63 61 6c 20 63 61  6c 6c 3a 63 61 6c 6c 20  |Local call:call |
00002f10  4c 65 65 64 22 20 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |Leed" .#--------|
00002f20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002f50  2d 2d 2d 0a 3a 6d 61 6b  65 6d 65 6e 75 73 0a 6d  |---.:makemenus.m|
00002f60  65 6e 75 20 7b 7b 73 6c  69 70 6d 65 6e 75 7d 7d  |enu {{slipmenu}}|
00002f70  0a 7b 7b 68 67 7d 7d 6d  65 6e 75 20 2f 69 63 6f  |.{{hg}}menu /ico|
00002f80  6e 3d 22 4d 65 72 63 75  72 79 22 20 22 4d 65 72  |n="Mercury" "Mer|
00002f90  63 75 72 79 20 4f 6e 3a  63 61 6c 6c 20 6d 65 72  |cury On:call mer|
00002fa0  63 75 72 79 5f 6f 6e 22  20 22 4d 65 72 63 75 72  |cury_on" "Mercur|
00002fb0  79 20 4f 66 66 3a 63 61  6c 6c 20 6d 65 72 63 75  |y Off:call mercu|
00002fc0  72 79 5f 6f 66 66 22 0a  6d 65 6e 75 20 2f 69 63  |ry_off".menu /ic|
00002fd0  6f 6e 3d 22 4c 6f 63 61  6c 22 20 20 20 22 7b 7b  |on="Local"   "{{|
00002fe0  6d 65 6e 75 6c 6f 63 61  6c 7d 7d 3a 63 61 6c 6c  |menulocal}}:call|
00002ff0  20 7b 7b 6c 6f 63 34 7d  7d 22 20 0a 72 65 74 75  | {{loc4}}" .retu|
00003000  72 6e 20 31 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |rn 1..#---------|
00003010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003040  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
00003050  20 73 65 74 73 65 72 69  61 6c 0a 23 20 53 65 74  | setserial.# Set|
00003060  20 53 65 72 69 61 6c 20  50 6f 72 74 2f 44 72 69  | Serial Port/Dri|
00003070  76 65 72 20 50 61 72 61  6d 65 74 65 72 73 0a 23  |ver Parameters.#|
00003080  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000030b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a 3a 73 65 74  |-----------.:set|
000030c0  73 65 72 69 61 6c 0a 64  72 69 76 65 72 20 7b 7b  |serial.driver {{|
000030d0  6d 6f 64 65 6d 7d 7d 0a  70 6f 72 74 20 25 77 70  |modem}}.port %wp|
000030e0  6f 72 74 20 25 70 72 74  6e 75 6d 0a 73 70 65 65  |ort %prtnum.spee|
000030f0  64 20 25 73 70 65 65 64  0a 73 65 74 20 70 72 6f  |d %speed.set pro|
00003100  74 6f 63 6f 6c 20 73 6c  69 70 0a 72 65 74 75 72  |tocol slip.retur|
00003110  6e 20 31 0a 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |n 1..#----------|
00003120  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003150  2d 0a 23 20 53 75 62 72  6f 75 74 69 6e 65 3a 20  |-.# Subroutine: |
00003160  73 65 74 75 70 31 0a 23  20 43 61 6c 6c 65 64 20  |setup1.# Called |
00003170  74 6f 20 73 65 74 75 70  20 64 65 66 61 75 6c 74  |to setup default|
00003180  73 20 69 66 20 6e 6f 20  63 6f 6e 66 69 67 75 72  |s if no configur|
00003190  61 74 69 6f 6e 20 66 69  6c 65 20 70 72 65 73 65  |ation file prese|
000031a0  6e 74 2e 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |nt..#-----------|
000031b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000031e0  0a 3a 73 65 74 75 70 31  0a 69 6e 70 75 74 2f 70  |.:setup1.input/p|
000031f0  72 6f 6d 70 74 3d 22 45  6e 74 65 72 20 53 65 72  |rompt="Enter Ser|
00003200  69 61 6c 20 42 6c 6f 63  6b 20 44 72 69 76 65 72  |ial Block Driver|
00003210  20 4e 61 6d 65 22 20 77  70 6f 72 74 0a 69 6e 70  | Name" wport.inp|
00003220  75 74 2f 70 72 6f 6d 70  74 3d 22 45 6e 74 65 72  |ut/prompt="Enter|
00003230  20 53 65 72 69 61 6c 20  50 6f 72 74 20 4e 75 6d  | Serial Port Num|
00003240  62 65 72 20 28 69 66 20  72 65 6c 65 76 61 6e 74  |ber (if relevant|
00003250  29 22 20 70 72 74 6e 75  6d 0a 69 6e 70 75 74 2f  |)" prtnum.input/|
00003260  70 72 6f 6d 70 74 3d 22  45 6e 74 65 72 20 59 6f  |prompt="Enter Yo|
00003270  75 72 20 4d 6f 64 65 6d  2d 3e 43 6f 6d 70 75 74  |ur Modem->Comput|
00003280  65 72 20 53 70 65 65 64  20 28 62 70 73 29 3a 22  |er Speed (bps):"|
00003290  20 73 70 65 65 64 0a 69  6e 70 75 74 2f 70 72 6f  | speed.input/pro|
000032a0  6d 70 74 3d 22 45 6e 74  65 72 20 59 6f 75 72 20  |mpt="Enter Your |
000032b0  44 65 6d 6f 6e 20 4e 6f  64 65 6e 61 6d 65 3a 22  |Demon Nodename:"|
000032c0  20 6e 6f 64 65 6e 61 6d  65 0a 69 6e 70 75 74 2f  | nodename.input/|
000032d0  70 72 6f 6d 70 74 3d 22  45 6e 74 65 72 20 59 6f  |prompt="Enter Yo|
000032e0  75 72 20 50 61 73 73 77  6f 72 64 3a 22 20 70 61  |ur Password:" pa|
000032f0  73 73 77 6f 72 64 0a 69  6e 70 75 74 2f 70 72 6f  |ssword.input/pro|
00003300  6d 70 74 3d 22 45 6e 74  65 72 20 59 6f 75 72 20  |mpt="Enter Your |
00003310  4d 65 72 63 75 72 79 20  50 49 4e 3a 22 20 6d 65  |Mercury PIN:" me|
00003320  72 63 75 72 79 0a 6f 70  65 6e 2f 69 64 3d 63 6f  |rcury.open/id=co|
00003330  6e 66 2f 77 72 69 74 65  20 25 66 69 6c 65 6e 61  |nf/write %filena|
00003340  6d 65 0a 77 72 69 74 65  2f 69 64 3d 63 6f 6e 66  |me.write/id=conf|
00003350  20 25 77 70 6f 72 74 0a  77 72 69 74 65 2f 69 64  | %wport.write/id|
00003360  3d 63 6f 6e 66 20 25 70  72 74 6e 75 6d 0a 77 72  |=conf %prtnum.wr|
00003370  69 74 65 2f 69 64 3d 63  6f 6e 66 20 25 73 70 65  |ite/id=conf %spe|
00003380  65 64 0a 77 72 69 74 65  2f 69 64 3d 63 6f 6e 66  |ed.write/id=conf|
00003390  20 25 6e 6f 64 65 6e 61  6d 65 0a 77 72 69 74 65  | %nodename.write|
000033a0  2f 69 64 3d 63 6f 6e 66  20 25 70 61 73 73 77 6f  |/id=conf %passwo|
000033b0  72 64 0a 77 72 69 74 65  2f 69 64 3d 63 6f 6e 66  |rd.write/id=conf|
000033c0  20 25 6d 65 72 63 75 72  79 0a 63 6c 6f 73 65 2f  | %mercury.close/|
000033d0  69 64 3d 63 6f 6e 66 0a  72 65 74 75 72 6e 20 31  |id=conf.return 1|
000033e0  0a 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..#-------------|
000033f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 23  |--------------.#|
00003420  20 53 75 62 72 6f 75 74  69 6e 65 3a 20 63 6f 6e  | Subroutine: con|
00003430  66 69 67 75 72 65 0a 23  20 54 68 69 73 20 6c 6f  |figure.# This lo|
00003440  61 64 73 20 70 61 73 73  77 6f 72 64 20 63 6f 6e  |ads password con|
00003450  66 69 67 20 66 72 6f 6d  20 66 69 6c 65 20 6f 72  |fig from file or|
00003460  20 70 72 6f 6d 70 74 73  20 66 6f 72 20 64 61 74  | prompts for dat|
00003470  61 20 0a 23 20 74 6f 20  63 72 65 61 74 65 20 66  |a .# to create f|
00003480  69 6c 65 2e 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ile..#----------|
00003490  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000034c0  2d 0a 3a 63 6f 6e 66 69  67 75 72 65 0a 73 65 74  |-.:configure.set|
000034d0  20 66 69 6c 65 6e 61 6d  65 20 7b 3f 66 69 6c 65  | filename {?file|
000034e0  2f 65 78 70 61 6e 64 20  73 6c 69 70 64 69 61 6c  |/expand slipdial|
000034f0  3a 64 65 6d 6f 6e 63 6f  6e 66 67 7d 0a 69 66 20  |:demonconfg}.if |
00003500  28 21 3f 66 69 6c 65 20  25 66 69 6c 65 6e 61 6d  |(!?file %filenam|
00003510  65 29 20 63 61 6c 6c 20  73 65 74 75 70 31 0a 6f  |e) call setup1.o|
00003520  70 65 6e 2f 72 65 61 64  2f 69 64 3d 63 6f 6e 66  |pen/read/id=conf|
00003530  2f 65 72 72 6f 72 3d 22  72 65 74 75 72 6e 22 20  |/error="return" |
00003540  25 66 69 6c 65 6e 61 6d  65 0a 72 65 61 64 2f 69  |%filename.read/i|
00003550  64 3d 63 6f 6e 66 2f 65  6f 66 3d 22 67 6f 74 6f  |d=conf/eof="goto|
00003560  20 63 6c 6f 73 65 63 6f  6e 66 22 20 77 70 6f 72  | closeconf" wpor|
00003570  74 0a 72 65 61 64 2f 69  64 3d 63 6f 6e 66 2f 65  |t.read/id=conf/e|
00003580  6f 66 3d 22 67 6f 74 6f  20 63 6c 6f 73 65 63 6f  |of="goto closeco|
00003590  6e 66 22 20 70 72 74 6e  75 6d 0a 72 65 61 64 2f  |nf" prtnum.read/|
000035a0  69 64 3d 63 6f 6e 66 2f  65 6f 66 3d 22 67 6f 74  |id=conf/eof="got|
000035b0  6f 20 63 6c 6f 73 65 63  6f 6e 66 22 20 73 70 65  |o closeconf" spe|
000035c0  65 64 0a 72 65 61 64 2f  69 64 3d 63 6f 6e 66 2f  |ed.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 6e 6f 64  65 6e 61 6d 65 0a 72 65  |onf" nodename.re|
000035f0  61 64 2f 69 64 3d 63 6f  6e 66 2f 65 6f 66 3d 22  |ad/id=conf/eof="|
00003600  67 6f 74 6f 20 63 6c 6f  73 65 63 6f 6e 66 22 20  |goto closeconf" |
00003610  70 61 73 73 77 6f 72 64  0a 72 65 61 64 2f 69 64  |password.read/id|
00003620  3d 63 6f 6e 66 2f 65 6f  66 3d 22 67 6f 74 6f 20  |=conf/eof="goto |
00003630  63 6c 6f 73 65 63 6f 6e  66 22 20 6d 65 72 63 75  |closeconf" mercu|
00003640  72 79 0a 3a 63 6c 6f 73  65 63 6f 6e 66 0a 63 6c  |ry.:closeconf.cl|
00003650  6f 73 65 2f 69 64 3d 63  6f 6e 66 0a 72 65 74 75  |ose/id=conf.retu|
00003660  72 6e 0a 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |rn..#-----------|
00003670  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000036a0  0a 23 20 53 75 62 72 6f  75 74 69 6e 65 3a 20 6d  |.# Subroutine: m|
000036b0  61 6b 65 4e 75 6d 62 65  72 73 0a 23 20 4d 61 6b  |akeNumbers.# Mak|
000036c0  65 20 61 20 73 65 74 20  6f 66 20 76 61 72 69 61  |e a set of varia|
000036d0  62 6c 65 73 20 74 6f 20  68 6f 6c 64 20 74 68 65  |bles to hold the|
000036e0  20 70 68 6f 6e 65 20 6e  75 6d 62 65 72 73 2e 0a  | phone numbers..|
000036f0  23 20 42 79 20 64 65 66  61 75 6c 74 2c 20 74 68  |# By default, th|
00003700  69 73 20 69 73 20 73 65  74 20 75 70 20 66 6f 72  |is is set up for|
00003710  20 4d 65 72 63 75 72 79  20 75 73 65 72 73 20 6e  | Mercury users n|
00003720  65 61 72 20 74 68 65 20  49 73 6c 65 0a 23 20 6f  |ear the Isle.# o|
00003730  66 20 57 69 67 68 74 2e  20 59 6f 75 20 73 68 6f  |f Wight. You sho|
00003740  75 6c 64 20 6f 66 20 63  6f 75 72 73 65 20 65 64  |uld of course ed|
00003750  69 74 20 74 68 69 73 20  69 66 20 79 6f 75 20 61  |it this if you a|
00003760  72 65 20 6c 6f 63 61 6c  0a 23 20 74 6f 20 73 6f  |re local.# to so|
00003770  6d 65 77 68 65 72 65 20  65 6c 73 65 2e 0a 23 2d  |mewhere else..#-|
00003780  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000037b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 3a 6d 61 6b 65  |----------.:make|
000037c0  4e 75 6d 62 65 72 73 0a  73 65 74 20 42 69 72 6d  |Numbers.set Birm|
000037d0  69 6e 67 68 61 6d 20 22  25 6d 65 72 63 75 72 79  |ingham "%mercury|
000037e0  5f 70 69 6e 5c 30 31 32  31 32 37 35 34 38 34 38  |_pin\01212754848|
000037f0  22 0a 73 65 74 20 42 72  61 64 66 6f 72 64 20 20  |".set Bradford  |
00003800  20 22 25 6d 65 72 63 75  72 79 5f 70 69 6e 5c 30  | "%mercury_pin\0|
00003810  31 32 37 34 37 35 35 30  36 36 22 0a 73 65 74 20  |1274755066".set |
00003820  42 72 69 73 74 6f 6c 20  20 20 20 22 25 6d 65 72  |Bristol    "%mer|
00003830  63 75 72 79 5f 70 69 6e  5c 30 31 31 37 39 38 31  |cury_pin\0117981|
00003840  34 38 34 38 22 0a 73 65  74 20 43 61 6d 62 72 69  |4848".set Cambri|
00003850  64 67 65 20 20 22 25 6d  65 72 63 75 72 79 5f 70  |dge  "%mercury_p|
00003860  69 6e 5c 30 31 32 32 33  35 37 36 30 31 30 22 0a  |in\01223576010".|
00003870  73 65 74 20 43 61 72 64  69 66 66 20 20 20 20 22  |set Cardiff    "|
00003880  25 6d 65 72 63 75 72 79  5f 70 69 6e 5c 30 31 32  |%mercury_pin\012|
00003890  32 32 32 37 34 38 34 38  22 0a 73 65 74 20 43 6f  |22274848".set Co|
000038a0  76 65 6e 74 72 79 20 20  20 22 25 6d 65 72 63 75  |ventry   "%mercu|
000038b0  72 79 5f 70 69 6e 5c 30  31 32 30 33 32 38 34 38  |ry_pin\012032848|
000038c0  34 38 22 0a 73 65 74 20  45 64 69 6e 62 75 72 67  |48".set Edinburg|
000038d0  68 20 20 22 25 6d 65 72  63 75 72 79 5f 70 69 6e  |h  "%mercury_pin|
000038e0  5c 30 31 33 31 35 35 32  38 38 38 33 22 0a 73 65  |\01315528883".se|
000038f0  74 20 47 6c 6f 75 63 65  73 74 65 72 20 22 25 6d  |t Gloucester "%m|
00003900  65 72 63 75 72 79 5f 70  69 6e 5c 30 31 34 35 32  |ercury_pin\01452|
00003910  33 35 34 38 34 38 22 0a  73 65 74 20 48 75 6c 6c  |354848".set Hull|
00003920  20 20 20 20 20 20 20 22  25 6d 65 72 63 75 72 79  |       "%mercury|
00003930  5f 70 69 6e 5c 30 31 34  38 32 34 39 35 35 38 30  |_pin\01482495580|
00003940  22 0a 73 65 74 20 49 73  6c 65 4f 66 57 69 67 68  |".set IsleOfWigh|
00003950  74 20 22 25 6d 65 72 63  75 72 79 5f 70 69 6e 5c  |t "%mercury_pin\|
00003960  30 31 39 38 33 35 32 33  33 30 36 22 0a 73 65 74  |01983523306".set|
00003970  20 4c 65 65 64 73 20 20  20 20 20 20 22 25 6d 65  | Leeds      "%me|
00003980  72 63 75 72 79 5f 70 69  6e 5c 30 31 31 33 32 39  |rcury_pin\011329|
00003990  38 34 38 34 38 22 0a 73  65 74 20 4c 65 69 63 65  |84848".set Leice|
000039a0  73 74 65 72 20 20 22 25  6d 65 72 63 75 72 79 5f  |ster  "%mercury_|
000039b0  70 69 6e 5c 30 31 31 36  32 39 30 34 38 34 38 22  |pin\01162904848"|
000039c0  0a 73 65 74 20 4c 69 76  65 72 70 6f 6f 6c 20 20  |.set Liverpool  |
000039d0  22 25 6d 65 72 63 75 72  79 5f 70 69 6e 5c 30 31  |"%mercury_pin\01|
000039e0  35 31 32 31 30 34 38 34  38 22 0a 73 65 74 20 4c  |512104848".set L|
000039f0  6f 6e 64 6f 6e 20 20 20  20 20 22 25 6d 65 72 63  |ondon     "%merc|
00003a00  75 72 79 5f 70 69 6e 5c  30 31 38 31 33 33 38 34  |ury_pin\01813384|
00003a10  38 34 38 22 0a 73 65 74  20 4c 75 74 6f 6e 20 20  |848".set Luton  |
00003a20  20 20 20 20 22 25 6d 65  72 63 75 72 79 5f 70 69  |    "%mercury_pi|
00003a30  6e 5c 30 31 35 38 32 36  34 34 38 34 38 22 0a 73  |n\01582644848".s|
00003a40  65 74 20 4d 61 6e 63 68  65 73 74 65 72 20 22 25  |et Manchester "%|
00003a50  6d 65 72 63 75 72 79 5f  70 69 6e 5c 30 31 36 31  |mercury_pin\0161|
00003a60  33 38 35 34 38 34 38 22  0a 73 65 74 20 4e 65 77  |3854848".set New|
00003a70  63 61 73 74 6c 65 20 20  22 25 6d 65 72 63 75 72  |castle  "%mercur|
00003a80  79 5f 70 69 6e 5c 30 31  39 31 32 34 37 34 38 34  |y_pin\0191247484|
00003a90  38 22 0a 73 65 74 20 4e  6f 74 74 69 6e 67 68 61  |8".set Nottingha|
00003aa0  6d 20 22 25 6d 65 72 63  75 72 79 5f 70 69 6e 5c  |m "%mercury_pin\|
00003ab0  30 31 31 35 39 35 34 34  38 34 38 22 0a 73 65 74  |01159544848".set|
00003ac0  20 50 72 65 73 74 6f 6e  20 20 20 20 22 25 6d 65  | Preston    "%me|
00003ad0  72 63 75 72 79 5f 70 69  6e 5c 30 31 37 37 32 34  |rcury_pin\017724|
00003ae0  38 34 38 34 38 22 0a 73  65 74 20 52 65 61 64 69  |84848".set Readi|
00003af0  6e 67 20 20 20 20 22 25  6d 65 72 63 75 72 79 5f  |ng    "%mercury_|
00003b00  70 69 6e 5c 30 31 37 33  34 32 38 34 38 34 38 22  |pin\01734284848"|
00003b10  0a 73 65 74 20 53 61 66  66 72 6f 6e 20 20 20 20  |.set Saffron    |
00003b20  22 25 6d 65 72 63 75 72  79 5f 70 69 6e 5c 30 31  |"%mercury_pin\01|
00003b30  37 39 39 35 30 36 30 31  30 22 0a 73 65 74 20 53  |799506010".set S|
00003b40  68 65 66 66 69 65 6c 64  20 20 22 25 6d 65 72 63  |heffield  "%merc|
00003b50  75 72 79 5f 70 69 6e 5c  30 31 31 34 32 33 38 34  |ury_pin\01142384|
00003b60  38 34 38 22 0a 73 65 74  20 53 75 6e 64 65 72 6c  |848".set Sunderl|
00003b70  61 6e 64 20 22 25 6d 65  72 63 75 72 79 5f 70 69  |and "%mercury_pi|
00003b80  6e 5c 30 31 39 31 35 32  32 35 30 30 35 22 0a 73  |n\01915225005".s|
00003b90  65 74 20 57 6f 6c 76 65  72 68 61 6d 70 74 6f 6e  |et Wolverhampton|
00003ba0  20 22 25 6d 65 72 63 75  72 79 5f 70 69 6e 5c 30  | "%mercury_pin\0|
00003bb0  31 39 30 32 34 36 34 38  34 38 22 0a 23 0a 23 20  |1902464848".#.# |
00003bc0  48 61 63 6b 20 74 6f 20  72 65 6d 6f 76 65 20 6d  |Hack to remove m|
00003bd0  65 72 63 75 72 79 20 70  69 6e 20 66 72 6f 6d 20  |ercury pin from |
00003be0  6c 6f 63 61 6c 20 6e 75  6d 62 65 72 0a 69 66 20  |local number.if |
00003bf0  28 3f 65 71 20 22 25 7b  7b 6c 6f 63 61 6c 7d 7d  |(?eq "%{{local}}|
00003c00  22 20 22 25 6d 65 72 63  75 72 79 5f 70 69 6e 5c  |" "%mercury_pin\|
00003c10  25 6c 6f 63 61 6c 22 29  20 73 65 74 20 7b 7b 6c  |%local") set {{l|
00003c20  6f 63 61 6c 7d 7d 20 22  25 6c 6f 63 61 6c 22 0a  |ocal}} "%local".|
00003c30  23 0a 23 45 64 69 74 20  74 68 65 20 66 6f 6c 6c  |#.#Edit the foll|
00003c40  6f 77 69 6e 67 20 6c 69  6e 65 20 74 6f 20 63 75  |owing line to cu|
00003c50  73 74 6f 6d 69 73 65 20  74 68 65 20 6c 69 73 74  |stomise the list|
00003c60  20 6f 66 20 6e 75 6d 62  65 72 73 20 77 68 69 63  | of numbers whic|
00003c70  68 0a 23 20 73 6c 69 70  64 69 61 6c 20 64 69 61  |h.# slipdial dia|
00003c80  6c 73 20 69 6e 20 73 65  71 75 65 6e 63 65 2e 20  |ls in sequence. |
00003c90  20 4e 6f 74 65 20 74 68  61 74 20 74 68 65 20 6c  | Note that the l|
00003ca0  69 73 74 20 69 73 20 6d  61 64 65 20 75 70 0a 23  |ist is made up.#|
00003cb0  20 6e 61 6d 65 73 20 64  65 66 69 6e 65 64 20 61  | names defined a|
00003cc0  62 6f 76 65 2c 20 70 72  65 63 65 64 65 64 20 62  |bove, preceded b|
00003cd0  79 20 61 20 27 25 27 2e  20 20 4e 6f 74 65 20 74  |y a '%'.  Note t|
00003ce0  68 61 74 20 74 68 65 20  73 70 61 63 65 73 0a 23  |hat the spaces.#|
00003cf0  20 62 65 74 77 65 65 6e  20 74 68 65 20 6e 61 6d  | between the nam|
00003d00  65 73 20 69 6e 20 74 68  65 20 4c 69 73 74 20 6d  |es in the List m|
00003d10  75 73 74 20 62 65 20 69  6e 63 6c 75 64 65 64 2e  |ust be included.|
00003d20  0a 23 0a 23 20 45 78 61  6d 70 6c 65 20 2d 20 74  |.#.# Example - t|
00003d30  6f 20 63 61 6c 6c 20 68  75 6c 6c 2c 20 62 72 61  |o call hull, bra|
00003d40  64 66 6f 72 64 2c 20 73  61 66 66 72 6f 6e 20 77  |dford, saffron w|
00003d50  61 6c 64 65 6e 20 69 6e  20 74 68 61 74 20 6f 72  |alden in that or|
00003d60  64 65 72 0a 23 20 79 6f  75 20 77 6f 75 6c 64 20  |der.# you would |
00003d70  75 73 65 0a 23 0a 23 20  73 65 74 20 4c 69 73 74  |use.#.# set List|
00003d80  20 22 25 48 75 6c 6c 20  25 42 72 61 64 66 6f 72  | "%Hull %Bradfor|
00003d90  64 20 25 53 61 66 66 72  6f 6e 22 0a 23 0a 23 20  |d %Saffron".#.# |
00003da0  4e 6f 74 65 20 74 68 61  74 20 74 68 65 20 6e 75  |Note that the nu|
00003db0  6d 62 65 72 20 6f 66 20  72 65 74 72 69 65 73 20  |mber of retries |
00003dc0  6d 61 64 65 20 61 74 20  65 61 63 68 20 6e 75 6d  |made at each num|
00003dd0  62 65 72 20 69 73 0a 23  20 73 65 74 20 69 6e 20  |ber is.# set in |
00003de0  74 68 65 20 73 75 62 72  6f 75 74 69 6e 65 20 3a  |the subroutine :|
00003df0  4c 69 73 74 0a 23 0a 73  65 74 20 4c 69 73 74 20  |List.#.set List |
00003e00  22 25 4c 65 65 64 73 20  25 50 72 65 73 74 6f 6e  |"%Leeds %Preston|
00003e10  20 25 4d 61 6e 63 68 65  73 74 65 72 22 0a 72 65  | %Manchester".re|
00003e20  74 75 72 6e 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |turn..#---------|
00003e30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003e60  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
00003e70  20 69 6e 69 74 4d 61 69  6e 0a 23 20 47 65 6e 65  | initMain.# Gene|
00003e80  72 61 6c 20 69 6e 69 74  69 61 6c 69 73 61 74 69  |ral initialisati|
00003e90  6f 6e 2e 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |on..#-----------|
00003ea0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003ed0  0a 3a 69 6e 69 74 4d 61  69 6e 20 20 20 20 20 20  |.:initMain      |
00003ee0  20 20 20 20 20 20 20 20  20 20 0a 23 20 72 65 6d  |          .# rem|
00003ef0  6f 76 65 20 63 6f 6d 6d  65 6e 74 20 66 72 6f 6d  |ove comment from|
00003f00  20 66 6f 6c 6c 6f 77 69  6e 67 20 6c 69 6e 65 20  | following line |
00003f10  66 6f 72 20 74 72 61 63  69 6e 67 0a 23 74 72 61  |for tracing.#tra|
00003f20  63 65 20 22 53 6c 69 70  44 69 61 6c 3a 6c 6f 67  |ce "SlipDial:log|
00003f30  6f 75 74 70 75 74 22 0a  64 65 62 75 67 20 33 0a  |output".debug 3.|
00003f40  69 63 6f 6e 20 2f 66 69  6c 65 3d 22 53 6c 69 70  |icon /file="Slip|
00003f50  44 69 61 6c 3a 44 65 6d  6f 6e 53 70 72 22 0a 73  |Dial:DemonSpr".s|
00003f60  65 74 20 6d 65 72 63 75  72 79 5f 70 69 6e 20 22  |et mercury_pin "|
00003f70  22 0a 23 20 69 63 6f 6e  20 2f 69 64 3d 22 4c 6f  |".# icon /id="Lo|
00003f80  63 61 6c 22 20 2f 61 63  74 69 6f 6e 3d 22 63 61  |cal" /action="ca|
00003f90  6c 6c 20 4c 65 65 64 22  20 6c 6f 63 0a 69 63 6f  |ll Leed" loc.ico|
00003fa0  6e 20 2f 69 64 3d 22 4c  6f 63 61 6c 22 20 2f 61  |n /id="Local" /a|
00003fb0  63 74 69 6f 6e 3d 22 63  61 6c 6c 20 7b 7b 6c 6f  |ction="call {{lo|
00003fc0  63 34 7d 7d 22 20 6c 6f  63 0a 72 65 74 75 72 6e  |c4}}" loc.return|
00003fd0  20 31 0a 0a 23 20 52 65  76 69 73 69 6f 6e 20 68  | 1..# Revision h|
00003fe0  69 73 74 6f 72 79 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |istory.#--------|
00003ff0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 39 35 30 32  |---------.# 9502|
00004000  31 36 20 47 54 41 20 20  20 20 20 4d 6f 64 69 66  |16 GTA     Modif|
00004010  69 65 64 20 63 6f 6d 6d  61 6e 64 73 20 77 68 69  |ied commands whi|
00004020  63 68 20 73 74 61 72 74  20 54 54 46 4e 20 26 20  |ch start TTFN & |
00004030  4e 65 77 73 62 61 73 65  20 73 6f 20 74 68 61 74  |Newsbase so that|
00004040  0a 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.#              |
00004050  20 20 74 68 65 79 20 61  72 65 20 6f 6e 6c 79 20  |  they are only |
00004060  73 74 61 72 74 65 64 20  69 66 20 6e 6f 74 20 61  |started if not a|
00004070  6c 72 65 61 64 79 20 72  75 6e 6e 69 6e 67 2e 20  |lready running. |
00004080  44 65 63 6f 6d 6d 65 6e  74 65 64 0a 23 20 20 20  |Decommented.#   |
00004090  20 20 20 20 20 20 20 20  20 20 20 20 20 65 78 74  |             ext|
000040a0  72 61 20 50 4f 50 20 6e  75 6d 62 65 72 73 20 64  |ra POP numbers d|
000040b0  75 65 20 74 6f 20 69 6e  63 72 65 61 73 65 20 69  |ue to increase i|
000040c0  6e 20 6e 6f 2e 20 6f 66  20 61 6c 6c 6f 77 65 64  |n no. of allowed|
000040d0  0a 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.#              |
000040e0  20 20 76 61 72 69 61 62  6c 65 73 3b 20 72 65 77  |  variables; rew|
000040f0  72 6f 74 65 20 6d 65 6e  75 20 73 6c 69 67 68 74  |rote menu slight|
00004100  6c 79 20 64 75 65 20 74  6f 20 69 6e 63 72 65 61  |ly due to increa|
00004110  73 65 20 69 6e 20 69 74  73 0a 23 20 20 20 20 20  |se in its.#     |
00004120  20 20 20 20 20 20 20 20  20 20 20 70 65 72 6d 69  |           permi|
00004130  74 74 65 64 20 6c 65 6e  67 74 68 2e 0a 23 20 39  |tted length..# 9|
00004140  35 30 31 32 39 20 41 50  46 2f 4d 44 4a 20 31 29  |50129 APF/MDJ 1)|
00004150  20 6d 65 72 67 65 64 20  69 6e 20 69 6d 70 72 6f  | merged in impro|
00004160  76 65 6d 65 6e 74 73 20  6d 61 64 65 20 62 79 20  |vements made by |
00004170  4d 69 6b 65 20 4a 61 6d  65 73 2c 20 69 2e 65 2e  |Mike James, i.e.|
00004180  20 73 65 70 61 72 61 74  65 0a 23 20 20 20 20 20  | separate.#     |
00004190  20 20 20 20 20 20 20 20  20 20 20 6d 65 72 63 75  |           mercu|
000041a0  72 79 20 70 69 6e 20 70  72 65 66 69 78 20 66 6f  |ry pin prefix fo|
000041b0  72 20 65 61 63 68 20 6e  75 6d 62 65 72 20 28 61  |r each number (a|
000041c0  73 20 6c 6f 63 61 6c 20  63 61 6c 6c 73 20 64 6f  |s local calls do|
000041d0  6e 27 74 20 6e 65 65 64  0a 23 20 20 20 20 20 20  |n't need.#      |
000041e0  20 20 20 20 20 20 20 20  20 20 70 69 6e 73 29 2e  |          pins).|
000041f0  20 20 4d 69 6b 65 20 61  6c 73 6f 20 61 64 64 65  |  Mike also adde|
00004200  64 20 61 6e 20 69 63 6f  6e 20 66 6f 72 20 64 69  |d an icon for di|
00004210  61 6c 6c 69 6e 67 20 74  68 65 20 6e 65 61 72 65  |alling the neare|
00004220  73 74 20 0a 23 20 20 20  20 20 20 20 20 20 20 20  |st .#           |
00004230  20 20 20 20 20 6e 75 6d  62 65 72 2e 0a 23 20 20  |     number..#  |
00004240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 32 29  |              2)|
00004250  20 49 6e 63 6c 75 64 65  64 20 61 20 22 72 65 69  | Included a "rei|
00004260  6e 69 74 22 20 69 66 20  63 61 6c 6c 20 66 61 69  |nit" if call fai|
00004270  6c 73 2c 20 61 73 20 22  72 65 6c 65 61 73 65 22  |ls, as "release"|
00004280  20 6f 6e 20 69 74 73 20  6f 77 6e 0a 23 20 20 20  | on its own.#   |
00004290  20 20 20 20 20 20 20 20  20 20 20 20 20 64 6f 65  |             doe|
000042a0  73 6e 27 74 20 73 65 65  6d 20 74 6f 20 64 72 6f  |sn't seem to dro|
000042b0  70 20 74 68 65 20 6c 69  6e 65 2e 20 20 20 20 20  |p the line.     |
000042c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000042d0  20 20 20 20 20 20 20 20  20 0a 23 20 39 35 30 31  |         .# 9501|
000042e0  31 34 20 41 50 46 20 20  20 20 20 52 65 6d 6f 76  |14 APF     Remov|
000042f0  65 64 20 74 72 69 6d 6d  69 6e 67 20 6f 66 20 6e  |ed trimming of n|
00004300  65 77 73 20 68 69 73 74  6f 72 79 20 66 69 6c 65  |ews history file|
00004310  2c 20 61 73 20 6e 65 77  73 62 61 73 65 20 64 6f  |, as newsbase do|
00004320  65 73 20 74 68 69 73 0a  23 20 20 20 20 20 20 20  |es this.#       |
00004330  20 20 20 20 20 20 20 20  20 62 65 74 74 65 72 20  |         better |
00004340  28 61 63 63 6f 72 64 69  6e 67 20 74 6f 20 47 72  |(according to Gr|
00004350  61 68 61 6d 20 41 6c 6c  61 6e 29 0a 23 20 39 34  |aham Allan).# 94|
00004360  31 32 31 39 20 41 50 46  20 20 20 20 20 4c 69 73  |1219 APF     Lis|
00004370  74 20 6f 66 20 70 68 6f  6e 65 20 6e 75 6d 73 20  |t of phone nums |
00004380  6d 75 73 74 20 62 65 20  69 6e 20 71 75 6f 74 65  |must be in quote|
00004390  73 2c 20 65 2e 67 2e 20  73 65 74 20 70 68 6f 6e  |s, e.g. set phon|
000043a0  65 6e 75 6d 20 22 25 4c  69 73 74 22 0a 23 20 39  |enum "%List".# 9|
000043b0  34 31 32 31 35 20 41 50  46 20 20 20 20 20 46 6f  |41215 APF     Fo|
000043c0  75 6e 64 20 6d 79 20 65  72 72 6f 72 20 61 74 20  |und my error at |
000043d0  6c 61 73 74 20 2d 20 6c  61 62 65 6c 73 20 61 72  |last - labels ar|
000043e0  65 20 63 61 73 65 20 73  65 6e 73 69 74 69 76 65  |e case sensitive|
000043f0  21 0a 23 20 39 34 31 32  31 33 20 41 50 46 20 20  |!.# 941213 APF  |
00004400  20 20 20 42 75 67 20 66  6f 75 6e 64 20 63 61 6c  |   Bug found cal|
00004410  6c 69 6e 67 20 4c 6f 6e  64 6f 6e 20 2d 20 53 6c  |ling London - Sl|
00004420  69 70 44 69 61 6c 20 64  69 64 6e 27 74 20 72 65  |ipDial didn't re|
00004430  63 6f 67 6e 69 73 65 20  22 6c 6f 22 2c 20 69 74  |cognise "lo", it|
00004440  0a 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.#              |
00004450  20 20 66 6f 75 6e 64 20  22 6c 6f 6f 70 22 20 69  |  found "loop" i|
00004460  6e 73 74 65 61 64 2c 20  73 6f 20 49 20 63 68 61  |nstead, so I cha|
00004470  6e 67 65 64 20 73 75 62  72 6f 75 74 69 6e 65 20  |nged subroutine |
00004480  6e 61 6d 65 20 74 6f 20  22 4c 6f 6e 22 2e 0a 23  |name to "Lon"..#|
00004490  20 39 34 31 32 30 34 20  41 50 46 20 20 20 20 20  | 941204 APF     |
000044a0  41 64 64 65 64 20 6d 6f  72 65 20 63 6f 6d 6d 65  |Added more comme|
000044b0  6e 74 73 2e 20 20 4d 6f  64 69 66 65 64 20 22 6e  |nts.  Modifed "n|
000044c0  6f 20 6e 65 77 73 20 64  6f 77 6e 6c 6f 61 64 65  |o news downloade|
000044d0  64 20 6d 65 73 73 61 67  65 20 74 6f 20 62 65 0a  |d message to be.|
000044e0  23 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#               |
000044f0  20 6d 6f 72 65 20 68 6f  6e 65 73 74 2e 0a 23 20  | more honest..# |
00004500  39 34 31 32 30 32 20 41  50 46 20 20 20 20 20 43  |941202 APF     C|
00004510  68 65 63 6b 73 20 69 66  20 44 65 6d 48 69 73 74  |hecks if DemHist|
00004520  20 66 69 6c 65 20 65 78  69 73 74 73 20 62 65 66  | file exists bef|
00004530  6f 72 65 20 74 72 79 69  6e 67 20 74 6f 20 74 72  |ore trying to tr|
00004540  69 6d 20 69 74 2e 20 20  41 6c 6c 20 0a 23 20 20  |im it.  All .#  |
00004550  20 20 20 20 20 20 20 20  20 20 20 20 20 20 72 65  |              re|
00004560  66 65 72 65 6e 63 65 73  20 74 6f 20 63 6f 73 74  |ferences to cost|
00004570  20 63 61 6c 63 75 6c 61  74 69 6f 6e 20 72 65 6d  | calculation rem|
00004580  6f 76 65 64 2e 20 20 41  6c 6c 20 70 72 65 2d 54  |oved.  All pre-T|
00004590  54 46 4e 2f 4e 65 77 73  62 61 73 65 0a 23 20 20  |TFN/Newsbase.#  |
000045a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 72 65  |              re|
000045b0  66 65 72 65 6e 63 65 73  20 72 65 6d 6f 76 65 64  |ferences removed|
000045c0  20 28 65 2e 67 2e 20 49  6e 63 6f 72 70 2c 20 52  | (e.g. Incorp, R|
000045d0  65 61 64 6e 65 77 73 2c  20 63 6f 6e 76 6d 61 69  |eadnews, convmai|
000045e0  6c 29 2e 20 41 64 64 65  64 20 61 6c 6c 0a 23 20  |l). Added all.# |
000045f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 6b  |               k|
00004600  6e 6f 77 6e 20 50 6f 50  20 70 68 6f 6e 65 20 6e  |nown PoP phone n|
00004610  75 6d 62 65 72 73 2e 20  20 41 64 64 65 64 20 61  |umbers.  Added a|
00004620  20 6c 69 73 74 20 6f 66  20 70 68 6f 6e 65 20 6e  | list of phone n|
00004630  75 6d 62 65 72 73 20 6f  70 74 69 6f 6e 0a 23 20  |umbers option.# |
00004640  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 74  |               t|
00004650  6f 20 74 68 65 20 6d 65  6e 75 2e 0a 23 20 39 34  |o the menu..# 94|
00004660  31 31 32 31 20 41 50 46  20 20 20 20 20 53 70 72  |1121 APF     Spr|
00004670  69 74 65 73 20 73 68 6f  75 6c 64 20 62 65 20 68  |ites should be h|
00004680  67 6f 6e 2c 20 68 67 6f  66 66 20 28 77 69 74 68  |gon, hgoff (with|
00004690  6f 75 74 20 27 5f 27 29  20 0a 23 20 39 34 31 31  |out '_') .# 9411|
000046a0  31 37 20 41 50 46 20 20  20 20 20 54 6f 20 72 65  |17 APF     To re|
000046b0  6e 61 6d 65 20 73 70 72  69 74 65 73 20 74 6f 20  |name sprites to |
000046c0  68 67 5f 6f 6e 2f 68 67  5f 6f 66 66 20 73 6f 20  |hg_on/hg_off so |
000046d0  73 74 61 6e 64 61 72 64  20 44 65 6d 6f 6e 53 70  |standard DemonSp|
000046e0  72 20 73 70 72 69 74 65  20 0a 23 20 20 20 20 20  |r sprite .#     |
000046f0  20 20 20 20 20 20 20 20  20 20 20 66 69 6c 65 20  |           file |
00004700  77 69 6c 6c 20 73 74 69  6c 6c 20 77 6f 72 6b 2e  |will still work.|
00004710  0a 23 20 39 34 31 30 30  35 20 41 50 46 20 20 20  |.# 941005 APF   |
00004720  20 20 4f 72 64 65 72 20  6f 66 20 73 74 61 72 74  |  Order of start|
00004730  75 70 20 6f 66 20 6e 65  77 73 62 61 73 65 20 61  |up of newsbase a|
00004740  6e 64 20 54 54 46 4e 20  73 77 61 70 70 65 64 2e  |nd TTFN swapped.|
00004750  20 54 54 46 4e 20 6d 75  73 74 0a 23 20 20 20 20  | TTFN must.#    |
00004760  20 20 20 20 20 20 20 20  20 20 20 20 73 74 61 72  |            star|
00004770  74 20 66 69 72 73 74 20  66 6f 72 20 65 76 65 72  |t first for ever|
00004780  79 74 68 69 6e 67 20 74  6f 20 77 6f 72 6b 20 70  |ything to work p|
00004790  72 6f 70 65 72 6c 79 2e  0a 23 20 39 34 30 39 32  |roperly..# 94092|
000047a0  39 20 41 50 46 20 20 20  20 20 53 74 6f 70 70 65  |9 APF     Stoppe|
000047b0  64 20 75 73 69 6e 67 20  74 6d 73 74 72 74 2c 20  |d using tmstrt, |
000047c0  74 6d 65 6e 64 2c 20 64  69 66 66 20 74 6f 20 63  |tmend, diff to c|
000047d0  72 65 61 74 65 20 61 20  73 68 6f 72 74 20 64 65  |reate a short de|
000047e0  6c 61 79 20 2d 20 0a 23  20 20 20 20 20 20 20 20  |lay - .#        |
000047f0  20 20 20 20 20 20 20 20  6e 6f 77 20 66 69 78 65  |        now fixe|
00004800  64 20 74 6f 20 33 20 73  65 63 6f 6e 64 73 2e 0a  |d to 3 seconds..|
00004810  23 20 39 34 30 39 32 38  20 41 50 46 20 20 20 20  |# 940928 APF    |
00004820  20 52 65 6d 6f 76 65 64  20 72 65 66 65 72 65 6e  | Removed referen|
00004830  63 65 73 20 74 6f 20 49  6e 74 65 72 6e 65 74 24  |ces to Internet$|
00004840  44 69 72 0a 23 20 39 34  30 39 32 36 20 41 50 46  |Dir.# 940926 APF|
00004850  20 20 20 20 20 54 43 50  49 50 24 64 69 72 20 63  |     TCPIP$dir c|
00004860  68 61 6e 67 65 64 20 74  6f 20 54 43 50 49 50 32  |hanged to TCPIP2|
00004870  24 64 69 72 0a 23 20 39  34 30 39 31 32 20 41 50  |$dir.# 940912 AP|
00004880  46 20 20 20 20 20 54 6f  20 61 64 64 20 49 73 6c  |F     To add Isl|
00004890  65 20 6f 66 20 57 69 67  68 74 20 27 70 68 6f 6e  |e of Wight 'phon|
000048a0  65 20 6e 75 6d 62 65 72  0a 23 20 39 34 30 39 31  |e number.# 94091|
000048b0  31 20 41 50 46 20 20 20  20 20 54 61 73 6b 20 6b  |1 APF     Task k|
000048c0  69 6c 6c 69 6e 67 20 74  69 64 69 65 64 20 75 70  |illing tidied up|
000048d0  2e 0a 23 20 39 34 30 39  31 31 20 41 50 46 20 20  |..# 940911 APF  |
000048e0  20 20 20 54 6f 20 75 73  65 20 6e 65 77 73 62 61  |   To use newsba|
000048f0  73 65 2f 74 74 66 6e 0a  23 20 39 34 30 38 30 33  |se/ttfn.# 940803|
00004900  20 41 50 46 20 20 20 20  20 42 65 74 61 6e 65 77  | APF     Betanew|
00004910  73 20 61 6c 73 6f 20 63  61 6c 6c 73 20 63 6f 6e  |s also calls con|
00004920  76 6d 61 69 6c 0a 23 20  39 34 30 37 31 37 20 41  |vmail.# 940717 A|
00004930  50 46 20 20 20 20 20 4e  65 77 73 72 61 74 65 20  |PF     Newsrate |
00004940  61 64 64 65 64 0a 23 20  39 34 30 37 30 38 20 41  |added.# 940708 A|
00004950  50 46 20 20 20 20 20 54  6f 20 72 65 6c 65 61 73  |PF     To releas|
00004960  65 20 6d 6f 64 65 6d 20  63 6f 72 72 65 63 74 6c  |e modem correctl|
00004970  79 20 69 66 20 6e 6f 20  70 72 6f 6d 70 74 20 72  |y if no prompt r|
00004980  65 63 65 69 76 65 64 20  28 65 2e 67 2e 20 6c 6f  |eceived (e.g. lo|
00004990  67 69 6e 2c 0a 23 20 20  20 20 20 20 20 20 20 20  |gin,.#          |
000049a0  20 20 20 20 20 20 70 61  73 73 77 6f 72 64 2c 20  |      password, |
000049b0  70 72 6f 74 6f 63 6f 6c  20 65 74 63 29 2e 0a 23  |protocol etc)..#|
000049c0  20 39 34 30 37 30 32 20  41 50 46 20 20 20 20 20  | 940702 APF     |
000049d0  54 6f 20 72 65 6e 61 6d  65 20 22 68 67 22 20 74  |To rename "hg" t|
000049e0  6f 20 22 6d 65 72 63 75  72 79 5f 70 69 6e 22 0a  |o "mercury_pin".|
000049f0  23 20 39 34 30 36 32 39  20 41 50 46 20 20 20 20  |# 940629 APF    |
00004a00  20 54 6f 20 73 65 6e 64  20 6c 6f 6e 67 20 6d 6f  | To send long mo|
00004a10  64 65 6d 20 73 74 72 69  6e 67 73 20 75 73 69 6e  |dem strings usin|
00004a20  67 20 74 68 65 20 55 53  52 20 64 72 69 76 65 72  |g the USR driver|
00004a30  20 62 79 20 71 75 6f 74  69 6e 67 20 74 68 65 6d  | by quoting them|
00004a40  0a 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.#              |
00004a50  20 20 69 6e 20 71 75 6f  74 65 73 2e 20 28 70 72  |  in quotes. (pr|
00004a60  65 76 69 6f 75 73 20 63  6f 6d 6d 65 6e 74 20 6e  |evious comment n|
00004a70  6f 20 6c 6f 6e 67 65 72  20 61 70 70 6c 69 65 73  |o longer applies|
00004a80  29 0a 23 20 39 34 30 36  32 37 20 41 50 46 20 20  |).# 940627 APF  |
00004a90  20 20 20 4e 6f 74 65 20  6e 6f 77 20 68 61 72 64  |   Note now hard|
00004aa0  77 69 72 65 64 20 74 6f  20 77 6f 72 6b 20 77 69  |wired to work wi|
00004ab0  74 68 20 55 53 52 20 6d  6f 64 65 6d 73 2e 0a     |th USR modems..|
00004abf