home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 44 01 00 00 54 03 00 00 |Archive.|D...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 53 6c 69 70 43 68 | 61 72 67 00 ff ff ff ff |.!SlipCh|arg.....|
|00000070| 46 ff ff ff 01 f7 1a 52 | 00 00 00 00 ff ff ff ff |F......R|........|
|00000080| 20 01 00 80 82 21 42 6f | 6f 74 00 00 00 00 00 00 | ....!Bo|ot......|
|00000090| 52 00 00 00 46 eb ff ff | 2d 65 a9 1c 03 00 ad d7 |R...F...|-e......|
|000000a0| 52 00 00 00 24 00 00 00 | 83 21 48 65 6c 70 00 00 |R...$...|.!Help..|
|000000b0| 00 00 00 00 2f 0c 00 00 | 46 ff ff ff cc d7 62 3c |..../...|F.....b<|
|000000c0| 03 00 16 e9 db 0b 00 00 | 9a 00 00 00 82 21 52 75 |........|.....!Ru|
|000000d0| 6e 00 00 00 00 00 00 00 | d5 00 00 00 46 eb ff ff |n.......|....F...|
|000000e0| 69 3e 1f 3e 33 00 1f c1 | d5 00 00 00 99 0c 00 00 |i>.>3...|........|
|000000f0| 83 21 52 75 6e 49 6d 61 | 67 65 00 00 db 1f 00 00 |.!RunIma|ge......|
|00000100| 46 fb ff ff 7e b1 1f 3f | 03 00 00 00 fd 1e 00 00 |F...~..?|........|
|00000110| 92 0d 00 00 83 21 53 70 | 72 69 74 65 73 00 00 00 |.....!Sp|rites...|
|00000120| e0 02 00 00 46 f9 ff ff | a0 26 a9 1c 03 00 84 6b |....F...|.&.....k|
|00000130| ae 01 00 00 b3 2c 00 00 | 83 50 61 72 61 6d 73 00 |.....,..|.Params.|
|00000140| 00 00 00 00 4b 05 00 00 | 46 ff ff ff 18 57 60 3c |....K...|F....W`<|
|00000150| 03 00 00 78 28 04 00 00 | 85 2e 00 00 00 21 48 65 |...x(...|.....!He|
|00000160| 6c 70 00 00 00 00 00 00 | 53 1b 00 00 70 9c e5 7e |lp......|S...p..~|
|00000170| 6f 8c e2 00 20 91 e5 00 | 00 57 e3 44 ac fc 09 00 |o... ...|.W.D....|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 00 00 00 00 00 | 52 00 00 00 46 eb ff ff |ot......|R...F...|
|00000370| 2d 65 a9 1c 03 00 ad d7 | 7c 20 53 6c 69 70 43 68 |-e......|| SlipCh|
|00000380| 61 72 67 20 42 6f 6f 74 | 0a 7c 0a 49 63 6f 6e 53 |arg Boot|.|.IconS|
|00000390| 70 72 69 74 65 73 20 3c | 4f 62 65 79 24 44 69 72 |prites <|Obey$Dir|
|000003a0| 3e 2e 21 53 70 72 69 74 | 65 73 0a 53 45 54 20 53 |>.!Sprit|es.SET S|
|000003b0| 6c 69 70 43 68 61 72 67 | 24 50 61 74 68 20 3c 4f |lipCharg|$Path <O|
|000003c0| 62 65 79 24 44 69 72 3e | 2e 0a 46 69 6c 65 44 61 |bey$Dir>|..FileDa|
|000003d0| 74 61 83 21 48 65 6c 70 | 00 00 00 00 00 00 2f 0c |ta.!Help|....../.|
|000003e0| 00 00 46 ff ff ff cc d7 | 62 3c 03 00 16 e9 21 53 |..F.....|b<....!S|
|000003f0| 6c 69 70 43 68 61 72 67 | 65 20 31 2e 31 30 20 20 |lipCharg|e 1.10 |
|00000400| 32 33 72 64 20 4a 75 6c | 79 20 31 39 39 35 0a 0a |23rd Jul|y 1995..|
|00000410| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 74 61 6b |This rou|tine tak|
|00000420| 65 73 20 74 68 65 20 21 | 53 6c 69 70 44 69 61 6c |es the !|SlipDial|
|00000430| 20 6c 6f 67 20 66 69 6c | 65 2c 20 61 6e 64 20 75 | log fil|e, and u|
|00000440| 73 65 73 20 69 74 20 74 | 6f 20 62 75 69 6c 64 20 |ses it t|o build |
|00000450| 61 20 66 69 6c 65 20 0a | 63 61 6c 6c 65 64 20 27 |a file .|called '|
|00000460| 43 6f 73 74 73 27 20 28 | 69 6e 20 74 68 65 20 21 |Costs' (|in the !|
|00000470| 53 6c 69 70 43 68 61 72 | 67 20 64 69 72 65 63 74 |SlipChar|g direct|
|00000480| 6f 72 79 29 2e 20 20 54 | 68 65 20 43 6f 73 74 73 |ory). T|he Costs|
|00000490| 20 66 69 6c 65 20 75 73 | 65 73 20 74 68 65 20 6f | file us|es the o|
|000004a0| 6e 6c 69 6e 65 0a 61 6e | 64 20 6f 66 66 6c 69 6e |nline.an|d offlin|
|000004b0| 65 20 72 65 63 6f 72 64 | 73 20 69 6e 20 74 68 65 |e record|s in the|
|000004c0| 20 21 53 6c 69 70 44 69 | 61 6c 20 6c 6f 67 20 66 | !SlipDi|al log f|
|000004d0| 69 6c 65 20 74 6f 20 63 | 61 6c 63 75 6c 61 74 65 |ile to c|alculate|
|000004e0| 20 74 68 65 20 63 6f 73 | 74 20 6f 66 20 74 68 65 | the cos|t of the|
|000004f0| 0a 63 61 6c 6c 2c 20 61 | 6e 64 20 61 6c 73 6f 20 |.call, a|nd also |
|00000500| 6d 61 69 6e 74 61 69 6e | 73 20 61 20 63 75 6d 75 |maintain|s a cumu|
|00000510| 6c 61 74 69 76 65 20 63 | 6f 73 74 2e 0a 0a 21 53 |lative c|ost...!S|
|00000520| 6c 69 70 44 69 61 6c 20 | 6c 6f 67 20 72 65 63 6f |lipDial |log reco|
|00000530| 72 64 73 20 66 6f 72 6d | 61 74 73 20 73 75 70 70 |rds form|ats supp|
|00000540| 6f 72 74 65 64 0a 23 20 | 39 35 30 35 32 35 20 31 |orted.# |950525 1|
|00000550| 38 33 90 03 31 20 6f 6e | 6c 69 6e 65 20 74 6f 20 |83..1 on|line to |
|00000560| 30 31 38 31 33 33 38 34 | 38 34 38 0a 23 20 39 35 |01813384|848.# 95|
|00000570| 30 35 32 35 20 31 39 32 | 35 30 36 20 6f 66 66 6c |0525 192|506 offl|
|00000580| 69 6e 65 20 61 66 74 65 | 72 20 30 30 3a 35 31 3a |ine afte|r 00:51:|
|00000590| 32 38 0a 20 4f 52 20 74 | 68 65 20 6f 6c 64 65 72 |28. OR t|he older|
|000005a0| 20 66 6f 72 6d 61 74 20 | 70 72 65 20 30 2e 33 34 | format |pre 0.34|
|000005b0| 64 0a 54 68 75 2c 31 38 | 20 4d 61 79 20 31 39 39 |d.Thu,18| May 199|
|000005c0| 35 2e 31 39 3a 31 33 3a | 33 38 3a 20 6f 6e 6c 69 |5.19:13:|38: onli|
|000005d0| 6e 65 20 74 6f 20 30 31 | 38 31 33 34 33 34 38 34 |ne to 01|81343484|
|000005e0| 38 0a 54 68 75 2c 31 38 | 20 4d 61 79 20 31 39 39 |8.Thu,18| May 199|
|000005f0| 35 2e 31 39 3a 32 38 3a | 33 39 3a 20 6f 66 66 6c |5.19:28:|39: offl|
|00000600| 69 6e 65 20 61 66 74 65 | 72 20 30 30 3a 31 34 3a |ine afte|r 00:14:|
|00000610| 35 38 0a 0a 21 53 6c 69 | 70 43 68 61 72 67 20 43 |58..!Sli|pCharg C|
|00000620| 6f 73 74 73 20 72 65 63 | 6f 72 64 0a 32 35 2f 30 |osts rec|ord.25/0|
|00000630| 35 2f 39 35 20 31 38 3a | 33 33 20 90 03 30 31 38 |5/95 18:|33 ..018|
|00000640| 31 33 33 38 34 38 34 38 | 20 20 30 30 3a 35 31 3a |13384848| 00:51:|
|00000650| 32 38 20 40 20 31 2e 34 | 30 70 20 90 03 38 34 2e |28 @ 1.4|0p ..84.|
|00000660| 36 70 20 20 43 75 6d 75 | 6c 61 74 69 76 65 20 90 |6p Cumu|lative .|
|00000670| 04 39 39 2e 34 70 0a 0a | 54 68 65 20 63 6f 73 74 |.99.4p..|The cost|
|00000680| 20 28 38 34 2e 36 70 29 | 20 69 6e 63 6c 75 64 65 | (84.6p)| include|
|00000690| 73 20 56 41 54 2c 20 74 | 68 65 20 72 61 74 65 20 |s VAT, t|he rate |
|000006a0| 28 31 2e 34 30 70 29 20 | 64 6f 65 73 20 6e 6f 74 |(1.40p) |does not|
|000006b0| 2e 0a 0a 54 6f 20 72 75 | 6e 20 21 53 6c 69 70 43 |...To ru|n !SlipC|
|000006c0| 68 61 72 67 65 20 6a 75 | 73 74 20 64 6f 75 62 6c |harge ju|st doubl|
|000006d0| 65 20 63 6c 69 63 6b 20 | 6f 6e 20 69 74 73 20 69 |e click |on its i|
|000006e0| 63 6f 6e 20 61 73 20 75 | 73 75 61 6c 2e 20 20 41 |con as u|sual. A|
|000006f0| 6e 20 69 63 6f 6e 20 77 | 69 6c 6c 0a 61 70 70 65 |n icon w|ill.appe|
|00000700| 61 72 20 6f 6e 20 74 68 | 65 20 69 63 6f 6e 20 62 |ar on th|e icon b|
|00000710| 61 72 20 66 6f 72 20 61 | 20 74 69 6d 65 20 61 6e |ar for a| time an|
|00000720| 64 20 74 68 65 6e 20 64 | 69 73 61 70 70 65 61 72 |d then d|isappear|
|00000730| 2e 20 20 4e 6f 74 65 3a | 20 74 68 69 73 20 69 63 |. Note:| this ic|
|00000740| 6f 6e 0a 69 73 20 4f 4e | 4c 59 20 74 6f 20 6c 65 |on.is ON|LY to le|
|00000750| 74 20 79 6f 75 20 6b 6e | 6f 77 20 77 68 65 6e 20 |t you kn|ow when |
|00000760| 21 53 6c 69 70 43 68 61 | 72 67 65 20 68 61 73 20 |!SlipCha|rge has |
|00000770| 66 69 6e 69 73 68 65 64 | 20 28 69 74 20 67 6f 65 |finished| (it goe|
|00000780| 73 20 61 77 61 79 20 74 | 68 65 6e 21 29 2e 20 0a |s away t|hen!). .|
|00000790| 49 20 68 61 76 65 20 6e | 6f 74 20 62 6f 74 68 65 |I have n|ot bothe|
|000007a0| 72 65 64 20 74 6f 20 6c | 6f 61 64 20 6d 65 6e 75 |red to l|oad menu|
|000007b0| 20 63 6f 64 65 20 73 6f | 20 63 6c 69 63 6b 69 6e | code so| clickin|
|000007c0| 67 20 6d 65 6e 75 20 6f | 6e 20 69 74 20 64 6f 65 |g menu o|n it doe|
|000007d0| 73 20 6e 6f 74 68 69 6e | 67 21 21 0a 49 66 20 74 |s nothin|g!!.If t|
|000007e0| 68 69 6e 67 73 20 67 6f | 20 77 72 6f 6e 67 20 61 |hings go| wrong a|
|000007f0| 6e 64 20 79 6f 75 20 6e | 65 65 64 20 74 6f 20 71 |nd you n|eed to q|
|00000800| 75 69 74 2c 20 74 68 65 | 6e 20 75 73 65 20 74 68 |uit, the|n use th|
|00000810| 65 20 54 61 73 6b 20 4d | 61 6e 61 67 65 72 2e 20 |e Task M|anager. |
|00000820| 20 54 68 65 0a 70 72 6f | 67 72 61 6d 20 69 73 20 | The.pro|gram is |
|00000830| 6e 6f 74 20 70 61 72 74 | 69 63 75 6c 61 72 6c 79 |not part|icularly|
|00000840| 20 66 61 73 74 20 73 6f | 20 67 69 76 65 20 69 74 | fast so| give it|
|00000850| 20 61 20 66 65 77 20 6d | 69 6e 75 74 65 73 20 69 | a few m|inutes i|
|00000860| 66 20 79 6f 75 72 20 6c | 6f 67 20 66 69 6c 65 20 |f your l|og file |
|00000870| 69 73 0a 6c 61 72 67 65 | 2e 0a 0a 54 68 65 72 65 |is.large|...There|
|00000880| 20 69 73 20 61 20 66 69 | 6c 65 20 63 61 6c 6c 65 | is a fi|le calle|
|00000890| 64 20 50 61 72 61 6d 73 | 20 69 6e 20 74 68 65 20 |d Params| in the |
|000008a0| 21 53 6c 69 70 43 68 61 | 72 67 65 20 64 69 72 65 |!SlipCha|rge dire|
|000008b0| 63 74 6f 72 79 20 77 68 | 69 63 68 20 74 68 65 20 |ctory wh|ich the |
|000008c0| 70 72 6f 67 72 61 6d 0a | 72 65 61 64 73 20 74 6f |program.|reads to|
|000008d0| 20 65 73 74 61 62 6c 69 | 73 68 20 70 61 72 61 6d | establi|sh param|
|000008e0| 65 74 65 72 73 20 73 75 | 63 68 20 61 73 20 63 61 |eters su|ch as ca|
|000008f0| 6c 6c 20 72 61 74 65 73 | 2c 20 70 68 6f 6e 65 20 |ll rates|, phone |
|00000900| 6e 75 6d 62 65 72 73 20 | 65 74 63 2e 20 20 42 79 |numbers |etc. By|
|00000910| 0a 64 65 66 61 75 6c 74 | 20 61 6c 6c 20 63 61 6c |.default| all cal|
|00000920| 6c 73 20 61 72 65 20 6e | 61 74 69 6f 6e 61 6c 2c |ls are n|ational,|
|00000930| 20 62 75 74 20 79 6f 75 | 20 63 61 6e 20 65 64 69 | but you| can edi|
|00000940| 74 20 74 68 69 73 20 74 | 6f 20 74 65 6c 6c 20 21 |t this t|o tell !|
|00000950| 53 6c 69 70 43 68 61 72 | 67 65 20 0a 74 68 61 74 |SlipChar|ge .that|
|00000960| 20 63 65 72 74 61 69 6e | 20 6e 75 6d 62 65 72 73 | certain| numbers|
|00000970| 20 61 72 65 20 27 6c 6f | 63 61 6c 27 20 6f 72 20 | are 'lo|cal' or |
|00000980| 27 72 65 67 69 6f 6e 61 | 6c 27 2e 0a 0a 54 68 65 |'regiona|l'...The|
|00000990| 20 63 6f 73 74 69 6e 67 | 20 69 73 20 61 74 20 42 | costing| is at B|
|000009a0| 54 20 72 61 74 65 73 20 | 75 6e 6c 65 73 73 20 74 |T rates |unless t|
|000009b0| 68 65 20 6e 75 6d 62 65 | 72 20 62 65 67 69 6e 73 |he numbe|r begins|
|000009c0| 20 77 69 74 68 20 31 33 | 31 20 6f 72 20 31 33 32 | with 13|1 or 132|
|000009d0| 20 77 68 65 6e 20 0a 69 | 74 20 69 73 20 61 73 73 | when .i|t is ass|
|000009e0| 75 6d 65 64 20 74 6f 20 | 62 65 20 4d 65 72 63 75 |umed to |be Mercu|
|000009f0| 72 79 2e 20 20 49 74 20 | 77 69 6c 6c 20 75 73 65 |ry. It |will use|
|00000a00| 20 74 68 65 20 4d 65 72 | 63 75 72 79 20 53 6d 61 | the Mer|cury Sma|
|00000a10| 72 74 43 61 6c 6c 20 72 | 61 74 65 2c 20 62 75 74 |rtCall r|ate, but|
|00000a20| 0a 62 79 20 61 6c 74 65 | 72 69 6e 67 20 74 68 65 |.by alte|ring the|
|00000a30| 20 76 61 72 69 61 62 6c | 65 20 27 4d 43 4c 72 61 | variabl|e 'MCLra|
|00000a40| 74 65 27 20 69 6e 20 74 | 68 65 20 50 61 72 61 6d |te' in t|he Param|
|00000a50| 73 20 66 69 6c 65 2c 20 | 74 68 65 20 4d 65 72 63 |s file, |the Merc|
|00000a60| 75 72 79 20 73 74 61 6e | 64 61 72 64 20 0a 72 61 |ury stan|dard .ra|
|00000a70| 74 65 20 63 61 6e 20 62 | 65 20 73 65 74 2e 0a 0a |te can b|e set...|
|00000a80| 54 68 65 72 65 20 69 73 | 20 6e 6f 20 77 61 79 20 |There is| no way |
|00000a90| 74 68 61 74 20 49 20 63 | 61 6e 20 74 68 69 6e 6b |that I c|an think|
|00000aa0| 20 6f 66 20 70 72 6f 67 | 72 61 6d 6d 69 6e 67 20 | of prog|ramming |
|00000ab0| 69 6e 20 61 6c 6c 20 74 | 68 65 20 76 61 72 69 6f |in all t|he vario|
|00000ac0| 75 73 20 73 70 65 63 69 | 61 6c 0a 64 69 73 63 6f |us speci|al.disco|
|00000ad0| 75 6e 74 20 73 63 68 65 | 6d 65 73 20 74 68 61 74 |unt sche|mes that|
|00000ae0| 20 42 54 20 61 6e 64 20 | 4d 65 72 63 75 72 79 20 | BT and |Mercury |
|00000af0| 70 72 6f 76 69 64 65 2e | 20 49 66 20 79 6f 75 20 |provide.| If you |
|00000b00| 75 73 65 20 74 68 65 73 | 65 20 79 6f 75 20 77 69 |use thes|e you wi|
|00000b10| 6c 6c 20 68 61 76 65 0a | 74 6f 20 6d 61 6b 65 20 |ll have.|to make |
|00000b20| 79 6f 75 72 20 6f 77 6e | 20 61 64 6a 75 73 74 6d |your own| adjustm|
|00000b30| 65 6e 74 73 2e 0a 0a 54 | 68 69 73 20 70 72 6f 67 |ents...T|his prog|
|00000b40| 72 61 6d 20 69 73 20 70 | 75 62 6c 69 63 20 64 6f |ram is p|ublic do|
|00000b50| 6d 61 69 6e 20 61 6e 64 | 20 61 6c 6c 20 74 68 65 |main and| all the|
|00000b60| 20 75 73 75 61 6c 20 63 | 61 76 65 61 74 73 20 61 | usual c|aveats a|
|00000b70| 70 70 6c 79 2e 20 20 55 | 73 65 20 69 74 20 61 74 |pply. U|se it at|
|00000b80| 0a 79 6f 75 72 20 6f 77 | 6e 20 72 69 73 6b 2e 20 |.your ow|n risk. |
|00000b90| 49 6e 20 70 61 72 74 69 | 63 75 6c 61 72 20 6e 6f |In parti|cular no|
|00000ba0| 74 65 20 74 68 61 74 20 | 69 74 20 69 73 20 6f 6e |te that |it is on|
|00000bb0| 6c 79 20 61 6e 20 69 6e | 64 69 63 61 74 69 6f 6e |ly an in|dication|
|00000bc0| 20 6f 66 20 63 6f 73 74 | 73 2c 20 49 0a 64 6f 6e | of cost|s, I.don|
|00000bd0| 27 74 20 74 68 69 6e 6b | 20 74 68 61 74 20 21 53 |'t think| that !S|
|00000be0| 6c 69 70 44 69 61 6c 20 | 6c 6f 67 73 20 61 6c 6c |lipDial |logs all|
|00000bf0| 20 66 61 69 6c 65 64 20 | 63 61 6c 6c 20 61 74 74 | failed |call att|
|00000c00| 65 6d 70 74 73 2c 20 61 | 6e 64 20 65 61 63 68 20 |empts, a|nd each |
|00000c10| 6f 6e 65 20 63 6f 73 74 | 73 0a 79 6f 75 20 35 70 |one cost|s.you 5p|
|00000c20| 21 2e 20 0a 0a 54 68 69 | 73 20 63 6f 64 65 20 77 |!. ..Thi|s code w|
|00000c30| 61 73 20 63 6f 62 62 6c | 65 64 20 74 6f 67 65 74 |as cobbl|ed toget|
|00000c40| 68 65 72 20 76 65 72 79 | 20 71 75 69 63 6b 6c 79 |her very| quickly|
|00000c50| 20 69 6e 20 42 41 53 49 | 43 20 74 6f 20 6b 65 65 | in BASI|C to kee|
|00000c60| 70 20 74 72 61 63 6b 20 | 6f 66 20 6d 79 20 6f 77 |p track |of my ow|
|00000c70| 6e 0a 62 69 6c 6c 73 2c | 20 69 74 20 77 61 73 20 |n.bills,| it was |
|00000c80| 6e 6f 74 20 72 65 61 6c | 6c 79 20 6d 65 61 6e 74 |not real|ly meant|
|00000c90| 20 66 6f 72 20 72 65 6c | 65 61 73 65 2e 20 20 54 | for rel|ease. T|
|00000ca0| 68 65 20 63 6f 64 65 20 | 69 73 20 6e 6f 74 20 65 |he code |is not e|
|00000cb0| 6c 65 67 61 6e 74 20 6f | 72 0a 71 75 69 63 6b 2e |legant o|r.quick.|
|00000cc0| 20 20 49 66 20 79 6f 75 | 20 64 6f 6e 27 74 20 6c | If you| don't l|
|00000cd0| 69 6b 65 20 69 74 20 74 | 68 65 6e 20 64 6f 6e 27 |ike it t|hen don'|
|00000ce0| 74 20 75 73 65 20 69 74 | 2e 20 56 65 72 73 69 6f |t use it|. Versio|
|00000cf0| 6e 20 30 2e 31 31 20 68 | 61 73 20 6f 6e 6c 79 20 |n 0.11 h|as only |
|00000d00| 62 65 65 6e 20 0a 74 65 | 73 74 65 64 20 6f 6e 20 |been .te|sted on |
|00000d10| 6d 79 20 6f 77 6e 20 6d | 61 63 68 69 6e 65 20 28 |my own m|achine (|
|00000d20| 41 34 32 30 2c 20 52 49 | 53 43 4f 53 33 2e 31 29 |A420, RI|SCOS3.1)|
|00000d30| 20 73 6f 20 64 6f 6e 27 | 74 20 62 65 20 73 75 72 | so don'|t be sur|
|00000d40| 70 72 69 73 65 64 20 69 | 66 20 69 74 20 0a 64 6f |prised i|f it .do|
|00000d50| 65 73 6e 27 74 20 77 6f | 72 6b 2e 20 20 0a 0a 48 |esn't wo|rk. ..H|
|00000d60| 69 73 74 6f 72 79 0a 0a | 30 2e 31 30 20 20 4a 75 |istory..|0.10 Ju|
|00000d70| 6e 65 20 31 39 39 35 20 | 20 46 69 72 73 74 20 61 |ne 1995 | First a|
|00000d80| 74 74 65 6d 70 74 2c 20 | 64 6f 6e 65 20 74 6f 20 |ttempt, |done to |
|00000d90| 6b 65 65 70 20 74 72 61 | 63 6b 20 6f 66 20 6d 79 |keep tra|ck of my|
|00000da0| 20 6f 77 6e 20 62 69 6c | 6c 0a 30 2e 31 31 20 20 | own bil|l.0.11 |
|00000db0| 32 33 2f 30 37 2f 39 35 | 20 90 03 46 69 72 73 74 |23/07/95| ..First|
|00000dc0| 20 61 6c 70 68 61 20 72 | 65 6c 65 61 73 65 20 74 | alpha r|elease t|
|00000dd0| 6f 20 74 68 65 20 6e 65 | 74 2e 0a 20 90 11 52 65 |o the ne|t.. ..Re|
|00000de0| 6d 6f 76 65 64 20 74 68 | 65 20 44 61 74 65 73 20 |moved th|e Dates |
|00000df0| 61 6e 64 20 57 69 6d 70 | 4c 69 62 20 4c 49 42 52 |and Wimp|Lib LIBR|
|00000e00| 41 52 59 20 63 61 6c 6c | 73 20 61 6e 64 0a 20 90 |ARY call|s and. .|
|00000e10| 11 70 75 74 20 73 74 72 | 69 70 70 65 64 20 64 6f |.put str|ipped do|
|00000e20| 77 6e 20 63 6f 64 65 20 | 69 6e 20 74 68 65 20 6d |wn code |in the m|
|00000e30| 61 69 6e 20 72 6f 75 74 | 69 6e 65 2e 0a 20 90 11 |ain rout|ine.. ..|
|00000e40| 41 64 64 65 64 20 50 61 | 72 61 6d 73 20 66 69 6c |Added Pa|rams fil|
|00000e50| 65 20 72 61 74 68 65 72 | 20 74 68 61 6e 20 68 61 |e rather| than ha|
|00000e60| 72 64 20 63 6f 64 65 20 | 74 68 65 20 70 61 72 61 |rd code |the para|
|00000e70| 6d 65 74 65 72 73 2e 0a | 20 90 11 56 61 72 69 6f |meters..| ..Vario|
|00000e80| 75 73 20 6f 74 68 65 72 | 20 6d 69 6e 6f 72 20 69 |us other| minor i|
|00000e90| 6d 70 72 6f 76 65 6d 65 | 6e 74 73 2e 0a 30 2e 31 |mproveme|nts..0.1|
|00000ea0| 32 20 20 32 38 2f 30 37 | 2f 39 35 20 90 03 41 64 |2 28/07|/95 ..Ad|
|00000eb0| 64 65 64 20 73 75 70 70 | 6f 72 74 20 66 6f 72 20 |ded supp|ort for |
|00000ec0| 6f 6c 64 65 72 20 53 6c | 69 70 44 69 61 6c 20 66 |older Sl|ipDial f|
|00000ed0| 6f 72 6d 61 74 73 2e 0a | 30 2e 31 33 20 20 33 30 |ormats..|0.13 30|
|00000ee0| 2f 30 37 2f 39 35 20 90 | 03 41 64 64 65 64 20 4d |/07/95 .|.Added M|
|00000ef0| 65 72 63 75 72 79 20 63 | 61 6c 6c 20 63 68 61 72 |ercury c|all char|
|00000f00| 67 65 73 20 66 6f 72 20 | 31 33 31 20 6f 72 20 31 |ges for |131 or 1|
|00000f10| 33 32 20 63 61 6c 6c 73 | 2e 0a 30 2e 31 34 20 20 |32 calls|..0.14 |
|00000f20| 30 32 2f 30 38 2f 39 35 | 20 90 03 42 75 67 20 46 |02/08/95| ..Bug F|
|00000f30| 69 78 20 28 46 4e 6d 6f | 6e 74 68 20 6e 6f 74 20 |ix (FNmo|nth not |
|00000f40| 74 72 75 6e 63 61 74 69 | 6e 67 20 6d 6f 6e 74 68 |truncati|ng month|
|00000f50| 20 74 6f 20 33 29 0a 30 | 2e 31 35 20 20 30 35 2f | to 3).0|.15 05/|
|00000f60| 30 38 2f 39 35 20 90 03 | 43 68 61 6e 67 65 64 20 |08/95 ..|Changed |
|00000f70| 72 65 61 64 69 6e 67 20 | 6f 66 20 50 61 72 61 6d |reading |of Param|
|00000f80| 73 20 66 69 6c 65 20 74 | 6f 20 75 73 65 20 50 52 |s file t|o use PR|
|00000f90| 4f 43 53 65 74 42 61 73 | 0a 20 90 11 0a 42 75 67 |OCSetBas|. ...Bug|
|00000fa0| 20 72 65 70 6f 72 74 73 | 20 74 6f 20 90 03 4a 6f | reports| to ..Jo|
|00000fb0| 68 6e 40 6d 65 65 72 73 | 2e 64 65 6d 6f 6e 2e 63 |hn@meers|.demon.c|
|00000fc0| 6f 2e 75 6b 0a 0a 20 90 | 10 46 69 6c 65 44 61 74 |o.uk.. .|.FileDat|
|00000fd0| 61 82 21 52 75 6e 00 00 | 00 00 00 00 00 d5 00 00 |a.!Run..|........|
|00000fe0| 00 46 eb ff ff 69 3e 1f | 3e 03 00 1f c1 7c 20 53 |.F...i>.|>....| S|
|00000ff0| 6c 69 70 43 68 61 72 67 | 20 21 52 75 6e 0a 7c 0a |lipCharg| !Run.|.|
|00001000| 49 63 6f 6e 53 70 72 69 | 74 65 73 20 3c 4f 62 65 |IconSpri|tes <Obe|
|00001010| 79 24 44 69 72 3e 2e 21 | 53 70 72 69 74 65 73 0a |y$Dir>.!|Sprites.|
|00001020| 53 45 54 20 53 6c 69 70 | 43 68 61 72 67 24 50 61 |SET Slip|Charg$Pa|
|00001030| 74 68 20 3c 4f 62 65 79 | 24 44 69 72 3e 2e 0a 0a |th <Obey|$Dir>...|
|00001040| 49 46 20 22 3c 73 6c 69 | 70 64 69 61 6c 24 64 69 |IF "<sli|pdial$di|
|00001050| 72 3e 22 3d 22 22 20 54 | 48 45 4e 20 45 72 72 6f |r>"="" T|HEN Erro|
|00001060| 72 20 4e 65 65 64 20 74 | 6f 20 22 73 65 65 22 20 |r Need t|o "see" |
|00001070| 53 6c 69 70 44 69 61 6c | 20 62 65 66 6f 72 65 20 |SlipDial| before |
|00001080| 73 74 61 72 74 69 6e 67 | 0a 0a 57 69 6d 70 53 6c |starting|..WimpSl|
|00001090| 6f 74 20 2d 6d 69 6e 20 | 33 32 4b 20 2d 6d 61 78 |ot -min |32K -max|
|000010a0| 20 33 32 4b 0a 52 55 4e | 20 3c 53 6c 69 70 43 68 | 32K.RUN| <SlipCh|
|000010b0| 61 72 67 24 50 61 74 68 | 3e 21 52 75 6e 49 6d 61 |arg$Path|>!RunIma|
|000010c0| 67 65 46 69 6c 65 44 61 | 74 61 83 21 52 75 6e 49 |geFileDa|ta.!RunI|
|000010d0| 6d 61 67 65 00 00 db 1f | 00 00 46 fd ff ff 06 f8 |mage....|..F.....|
|000010e0| 1a 52 03 00 00 00 0d 00 | 0a 11 f4 20 3e 20 53 6c |.R......|... > Sl|
|000010f0| 69 70 43 68 61 72 67 0d | 00 14 04 0d 00 1e 22 f4 |ipCharg.|......".|
|00001100| 20 76 65 72 24 3d 22 30 | 2e 31 30 20 20 28 30 34 | ver$="0|.10 (04|
|00001110| 74 68 20 4a 75 6e 20 31 | 39 39 35 29 22 0d 00 28 |th Jun 1|995)"..(|
|00001120| 4c f4 20 76 65 72 24 3d | 22 30 2e 31 31 20 20 28 |L. ver$=|"0.11 (|
|00001130| 32 32 6e 64 20 4a 75 6c | 20 31 39 39 35 29 22 20 |22nd Jul| 1995)" |
|00001140| 3a 52 45 4d 20 70 75 74 | 20 73 65 63 74 69 6f 6e |:REM put| section|
|00001150| 73 20 6f 66 20 44 61 74 | 65 73 20 26 20 57 69 6d |s of Dat|es & Wim|
|00001160| 70 20 6c 69 62 73 20 69 | 6e 0d 00 32 44 20 90 22 |p libs i|n..2D ."|
|00001170| f4 20 63 6f 64 65 2e 20 | 20 41 64 64 65 64 20 70 |. code. | Added p|
|00001180| 61 72 61 6d 65 74 65 72 | 73 20 66 69 6c 65 0d 00 |arameter|s file..|
|00001190| 3c 4f f4 20 76 65 72 24 | 3d 22 30 2e 31 32 20 20 |<O. ver$|="0.12 |
|000011a0| 28 32 38 74 68 20 4a 75 | 6c 20 31 39 39 35 29 22 |(28th Ju|l 1995)"|
|000011b0| 20 3a 52 45 4d 20 61 64 | 64 65 64 20 63 6f 64 65 | :REM ad|ded code|
|000011c0| 20 66 6f 72 20 6f 6c 64 | 20 53 6c 69 70 44 69 61 | for old| SlipDia|
|000011d0| 6c 20 6c 6f 67 20 66 6f | 72 6d 61 74 20 0d 00 46 |l log fo|rmat ..F|
|000011e0| 45 f4 20 76 65 72 24 3d | 22 30 2e 31 33 20 20 28 |E. ver$=|"0.13 (|
|000011f0| 33 30 74 68 20 4a 75 6c | 20 31 39 39 35 29 22 20 |30th Jul| 1995)" |
|00001200| 3a 52 45 4d 20 61 64 64 | 65 64 20 63 6f 64 65 20 |:REM add|ed code |
|00001210| 66 6f 72 20 4d 65 72 63 | 75 72 79 20 63 61 6c 6c |for Merc|ury call|
|00001220| 73 20 0d 00 50 3a f4 20 | 76 65 72 24 3d 22 30 2e |s ..P:. |ver$="0.|
|00001230| 31 34 20 20 28 32 6e 64 | 20 41 75 67 20 20 31 39 |14 (2nd| Aug 19|
|00001240| 39 35 29 22 20 3a 52 45 | 4d 20 42 75 67 20 66 69 |95)" :RE|M Bug fi|
|00001250| 78 20 69 6e 20 46 4e 6d | 6f 6e 74 68 0d 00 5a 45 |x in FNm|onth..ZE|
|00001260| 76 65 72 24 3d 22 30 2e | 31 35 20 20 28 35 74 68 |ver$="0.|15 (5th|
|00001270| 20 41 75 67 20 20 31 39 | 39 35 29 22 20 3a f4 20 | Aug 19|95)" :. |
|00001280| 41 64 64 65 64 20 46 4e | 53 65 74 42 61 73 20 66 |Added FN|SetBas f|
|00001290| 6f 72 20 50 61 72 61 6d | 65 74 65 72 73 20 61 6e |or Param|eters an|
|000012a0| 64 0d 00 5b 45 20 90 1e | f4 20 73 6f 72 74 65 64 |d..[E ..|. sorted|
|000012b0| 20 6f 75 74 20 61 20 66 | 65 77 20 65 72 72 6f 72 | out a f|ew error|
|000012c0| 20 63 6f 6e 64 69 74 69 | 6f 6e 73 0d 00 64 22 49 | conditi|ons..d"I|
|000012d0| 73 73 24 3d 22 53 6c 69 | 70 43 68 61 72 67 65 20 |ss$="Sli|pCharge |
|000012e0| 76 65 72 22 2b c0 76 65 | 72 24 2c 35 29 0d 00 6e |ver"+.ve|r$,5)..n|
|000012f0| 04 0d 00 78 3a 77 69 6d | 70 3d b9 20 20 3a f4 20 |...x:wim|p=. :. |
|00001300| 49 66 20 73 65 74 20 46 | 41 4c 53 45 20 74 68 65 |If set F|ALSE the|
|00001310| 6e 20 77 69 6c 6c 20 72 | 75 6e 20 6f 75 74 73 69 |n will r|un outsi|
|00001320| 64 65 20 74 68 65 20 77 | 69 6d 70 0d 00 82 04 0d |de the w|imp.....|
|00001330| 00 8c 0e f2 44 61 74 65 | 5f 49 6e 69 74 0d 00 96 |....Date|_Init...|
|00001340| 0d f2 4c 6f 61 64 56 61 | 72 73 0d 00 a0 04 0d 00 |..LoadVa|rs......|
|00001350| aa 16 ee 20 85 20 f2 57 | 69 6d 70 49 6e 69 74 45 |... . .W|impInitE|
|00001360| 72 72 3a e0 0d 00 b4 24 | e7 20 77 69 6d 70 20 8c |rr:....$|. wimp .|
|00001370| 20 f2 57 69 6d 70 5f 49 | 6e 69 74 28 22 53 6c 69 | .Wimp_I|nit("Sli|
|00001380| 70 43 68 61 72 67 22 29 | 0d 00 be 21 64 69 72 24 |pCharg")|...!dir$|
|00001390| 3d a4 52 65 61 64 56 61 | 72 28 22 73 6c 69 70 64 |=.ReadVa|r("slipd|
|000013a0| 69 61 6c 24 64 69 72 22 | 29 0d 00 c8 42 e7 20 77 |ial$dir"|)...B. w|
|000013b0| 69 6d 70 20 8c 20 f2 57 | 69 6d 70 5f 49 63 6f 6e |imp . .W|imp_Icon|
|000013c0| 42 61 72 20 3a f4 20 4e | 6f 20 6d 65 6e 75 73 20 |Bar :. N|o menus |
|000013d0| 73 69 6e 63 65 20 6d 65 | 6e 75 20 63 6f 64 65 20 |since me|nu code |
|000013e0| 6e 6f 74 20 6c 6f 61 64 | 65 64 2e 0d 00 d2 04 0d |not load|ed......|
|000013f0| 00 dc 21 69 6e 24 3d 64 | 69 72 24 2b 22 2e 6c 6f |..!in$=d|ir$+".lo|
|00001400| 67 66 69 6c 65 22 3a 69 | 6e 25 3d 8e 20 69 6e 24 |gfile":i|n%=. in$|
|00001410| 0d 00 e6 26 6f 75 74 24 | 3d 22 53 6c 69 70 43 68 |...&out$|="SlipCh|
|00001420| 61 72 67 3a 43 6f 73 74 | 73 22 3a 6f 75 74 25 3d |arg:Cost|s":out%=|
|00001430| ae 20 6f 75 74 24 0d 00 | f0 04 0d 00 fa 13 43 75 |. out$..|......Cu|
|00001440| 6d 3d 30 20 20 3a f4 20 | 70 65 6e 63 65 0d 01 04 |m=0 :. |pence...|
|00001450| 4f 53 74 61 74 65 24 3d | 22 4f 66 66 6c 69 6e 65 |OState$=|"Offline|
|00001460| 22 3a 44 61 74 65 24 3d | 22 3f 3f 2f 3f 3f 2f 3f |":Date$=|"??/??/?|
|00001470| 3f 22 3a 54 69 6d 65 24 | 3d 22 3f 3f 3a 3f 3f 22 |?":Time$|="??:??"|
|00001480| 3a 44 75 72 24 3d 22 30 | 30 3a 30 30 3a 31 30 22 |:Dur$="0|0:00:10"|
|00001490| 3a 50 68 6f 6e 65 24 3d | 22 3f 3f 22 0d 01 0e 30 |:Phone$=|"??"...0|
|000014a0| f5 20 3a 72 24 3d be 23 | 69 6e 25 3a f2 50 72 6f |. :r$=.#|in%:.Pro|
|000014b0| 63 65 73 73 28 72 24 29 | 3a e7 20 77 69 6d 70 20 |cess(r$)|:. wimp |
|000014c0| 8c 20 f2 57 69 6d 70 5f | 57 61 69 74 0d 01 18 0d |. .Wimp_|Wait....|
|000014d0| 20 20 fd 20 c5 23 69 6e | 25 0d 01 22 04 0d 01 2c | . .#in|%.."...,|
|000014e0| 10 d9 23 69 6e 25 3a d9 | 23 6f 75 74 25 0d 01 36 |..#in%:.|#out%..6|
|000014f0| 1e ff 28 22 53 45 54 54 | 59 50 45 20 22 2b 6f 75 |..("SETT|YPE "+ou|
|00001500| 74 24 2b 22 20 54 65 78 | 74 22 29 0d 01 37 0f f2 |t$+" Tex|t")..7..|
|00001510| 57 69 6d 70 5f 43 6c 6f | 73 65 0d 01 40 05 e0 0d |Wimp_Clo|se..@...|
|00001520| 01 4a 04 0d 01 54 1d dd | 20 f2 4c 6f 61 64 56 61 |.J...T..| .LoadVa|
|00001530| 72 73 3a ea 20 78 24 2c | 78 25 2c 72 24 2c 70 25 |rs:. x$,|x%,r$,p%|
|00001540| 0d 01 5e 21 78 24 3d 22 | 53 6c 69 70 43 68 61 72 |..^!x$="|SlipChar|
|00001550| 67 3a 50 61 72 61 6d 73 | 22 3a 78 25 3d 8e 20 78 |g:Params|":x%=. x|
|00001560| 24 0d 01 68 1d de 20 72 | 61 74 65 28 39 2c 33 29 |$..h.. r|ate(9,3)|
|00001570| 2c 20 50 68 6f 6e 65 24 | 28 32 30 2c 31 29 0d 01 |, Phone$|(20,1)..|
|00001580| 72 0d f5 3a 72 24 3d be | 23 78 25 0d 01 7c 1c e7 |r..:r$=.|#x%..|..|
|00001590| 20 c0 72 24 2c 31 29 3c | 3e 22 23 22 20 80 20 a9 | .r$,1)<|>"#" . .|
|000015a0| 20 72 24 3e 35 20 8c 0d | 01 86 23 20 20 e7 20 c0 | r$>5 ..|..# . .|
|000015b0| 72 24 2c 31 29 3e 3d 22 | 30 22 20 80 20 c0 72 24 |r$,1)>="|0" . .r$|
|000015c0| 2c 31 29 3c 3d 22 39 22 | 20 8c 0d 01 90 00 15 20 |,1)<="9"| ...... |
|000015d0| 90 06 f2 6e 75 6d 62 65 | 72 28 72 24 29 0d 01 9a |...numbe|r(r$)...|
|000015e0| 09 20 90 04 cc 0d 01 a4 | 27 20 90 06 f4 20 53 70 |. ......|' ... Sp|
|000015f0| 6c 69 74 20 61 74 20 66 | 69 72 73 74 20 64 6f 75 |lit at f|irst dou|
|00001600| 62 6c 65 20 73 70 61 63 | 65 0d 01 ae 16 20 90 06 |ble spac|e.... ..|
|00001610| 70 25 3d a7 72 24 2c 22 | 20 20 22 29 0d 01 b8 36 |p%=.r$,"| ")...6|
|00001620| 20 90 06 f2 53 65 74 42 | 61 73 28 a4 73 74 72 69 | ...SetB|as(.stri|
|00001630| 70 28 c0 72 24 2c 70 25 | 2d 31 29 29 2c a4 73 74 |p(.r$,p%|-1)),.st|
|00001640| 72 69 70 28 c1 72 24 2c | 70 25 2b 31 29 90 03 0d |rip(.r$,|p%+1)...|
|00001650| 01 c2 09 20 90 04 cd 0d | 01 cc 07 20 20 cd 0d 01 |... ....|... ...|
|00001660| d6 0c fd 20 c5 23 78 25 | 20 20 0d 01 e0 08 d9 23 |... .#x%| .....#|
|00001670| 78 25 0d 01 ea 13 56 41 | 54 3d 31 2b bb 56 41 54 |x%....VA|T=1+.VAT|
|00001680| 24 2f 31 30 30 0d 01 f4 | 18 f4 20 53 65 74 20 75 |$/100...|.. Set u|
|00001690| 70 20 72 61 74 65 73 20 | 61 72 72 61 79 0d 01 fe |p rates |array...|
|000016a0| 3e f2 73 65 74 52 61 74 | 65 28 31 2c 44 61 79 24 |>.setRat|e(1,Day$|
|000016b0| 29 3a f2 73 65 74 52 61 | 74 65 28 32 2c 45 76 65 |):.setRa|te(2,Eve|
|000016c0| 6e 69 6e 67 24 29 3a f2 | 73 65 74 52 61 74 65 28 |ning$):.|setRate(|
|000016d0| 33 2c 57 65 65 6b 65 6e | 64 24 29 0d 02 08 43 f2 |3,Weeken|d$)...C.|
|000016e0| 73 65 74 52 61 74 65 28 | 34 2c 53 74 61 6e 64 61 |setRate(|4,Standa|
|000016f0| 72 64 53 24 29 3a f2 73 | 65 74 52 61 74 65 28 35 |rdS$):.s|etRate(5|
|00001700| 2c 45 63 6f 6e 6f 6d 79 | 53 24 29 3a f2 73 65 74 |,Economy|S$):.set|
|00001710| 52 61 74 65 28 36 2c 57 | 65 6e 64 53 24 29 0d 02 |Rate(6,W|endS$)..|
|00001720| 12 40 f2 73 65 74 52 61 | 74 65 28 37 2c 53 74 61 |.@.setRa|te(7,Sta|
|00001730| 6e 64 61 72 64 24 29 3a | f2 73 65 74 52 61 74 65 |ndard$):|.setRate|
|00001740| 28 38 2c 45 63 6f 6e 6f | 6d 79 24 29 3a f2 73 65 |(8,Econo|my$):.se|
|00001750| 74 52 61 74 65 28 39 2c | 57 65 6e 64 24 29 0d 02 |tRate(9,|Wend$)..|
|00001760| 1c 05 e1 0d 02 26 2a dd | 20 a4 73 74 72 69 70 28 |.....&*.| .strip(|
|00001770| 61 24 29 3a c8 95 20 c0 | 61 24 2c 31 29 3d 22 20 |a$):.. .|a$,1)=" |
|00001780| 22 3a 61 24 3d c1 61 24 | 2c 32 29 3a ce 0d 02 30 |":a$=.a$|,2):...0|
|00001790| 1d c8 95 20 c2 61 24 29 | 3d 22 20 22 3a 61 24 3d |... .a$)|=" ":a$=|
|000017a0| c0 61 24 29 3a ce 3a 3d | 61 24 0d 02 3a 3d dd 20 |.a$):.:=|a$..:=. |
|000017b0| f2 73 65 74 52 61 74 65 | 28 61 25 2c 73 24 29 3a |.setRate|(a%,s$):|
|000017c0| 73 24 3d a4 73 74 72 69 | 70 28 73 24 29 3a 72 61 |s$=.stri|p(s$):ra|
|000017d0| 74 65 28 61 25 2c 31 29 | 3d bb 20 73 24 3a 73 24 |te(a%,1)|=. s$:s$|
|000017e0| 3d c1 73 24 2c 36 29 0d | 02 44 3b 73 24 3d a4 73 |=.s$,6).|.D;s$=.s|
|000017f0| 74 72 69 70 28 73 24 29 | 3a 72 61 74 65 28 61 25 |trip(s$)|:rate(a%|
|00001800| 2c 32 29 3d bb 20 73 24 | 3a 73 24 3d c1 73 24 2c |,2)=. s$|:s$=.s$,|
|00001810| 36 29 3a 72 61 74 65 28 | 61 25 2c 33 29 3d bb 20 |6):rate(|a%,3)=. |
|00001820| 73 24 0d 02 4e 05 e1 0d | 02 58 1f dd 20 f2 6e 75 |s$..N...|.X.. .nu|
|00001830| 6d 62 65 72 28 73 24 29 | 3a ea 20 70 25 2c 69 25 |mber(s$)|:. p%,i%|
|00001840| 2c 61 24 2c 62 24 0d 02 | 62 37 70 25 3d a7 73 24 |,a$,b$..|b7p%=.s$|
|00001850| 2c 22 20 20 22 29 3a e7 | 20 70 25 3d 30 20 8c 20 |," "):.| p%=0 . |
|00001860| f2 65 72 72 28 22 49 6e | 76 61 6c 69 64 20 70 61 |.err("In|valid pa|
|00001870| 72 61 6d 65 74 65 72 20 | 22 2b 73 24 29 0d 02 6c |rameter |"+s$)..l|
|00001880| 0e 61 24 3d c0 73 24 2c | 70 25 29 0d 02 76 1d f4 |.a$=.s$,|p%)..v..|
|00001890| 20 52 65 6d 6f 76 65 20 | 73 70 61 63 65 73 20 69 | Remove |spaces i|
|000018a0| 6e 20 6e 75 6d 62 65 72 | 0d 02 80 38 62 24 3d 22 |n number|...8b$="|
|000018b0| 22 3a e3 20 69 25 3d 31 | 20 b8 20 a9 20 61 24 3a |":. i%=1| . . a$:|
|000018c0| e7 20 c1 61 24 2c 69 25 | 2c 31 29 3c 3e 22 20 22 |. .a$,i%|,1)<>" "|
|000018d0| 20 8c 20 62 24 2b 3d c1 | 61 24 2c 69 25 2c 31 29 | . b$+=.|a$,i%,1)|
|000018e0| 0d 02 8a 07 20 20 ed 0d | 02 94 22 69 25 3d 30 3a |.... ..|.."i%=0:|
|000018f0| f5 3a 69 25 2b 3d 31 3a | fd 20 50 68 6f 6e 65 24 |.:i%+=1:|. Phone$|
|00001900| 28 69 25 2c 30 29 3d 22 | 22 0d 02 9e 30 50 68 6f |(i%,0)="|"...0Pho|
|00001910| 6e 65 24 28 69 25 2c 30 | 29 3d 62 24 3a 50 68 6f |ne$(i%,0|)=b$:Pho|
|00001920| 6e 65 24 28 69 25 2c 31 | 29 3d a4 73 74 72 69 70 |ne$(i%,1|)=.strip|
|00001930| 28 c1 73 24 2c 70 25 29 | 29 0d 02 a8 05 e1 0d 02 |(.s$,p%)|).......|
|00001940| b2 04 0d 02 bc 19 dd 20 | f2 50 72 6f 63 65 73 73 |....... |.Process|
|00001950| 28 72 24 29 3a ea 20 54 | 78 74 25 0d 02 c6 34 54 |(r$):. T|xt%...4T|
|00001960| 78 74 25 3d a7 72 24 2c | 22 6f 6e 6c 69 6e 65 22 |xt%=.r$,|"online"|
|00001970| 29 3a e7 20 54 78 74 25 | 3e 30 20 8c 20 53 74 61 |):. Txt%|>0 . Sta|
|00001980| 74 65 24 3d a4 6f 6e 28 | 53 74 61 74 65 24 29 0d |te$=.on(|State$).|
|00001990| 02 d0 3b 54 78 74 25 3d | a7 72 24 2c 22 6f 66 66 |..;Txt%=|.r$,"off|
|000019a0| 6c 69 6e 65 22 29 3a e7 | 20 54 78 74 25 3e 30 20 |line"):.| Txt%>0 |
|000019b0| 20 8c 20 53 74 61 74 65 | 24 3d a4 6f 66 66 6c 69 | . State|$=.offli|
|000019c0| 6e 65 28 53 74 61 74 65 | 24 29 0d 02 da 05 e1 0d |ne(State|$)......|
|000019d0| 02 e4 04 0d 02 ee 11 dd | 20 a4 6f 6e 28 53 74 61 |........| .on(Sta|
|000019e0| 74 65 24 29 0d 02 f8 14 | 50 68 24 3d c1 72 24 2c |te$)....|Ph$=.r$,|
|000019f0| 54 78 74 25 2b 31 30 29 | 0d 03 02 25 e7 20 c0 50 |Txt%+10)|...%. .P|
|00001a00| 68 24 2c 33 29 3d 22 31 | 33 31 22 20 84 20 c0 50 |h$,3)="1|31" . .P|
|00001a10| 68 24 2c 33 29 3d 22 31 | 33 32 22 20 8c 0d 03 0c |h$,3)="1|32" ....|
|00001a20| 16 20 90 04 f4 20 4d 65 | 72 63 75 72 79 20 63 61 |. ... Me|rcury ca|
|00001a30| 6c 6c 0d 03 16 3f 20 90 | 04 44 61 79 53 74 24 3d |ll...? .|.DaySt$=|
|00001a40| 4d 43 4c 44 61 79 53 74 | 61 72 74 24 3a 44 61 79 |MCLDaySt|art$:Day|
|00001a50| 45 6e 64 24 3d 4d 43 4c | 44 61 79 45 6e 64 24 3a |End$=MCL|DayEnd$:|
|00001a60| 6d 69 6e 69 6d 75 6d 3d | bb 4d 43 4c 4d 69 6e 24 |minimum=|.MCLMin$|
|00001a70| 0d 03 20 2e 20 90 04 e7 | 20 4d 43 4c 72 61 74 65 |.. . ...| MCLrate|
|00001a80| 24 3d 22 53 6d 61 72 74 | 43 61 6c 6c 22 20 8c 20 |$="Smart|Call" . |
|00001a90| 52 61 25 3d 33 20 8b 20 | 52 61 25 3d 36 0d 03 2a |Ra%=3 . |Ra%=6..*|
|00001aa0| 07 20 20 cc 0d 03 34 11 | 20 90 04 f4 20 42 54 20 |. ...4.| ... BT |
|00001ab0| 63 61 6c 6c 0d 03 3e 42 | 20 90 04 44 61 79 53 74 |call..>B| ..DaySt|
|00001ac0| 24 3d 42 54 44 61 79 53 | 74 61 72 74 24 3a 44 61 |$=BTDayS|tart$:Da|
|00001ad0| 79 45 6e 64 24 3d 42 54 | 44 61 79 45 6e 64 24 3a |yEnd$=BT|DayEnd$:|
|00001ae0| 6d 69 6e 69 6d 75 6d 3d | bb 42 54 4d 69 6e 24 3a |minimum=|.BTMin$:|
|00001af0| 52 61 25 3d 30 0d 03 48 | 07 20 20 cd 0d 03 52 35 |Ra%=0..H|. ...R5|
|00001b00| e7 20 50 68 24 3c 3e 22 | 6e 6f 6e 65 22 20 8c 3d |. Ph$<>"|none" .=|
|00001b10| a4 6f 6e 6c 69 6e 65 28 | 53 74 61 74 65 24 29 20 |.online(|State$) |
|00001b20| 8b 3d a4 69 67 6e 6f 72 | 65 28 53 74 61 74 65 24 |.=.ignor|e(State$|
|00001b30| 29 0d 03 5c 04 0d 03 66 | 15 dd 20 a4 6f 6e 6c 69 |)..\...f|.. .onli|
|00001b40| 6e 65 28 53 74 61 74 65 | 24 29 0d 03 70 0f c8 8e |ne(State|$)..p...|
|00001b50| 20 53 74 61 74 65 24 20 | ca 0d 03 7a 3f 20 20 c9 | State$ |...z? .|
|00001b60| 20 22 4f 66 66 6c 69 6e | 65 22 20 20 3a 20 50 68 | "Offlin|e" : Ph|
|00001b70| 6f 6e 65 24 3d 50 68 24 | 3a 44 75 72 24 3d 22 30 |one$=Ph$|:Dur$="0|
|00001b80| 30 3a 30 30 3a 31 30 22 | 3a f2 44 61 74 65 54 69 |0:00:10"|:.DateTi|
|00001b90| 6d 65 28 54 78 74 25 29 | 0d 03 84 26 20 20 c9 20 |me(Txt%)|...& . |
|00001ba0| 22 4f 6e 6c 69 6e 65 22 | 20 90 03 3a 20 f2 50 72 |"Online"| ..: .Pr|
|00001bb0| 69 6e 74 3a 50 68 6f 6e | 65 24 3d 50 68 24 0d 03 |int:Phon|e$=Ph$..|
|00001bc0| 8e 07 20 20 cb 0d 03 98 | 0d 3d 22 4f 6e 6c 69 6e |.. ....|.="Onlin|
|00001bd0| 65 22 0d 03 a2 04 0d 03 | ac 15 dd 20 f2 44 61 74 |e"......|... .Dat|
|00001be0| 65 54 69 6d 65 28 54 78 | 74 25 29 0d 03 b6 0d c8 |eTime(Tx|t%).....|
|00001bf0| 8e 20 54 78 74 25 20 ca | 0d 03 c0 27 20 20 c9 20 |. Txt% .|...' . |
|00001c00| 31 37 20 20 3a f4 20 53 | 6c 69 70 64 69 61 6c 20 |17 :. S|lipdial |
|00001c10| 30 2e 33 34 64 20 61 6e | 64 20 6c 61 74 65 72 0d |0.34d an|d later.|
|00001c20| 03 ca 38 20 90 0c 44 61 | 74 65 24 3d c1 72 24 2c |..8 ..Da|te$=.r$,|
|00001c30| 37 2c 32 29 2b 22 2f 22 | 2b c1 72 24 2c 35 2c 32 |7,2)+"/"|+.r$,5,2|
|00001c40| 29 2b 22 2f 22 2b c1 72 | 24 2c 33 2c 32 29 0d 03 |)+"/"+.r|$,3,2)..|
|00001c50| d4 2d 20 90 0c 54 69 6d | 65 24 3d c1 72 24 2c 31 |.- ..Tim|e$=.r$,1|
|00001c60| 30 2c 32 29 2b 22 3a 22 | 2b c1 72 24 2c 31 32 2c |0,2)+":"|+.r$,12,|
|00001c70| 32 29 0d 03 de 36 20 20 | c9 20 32 37 2c 32 38 2c |2)...6 |. 27,28,|
|00001c80| 32 39 2c 33 30 2c 33 31 | 2c 33 32 2c 33 33 2c 33 |29,30,31|,32,33,3|
|00001c90| 34 2c 33 35 20 20 3a f4 | 20 45 61 72 6c 69 65 72 |4,35 :.| Earlier|
|00001ca0| 20 76 65 72 73 69 6f 6e | 0d 03 e8 44 20 90 0a 44 | version|...D ..D|
|00001cb0| 61 74 65 24 3d c1 72 24 | 2c 35 2c 32 29 2b 22 2f |ate$=.r$|,5,2)+"/|
|00001cc0| 22 2b a4 6d 6f 6e 74 68 | 28 c1 72 24 2c 38 2c 33 |"+.month|(.r$,8,3|
|00001cd0| 29 29 2b 22 2f 22 2b c1 | 72 24 2c 54 78 74 25 2d |))+"/"+.|r$,Txt%-|
|00001ce0| 31 33 2c 32 29 0d 03 f2 | 22 20 90 0a 54 69 6d 65 |13,2)...|" ..Time|
|00001cf0| 24 3d c1 72 24 2c 54 78 | 74 25 2d 31 30 2c 35 29 |$=.r$,Tx|t%-10,5)|
|00001d00| 0d 03 fc 3a 20 20 7f 20 | 3a f2 65 72 72 28 22 49 |...: . |:.err("I|
|00001d10| 20 64 6f 20 6e 6f 74 20 | 6b 6e 6f 77 20 74 68 69 | do not |know thi|
|00001d20| 73 20 6c 6f 67 20 66 6f | 72 6d 61 74 20 2d 20 22 |s log fo|rmat - "|
|00001d30| 2b 72 24 2b 22 20 2d 20 | 22 29 0d 04 06 07 20 20 |+r$+" - |").... |
|00001d40| cb 0d 04 10 05 e1 0d 04 | 1a 15 dd 20 a4 6d 6f 6e |........|... .mon|
|00001d50| 74 68 28 6d 24 29 3a ea | 20 69 25 0d 04 24 0f e3 |th(m$):.| i%..$..|
|00001d60| 20 69 25 3d 31 20 b8 20 | 31 32 0d 04 2e 2c 20 20 | i%=1 . |12..., |
|00001d70| e7 20 c0 44 5f 4d 6f 6e | 24 28 69 25 29 2c 33 29 |. .D_Mon|$(i%),3)|
|00001d80| 3d 6d 24 20 8c 20 6d 24 | 3d c2 22 30 22 2b c3 20 |=m$ . m$|=."0"+. |
|00001d90| 69 25 2c 32 29 20 0d 04 | 38 0b 20 20 ed 3a 3d 6d |i%,2) ..|8. .:=m|
|00001da0| 24 0d 04 42 07 20 90 03 | 0d 04 4c 16 dd 20 a4 6f |$..B. ..|..L.. .o|
|00001db0| 66 66 6c 69 6e 65 28 53 | 74 61 74 65 24 29 0d 04 |ffline(S|tate$)..|
|00001dc0| 56 15 44 75 72 24 3d c1 | 72 24 2c 54 78 74 25 2b |V.Dur$=.|r$,Txt%+|
|00001dd0| 31 34 29 0d 04 60 0f c8 | 8e 20 53 74 61 74 65 24 |14)..`..|. State$|
|00001de0| 20 ca 0d 04 6a 14 20 20 | c9 20 22 4f 66 66 6c 69 | ...j. |. "Offli|
|00001df0| 6e 65 22 20 20 3a 0d 04 | 74 1b 20 20 c9 20 22 4f |ne" :..|t. . "O|
|00001e00| 6e 6c 69 6e 65 22 20 90 | 03 3a 20 f2 50 72 69 6e |nline" .|.: .Prin|
|00001e10| 74 0d 04 7e 07 20 20 cb | 0d 04 88 0e 3d 22 4f 66 |t..~. .|....="Of|
|00001e20| 66 6c 69 6e 65 22 0d 04 | 92 04 0d 04 9c 15 dd 20 |fline"..|....... |
|00001e30| a4 69 67 6e 6f 72 65 28 | 53 74 61 74 65 24 29 0d |.ignore(|State$).|
|00001e40| 04 a6 0f c8 8e 20 53 74 | 61 74 65 24 20 ca 0d 04 |..... St|ate$ ...|
|00001e50| b0 14 20 20 c9 20 22 4f | 66 66 6c 69 6e 65 22 20 |.. . "O|ffline" |
|00001e60| 20 3a 0d 04 ba 1b 20 20 | c9 20 22 4f 6e 6c 69 6e | :.... |. "Onlin|
|00001e70| 65 22 20 90 03 3a 20 f2 | 50 72 69 6e 74 0d 04 c4 |e" ..: .|Print...|
|00001e80| 07 20 20 cb 0d 04 ce 0e | 3d 22 4f 66 66 6c 69 6e |. .....|="Offlin|
|00001e90| 65 22 0d 04 d8 04 0d 04 | e2 1e dd 20 f2 50 72 69 |e"......|... .Pri|
|00001ea0| 6e 74 3a ea 20 40 25 3a | 40 25 3d 26 30 31 30 32 |nt:. @%:|@%=&0102|
|00001eb0| 30 31 30 38 0d 04 ec 2e | f2 63 6f 73 74 28 44 61 |0108....|.cost(Da|
|00001ec0| 74 65 24 2c 54 69 6d 65 | 24 2c 44 75 72 24 2c 50 |te$,Time|$,Dur$,P|
|00001ed0| 68 6f 6e 65 24 2c 63 6f | 73 74 24 2c 72 61 74 65 |hone$,co|st$,rate|
|00001ee0| 24 29 0d 04 f6 47 73 24 | 3d 44 61 74 65 24 2b 22 |$)...Gs$|=Date$+"|
|00001ef0| 20 22 2b 54 69 6d 65 24 | 2b a4 6c 65 6e 28 50 68 | "+Time$|+.len(Ph|
|00001f00| 6f 6e 65 24 2c 31 34 29 | 2b a4 6c 65 6e 28 44 75 |one$,14)|+.len(Du|
|00001f10| 72 24 2c 31 30 29 2b 22 | 20 40 22 2b a4 6c 65 6e |r$,10)+"| @"+.len|
|00001f20| 28 72 61 74 65 24 2c 36 | 29 0d 05 00 2f 73 24 2b |(rate$,6|).../s$+|
|00001f30| 3d 63 6f 73 74 24 2b 22 | 20 20 43 75 6d 75 6c 61 |=cost$+"| Cumula|
|00001f40| 74 69 76 65 20 22 2b a4 | 6c 65 6e 28 c3 20 43 75 |tive "+.|len(. Cu|
|00001f50| 6d 2b 22 70 22 2c 38 29 | 0d 05 0a 0d d5 23 6f 75 |m+"p",8)|.....#ou|
|00001f60| 74 25 2c 73 24 0d 05 14 | 05 e1 0d 05 1e 22 dd 20 |t%,s$...|.....". |
|00001f70| a4 6c 65 6e 28 6c 24 2c | 6c 25 29 3d c2 c4 6c 25 |.len(l$,|l%)=..l%|
|00001f80| 2c 22 20 22 29 2b 6c 24 | 2c 6c 25 29 0d 05 28 04 |," ")+l$|,l%)..(.|
|00001f90| 0d 05 32 34 dd 20 f2 63 | 6f 73 74 28 64 61 74 65 |..24. .c|ost(date|
|00001fa0| 24 2c 74 69 6d 65 24 2c | 64 75 72 24 2c 70 68 6f |$,time$,|dur$,pho|
|00001fb0| 6e 65 24 2c f8 20 63 6f | 73 74 24 2c f8 20 72 61 |ne$,. co|st$,. ra|
|00001fc0| 74 65 24 29 0d 05 3c 35 | 52 61 74 65 25 3d 52 61 |te$)..<5|Rate%=Ra|
|00001fd0| 25 2b a4 62 61 6e 64 28 | 64 61 74 65 24 2c 74 69 |%+.band(|date$,ti|
|00001fe0| 6d 65 24 29 3a 44 69 73 | 74 25 3d a4 77 68 65 72 |me$):Dis|t%=.wher|
|00001ff0| 65 28 70 68 6f 6e 65 24 | 29 0d 05 46 34 6d 69 6e |e(phone$|)..F4min|
|00002000| 75 74 65 73 3d 36 30 2a | bb 20 c0 64 75 72 24 2c |utes=60*|. .dur$,|
|00002010| 32 29 2b bb 20 c1 64 75 | 72 24 2c 34 2c 32 29 2b |2)+. .du|r$,4,2)+|
|00002020| bb 20 c2 64 75 72 24 2c | 32 29 2f 36 30 0d 05 50 |. .dur$,|2)/60..P|
|00002030| 44 40 25 3d 26 30 31 30 | 32 30 32 30 38 3a 72 61 |D@%=&010|20208:ra|
|00002040| 74 65 24 3d a4 6c 65 6e | 28 c3 28 72 61 74 65 28 |te$=.len|(.(rate(|
|00002050| 52 61 74 65 25 2c 44 69 | 73 74 25 29 29 2b 22 70 |Rate%,Di|st%))+"p|
|00002060| 22 2c 36 29 3a 40 25 3d | 26 30 31 30 32 30 31 30 |",6):@%=|&0102010|
|00002070| 38 0d 05 5a 43 70 65 6e | 63 65 3d 6d 69 6e 75 74 |8..ZCpen|ce=minut|
|00002080| 65 73 2a 72 61 74 65 28 | 52 61 74 65 25 2c 44 69 |es*rate(|Rate%,Di|
|00002090| 73 74 25 29 3a e7 20 70 | 65 6e 63 65 3c 6d 69 6e |st%):. p|ence<min|
|000020a0| 69 6d 75 6d 20 8c 20 70 | 65 6e 63 65 3d 6d 69 6e |imum . p|ence=min|
|000020b0| 69 6d 75 6d 0d 05 64 2d | 70 65 6e 63 65 3d 28 a8 |imum..d-|pence=(.|
|000020c0| 28 70 65 6e 63 65 2a 31 | 30 2b 2e 30 35 29 29 2f |(pence*1|0+.05))/|
|000020d0| 31 30 2a 56 41 54 3a 43 | 75 6d 2b 3d 70 65 6e 63 |10*VAT:C|um+=penc|
|000020e0| 65 0d 05 6e 1e 63 6f 73 | 74 24 3d a4 6c 65 6e 28 |e..n.cos|t$=.len(|
|000020f0| c3 28 70 65 6e 63 65 29 | 2b 22 70 22 2c 38 29 0d |.(pence)|+"p",8).|
|00002100| 05 78 05 e1 0d 05 82 04 | 0d 05 8c 1f dd 20 a4 77 |.x......|..... .w|
|00002110| 68 65 72 65 28 70 68 6f | 6e 65 24 29 3a ea 20 69 |here(pho|ne$):. i|
|00002120| 25 2c 64 69 73 74 25 0d | 05 96 10 69 25 3d 30 3a |%,dist%.|...i%=0:|
|00002130| f5 3a 69 25 2b 3d 31 0d | 05 a0 33 fd 20 c0 50 68 |.:i%+=1.|..3. .Ph|
|00002140| 6f 6e 65 24 28 69 25 2c | 30 29 2c 36 29 3d c0 70 |one$(i%,|0),6)=.p|
|00002150| 68 6f 6e 65 24 2c 36 29 | 20 84 20 50 68 6f 6e 65 |hone$,6)| . Phone|
|00002160| 24 28 69 25 2c 30 29 3d | 22 22 0d 05 aa 31 e7 20 |$(i%,0)=|""...1. |
|00002170| 50 68 6f 6e 65 24 28 69 | 25 2c 30 29 3d 22 22 20 |Phone$(i|%,0)="" |
|00002180| 8c 3d 33 20 20 3a f4 20 | 44 65 66 61 75 6c 74 20 |.=3 :. |Default |
|00002190| 69 73 20 6e 61 74 69 6f | 6e 61 6c 0d 05 b4 15 c8 |is natio|nal.....|
|000021a0| 8e 20 50 68 6f 6e 65 24 | 28 69 25 2c 31 29 20 ca |. Phone$|(i%,1) .|
|000021b0| 0d 05 be 1d 20 20 c9 20 | 22 6e 61 74 69 6f 6e 61 |.... . |"nationa|
|000021c0| 6c 22 20 90 03 3a 64 69 | 73 74 25 3d 33 0d 05 c8 |l" ..:di|st%=3...|
|000021d0| 1d 20 20 c9 20 22 72 65 | 67 69 6f 6e 61 6c 22 20 |. . "re|gional" |
|000021e0| 90 03 3a 64 69 73 74 25 | 3d 32 0d 05 d2 1d 20 20 |..:dist%|=2.... |
|000021f0| c9 20 22 6c 6f 63 61 6c | 22 20 90 06 3a 64 69 73 |. "local|" ..:dis|
|00002200| 74 25 3d 31 0d 05 dc 30 | 20 20 7f 20 90 09 3a 64 |t%=1...0| . ..:d|
|00002210| 69 73 74 25 3d 33 20 20 | 3a f4 20 44 65 66 61 75 |ist%=3 |:. Defau|
|00002220| 6c 74 20 69 73 20 6e 61 | 74 69 6f 6e 61 6c 0d 05 |lt is na|tional..|
|00002230| e6 07 20 20 cb 0d 05 f0 | 0a 3d 64 69 73 74 25 0d |.. ....|.=dist%.|
|00002240| 05 fa 04 0d 06 04 29 f4 | 20 4f 6e 6c 79 20 75 73 |......).| Only us|
|00002250| 65 73 20 74 68 65 20 53 | 54 41 52 54 20 74 69 6d |es the S|TART tim|
|00002260| 65 20 6f 66 20 61 20 63 | 61 6c 6c 2e 0d 06 0e 18 |e of a c|all.....|
|00002270| dd 20 a4 62 61 6e 64 28 | 64 61 74 65 24 2c 74 69 |. .band(|date$,ti|
|00002280| 6d 65 24 29 0d 06 18 21 | 64 61 79 25 3d 28 a4 44 |me$)...!|day%=(.D|
|00002290| 61 74 65 5f 44 61 79 28 | 64 61 74 65 24 29 20 83 |ate_Day(|date$) .|
|000022a0| 20 37 29 2b 31 0d 06 22 | 21 e7 20 64 61 79 25 3e | 7)+1.."|!. day%>|
|000022b0| 3d 36 20 8c 3d 33 20 3a | f4 20 57 65 65 6b 65 6e |=6 .=3 :|. Weeken|
|000022c0| 64 20 72 61 74 65 0d 06 | 2c 13 68 72 25 3d bb 20 |d rate..|,.hr%=. |
|000022d0| c0 74 69 6d 65 24 2c 32 | 29 0d 06 36 43 e7 20 68 |.time$,2|)..6C. h|
|000022e0| 72 25 3e 3d bb 20 44 61 | 79 53 74 24 20 80 20 68 |r%>=. Da|ySt$ . h|
|000022f0| 72 25 3c bb 20 44 61 79 | 45 6e 64 24 20 8c 3d 31 |r%<. Day|End$ .=1|
|00002300| 20 8b 3d 32 20 3a f4 20 | 31 3d 44 61 79 20 72 61 | .=2 :. |1=Day ra|
|00002310| 74 65 2c 32 3d 45 76 65 | 6e 69 6e 67 0d 06 40 04 |te,2=Eve|ning..@.|
|00002320| 0d 06 4a 0e dd 20 f2 65 | 72 72 28 65 24 29 0d 06 |..J.. .e|rr(e$)..|
|00002330| 54 14 e7 20 69 6e 25 3c | 3e 30 20 8c 20 d9 23 69 |T.. in%<|>0 . .#i|
|00002340| 6e 25 0d 06 5e 16 e7 20 | 6f 75 74 25 3c 3e 30 20 |n%..^.. |out%<>0 |
|00002350| 8c 20 d9 23 6f 75 74 25 | 0d 06 68 0c 85 20 32 30 |. .#out%|..h.. 20|
|00002360| 30 2c 65 24 0d 06 72 05 | e1 0d 06 7c 04 0d 06 86 |0,e$..r.|...|....|
|00002370| 19 dd 20 f2 64 65 62 75 | 67 28 6c 69 6e 65 25 2c |.. .debu|g(line%,|
|00002380| 6d 65 73 73 24 29 0d 06 | 90 00 24 c8 99 20 22 4f |mess$)..|..$.. "O|
|00002390| 53 5f 53 65 74 56 61 72 | 56 61 6c 22 2c 22 64 62 |S_SetVar|Val","db|
|000023a0| 24 6d 65 73 73 22 2c 22 | 58 58 22 0d 06 9a 2e c8 |$mess","|XX".....|
|000023b0| 99 20 22 4f 53 5f 53 65 | 74 56 61 72 56 61 6c 22 |. "OS_Se|tVarVal"|
|000023c0| 2c 22 64 62 24 6d 65 73 | 73 22 2b c3 28 6c 69 6e |,"db$mes|s"+.(lin|
|000023d0| 65 25 29 2c 6d 65 73 73 | 24 0d 06 a4 05 e1 0d 06 |e%),mess|$.......|
|000023e0| ae 04 0d 06 b8 38 f4 20 | 2d 90 32 0d 06 c2 1d f4 |.....8. |-.2.....|
|000023f0| 20 53 74 75 66 66 20 66 | 72 6f 6d 20 44 61 74 65 | Stuff f|rom Date|
|00002400| 20 4c 69 62 72 61 72 79 | 0d 06 cc 3f f4 20 53 69 | Library|...?. Si|
|00002410| 6d 70 6c 69 66 69 65 64 | 20 73 69 6e 63 65 20 64 |mplified| since d|
|00002420| 61 74 65 20 66 72 6f 6d | 20 53 6c 69 70 44 69 61 |ate from| SlipDia|
|00002430| 6c 20 69 73 20 69 6e 20 | 6b 6e 6f 77 6e 20 66 6f |l is in |known fo|
|00002440| 72 6d 61 74 28 73 29 0d | 06 d6 04 0d 06 e0 10 dd |rmat(s).|........|
|00002450| 20 f2 44 61 74 65 5f 49 | 6e 69 74 0d 06 ea 26 de | .Date_I|nit...&.|
|00002460| 20 44 5f 4d 6f 6e 25 28 | 31 32 29 2c 44 5f 4d 6f | D_Mon%(|12),D_Mo|
|00002470| 6e 24 28 31 32 29 2c 44 | 61 74 65 42 6c 6b 20 36 |n$(12),D|ateBlk 6|
|00002480| 34 0d 06 f4 08 f7 20 2b | 33 0d 06 fe 1e e3 20 69 |4..... +|3..... i|
|00002490| 25 3d 31 20 b8 20 31 32 | 3a f3 20 44 5f 4d 6f 6e |%=1 . 12|:. D_Mon|
|000024a0| 25 28 69 25 29 3a ed 0d | 07 08 1e e3 20 69 25 3d |%(i%):..|.... i%=|
|000024b0| 31 20 b8 20 31 32 3a f3 | 20 44 5f 4d 6f 6e 24 28 |1 . 12:.| D_Mon$(|
|000024c0| 69 25 29 3a ed 0d 07 12 | 05 e1 0d 07 1c 29 dc 20 |i%):....|.....). |
|000024d0| 33 31 2c 32 38 2c 33 31 | 2c 33 30 2c 33 31 2c 33 |31,28,31|,30,31,3|
|000024e0| 30 2c 33 31 2c 33 31 2c | 33 30 2c 33 31 2c 33 30 |0,31,31,|30,31,30|
|000024f0| 2c 33 31 0d 07 26 5b dc | 20 4a 61 6e 75 61 72 79 |,31..&[.| January|
|00002500| 2c 46 65 62 72 75 61 72 | 79 2c 4d 61 72 63 68 2c |,Februar|y,March,|
|00002510| 41 70 72 69 6c 2c 4d 61 | 79 2c 4a 75 6e 65 2c 4a |April,Ma|y,June,J|
|00002520| 75 6c 79 2c 41 75 67 75 | 73 74 2c 53 65 70 74 65 |uly,Augu|st,Septe|
|00002530| 6d 62 65 72 2c 4f 63 74 | 6f 62 65 72 2c 4e 6f 76 |mber,Oct|ober,Nov|
|00002540| 65 6d 62 65 72 2c 44 65 | 63 65 6d 62 65 72 0d 07 |ember,De|cember..|
|00002550| 30 05 3a 0d 07 3a 38 f4 | 20 44 61 79 20 30 3d 30 |0.:..:8.| Day 0=0|
|00002560| 31 2f 30 31 2f 31 39 30 | 30 2c 20 20 48 61 6e 64 |1/01/190|0, Hand|
|00002570| 6c 65 73 20 64 61 74 65 | 73 20 66 72 6f 6d 20 31 |les date|s from 1|
|00002580| 39 30 30 20 74 6f 20 32 | 30 39 39 0d 07 44 18 dd |900 to 2|099..D..|
|00002590| 20 a4 44 61 74 65 5f 44 | 61 79 28 64 24 29 3a ea | .Date_D|ay(d$):.|
|000025a0| 20 6e 25 0d 07 4e 2c 64 | 79 25 3d bb 20 c0 64 24 | n%..N,d|y%=. .d$|
|000025b0| 2c 32 29 3a 6d 6e 25 3d | bb 20 c1 64 24 2c 34 2c |,2):mn%=|. .d$,4,|
|000025c0| 32 29 3a 79 72 25 3d bb | 20 c2 64 24 2c 32 29 0d |2):yr%=.| .d$,2).|
|000025d0| 07 58 38 e7 20 79 72 25 | 83 34 3d 30 20 80 20 79 |.X8. yr%|.4=0 . y|
|000025e0| 72 25 83 31 30 30 3c 3e | 30 20 8c 20 44 5f 4d 6f |r%.100<>|0 . D_Mo|
|000025f0| 6e 25 28 32 29 3d 32 39 | 20 8b 20 44 5f 4d 6f 6e |n%(2)=29| . D_Mon|
|00002600| 25 28 32 29 3d 32 38 0d | 07 62 1a 6e 25 3d 79 72 |%(2)=28.|.b.n%=yr|
|00002610| 25 2a 33 36 35 2b 28 79 | 72 25 2d 31 29 81 34 2d |%*365+(y|r%-1).4-|
|00002620| 31 0d 07 6c 24 e7 20 a4 | 44 61 74 65 5f 43 65 6e |1..l$. .|Date_Cen|
|00002630| 28 64 24 29 3e 31 39 30 | 30 20 8c 20 6e 25 2b 3d |(d$)>190|0 . n%+=|
|00002640| 33 36 35 32 34 0d 07 76 | 25 e3 20 69 25 3d 30 20 |36524..v|%. i%=0 |
|00002650| b8 20 6d 6e 25 2d 31 3a | 6e 25 3d 6e 25 2b 44 5f |. mn%-1:|n%=n%+D_|
|00002660| 4d 6f 6e 25 28 69 25 29 | 3a ed 0d 07 80 0b 3d 6e |Mon%(i%)|:.....=n|
|00002670| 25 2b 64 79 25 0d 07 8a | 23 dd 20 a4 44 61 74 65 |%+dy%...|#. .Date|
|00002680| 5f 43 65 6e 28 64 24 29 | 3a ea 20 79 72 25 2c 74 |_Cen(d$)|:. yr%,t|
|00002690| 79 72 25 2c 63 65 6e 25 | 0d 07 94 2d 79 72 25 3d |yr%,cen%|...-yr%=|
|000026a0| bb 20 c2 64 24 2c 34 29 | 3a e7 20 79 72 25 3e 31 |. .d$,4)|:. yr%>1|
|000026b0| 30 90 03 20 8c 3d 28 79 | 72 25 20 81 20 31 30 30 |0.. .=(y|r% . 100|
|000026c0| 29 2a 31 30 30 0d 07 9e | 10 79 72 25 3d bb 20 c2 |)*100...|.yr%=. .|
|000026d0| 64 24 2c 32 29 0d 07 a8 | 35 74 79 72 25 3d bb 20 |d$,2)...|5tyr%=. |
|000026e0| a4 52 65 61 64 56 61 72 | 28 22 53 79 73 24 59 65 |.ReadVar|("Sys$Ye|
|000026f0| 61 72 22 29 3a 63 65 6e | 25 3d 28 74 79 72 25 20 |ar"):cen|%=(tyr% |
|00002700| 81 20 31 30 30 29 2a 31 | 30 30 0d 07 b2 29 e7 20 |. 100)*1|00...). |
|00002710| 74 79 72 25 20 83 20 31 | 30 30 20 3e 35 30 20 80 |tyr% . 1|00 >50 .|
|00002720| 20 79 72 25 3c 32 30 20 | 8c 20 63 65 6e 25 2b 3d | yr%<20 |. cen%+=|
|00002730| 31 30 30 0d 07 bc 2a e7 | 20 74 79 72 25 20 83 20 |100...*.| tyr% . |
|00002740| 31 30 30 20 3c 3d 35 30 | 20 80 20 79 72 25 3e 38 |100 <=50| . yr%>8|
|00002750| 30 20 8c 20 63 65 6e 25 | 2d 3d 31 30 30 0d 07 c6 |0 . cen%|-=100...|
|00002760| 09 3d 63 65 6e 25 0d 07 | d0 18 dd 20 a4 52 65 61 |.=cen%..|... .Rea|
|00002770| 64 56 61 72 28 6e 24 29 | 3a ea 20 6c 65 6e 0d 07 |dVar(n$)|:. len..|
|00002780| da 30 c8 99 22 58 4f 53 | 5f 52 65 61 64 56 61 72 |.0.."XOS|_ReadVar|
|00002790| 56 61 6c 22 2c 6e 24 2c | 44 61 74 65 42 6c 6b 2c |Val",n$,|DateBlk,|
|000027a0| 36 34 2c 30 2c 33 20 b8 | 20 2c 2c 6c 65 6e 0d 07 |64,0,3 .| ,,len..|
|000027b0| e4 12 44 61 74 65 42 6c | 6b 3f 6c 65 6e 3d 26 44 |..DateBl|k?len=&D|
|000027c0| 0d 07 ee 0d 3d 24 44 61 | 74 65 42 6c 6b 0d 07 f8 |....=$Da|teBlk...|
|000027d0| 04 0d 08 02 04 0d 08 0c | 3e f4 20 2d 90 09 53 69 |........|>. -..Si|
|000027e0| 6d 70 6c 69 66 69 65 64 | 20 63 6f 64 65 20 66 72 |mplified| code fr|
|000027f0| 6f 6d 20 57 49 4d 50 5f | 4c 69 62 72 61 72 79 2d |om WIMP_|Library-|
|00002800| 90 0e 0d 08 16 21 f4 20 | 4f 6e 6c 79 20 62 61 73 |.....!. |Only bas|
|00002810| 69 63 20 66 75 6e 63 74 | 69 6f 6e 73 20 6e 65 65 |ic funct|ions nee|
|00002820| 64 65 64 0d 08 20 04 0d | 08 2a 27 dd 20 f2 57 69 |ded.. ..|.*'. .Wi|
|00002830| 6d 70 5f 49 6e 69 74 28 | 74 24 29 3a ea 20 78 2c |mp_Init(|t$):. x,|
|00002840| 74 65 6d 70 24 3a 4f 53 | 76 65 72 25 3d 30 0d 08 |temp$:OS|ver%=0..|
|00002850| 34 07 ea 20 85 0d 08 3e | 18 ee 20 85 20 ea 20 f2 |4.. ...>|.. . . .|
|00002860| 57 69 6d 70 49 6e 69 74 | 45 72 72 3a e0 0d 08 48 |WimpInit|Err:...H|
|00002870| 1a 54 61 73 6b 4e 61 6d | 65 24 3d 74 24 3a 57 69 |.TaskNam|e$=t$:Wi|
|00002880| 6d 70 46 69 6e 3d a3 0d | 08 52 21 de 20 57 69 6d |mpFin=..|.R!. Wim|
|00002890| 70 42 6c 6b 20 26 31 30 | 90 03 2c 20 57 69 6d 70 |pBlk &10|.., Wimp|
|000028a0| 42 6c 6b 32 20 31 32 38 | 0d 08 5c 3c 57 69 6d 70 |Blk2 128|..\<Wimp|
|000028b0| 5f 57 61 69 74 54 69 6d | 65 3d 35 20 20 3a 20 f4 |_WaitTim|e=5 : .|
|000028c0| 20 50 6f 6c 6c 20 49 64 | 6c 65 20 77 61 69 74 20 | Poll Id|le wait |
|000028d0| 74 69 6d 65 20 69 6e 20 | 63 65 6e 74 69 73 65 63 |time in |centisec|
|000028e0| 6f 6e 64 73 0d 08 66 13 | 57 69 6d 70 5f 57 6f 72 |onds..f.|Wimp_Wor|
|000028f0| 6b 54 69 6d 65 3d 91 0d | 08 70 30 57 69 6d 70 5f |kTime=..|.p0Wimp_|
|00002900| 4d 61 73 6b 25 3d 25 30 | 90 13 31 31 30 90 05 31 |Mask%=%0|..110..1|
|00002910| 31 30 90 04 0d 08 7a 04 | 0d 08 84 11 f4 20 53 65 |10....z.|..... Se|
|00002920| 74 20 75 70 20 54 61 73 | 6b 0d 08 8e 1b de 20 74 |t up Tas|k..... t|
|00002930| 61 73 6b 20 34 20 3a 20 | 24 74 61 73 6b 3d 22 54 |ask 4 : |$task="T|
|00002940| 41 53 4b 22 0d 08 98 3e | c8 99 22 57 69 6d 70 5f |ASK"...>|.."Wimp_|
|00002950| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 33 31 30 2c |Initiali|se",310,|
|00002960| 21 74 61 73 6b 2c 54 61 | 73 6b 4e 61 6d 65 24 2c |!task,Ta|skName$,|
|00002970| 30 20 b8 20 4f 53 76 65 | 72 25 2c 54 61 73 6b 49 |0 . OSve|r%,TaskI|
|00002980| 44 25 0d 08 a2 05 e1 0d | 08 ac 12 dd 20 f2 57 69 |D%......|.... .Wi|
|00002990| 6d 70 49 6e 69 74 45 72 | 72 0d 08 b6 31 e7 20 4f |mpInitEr|r...1. O|
|000029a0| 53 76 65 72 25 3e 30 20 | 8c 20 c8 99 22 57 69 6d |Sver%>0 |. .."Wim|
|000029b0| 70 5f 43 6c 6f 73 65 44 | 6f 77 6e 22 2c 54 61 73 |p_CloseD|own",Tas|
|000029c0| 6b 49 44 25 2c 21 74 61 | 73 6b 0d 08 c0 14 f6 3a |kID%,!ta|sk.....:|
|000029d0| f1 22 20 61 74 20 6c 69 | 6e 65 20 22 3b 9e 0d 08 |." at li|ne ";...|
|000029e0| ca 05 e1 0d 08 d4 05 3a | 0d 08 de 2b f4 20 47 69 |.......:|...+. Gi|
|000029f0| 76 65 20 63 6f 6e 74 72 | 6f 6c 20 62 61 63 6b 20 |ve contr|ol back |
|00002a00| 74 6f 20 57 69 6d 70 20 | 74 65 6d 70 6f 72 61 72 |to Wimp |temporar|
|00002a10| 69 6c 79 0d 08 e8 38 f4 | 20 44 6f 6e 74 20 50 6f |ily...8.| Dont Po|
|00002a20| 6c 6c 20 69 66 20 72 65 | 71 75 65 73 74 20 63 6f |ll if re|quest co|
|00002a30| 6d 65 73 20 74 6f 6f 20 | 66 61 73 74 20 61 66 74 |mes too |fast aft|
|00002a40| 65 72 20 6c 61 73 74 20 | 6f 6e 65 0d 08 f2 10 dd |er last |one.....|
|00002a50| 20 f2 57 69 6d 70 5f 57 | 61 69 74 0d 08 fc 2a e7 | .Wimp_W|ait...*.|
|00002a60| 20 28 91 2d 57 69 6d 70 | 5f 57 6f 72 6b 54 69 6d | (.-Wimp|_WorkTim|
|00002a70| 65 29 3e 3d 57 69 6d 70 | 5f 57 61 69 74 54 69 6d |e)>=Wimp|_WaitTim|
|00002a80| 65 2a 34 20 8c 0d 09 06 | 1e 20 20 f2 57 69 6d 70 |e*4 ....|. .Wimp|
|00002a90| 57 61 69 74 28 57 69 6d | 70 5f 57 61 69 74 54 69 |Wait(Wim|p_WaitTi|
|00002aa0| 6d 65 29 0d 09 10 15 20 | 20 57 69 6d 70 5f 57 6f |me).... | Wimp_Wo|
|00002ab0| 72 6b 54 69 6d 65 3d 91 | 0d 09 1a 07 20 20 cd 0d |rkTime=.|.... ..|
|00002ac0| 09 24 05 e1 0d 09 2e 2c | f4 20 47 65 6e 65 72 61 |.$.....,|. Genera|
|00002ad0| 6c 20 63 61 6c 6c 20 77 | 69 74 68 20 74 69 6d 65 |l call w|ith time|
|00002ae0| 20 69 6e 20 63 65 6e 74 | 69 73 65 63 6f 6e 64 73 | in cent|iseconds|
|00002af0| 0d 09 38 28 dd 20 f2 57 | 69 6d 70 57 61 69 74 28 |..8(. .W|impWait(|
|00002b00| 57 61 69 74 54 69 6d 65 | 29 3a ea 20 74 69 6d 65 |WaitTime|):. time|
|00002b10| 2c 72 65 61 73 6f 6e 25 | 0d 09 42 11 e7 20 57 69 |,reason%|..B.. Wi|
|00002b20| 6d 70 46 69 6e 20 8c 20 | e1 0d 09 4c 24 c8 99 20 |mpFin . |...L$.. |
|00002b30| 22 4f 53 5f 52 65 61 64 | 4d 6f 6e 6f 74 6f 6e 69 |"OS_Read|Monotoni|
|00002b40| 63 54 69 6d 65 22 20 b8 | 20 74 69 6d 65 0d 09 56 |cTime" .| time..V|
|00002b50| 05 f5 0d 09 60 46 20 90 | 03 c8 99 20 22 57 69 6d |....`F .|... "Wim|
|00002b60| 70 5f 50 6f 6c 6c 49 64 | 6c 65 22 2c 57 69 6d 70 |p_PollId|le",Wimp|
|00002b70| 5f 4d 61 73 6b 25 2c 57 | 69 6d 70 42 6c 6b 2c 74 |_Mask%,W|impBlk,t|
|00002b80| 69 6d 65 2b 57 61 69 74 | 54 69 6d 65 2c 30 20 b8 |ime+Wait|Time,0 .|
|00002b90| 20 72 65 61 73 6f 6e 25 | 0d 09 6a 20 90 04 f2 57 | reason%|..j ...W|
|00002ba0| 69 6d 70 5f 50 6f 6c 6c | 41 63 74 69 6f 6e 28 72 |imp_Poll|Action(r|
|00002bb0| 65 61 73 6f 6e 25 29 0d | 09 74 1b 20 90 03 fd 20 |eason%).|.t. ... |
|00002bc0| 57 69 6d 70 49 64 6c 65 | 20 84 20 57 69 6d 70 46 |WimpIdle| . WimpF|
|00002bd0| 69 6e 0d 09 7e 1b e7 20 | 57 69 6d 70 46 69 6e 20 |in..~.. |WimpFin |
|00002be0| 8c 20 f2 57 69 6d 70 5f | 43 6c 6f 73 65 0d 09 7f |. .Wimp_|Close...|
|00002bf0| 05 e1 0d 09 80 10 dd f2 | 57 69 6d 70 5f 43 6c 6f |........|Wimp_Clo|
|00002c00| 73 65 0d 09 88 24 c8 99 | 22 57 69 6d 70 5f 43 6c |se...$..|"Wimp_Cl|
|00002c10| 6f 73 65 44 6f 77 6e 22 | 2c 54 61 73 6b 49 44 25 |oseDown"|,TaskID%|
|00002c20| 2c 21 74 61 73 6b 0d 09 | 9c 05 e1 0d 09 a6 05 3a |,!task..|.......:|
|00002c30| 0d 09 b0 24 dd 20 f2 57 | 69 6d 70 5f 50 6f 6c 6c |...$. .W|imp_Poll|
|00002c40| 41 63 74 69 6f 6e 28 72 | 65 61 73 6f 6e 25 29 3a |Action(r|eason%):|
|00002c50| ea 20 69 25 0d 09 ba 18 | 57 69 6d 70 46 69 6e 3d |. i%....|WimpFin=|
|00002c60| a3 3a 57 69 6d 70 49 64 | 6c 65 3d a3 0d 09 c4 10 |.:WimpId|le=.....|
|00002c70| c8 8e 20 72 65 61 73 6f | 6e 25 20 ca 0d 09 ce 1a |.. reaso|n% .....|
|00002c80| 20 20 c9 20 30 20 90 05 | 3a 20 57 69 6d 70 49 64 | . 0 ..|: WimpId|
|00002c90| 6c 65 3d b9 0d 09 d8 23 | 20 20 c9 20 31 37 2c 31 |le=....#| . 17,1|
|00002ca0| 38 20 3a 20 f2 57 69 6d | 70 5f 4d 65 73 73 28 57 |8 : .Wim|p_Mess(W|
|00002cb0| 69 6d 70 42 6c 6b 29 0d | 09 e2 23 20 20 c9 20 31 |impBlk).|..# . 1|
|00002cc0| 39 20 90 04 3a 20 f2 57 | 69 6d 70 5f 4d 65 73 73 |9 ..: .W|imp_Mess|
|00002cd0| 28 57 69 6d 70 42 6c 6b | 29 0d 09 ec 32 20 20 7f |(WimpBlk|)...2 .|
|00002ce0| 20 20 3a 20 f4 20 4d 61 | 73 6b 20 6f 66 66 20 74 | : . Ma|sk off t|
|00002cf0| 6f 20 73 74 6f 70 20 67 | 65 74 74 69 6e 67 20 69 |o stop g|etting i|
|00002d00| 74 20 69 6e 20 66 75 74 | 75 72 65 0d 09 f6 3b 20 |t in fut|ure...; |
|00002d10| 90 0d 3a 20 57 69 6d 70 | 5f 4d 61 73 6b 25 3d 28 |..: Wimp|_Mask%=(|
|00002d20| 57 69 6d 70 5f 4d 61 73 | 6b 25 20 84 20 28 31 3c |Wimp_Mas|k% . (1<|
|00002d30| 3c 72 65 61 73 6f 6e 25 | 29 29 20 20 0d 0a 0a 07 |<reason%|)) ....|
|00002d40| 20 20 cb 0d 0a 14 05 e1 | 0d 0a 1e 05 3a 0d 0a 28 | ......|....:..(|
|00002d50| 2c dd 20 f2 57 69 6d 70 | 5f 4d 65 73 73 28 57 69 |,. .Wimp|_Mess(Wi|
|00002d60| 6d 70 42 6c 6b 29 3a ea | 20 62 25 3a 62 25 3d 57 |mpBlk):.| b%:b%=W|
|00002d70| 69 6d 70 42 6c 6b 21 31 | 36 0d 0a 32 13 c8 8e 20 |impBlk!1|6..2... |
|00002d80| 57 69 6d 70 42 6c 6b 21 | 31 36 20 ca 0d 0a 3c 2d |WimpBlk!|16 ...<-|
|00002d90| 20 90 03 c9 20 30 2c 31 | 34 20 90 03 3a 20 57 69 | ... 0,1|4 ..: Wi|
|00002da0| 6d 70 46 69 6e 3d b9 20 | 90 0b 3a f4 20 51 75 69 |mpFin=. |..:. Qui|
|00002db0| 74 0d 0a 46 08 20 90 03 | cb 0d 0a 50 05 e1 0d 0a |t..F. ..|...P....|
|00002dc0| 5a 04 0d 0a 64 30 f4 20 | 50 75 74 20 53 70 72 69 |Z...d0. |Put Spri|
|00002dd0| 74 65 20 28 73 61 6d 65 | 20 6e 61 6d 65 20 61 73 |te (same| name as|
|00002de0| 20 54 61 73 6b 29 20 6f | 6e 20 49 63 6f 6e 20 42 | Task) o|n Icon B|
|00002df0| 61 72 0d 0a 6e 20 dd 20 | f2 57 69 6d 70 5f 49 63 |ar..n . |.Wimp_Ic|
|00002e00| 6f 6e 42 61 72 3a ea 20 | 77 25 2c 53 70 72 69 74 |onBar:. |w%,Sprit|
|00002e10| 65 24 0d 0a 78 19 53 70 | 72 69 74 65 24 3d 22 21 |e$..x.Sp|rite$="!|
|00002e20| 22 2b 54 61 73 6b 4e 61 | 6d 65 24 0d 0a 82 28 57 |"+TaskNa|me$...(W|
|00002e30| 69 6d 70 42 6c 6b 21 30 | 3d 2d 31 3a 57 69 6d 70 |impBlk!0|=-1:Wimp|
|00002e40| 42 6c 6b 21 34 3d 30 3a | 57 69 6d 70 42 6c 6b 21 |Blk!4=0:|WimpBlk!|
|00002e50| 38 3d 30 0d 0a 8c 1f 57 | 69 6d 70 42 6c 6b 21 31 |8=0....W|impBlk!1|
|00002e60| 32 3d 36 38 3a 57 69 6d | 70 42 6c 6b 21 31 36 3d |2=68:Wim|pBlk!16=|
|00002e70| 36 38 0d 0a 96 14 57 69 | 6d 70 42 6c 6b 21 32 30 |68....Wi|mpBlk!20|
|00002e80| 3d 26 33 30 31 41 0d 0a | a0 2c c8 99 22 58 57 69 |=&301A..|.,.."XWi|
|00002e90| 6d 70 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 31 32 |mp_Sprit|eOp",&12|
|00002ea0| 38 2c 2c 53 70 72 69 74 | 65 24 20 b8 20 2c 90 03 |8,,Sprit|e$ . ,..|
|00002eb0| 77 25 0d 0a aa 22 e7 20 | 77 25 3d 30 20 8c 20 53 |w%...". |w%=0 . S|
|00002ec0| 70 72 69 74 65 24 3d 22 | 41 70 70 6c 69 63 61 74 |prite$="|Applicat|
|00002ed0| 69 6f 6e 22 0d 0a b4 1d | 24 28 57 69 6d 70 42 6c |ion"....|$(WimpBl|
|00002ee0| 6b 2b 32 34 29 3d 53 70 | 72 69 74 65 24 2b bd 26 |k+24)=Sp|rite$+.&|
|00002ef0| 44 0d 0a be 20 c8 99 22 | 57 69 6d 70 5f 43 72 65 |D... .."|Wimp_Cre|
|00002f00| 61 74 65 49 63 6f 6e 22 | 2c 2c 57 69 6d 70 42 6c |ateIcon"|,,WimpBl|
|00002f10| 6b 0d 0a c8 05 e1 0d 0a | d2 04 0d 0a dc 3d f4 20 |k.......|.....=. |
|00002f20| 74 61 6b 65 73 20 74 65 | 78 74 20 73 75 63 68 20 |takes te|xt such |
|00002f30| 61 73 20 22 56 61 72 24 | 20 90 04 76 61 6c 22 20 |as "Var$| ..val" |
|00002f40| 61 6e 64 20 63 72 65 61 | 74 65 73 20 61 20 76 61 |and crea|tes a va|
|00002f50| 72 69 61 62 6c 65 0d 0a | e6 32 dd 20 f2 53 65 74 |riable..|.2. .Set|
|00002f60| 42 61 73 28 76 61 72 24 | 2c 76 61 6c 24 29 3a e7 |Bas(var$|,val$):.|
|00002f70| 20 c2 76 61 72 24 29 3c | 3e 22 24 22 20 8c 20 76 | .var$)<|>"$" . v|
|00002f80| 61 72 24 2b 3d 22 24 22 | 0d 0a f0 2d 76 6f 69 64 |ar$+="$"|...-void|
|00002f90| 3d a0 28 22 46 4e 42 61 | 73 53 65 74 28 22 2b 76 |=.("FNBa|sSet("+v|
|00002fa0| 61 72 24 2b 22 2c 22 90 | 03 2b 76 61 6c 24 2b 22 |ar$+",".|.+val$+"|
|00002fb0| 90 03 29 22 29 0d 0a fa | 05 e1 0d 0b 04 1f dd 20 |..)")...|....... |
|00002fc0| a4 42 61 73 53 65 74 28 | f8 20 61 24 2c 62 24 29 |.BasSet(|. a$,b$)|
|00002fd0| 3a 61 24 3d 62 24 3a 3d | b9 0d 0b 0e 04 0d 0b 18 |:a$=b$:=|........|
|00002fe0| 04 0d ff 46 69 6c 65 44 | 61 74 61 83 21 53 70 72 |...FileD|ata.!Spr|
|00002ff0| 69 74 65 73 00 00 00 e0 | 02 00 00 46 f9 ff ff a0 |ites....|...F....|
|00003000| 26 a9 1c 03 00 84 6b 01 | 00 90 03 10 00 90 03 e4 |&.....k.|........|
|00003010| 02 00 00 d4 02 00 00 21 | 73 6c 69 70 63 68 61 72 |.......!|slipchar|
|00003020| 67 00 00 04 00 90 03 10 | 00 90 07 07 00 90 03 2c |g.......|.......,|
|00003030| 00 90 03 80 01 00 00 0c | 00 90 03 7c 77 90 04 b7 |........|...|w...|
|00003040| bb 90 03 cb cc 77 cc 90 | 05 44 44 04 47 44 74 77 |.....w..|.DD.GDtw|
|00003050| 77 b7 7b 77 bb bb 77 90 | 03 cc 90 04 44 44 04 47 |w.{w..w.|....DD.G|
|00003060| da aa dd bd bb 90 05 cc | 77 cc 90 05 44 44 04 47 |........|w...DD.G|
|00003070| da 77 aa bb 90 05 74 11 | 90 07 44 44 04 47 77 90 |.w....t.|..DD.Gw.|
|00003080| 04 b7 bb f7 b7 77 77 11 | 90 06 44 44 04 47 da 77 |.....ww.|..DD.G.w|
|00003090| ad ad bb 90 04 b4 11 90 | 07 44 44 04 47 ad da da |........|.DD.G...|
|000030a0| aa bb 90 05 1b 11 90 06 | 44 44 04 77 90 0f 11 11 |........|DD.w....|
|000030b0| 44 44 04 27 22 90 0d 72 | 11 11 44 44 04 27 b2 2b |DD.'"..r|..DD.'.+|
|000030c0| b2 2b 22 90 03 2f 7f 77 | 90 06 11 44 44 04 27 b2 |.+"../.w|...DD.'.|
|000030d0| 2b b2 2b 22 90 03 77 cc | 90 07 17 44 44 04 27 b2 |+.+"..w.|...DD.'.|
|000030e0| 2b b2 2b 22 90 03 c7 cc | 77 90 05 cc 7c 44 44 04 |+.+"....|w...|DD.|
|000030f0| 27 b2 2b b2 2b 22 90 03 | 77 77 cc 55 90 03 cc 77 |'.+.+"..|ww.U...w|
|00003100| 77 44 44 04 27 22 90 08 | c7 5c 05 00 50 c5 7c cc |wDD.'"..|.\..P.|.|
|00003110| 44 44 04 77 90 09 cc 5c | 05 00 50 c5 cc 77 44 44 |DD.w...\|..P..wDD|
|00003120| 04 cc 90 08 77 cc cc 55 | 90 03 cc cc 77 44 44 04 |....w..U|....wDD.|
|00003130| 00 90 08 70 77 90 08 00 | 90 09 ff 90 03 00 90 08 |...pw...|........|
|00003140| ff 90 03 00 90 05 f0 0f | 00 f0 00 90 08 ff 90 03 |........|........|
|00003150| 00 90 04 f0 ff 90 03 00 | 90 09 ff 90 03 00 90 05 |........|........|
|00003160| f0 0f 00 90 0a ff 90 03 | 00 90 05 f0 0f 00 90 0a |........|........|
|00003170| ff 90 03 00 90 05 ff 90 | 04 00 90 08 ff 90 03 00 |........|........|
|00003180| 90 11 ff 90 12 00 00 ff | 90 12 00 00 ff 90 13 00 |........|........|
|00003190| ff 90 13 0f ff 90 3b 00 | ff 90 13 0f ff 90 03 00 |......;.|........|
|000031a0| 90 08 f0 ff 90 07 0f ff | 90 03 00 90 08 f0 ff 90 |........|........|
|000031b0| 07 0f ff 90 03 46 69 6c | 65 44 61 74 61 83 50 61 |.....Fil|eData.Pa|
|000031c0| 72 61 6d 73 00 00 00 00 | 00 4b 05 00 00 46 ff ff |rams....|.K...F..|
|000031d0| ff 18 57 60 3c 03 00 00 | 78 23 20 50 61 72 61 6d |..W`<...|x# Param|
|000031e0| 65 74 65 72 73 20 66 6f | 72 20 53 6c 69 70 43 68 |eters fo|r SlipCh|
|000031f0| 61 72 67 20 20 4a 75 6c | 79 20 31 39 39 35 0a 0a |arg Jul|y 1995..|
|00003200| 42 54 44 61 79 53 74 61 | 72 74 20 90 0d 30 38 3a |BTDaySta|rt ..08:|
|00003210| 30 30 0a 42 54 44 61 79 | 45 6e 64 20 90 0f 31 38 |00.BTDay|End ..18|
|00003220| 3a 30 30 0a 90 03 23 20 | 4d 69 6e 69 6d 75 6d 20 |:00...# |Minimum |
|00003230| 43 68 61 72 67 65 0a 42 | 54 4d 69 6e 20 90 12 34 |Charge.B|TMin ..4|
|00003240| 2e 32 70 0a 0a 56 41 54 | 20 90 13 31 37 2e 35 0a |.2p..VAT| ..17.5.|
|00003250| 0a 23 20 54 68 69 73 20 | 69 73 20 74 68 65 20 74 |.# This |is the t|
|00003260| 61 62 6c 65 20 6f 66 20 | 72 61 74 65 73 20 66 6f |able of |rates fo|
|00003270| 72 20 42 54 0a 23 20 90 | 10 6c 6f 63 61 6c 20 90 |r BT.# .|.local .|
|00003280| 03 72 65 67 69 6f 6e 61 | 6c 20 6e 61 74 69 6f 6e |.regiona|l nation|
|00003290| 61 6c 0a 44 61 79 20 90 | 0f 33 2e 33 36 20 90 05 |al.Day .|.3.36 ..|
|000032a0| 37 2e 30 30 20 90 05 38 | 2e 33 32 20 0a 45 76 65 |7.00 ..8|.32 .Eve|
|000032b0| 6e 69 6e 67 20 90 0b 31 | 2e 34 30 20 90 05 33 2e |ning ..1|.40 ..3.|
|000032c0| 33 36 20 90 05 34 2e 39 | 34 0a 57 65 65 6b 65 6e |36 ..4.9|4.Weeken|
|000032d0| 64 20 90 0b 30 2e 38 35 | 20 90 05 32 2e 38 30 20 |d ..0.85| ..2.80 |
|000032e0| 90 05 32 2e 38 30 0a 90 | 03 23 20 54 68 65 20 66 |..2.80..|.# The f|
|000032f0| 6f 6c 6c 6f 77 69 6e 67 | 20 69 73 20 69 6e 66 6f |ollowing| is info|
|00003300| 72 6d 61 74 69 6f 6e 20 | 66 6f 72 20 4d 65 72 63 |rmation |for Merc|
|00003310| 75 72 79 2e 0a 23 20 49 | 66 20 61 20 6e 75 6d 62 |ury..# I|f a numb|
|00003320| 65 72 20 62 65 67 69 6e | 73 20 77 69 74 68 20 31 |er begin|s with 1|
|00003330| 33 31 20 6f 72 20 31 33 | 32 20 69 74 20 69 73 20 |31 or 13|2 it is |
|00003340| 61 73 73 75 6d 65 64 20 | 74 6f 20 62 65 20 4d 65 |assumed |to be Me|
|00003350| 72 63 75 72 79 0a 0a 4d | 43 4c 44 61 79 53 74 61 |rcury..M|CLDaySta|
|00003360| 72 74 20 90 0d 30 38 3a | 30 30 0a 4d 43 4c 44 61 |rt ..08:|00.MCLDa|
|00003370| 79 45 6e 64 20 90 0f 31 | 38 3a 30 30 0a 0a 23 20 |yEnd ..1|8:00..# |
|00003380| 4d 69 6e 69 6d 75 6d 20 | 43 68 61 72 67 65 0a 4d |Minimum |Charge.M|
|00003390| 43 4c 4d 69 6e 20 90 10 | 33 2e 33 70 0a 0a 23 20 |CLMin ..|3.3p..# |
|000033a0| 4d 43 4c 20 74 61 72 69 | 66 66 20 74 6f 20 75 73 |MCL tari|ff to us|
|000033b0| 65 0a 4d 43 4c 72 61 74 | 65 20 90 0f 53 6d 61 72 |e.MCLrat|e ..Smar|
|000033c0| 74 43 61 6c 6c 0a 23 20 | 4d 43 4c 72 61 74 65 20 |tCall.# |MCLrate |
|000033d0| 90 0f 53 74 61 6e 64 61 | 72 64 0a 0a 23 20 54 68 |..Standa|rd..# Th|
|000033e0| 69 73 20 69 73 20 74 68 | 65 20 74 61 62 6c 65 20 |is is th|e table |
|000033f0| 6f 66 20 72 61 74 65 73 | 20 66 6f 72 20 4d 65 72 |of rates| for Mer|
|00003400| 63 75 72 79 20 53 6d 61 | 72 74 43 61 6c 6c 0a 23 |cury Sma|rtCall.#|
|00003410| 20 90 10 6c 6f 63 61 6c | 20 90 03 72 65 67 69 6f | ..local| ..regio|
|00003420| 6e 61 6c 20 6e 61 74 69 | 6f 6e 61 6c 0a 53 74 61 |nal nati|onal.Sta|
|00003430| 6e 64 61 72 64 53 20 90 | 09 37 2e 34 30 20 90 05 |ndardS .|.7.40 ..|
|00003440| 36 2e 37 30 20 90 05 36 | 2e 37 30 20 0a 45 63 6f |6.70 ..6|.70 .Eco|
|00003450| 6e 6f 6d 79 53 20 90 0a | 32 2e 34 35 20 90 05 32 |nomyS ..|2.45 ..2|
|00003460| 2e 38 30 20 90 05 32 2e | 38 30 0a 57 65 6e 64 53 |.80 ..2.|80.WendS|
|00003470| 20 90 0d 32 2e 34 35 20 | 90 05 32 2e 38 30 20 90 | ..2.45 |..2.80 .|
|00003480| 05 32 2e 38 30 0a 0a 23 | 20 54 68 69 73 20 69 73 |.2.80..#| This is|
|00003490| 20 74 68 65 20 74 61 62 | 6c 65 20 6f 66 20 72 61 | the tab|le of ra|
|000034a0| 74 65 73 20 66 6f 72 20 | 4d 65 72 63 75 72 79 20 |tes for |Mercury |
|000034b0| 53 74 61 6e 64 61 72 64 | 0a 23 20 90 10 6c 6f 63 |Standard|.# ..loc|
|000034c0| 61 6c 20 90 03 72 65 67 | 69 6f 6e 61 6c 20 6e 61 |al ..reg|ional na|
|000034d0| 74 69 6f 6e 61 6c 0a 53 | 74 61 6e 64 61 72 64 20 |tional.S|tandard |
|000034e0| 90 0a 37 2e 34 30 20 90 | 05 36 2e 32 30 20 90 05 |..7.40 .|.6.20 ..|
|000034f0| 37 2e 30 30 20 0a 45 63 | 6f 6e 6f 6d 79 20 90 0b |7.00 .Ec|onomy ..|
|00003500| 32 2e 34 35 20 90 05 32 | 2e 34 30 20 90 05 34 2e |2.45 ..2|.40 ..4.|
|00003510| 30 30 0a 57 65 6e 64 20 | 90 0e 32 2e 34 35 20 90 |00.Wend |..2.45 .|
|00003520| 05 32 2e 34 30 20 90 05 | 32 2e 35 30 0a 0a 23 20 |.2.40 ..|2.50..# |
|00003530| 4e 75 6d 62 65 72 73 20 | 64 65 66 61 75 6c 74 20 |Numbers |default |
|00003540| 74 6f 20 6e 61 74 69 6f | 6e 61 6c 0a 23 20 50 75 |to natio|nal.# Pu|
|00003550| 74 20 61 6e 79 20 74 68 | 61 74 20 61 72 65 20 6e |t any th|at are n|
|00003560| 6f 74 20 68 65 72 65 0a | 0a 30 31 38 31 20 33 33 |ot here.|.0181 33|
|00003570| 38 20 34 38 34 38 20 90 | 08 6c 6f 63 61 6c 0a 30 |8 4848 .|.local.0|
|00003580| 31 38 31 20 33 34 33 20 | 34 38 34 38 20 90 08 6c |181 343 |4848 ..l|
|00003590| 6f 63 61 6c 0a 31 33 31 | 20 31 38 31 20 33 33 38 |ocal.131| 181 338|
|000035a0| 20 34 38 34 38 20 90 05 | 6c 6f 63 61 6c 0a 30 31 | 4848 ..|local.01|
|000035b0| 37 33 34 20 32 38 34 38 | 34 38 20 90 09 72 65 67 |734 2848|48 ..reg|
|000035c0| 69 6f 6e 61 6c 20 0a 30 | 31 31 35 39 20 35 34 34 |ional .0|1159 544|
|000035d0| 38 34 38 20 90 09 6e 61 | 74 69 6f 6e 61 6c 0a 31 |848 ..na|tional.1|
|000035e0| 33 31 20 31 37 33 34 20 | 32 38 34 38 34 38 20 90 |31 1734 |284848 .|
|000035f0| 06 72 65 67 69 6f 6e 61 | 6c 0a 0a 23 20 65 6e 64 |.regiona|l..# end|
|00003600| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+
