/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c1 / configplus / !Config+ / Modules / Econet / Module

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 25 f4 20 3e 45 | 63 6f 6e 65 74 2e 4d 6f |...%. >E|conet.Mo|
|00000010| 64 75 6c 65 20 28 43 6f | 6e 66 69 67 2b 20 4d 6f |dule (Co|nfig+ Mo|
|00000020| 64 75 6c 65 29 0d 00 14 | 26 85 20 a2 20 30 2c 22 |dule)...|&. . 0,"|
|00000030| 44 6f 20 6e 6f 74 20 72 | 75 6e 20 43 6f 6e 66 69 |Do not r|un Confi|
|00000040| 67 2b 20 6d 6f 64 75 6c | 65 73 22 0d 00 1e 05 e0 |g+ modul|es".....|
|00000050| 0d 00 28 05 3a 0d 00 32 | 32 f4 20 2a 2a 2a 2a 20 |..(.:..2|2. **** |
|00000060| 47 65 6e 65 72 61 6c 20 | 70 72 6f 63 65 64 75 72 |General |procedur|
|00000070| 65 73 20 66 6f 72 20 74 | 68 69 73 20 6d 6f 64 75 |es for t|his modu|
|00000080| 6c 65 20 2a 2a 2a 2a 0d | 00 3c 05 3a 0d 00 46 2e |le ****.|.<.:..F.|
|00000090| dd a4 76 65 72 73 69 6f | 6e 5f 65 63 6f 6e 65 74 |..versio|n_econet|
|000000a0| 28 77 69 6e 29 3d 22 31 | 2e 30 30 20 28 31 31 20 |(win)="1|.00 (11 |
|000000b0| 4a 75 6c 20 31 39 39 36 | 29 22 0d 00 50 2a dd a4 |Jul 1996|)"..P*..|
|000000c0| 61 75 74 68 6f 72 5f 65 | 63 6f 6e 65 74 28 77 69 |author_e|conet(wi|
|000000d0| 6e 29 3d 22 4a 75 73 74 | 69 6e 20 46 6c 65 74 63 |n)="Just|in Fletc|
|000000e0| 68 65 72 22 0d 00 5a 05 | 3a 0d 00 64 11 dd a4 69 |her"..Z.|:..d...i|
|000000f0| 6e 69 74 5f 65 63 6f 6e | 65 74 0d 00 6e 1d c8 99 |nit_econ|et..n...|
|00000100| 20 26 36 30 30 30 45 2c | 30 2c 2d 31 20 b8 20 72 | &6000E,|0,-1 . r|
|00000110| 30 3b 66 6c 61 67 73 0d | 00 78 15 e7 20 28 66 6c |0;flags.|.x.. (fl|
|00000120| 61 67 73 20 80 20 31 29 | 3d 30 20 8c 0d 00 82 11 |ags . 1)|=0 .....|
|00000130| 20 f2 65 63 6f 6e 65 74 | 5f 6d 61 6b 65 0d 00 8c | .econet|_make...|
|00000140| 05 cd 0d 00 96 06 3d 30 | 0d 00 a0 11 f4 20 66 6c |......=0|..... fl|
|00000150| 61 67 20 62 69 74 73 20 | 3a 0d 00 aa 22 f4 20 30 |ag bits |:...". 0|
|00000160| 20 20 41 63 63 65 70 74 | 73 20 64 61 74 61 6c 6f |  Accept|s datalo|
|00000170| 61 64 20 6d 65 73 73 61 | 67 65 73 0d 00 b4 05 3a |ad messa|ges....:|
|00000180| 0d 00 be 19 dd a4 77 69 | 6e 6f 70 65 6e 5f 65 63 |......wi|nopen_ec|
|00000190| 6f 6e 65 74 28 77 69 6e | 29 0d 00 c8 0c c8 8e 20 |onet(win|)...... |
|000001a0| 77 69 6e 20 ca 0d 00 d2 | 15 20 c9 20 31 3a f2 65 |win ....|. . 1:.e|
|000001b0| 63 6f 6e 65 74 5f 6f 70 | 65 6e 0d 00 dc 05 cb 0d |conet_op|en......|
|000001c0| 00 e6 06 3d 30 0d 00 f0 | 05 3a 0d 00 fa 1a dd a4 |...=0...|.:......|
|000001d0| 77 69 6e 63 6c 6f 73 65 | 5f 65 63 6f 6e 65 74 28 |winclose|_econet(|
|000001e0| 77 69 6e 29 0d 01 04 0c | c8 8e 20 77 69 6e 20 ca |win)....|.. win .|
|000001f0| 0d 01 0e 16 20 c9 20 31 | 3a f2 65 63 6f 6e 65 74 |.... . 1|:.econet|
|00000200| 5f 63 6c 6f 73 65 0d 01 | 18 05 cb 0d 01 22 06 3d |_close..|.....".=|
|00000210| 30 0d 01 2c 05 3a 0d 01 | 36 33 dd a4 6d 6f 75 73 |0..,.:..|63..mous|
|00000220| 65 63 6c 69 63 6b 5f 65 | 63 6f 6e 65 74 28 77 69 |eclick_e|conet(wi|
|00000230| 6e 2c 69 63 6f 6e 2c 62 | 75 74 2c 6e 61 6d 65 24 |n,icon,b|ut,name$|
|00000240| 2c 61 63 74 69 6f 6e 24 | 29 0d 01 40 0c c8 8e 20 |,action$|)..@... |
|00000250| 77 69 6e 20 ca 0d 01 4a | 29 20 c9 20 31 3a f2 65 |win ...J|) . 1:.e|
|00000260| 63 6f 6e 65 74 5f 63 6c | 69 63 6b 28 62 75 74 2c |conet_cl|ick(but,|
|00000270| 6e 61 6d 65 24 2c 61 63 | 74 69 6f 6e 24 29 0d 01 |name$,ac|tion$)..|
|00000280| 54 05 cb 0d 01 5e 06 3d | 30 0d 01 68 05 3a 0d 01 |T....^.=|0..h.:..|
|00000290| 72 24 dd a4 6d 65 6e 75 | 6f 70 74 5f 65 63 6f 6e |r$..menu|opt_econ|
|000002a0| 65 74 28 77 69 6e 2c 6d | 65 6e 75 24 2c 6f 70 74 |et(win,m|enu$,opt|
|000002b0| 24 29 0d 01 7c 0c c8 8e | 20 77 69 6e 20 ca 0d 01 |$)..|...| win ...|
|000002c0| 86 24 20 c9 20 31 3a f2 | 65 63 6f 6e 65 74 5f 6d |.$ . 1:.|econet_m|
|000002d0| 65 6e 75 6f 70 74 28 6d | 65 6e 75 24 2c 6f 70 74 |enuopt(m|enu$,opt|
|000002e0| 24 29 0d 01 90 05 cb 0d | 01 9a 06 3d 30 0d 01 a4 |$)......|...=0...|
|000002f0| 05 3a 0d 01 ae 28 dd a4 | 68 65 6c 70 5f 65 63 6f |.:...(..|help_eco|
|00000300| 6e 65 74 28 77 69 6e 2c | 69 63 6f 6e 2c 6e 61 6d |net(win,|icon,nam|
|00000310| 65 24 2c 65 78 74 72 61 | 24 29 0d 01 b8 0c c8 8e |e$,extra|$)......|
|00000320| 20 77 69 6e 20 ca 0d 01 | c2 23 20 c9 20 31 3a f2 | win ...|.# . 1:.|
|00000330| 65 63 6f 6e 65 74 5f 68 | 65 6c 70 28 6e 61 6d 65 |econet_h|elp(name|
|00000340| 24 2c 65 78 74 72 61 24 | 29 0d 01 cc 05 cb 0d 01 |$,extra$|).......|
|00000350| d6 06 3d 30 0d 01 e0 05 | 3a 0d 01 ea 05 3a 0d 01 |..=0....|:....:..|
|00000360| f4 32 f4 20 2a 2a 2a 2a | 20 41 72 65 61 20 73 70 |.2. ****| Area sp|
|00000370| 65 63 69 66 69 63 20 70 | 61 72 74 73 20 6f 66 20 |ecific p|arts of |
|00000380| 74 68 69 73 20 6d 6f 64 | 75 6c 65 20 2a 2a 2a 2a |this mod|ule ****|
|00000390| 0d 01 fe 05 3a 0d 02 08 | 11 dd f2 65 63 6f 6e 65 |....:...|...econe|
|000003a0| 74 5f 6d 61 6b 65 0d 02 | 12 37 f2 63 72 65 61 74 |t_make..|.7.creat|
|000003b0| 65 77 69 6e 28 31 2c 22 | 45 63 6f 6e 65 74 22 2c |ewin(1,"|Econet",|
|000003c0| 22 6e 65 74 77 6f 72 6b | 22 2c 22 2a 45 63 6f 6e |"network|","*Econ|
|000003d0| 65 74 20 73 65 74 74 69 | 6e 67 73 22 29 0d 02 1c |et setti|ngs")...|
|000003e0| 1c 20 f2 73 74 61 72 74 | 62 6c 6f 63 6b 28 22 53 |. .start|block("S|
|000003f0| 74 61 74 69 6f 6e 73 22 | 29 0d 02 26 0f 20 20 f2 |tations"|)..&.  .|
|00000400| 73 74 61 72 74 72 6f 77 | 0d 02 30 2b 20 20 20 64 |startrow|..0+   d|
|00000410| 75 6d 6d 79 3d a4 69 63 | 6f 6e 5f 74 65 78 74 28 |ummy=.ic|on_text(|
|00000420| 22 54 68 69 73 20 73 74 | 61 74 69 6f 6e 22 2c 2d |"This st|ation",-|
|00000430| 2e 34 29 0d 02 3a 24 20 | 20 20 64 75 6d 6d 79 3d |.4)..:$ |  dummy=|
|00000440| a4 69 63 6f 6e 5f 73 70 | 72 69 74 65 28 22 6e 65 |.icon_sp|rite("ne|
|00000450| 74 77 6f 72 6b 22 29 0d | 02 44 2c 20 20 20 65 63 |twork").|.D,   ec|
|00000460| 6f 6e 65 74 5f 68 65 72 | 65 3d a4 69 63 6f 6e 5f |onet_her|e=.icon_|
|00000470| 64 61 74 61 28 37 2c 39 | 2c 22 48 65 72 65 22 2c |data(7,9|,"Here",|
|00000480| 2d 32 29 0d 02 4e 2a 20 | 20 20 64 75 6d 6d 79 3d |-2)..N* |  dummy=|
|00000490| a4 69 63 6f 6e 5f 74 65 | 78 74 28 22 46 69 6c 65 |.icon_te|xt("File|
|000004a0| 20 73 65 72 76 65 72 22 | 2c 2d 2e 34 29 0d 02 58 | server"|,-.4)..X|
|000004b0| 27 20 20 20 64 75 6d 6d | 79 3d a4 69 63 6f 6e 5f |'   dumm|y=.icon_|
|000004c0| 73 70 72 69 74 65 28 22 | 66 69 6c 65 73 65 72 76 |sprite("|fileserv|
|000004d0| 65 72 22 29 0d 02 62 38 | 20 20 20 65 63 6f 6e 65 |er")..b8|   econe|
|000004e0| 74 5f 66 73 3d a4 69 63 | 6f 6e 5f 77 69 76 61 6c |t_fs=.ic|on_wival|
|000004f0| 28 31 36 2c 31 34 2c 22 | 46 53 22 2c 2d 32 2c 22 |(16,14,"|FS",-2,"|
|00000500| 41 2d 5a 61 2d 7a 30 2d | 39 2e 22 29 0d 02 6c 2b |A-Za-z0-|9.")..l+|
|00000510| 20 20 20 64 75 6d 6d 79 | 3d a4 69 63 6f 6e 5f 74 |   dummy|=.icon_t|
|00000520| 65 78 74 28 22 50 72 69 | 6e 74 20 73 65 72 76 65 |ext("Pri|nt serve|
|00000530| 72 22 2c 2d 2e 34 29 0d | 02 76 24 20 20 20 64 75 |r",-.4).|.v$   du|
|00000540| 6d 6d 79 3d a4 69 63 6f | 6e 5f 73 70 72 69 74 65 |mmy=.ico|n_sprite|
|00000550| 28 22 73 70 6f 6f 6c 65 | 72 22 29 0d 02 80 36 20 |("spoole|r")...6 |
|00000560| 20 20 65 63 6f 6e 65 74 | 5f 70 73 3d a4 69 63 6f |  econet|_ps=.ico|
|00000570| 6e 5f 77 69 76 61 6c 28 | 36 2c 39 2c 22 50 53 22 |n_wival(|6,9,"PS"|
|00000580| 2c 2d 32 2c 22 41 2d 5a | 61 2d 7a 30 2d 39 2e 22 |,-2,"A-Z|a-z0-9."|
|00000590| 29 0d 02 8a 0d 20 20 f2 | 65 6e 64 72 6f 77 0d 02 |)....  .|endrow..|
|000005a0| 94 0e 20 f2 65 6e 64 62 | 6c 6f 63 6b 0d 02 9e 24 |.. .endb|lock...$|
|000005b0| 20 f2 73 74 61 72 74 62 | 6c 6f 63 6b 28 22 42 72 | .startb|lock("Br|
|000005c0| 6f 61 64 63 61 73 74 20 | 4c 6f 61 64 65 72 22 29 |oadcast |Loader")|
|000005d0| 0d 02 a8 31 20 20 65 63 | 6f 6e 65 74 5f 62 6c 6f |...1  ec|onet_blo|
|000005e0| 6e 3d a4 69 63 6f 6e 5f | 74 6f 67 67 6c 65 28 22 |n=.icon_|toggle("|
|000005f0| 45 6e 61 62 6c 65 22 2c | 22 42 4c 6f 6e 22 2c 30 |Enable",|"BLon",0|
|00000600| 29 0d 02 b2 4b 20 20 65 | 63 6f 6e 65 74 5f 62 6c |)...K  e|conet_bl|
|00000610| 67 6c 61 73 73 3d a4 69 | 63 6f 6e 5f 74 6f 67 67 |glass=.i|con_togg|
|00000620| 6c 65 28 22 43 6f 6c 6f | 75 72 20 68 6f 75 72 67 |le("Colo|ur hourg|
|00000630| 6c 61 73 73 20 77 68 65 | 6e 20 75 73 65 64 22 2c |lass whe|n used",|
|00000640| 22 42 4c 67 6c 61 73 73 | 22 2c 30 29 0d 02 bc 0e |"BLglass|",0)....|
|00000650| 20 f2 65 6e 64 62 6c 6f | 63 6b 0d 02 c6 1e 20 f2 | .endblo|ck.... .|
|00000660| 73 74 61 72 74 62 6c 6f | 63 6b 28 22 50 72 6f 74 |startblo|ck("Prot|
|00000670| 65 63 74 69 6f 6e 22 29 | 0d 02 d0 17 20 20 f2 73 |ection")|....  .s|
|00000680| 74 61 72 74 6d 61 74 72 | 69 78 28 32 2c 37 29 0d |tartmatr|ix(2,7).|
|00000690| 02 da 38 20 20 20 65 63 | 6f 6e 65 74 5f 70 72 6f |..8   ec|onet_pro|
|000006a0| 74 70 65 65 6b 3d a4 69 | 63 6f 6e 5f 74 6f 67 67 |tpeek=.i|con_togg|
|000006b0| 6c 65 28 22 4e 6f 20 50 | 65 65 6b 73 22 2c 22 50 |le("No P|eeks","P|
|000006c0| 65 65 6b 22 2c 30 29 0d | 02 e4 38 20 20 20 65 63 |eek",0).|..8   ec|
|000006d0| 6f 6e 65 74 5f 70 72 6f | 74 70 6f 6b 65 3d a4 69 |onet_pro|tpoke=.i|
|000006e0| 63 6f 6e 5f 74 6f 67 67 | 6c 65 28 22 4e 6f 20 50 |con_togg|le("No P|
|000006f0| 6f 6b 65 73 22 2c 22 50 | 6f 6b 65 22 2c 30 29 0d |okes","P|oke",0).|
|00000700| 02 ee 35 20 20 20 65 63 | 6f 6e 65 74 5f 70 72 6f |..5   ec|onet_pro|
|00000710| 74 6a 73 72 3d a4 69 63 | 6f 6e 5f 74 6f 67 67 6c |tjsr=.ic|on_toggl|
|00000720| 65 28 22 4e 6f 20 4a 53 | 52 73 22 2c 22 4a 53 52 |e("No JS|Rs","JSR|
|00000730| 22 2c 30 29 0d 02 f8 3b | 20 20 20 65 63 6f 6e 65 |",0)...;|   econe|
|00000740| 74 5f 70 72 6f 74 75 73 | 65 72 3d a4 69 63 6f 6e |t_protus|er=.icon|
|00000750| 5f 74 6f 67 67 6c 65 28 | 22 4e 6f 20 55 73 65 72 |_toggle(|"No User|
|00000760| 52 50 43 73 22 2c 22 55 | 73 65 72 22 2c 30 29 0d |RPCs","U|ser",0).|
|00000770| 03 02 35 20 20 20 65 63 | 6f 6e 65 74 5f 70 72 6f |..5   ec|onet_pro|
|00000780| 74 6f 73 3d a4 69 63 6f | 6e 5f 74 6f 67 67 6c 65 |tos=.ico|n_toggle|
|00000790| 28 22 4e 6f 20 4f 53 52 | 50 43 73 22 2c 22 4f 53 |("No OSR|PCs","OS|
|000007a0| 22 2c 30 29 0d 03 0c 37 | 20 20 20 65 63 6f 6e 65 |",0)...7|   econe|
|000007b0| 74 5f 70 72 6f 74 68 61 | 6c 74 3d a4 69 63 6f 6e |t_protha|lt=.icon|
|000007c0| 5f 74 6f 67 67 6c 65 28 | 22 4e 6f 20 48 61 6c 74 |_toggle(|"No Halt|
|000007d0| 22 2c 22 48 61 6c 74 22 | 2c 30 29 0d 03 16 40 20 |","Halt"|,0)...@ |
|000007e0| 20 20 65 63 6f 6e 65 74 | 5f 70 72 6f 74 67 65 74 |  econet|_protget|
|000007f0| 72 65 67 73 3d a4 69 63 | 6f 6e 5f 74 6f 67 67 6c |regs=.ic|on_toggl|
|00000800| 65 28 22 4e 6f 20 47 65 | 74 52 65 67 73 22 2c 22 |e("No Ge|tRegs","|
|00000810| 47 65 74 52 65 67 73 22 | 2c 30 29 0d 03 20 10 20 |GetRegs"|,0).. . |
|00000820| 20 f2 65 6e 64 6d 61 74 | 72 69 78 0d 03 2a 0e 20 | .endmat|rix..*. |
|00000830| f2 65 6e 64 62 6c 6f 63 | 6b 0d 03 34 21 20 f2 73 |.endbloc|k..4! .s|
|00000840| 74 61 72 74 62 6c 6f 63 | 6b 28 22 4d 69 73 63 65 |tartbloc|k("Misce|
|00000850| 6c 6c 61 6e 65 6f 75 73 | 22 29 0d 03 3e 3f 20 20 |llaneous|")..>?  |
|00000860| 65 63 6f 6e 65 74 5f 61 | 72 74 68 75 72 6c 69 62 |econet_a|rthurlib|
|00000870| 3d a4 69 63 6f 6e 5f 74 | 6f 67 67 6c 65 28 22 55 |=.icon_t|oggle("U|
|00000880| 73 65 20 41 72 74 68 75 | 72 4c 69 62 22 2c 22 41 |se Arthu|rLib","A|
|00000890| 72 74 68 75 72 22 2c 30 | 29 0d 03 48 0e 20 f2 65 |rthur",0|)..H. .e|
|000008a0| 6e 64 62 6c 6f 63 6b 0d | 03 52 0e f2 65 6e 64 77 |ndblock.|.R..endw|
|000008b0| 69 6e 64 6f 77 0d 03 5c | 05 e1 0d 03 66 05 3a 0d |indow..\|....f.:.|
|000008c0| 03 70 11 dd f2 65 63 6f | 6e 65 74 5f 6f 70 65 6e |.p...eco|net_open|
|000008d0| 0d 03 7a 2a 61 24 3d a4 | 67 65 74 63 6f 6e 66 69 |..z*a$=.|getconfi|
|000008e0| 67 28 22 46 53 22 29 3a | 61 24 3d c1 61 24 2c a7 |g("FS"):|a$=.a$,.|
|000008f0| 61 24 2c 22 20 22 29 2b | 31 29 0d 03 84 12 e7 20 |a$," ")+|1)..... |
|00000900| c0 61 24 2c 31 29 3d 22 | 27 22 20 8c 0d 03 8e 16 |.a$,1)="|'" .....|
|00000910| 20 61 24 3d c1 61 24 2c | 32 2c a9 28 61 24 29 2d | a$=.a$,|2,.(a$)-|
|00000920| 32 29 0d 03 98 05 cc 0d | 03 a2 33 20 c8 99 20 22 |2)......|..3 .. "|
|00000930| 45 63 6f 6e 65 74 5f 52 | 65 61 64 53 74 61 74 69 |Econet_R|eadStati|
|00000940| 6f 6e 4e 75 6d 62 65 72 | 22 2c 2c 61 24 20 b8 20 |onNumber|",,a$ . |
|00000950| 2c 2c 73 74 61 74 2c 6e | 65 74 0d 03 ac 14 20 e7 |,,stat,n|et.... .|
|00000960| 20 6e 65 74 3d 2d 31 20 | 8c 6e 65 74 3d 30 0d 03 | net=-1 |.net=0..|
|00000970| b6 16 20 61 24 3d c3 6e | 65 74 2b 22 2e 22 2b c3 |.. a$=.n|et+"."+.|
|00000980| 73 74 61 74 0d 03 c0 05 | cd 0d 03 ca 1c f2 69 63 |stat....|......ic|
|00000990| 6f 6e 5f 74 65 78 74 28 | 65 63 6f 6e 65 74 5f 66 |on_text(|econet_f|
|000009a0| 73 2c 61 24 29 0d 03 d4 | 2a 61 24 3d a4 67 65 74 |s,a$)...|*a$=.get|
|000009b0| 63 6f 6e 66 69 67 28 22 | 50 53 22 29 3a 61 24 3d |config("|PS"):a$=|
|000009c0| c1 61 24 2c a7 61 24 2c | 22 20 22 29 2b 31 29 0d |.a$,.a$,|" ")+1).|
|000009d0| 03 de 12 e7 20 c0 61 24 | 2c 31 29 3d 22 27 22 20 |.... .a$|,1)="'" |
|000009e0| 8c 0d 03 e8 16 20 61 24 | 3d c1 61 24 2c 32 2c a9 |..... a$|=.a$,2,.|
|000009f0| 28 61 24 29 2d 32 29 0d | 03 f2 05 cc 0d 03 fc 33 |(a$)-2).|.......3|
|00000a00| 20 c8 99 20 22 45 63 6f | 6e 65 74 5f 52 65 61 64 | .. "Eco|net_Read|
|00000a10| 53 74 61 74 69 6f 6e 4e | 75 6d 62 65 72 22 2c 2c |StationN|umber",,|
|00000a20| 61 24 20 b8 20 2c 2c 73 | 74 61 74 2c 6e 65 74 0d |a$ . ,,s|tat,net.|
|00000a30| 04 06 14 20 e7 20 6e 65 | 74 3d 2d 31 20 8c 6e 65 |... . ne|t=-1 .ne|
|00000a40| 74 3d 30 0d 04 10 16 20 | 61 24 3d c3 6e 65 74 2b |t=0.... |a$=.net+|
|00000a50| 22 2e 22 2b c3 73 74 61 | 74 0d 04 1a 05 cd 0d 04 |"."+.sta|t.......|
|00000a60| 24 1c f2 69 63 6f 6e 5f | 74 65 78 74 28 65 63 6f |$..icon_|text(eco|
|00000a70| 6e 65 74 5f 70 73 2c 61 | 24 29 0d 04 2e 31 c8 99 |net_ps,a|$)...1..|
|00000a80| 20 22 45 63 6f 6e 65 74 | 5f 52 65 61 64 4c 6f 63 | "Econet|_ReadLoc|
|00000a90| 61 6c 53 74 61 74 69 6f | 6e 41 6e 64 4e 65 74 22 |alStatio|nAndNet"|
|00000aa0| 20 b8 20 73 74 61 74 2c | 6e 65 74 0d 04 38 15 61 | . stat,|net..8.a|
|00000ab0| 24 3d c3 6e 65 74 2b 22 | 2e 22 2b c3 73 74 61 74 |$=.net+"|."+.stat|
|00000ac0| 0d 04 42 1e f2 69 63 6f | 6e 5f 74 65 78 74 28 65 |..B..ico|n_text(e|
|00000ad0| 63 6f 6e 65 74 5f 68 65 | 72 65 2c 61 24 29 0d 04 |conet_he|re,a$)..|
|00000ae0| 4c 29 c8 99 20 22 45 63 | 6f 6e 65 74 5f 53 65 74 |L).. "Ec|onet_Set|
|00000af0| 50 72 6f 74 65 63 74 69 | 6f 6e 22 2c 30 2c 2d 31 |Protecti|on",0,-1|
|00000b00| 20 b8 20 70 72 6f 74 0d | 04 56 2e f2 69 63 6f 6e | . prot.|.V..icon|
|00000b10| 5f 73 65 6c 65 63 74 28 | 65 63 6f 6e 65 74 5f 70 |_select(|econet_p|
|00000b20| 72 6f 74 70 65 65 6b 2c | 28 70 72 6f 74 20 80 31 |rotpeek,|(prot .1|
|00000b30| 29 3c 3e 30 29 0d 04 60 | 2e f2 69 63 6f 6e 5f 73 |)<>0)..`|..icon_s|
|00000b40| 65 6c 65 63 74 28 65 63 | 6f 6e 65 74 5f 70 72 6f |elect(ec|onet_pro|
|00000b50| 74 70 6f 6b 65 2c 28 70 | 72 6f 74 20 80 32 29 3c |tpoke,(p|rot .2)<|
|00000b60| 3e 30 29 0d 04 6a 2d f2 | 69 63 6f 6e 5f 73 65 6c |>0)..j-.|icon_sel|
|00000b70| 65 63 74 28 65 63 6f 6e | 65 74 5f 70 72 6f 74 6a |ect(econ|et_protj|
|00000b80| 73 72 2c 28 70 72 6f 74 | 20 80 34 29 3c 3e 30 29 |sr,(prot| .4)<>0)|
|00000b90| 0d 04 74 2e f2 69 63 6f | 6e 5f 73 65 6c 65 63 74 |..t..ico|n_select|
|00000ba0| 28 65 63 6f 6e 65 74 5f | 70 72 6f 74 75 73 65 72 |(econet_|protuser|
|00000bb0| 2c 28 70 72 6f 74 20 80 | 38 29 3c 3e 30 29 0d 04 |,(prot .|8)<>0)..|
|00000bc0| 7e 2d f2 69 63 6f 6e 5f | 73 65 6c 65 63 74 28 65 |~-.icon_|select(e|
|00000bd0| 63 6f 6e 65 74 5f 70 72 | 6f 74 6f 73 2c 28 70 72 |conet_pr|otos,(pr|
|00000be0| 6f 74 20 80 31 36 29 3c | 3e 30 29 0d 04 88 2f f2 |ot .16)<|>0).../.|
|00000bf0| 69 63 6f 6e 5f 73 65 6c | 65 63 74 28 65 63 6f 6e |icon_sel|ect(econ|
|00000c00| 65 74 5f 70 72 6f 74 68 | 61 6c 74 2c 28 70 72 6f |et_proth|alt,(pro|
|00000c10| 74 20 80 33 32 29 3c 3e | 30 29 0d 04 92 33 f2 69 |t .32)<>|0)...3.i|
|00000c20| 63 6f 6e 5f 73 65 6c 65 | 63 74 28 65 63 6f 6e 65 |con_sele|ct(econe|
|00000c30| 74 5f 70 72 6f 74 67 65 | 74 72 65 67 73 2c 28 70 |t_protge|tregs,(p|
|00000c40| 72 6f 74 20 80 32 35 36 | 29 3c 3e 30 29 0d 04 9c |rot .256|)<>0)...|
|00000c50| 18 61 24 3d a4 67 65 74 | 63 6f 6e 66 69 67 28 22 |.a$=.get|config("|
|00000c60| 4c 69 62 22 29 0d 04 a6 | 36 f2 69 63 6f 6e 5f 73 |Lib")...|6.icon_s|
|00000c70| 65 6c 65 63 74 28 65 63 | 6f 6e 65 74 5f 61 72 74 |elect(ec|onet_art|
|00000c80| 68 75 72 6c 69 62 2c 28 | 61 24 3c 3e 22 27 3c 44 |hurlib,(|a$<>"'<D|
|00000c90| 65 66 61 75 6c 74 3e 27 | 22 29 29 0d 04 b0 39 f2 |efault>'|"))...9.|
|00000ca0| 69 63 6f 6e 5f 73 65 6c | 65 63 74 28 65 63 6f 6e |icon_sel|ect(econ|
|00000cb0| 65 74 5f 62 6c 6f 6e 2c | 28 a4 72 65 61 64 63 6d |et_blon,|(.readcm|
|00000cc0| 6f 73 28 31 39 35 29 20 | 80 20 28 31 3c 3c 36 29 |os(195) |. (1<<6)|
|00000cd0| 29 3d 30 29 0d 04 ba 3d | f2 69 63 6f 6e 5f 73 65 |)=0)...=|.icon_se|
|00000ce0| 6c 65 63 74 28 65 63 6f | 6e 65 74 5f 62 6c 67 6c |lect(eco|net_blgl|
|00000cf0| 61 73 73 2c 28 a4 72 65 | 61 64 63 6d 6f 73 28 31 |ass,(.re|adcmos(1|
|00000d00| 39 35 29 20 80 20 28 31 | 3c 3c 37 29 29 3c 3e 30 |95) . (1|<<7))<>0|
|00000d10| 29 0d 04 c4 3b f2 69 63 | 6f 6e 5f 67 72 65 79 28 |)...;.ic|on_grey(|
|00000d20| 65 63 6f 6e 65 74 5f 62 | 6c 67 6c 61 73 73 2c 28 |econet_b|lglass,(|
|00000d30| a4 72 65 61 64 63 6d 6f | 73 28 31 39 35 29 20 80 |.readcmo|s(195) .|
|00000d40| 20 28 31 3c 3c 36 29 29 | 3c 3e 30 29 0d 04 ce 05 | (1<<6))|<>0)....|
|00000d50| e1 0d 04 d8 05 3a 0d 04 | e2 12 dd f2 65 63 6f 6e |.....:..|....econ|
|00000d60| 65 74 5f 63 6c 6f 73 65 | 0d 04 ec 1f 61 24 3d a4 |et_close|....a$=.|
|00000d70| 69 63 6f 6e 5f 67 65 74 | 74 65 78 74 28 65 63 6f |icon_get|text(eco|
|00000d80| 6e 65 74 5f 66 73 29 0d | 04 f6 2a e7 20 a7 61 24 |net_fs).|..*. .a$|
|00000d90| 2c 22 2e 22 29 3c 3e 30 | 20 80 20 a7 61 24 2c 22 |,".")<>0| . .a$,"|
|00000da0| 2e 22 2c a7 61 24 2c 22 | 2e 22 29 29 3c 3e 30 20 |.",.a$,"|."))<>0 |
|00000db0| 8c 0d 05 00 13 20 f4 20 | 54 6f 6f 20 6d 61 6e 79 |..... . |Too many|
|00000dc0| 20 2e 27 73 0d 05 0a 05 | cc 0d 05 14 24 20 c8 99 | .'s....|....$ ..|
|00000dd0| 20 22 58 4f 53 5f 43 4c | 49 22 2c 22 43 6f 6e 66 | "XOS_CL|I","Conf|
|00000de0| 69 67 75 72 65 20 46 53 | 20 22 2b 61 24 0d 05 1e |igure FS| "+a$...|
|00000df0| 05 cd 0d 05 28 1f 61 24 | 3d a4 69 63 6f 6e 5f 67 |....(.a$|=.icon_g|
|00000e00| 65 74 74 65 78 74 28 65 | 63 6f 6e 65 74 5f 70 73 |ettext(e|conet_ps|
|00000e10| 29 0d 05 32 2a e7 20 a7 | 61 24 2c 22 2e 22 29 3c |)..2*. .|a$,".")<|
|00000e20| 3e 30 20 80 20 a7 61 24 | 2c 22 2e 22 2c a7 61 24 |>0 . .a$|,".",.a$|
|00000e30| 2c 22 2e 22 29 29 3c 3e | 30 20 8c 0d 05 3c 13 20 |,"."))<>|0 ...<. |
|00000e40| f4 20 54 6f 6f 20 6d 61 | 6e 79 20 2e 27 73 0d 05 |. Too ma|ny .'s..|
|00000e50| 46 05 cc 0d 05 50 24 20 | c8 99 20 22 58 4f 53 5f |F....P$ |.. "XOS_|
|00000e60| 43 4c 49 22 2c 22 43 6f | 6e 66 69 67 75 72 65 20 |CLI","Co|nfigure |
|00000e70| 50 53 20 22 2b 61 24 0d | 05 5a 05 cd 0d 05 64 29 |PS "+a$.|.Z....d)|
|00000e80| 76 61 6c 75 65 3d 28 2d | a4 69 63 6f 6e 5f 6f 6e |value=(-|.icon_on|
|00000e90| 28 65 63 6f 6e 65 74 5f | 70 72 6f 74 70 65 65 6b |(econet_|protpeek|
|00000ea0| 29 29 3c 3c 30 0d 05 6e | 2a 76 61 6c 75 65 2b 3d |))<<0..n|*value+=|
|00000eb0| 28 2d a4 69 63 6f 6e 5f | 6f 6e 28 65 63 6f 6e 65 |(-.icon_|on(econe|
|00000ec0| 74 5f 70 72 6f 74 70 6f | 6b 65 29 29 3c 3c 31 0d |t_protpo|ke))<<1.|
|00000ed0| 05 78 29 76 61 6c 75 65 | 2b 3d 28 2d a4 69 63 6f |.x)value|+=(-.ico|
|00000ee0| 6e 5f 6f 6e 28 65 63 6f | 6e 65 74 5f 70 72 6f 74 |n_on(eco|net_prot|
|00000ef0| 6a 73 72 29 29 3c 3c 32 | 0d 05 82 2a 76 61 6c 75 |jsr))<<2|...*valu|
|00000f00| 65 2b 3d 28 2d a4 69 63 | 6f 6e 5f 6f 6e 28 65 63 |e+=(-.ic|on_on(ec|
|00000f10| 6f 6e 65 74 5f 70 72 6f | 74 75 73 65 72 29 29 3c |onet_pro|tuser))<|
|00000f20| 3c 33 0d 05 8c 28 76 61 | 6c 75 65 2b 3d 28 2d a4 |<3...(va|lue+=(-.|
|00000f30| 69 63 6f 6e 5f 6f 6e 28 | 65 63 6f 6e 65 74 5f 70 |icon_on(|econet_p|
|00000f40| 72 6f 74 6f 73 29 29 3c | 3c 34 0d 05 96 2a 76 61 |rotos))<|<4...*va|
|00000f50| 6c 75 65 2b 3d 28 2d a4 | 69 63 6f 6e 5f 6f 6e 28 |lue+=(-.|icon_on(|
|00000f60| 65 63 6f 6e 65 74 5f 70 | 72 6f 74 68 61 6c 74 29 |econet_p|rothalt)|
|00000f70| 29 3c 3c 35 0d 05 a0 2d | 76 61 6c 75 65 2b 3d 28 |)<<5...-|value+=(|
|00000f80| 2d a4 69 63 6f 6e 5f 6f | 6e 28 65 63 6f 6e 65 74 |-.icon_o|n(econet|
|00000f90| 5f 70 72 6f 74 67 65 74 | 72 65 67 73 29 29 3c 3c |_protget|regs))<<|
|00000fa0| 38 0d 05 aa 38 c8 99 20 | 22 45 63 6f 6e 65 74 5f |8...8.. |"Econet_|
|00000fb0| 53 65 74 50 72 6f 74 65 | 63 74 69 6f 6e 22 2c 76 |SetProte|ction",v|
|00000fc0| 61 6c 75 65 20 84 20 31 | 3c 3c 33 31 2c ac 20 25 |alue . 1|<<31,. %|
|00000fd0| 31 30 30 31 31 31 31 31 | 31 0d 05 b4 3d ff 28 22 |10011111|1...=.("|
|00000fe0| 43 6f 6e 66 69 67 75 72 | 65 20 4c 69 62 20 22 2b |Configur|e Lib "+|
|00000ff0| a4 69 63 6f 6e 5f 73 74 | 61 74 65 28 65 63 6f 6e |.icon_st|ate(econ|
|00001000| 65 74 5f 61 72 74 68 75 | 72 6c 69 62 2c 22 30 22 |et_arthu|rlib,"0"|
|00001010| 2c 22 31 22 29 29 0d 05 | be 2c 76 61 6c 75 65 3d |,"1"))..|.,value=|
|00001020| a4 72 65 61 64 63 6d 6f | 73 28 31 39 35 29 20 80 |.readcmo|s(195) .|
|00001030| 20 ac 20 28 28 31 3c 3c | 36 29 2b 28 31 3c 3c 37 | . ((1<<|6)+(1<<7|
|00001040| 29 29 0d 05 c8 28 76 61 | 6c 75 65 2b 3d 28 2d ac |))...(va|lue+=(-.|
|00001050| 20 a4 69 63 6f 6e 5f 6f | 6e 28 65 63 6f 6e 65 74 | .icon_o|n(econet|
|00001060| 5f 62 6c 6f 6e 29 29 3c | 3c 36 0d 05 d2 29 76 61 |_blon))<|<6...)va|
|00001070| 6c 75 65 2b 3d 28 2d a4 | 69 63 6f 6e 5f 6f 6e 28 |lue+=(-.|icon_on(|
|00001080| 65 63 6f 6e 65 74 5f 62 | 6c 67 6c 61 73 73 29 29 |econet_b|lglass))|
|00001090| 3c 3c 37 0d 05 dc 19 f2 | 77 72 69 74 65 63 6d 6f |<<7.....|writecmo|
|000010a0| 73 28 31 39 35 2c 76 61 | 6c 75 65 29 0d 05 e6 05 |s(195,va|lue)....|
|000010b0| e1 0d 05 f0 05 3a 0d 05 | fa 25 dd f2 65 63 6f 6e |.....:..|.%..econ|
|000010c0| 65 74 5f 63 6c 69 63 6b | 28 62 75 74 2c 6e 61 6d |et_click|(but,nam|
|000010d0| 65 24 2c 61 63 74 69 6f | 6e 24 29 0d 06 04 0e c8 |e$,actio|n$).....|
|000010e0| 8e 20 6e 61 6d 65 24 20 | ca 0d 06 0e 36 20 c9 20 |. name$ |....6 . |
|000010f0| 22 42 4c 6f 6e 22 3a f2 | 69 63 6f 6e 5f 67 72 65 |"BLon":.|icon_gre|
|00001100| 79 28 65 63 6f 6e 65 74 | 5f 62 6c 67 6c 61 73 73 |y(econet|_blglass|
|00001110| 2c 61 63 74 69 6f 6e 24 | 3d 22 4f 66 66 22 29 0d |,action$|="Off").|
|00001120| 06 18 05 cb 0d 06 22 05 | e1 0d 06 2c 05 3a 0d 06 |......".|...,.:..|
|00001130| 36 1f dd f2 65 63 6f 6e | 65 74 5f 68 65 6c 70 28 |6...econ|et_help(|
|00001140| 6e 61 6d 65 24 2c 65 78 | 74 72 61 24 29 0d 06 40 |name$,ex|tra$)..@|
|00001150| 13 c8 8e 20 c0 65 78 74 | 72 61 24 2c 31 29 20 ca |... .ext|ra$,1) .|
|00001160| 0d 06 4a 1e 20 c9 20 22 | 2b 22 2c 22 2d 22 3a f4 |..J. . "|+","-":.|
|00001170| 20 69 6e 63 2f 64 65 63 | 20 69 63 6f 6e 73 0d 06 | inc/dec| icons..|
|00001180| 54 16 20 c9 20 22 4d 22 | 3a f4 20 6d 65 6e 75 20 |T. . "M"|:. menu |
|00001190| 69 63 6f 6e 0d 06 5e 16 | 20 c9 20 22 4c 22 3a f4 |icon..^.| . "L":.|
|000011a0| 20 6c 6f 61 64 20 69 63 | 6f 6e 0d 06 68 1d 20 c9 | load ic|on..h. .|
|000011b0| 20 22 50 22 3a f4 20 70 | 72 6f 70 6f 72 74 69 6f | "P":. p|roportio|
|000011c0| 6e 61 6c 20 62 61 72 0d | 06 72 16 20 7f 3a f4 20 |nal bar.|.r. .:. |
|000011d0| 61 6e 79 74 68 69 6e 67 | 20 65 6c 73 65 0d 06 7c |anything| else..||
|000011e0| 10 20 20 c8 8e 20 6e 61 | 6d 65 24 20 ca 0d 07 09 |.  .. na|me$ ....|
|000011f0| 08 20 20 20 7f 0d 07 0a | 1f 20 20 20 20 61 24 3d |.   ....|.    a$=|
|00001200| a4 6d 73 67 74 6f 6b 65 | 6e 28 22 48 22 2b 6e 61 |.msgtoke|n("H"+na|
|00001210| 6d 65 24 29 0d 07 0b 27 | 20 20 20 20 e7 20 61 24 |me$)...'|    . a$|
|00001220| 3c 3e 22 48 22 2b 6e 61 | 6d 65 24 20 8c f2 67 69 |<>"H"+na|me$ ..gi|
|00001230| 76 65 5f 68 65 6c 70 28 | 61 24 29 0d 07 30 07 20 |ve_help(|a$)..0. |
|00001240| 20 cb 0d 07 3a 05 cb 0d | 07 44 05 e1 0d ff       | ...:...|.D....  |
+--------+-------------------------+-------------------------+--------+--------+