00000000  23 73 6c 69 70 64 69 61  6c 20 73 63 72 69 70 74  |#slipdial script|
00000010  20 66 6f 72 20 5a 79 6e  65 74 0a 23 2d 2d 2d 2d  | for Zynet.#----|
00000020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000060  0a 23 20 53 63 72 69 70  74 20 3a 20 5a 79 6e 65  |.# Script : Zyne|
00000070  74 0a 23 0a 23 20 21 53  6c 69 70 44 69 61 6c 20  |t.#.# !SlipDial |
00000080  30 2e 32 39 20 44 65 6d  6f 6e 20 53 63 72 69 70  |0.29 Demon Scrip|
00000090  74 20 2d 20 52 2e 57 2e  4f 72 77 69 6e 20 31 39  |t - R.W.Orwin 19|
000000a0  39 34 20 28 72 6f 62 40  77 6f 6e 67 2e 64 65 6d  |94 (rob@wong.dem|
000000b0  6f 6e 2e 63 6f 2e 75 6b  29 0a 23 20 20 20 20 20  |on.co.uk).#     |
000000c0  20 20 20 20 20 20 20 20  20 20 20 53 70 72 69 74  |           Sprit|
000000d0  65 73 20 62 79 20 4a 61  6d 65 73 20 57 6f 6f 64  |es by James Wood|
000000e0  6d 61 6e 20 28 77 6f 6f  64 79 40 62 61 63 63 68  |man (woody@bacch|
000000f0  75 73 2e 64 65 6d 6f 6e  2e 63 6f 2e 75 6b 29 0a  |us.demon.co.uk).|
00000100  23 0a 23 20 52 65 76 69  73 65 64 3a 20 41 6c 61  |#.# Revised: Ala|
00000110  6e 20 46 69 74 63 68 20  39 34 30 36 32 37 20 3a  |n Fitch 940627 :|
00000120  20 6e 6f 74 65 20 6e 6f  77 20 68 61 72 64 77 69  | note now hardwi|
00000130  72 65 64 20 74 6f 20 77  6f 72 6b 20 77 69 74 68  |red to work with|
00000140  20 55 53 52 0a 23 20 20  20 20 20 20 20 20 20 20  | USR.#          |
00000150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000160  20 20 20 20 6d 6f 64 65  6d 73 2e 0a 23 20 52 65  |    modems..# Re|
00000170  76 69 73 65 64 3a 20 41  6c 61 6e 20 46 69 74 63  |vised: Alan Fitc|
00000180  68 20 39 34 30 36 32 39  20 3a 20 74 6f 20 73 65  |h 940629 : to se|
00000190  6e 64 20 6c 6f 6e 67 20  6d 6f 64 65 6d 20 73 74  |nd long modem st|
000001a0  72 69 6e 67 73 20 75 73  69 6e 67 20 74 68 65 0a  |rings using the.|
000001b0  23 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#               |
000001c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 55  |               U|
000001d0  53 52 20 64 72 69 76 65  72 20 62 79 20 71 75 6f  |SR driver by quo|
000001e0  74 69 6e 67 20 74 68 65  6d 20 69 6e 20 71 75 6f  |ting them in quo|
000001f0  74 65 73 2e 0a 23 20 20  20 20 20 20 20 20 20 20  |tes..#          |
00000200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000210  20 20 20 20 28 63 6f 6d  6d 65 6e 74 20 61 62 6f  |    (comment abo|
00000220  76 65 20 6e 6f 20 6c 6f  6e 67 65 72 20 61 70 70  |ve no longer app|
00000230  6c 69 65 73 29 0a 23 20  52 65 76 69 73 65 64 3a  |lies).# Revised:|
00000240  20 41 6c 61 6e 20 46 69  74 63 68 20 39 34 30 37  | Alan Fitch 9407|
00000250  30 32 20 3a 20 74 6f 20  72 65 6e 61 6d 65 20 22  |02 : to rename "|
00000260  68 67 22 20 74 6f 20 22  5f 70 69 6e 22 0a 23 20  |hg" to "_pin".# |
00000270  52 65 76 69 73 65 64 3a  20 41 6c 61 6e 20 46 69  |Revised: Alan Fi|
00000280  74 63 68 20 39 34 30 37  30 38 20 3a 20 74 6f 20  |tch 940708 : to |
00000290  72 65 6c 65 61 73 65 20  6d 6f 64 65 6d 20 63 6f  |release modem co|
000002a0  72 72 65 63 74 6c 79 20  69 66 20 6e 6f 20 70 72  |rrectly if no pr|
000002b0  6f 6d 70 74 0a 23 20 20  20 20 20 20 20 20 20 20  |ompt.#          |
000002c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002d0  20 20 20 20 72 65 63 65  69 76 65 64 20 28 65 2e  |    received (e.|
000002e0  67 2e 20 6c 6f 67 69 6e  2c 20 70 61 73 73 77 6f  |g. login, passwo|
000002f0  72 64 2c 20 70 72 6f 74  6f 63 6f 6c 20 65 74 63  |rd, protocol etc|
00000300  29 2e 0a 23 20 52 65 76  69 73 65 64 3a 20 41 6c  |)..# Revised: Al|
00000310  61 6e 20 46 69 74 63 68  20 39 34 30 37 31 37 20  |an Fitch 940717 |
00000320  3a 20 4e 65 77 73 72 61  74 65 20 61 64 64 65 64  |: Newsrate added|
00000330  0a 23 20 52 65 76 69 73  65 64 3a 20 41 6c 61 6e  |.# Revised: Alan|
00000340  20 46 69 74 63 68 20 39  34 30 38 30 33 20 3a 20  | Fitch 940803 : |
00000350  62 65 74 61 6e 65 77 73  20 61 6c 73 6f 20 63 61  |betanews also ca|
00000360  6c 6c 73 20 63 6f 6e 76  6d 61 69 6c 0a 23 20 52  |lls convmail.# R|
00000370  65 76 69 73 65 64 3a 20  41 6c 61 6e 20 46 69 74  |evised: Alan Fit|
00000380  63 68 20 39 34 30 39 31  31 20 3a 20 54 6f 20 75  |ch 940911 : To u|
00000390  73 65 20 6e 65 77 73 62  61 73 65 2f 74 74 66 6e  |se newsbase/ttfn|
000003a0  0a 23 20 52 65 76 69 73  65 64 3a 20 41 6c 61 6e  |.# Revised: Alan|
000003b0  20 46 69 74 63 68 20 39  34 30 39 31 31 20 3a 20  | Fitch 940911 : |
000003c0  54 61 73 6b 20 6b 69 6c  6c 69 6e 67 20 74 69 64  |Task killing tid|
000003d0  69 65 64 20 75 70 2e 0a  23 20 52 65 76 69 73 65  |ied up..# Revise|
000003e0  64 3a 20 41 6c 61 6e 20  46 69 74 63 68 20 39 34  |d: Alan Fitch 94|
000003f0  30 39 31 32 20 3a 20 54  6f 20 61 64 64 20 49 73  |0912 : To add Is|
00000400  6c 65 20 6f 66 20 57 69  67 68 74 20 27 70 68 6f  |le of Wight 'pho|
00000410  6e 65 20 6e 75 6d 62 65  72 0a 23 20 52 65 76 69  |ne number.# Revi|
00000420  73 65 64 3a 20 41 6c 61  6e 20 46 69 74 63 68 20  |sed: Alan Fitch |
00000430  39 34 30 39 32 36 20 3a  20 54 43 50 49 50 24 64  |940926 : TCPIP$d|
00000440  69 72 20 63 68 61 6e 67  65 64 20 74 6f 20 54 43  |ir changed to TC|
00000450  50 49 50 32 24 64 69 72  0a 23 20 52 65 76 69 73  |PIP2$dir.# Revis|
00000460  65 64 3a 20 41 6c 61 6e  20 46 69 74 63 68 20 39  |ed: Alan Fitch 9|
00000470  34 30 39 32 38 20 3a 20  52 65 6d 6f 76 65 64 20  |40928 : Removed |
00000480  72 65 66 65 72 65 6e 63  65 73 20 74 6f 20 49 6e  |references to In|
00000490  74 65 72 6e 65 74 24 44  69 72 0a 23 20 52 65 76  |ternet$Dir.# Rev|
000004a0  69 73 65 64 3a 20 41 6c  61 6e 20 46 69 74 63 68  |ised: Alan Fitch|
000004b0  20 39 34 30 39 32 39 20  3a 20 53 74 6f 70 70 65  | 940929 : Stoppe|
000004c0  64 20 75 73 69 6e 67 20  74 6d 73 74 72 74 2c 20  |d using tmstrt, |
000004d0  74 6d 65 6e 64 2c 20 64  69 66 66 20 74 6f 20 63  |tmend, diff to c|
000004e0  72 65 61 74 65 20 61 20  23 20 20 20 20 20 20 20  |reate a #       |
000004f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000500  20 20 20 20 20 20 20 73  68 6f 72 74 20 64 65 6c  |       short del|
00000510  61 79 20 2d 20 6e 6f 77  20 66 69 78 65 64 20 74  |ay - now fixed t|
00000520  6f 20 33 20 73 65 63 6f  6e 64 73 2e 0a 23 20 52  |o 3 seconds..# R|
00000530  65 76 69 73 65 64 3a 20  41 6c 61 6e 20 46 69 74  |evised: Alan Fit|
00000540  63 68 20 39 34 31 30 30  35 20 3a 20 6f 72 64 65  |ch 941005 : orde|
00000550  72 20 6f 66 20 73 74 61  72 74 75 70 20 6f 66 20  |r of startup of |
00000560  6e 65 77 73 62 61 73 65  20 61 6e 64 20 54 54 46  |newsbase and TTF|
00000570  4e 20 73 77 61 70 70 65  64 2e 23 20 20 20 20 20  |N swapped.#     |
00000580  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000590  20 20 20 20 20 20 20 20  20 54 54 46 4e 20 6d 75  |         TTFN mu|
000005a0  73 74 20 73 74 61 72 74  20 66 69 72 73 74 20 66  |st start first f|
000005b0  6f 72 20 65 76 65 72 79  74 68 69 6e 67 0a 23 20  |or everything.# |
000005c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005d0  20 20 20 20 20 20 20 20  20 20 20 20 20 74 6f 20  |             to |
000005e0  77 6f 72 6b 20 70 72 6f  70 65 72 6c 79 2e 0a 23  |work properly..#|
000005f0  20 52 65 76 69 73 65 64  3a 20 41 6c 61 6e 20 46  | Revised: Alan F|
00000600  69 74 63 68 20 39 34 31  31 31 37 20 3a 20 74 6f  |itch 941117 : to|
00000610  20 72 65 6e 61 6d 65 20  73 70 72 69 74 65 73 20  | rename sprites |
00000620  74 6f 20 68 67 5f 6f 6e  2f 68 67 5f 6f 66 66 20  |to hg_on/hg_off |
00000630  73 6f 0a 23 20 20 20 20  20 20 20 20 20 20 20 20  |so.#            |
00000640  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000650  20 20 73 74 61 6e 64 61  72 64 20 44 65 6d 6f 6e  |  standard Demon|
00000660  53 70 72 20 73 70 72 69  74 65 20 66 69 6c 65 20  |Spr sprite file |
00000670  77 69 6c 6c 20 73 74 69  6c 6c 20 77 6f 72 6b 0a  |will still work.|
00000680  23 20 52 65 76 69 73 65  64 3a 20 4d 65 72 6c 79  |# Revised: Merly|
00000690  6e 20 4b 6c 69 6e 65 20  39 35 30 32 30 31 20 3a  |n Kline 950201 :|
000006a0  20 5a 79 6e 65 74 20 76  65 72 73 69 6f 6e 0a 23  | Zynet version.#|
000006b0  0a 0a 63 61 6c 6c 20 69  6e 69 74 4d 61 69 6e 0a  |..call initMain.|
000006c0  63 61 6c 6c 20 63 6f 6e  66 69 67 75 72 65 0a 63  |call configure.c|
000006d0  61 6c 6c 20 73 65 74 73  65 72 69 61 6c 0a 63 61  |all setserial.ca|
000006e0  6c 6c 20 6d 61 6b 65 6d  65 6e 75 73 0a 23 20 63  |ll makemenus.# c|
000006f0  68 61 6e 67 65 20 66 6f  6c 6c 6f 77 69 6e 67 20  |hange following |
00000700  6c 69 6e 65 20 74 6f 20  22 63 61 6c 6c 20 6d 65  |line to "call me|
00000710  72 63 75 72 79 5f 6f 6e  22 20 66 6f 72 20 64 65  |rcury_on" for de|
00000720  66 61 75 6c 74 20 75 73  65 20 6f 66 20 6d 65 72  |fault use of mer|
00000730  63 75 72 79 0a 63 61 6c  6c 20 6d 65 72 63 75 72  |cury.call mercur|
00000740  79 5f 6f 66 66 0a 0a 23  0a 23 20 6d 61 69 6e 20  |y_off..#.# main |
00000750  6c 6f 6f 70 0a 23 0a 3a  6c 6f 6f 70 0a 6d 65 73  |loop.#.:loop.mes|
00000760  73 61 67 65 20 2f 63 6c  6f 73 65 0a 77 61 69 74  |sage /close.wait|
00000770  20 2f 65 76 65 6e 74 0a  67 6f 74 6f 20 6c 6f 6f  | /event.goto loo|
00000780  70 0a 65 78 69 74 0a 0a  23 20 65 6e 64 20 6f 66  |p.exit..# end of|
00000790  20 70 72 6f 67 72 61 6d  0a 23 2d 2d 2d 2d 2d 2d  | program.#------|
000007a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000007d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 0a  |--------------..|
000007e0  23 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |#===============|
000007f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000820  3d 3d 3d 3d 3d 0a 23 20  53 55 42 52 4f 55 54 49  |=====.# SUBROUTI|
00000830  4e 45 53 0a 23 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |NES.#===========|
00000840  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000870  3d 3d 3d 3d 3d 3d 3d 3d  3d 0a 0a 23 2d 2d 2d 2d  |=========..#----|
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 0a  23 53 75 62 72 6f 75 74  |-------.#Subrout|
000008c0  69 6e 65 3a 20 65 78 65  0a 23 63 61 6c 6c 73 20  |ine: exe.#calls |
000008d0  65 78 65 74 65 72 20 70  6f 70 3a 20 72 65 74 75  |exeter pop: retu|
000008e0  72 6e 73 20 76 69 61 20  73 75 62 72 6f 75 74 69  |rns via subrouti|
000008f0  6e 65 20 64 6f 64 69 61  6c 0a 23 2d 2d 2d 2d 2d  |ne dodial.#-----|
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  65 78 65 0a 73 65 74 20  |------.:exe.set |
00000940  70 68 6f 6e 65 6e 75 6d  20 30 31 33 39 32 34 33  |phonenum 0139243|
00000950  31 31 33 33 0a 73 65 74  20 63 6f 73 74 62 61 6e  |1133.set costban|
00000960  64 20 62 0a 67 6f 74 6f  20 64 6f 64 69 61 6c 0a  |d b.goto dodial.|
00000970  0a 23 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.#--------------|
00000980  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  2d 2d 2d 2d 2d 0a 23 20  |-------------.# |
000009b0  53 75 62 72 6f 75 74 69  6e 65 3a 20 64 6f 64 69  |Subroutine: dodi|
000009c0  61 6c 0a 23 20 4e 6f 74  65 3a 20 68 61 73 20 6d  |al.# Note: has m|
000009d0  75 6c 74 69 70 6c 65 20  65 6e 74 72 79 20 70 6f  |ultiple entry po|
000009e0  69 6e 74 73 20 66 72 6f  6d 20 22 67 6f 74 6f 22  |ints from "goto"|
000009f0  20 73 74 61 74 65 6d 65  6e 74 73 0a 23 20 61 62  | statements.# ab|
00000a00  6f 76 65 2e 20 20 48 6f  77 65 76 65 72 20 69 74  |ove.  However it|
00000a10  20 66 69 6e 61 6c 6c 79  20 72 65 74 75 72 6e 73  | finally returns|
00000a20  20 74 6f 20 74 68 65 20  6d 61 69 6e 20 77 61 69  | to the main wai|
00000a30  74 69 6e 67 0a 23 20 6c  6f 6f 70 2e 0a 23 2d 2d  |ting.# loop..#--|
00000a40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000a70  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 3a 64 6f 64 69 61  |---------.:dodia|
00000a80  6c 0a 0a 23 63 6f 6e 76  65 72 74 20 61 6e 79 20  |l..#convert any |
00000a90  6f 75 74 67 6f 69 6e 67  20 6d 61 69 6c 2f 6e 65  |outgoing mail/ne|
00000aa0  77 73 0a 69 66 20 28 3f  66 69 6c 65 20 3c 52 75  |ws.if (?file <Ru|
00000ab0  63 70 24 44 69 72 3e 2e  75 75 63 70 2e 73 70 6f  |cp$Dir>.uucp.spo|
00000ac0  6f 6c 2e 70 6f 73 74 2e  63 2e 2a 29 20 63 61 6c  |ol.post.c.*) cal|
00000ad0  6c 20 63 6f 6e 76 6d 61  69 6c 0a 69 66 20 28 3f  |l convmail.if (?|
00000ae0  66 69 6c 65 20 3c 52 75  63 70 24 44 69 72 3e 2e  |file <Rucp$Dir>.|
00000af0  75 75 63 70 2e 73 70 6f  6f 6c 2e 6e 65 77 73 2e  |uucp.spool.news.|
00000b00  63 2e 2a 29 20 63 61 6c  6c 20 63 6f 6e 76 6d 61  |c.*) call convma|
00000b10  69 6c 0a 69 66 20 28 3f  66 69 6c 65 20 3c 52 75  |il.if (?file <Ru|
00000b20  63 70 24 44 69 72 3e 2e  75 75 63 70 2e 73 70 6f  |cp$Dir>.uucp.spo|
00000b30  6f 6c 2e 62 65 74 61 6e  65 77 73 2e 63 2e 2a 29  |ol.betanews.c.*)|
00000b40  20 63 61 6c 6c 20 63 6f  6e 76 6d 61 69 6c 0a 0a  | call convmail..|
00000b50  23 20 54 69 6d 65 72 73  20 74 6f 20 63 6f 6d 70  |# Timers to comp|
00000b60  75 74 65 20 74 68 65 20  63 61 6c 6c 20 63 6f 73  |ute the call cos|
00000b70  74 2e 0a 73 65 74 20 63  6f 73 74 73 74 72 74 20  |t..set coststrt |
00000b80  30 0a 73 65 74 20 63 6f  73 74 65 6e 64 20 30 0a  |0.set costend 0.|
00000b90  0a 23 20 6b 69 6c 6c 20  49 6e 63 6f 72 70 20 69  |.# kill Incorp i|
00000ba0  66 20 69 74 20 69 73 20  72 75 6e 6e 69 6e 67 2c  |f it is running,|
00000bb0  20 61 6e 64 20 77 61 73  20 73 74 61 72 74 65 64  | and was started|
00000bc0  20 66 72 6f 6d 20 53 6c  69 70 44 69 61 6c 0a 23  | from SlipDial.#|
00000bd0  74 61 73 6b 20 2f 6b 69  6c 6c 3d 22 49 6e 63 6f  |task /kill="Inco|
00000be0  72 70 22 0a 74 61 73 6b  20 2f 6b 69 6c 6c 3d 22  |rp".task /kill="|
00000bf0  4e 65 77 73 62 61 73 65  22 0a 74 61 73 6b 20 2f  |Newsbase".task /|
00000c00  6b 69 6c 6c 3d 22 54 54  46 4e 22 0a 0a 23 20 43  |kill="TTFN"..# C|
00000c10  6c 61 69 6d 20 74 68 65  20 64 65 76 69 63 65 20  |laim the device |
00000c20  64 72 69 76 65 72 0a 69  66 20 28 21 63 6c 61 69  |driver.if (!clai|
00000c30  6d 20 33 29 20 72 65 74  75 72 6e 20 30 0a 0a 23  |m 3) return 0..#|
00000c40  20 69 6e 69 74 69 61 6c  69 73 65 20 6d 6f 64 65  | initialise mode|
00000c50  6d 0a 69 6e 69 74 0a 0a  23 20 64 69 61 6c 20 74  |m.init..# dial t|
00000c60  68 65 20 6e 75 6d 62 65  72 2c 20 72 65 74 75 72  |he number, retur|
00000c70  6e 20 74 6f 20 6d 61 69  6e 20 6d 65 6e 75 20 69  |n to main menu i|
00000c80  66 20 66 61 69 6c 65 64  2e 0a 72 65 74 72 79 20  |f failed..retry |
00000c90  35 30 20 31 35 0a 69 66  20 28 21 64 69 61 6c 20  |50 15.if (!dial |
00000ca0  2f 6e 6f 64 69 61 6c 3d  31 35 20 2f 6e 6f 63 61  |/nodial=15 /noca|
00000cb0  72 3d 31 30 20 2f 62 75  73 79 3d 32 20 25 6d 65  |r=10 /busy=2 %me|
00000cc0  72 63 75 72 79 5f 70 69  6e 25 70 68 6f 6e 65 6e  |rcury_pin%phonen|
00000cd0  75 6d 29 20 72 65 74 75  72 6e 20 30 0a 0a 23 0a  |um) return 0..#.|
00000ce0  23 20 61 72 72 69 76 65  20 68 65 72 65 20 69 66  |# arrive here if|
00000cf0  20 64 69 61 6c 20 73 75  63 63 65 65 64 65 64 0a  | dial succeeded.|
00000d00  23 20 67 65 74 20 75 73  65 72 6e 61 6d 65 2f 70  |# get username/p|
00000d10  61 73 73 77 6f 72 64 20  70 72 6f 6d 70 74 73 20  |assword prompts |
00000d20  74 6f 20 61 75 74 68 65  6e 74 69 63 61 74 65 20  |to authenticate |
00000d30  73 65 6c 66 20 74 6f 20  73 65 72 76 65 72 2e 0a  |self to server..|
00000d40  23 20 61 66 74 65 72 20  65 61 63 68 20 70 72 6f  |# after each pro|
00000d50  6d 70 74 2c 20 72 65 74  75 72 6e 20 74 6f 20 6d  |mpt, return to m|
00000d60  61 69 6e 20 6d 65 6e 75  20 69 66 20 66 61 69 6c  |ain menu if fail|
00000d70  65 64 2e 0a 23 0a 0a 23  20 69 6e 69 74 69 61 6c  |ed..#..# initial|
00000d80  69 73 65 20 74 69 6d 65  72 20 66 6f 72 20 63 61  |ise timer for ca|
00000d90  6c 6c 20 63 6f 73 74 0a  23 73 65 74 20 63 6f 73  |ll cost.#set cos|
00000da0  74 73 74 72 74 20 25 24  74 69 6d 65 0a 0a 69 66  |tstrt %$time..if|
00000db0  20 28 21 77 61 69 74 20  2f 64 65 6c 3d 32 30 20  | (!wait /del=20 |
00000dc0  6f 67 69 6e 3a 29 20 67  6f 74 6f 20 62 61 64 5f  |ogin:) goto bad_|
00000dd0  66 69 6e 69 73 68 0a 73  65 6e 64 20 25 6e 6f 64  |finish.send %nod|
00000de0  65 6e 61 6d 65 0a 0a 69  66 20 28 21 77 61 69 74  |ename..if (!wait|
00000df0  20 2f 64 65 6c 3d 32 30  20 77 6f 72 64 3a 29 20  | /del=20 word:) |
00000e00  67 6f 74 6f 20 62 61 64  5f 66 69 6e 69 73 68 0a  |goto bad_finish.|
00000e10  73 65 6e 64 20 25 70 61  73 73 77 6f 72 64 0a 0a  |send %password..|
00000e20  69 66 20 28 21 77 61 69  74 20 2f 64 65 6c 3d 35  |if (!wait /del=5|
00000e30  30 20 6f 63 6f 6c 3a 29  20 67 6f 74 6f 20 62 61  |0 ocol:) goto ba|
00000e40  64 5f 66 69 6e 69 73 68  0a 73 65 6e 64 20 25 70  |d_finish.send %p|
00000e50  72 6f 74 6f 63 6f 6c 0a  0a 23 6d 65 73 73 61 67  |rotocol..#messag|
00000e60  65 20 2f 63 61 70 74 75  72 65 3d 22 49 50 22 20  |e /capture="IP" |
00000e70  2f 65 6e 64 3d 22 48 45  4c 4c 4f 22 20 2f 6d 61  |/end="HELLO" /ma|
00000e80  78 6c 69 6e 65 73 3d 37  20 2f 63 65 6e 74 72 65  |xlines=7 /centre|
00000e90  0a 23 69 70 67 65 74 20  31 35 38 2e 0a 23 69 66  |.#ipget 158..#if|
00000ea0  20 28 21 77 61 69 74 20  2f 64 65 6c 3d 33 30 20  | (!wait /del=30 |
00000eb0  48 45 4c 4c 4f 29 20 72  65 74 75 72 6e 20 30 0a  |HELLO) return 0.|
00000ec0  0a 23 77 61 69 74 20 2f  64 65 6c 61 79 3d 31 30  |.#wait /delay=10|
00000ed0  20 22 61 20 77 68 69 6c  65 22 0a 74 61 73 6b 20  | "a while".task |
00000ee0  2f 6e 61 6d 65 3d 22 54  43 50 2f 49 50 22 20 3c  |/name="TCP/IP" <|
00000ef0  54 43 50 49 50 32 24 64  69 72 3e 2e 21 52 75 6e  |TCPIP2$dir>.!Run|
00000f00  0a 0a 23 20 77 61 74 63  68 20 6f 75 74 20 66 6f  |..# watch out fo|
00000f10  72 20 63 61 72 72 69 65  72 20 64 65 74 65 63 74  |r carrier detect|
00000f20  20 74 6f 20 67 6f 20 6c  6f 77 0a 61 6c 61 72 6d  | to go low.alarm|
00000f30  20 2f 64 63 64 20 22 67  6f 74 6f 20 67 6f 6f 64  | /dcd "goto good|
00000f40  5f 66 69 6e 69 73 68 22  0a 3a 6c 6f 6f 70 32 0a  |_finish".:loop2.|
00000f50  77 61 69 74 20 2f 65 76  65 6e 74 0a 67 6f 74 6f  |wait /event.goto|
00000f60  20 6c 6f 6f 70 32 0a 0a  23 0a 23 20 43 61 6c 6c  | loop2..#.# Call|
00000f70  20 68 61 73 20 62 65 65  6e 20 66 69 6e 69 73 68  | has been finish|
00000f80  65 64 20 73 75 63 63 65  73 73 66 75 6c 6c 79 2c  |ed successfully,|
00000f90  20 73 6f 20 72 65 6c 65  61 73 65 20 74 68 65 20  | so release the |
00000fa0  70 6f 72 74 0a 23 0a 3a  67 6f 6f 64 5f 66 69 6e  |port.#.:good_fin|
00000fb0  69 73 68 0a 74 61 73 6b  20 2f 6b 69 6c 6c 3d 22  |ish.task /kill="|
00000fc0  54 43 50 2f 49 50 22 0a  6d 65 73 73 61 67 65 20  |TCP/IP".message |
00000fd0  2f 63 6c 6f 73 65 0a 6d  65 73 73 61 67 65 20 22  |/close.message "|
00000fe0  43 61 6c 6c 20 66 69 6e  69 73 68 65 64 20 73 75  |Call finished su|
00000ff0  63 63 65 73 73 66 75 6c  6c 79 22 20 2f 63 65 6e  |ccessfully" /cen|
00001000  74 72 65 0a 72 65 6c 65  61 73 65 0a 63 61 6c 6c  |tre.release.call|
00001010  20 63 6f 73 74 63 61 6c  63 0a 0a 23 20 6e 6f 77  | costcalc..# now|
00001020  20 70 61 75 73 65 20 66  6f 72 20 32 20 73 65 63  | pause for 2 sec|
00001030  6f 6e 64 73 20 74 6f 20  61 6c 6c 6f 77 20 52 49  |onds to allow RI|
00001040  53 43 20 4f 53 20 74 6f  20 73 6f 72 74 20 6f 75  |SC OS to sort ou|
00001050  74 20 74 68 65 20 64 69  73 70 6c 61 79 2e 0a 70  |t the display..p|
00001060  61 75 73 65 20 32 0a 0a  23 0a 23 20 43 6f 6d 70  |ause 2..#.# Comp|
00001070  75 74 65 20 74 68 65 20  6e 65 77 73 20 74 72 61  |ute the news tra|
00001080  6e 73 66 65 72 20 72 61  74 65 2c 20 61 6e 64 20  |nsfer rate, and |
00001090  64 69 73 70 6c 61 79 20  69 74 2e 0a 23 0a 23 20  |display it..#.# |
000010a0  54 68 69 73 20 77 6f 75  6c 64 20 70 72 6f 62 61  |This would proba|
000010b0  62 6c 79 20 67 6f 20 77  72 6f 6e 67 20 69 66 20  |bly go wrong if |
000010c0  74 68 65 20 44 65 6d 4e  65 77 73 20 66 69 6c 65  |the DemNews file|
000010d0  20 73 74 69 6c 6c 20 65  78 69 73 74 65 64 20 66  | still existed f|
000010e0  72 6f 6d 0a 23 20 61 20  70 72 65 76 69 6f 75 73  |rom.# a previous|
000010f0  20 63 61 6c 6c 2c 20 69  2e 65 2e 20 6f 6c 64 20  | call, i.e. old |
00001100  6e 65 77 73 20 68 61 64  6e 27 74 20 62 65 65 6e  |news hadn't been|
00001110  20 74 72 61 6e 73 66 65  72 72 65 64 20 6f 75 74  | transferred out|
00001120  20 6f 66 20 74 68 65 0a  23 20 4d 61 69 6c 24 44  | of the.# Mail$D|
00001130  69 72 20 64 69 72 65 63  74 6f 72 79 2e 20 20 54  |ir directory.  T|
00001140  68 69 73 20 73 68 6f 75  6c 64 6e 27 74 20 68 61  |his shouldn't ha|
00001150  70 70 65 6e 20 69 66 20  74 68 69 73 20 73 63 72  |ppen if this scr|
00001160  69 70 74 20 69 73 20 61  6c 77 61 79 73 20 75 73  |ipt is always us|
00001170  65 64 0a 23 20 61 73 20  69 74 20 61 75 74 6f 6d  |ed.# as it autom|
00001180  61 74 69 63 61 6c 6c 79  20 75 73 65 73 20 74 68  |atically uses th|
00001190  65 20 63 6f 6e 76 6d 61  69 6c 20 70 72 6f 63 65  |e convmail proce|
000011a0  64 75 72 65 20 74 6f 20  6d 6f 76 65 20 6e 65 77  |dure to move new|
000011b0  20 6e 65 77 73 20 69 6e  74 6f 0a 23 20 52 65 61  | news into.# Rea|
000011c0  64 4e 65 77 73 20 66 6f  72 6d 61 74 2e 0a 23 0a  |dNews format..#.|
000011d0  0a 23 20 43 68 65 63 6b  20 69 66 20 74 68 65 20  |.# Check if the |
000011e0  6e 65 77 73 20 66 69 6c  65 20 65 78 69 73 74 73  |news file exists|
000011f0  2e 0a 73 65 74 20 6e 65  77 73 45 78 69 73 74 73  |..set newsExists|
00001200  20 7b 3f 66 69 6c 65 20  3c 4d 61 69 6c 24 44 69  | {?file <Mail$Di|
00001210  72 3e 2e 66 6f 6c 64 65  72 2e 44 65 6d 4e 65 77  |r>.folder.DemNew|
00001220  73 7d 0a 63 61 73 65 20  25 6e 65 77 73 45 78 69  |s}.case %newsExi|
00001230  73 74 73 0a 77 68 65 6e  20 31 20 32 20 33 3b 20  |sts.when 1 2 3; |
00001240  73 65 74 20 6e 72 61 74  65 20 7b 6e 65 77 73 72  |set nrate {newsr|
00001250  61 74 65 20 44 65 6d 7d  3b 20 6d 65 73 73 61 67  |ate Dem}; messag|
00001260  65 20 22 6e 65 77 73 20  72 61 74 65 20 25 6e 72  |e "news rate %nr|
00001270  61 74 65 20 63 70 73 22  20 2f 63 65 6e 74 72 65  |ate cps" /centre|
00001280  0a 77 68 65 6e 20 30 3b  20 6d 65 73 73 61 67 65  |.when 0; message|
00001290  20 22 6e 6f 20 6e 65 77  73 20 64 6f 77 6e 6c 6f  | "no news downlo|
000012a0  61 64 65 64 22 20 2f 63  65 6e 74 72 65 0a 65 6e  |aded" /centre.en|
000012b0  64 63 61 73 65 0a 75 6e  73 65 74 20 6e 65 77 73  |dcase.unset news|
000012c0  45 78 69 73 74 73 0a 75  6e 73 65 74 20 6e 72 61  |Exists.unset nra|
000012d0  74 65 0a 0a 23 0a 23 20  46 6f 6c 6c 6f 77 69 6e  |te..#.# Followin|
000012e0  67 20 73 6d 61 6c 6c 20  73 65 63 74 69 6f 6e 20  |g small section |
000012f0  69 73 20 66 6f 72 20 75  73 65 72 73 20 6f 66 20  |is for users of |
00001300  21 52 65 61 64 4e 65 77  73 20 26 20 21 52 75 63  |!ReadNews & !Ruc|
00001310  70 20 26 20 52 4e 20 46  69 6c 74 65 72 73 0a 23  |p & RN Filters.#|
00001320  20 3c 49 6e 74 65 72 6e  65 74 24 44 69 72 3e 20  | <Internet$Dir> |
00001330  73 68 6f 75 6c 64 20 62  65 20 73 65 74 20 74 6f  |should be set to|
00001340  20 64 69 72 65 63 74 6f  72 79 20 77 68 65 72 65  | directory where|
00001350  20 61 6c 6c 20 6f 66 20  61 62 6f 76 65 20 63 61  | all of above ca|
00001360  6e 20 62 65 20 66 6f 75  6e 64 2e 0a 23 0a 23 74  |n be found..#.#t|
00001370  61 73 6b 20 22 3c 49 6e  74 65 72 6e 65 74 24 44  |ask "<Internet$D|
00001380  69 72 3e 2e 6b 61 39 71  2d 3e 72 75 63 70 20 7b  |ir>.ka9q->rucp {|
00001390  20 3e 20 6e 75 6c 6c 3a  20 7d 22 0a 23 74 61 73  | > null: }".#tas|
000013a0  6b 20 22 3c 49 6e 74 65  72 6e 65 74 24 44 69 72  |k "<Internet$Dir|
000013b0  3e 2e 21 49 6e 63 6f 72  70 2e 21 52 75 6e 22 0a  |>.!Incorp.!Run".|
000013c0  74 61 73 6b 20 2f 6e 61  6d 65 3d 22 54 54 46 4e  |task /name="TTFN|
000013d0  22 20 3c 54 54 46 4e 24  44 69 72 3e 2e 21 52 75  |" <TTFN$Dir>.!Ru|
000013e0  6e 0a 74 61 73 6b 20 2f  6e 61 6d 65 3d 22 4e 65  |n.task /name="Ne|
000013f0  77 73 62 61 73 65 22 20  3c 4e 65 77 73 42 61 73  |wsbase" <NewsBas|
00001400  65 24 44 69 72 3e 2e 21  52 75 6e 0a 0a 23 6e 6f  |e$Dir>.!Run..#no|
00001410  77 20 74 72 69 6d 20 44  65 6d 48 69 73 74 20 46  |w trim DemHist F|
00001420  69 6c 65 0a 63 61 6c 6c  20 74 72 69 6d 66 69 6c  |ile.call trimfil|
00001430  65 20 3c 4e 4e 54 50 24  44 69 72 3e 2e 44 65 6d  |e <NNTP$Dir>.Dem|
00001440  48 69 73 74 0a 72 65 74  75 72 6e 20 31 0a 0a 23  |Hist.return 1..#|
00001450  0a 23 20 43 61 6c 6c 20  66 61 69 6c 65 64 20 69  |.# Call failed i|
00001460  6e 20 73 6f 6d 65 20 77  61 79 0a 23 0a 3a 62 61  |n some way.#.:ba|
00001470  64 5f 66 69 6e 69 73 68  0a 6d 65 73 73 61 67 65  |d_finish.message|
00001480  20 22 43 61 6c 6c 20 73  65 74 75 70 20 66 61 69  | "Call setup fai|
00001490  6c 65 64 22 20 2f 63 65  6e 74 72 65 0a 72 65 6c  |led" /centre.rel|
000014a0  65 61 73 65 0a 63 61 6c  6c 20 63 6f 73 74 63 61  |ease.call costca|
000014b0  6c 63 0a 6d 65 73 73 61  67 65 2f 63 6c 6f 73 65  |lc.message/close|
000014c0  0a 72 65 74 75 72 6e 20  30 0a 0a 23 2d 2d 2d 2d  |.return 0..#----|
000014d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001500  2d 2d 2d 2d 2d 2d 2d 0a  23 20 53 75 62 72 6f 75  |-------.# Subrou|
00001510  74 69 6e 65 3a 20 63 6f  6e 76 6d 61 69 6c 0a 23  |tine: convmail.#|
00001520  20 43 6f 6e 76 65 72 74  20 6d 61 69 6c 20 62 65  | Convert mail be|
00001530  74 77 65 65 6e 20 72 75  63 70 20 61 6e 64 20 6b  |tween rucp and k|
00001540  61 39 71 20 66 6f 72 6d  61 74 73 2e 0a 23 20 61  |a9q formats..# a|
00001550  62 6f 76 65 2e 20 20 48  6f 77 65 76 65 72 20 69  |bove.  However i|
00001560  74 20 66 69 6e 61 6c 6c  79 20 72 65 74 75 72 6e  |t finally return|
00001570  73 20 74 6f 20 74 68 65  20 6d 61 69 6e 20 77 61  |s to the main wa|
00001580  69 74 69 6e 67 0a 23 20  6c 6f 6f 70 2e 0a 23 2d  |iting.# loop..#-|
00001590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000015c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 3a 63 6f 6e 76  |----------.:conv|
000015d0  6d 61 69 6c 0a 23 74 61  73 6b 20 22 3c 49 6e 74  |mail.#task "<Int|
000015e0  65 72 6e 65 74 24 44 69  72 3e 2e 72 75 63 70 2d  |ernet$Dir>.rucp-|
000015f0  3e 6b 61 39 71 20 7b 20  3e 20 6e 75 6c 6c 3a 20  |>ka9q { > null: |
00001600  7d 22 0a 72 65 74 75 72  6e 20 31 0a 0a 23 2d 2d  |}".return 1..#--|
00001610  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001640  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 23 20 53 75 62 72  |---------.# Subr|
00001650  6f 75 74 69 6e 65 3a 20  74 72 69 6d 66 69 6c 65  |outine: trimfile|
00001660  0a 23 20 54 72 69 6d 20  61 20 73 70 65 63 69 66  |.# Trim a specif|
00001670  69 65 64 20 68 69 73 74  6f 72 79 20 66 69 6c 65  |ied history file|
00001680  2e 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..#-------------|
00001690  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000016b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 3a  |--------------.:|
000016c0  74 72 69 6d 66 69 6c 65  0a 69 66 20 28 3f 6c 74  |trimfile.if (?lt|
000016d0  20 7b 3f 66 69 6c 65 2f  73 69 7a 65 20 25 70 31  | {?file/size %p1|
000016e0  7d 20 35 30 30 30 29 20  72 65 74 75 72 6e 0a 63  |} 5000) return.c|
000016f0  6f 70 79 2f 74 61 69 6c  3d 32 30 30 20 25 70 31  |opy/tail=200 %p1|
00001700  20 25 70 31 2d 54 3b 64  65 6c 65 74 65 20 25 70  | %p1-T;delete %p|
00001710  31 3b 6d 6f 76 65 20 25  70 31 2d 54 20 25 70 31  |1;move %p1-T %p1|
00001720  0a 72 65 74 75 72 6e 20  31 0a 0a 23 2d 2d 2d 2d  |.return 1..#----|
00001730  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001760  2d 2d 2d 2d 2d 2d 2d 0a  23 20 53 75 62 72 6f 75  |-------.# Subrou|
00001770  74 69 6e 65 3a 20 63 6f  73 74 63 61 6c 63 0a 23  |tine: costcalc.#|
00001780  20 43 6f 6d 70 75 74 65  20 74 68 65 20 63 6f 73  | Compute the cos|
00001790  74 20 6f 66 20 74 68 65  20 63 61 6c 6c 20 61 73  |t of the call as|
000017a0  20 66 61 72 20 61 73 20  70 6f 73 73 69 62 6c 65  | far as possible|
000017b0  2e 0a 23 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..#-------------|
000017c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000017e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 3a  |--------------.:|
000017f0  63 6f 73 74 63 61 6c 63  0a 73 65 74 20 63 6f 73  |costcalc.set cos|
00001800  74 65 6e 64 20 25 24 74  69 6d 65 0a 73 65 74 20  |tend %$time.set |
00001810  63 6f 73 74 6c 65 6e 20  7b 65 76 61 6c 20 22 25  |costlen {eval "%|
00001820  63 6f 73 74 65 6e 64 2d  25 63 6f 73 74 73 74 72  |costend-%coststr|
00001830  74 22 7d 0a 75 6e 73 65  74 20 63 6f 73 74 65 6e  |t"}.unset costen|
00001840  64 0a 72 65 74 75 72 6e  20 31 0a 0a 23 2d 2d 2d  |d.return 1..#---|
00001850  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001880  2d 2d 2d 2d 2d 2d 2d 2d  0a 23 20 53 75 62 72 6f  |--------.# Subro|
00001890  75 74 69 6e 65 3a 20 4d  65 72 63 75 72 79 0a 23  |utine: Mercury.#|
000018a0  20 54 6f 67 67 6c 65 20  74 68 65 20 6d 65 72 63  | Toggle the merc|
000018b0  75 72 79 20 73 77 69 74  63 68 0a 23 2d 2d 2d 2d  |ury switch.#----|
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 0a  3a 6d 65 72 63 75 72 79  |-------.:mercury|
00001900  0a 69 66 20 28 3f 65 71  20 25 6d 65 72 63 75 72  |.if (?eq %mercur|
00001910  79 5f 70 69 6e 20 25 6d  65 72 63 75 72 79 29 20  |y_pin %mercury) |
00001920  67 6f 74 6f 20 6d 65 72  63 75 72 79 5f 6f 66 66  |goto mercury_off|
00001930  0a 23 20 53 65 74 20 74  68 65 20 4d 65 72 63 75  |.# Set the Mercu|
00001940  72 79 20 73 77 69 74 63  68 20 74 6f 20 4f 4e 2e  |ry switch to ON.|
00001950  0a 3a 6d 65 72 63 75 72  79 5f 6f 6e 0a 69 63 6f  |.:mercury_on.ico|
00001960  6e 20 2f 69 64 3d 22 4d  65 72 63 75 72 79 22 20  |n /id="Mercury" |
00001970  2f 61 63 74 69 6f 6e 3d  22 63 61 6c 6c 20 6d 65  |/action="call me|
00001980  72 63 75 72 79 22 20 68  67 6f 6e 0a 73 65 74 20  |rcury" hgon.set |
00001990  6d 65 72 63 75 72 79 5f  70 69 6e 20 25 6d 65 72  |mercury_pin %mer|
000019a0  63 75 72 79 0a 67 6f 74  6f 20 6d 65 72 63 75 72  |cury.goto mercur|
000019b0  79 5f 72 65 74 75 72 6e  0a 23 20 65 6c 73 65 20  |y_return.# else |
000019c0  53 65 74 20 74 68 65 20  4d 65 72 63 75 72 79 20  |Set the Mercury |
000019d0  73 77 69 74 63 68 20 74  6f 20 4f 46 46 2e 0a 3a  |switch to OFF..:|
000019e0  6d 65 72 63 75 72 79 5f  6f 66 66 0a 69 63 6f 6e  |mercury_off.icon|
000019f0  20 2f 69 64 3d 22 4d 65  72 63 75 72 79 22 20 2f  | /id="Mercury" /|
00001a00  61 63 74 69 6f 6e 3d 22  63 61 6c 6c 20 6d 65 72  |action="call mer|
00001a10  63 75 72 79 22 20 68 67  6f 66 66 0a 73 65 74 20  |cury" hgoff.set |
00001a20  6d 65 72 63 75 72 79 5f  70 69 6e 20 22 22 0a 3a  |mercury_pin "".:|
00001a30  6d 65 72 63 75 72 79 5f  72 65 74 75 72 6e 0a 72  |mercury_return.r|
00001a40  65 74 75 72 6e 20 31 0a  0a 23 2d 2d 2d 2d 2d 2d  |eturn 1..#------|
00001a50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001a80  2d 2d 2d 2d 2d 0a 23 20  53 75 62 72 6f 75 74 69  |-----.# Subrouti|
00001a90  6e 65 3a 20 6d 61 6b 65  6d 65 6e 75 73 0a 23 20  |ne: makemenus.# |
00001aa0  44 65 66 69 6e 65 73 20  74 68 65 20 6d 65 6e 75  |Defines the menu|
00001ab0  73 20 66 6f 72 20 64 69  61 6c 6c 69 6e 67 20 65  |s for dialling e|
00001ac0  74 63 2e 0a 23 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |tc..#-----------|
00001ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001b00  0a 3a 6d 61 6b 65 6d 65  6e 75 73 0a 6d 65 6e 75  |.:makemenus.menu|
00001b10  20 22 45 78 65 74 65 72  3a 63 61 6c 6c 20 65 78  | "Exeter:call ex|
00001b20  65 22 0a 6d 65 6e 75 20  2f 69 63 6f 6e 3d 22 4d  |e".menu /icon="M|
00001b30  65 72 63 75 72 79 22 20  22 4d 65 72 63 75 72 79  |ercury" "Mercury|
00001b40  20 4f 6e 3a 63 61 6c 6c  20 6d 65 72 63 75 72 79  | On:call mercury|
00001b50  5f 6f 6e 22 20 22 4d 65  72 63 75 72 79 20 4f 66  |_on" "Mercury Of|
00001b60  66 3a 63 61 6c 6c 20 6d  65 72 63 75 72 79 5f 6f  |f:call mercury_o|
00001b70  66 66 22 0a 72 65 74 75  72 6e 20 31 0a 0a 23 2d  |ff".return 1..#-|
00001b80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001bb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 23 20 53 75 62  |----------.# Sub|
00001bc0  72 6f 75 74 69 6e 65 3a  20 73 65 74 73 65 72 69  |routine: setseri|
00001bd0  61 6c 0a 23 20 53 65 74  20 53 65 72 69 61 6c 20  |al.# Set Serial |
00001be0  50 6f 72 74 2f 44 72 69  76 65 72 20 50 61 72 61  |Port/Driver Para|
00001bf0  6d 65 74 65 72 73 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |meters.#--------|
00001c00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c30  2d 2d 2d 0a 3a 73 65 74  73 65 72 69 61 6c 0a 64  |---.:setserial.d|
00001c40  72 69 76 65 72 20 68 61  79 65 73 0a 70 6f 72 74  |river hayes.port|
00001c50  20 25 77 70 6f 72 74 20  25 70 72 74 6e 75 6d 0a  | %wport %prtnum.|
00001c60  73 70 65 65 64 20 25 73  70 65 65 64 0a 73 65 74  |speed %speed.set|
00001c70  20 70 72 6f 74 6f 63 6f  6c 20 73 6c 69 70 0a 72  | protocol slip.r|
00001c80  65 74 75 72 6e 20 31 0a  0a 23 2d 2d 2d 2d 2d 2d  |eturn 1..#------|
00001c90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001cc0  2d 2d 2d 2d 2d 0a 23 20  53 75 62 72 6f 75 74 69  |-----.# Subrouti|
00001cd0  6e 65 3a 20 73 65 74 75  70 31 0a 23 20 43 61 6c  |ne: setup1.# Cal|
00001ce0  6c 65 64 20 74 6f 20 73  65 74 75 70 20 64 65 66  |led to setup def|
00001cf0  61 75 6c 74 73 20 69 66  20 6e 6f 20 63 6f 6e 66  |aults if no conf|
00001d00  69 67 75 72 61 74 69 6f  6e 20 66 69 6c 65 20 70  |iguration file p|
00001d10  72 65 73 65 6e 74 2e 0a  23 2d 2d 2d 2d 2d 2d 2d  |resent..#-------|
00001d20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001d50  2d 2d 2d 2d 0a 3a 73 65  74 75 70 31 0a 69 6e 70  |----.:setup1.inp|
00001d60  75 74 2f 70 72 6f 6d 70  74 3d 22 45 6e 74 65 72  |ut/prompt="Enter|
00001d70  20 53 65 72 69 61 6c 20  42 6c 6f 63 6b 20 44 72  | Serial Block Dr|
00001d80  69 76 65 72 20 4e 61 6d  65 22 20 77 70 6f 72 74  |iver Name" wport|
00001d90  0a 69 6e 70 75 74 2f 70  72 6f 6d 70 74 3d 22 45  |.input/prompt="E|
00001da0  6e 74 65 72 20 53 65 72  69 61 6c 20 50 6f 72 74  |nter Serial Port|
00001db0  20 4e 75 6d 62 65 72 20  28 69 66 20 72 65 6c 65  | Number (if rele|
00001dc0  76 61 6e 74 29 22 20 70  72 74 6e 75 6d 0a 69 6e  |vant)" prtnum.in|
00001dd0  70 75 74 2f 70 72 6f 6d  70 74 3d 22 45 6e 74 65  |put/prompt="Ente|
00001de0  72 20 59 6f 75 72 20 4d  6f 64 65 6d 2d 3e 43 6f  |r Your Modem->Co|
00001df0  6d 70 75 74 65 72 20 53  70 65 65 64 20 28 62 70  |mputer Speed (bp|
00001e00  73 29 3a 22 20 73 70 65  65 64 0a 69 6e 70 75 74  |s):" speed.input|
00001e10  2f 70 72 6f 6d 70 74 3d  22 45 6e 74 65 72 20 59  |/prompt="Enter Y|
00001e20  6f 75 72 20 5a 79 6e 65  74 20 4e 6f 64 65 6e 61  |our Zynet Nodena|
00001e30  6d 65 3a 22 20 6e 6f 64  65 6e 61 6d 65 0a 69 6e  |me:" nodename.in|
00001e40  70 75 74 2f 70 72 6f 6d  70 74 3d 22 45 6e 74 65  |put/prompt="Ente|
00001e50  72 20 59 6f 75 72 20 50  61 73 73 77 6f 72 64 3a  |r Your Password:|
00001e60  22 20 70 61 73 73 77 6f  72 64 0a 69 6e 70 75 74  |" password.input|
00001e70  2f 70 72 6f 6d 70 74 3d  22 45 6e 74 65 72 20 59  |/prompt="Enter Y|
00001e80  6f 75 72 20 4d 65 72 63  75 72 79 20 50 49 4e 3a  |our Mercury PIN:|
00001e90  22 20 6d 65 72 63 75 72  79 0a 6f 70 65 6e 2f 69  |" mercury.open/i|
00001ea0  64 3d 63 6f 6e 66 2f 77  72 69 74 65 20 25 66 69  |d=conf/write %fi|
00001eb0  6c 65 6e 61 6d 65 0a 77  72 69 74 65 2f 69 64 3d  |lename.write/id=|
00001ec0  63 6f 6e 66 20 25 77 70  6f 72 74 0a 77 72 69 74  |conf %wport.writ|
00001ed0  65 2f 69 64 3d 63 6f 6e  66 20 25 70 72 74 6e 75  |e/id=conf %prtnu|
00001ee0  6d 0a 77 72 69 74 65 2f  69 64 3d 63 6f 6e 66 20  |m.write/id=conf |
00001ef0  25 73 70 65 65 64 0a 77  72 69 74 65 2f 69 64 3d  |%speed.write/id=|
00001f00  63 6f 6e 66 20 25 6e 6f  64 65 6e 61 6d 65 0a 77  |conf %nodename.w|
00001f10  72 69 74 65 2f 69 64 3d  63 6f 6e 66 20 25 70 61  |rite/id=conf %pa|
00001f20  73 73 77 6f 72 64 0a 77  72 69 74 65 2f 69 64 3d  |ssword.write/id=|
00001f30  63 6f 6e 66 20 25 6d 65  72 63 75 72 79 0a 63 6c  |conf %mercury.cl|
00001f40  6f 73 65 2f 69 64 3d 63  6f 6e 66 0a 72 65 74 75  |ose/id=conf.retu|
00001f50  72 6e 20 31 0a 0a 23 2d  2d 2d 2d 2d 2d 2d 2d 2d  |rn 1..#---------|
00001f60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001f90  2d 2d 0a 23 20 53 75 62  72 6f 75 74 69 6e 65 3a  |--.# Subroutine:|
00001fa0  20 63 6f 6e 66 69 67 75  72 65 0a 23 20 54 68 69  | configure.# Thi|
00001fb0  73 20 6c 6f 61 64 73 20  70 61 73 73 77 6f 72 64  |s loads password|
00001fc0  20 63 6f 6e 66 69 67 20  66 72 6f 6d 20 66 69 6c  | config from fil|
00001fd0  65 20 6f 72 20 70 72 6f  6d 70 74 73 20 66 6f 72  |e or prompts for|
00001fe0  20 64 61 74 61 0a 23 20  74 6f 20 63 72 65 61 74  | data.# to creat|
00001ff0  65 20 66 69 6c 65 2e 0a  23 2d 2d 2d 2d 2d 2d 2d  |e file..#-------|
00002000  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002030  2d 2d 2d 2d 0a 3a 63 6f  6e 66 69 67 75 72 65 0a  |----.:configure.|
00002040  73 65 74 20 66 69 6c 65  6e 61 6d 65 20 7b 3f 66  |set filename {?f|
00002050  69 6c 65 2f 65 78 70 61  6e 64 20 73 6c 69 70 64  |ile/expand slipd|
00002060  69 61 6c 3a 5a 79 6e 65  74 63 6f 6e 66 67 7d 0a  |ial:Zynetconfg}.|
00002070  69 66 20 28 21 3f 66 69  6c 65 20 25 66 69 6c 65  |if (!?file %file|
00002080  6e 61 6d 65 29 20 63 61  6c 6c 20 73 65 74 75 70  |name) call setup|
00002090  31 0a 6f 70 65 6e 2f 72  65 61 64 2f 69 64 3d 63  |1.open/read/id=c|
000020a0  6f 6e 66 2f 65 72 72 6f  72 3d 22 72 65 74 75 72  |onf/error="retur|
000020b0  6e 22 20 25 66 69 6c 65  6e 61 6d 65 0a 72 65 61  |n" %filename.rea|
000020c0  64 2f 69 64 3d 63 6f 6e  66 2f 65 6f 66 3d 22 67  |d/id=conf/eof="g|
000020d0  6f 74 6f 20 63 6c 6f 73  65 63 6f 6e 66 22 20 77  |oto closeconf" w|
000020e0  70 6f 72 74 0a 72 65 61  64 2f 69 64 3d 63 6f 6e  |port.read/id=con|
000020f0  66 2f 65 6f 66 3d 22 67  6f 74 6f 20 63 6c 6f 73  |f/eof="goto clos|
00002100  65 63 6f 6e 66 22 20 70  72 74 6e 75 6d 0a 72 65  |econf" prtnum.re|
00002110  61 64 2f 69 64 3d 63 6f  6e 66 2f 65 6f 66 3d 22  |ad/id=conf/eof="|
00002120  67 6f 74 6f 20 63 6c 6f  73 65 63 6f 6e 66 22 20  |goto closeconf" |
00002130  73 70 65 65 64 0a 72 65  61 64 2f 69 64 3d 63 6f  |speed.read/id=co|
00002140  6e 66 2f 65 6f 66 3d 22  67 6f 74 6f 20 63 6c 6f  |nf/eof="goto clo|
00002150  73 65 63 6f 6e 66 22 20  6e 6f 64 65 6e 61 6d 65  |seconf" nodename|
00002160  0a 72 65 61 64 2f 69 64  3d 63 6f 6e 66 2f 65 6f  |.read/id=conf/eo|
00002170  66 3d 22 67 6f 74 6f 20  63 6c 6f 73 65 63 6f 6e  |f="goto closecon|
00002180  66 22 20 70 61 73 73 77  6f 72 64 0a 72 65 61 64  |f" password.read|
00002190  2f 69 64 3d 63 6f 6e 66  2f 65 6f 66 3d 22 67 6f  |/id=conf/eof="go|
000021a0  74 6f 20 63 6c 6f 73 65  63 6f 6e 66 22 20 6d 65  |to closeconf" me|
000021b0  72 63 75 72 79 0a 3a 63  6c 6f 73 65 63 6f 6e 66  |rcury.:closeconf|
000021c0  0a 63 6c 6f 73 65 2f 69  64 3d 63 6f 6e 66 0a 72  |.close/id=conf.r|
000021d0  65 74 75 72 6e 0a 0a 23  2d 2d 2d 2d 2d 2d 2d 2d  |eturn..#--------|
000021e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002210  2d 2d 2d 0a 23 20 53 75  62 72 6f 75 74 69 6e 65  |---.# Subroutine|
00002220  3a 20 69 6e 69 74 4d 61  69 6e 0a 23 20 47 65 6e  |: initMain.# Gen|
00002230  65 72 61 6c 20 69 6e 69  74 69 61 6c 69 73 61 74  |eral initialisat|
00002240  69 6f 6e 2e 0a 23 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ion..#----------|
00002250  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002280  2d 0a 3a 69 6e 69 74 4d  61 69 6e 0a 23 20 72 65  |-.:initMain.# re|
00002290  6d 6f 76 65 20 63 6f 6d  6d 65 6e 74 20 66 72 6f  |move comment fro|
000022a0  6d 20 66 6f 6c 6c 6f 77  69 6e 67 20 6c 69 6e 65  |m following line|
000022b0  20 66 6f 72 20 74 72 61  63 69 6e 67 0a 23 74 72  | for tracing.#tr|
000022c0  61 63 65 20 22 53 6c 69  70 44 69 61 6c 3a 6c 6f  |ace "SlipDial:lo|
000022d0  67 6f 75 74 70 75 74 22  0a 64 65 62 75 67 20 33  |goutput".debug 3|
000022e0  0a 69 63 6f 6e 20 2f 66  69 6c 65 3d 22 53 6c 69  |.icon /file="Sli|
000022f0  70 44 69 61 6c 3a 5a 79  6e 65 74 53 70 72 22 0a  |pDial:ZynetSpr".|
00002300  73 65 74 20 6d 65 72 63  75 72 79 5f 70 69 6e 20  |set mercury_pin |
00002310  22 22 0a 23 0a 23 20 46  6f 6c 6c 6f 77 69 6e 67  |"".#.# Following|
00002320  20 6c 69 6e 65 73 20 77  69 6c 6c 20 68 61 76 65  | lines will have|
00002330  20 74 6f 20 62 65 20 73  65 74 75 70 20 66 6f 72  | to be setup for|
00002340  20 79 6f 75 72 20 6c 6f  63 61 74 69 6f 6e 20 69  | your location i|
00002350  6e 20 74 68 65 0a 23 20  63 6f 75 6e 74 72 79 2e  |n the.# country.|
00002360  0a 23 0a 23 20 44 65 66  61 75 6c 74 20 63 6f 73  |.#.# Default cos|
00002370  74 62 61 6e 64 2e 20 20  53 68 6f 75 6c 64 20 62  |tband.  Should b|
00002380  65 20 61 64 6a 75 73 74  65 64 20 66 6f 72 20 65  |e adjusted for e|
00002390  61 63 68 20 6d 65 6e 75  20 69 74 65 6d 20 77 68  |ach menu item wh|
000023a0  69 63 68 20 63 61 6e 0a  23 20 63 61 6c 6c 20 61  |ich can.# call a|
000023b0  20 6e 75 6d 62 65 72 20  28 73 65 65 20 73 75 62  | number (see sub|
000023c0  72 6f 75 74 69 6e 65 20  3a 6c 6f 6e 20 66 6f 72  |routine :lon for|
000023d0  20 69 6e 73 74 61 6e 63  65 29 2e 0a 73 65 74 20  | instance)..set |
000023e0  63 6f 73 74 62 61 6e 64  20 62 31 0a 72 65 74 75  |costband b1.retu|
000023f0  72 6e 20 31 0a 0a 0a 0a  20 20 2d 2d 2d 2d 2d 2d  |rn 1....  ------|
00002400  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002410  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 43 55 54 20 48 45  |--------- CUT HE|
00002420  52 45 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |RE -------------|
00002430  2d 2d 2d 2d 2d 2d 2d 2d  2d 0a 0a 0a 4d 65 72 6c  |---------...Merl|
00002440  79 6e 20 28 6d 65 72 6c  79 6e 40 7a 79 6e 65 74  |yn (merlyn@zynet|
00002450  2e 63 6f 2e 75 6b 29 0a  0a 0a                    |.co.uk)...|
0000245a