/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / b / baslib2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | cc 03 00 00 24 06 00 00 |Archive.|....$...|
|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| 83 21 48 65 6c 70 00 00 | 00 00 00 00 48 3e 00 00 |.!Help..|....H>..|
|00000070| 44 ff ff ff 20 7a ef 5c | 03 00 00 00 8c 33 00 00 |D... z.\|.....3..|
|00000080| 24 00 00 00 82 21 59 61 | 64 66 73 00 00 00 00 00 |$....!Ya|dfs.....|
|00000090| ff ff ff ff 47 ff ff ff | fc af 24 9c 33 00 00 00 |....G...|..$.3...|
|000000a0| ff ff ff ff ac 02 00 80 | 82 21 42 6f 6f 74 00 00 |........|.!Boot..|
|000000b0| 38 50 00 00 5f 00 00 00 | 43 eb ff ff 2e 4e cf 2a |8P.._...|C....N.*|
|000000c0| 03 00 16 cb 5f 00 00 00 | d4 33 00 00 83 21 48 65 |...._...|.3...!He|
|000000d0| 6c 70 00 00 38 50 00 00 | 29 0f 00 00 44 ff ff ff |lp..8P..|)...D...|
|000000e0| e0 f8 ee 5c 03 00 6c 6e | ba 0e 00 00 57 34 00 00 |...\..ln|....W4..|
|000000f0| 82 21 52 75 6e 00 00 00 | 38 50 00 00 5a 01 00 00 |.!Run...|8P..Z...|
|00000100| 44 eb ff ff 9b ef 97 59 | 03 00 c7 a7 5a 01 00 00 |D......Y|....Z...|
|00000110| 35 43 00 00 83 21 52 75 | 6e 49 6d 61 67 65 00 00 |5C...!Ru|nImage..|
|00000120| 5f c2 00 00 44 fb ff ff | cf 95 9b 5b 03 00 00 00 |_...D...|...[....|
|00000130| e7 b0 00 00 b3 44 00 00 | 83 21 53 70 72 69 74 65 |.....D..|.!Sprite|
|00000140| 73 00 00 00 64 05 00 00 | 44 f9 ff ff a8 40 d7 57 |s...d...|D....@.W|
|00000150| 03 00 60 60 d1 02 00 00 | be f5 00 00 82 42 61 73 |..``....|.....Bas|
|00000160| 4c 69 62 00 38 50 00 00 | ff ff ff ff 47 ff ff ff |Lib.8P..|....G...|
|00000170| a4 b0 24 9c 33 00 00 00 | ff ff ff ff 1c 02 00 80 |..$.3...|........|
|00000180| 83 44 65 62 75 67 00 00 | 00 00 00 00 e8 02 00 00 |.Debug..|........|
|00000190| 44 fb ff ff aa 1f 6f 33 | 03 00 2e 95 e7 02 00 00 |D.....o3|........|
|000001a0| b3 f8 00 00 83 45 72 72 | 6f 72 00 00 00 00 00 00 |.....Err|or......|
|000001b0| bb 0d 00 00 44 fb ff ff | f9 47 f6 32 03 00 b2 0c |....D...|.G.2....|
|000001c0| f7 0b 00 00 be fb 00 00 | 83 4d 61 6c 6c 6f 63 00 |........|.Malloc.|
|000001d0| 00 00 00 00 c9 07 00 00 | 43 fb ff ff e1 35 a5 e6 |........|C....5..|
|000001e0| 03 00 76 5b 53 07 00 00 | d9 07 01 00 83 4d 65 6e |..v[S...|.....Men|
|000001f0| 75 73 00 00 00 00 00 00 | a4 23 00 00 44 fb ff ff |us......|.#..D...|
|00000200| 93 1f fb 56 03 00 61 a8 | 09 21 00 00 50 0f 01 00 |...V..a.|.!..P...|
|00000210| 83 54 65 78 74 00 00 00 | 00 00 00 00 e9 2d 00 00 |.Text...|.....-..|
|00000220| 44 fb ff ff 2b 4a b6 52 | 03 00 cd 29 13 2c 00 00 |D...+J.R|...).,..|
|00000230| 7d 30 01 00 83 57 69 6e | 00 00 00 00 00 00 00 00 |}0...Win|........|
|00000240| 1f 19 00 00 44 fb ff ff | 72 f3 cc 54 03 00 89 c9 |....D...|r..T....|
|00000250| 5c 18 00 00 b4 5c 01 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 83 49 6e 74 |........|.....Int|
|00000280| 65 72 66 61 63 65 00 00 | e0 1c 00 00 43 fa ff ff |erface..|....C...|
|00000290| d7 7a 63 be 03 00 be c3 | b7 1c 00 00 34 75 01 00 |.zc.....|....4u..|
|000002a0| 83 6d 65 6e 75 73 00 00 | 38 50 00 00 0e 07 00 00 |.menus..|8P......|
|000002b0| 44 ff ff ff f8 fd f4 56 | 03 00 d0 dd 12 06 00 00 |D......V|........|
|000002c0| 0f 92 01 00 83 54 65 6d | 70 6c 61 74 65 73 00 00 |.....Tem|plates..|
|000002d0| 9a 08 00 00 44 ec ff ff | 6a 9a 9a 5b 03 00 1a 92 |....D...|j..[....|
|000002e0| 16 08 00 00 45 98 01 00 | 00 44 52 4f 50 32 00 00 |....E...|.DROP2..|
|000002f0| 38 50 00 00 45 f9 ff ff | 94 b3 a3 31 03 0f 00 00 |8P..E...|...1....|
|00000300| 94 23 00 00 54 e1 00 00 | 34 3f 41 43 83 44 65 62 |.#..T...|4?AC.Deb|
|00000310| 75 67 00 00 00 00 00 00 | e4 02 00 00 44 fb ff ff |ug......|....D...|
|00000320| 20 bc 6c 5d 03 00 12 c0 | e3 02 00 00 7f a0 01 00 | .l]....|........|
|00000330| 83 45 72 72 6f 72 00 00 | 00 00 00 00 bb 0d 00 00 |.Error..|........|
|00000340| 44 fb ff ff 31 ea 6c 5d | 03 00 3a c5 f7 0b 00 00 |D...1.l]|..:.....|
|00000350| 86 a3 01 00 83 4d 61 6c | 6c 6f 63 00 00 00 00 00 |.....Mal|loc.....|
|00000360| bd 07 00 00 44 fb ff ff | 50 71 6e 5d 03 00 c0 4b |....D...|Pqn]...K|
|00000370| 45 07 00 00 a1 af 01 00 | 83 4d 65 6e 75 73 00 00 |E.......|.Menus..|
|00000380| 00 00 00 00 a4 23 00 00 | 44 fb ff ff 93 1f fb 56 |.....#..|D......V|
|00000390| 03 00 61 a8 09 21 00 00 | 0a b7 01 00 83 52 45 41 |..a..!..|.....REA|
|000003a0| 44 4d 45 00 00 00 00 00 | 41 02 00 00 44 ff ff ff |DME.....|A...D...|
|000003b0| e4 48 ef 5c 33 00 88 d5 | 35 02 00 00 37 d8 01 00 |.H.\3...|5...7...|
|000003c0| 83 54 65 78 74 00 00 00 | 00 00 00 00 e9 2d 00 00 |.Text...|.....-..|
|000003d0| 44 fb ff ff 2b 4a b6 52 | 03 00 cd 29 13 2c 00 00 |D...+J.R|...).,..|
|000003e0| 90 da 01 00 83 57 69 6e | 00 00 00 00 00 00 00 00 |.....Win|........|
|000003f0| 03 19 00 00 44 fb ff ff | de 0e 77 5d 03 00 af 1a |....D...|..w]....|
|00000400| 38 18 00 00 c7 06 02 00 | 00 00 00 00 00 00 00 00 |8.......|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 74 68 65 20 |........|....the |
|00000430| 66 6f 6c 6c 6f 77 69 6e | 67 20 63 6f 6e 64 69 74 |followin|g condit|
|00000440| 69 6f 6e 73 20 61 72 65 | 20 61 64 68 65 72 65 64 |ions are| adhered|
|00000450| 20 74 6f 3a 0a 0a 20 69 | 29 20 4e 6f 20 63 68 61 | to:.. i|) No cha|
|00000460| 72 67 65 20 6d 75 73 74 | 20 62 65 20 6d 61 64 65 |rge must| be made|
|00000470| 20 66 6f 72 20 72 65 2d | 64 69 73 74 72 69 62 75 | for re-|distribu|
|00000480| 74 69 6f 6e 0a 69 69 29 | 20 41 6c 6c 20 66 69 6c |tion.ii)| All fil|
|00000490| 65 73 20 6d 75 73 74 20 | 62 65 20 69 6e 63 6c 75 |es must |be inclu|
|000004a0| 64 65 64 2c 20 65 73 70 | 65 63 69 61 6c 6c 79 20 |ded, esp|ecially |
|000004b0| 74 68 69 73 20 21 48 65 | 6c 70 20 66 69 6c 65 0a |this !He|lp file.|
|000004c0| 20 90 04 77 69 74 68 20 | 74 68 65 20 63 6f 70 79 | ..with |the copy|
|000004d0| 72 69 67 68 74 20 6e 6f | 74 69 63 65 2e 0a 0a 41 |right no|tice...A|
|000004e0| 6c 6c 20 68 65 6c 70 66 | 75 6c 20 73 75 67 67 65 |ll helpf|ul sugge|
|000004f0| 73 74 69 6f 6e 73 20 66 | 6f 72 20 63 68 61 6e 67 |stions f|or chang|
|00000500| 65 73 2c 20 69 6d 70 72 | 6f 76 65 6d 65 6e 74 73 |es, impr|ovements|
|00000510| 2c 20 62 75 67 20 66 69 | 78 65 73 20 65 74 63 2e |, bug fi|xes etc.|
|00000520| 0a 67 72 61 74 65 66 75 | 6c 6c 79 20 72 65 63 65 |.gratefu|lly rece|
|00000530| 69 76 65 64 2e 20 41 64 | 64 69 74 69 6f 6e 73 20 |ived. Ad|ditions |
|00000540| 74 6f 20 74 68 65 20 6c | 69 62 72 61 72 79 20 69 |to the l|ibrary i|
|00000550| 73 20 65 6e 63 6f 75 72 | 61 67 65 64 2c 20 65 73 |s encour|aged, es|
|00000560| 70 65 63 69 61 6c 6c 79 | 0a 69 66 20 49 20 67 65 |pecially|.if I ge|
|00000570| 74 20 61 20 63 6f 70 79 | 20 74 6f 6f 21 0a 0a 23 |t a copy| too!..#|
|00000580| 90 4e 0a 90 03 49 6e 74 | 72 6f 64 75 63 74 69 6f |.N...Int|roductio|
|00000590| 6e 20 74 6f 20 42 61 73 | 69 63 20 4c 69 62 72 61 |n to Bas|ic Libra|
|000005a0| 72 79 0a 3d 90 1d 0a 0a | 54 68 69 73 20 64 69 72 |ry.=....|This dir|
|000005b0| 65 63 74 6f 72 79 20 63 | 6f 6e 74 61 69 6e 73 20 |ectory c|ontains |
|000005c0| 61 20 73 65 74 20 6f 66 | 20 42 41 53 49 43 20 70 |a set of| BASIC p|
|000005d0| 72 6f 63 65 64 75 72 65 | 20 6c 69 62 72 61 72 69 |rocedure| librari|
|000005e0| 65 73 20 77 68 69 63 68 | 20 69 6d 70 6c 65 6d 65 |es which| impleme|
|000005f0| 6e 74 0a 73 6f 6d 65 20 | 63 6f 6d 6d 6f 6e 20 74 |nt.some |common t|
|00000600| 61 73 6b 73 20 69 6e 20 | 70 72 6f 67 72 61 6d 73 |asks in |programs|
|00000610| 20 64 65 73 69 67 6e 65 | 64 20 66 6f 72 20 74 68 | designe|d for th|
|00000620| 65 20 57 49 46 69 6c 65 | 44 61 74 61 83 21 48 65 |e WIFile|Data.!He|
|00000630| 6c 70 00 00 00 00 00 00 | 48 3e 00 00 47 fd ff ff |lp......|H>..G...|
|00000640| e3 af 24 9c 03 00 00 00 | 40 28 23 29 42 61 73 4c |..$.....|@(#)BasL|
|00000650| 69 62 20 90 06 31 2e 31 | 20 90 05 31 39 39 33 0a |ib ..1.1| ..1993.|
|00000660| 28 63 29 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |(c) Copy|right 19|
|00000670| 39 32 2c 31 39 39 33 20 | 43 68 72 69 73 20 43 6f |92,1993 |Chris Co|
|00000680| 72 62 65 74 74 0a 41 6c | 6c 20 73 6f 75 72 63 65 |rbett.Al|l source|
|00000690| 73 20 61 63 6b 6e 6f 77 | 6c 65 64 67 65 64 2e 0a |s acknow|ledged..|
|000006a0| 0a 54 68 69 73 20 73 6f | 66 74 77 61 72 65 20 69 |.This so|ftware i|
|000006b0| 73 20 64 69 73 74 72 69 | 62 75 74 65 64 20 66 72 |s distri|buted fr|
|000006c0| 65 65 20 6f 66 20 63 68 | 61 72 67 65 20 61 6e 64 |ee of ch|arge and|
|000006d0| 20 6d 61 79 20 62 65 20 | 75 73 65 64 20 77 69 74 | may be |used wit|
|000006e0| 68 6f 75 74 0a 72 65 73 | 74 72 69 63 74 69 6f 6e |hout.res|triction|
|000006f0| 20 61 73 20 6c 6f 6e 67 | 20 61 73 20 74 68 65 20 | as long| as the |
|00000700| 66 6f 6c 6c 6f 77 69 6e | 67 20 63 6f 6e 64 69 74 |followin|g condit|
|00000710| 69 6f 6e 73 20 61 72 65 | 20 61 64 68 65 72 65 64 |ions are| adhered|
|00000720| 20 74 6f 3a 0a 0a 20 69 | 29 20 4e 6f 20 63 68 61 | to:.. i|) No cha|
|00000730| 72 67 65 20 6d 75 73 74 | 20 62 65 20 6d 61 64 65 |rge must| be made|
|00000740| 20 66 6f 72 20 72 65 2d | 64 69 73 74 72 69 62 75 | for re-|distribu|
|00000750| 74 69 6f 6e 0a 69 69 29 | 20 41 6c 6c 20 66 69 6c |tion.ii)| All fil|
|00000760| 65 73 20 6d 75 73 74 20 | 62 65 20 69 6e 63 6c 75 |es must |be inclu|
|00000770| 64 65 64 2c 20 65 73 70 | 65 63 69 61 6c 6c 79 20 |ded, esp|ecially |
|00000780| 74 68 69 73 20 21 48 65 | 6c 70 20 66 69 6c 65 0a |this !He|lp file.|
|00000790| 20 90 04 77 69 74 68 20 | 74 68 65 20 63 6f 70 79 | ..with |the copy|
|000007a0| 72 69 67 68 74 20 6e 6f | 74 69 63 65 2e 0a 0a 41 |right no|tice...A|
|000007b0| 6c 6c 20 68 65 6c 70 66 | 75 6c 20 73 75 67 67 65 |ll helpf|ul sugge|
|000007c0| 73 74 69 6f 6e 73 20 66 | 6f 72 20 63 68 61 6e 67 |stions f|or chang|
|000007d0| 65 73 2c 20 69 6d 70 72 | 6f 76 65 6d 65 6e 74 73 |es, impr|ovements|
|000007e0| 2c 20 62 75 67 20 66 69 | 78 65 73 20 65 74 63 2e |, bug fi|xes etc.|
|000007f0| 0a 67 72 61 74 65 66 75 | 6c 6c 79 20 72 65 63 65 |.gratefu|lly rece|
|00000800| 69 76 65 64 2e 20 41 64 | 64 69 74 69 6f 6e 73 20 |ived. Ad|ditions |
|00000810| 74 6f 20 74 68 65 20 6c | 69 62 72 61 72 79 20 69 |to the l|ibrary i|
|00000820| 73 20 65 6e 63 6f 75 72 | 61 67 65 64 2c 20 65 73 |s encour|aged, es|
|00000830| 70 65 63 69 61 6c 6c 79 | 0a 69 66 20 49 20 67 65 |pecially|.if I ge|
|00000840| 74 20 61 20 63 6f 70 79 | 20 74 6f 6f 21 0a 0a 23 |t a copy| too!..#|
|00000850| 90 4e 0a 90 03 49 6e 74 | 72 6f 64 75 63 74 69 6f |.N...Int|roductio|
|00000860| 6e 20 74 6f 20 42 61 73 | 69 63 20 4c 69 62 72 61 |n to Bas|ic Libra|
|00000870| 72 79 0a 3d 90 1d 0a 0a | 54 68 69 73 20 64 69 72 |ry.=....|This dir|
|00000880| 65 63 74 6f 72 79 20 63 | 6f 6e 74 61 69 6e 73 20 |ectory c|ontains |
|00000890| 61 20 73 65 74 20 6f 66 | 20 42 41 53 49 43 20 70 |a set of| BASIC p|
|000008a0| 72 6f 63 65 64 75 72 65 | 20 6c 69 62 72 61 72 69 |rocedure| librari|
|000008b0| 65 73 20 77 68 69 63 68 | 20 69 6d 70 6c 65 6d 65 |es which| impleme|
|000008c0| 6e 74 0a 73 6f 6d 65 20 | 63 6f 6d 6d 6f 6e 20 74 |nt.some |common t|
|000008d0| 61 73 6b 73 20 69 6e 20 | 70 72 6f 67 72 61 6d 73 |asks in |programs|
|000008e0| 20 64 65 73 69 67 6e 65 | 64 20 66 6f 72 20 74 68 | designe|d for th|
|000008f0| 65 20 57 49 4d 50 2e 20 | 0a 4d 6f 73 74 20 72 6f |e WIMP. |.Most ro|
|00000900| 75 74 69 6e 65 73 20 68 | 61 76 65 20 62 65 65 6e |utines h|ave been|
|00000910| 20 63 6f 6c 6c 65 63 74 | 65 64 20 66 72 6f 6d 20 | collect|ed from |
|00000920| 50 44 20 61 6e 64 20 6d | 61 67 61 7a 69 6e 65 20 |PD and m|agazine |
|00000930| 73 6f 75 72 63 65 73 20 | 61 6e 64 20 6d 6f 64 69 |sources |and modi|
|00000940| 66 69 65 64 2c 0a 61 64 | 64 65 64 20 74 6f 2c 20 |fied,.ad|ded to, |
|00000950| 69 6d 70 72 6f 76 65 64 | 20 65 74 63 2e 20 74 6f |improved| etc. to|
|00000960| 20 70 72 6f 64 75 63 65 | 20 74 68 69 73 20 6c 69 | produce| this li|
|00000970| 62 72 61 72 79 2e 20 54 | 68 65 20 66 69 6c 65 73 |brary. T|he files|
|00000980| 20 69 6e 20 74 68 69 73 | 20 64 69 72 65 63 74 6f | in this| directo|
|00000990| 72 79 0a 61 6e 64 20 74 | 68 65 69 72 20 63 6f 6e |ry.and t|heir con|
|000009a0| 74 65 6e 74 73 20 61 72 | 65 3a 0a 0a 44 65 62 75 |tents ar|e:..Debu|
|000009b0| 67 3a 20 90 0a 50 72 6f | 63 65 64 75 72 65 73 20 |g: ..Pro|cedures |
|000009c0| 74 6f 20 73 75 70 70 6f | 72 74 20 74 68 65 20 21 |to suppo|rt the !|
|000009d0| 44 65 62 75 67 20 61 70 | 70 6c 69 63 61 74 69 6f |Debug ap|plicatio|
|000009e0| 6e 20 28 66 72 6f 6d 20 | 52 49 53 43 0a 20 90 10 |n (from |RISC. ..|
|000009f0| 75 73 65 72 3f 29 20 0a | 45 72 72 6f 72 3a 20 90 |user?) .|Error: .|
|00000a00| 0a 45 72 72 6f 72 20 68 | 61 6e 64 6c 69 6e 67 20 |.Error h|andling |
|00000a10| 70 72 6f 63 65 64 75 72 | 65 73 20 28 6e 6f 74 20 |procedur|es (not |
|00000a20| 66 69 6e 69 73 68 65 64 | 21 29 0a 4d 61 6c 6c 6f |finished|!).Mallo|
|00000a30| 63 3a 20 90 09 4d 65 6d | 6f 72 79 20 61 6c 6c 6f |c: ..Mem|ory allo|
|00000a40| 63 61 74 69 6f 6e 20 6d | 6f 64 65 6c 6c 65 64 20 |cation m|odelled |
|00000a50| 61 66 74 65 72 20 55 4e | 49 58 20 0a 4d 65 6e 75 |after UN|IX .Menu|
|00000a60| 73 3a 20 90 0a 53 75 70 | 70 6f 72 74 20 70 72 6f |s: ..Sup|port pro|
|00000a70| 63 65 64 75 72 65 73 20 | 66 6f 72 20 57 49 4d 50 |cedures |for WIMP|
|00000a80| 20 6d 65 6e 75 73 2c 20 | 6d 6f 64 69 66 69 63 61 | menus, |modifica|
|00000a90| 74 69 6f 6e 20 6f 66 20 | 6f 72 69 67 69 6e 61 6c |tion of |original|
|00000aa0| 0a 20 90 10 64 65 73 63 | 72 69 62 65 64 20 69 6e |. ..desc|ribed in|
|00000ab0| 20 42 41 55 20 31 39 39 | 30 2e 0a 54 65 78 74 3a | BAU 199|0..Text:|
|00000ac0| 20 90 0b 50 72 6f 63 65 | 64 75 72 65 73 20 74 6f | ..Proce|dures to|
|00000ad0| 20 73 75 70 70 6f 72 74 | 20 74 65 78 74 20 77 69 | support| text wi|
|00000ae0| 6e 64 6f 77 73 2e 0a 57 | 69 6e 3a 20 90 0c 50 72 |ndows..W|in: ..Pr|
|00000af0| 6f 63 65 64 75 72 65 73 | 20 66 6f 72 20 77 69 6e |ocedures| for win|
|00000b00| 64 6f 77 20 63 72 65 61 | 74 69 6f 6e 20 73 75 70 |dow crea|tion sup|
|00000b10| 70 6f 72 74 2e 0a 0a 54 | 68 65 20 70 72 6f 63 65 |port...T|he proce|
|00000b20| 64 75 72 65 73 20 63 6f | 6e 74 61 69 6e 65 64 20 |dures co|ntained |
|00000b30| 69 6e 20 65 61 63 68 20 | 6c 69 62 72 61 72 79 20 |in each |library |
|00000b40| 61 72 65 20 64 65 73 63 | 72 69 62 65 64 20 69 6e |are desc|ribed in|
|00000b50| 20 6d 6f 72 65 20 64 65 | 74 61 69 6c 20 69 6e 20 | more de|tail in |
|00000b60| 74 68 65 0a 66 6f 6c 6c | 6f 77 69 6e 67 20 73 65 |the.foll|owing se|
|00000b70| 63 74 69 6f 6e 73 2e 20 | 54 6f 20 75 73 65 20 61 |ctions. |To use a|
|00000b80| 6e 79 20 6c 69 62 72 61 | 72 79 20 69 6e 20 61 20 |ny libra|ry in a |
|00000b90| 42 41 53 49 43 20 70 72 | 6f 67 72 61 6d 2c 20 75 |BASIC pr|ogram, u|
|00000ba0| 73 65 20 61 20 4c 49 42 | 52 41 52 59 0a 73 74 61 |se a LIB|RARY.sta|
|00000bb0| 74 65 6d 65 6e 74 20 61 | 73 20 69 6c 6c 75 73 74 |tement a|s illust|
|00000bc0| 72 61 74 65 64 20 62 65 | 6c 6f 77 3a 0a 20 90 08 |rated be|low:. ..|
|00000bd0| 4c 49 42 52 41 52 59 20 | 22 3c 42 61 73 69 63 24 |LIBRARY |"<Basic$|
|00000be0| 4c 69 62 3e 2e 4d 61 6c | 6c 6f 63 22 0a 20 90 08 |Lib>.Mal|loc". ..|
|00000bf0| 4c 49 42 52 41 52 59 20 | 22 3c 42 61 73 69 63 24 |LIBRARY |"<Basic$|
|00000c00| 4c 69 62 3e 2e 4d 65 6e | 75 73 22 0a 20 90 08 4c |Lib>.Men|us". ..L|
|00000c10| 49 42 52 41 52 59 20 22 | 3c 42 61 73 69 63 24 4c |IBRARY "|<Basic$L|
|00000c20| 69 62 3e 2e 44 65 62 75 | 67 22 0a 20 90 08 4c 49 |ib>.Debu|g". ..LI|
|00000c30| 42 52 41 52 59 20 22 3c | 42 61 73 69 63 24 4c 69 |BRARY "<|Basic$Li|
|00000c40| 62 3e 2e 57 69 6e 22 0a | 2d 20 77 68 65 72 65 20 |b>.Win".|- where |
|00000c50| 3c 42 61 73 69 63 24 4c | 69 62 3e 20 69 73 20 61 |<Basic$L|ib> is a|
|00000c60| 20 73 79 73 74 65 6d 20 | 76 61 72 69 61 62 6c 65 | system |variable|
|00000c70| 20 77 68 69 63 68 20 64 | 65 66 69 6e 65 73 20 74 | which d|efines t|
|00000c80| 68 65 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 74 |he locat|ion of t|
|00000c90| 68 65 0a 6c 69 62 72 61 | 72 69 65 73 2e 0a 0a 2b |he.libra|ries...+|
|00000ca0| 2d 90 0b 2b 0a 7c 20 20 | 4d 61 6c 6c 6f 63 20 90 |-..+.|  |Malloc .|
|00000cb0| 03 7c 0a 2b 2d 90 0b 2b | 0a 0a 50 72 6f 63 65 64 |.|.+-..+|..Proced|
|00000cc0| 75 72 65 3a 20 90 06 46 | 4e 6d 61 6c 6c 6f 63 28 |ure: ..F|Nmalloc(|
|00000cd0| 73 69 7a 65 25 29 0a 0a | 44 65 73 63 72 69 70 74 |size%)..|Descript|
|00000ce0| 69 6f 6e 3a 20 90 04 41 | 6c 6c 6f 63 61 74 65 20 |ion: ..A|llocate |
|00000cf0| 61 20 62 6c 6f 63 6b 20 | 6f 66 20 6d 65 6d 6f 72 |a block |of memor|
|00000d00| 79 20 6f 66 20 73 69 7a | 65 25 20 62 79 74 65 73 |y of siz|e% bytes|
|00000d10| 2c 20 73 74 61 72 74 69 | 6e 67 20 6f 6e 20 61 0a |, starti|ng on a.|
|00000d20| 20 90 10 77 6f 72 64 20 | 62 6f 75 6e 64 61 72 79 | ..word |boundary|
|00000d30| 2e 20 41 20 70 6f 69 6e | 74 65 72 20 74 6f 20 74 |. A poin|ter to t|
|00000d40| 68 65 20 61 6c 6c 6f 63 | 61 74 65 64 20 6d 65 6d |he alloc|ated mem|
|00000d50| 6f 72 79 20 69 73 20 72 | 65 74 75 72 6e 65 64 0a |ory is r|eturned.|
|00000d60| 20 90 10 61 73 20 61 6e | 20 69 6e 74 65 67 65 72 | ..as an| integer|
|00000d70| 20 76 61 6c 75 65 2e 20 | 49 66 20 74 68 65 20 6d | value. |If the m|
|00000d80| 65 6d 6f 72 79 20 63 6f | 75 6c 64 20 6e 6f 74 20 |emory co|uld not |
|00000d90| 62 65 20 61 6c 6c 6f 63 | 61 74 65 64 0a 20 90 10 |be alloc|ated. ..|
|00000da0| 74 68 65 6e 20 61 20 76 | 61 6c 75 65 20 6f 66 20 |then a v|alue of |
|00000db0| 2d 31 20 69 73 20 72 65 | 74 75 72 6e 65 64 2e 0a |-1 is re|turned..|
|00000dc0| 90 03 50 72 6f 63 65 64 | 75 72 65 3a 20 90 06 46 |..Proced|ure: ..F|
|00000dd0| 4e 63 61 6c 6c 6f 63 28 | 73 69 7a 65 25 29 0a 0a |Ncalloc(|size%)..|
|00000de0| 44 65 73 63 72 69 70 74 | 69 6f 6e 3a 20 90 04 53 |Descript|ion: ..S|
|00000df0| 61 6d 65 20 61 73 20 61 | 62 6f 76 65 2c 20 65 78 |ame as a|bove, ex|
|00000e00| 63 65 70 74 20 74 68 61 | 74 20 74 68 65 20 61 6c |cept tha|t the al|
|00000e10| 6c 6f 63 61 74 65 64 20 | 6d 65 6d 6f 72 79 20 62 |located |memory b|
|00000e20| 6c 6f 63 6b 20 69 73 0a | 20 90 10 63 6c 65 61 72 |lock is.| ..clear|
|00000e30| 65 64 20 74 6f 20 7a 65 | 72 6f 20 62 65 66 6f 72 |ed to ze|ro befor|
|00000e40| 65 20 72 65 74 75 72 6e | 69 6e 67 20 74 6f 20 74 |e return|ing to t|
|00000e50| 68 65 20 63 61 6c 6c 69 | 6e 67 20 70 72 6f 67 72 |he calli|ng progr|
|00000e60| 61 6d 2e 0a 90 03 50 72 | 6f 63 65 64 75 72 65 3a |am....Pr|ocedure:|
|00000e70| 20 90 06 46 4e 66 72 65 | 65 28 70 74 72 25 29 0a | ..FNfre|e(ptr%).|
|00000e80| 0a 44 65 73 63 72 69 70 | 74 69 6f 6e 3a 20 90 04 |.Descrip|tion: ..|
|00000e90| 46 72 65 65 73 20 74 68 | 65 20 6d 65 6d 6f 72 79 |Frees th|e memory|
|00000ea0| 20 70 72 65 76 69 6f 75 | 73 6c 79 20 61 6c 6c 6f | previou|sly allo|
|00000eb0| 63 61 74 65 64 20 62 79 | 20 46 6e 6d 61 6c 6c 6f |cated by| Fnmallo|
|00000ec0| 63 20 6f 72 0a 20 90 10 | 46 4e 63 61 6c 6c 6f 63 |c or. ..|FNcalloc|
|00000ed0| 20 61 62 6f 76 65 2e 20 | 54 68 65 20 61 72 67 75 | above. |The argu|
|00000ee0| 6d 65 6e 74 20 6d 75 73 | 74 20 62 65 20 61 20 76 |ment mus|t be a v|
|00000ef0| 61 6c 69 64 20 70 6f 69 | 6e 74 65 72 0a 20 90 10 |alid poi|nter. ..|
|00000f00| 72 65 74 75 72 6e 65 64 | 20 66 72 6f 6d 20 61 20 |returned| from a |
|00000f10| 70 72 65 76 69 6f 75 73 | 20 63 61 6c 6c 20 74 6f |previous| call to|
|00000f20| 20 65 69 74 68 65 72 20 | 6f 66 20 74 68 65 73 65 | either |of these|
|00000f30| 20 66 75 6e 63 74 69 6f | 6e 73 2e 0a 90 03 2b 2d | functio|ns....+-|
|00000f40| 90 0b 2b 0a 7c 20 20 4d | 65 6e 75 73 20 90 04 7c |..+.|  M|enus ..||
|00000f50| 0a 2b 2d 90 0b 2b 0a 0a | 50 72 6f 63 65 64 75 72 |.+-..+..|Procedur|
|00000f60| 65 3a 20 90 06 46 4e 4d | 65 6e 75 73 5f 4c 6f 61 |e: ..FNM|enus_Loa|
|00000f70| 64 28 6d 65 6e 75 66 69 | 6c 65 24 29 0a 0a 44 65 |d(menufi|le$)..De|
|00000f80| 73 63 72 69 70 74 69 6f | 6e 3a 20 90 04 4c 6f 61 |scriptio|n: ..Loa|
|00000f90| 64 20 61 20 74 65 78 74 | 75 61 6c 20 64 65 73 63 |d a text|ual desc|
|00000fa0| 72 69 70 74 69 6f 6e 20 | 6f 66 20 61 20 6d 65 6e |ription |of a men|
|00000fb0| 75 20 73 74 72 75 63 74 | 75 72 65 20 69 6e 74 6f |u struct|ure into|
|00000fc0| 20 6d 65 6d 6f 72 79 0a | 20 90 10 66 72 6f 6d 20 | memory.| ..from |
|00000fd0| 74 68 65 20 66 69 6c 65 | 20 6d 65 6e 75 66 69 6c |the file| menufil|
|00000fe0| 65 24 2e 20 54 68 65 20 | 73 74 72 75 63 74 75 72 |e$. The |structur|
|00000ff0| 65 20 6f 66 20 74 68 65 | 20 6d 65 6e 75 20 64 61 |e of the| menu da|
|00001000| 74 61 20 66 69 6c 65 0a | 20 90 10 61 6e 64 20 74 |ta file.| ..and t|
|00001010| 68 65 20 63 6f 64 65 20 | 74 68 61 74 20 68 61 6e |he code |that han|
|00001020| 64 6c 65 73 20 69 74 20 | 69 73 20 64 65 72 69 76 |dles it |is deriv|
|00001030| 65 64 20 66 72 6f 6d 20 | 61 6e 20 61 72 74 69 63 |ed from |an artic|
|00001040| 6c 65 20 69 6e 0a 20 90 | 10 42 41 55 20 6d 61 67 |le in. .|.BAU mag|
|00001050| 61 7a 69 6e 65 2c 20 4d | 61 72 63 68 20 31 39 39 |azine, M|arch 199|
|00001060| 30 20 69 73 73 75 65 2e | 20 41 20 73 79 6e 74 61 |0 issue.| A synta|
|00001070| 63 74 69 63 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |ctic def|inition |
|00001080| 6f 66 0a 20 90 10 74 68 | 65 20 66 69 6c 65 20 73 |of. ..th|e file s|
|00001090| 74 72 75 63 74 75 72 65 | 20 69 73 3a 0a 20 90 12 |tructure| is:. ..|
|000010a0| 3c 6d 65 6e 75 20 66 69 | 6c 65 3e 20 3a 3a 3d 20 |<menu fi|le> ::= |
|000010b0| 3c 6d 65 6e 75 3e 20 7c | 20 3c 6d 65 6e 75 20 66 |<menu> || <menu f|
|000010c0| 69 6c 65 3e 0a 20 90 12 | 3c 6d 65 6e 75 3e 20 90 |ile>. ..|<menu> .|
|000010d0| 06 3a 3a 3d 20 3c 4d 65 | 6e 75 20 74 69 74 6c 65 |.::= <Me|nu title|
|000010e0| 3e 3c 69 74 65 6d 20 6c | 69 73 74 3e 3c 43 52 3e |><item l|ist><CR>|
|000010f0| 0a 20 90 12 3c 6d 65 6e | 75 20 74 69 74 6c 65 3e |. ..<men|u title>|
|00001100| 3a 3a 3d 20 5b 41 53 43 | 49 49 20 33 32 20 2e 2e |::= [ASC|II 32 ..|
|00001110| 20 41 53 43 49 49 20 31 | 32 37 5d 0a 20 90 12 3c | ASCII 1|27]. ..<|
|00001120| 69 74 65 6d 20 6c 69 73 | 74 3e 20 3a 3a 3d 20 3c |item lis|t> ::= <|
|00001130| 6d 65 6e 75 20 69 74 65 | 6d 3e 3c 43 52 3e 20 7c |menu ite|m><CR> ||
|00001140| 20 3c 69 74 65 6d 20 6c | 69 73 74 3e 0a 20 90 12 | <item l|ist>. ..|
|00001150| 3c 6d 65 6e 75 20 69 74 | 65 6d 3e 20 3a 3a 3d 20 |<menu it|em> ::= |
|00001160| 3c 2a 3e 7c 3c 20 3e 7c | 3c 2d 3e 20 3c 69 74 65 |<*>|< >||<-> <ite|
|00001170| 6d 6e 61 6d 65 3e 20 3c | 61 63 74 69 6f 6e 3e 0a |mname> <|action>.|
|00001180| 20 90 12 3c 69 74 65 6d | 6e 61 6d 65 3e 20 20 3a | ..<item|name>  :|
|00001190| 3a 3d 20 5b 41 53 43 49 | 49 20 33 32 20 2e 2e 20 |:= [ASCI|I 32 .. |
|000011a0| 41 53 43 49 49 20 31 32 | 37 5d 0a 20 90 12 3c 61 |ASCII 12|7]. ..<a|
|000011b0| 63 74 69 6f 6e 3e 20 90 | 04 3a 3a 3d 20 3c 21 3e |ction> .|.::= <!>|
|000011c0| 3c 77 69 6e 64 6f 77 6e | 61 6d 65 3e 20 7c 0a 20 |<windown|ame> |. |
|000011d0| 90 22 3c 40 3e 3c 73 75 | 62 6d 65 6e 75 3e 20 90 |."<@><su|bmenu> .|
|000011e0| 04 7c 0a 20 90 22 3c 2a | 3e 3c 77 72 69 74 65 61 |.|. ."<*|><writea|
|000011f0| 62 6c 65 3e 20 20 7c 0a | 20 90 22 3c 7b 3e 3c 77 |ble>  |.| ."<{><w|
|00001200| 69 6d 70 66 6c 61 67 73 | 3e 20 20 7c 0a 20 90 22 |impflags|>  |. ."|
|00001210| 3c 5c 3e 3c 66 75 6e 63 | 74 69 6f 6e 3e 20 28 61 |<\><func|tion> (a|
|00001220| 64 64 72 65 73 73 20 6f | 66 20 6d 65 6e 75 20 69 |ddress o|f menu i|
|00001230| 74 65 6d 20 70 61 73 73 | 65 64 29 0a 20 90 12 3c |tem pass|ed). ..<|
|00001240| 77 69 6e 64 6f 77 6e 61 | 6d 65 3e 3a 3a 3d 20 5b |windowna|me>::= [|
|00001250| 42 61 73 69 63 20 69 6e | 74 65 67 65 72 20 76 61 |Basic in|teger va|
|00001260| 72 69 61 62 6c 65 5d 0a | 20 90 12 3c 73 75 62 6d |riable].| ..<subm|
|00001270| 65 6e 75 3e 20 90 03 3a | 3a 3d 20 3c 6d 65 6e 75 |enu> ..:|:= <menu|
|00001280| 3e 0a 20 90 12 3c 77 72 | 69 74 65 61 62 6c 65 3e |>. ..<wr|iteable>|
|00001290| 20 3a 3a 3d 20 3c 66 75 | 6e 63 74 69 6f 6e 3e 3c | ::= <fu|nction><|
|000012a0| 2c 3e 3c 66 69 65 6c 64 | 6c 65 6e 3e 3c 2c 3e 3c |,><field|len><,><|
|000012b0| 76 61 6c 69 64 61 74 69 | 6f 6e 3e 0a 20 90 12 3c |validati|on>. ..<|
|000012c0| 77 69 6d 70 66 6c 61 67 | 73 3e 20 3a 3a 3d 20 5b |wimpflag|s> ::= [|
|000012d0| 30 2e 2e 32 5e 33 32 2d | 31 5d 0a 20 90 12 3c 66 |0..2^32-|1]. ..<f|
|000012e0| 75 6e 63 74 69 6f 6e 3e | 20 20 3a 3a 3d 20 5b 42 |unction>|  ::= [B|
|000012f0| 61 73 69 63 20 66 75 6e | 63 74 69 6f 6e 20 6e 61 |asic fun|ction na|
|00001300| 6d 65 20 2d 20 27 46 4e | 27 5d 3c 66 75 6e 63 61 |me - 'FN|']<funca|
|00001310| 72 67 73 3e 0a 20 90 12 | 3c 66 75 6e 63 61 72 67 |rgs>. ..|<funcarg|
|00001320| 73 3e 20 20 3a 3a 3d 20 | 5b 28 5d 5b 26 5d 7c 5b |s>  ::= |[(][&]|[|
|00001330| 26 2c 2e 2e 5d 20 28 55 | 73 65 20 26 20 74 6f 20 |&,..] (U|se & to |
|00001340| 70 61 73 73 20 61 64 64 | 72 65 73 73 20 6f 66 20 |pass add|ress of |
|00001350| 6d 65 6e 75 20 69 63 6f | 6e 29 0a 20 90 12 3c 66 |menu ico|n). ..<f|
|00001360| 69 65 6c 64 6c 65 6e 3e | 20 20 3a 3a 3d 20 5b 30 |ieldlen>|  ::= [0|
|00001370| 2e 2e 38 30 5d 7c 5b 28 | 30 2e 2e 38 30 29 22 5f |..80]|[(|0..80)"_|
|00001380| 22 5d 0a 20 90 12 3c 76 | 61 6c 69 64 61 74 69 6f |"]. ..<v|alidatio|
|00001390| 6e 3e 3a 3a 3d 20 5b 41 | 73 20 50 52 4d 20 70 70 |n>::= [A|s PRM pp|
|000013a0| 20 31 31 38 34 2d 31 31 | 38 36 5d 0a 20 90 10 49 | 1184-11|86]. ..I|
|000013b0| 74 20 69 73 20 72 65 63 | 6f 6d 6d 65 6e 64 65 64 |t is rec|ommended|
|000013c0| 20 74 68 61 74 20 61 6c | 6c 20 6d 65 6e 75 20 64 | that al|l menu d|
|000013d0| 65 66 69 6e 69 74 69 6f | 6e 20 66 69 6c 65 73 20 |efinitio|n files |
|000013e0| 61 72 65 20 67 69 76 65 | 6e 20 74 68 65 0a 20 90 |are give|n the. .|
|000013f0| 10 6e 61 6d 65 20 22 6d | 65 6e 75 73 22 2e 20 50 |.name "m|enus". P|
|00001400| 6c 65 61 73 65 20 72 65 | 66 65 72 20 74 6f 20 74 |lease re|fer to t|
|00001410| 68 65 20 65 78 61 6d 70 | 6c 65 20 70 72 6f 67 72 |he examp|le progr|
|00001420| 61 6d 20 21 43 6f 6d 70 | 61 72 65 0a 20 90 10 77 |am !Comp|are. ..w|
|00001430| 68 69 63 68 20 75 73 65 | 73 20 61 6e 20 65 78 61 |hich use|s an exa|
|00001440| 6d 70 6c 65 20 6f 66 20 | 6d 65 6e 75 73 2e 20 41 |mple of |menus. A|
|00001450| 20 6d 75 63 68 20 6d 6f | 72 65 20 64 65 74 61 69 | much mo|re detai|
|00001460| 6c 65 64 20 65 78 61 6d | 70 6c 65 0a 20 90 10 6d |led exam|ple. ..m|
|00001470| 61 79 20 62 65 20 66 6f | 75 6e 64 20 69 6e 20 74 |ay be fo|und in t|
|00001480| 68 65 20 21 59 61 64 66 | 73 20 61 70 70 6c 69 63 |he !Yadf|s applic|
|00001490| 61 74 69 6f 6e 2e 0a 20 | 90 10 46 4e 4d 65 6e 75 |ation.. |..FNMenu|
|000014a0| 73 5f 4c 6f 61 64 20 77 | 69 6c 6c 20 72 65 74 75 |s_Load w|ill retu|
|000014b0| 72 6e 20 31 20 69 66 20 | 74 68 65 20 6d 65 6e 75 |rn 1 if |the menu|
|000014c0| 73 20 66 69 6c 65 20 77 | 61 73 20 6c 6f 61 64 65 |s file w|as loade|
|000014d0| 64 0a 20 90 10 73 75 63 | 63 65 73 73 66 75 6c 6c |d. ..suc|cessfull|
|000014e0| 79 2e 20 4c 6f 61 64 69 | 6e 67 20 74 68 65 20 66 |y. Loadi|ng the f|
|000014f0| 69 6c 65 20 70 72 65 70 | 61 72 65 73 20 69 74 20 |ile prep|ares it |
|00001500| 66 6f 72 20 75 73 65 20 | 62 79 20 74 68 65 20 0a |for use |by the .|
|00001510| 20 90 10 72 65 6d 61 69 | 6e 69 6e 67 20 70 72 6f | ..remai|ning pro|
|00001520| 63 65 64 75 72 65 73 20 | 64 65 73 63 72 69 62 65 |cedures |describe|
|00001530| 64 20 62 65 6c 6f 77 2e | 20 49 66 20 74 68 65 20 |d below.| If the |
|00001540| 66 69 6c 65 20 64 6f 65 | 73 20 6e 6f 74 0a 20 90 |file doe|s not. .|
|00001550| 10 65 78 69 73 74 20 74 | 68 61 6e 20 65 72 72 6f |.exist t|han erro|
|00001560| 72 20 6e 75 6d 62 65 72 | 20 26 31 30 31 20 77 69 |r number| &101 wi|
|00001570| 6c 6c 20 62 65 20 72 61 | 69 73 65 64 2e 0a 90 04 |ll be ra|ised....|
|00001580| 50 72 6f 63 65 64 75 72 | 65 3a 20 90 06 46 4e 4d |Procedur|e: ..FNM|
|00001590| 65 6e 75 73 5f 42 75 69 | 6c 64 28 74 69 74 6c 65 |enus_Bui|ld(title|
|000015a0| 24 2c 20 68 65 69 67 68 | 74 25 29 0a 0a 44 65 73 |$, heigh|t%)..Des|
|000015b0| 63 72 69 70 74 69 6f 6e | 3a 20 90 04 42 75 69 6c |cription|: ..Buil|
|000015c0| 64 20 61 20 57 49 4d 50 | 20 6d 65 6e 75 20 73 74 |d a WIMP| menu st|
|000015d0| 72 75 63 74 75 72 65 20 | 66 6f 72 20 74 68 65 20 |ructure |for the |
|000015e0| 6d 65 6e 75 20 77 68 6f | 73 65 20 74 69 74 6c 65 |menu who|se title|
|000015f0| 20 69 73 20 74 69 74 6c | 65 24 2e 0a 20 90 10 54 | is titl|e$.. ..T|
|00001600| 68 65 20 6d 65 6e 75 20 | 6f 66 20 74 68 61 74 20 |he menu |of that |
|00001610| 6e 61 6d 65 20 6d 75 73 | 74 20 65 78 69 73 74 20 |name mus|t exist |
|00001620| 69 6e 20 74 68 65 20 66 | 69 6c 65 20 70 72 65 76 |in the f|ile prev|
|00001630| 69 6f 75 73 6c 79 20 6c | 6f 61 64 65 64 0a 20 90 |iously l|oaded. .|
|00001640| 10 62 79 20 74 68 65 20 | 46 4e 4d 65 6e 75 73 5f |.by the |FNMenus_|
|00001650| 6c 6f 61 64 20 66 75 6e | 63 74 69 6f 6e 2e 20 49 |load fun|ction. I|
|00001660| 66 20 74 68 65 20 6d 65 | 6e 75 20 64 6f 65 73 20 |f the me|nu does |
|00001670| 6e 6f 74 20 65 78 69 73 | 74 20 74 68 61 6e 20 0a |not exis|t than .|
|00001680| 20 90 10 61 6e 20 65 72 | 72 6f 72 20 69 73 20 72 | ..an er|ror is r|
|00001690| 61 69 73 65 64 2c 20 76 | 69 61 20 74 68 65 20 62 |aised, v|ia the b|
|000016a0| 61 73 69 63 20 45 52 52 | 4f 52 20 73 74 61 74 65 |asic ERR|OR state|
|000016b0| 6d 65 6e 74 2e 20 49 66 | 20 74 68 65 20 6d 65 6e |ment. If| the men|
|000016c0| 75 0a 20 90 10 69 73 20 | 66 6f 75 6e 64 20 69 74 |u. ..is |found it|
|000016d0| 20 69 73 20 66 6f 72 6d | 61 74 74 65 64 20 69 6e | is form|atted in|
|000016e0| 74 6f 20 74 68 65 20 73 | 74 72 75 63 74 75 72 65 |to the s|tructure|
|000016f0| 20 72 65 71 75 69 72 65 | 64 20 62 79 20 74 68 65 | require|d by the|
|00001700| 20 57 49 4d 50 0a 20 90 | 10 72 65 61 64 79 20 66 | WIMP. .|.ready f|
|00001710| 6f 72 20 64 69 73 70 6c | 61 79 20 74 6f 20 74 68 |or displ|ay to th|
|00001720| 65 20 75 73 65 72 2e 20 | 41 20 70 6f 69 6e 74 65 |e user. |A pointe|
|00001730| 72 20 74 6f 20 74 68 65 | 20 63 6f 6e 73 74 72 75 |r to the| constru|
|00001740| 63 74 65 64 0a 20 90 10 | 6d 65 6e 75 20 62 6c 6f |cted. ..|menu blo|
|00001750| 63 6b 20 69 73 20 72 65 | 74 75 72 6e 65 64 20 61 |ck is re|turned a|
|00001760| 73 20 61 6e 20 69 6e 74 | 65 67 65 72 2e 20 49 6e |s an int|eger. In|
|00001770| 20 61 64 64 69 74 69 6f | 6e 2c 20 74 68 65 20 73 | additio|n, the s|
|00001780| 65 63 6f 6e 64 0a 20 90 | 10 61 72 67 75 6d 65 6e |econd. .|.argumen|
|00001790| 74 20 74 6f 20 74 68 65 | 20 66 75 6e 63 74 69 6f |t to the| functio|
|000017a0| 6e 2c 20 68 65 69 67 68 | 74 25 2c 20 69 73 20 64 |n, heigh|t%, is d|
|000017b0| 65 63 6c 61 72 65 64 20 | 61 73 20 61 20 52 45 54 |eclared |as a RET|
|000017c0| 55 52 4e 20 76 61 6c 75 | 65 2c 0a 20 90 10 61 6e |URN valu|e,. ..an|
|000017d0| 64 20 69 74 20 69 73 20 | 73 65 74 20 74 6f 20 74 |d it is |set to t|
|000017e0| 68 65 20 66 75 6c 6c 20 | 68 65 69 67 68 74 20 6f |he full |height o|
|000017f0| 66 20 74 68 65 20 63 6f | 6e 73 74 72 75 63 74 65 |f the co|nstructe|
|00001800| 64 20 6d 65 6e 75 20 69 | 6e 20 70 69 78 65 6c 73 |d menu i|n pixels|
|00001810| 2e 0a 0a 50 72 6f 63 65 | 64 75 72 65 3a 20 90 06 |...Proce|dure: ..|
|00001820| 50 52 4f 43 4d 65 6e 75 | 73 5f 53 65 6c 65 63 74 |PROCMenu|s_Select|
|00001830| 28 62 6c 6f 63 6b 25 2c | 20 6d 65 6e 75 24 29 0a |(block%,| menu$).|
|00001840| 0a 44 65 73 63 72 69 70 | 74 69 6f 6e 3a 20 90 04 |.Descrip|tion: ..|
|00001850| 43 61 6c 6c 20 74 68 69 | 73 20 70 72 6f 63 65 64 |Call thi|s proced|
|00001860| 75 72 65 20 66 72 6f 6d | 20 77 69 74 68 69 6e 20 |ure from| within |
|00001870| 74 68 65 20 57 49 4d 50 | 20 50 6f 6c 6c 20 6c 6f |the WIMP| Poll lo|
|00001880| 6f 70 20 74 6f 20 64 65 | 63 6f 64 65 0a 20 90 10 |op to de|code. ..|
|00001890| 74 68 65 20 6d 65 6e 75 | 20 69 74 65 6d 20 73 65 |the menu| item se|
|000018a0| 6c 65 63 74 65 64 20 61 | 6e 64 20 70 65 72 66 6f |lected a|nd perfo|
|000018b0| 72 6d 20 74 68 65 20 61 | 63 74 69 6f 6e 20 64 65 |rm the a|ction de|
|000018c0| 66 69 6e 65 64 2e 20 54 | 68 65 0a 20 90 10 66 69 |fined. T|he. ..fi|
|000018d0| 72 73 74 20 70 61 72 61 | 6d 65 74 65 72 20 69 73 |rst para|meter is|
|000018e0| 20 61 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 68 | a point|er to th|
|000018f0| 65 20 57 49 4d 50 20 63 | 6f 6e 74 72 6f 6c 20 62 |e WIMP c|ontrol b|
|00001900| 6c 6f 63 6b 0a 20 90 10 | 66 69 6c 6c 65 64 20 69 |lock. ..|filled i|
|00001910| 6e 20 62 79 20 74 68 65 | 20 57 69 6d 70 5f 50 6f |n by the| Wimp_Po|
|00001920| 6c 6c 20 63 61 6c 6c 2e | 20 54 68 65 20 73 65 63 |ll call.| The sec|
|00001930| 6f 6e 64 20 70 61 72 61 | 6d 65 74 65 72 20 69 73 |ond para|meter is|
|00001940| 20 74 68 65 0a 20 90 10 | 6e 61 6d 65 20 6f 66 20 | the. ..|name of |
|00001950| 74 68 65 20 6d 65 6e 75 | 20 63 75 72 72 65 6e 74 |the menu| current|
|00001960| 6c 79 20 62 65 69 6e 67 | 20 64 69 73 70 6c 61 79 |ly being| display|
|00001970| 65 64 20 2d 20 74 68 69 | 73 20 6d 75 73 74 20 62 |ed - thi|s must b|
|00001980| 65 0a 20 90 10 72 65 6d | 65 6d 62 65 72 65 64 20 |e. ..rem|embered |
|00001990| 69 6e 20 74 68 65 20 63 | 61 6c 6c 69 6e 67 20 70 |in the c|alling p|
|000019a0| 72 6f 67 72 61 6d 20 61 | 6e 64 20 70 61 73 73 65 |rogram a|nd passe|
|000019b0| 64 20 74 6f 20 74 68 69 | 73 0a 20 90 10 72 6f 75 |d to thi|s. ..rou|
|000019c0| 74 69 6e 65 2e 20 54 79 | 70 69 63 61 6c 6c 79 2c |tine. Ty|pically,|
|000019d0| 20 65 61 63 68 20 74 69 | 6d 65 20 61 20 75 73 65 | each ti|me a use|
|000019e0| 72 20 6f 70 65 6e 73 20 | 61 20 6d 65 6e 75 20 62 |r opens |a menu b|
|000019f0| 79 0a 20 90 10 63 6c 69 | 63 6b 69 6e 67 20 22 6d |y. ..cli|cking "m|
|00001a00| 65 6e 75 22 20 6f 76 65 | 72 20 61 6e 20 61 70 70 |enu" ove|r an app|
|00001a10| 6c 69 63 61 74 69 6f 6e | 20 77 69 6e 64 6f 77 2c |lication| window,|
|00001a20| 20 74 68 65 20 70 72 6f | 67 72 61 6d 0a 20 90 10 | the pro|gram. ..|
|00001a30| 73 68 6f 75 6c 64 20 6f | 70 65 6e 20 74 68 65 20 |should o|pen the |
|00001a40| 6d 65 6e 75 20 61 6e 64 | 20 73 61 76 65 20 74 68 |menu and| save th|
|00001a50| 65 20 6d 65 6e 75 20 6e | 61 6d 65 20 69 6e 20 61 |e menu n|ame in a|
|00001a60| 20 76 61 72 69 61 62 6c | 65 0a 20 90 10 72 65 61 | variabl|e. ..rea|
|00001a70| 64 79 20 74 6f 20 70 61 | 73 73 20 6f 6e 20 74 6f |dy to pa|ss on to|
|00001a80| 20 74 68 69 73 20 70 72 | 6f 63 65 64 75 72 65 2e | this pr|ocedure.|
|00001a90| 20 41 6e 20 65 78 61 6d | 70 6c 65 20 63 61 6e 20 | An exam|ple can |
|00001aa0| 62 65 20 66 6f 75 6e 64 | 0a 20 90 10 69 6e 20 74 |be found|. ..in t|
|00001ab0| 68 65 20 21 43 6f 6d 70 | 61 72 65 20 61 70 70 6c |he !Comp|are appl|
|00001ac0| 69 63 61 74 69 6f 6e 2e | 0a 90 04 2b 2d 90 0b 2b |ication.|...+-..+|
|00001ad0| 0a 7c 20 90 03 57 69 6e | 20 90 05 7c 0a 2b 2d 90 |.| ..Win| ..|.+-.|
|00001ae0| 0b 2b 0a 0a 50 72 6f 63 | 65 64 75 72 65 3a 20 90 |.+..Proc|edure: .|
|00001af0| 06 46 4e 57 69 6e 5f 43 | 72 65 61 74 65 28 74 65 |.FNWin_C|reate(te|
|00001b00| 6d 70 6c 61 74 65 24 2c | 20 77 69 6e 64 6f 77 24 |mplate$,| window$|
|00001b10| 2c 20 52 45 54 55 52 4e | 20 77 69 6e 61 64 64 72 |, RETURN| winaddr|
|00001b20| 25 29 0a 0a 44 65 73 63 | 72 69 70 74 69 6f 6e 3a |%)..Desc|ription:|
|00001b30| 20 90 04 43 72 65 61 74 | 65 20 61 20 77 69 6e 64 | ..Creat|e a wind|
|00001b40| 6f 77 20 73 74 72 75 63 | 74 75 72 65 20 69 6e 20 |ow struc|ture in |
|00001b50| 6d 65 6d 6f 72 79 20 67 | 69 76 65 6e 20 74 68 65 |memory g|iven the|
|00001b60| 20 77 69 6e 64 6f 77 20 | 6e 61 6d 65 0a 20 90 10 | window |name. ..|
|00001b70| 61 6e 64 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |and the |name of |
|00001b80| 74 68 65 20 74 65 6d 70 | 6c 61 74 65 20 66 69 6c |the temp|late fil|
|00001b90| 65 2e 20 54 68 65 20 73 | 74 72 75 63 74 75 72 65 |e. The s|tructure|
|00001ba0| 20 63 72 65 61 74 65 64 | 20 69 73 0a 20 90 10 61 | created| is. ..a|
|00001bb0| 73 20 72 65 71 75 69 72 | 65 64 20 62 79 20 61 20 |s requir|ed by a |
|00001bc0| 57 69 6d 70 5f 4f 70 65 | 6e 77 69 6e 64 6f 77 20 |Wimp_Ope|nwindow |
|00001bd0| 63 61 6c 6c 2e 20 54 68 | 75 73 20 66 75 6e 63 74 |call. Th|us funct|
|00001be0| 69 6f 6e 0a 20 90 10 61 | 75 74 6f 6d 61 74 69 63 |ion. ..a|utomatic|
|00001bf0| 61 6c 6c 79 20 63 61 6c | 63 75 6c 61 74 65 73 20 |ally cal|culates |
|00001c00| 74 68 65 20 6d 65 6d 6f | 72 79 20 72 65 71 75 69 |the memo|ry requi|
|00001c10| 72 65 6d 65 6e 74 73 20 | 74 6f 20 73 74 6f 72 65 |rements |to store|
|00001c20| 0a 20 90 10 74 68 65 20 | 77 69 6e 64 6f 77 20 64 |. ..the |window d|
|00001c30| 61 74 61 20 61 6e 64 20 | 61 6c 6c 20 69 74 73 20 |ata and |all its |
|00001c40| 69 6e 64 69 72 65 63 74 | 65 64 20 73 74 72 69 6e |indirect|ed strin|
|00001c50| 67 73 2e 20 49 20 61 73 | 73 75 6d 65 73 2c 0a 20 |gs. I as|sumes,. |
|00001c60| 90 10 6f 66 20 63 6f 75 | 72 73 65 2c 20 74 68 61 |..of cou|rse, tha|
|00001c70| 74 20 79 6f 75 20 68 61 | 76 65 20 63 6f 6e 73 74 |t you ha|ve const|
|00001c80| 72 75 63 74 65 64 20 79 | 6f 75 72 20 77 69 6e 64 |ructed y|our wind|
|00001c90| 6f 77 20 74 65 6d 70 6c | 61 74 65 0a 20 90 10 66 |ow templ|ate. ..f|
|00001ca0| 69 6c 65 20 75 73 69 6e | 67 20 74 68 65 20 21 46 |ile usin|g the !F|
|00001cb0| 6f 72 6d 45 64 20 61 70 | 70 6c 69 63 61 74 69 6f |ormEd ap|plicatio|
|00001cc0| 6e 2e 0a 20 90 10 54 68 | 65 20 66 75 6e 63 74 69 |n.. ..Th|e functi|
|00001cd0| 6f 6e 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 77 |on retur|ns the w|
|00001ce0| 69 6e 64 6f 77 20 68 61 | 6e 64 6c 65 20 6f 66 20 |indow ha|ndle of |
|00001cf0| 74 68 65 20 63 72 65 61 | 74 65 64 20 77 69 6e 64 |the crea|ted wind|
|00001d00| 6f 77 0a 20 90 10 72 65 | 61 64 79 20 66 6f 72 20 |ow. ..re|ady for |
|00001d10| 75 73 65 20 69 6e 20 73 | 75 62 73 65 71 75 65 6e |use in s|ubsequen|
|00001d20| 74 20 6f 70 65 6e 20 61 | 6e 64 20 63 6c 6f 73 65 |t open a|nd close|
|00001d30| 20 77 69 6e 64 6f 77 0a | 20 90 10 6f 70 65 72 61 | window.| ..opera|
|00001d40| 74 69 6f 6e 73 2e 20 54 | 68 65 20 52 45 54 55 52 |tions. T|he RETUR|
|00001d50| 4e 20 70 61 72 61 6d 65 | 74 65 72 2c 20 22 77 69 |N parame|ter, "wi|
|00001d60| 6e 61 64 64 72 25 22 2c | 20 69 73 20 75 73 65 64 |naddr%",| is used|
|00001d70| 20 74 6f 20 0a 20 90 10 | 72 65 74 75 72 6e 20 74 | to . ..|return t|
|00001d80| 68 65 20 61 64 64 72 65 | 73 73 20 69 6e 20 6d 65 |he addre|ss in me|
|00001d90| 6d 6f 72 79 20 6f 66 20 | 74 68 65 20 73 74 61 72 |mory of |the star|
|00001da0| 74 20 6f 66 20 74 68 65 | 20 77 69 6e 64 6f 77 0a |t of the| window.|
|00001db0| 20 90 10 62 6c 6f 63 6b | 2e 20 54 68 69 73 20 63 | ..block|. This c|
|00001dc0| 61 6e 20 62 65 20 75 73 | 65 64 20 69 6e 20 61 20 |an be us|ed in a |
|00001dd0| 70 72 6f 67 72 61 6d 20 | 74 6f 20 6d 6f 64 69 66 |program |to modif|
|00001de0| 79 20 77 69 6e 64 6f 77 | 0a 20 90 10 61 74 74 72 |y window|. ..attr|
|00001df0| 69 62 75 74 65 73 20 6f | 72 20 69 63 6f 6e 20 61 |ibutes o|r icon a|
|00001e00| 74 74 72 69 62 75 74 65 | 73 20 77 68 69 63 68 20 |ttribute|s which |
|00001e10| 61 72 65 20 70 61 72 74 | 20 6f 66 20 74 68 65 20 |are part| of the |
|00001e20| 77 69 6e 64 6f 77 0a 20 | 90 10 64 65 66 69 6e 69 |window. |..defini|
|00001e30| 74 69 6f 6e 2e 0a 90 03 | 50 72 6f 63 65 64 75 72 |tion....|Procedur|
|00001e40| 65 3a 20 90 06 46 4e 69 | 73 69 6e 64 28 66 6c 61 |e: ..FNi|sind(fla|
|00001e50| 67 25 29 0a 0a 44 65 73 | 63 72 69 70 74 69 6f 6e |g%)..Des|cription|
|00001e60| 3a 20 90 04 54 68 69 73 | 20 66 75 6e 63 74 69 6f |: ..This| functio|
|00001e70| 6e 20 63 68 65 63 6b 73 | 20 74 68 65 20 69 6e 64 |n checks| the ind|
|00001e80| 69 72 65 63 74 65 64 20 | 62 69 74 73 20 69 6e 20 |irected |bits in |
|00001e90| 74 68 65 20 69 63 6f 6e | 20 66 6c 61 67 0a 20 90 |the icon| flag. .|
|00001ea0| 10 77 6f 72 64 20 70 61 | 73 73 65 64 20 61 73 20 |.word pa|ssed as |
|00001eb0| 74 68 65 20 70 61 72 61 | 6d 65 74 65 72 2e 20 49 |the para|meter. I|
|00001ec0| 74 20 72 65 74 75 72 6e | 73 20 54 52 55 45 20 69 |t return|s TRUE i|
|00001ed0| 66 20 74 68 65 20 66 6c | 61 67 25 0a 20 90 10 76 |f the fl|ag%. ..v|
|00001ee0| 61 6c 75 65 20 69 6e 64 | 69 63 61 74 65 73 20 74 |alue ind|icates t|
|00001ef0| 68 61 74 20 74 68 65 20 | 69 63 6f 6e 20 63 6f 6e |hat the |icon con|
|00001f00| 74 61 69 6e 73 20 69 6e | 64 69 72 65 63 74 65 64 |tains in|directed|
|00001f10| 20 64 61 74 61 2c 20 0a | 20 90 10 6f 74 68 65 72 | data, .| ..other|
|00001f20| 77 69 73 65 20 69 74 20 | 72 65 74 75 72 6e 73 20 |wise it |returns |
|00001f30| 66 61 6c 73 65 2e 0a 90 | 03 50 72 6f 63 65 64 75 |false...|.Procedu|
|00001f40| 72 65 3a 20 90 06 50 52 | 4f 43 50 6f 6c 6c 41 73 |re: ..PR|OCPollAs|
|00001f50| 73 69 67 6e 0a 0a 44 65 | 73 63 72 69 70 74 69 6f |sign..De|scriptio|
|00001f60| 6e 3a 20 90 04 54 68 69 | 73 20 70 72 6f 63 65 64 |n: ..Thi|s proced|
|00001f70| 75 72 65 20 73 65 74 73 | 20 61 20 67 72 6f 75 70 |ure sets| a group|
|00001f80| 20 6f 66 20 76 61 72 69 | 61 62 6c 65 20 6e 61 6d | of vari|able nam|
|00001f90| 65 73 20 74 6f 20 74 68 | 65 20 76 61 6c 75 65 73 |es to th|e values|
|00001fa0| 0a 20 90 10 72 65 74 75 | 72 6e 65 64 20 69 6e 20 |. ..retu|rned in |
|00001fb0| 61 20 57 69 6d 70 5f 50 | 6f 6c 6c 20 6c 6f 6f 70 |a Wimp_P|oll loop|
|00001fc0| 2e 20 54 68 69 73 20 69 | 73 20 61 20 63 6f 6e 76 |. This i|s a conv|
|00001fd0| 65 6e 69 65 6e 63 65 20 | 63 61 6c 6c 0a 20 90 10 |enience |call. ..|
|00001fe0| 74 68 61 74 20 61 6c 6c | 6f 77 73 20 72 65 61 64 |that all|ows read|
|00001ff0| 61 62 6c 65 20 6e 61 6d | 65 73 20 74 6f 20 62 65 |able nam|es to be|
|00002000| 20 75 73 65 64 20 69 6e | 73 69 64 65 20 74 68 65 | used in|side the|
|00002010| 20 43 41 53 45 0a 20 90 | 10 73 74 61 74 65 6d 65 | CASE. .|.stateme|
|00002020| 6e 74 20 6f 66 20 74 68 | 65 20 57 69 6d 70 5f 70 |nt of th|e Wimp_p|
|00002030| 6f 6c 6c 20 70 72 6f 63 | 65 64 75 72 65 20 77 68 |oll proc|edure wh|
|00002040| 65 6e 20 64 65 63 6f 64 | 69 6e 67 20 74 68 65 0a |en decod|ing the.|
|00002050| 20 90 10 72 65 74 75 72 | 6e 20 76 61 6c 75 65 2e | ..retur|n value.|
|00002060| 20 54 68 65 20 76 61 6c | 75 65 73 20 61 73 73 69 | The val|ues assi|
|00002070| 67 6e 65 64 20 61 72 65 | 20 6c 69 73 74 65 64 20 |gned are| listed |
|00002080| 62 65 6c 6f 77 3a 0a 20 | 90 12 50 6f 6c 6c 5f 4e |below:. |..Poll_N|
|00002090| 75 6c 6c 5f 52 65 61 73 | 6f 6e 5f 43 6f 64 65 20 |ull_Reas|on_Code |
|000020a0| 3d 20 30 0a 20 90 12 50 | 6f 6c 6c 5f 52 65 64 72 |= 0. ..P|oll_Redr|
|000020b0| 61 77 5f 57 69 6e 64 6f | 77 5f 52 65 71 75 65 73 |aw_Windo|w_Reques|
|000020c0| 74 20 3d 20 31 0a 20 90 | 12 50 6f 6c 6c 5f 4f 70 |t = 1. .|.Poll_Op|
|000020d0| 65 6e 5f 57 69 6e 64 6f | 77 5f 52 65 71 75 65 73 |en_Windo|w_Reques|
|000020e0| 74 20 3d 20 32 0a 20 90 | 12 50 6f 6c 6c 5f 43 6c |t = 2. .|.Poll_Cl|
|000020f0| 6f 73 65 5f 57 69 6e 64 | 6f 77 5f 52 65 71 75 65 |ose_Wind|ow_Reque|
|00002100| 73 74 20 3d 20 33 0a 20 | 90 12 50 6f 6c 6c 5f 50 |st = 3. |..Poll_P|
|00002110| 6f 69 6e 74 65 72 5f 4c | 65 61 76 69 6e 67 5f 57 |ointer_L|eaving_W|
|00002120| 69 6e 64 6f 77 20 3d 20 | 34 0a 20 90 12 50 6f 6c |indow = |4. ..Pol|
|00002130| 6c 5f 50 6f 69 6e 74 65 | 72 5f 45 6e 74 65 72 69 |l_Pointe|r_Enteri|
|00002140| 6e 67 5f 57 69 6e 64 6f | 77 20 3d 20 35 0a 20 90 |ng_Windo|w = 5. .|
|00002150| 12 50 6f 6c 6c 5f 4d 6f | 75 73 65 5f 43 6c 69 63 |.Poll_Mo|use_Clic|
|00002160| 6b 20 3d 20 36 0a 20 90 | 12 50 6f 6c 6c 5f 55 73 |k = 6. .|.Poll_Us|
|00002170| 65 72 5f 44 72 61 67 5f | 42 6f 78 20 3d 20 37 0a |er_Drag_|Box = 7.|
|00002180| 20 90 12 50 6f 6c 6c 5f | 4b 65 79 5f 50 72 65 73 | ..Poll_|Key_Pres|
|00002190| 73 65 64 20 3d 20 38 0a | 20 90 12 50 6f 6c 6c 5f |sed = 8.| ..Poll_|
|000021a0| 4d 65 6e 75 5f 53 65 6c | 65 63 74 69 6f 6e 20 3d |Menu_Sel|ection =|
|000021b0| 20 39 0a 20 90 12 50 6f | 6c 6c 5f 53 63 72 6f 6c | 9. ..Po|ll_Scrol|
|000021c0| 6c 5f 52 65 71 75 65 73 | 74 20 3d 20 31 30 0a 20 |l_Reques|t = 10. |
|000021d0| 90 12 50 6f 6c 6c 5f 4c | 6f 73 65 5f 43 61 72 65 |..Poll_L|ose_Care|
|000021e0| 74 20 3d 20 31 31 0a 20 | 90 12 50 6f 6c 6c 5f 47 |t = 11. |..Poll_G|
|000021f0| 61 69 6e 5f 43 61 72 65 | 74 20 3d 20 31 32 0a 20 |ain_Care|t = 12. |
|00002200| 90 12 50 6f 6c 6c 5f 55 | 73 65 72 5f 4d 65 73 73 |..Poll_U|ser_Mess|
|00002210| 61 67 65 20 3d 20 31 37 | 0a 20 90 12 50 6f 6c 6c |age = 17|. ..Poll|
|00002220| 5f 55 73 65 72 5f 4d 65 | 73 73 61 67 65 5f 52 65 |_User_Me|ssage_Re|
|00002230| 63 6f 72 64 65 64 20 3d | 20 31 38 0a 20 90 12 50 |corded =| 18. ..P|
|00002240| 6f 6c 6c 5f 55 73 65 72 | 5f 4d 65 73 73 61 67 65 |oll_User|_Message|
|00002250| 5f 41 63 6b 6e 6f 77 6c | 65 64 67 65 64 20 3d 20 |_Acknowl|edged = |
|00002260| 31 39 0a 90 03 50 72 6f | 63 65 64 75 72 65 3a 20 |19...Pro|cedure: |
|00002270| 90 06 50 52 4f 43 4d 65 | 73 73 61 67 65 41 73 73 |..PROCMe|ssageAss|
|00002280| 69 67 6e 0a 0a 44 65 73 | 63 72 69 70 74 69 6f 6e |ign..Des|cription|
|00002290| 3a 20 90 04 4c 69 6b 65 | 20 74 68 65 20 70 72 65 |: ..Like| the pre|
|000022a0| 76 69 6f 75 73 20 70 72 | 6f 63 65 64 75 72 65 2c |vious pr|ocedure,|
|000022b0| 20 74 68 69 73 20 6f 6e | 65 20 73 65 74 73 20 75 | this on|e sets u|
|000022c0| 70 20 61 20 73 65 74 20 | 6f 66 0a 20 90 10 76 61 |p a set |of. ..va|
|000022d0| 72 69 61 62 6c 65 73 20 | 77 68 6f 73 65 20 76 61 |riables |whose va|
|000022e0| 6c 75 65 73 20 74 61 6b | 65 20 6f 6e 20 74 68 65 |lues tak|e on the|
|000022f0| 20 76 61 72 69 6f 75 73 | 20 6d 65 73 73 61 67 65 | various| message|
|00002300| 20 74 79 70 65 73 0a 20 | 90 10 77 68 69 63 68 20 | types. |..which |
|00002310| 6d 61 79 20 62 65 20 70 | 61 73 73 65 64 20 74 6f |may be p|assed to|
|00002320| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 76 69 61 | the pro|gram via|
|00002330| 20 74 68 65 20 57 49 4d | 50 2e 20 54 68 65 20 6c | the WIM|P. The l|
|00002340| 69 73 74 0a 20 90 10 6f | 66 20 61 73 73 69 67 6e |ist. ..o|f assign|
|00002350| 65 64 20 76 61 6c 75 65 | 73 20 69 73 20 67 69 76 |ed value|s is giv|
|00002360| 65 6e 20 62 65 6c 6f 77 | 3a 0a 20 90 11 4d 65 73 |en below|:. ..Mes|
|00002370| 73 61 67 65 5f 51 75 69 | 74 20 3d 20 30 0a 20 90 |sage_Qui|t = 0. .|
|00002380| 11 4d 65 73 73 61 67 65 | 5f 44 61 74 61 53 61 76 |.Message|_DataSav|
|00002390| 65 20 3d 20 31 0a 20 90 | 11 4d 65 73 73 61 67 65 |e = 1. .|.Message|
|000023a0| 5f 44 61 74 61 53 61 76 | 65 41 63 6b 20 3d 20 32 |_DataSav|eAck = 2|
|000023b0| 0a 20 90 11 4d 65 73 73 | 61 67 65 5f 44 61 74 61 |. ..Mess|age_Data|
|000023c0| 4c 6f 61 64 20 3d 20 33 | 0a 20 90 11 4d 65 73 73 |Load = 3|. ..Mess|
|000023d0| 61 67 65 5f 44 61 74 61 | 4c 6f 61 64 41 63 6b 20 |age_Data|LoadAck |
|000023e0| 3d 20 34 0a 20 90 11 4d | 65 73 73 61 67 65 5f 44 |= 4. ..M|essage_D|
|000023f0| 61 74 61 4f 70 65 6e 20 | 3d 20 35 0a 20 90 11 4d |ataOpen |= 5. ..M|
|00002400| 65 73 73 61 67 65 5f 52 | 41 4d 46 65 74 63 68 20 |essage_R|AMFetch |
|00002410| 3d 20 36 0a 20 90 11 4d | 65 73 73 61 67 65 5f 52 |= 6. ..M|essage_R|
|00002420| 41 4d 54 72 61 6e 73 6d | 69 74 20 3d 20 37 0a 20 |AMTransm|it = 7. |
|00002430| 90 11 4d 65 73 73 61 67 | 65 5f 50 72 65 51 75 69 |..Messag|e_PreQui|
|00002440| 74 20 3d 20 38 0a 20 90 | 11 4d 65 73 73 61 67 65 |t = 8. .|.Message|
|00002450| 5f 50 61 6c 65 74 74 65 | 43 68 61 6e 67 65 20 3d |_Palette|Change =|
|00002460| 20 39 0a 20 90 11 4d 65 | 73 73 61 67 65 5f 46 69 | 9. ..Me|ssage_Fi|
|00002470| 6c 65 72 4f 70 65 6e 44 | 69 72 20 3d 20 26 34 30 |lerOpenD|ir = &40|
|00002480| 30 0a 20 90 11 4d 65 73 | 73 61 67 65 5f 46 69 6c |0. ..Mes|sage_Fil|
|00002490| 65 72 43 6c 6f 73 65 44 | 69 72 20 3d 20 26 34 30 |erCloseD|ir = &40|
|000024a0| 31 0a 20 90 11 4d 65 73 | 73 61 67 65 5f 52 65 71 |1. ..Mes|sage_Req|
|000024b0| 75 65 73 74 48 65 6c 70 | 20 3d 20 26 35 30 32 0a |uestHelp| = &502.|
|000024c0| 20 90 11 4d 65 73 73 61 | 67 65 5f 4e 6f 74 69 66 | ..Messa|ge_Notif|
|000024d0| 79 20 3d 20 26 34 30 30 | 34 30 0a 20 90 11 4d 65 |y = &400|40. ..Me|
|000024e0| 73 73 61 67 65 5f 4d 65 | 6e 75 57 61 72 6e 69 6e |ssage_Me|nuWarnin|
|000024f0| 67 20 3d 20 26 34 30 30 | 43 30 0a 20 90 11 4d 65 |g = &400|C0. ..Me|
|00002500| 73 73 61 67 65 5f 4d 6f | 64 65 43 68 61 6e 67 65 |ssage_Mo|deChange|
|00002510| 20 3d 20 26 34 30 30 43 | 31 0a 20 90 11 4d 65 73 | = &400C|1. ..Mes|
|00002520| 73 61 67 65 5f 54 61 73 | 6b 49 6e 69 74 69 61 6c |sage_Tas|kInitial|
|00002530| 69 73 65 20 3d 20 26 34 | 30 30 43 32 0a 20 90 11 |ise = &4|00C2. ..|
|00002540| 4d 65 73 73 61 67 65 5f | 54 61 73 6b 43 6c 6f 73 |Message_|TaskClos|
|00002550| 65 44 6f 77 6e 20 3d 20 | 26 34 30 30 43 33 0a 20 |eDown = |&400C3. |
|00002560| 90 11 4d 65 73 73 61 67 | 65 5f 53 6c 6f 74 53 69 |..Messag|e_SlotSi|
|00002570| 7a 65 20 3d 20 26 34 30 | 30 43 34 0a 20 90 11 4d |ze = &40|0C4. ..M|
|00002580| 65 73 73 61 67 65 5f 53 | 65 74 53 6c 6f 74 20 3d |essage_S|etSlot =|
|00002590| 20 26 34 30 30 43 35 0a | 20 90 11 4d 65 73 73 61 | &400C5.| ..Messa|
|000025a0| 67 65 5f 54 61 73 6b 4e | 61 6d 65 52 71 20 3d 20 |ge_TaskN|ameRq = |
|000025b0| 26 34 30 30 43 36 0a 20 | 90 11 4d 65 73 73 61 67 |&400C6. |..Messag|
|000025c0| 65 5f 54 61 73 6b 4e 61 | 6d 65 49 73 20 3d 20 26 |e_TaskNa|meIs = &|
|000025d0| 34 30 30 43 37 0a 90 03 | 50 72 6f 63 65 64 75 72 |400C7...|Procedur|
|000025e0| 65 3a 20 90 06 50 52 4f | 43 57 69 6e 5f 4f 70 65 |e: ..PRO|CWin_Ope|
|000025f0| 6e 28 77 69 6e 25 2c 20 | 74 6f 70 6c 65 66 74 78 |n(win%, |topleftx|
|00002600| 25 2c 20 74 6f 70 6c 65 | 66 74 79 25 2c 20 77 69 |%, tople|fty%, wi|
|00002610| 64 74 68 25 2c 20 68 65 | 69 67 68 74 25 29 0a 0a |dth%, he|ight%)..|
|00002620| 44 65 73 63 72 69 70 74 | 69 6f 6e 3a 20 90 04 54 |Descript|ion: ..T|
|00002630| 68 69 73 20 70 72 6f 63 | 65 64 75 72 65 20 61 63 |his proc|edure ac|
|00002640| 74 73 20 61 73 20 61 6e | 20 69 6e 74 65 72 66 61 |ts as an| interfa|
|00002650| 63 65 20 74 6f 20 74 68 | 65 20 22 57 69 6d 70 5f |ce to th|e "Wimp_|
|00002660| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 20 0a 20 90 10 |OpenWind|ow" . ..|
|00002670| 63 61 6c 6c 2e 20 54 68 | 65 20 66 69 72 73 74 20 |call. Th|e first |
|00002680| 61 72 67 75 6d 65 6e 74 | 20 22 77 69 6e 25 22 20 |argument| "win%" |
|00002690| 69 73 20 74 68 65 20 77 | 69 6e 64 6f 77 20 68 61 |is the w|indow ha|
|000026a0| 6e 64 6c 65 2c 20 74 68 | 65 0a 20 90 10 6e 65 78 |ndle, th|e. ..nex|
|000026b0| 74 20 74 77 6f 20 64 65 | 66 69 6e 65 20 74 68 65 |t two de|fine the|
|000026c0| 20 73 63 72 65 65 6e 20 | 63 6f 6f 72 64 69 6e 61 | screen |coordina|
|000026d0| 74 65 20 6f 66 20 74 68 | 65 20 74 6f 70 20 6c 65 |te of th|e top le|
|000026e0| 66 74 20 63 6f 72 6e 65 | 72 0a 20 90 10 6f 66 20 |ft corne|r. ..of |
|000026f0| 74 68 65 20 77 69 6e 64 | 6f 77 2c 20 61 6e 64 20 |the wind|ow, and |
|00002700| 74 68 65 20 6c 61 73 74 | 20 74 77 6f 20 64 65 66 |the last| two def|
|00002710| 69 6e 65 20 74 68 65 20 | 69 6e 69 74 69 61 6c 20 |ine the |initial |
|00002720| 77 69 64 74 68 20 61 6e | 64 0a 20 90 10 68 65 69 |width an|d. ..hei|
|00002730| 67 68 74 20 6f 66 20 74 | 68 65 20 77 69 6e 64 6f |ght of t|he windo|
|00002740| 77 20 61 73 20 64 69 73 | 70 6c 61 79 65 64 2e 0a |w as dis|played..|
|00002750| 90 03 50 72 6f 63 65 64 | 75 72 65 3a 20 90 06 50 |..Proced|ure: ..P|
|00002760| 52 4f 43 49 63 6f 6e 5f | 53 65 74 54 65 78 74 28 |ROCIcon_|SetText(|
|00002770| 77 69 6e 25 2c 69 63 6f | 6e 25 2c 74 65 78 74 24 |win%,ico|n%,text$|
|00002780| 29 0a 0a 44 65 73 63 72 | 69 70 74 69 6f 6e 3a 20 |)..Descr|iption: |
|00002790| 90 04 55 73 65 20 74 68 | 69 73 20 70 72 6f 63 65 |..Use th|is proce|
|000027a0| 64 75 72 65 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |dure to |change t|
|000027b0| 68 65 20 74 65 78 74 20 | 73 74 6f 72 65 64 20 69 |he text |stored i|
|000027c0| 6e 20 61 6e 20 69 63 6f | 6e 2e 20 54 68 65 0a 20 |n an ico|n. The. |
|000027d0| 90 10 66 69 72 73 74 20 | 74 77 6f 20 70 61 72 61 |..first |two para|
|000027e0| 6d 65 74 65 72 73 20 64 | 65 66 69 6e 65 20 74 68 |meters d|efine th|
|000027f0| 65 20 77 69 6e 64 6f 77 | 20 68 61 6e 64 6c 65 20 |e window| handle |
|00002800| 61 6e 64 20 69 63 6f 6e | 20 68 61 6e 64 6c 65 0a |and icon| handle.|
|00002810| 20 90 10 72 65 73 70 65 | 63 74 69 76 65 6c 79 2e | ..respe|ctively.|
|00002820| 20 54 68 65 20 74 68 69 | 72 64 20 61 72 67 75 6d | The thi|rd argum|
|00002830| 65 6e 74 20 69 73 20 74 | 68 65 20 74 65 78 74 20 |ent is t|he text |
|00002840| 73 74 72 69 6e 67 20 74 | 6f 20 69 6e 73 65 72 74 |string t|o insert|
|00002850| 0a 20 90 10 69 6e 74 6f | 20 74 68 65 20 69 63 6f |. ..into| the ico|
|00002860| 6e 27 73 20 62 75 66 66 | 65 72 2e 20 54 68 65 20 |n's buff|er. The |
|00002870| 70 72 6f 63 65 64 75 72 | 65 20 63 68 65 63 6b 73 |procedur|e checks|
|00002880| 20 77 68 65 74 68 65 72 | 20 74 68 65 20 69 63 6f | whether| the ico|
|00002890| 6e 0a 20 90 10 63 6f 6e | 74 61 69 6e 73 20 61 6e |n. ..con|tains an|
|000028a0| 20 69 6e 64 69 72 65 63 | 74 65 64 20 74 65 78 74 | indirec|ted text|
|000028b0| 20 73 74 72 69 6e 67 20 | 6f 72 20 6e 6f 74 2c 20 | string |or not, |
|000028c0| 61 6e 64 20 73 74 6f 72 | 65 73 20 74 68 65 20 73 |and stor|es the s|
|000028d0| 74 72 69 6e 67 0a 20 90 | 10 61 70 70 72 6f 70 72 |tring. .|.appropr|
|000028e0| 69 61 74 65 6c 79 2e 20 | 46 6f 72 20 6e 6f 6e 2d |iately. |For non-|
|000028f0| 69 6e 64 69 72 65 63 74 | 65 64 20 74 65 78 74 2c |indirect|ed text,|
|00002900| 20 74 68 65 20 73 74 72 | 69 6e 67 20 69 6e 20 74 | the str|ing in t|
|00002910| 65 78 74 24 20 77 69 6c | 6c 0a 20 90 10 62 65 20 |ext$ wil|l. ..be |
|00002920| 74 72 75 6e 63 61 74 65 | 64 20 74 6f 20 69 74 73 |truncate|d to its|
|00002930| 20 66 69 72 73 74 20 31 | 32 20 63 68 61 72 61 63 | first 1|2 charac|
|00002940| 74 65 72 73 2c 20 77 68 | 69 6c 65 20 66 6f 72 20 |ters, wh|ile for |
|00002950| 69 6e 64 69 72 65 63 74 | 65 64 0a 20 90 10 74 65 |indirect|ed. ..te|
|00002960| 78 74 20 69 63 6f 6e 73 | 20 74 68 65 20 73 74 72 |xt icons| the str|
|00002970| 69 6e 67 20 77 69 6c 6c | 20 62 65 20 74 72 75 6e |ing will| be trun|
|00002980| 63 61 74 65 64 20 74 6f | 20 74 68 65 20 6c 65 6e |cated to| the len|
|00002990| 67 74 68 20 6f 66 20 74 | 68 65 0a 20 90 10 69 63 |gth of t|he. ..ic|
|000029a0| 6f 6e 27 73 20 62 75 66 | 66 65 72 2e 0a 90 03 50 |on's buf|fer....P|
|000029b0| 72 6f 63 65 64 75 72 65 | 3a 20 90 06 46 4e 49 63 |rocedure|: ..FNIc|
|000029c0| 6f 6e 5f 52 65 61 64 54 | 65 78 74 28 77 69 6e 25 |on_ReadT|ext(win%|
|000029d0| 2c 20 69 63 6f 6e 25 29 | 0a 0a 44 65 73 63 72 69 |, icon%)|..Descri|
|000029e0| 70 74 69 6f 6e 3a 20 90 | 04 54 68 69 73 20 66 75 |ption: .|.This fu|
|000029f0| 6e 63 74 69 6f 6e 20 77 | 69 6c 6c 20 72 65 74 75 |nction w|ill retu|
|00002a00| 72 6e 20 74 68 65 20 61 | 73 20 61 20 74 65 78 74 |rn the a|s a text|
|00002a10| 20 73 74 72 69 6e 67 20 | 74 68 65 20 74 65 78 74 | string |the text|
|00002a20| 20 73 74 6f 72 65 64 0a | 20 90 10 69 6e 20 74 68 | stored.| ..in th|
|00002a30| 65 20 69 63 6f 6e 20 69 | 64 65 6e 74 69 66 69 65 |e icon i|dentifie|
|00002a40| 64 20 62 79 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |d by the| window |
|00002a50| 68 61 6e 64 6c 65 20 77 | 69 6e 25 20 61 6e 64 20 |handle w|in% and |
|00002a60| 74 68 65 20 69 63 6f 6e | 0a 20 90 10 68 61 6e 64 |the icon|. ..hand|
|00002a70| 6c 65 20 69 63 6f 6e 25 | 2e 0a 90 03 50 72 6f 63 |le icon%|....Proc|
|00002a80| 65 64 75 72 65 3a 20 90 | 06 46 4e 49 63 6f 6e 5f |edure: .|.FNIcon_|
|00002a90| 53 65 6c 65 63 74 28 69 | 63 6f 6e 25 2c 20 77 69 |Select(i|con%, wi|
|00002aa0| 6e 25 29 0a 0a 44 65 73 | 63 72 69 70 74 69 6f 6e |n%)..Des|cription|
|00002ab0| 3a 20 90 04 53 65 74 20 | 61 6e 20 69 63 6f 6e 27 |: ..Set |an icon'|
|00002ac0| 73 20 73 65 6c 65 63 74 | 65 64 20 62 69 74 20 69 |s select|ed bit i|
|00002ad0| 6e 20 69 74 73 20 66 6c | 61 67 73 20 77 6f 72 64 |n its fl|ags word|
|00002ae0| 2c 20 61 6e 64 20 72 65 | 74 75 72 6e 20 74 68 65 |, and re|turn the|
|00002af0| 20 6f 6c 64 0a 20 90 10 | 76 61 6c 75 65 20 6f 66 | old. ..|value of|
|00002b00| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 62 69 | the sel|ected bi|
|00002b10| 74 2e 0a 90 03 50 72 6f | 63 65 64 75 72 65 3a 20 |t....Pro|cedure: |
|00002b20| 90 06 46 4e 49 63 6f 6e | 5f 44 65 73 65 6c 65 63 |..FNIcon|_Deselec|
|00002b30| 74 28 69 63 6f 6e 25 2c | 20 77 69 6e 25 29 0a 0a |t(icon%,| win%)..|
|00002b40| 44 65 73 63 72 69 70 74 | 69 6f 6e 3a 20 90 04 44 |Descript|ion: ..D|
|00002b50| 65 73 65 6c 65 63 74 20 | 61 6e 20 69 63 6f 6e 20 |eselect |an icon |
|00002b60| 61 6e 64 20 72 65 74 75 | 72 6e 20 74 68 65 20 6f |and retu|rn the o|
|00002b70| 6c 64 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |ld value| of the |
|00002b80| 69 63 6f 6e 27 73 20 73 | 65 6c 65 63 74 65 64 0a |icon's s|elected.|
|00002b90| 20 90 10 62 69 74 2e 0a | 90 03 2b 2d 90 0e 2b 20 | ..bit..|..+-..+ |
|00002ba0| 0a 7c 20 54 65 78 74 20 | 57 69 6e 64 6f 77 73 20 |.| Text |Windows |
|00002bb0| 7c 20 0a 2b 2d 90 0e 2b | 0a 0a 54 68 69 73 20 70 || .+-..+|..This p|
|00002bc0| 72 6f 63 65 64 75 72 65 | 20 6c 69 62 72 61 72 79 |rocedure| library|
|00002bd0| 20 69 73 20 74 68 65 20 | 6d 6f 73 74 20 63 6f 6d | is the |most com|
|00002be0| 70 6c 65 78 20 69 6e 20 | 74 68 65 20 73 65 74 2e |plex in |the set.|
|00002bf0| 20 49 74 20 63 6f 6e 73 | 69 73 74 73 20 6f 66 0a | It cons|ists of.|
|00002c00| 70 72 6f 63 65 64 75 72 | 65 73 20 69 6e 20 74 77 |procedur|es in tw|
|00002c10| 6f 20 6d 61 69 6e 20 63 | 6c 61 73 73 65 73 3b 20 |o main c|lasses; |
|00002c20| 74 68 6f 73 65 20 64 65 | 73 69 67 6e 65 64 20 74 |those de|signed t|
|00002c30| 6f 20 62 65 20 63 61 6c | 6c 65 64 20 61 73 20 57 |o be cal|led as W|
|00002c40| 69 6d 70 5f 50 6f 6c 6c | 0a 65 76 65 6e 74 20 68 |imp_Poll|.event h|
|00002c50| 61 6e 64 6c 65 72 73 2c | 20 61 6e 64 20 74 68 6f |andlers,| and tho|
|00002c60| 73 65 20 64 65 73 69 67 | 6e 65 64 20 74 6f 20 63 |se desig|ned to c|
|00002c70| 72 65 61 74 65 20 61 6e | 64 20 6d 61 6e 69 70 75 |reate an|d manipu|
|00002c80| 6c 61 74 65 20 74 65 78 | 74 20 77 69 6e 64 6f 77 |late tex|t window|
|00002c90| 73 2e 0a 54 68 65 20 70 | 72 6f 63 65 64 75 72 65 |s..The p|rocedure|
|00002ca0| 73 20 72 65 71 75 69 72 | 65 20 61 20 77 69 6e 64 |s requir|e a wind|
|00002cb0| 6f 77 20 74 65 6d 70 6c | 61 74 65 20 74 6f 20 62 |ow templ|ate to b|
|00002cc0| 65 20 63 72 65 61 74 65 | 64 20 73 65 70 61 72 61 |e create|d separa|
|00002cd0| 74 65 6c 79 2c 20 75 73 | 69 6e 67 0a 21 46 6f 72 |tely, us|ing.!For|
|00002ce0| 6d 45 64 20 66 6f 72 20 | 65 78 61 6d 70 6c 65 2c |mEd for |example,|
|00002cf0| 20 61 6e 64 20 74 68 65 | 20 77 69 6e 64 6f 77 20 | and the| window |
|00002d00| 6d 75 73 74 20 68 61 76 | 65 20 74 68 65 20 74 69 |must hav|e the ti|
|00002d10| 74 6c 65 20 22 54 65 78 | 74 64 69 73 70 6c 61 79 |tle "Tex|tdisplay|
|00002d20| 22 2e 0a 0a 50 72 6f 63 | 65 64 75 72 65 3a 20 90 |"...Proc|edure: .|
|00002d30| 06 46 4e 54 65 78 74 5f | 43 72 65 61 74 65 54 65 |.FNText_|CreateTe|
|00002d40| 78 74 4f 62 6a 65 63 74 | 28 74 69 74 6c 65 24 29 |xtObject|(title$)|
|00002d50| 0a 0a 44 65 73 63 72 69 | 70 74 69 6f 6e 3a 20 90 |..Descri|ption: .|
|00002d60| 04 49 6e 69 74 69 61 6c | 69 73 65 20 61 20 77 69 |.Initial|ise a wi|
|00002d70| 6e 64 6f 77 2c 20 66 72 | 6f 6d 20 74 68 65 20 74 |ndow, fr|om the t|
|00002d80| 65 6d 70 6c 61 74 65 20 | 63 61 6c 6c 65 64 20 22 |emplate |called "|
|00002d90| 54 65 78 74 64 69 73 70 | 6c 61 79 22 0a 20 90 10 |Textdisp|lay". ..|
|00002da0| 69 6e 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |in the a|pplicati|
|00002db0| 6f 6e 73 20 54 65 6d 70 | 6c 61 74 65 73 20 66 69 |ons Temp|lates fi|
|00002dc0| 6c 65 2c 20 61 6e 64 20 | 70 72 65 70 61 72 65 20 |le, and |prepare |
|00002dd0| 69 74 20 66 6f 72 0a 20 | 90 10 61 63 63 65 70 74 |it for. |..accept|
|00002de0| 69 6e 67 20 6c 69 6e 65 | 73 20 6f 66 20 74 65 78 |ing line|s of tex|
|00002df0| 74 2e 20 54 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |t. The f|unction |
|00002e00| 72 65 74 75 72 6e 73 20 | 61 6e 20 69 6e 74 65 67 |returns |an integ|
|00002e10| 65 72 0a 20 90 10 76 61 | 6c 75 65 20 77 68 69 63 |er. ..va|lue whic|
|00002e20| 68 20 69 73 20 61 20 74 | 65 78 74 20 6f 62 6a 65 |h is a t|ext obje|
|00002e30| 63 74 20 68 61 6e 64 6c | 65 20 74 6f 20 62 65 20 |ct handl|e to be |
|00002e40| 75 73 65 64 20 69 6e 20 | 63 61 6c 6c 73 20 74 6f |used in |calls to|
|00002e50| 0a 20 90 10 73 75 62 73 | 65 71 75 65 6e 74 20 70 |. ..subs|equent p|
|00002e60| 72 6f 63 65 64 75 72 65 | 73 20 61 6e 64 20 66 75 |rocedure|s and fu|
|00002e70| 6e 63 74 69 6f 6e 73 20 | 69 6e 20 74 68 65 20 74 |nctions |in the t|
|00002e80| 65 78 74 20 6c 69 62 72 | 61 72 79 2e 0a 20 90 10 |ext libr|ary.. ..|
|00002e90| 54 68 65 20 74 65 78 74 | 20 77 69 6e 64 6f 77 20 |The text| window |
|00002ea0| 77 69 6c 6c 20 68 61 76 | 65 20 74 68 65 20 74 69 |will hav|e the ti|
|00002eb0| 74 6c 65 20 73 74 72 69 | 6e 67 20 70 61 73 73 65 |tle stri|ng passe|
|00002ec0| 64 20 61 73 20 74 68 65 | 0a 20 90 10 61 72 67 75 |d as the|. ..argu|
|00002ed0| 6d 65 6e 74 20 74 69 74 | 6c 65 24 2e 0a 90 03 50 |ment tit|le$....P|
|00002ee0| 72 6f 63 65 64 75 72 65 | 3a 20 90 06 46 4e 54 65 |rocedure|: ..FNTe|
|00002ef0| 78 74 5f 44 65 6c 65 74 | 65 54 65 78 74 4f 62 6a |xt_Delet|eTextObj|
|00002f00| 65 63 74 28 6f 62 6a 70 | 74 72 25 29 0a 0a 44 65 |ect(objp|tr%)..De|
|00002f10| 73 63 72 69 70 74 69 6f | 6e 3a 20 90 04 54 68 69 |scriptio|n: ..Thi|
|00002f20| 73 20 66 75 6e 63 74 69 | 6f 6e 20 64 65 6c 65 74 |s functi|on delet|
|00002f30| 65 73 20 74 68 65 20 74 | 65 78 74 20 77 69 6e 64 |es the t|ext wind|
|00002f40| 6f 77 20 6f 62 6a 65 63 | 74 20 63 72 65 61 74 65 |ow objec|t create|
|00002f50| 64 20 62 79 20 74 68 65 | 0a 20 90 10 70 72 65 76 |d by the|. ..prev|
|00002f60| 69 6f 75 73 20 66 75 6e | 63 74 69 6f 6e 2e 20 41 |ious fun|ction. A|
|00002f70| 6c 6c 20 61 6c 6c 6f 63 | 61 74 65 64 20 6d 65 6d |ll alloc|ated mem|
|00002f80| 6f 72 79 20 69 73 20 66 | 72 65 65 64 20 61 6e 64 |ory is f|reed and|
|00002f90| 20 74 68 65 0a 20 90 10 | 6f 62 6a 65 63 74 20 63 | the. ..|object c|
|00002fa0| 61 6e 6e 6f 74 20 62 65 | 20 72 65 66 65 72 65 6e |annot be| referen|
|00002fb0| 63 65 64 20 75 73 69 6e | 67 20 69 74 73 20 6f 62 |ced usin|g its ob|
|00002fc0| 6a 65 63 74 20 68 61 6e | 64 6c 65 20 61 6e 79 20 |ject han|dle any |
|00002fd0| 6d 6f 72 65 2e 0a 90 03 | 50 72 6f 63 65 64 75 72 |more....|Procedur|
|00002fe0| 65 3a 20 90 06 50 52 4f | 43 54 65 78 74 5f 61 70 |e: ..PRO|CText_ap|
|00002ff0| 70 6c 69 6e 65 28 6f 62 | 6a 70 74 72 25 2c 20 6c |pline(ob|jptr%, l|
|00003000| 69 6e 65 24 29 0a 20 90 | 10 0a 44 65 73 63 72 69 |ine$). .|..Descri|
|00003010| 70 74 69 6f 6e 3a 20 90 | 04 54 68 69 73 20 70 72 |ption: .|.This pr|
|00003020| 6f 63 65 64 75 72 65 20 | 61 63 63 65 70 74 73 20 |ocedure |accepts |
|00003030| 61 6e 20 6f 62 6a 65 63 | 74 20 68 61 6e 64 6c 65 |an objec|t handle|
|00003040| 20 63 72 65 61 74 65 64 | 20 62 79 20 61 20 70 72 | created| by a pr|
|00003050| 65 76 69 6f 75 73 0a 20 | 90 10 63 61 6c 6c 20 74 |evious. |..call t|
|00003060| 6f 20 46 4e 54 65 78 74 | 5f 43 72 65 61 74 65 54 |o FNText|_CreateT|
|00003070| 65 78 74 4f 62 6a 65 63 | 74 2c 20 61 6e 64 20 61 |extObjec|t, and a|
|00003080| 20 73 74 72 69 6e 67 20 | 63 6f 6e 74 61 69 6e 69 | string |containi|
|00003090| 6e 67 20 61 20 6c 69 6e | 65 0a 20 90 10 6f 66 20 |ng a lin|e. ..of |
|000030a0| 74 65 78 74 2e 20 54 68 | 65 20 6c 69 6e 65 20 61 |text. Th|e line a|
|000030b0| 73 20 61 64 64 65 64 20 | 74 6f 20 74 68 65 20 74 |s added |to the t|
|000030c0| 65 78 74 20 77 69 6e 64 | 6f 77 20 61 74 20 74 68 |ext wind|ow at th|
|000030d0| 65 20 65 6e 64 20 6f 66 | 0a 20 90 10 61 6e 79 20 |e end of|. ..any |
|000030e0| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 73 2e 20 49 |current |lines. I|
|000030f0| 66 20 74 68 65 72 65 20 | 61 72 65 20 6e 6f 20 6c |f there |are no l|
|00003100| 69 6e 65 73 20 64 69 73 | 70 6c 61 79 65 64 20 69 |ines dis|played i|
|00003110| 6e 20 74 68 65 20 77 69 | 6e 64 6f 77 2c 0a 20 90 |n the wi|ndow,. .|
|00003120| 10 74 68 65 6e 20 6c 69 | 6e 65 24 20 62 65 63 6f |.then li|ne$ beco|
|00003130| 6d 65 73 20 74 68 65 20 | 66 69 72 73 74 20 6c 69 |mes the |first li|
|00003140| 6e 65 20 6f 66 20 74 68 | 65 20 77 69 6e 64 6f 77 |ne of th|e window|
|00003150| 2e 0a 90 03 50 72 6f 63 | 65 64 75 72 65 3a 20 90 |....Proc|edure: .|
|00003160| 06 50 52 4f 43 54 65 78 | 74 5f 4c 6f 61 64 46 69 |.PROCTex|t_LoadFi|
|00003170| 6c 65 28 6f 62 6a 70 74 | 72 25 2c 20 66 69 6c 65 |le(objpt|r%, file|
|00003180| 24 29 0a 0a 44 65 73 63 | 72 69 70 74 69 6f 6e 3a |$)..Desc|ription:|
|00003190| 20 90 04 54 68 69 73 20 | 70 72 6f 63 65 64 75 72 | ..This |procedur|
|000031a0| 65 20 61 63 63 65 70 74 | 73 20 61 6e 20 6f 62 6a |e accept|s an obj|
|000031b0| 65 63 74 20 68 61 6e 64 | 6c 65 20 63 72 65 61 74 |ect hand|le creat|
|000031c0| 65 64 20 62 79 20 61 20 | 70 72 65 76 69 6f 75 73 |ed by a |previous|
|000031d0| 0a 20 90 10 63 61 6c 6c | 20 74 6f 20 46 4e 54 65 |. ..call| to FNTe|
|000031e0| 78 74 5f 43 72 65 61 74 | 65 54 65 78 74 4f 62 6a |xt_Creat|eTextObj|
|000031f0| 65 63 74 2c 20 61 6e 64 | 20 61 20 73 74 72 69 6e |ect, and| a strin|
|00003200| 67 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 74 68 65 |g contai|ning the|
|00003210| 0a 20 90 10 6e 61 6d 65 | 20 6f 66 20 61 20 66 69 |. ..name| of a fi|
|00003220| 6c 65 2e 20 54 68 65 20 | 65 6e 74 69 72 65 20 66 |le. The |entire f|
|00003230| 69 6c 65 20 69 73 20 6c | 6f 61 64 65 64 20 61 6e |ile is l|oaded an|
|00003240| 64 20 64 69 73 70 6c 61 | 79 65 64 20 69 6e 20 74 |d displa|yed in t|
|00003250| 68 65 0a 20 90 10 72 65 | 66 65 72 65 6e 63 65 64 |he. ..re|ferenced|
|00003260| 20 74 65 78 74 20 77 69 | 6e 64 6f 77 2e 20 49 74 | text wi|ndow. It|
|00003270| 20 69 73 20 61 73 73 75 | 6d 65 64 20 66 6f 72 20 | is assu|med for |
|00003280| 73 65 6e 73 69 62 6c 65 | 20 72 65 73 75 6c 74 73 |sensible| results|
|00003290| 20 74 68 61 74 0a 20 90 | 10 74 68 65 20 66 69 6c | that. .|.the fil|
|000032a0| 65 20 64 6f 65 73 20 63 | 6f 6e 74 61 69 6e 20 74 |e does c|ontain t|
|000032b0| 65 78 74 20 6c 69 6e 65 | 73 20 72 61 74 68 65 72 |ext line|s rather|
|000032c0| 20 74 68 61 6e 20 62 69 | 6e 61 72 79 0a 20 90 10 | than bi|nary. ..|
|000032d0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2e 20 0a 90 03 |informat|ion. ...|
|000032e0| 50 72 6f 63 65 64 75 72 | 65 3a 20 90 06 50 52 4f |Procedur|e: ..PRO|
|000032f0| 43 54 65 78 74 5f 44 65 | 6c 65 74 65 4c 69 6e 65 |CText_De|leteLine|
|00003300| 28 6f 62 6a 70 74 72 25 | 2c 20 6c 69 6e 65 25 29 |(objptr%|, line%)|
|00003310| 0a 0a 44 65 73 63 72 69 | 70 74 69 6f 6e 3a 20 90 |..Descri|ption: .|
|00003320| 04 54 68 69 73 20 70 72 | 6f 63 65 64 75 72 65 20 |.This pr|ocedure |
|00003330| 69 73 20 63 61 6c 6c 65 | 64 20 74 6f 20 64 65 6c |is calle|d to del|
|00003340| 65 74 65 20 61 20 73 69 | 6e 67 6c 65 20 6c 69 6e |ete a si|ngle lin|
|00003350| 65 20 66 72 6f 6d 20 74 | 68 65 20 74 65 78 74 0a |e from t|he text.|
|00003360| 20 90 10 77 69 6e 64 6f | 77 2e 20 54 68 65 20 66 | ..windo|w. The f|
|00003370| 69 72 73 74 20 61 72 67 | 75 6d 65 6e 74 20 67 69 |irst arg|ument gi|
|00003380| 76 65 73 20 74 68 65 20 | 68 61 6e 64 6c 65 20 6f |ves the |handle o|
|00003390| 66 20 74 68 65 20 74 65 | 78 74 20 77 69 6e 64 6f |f the te|xt windo|
|000033a0| 77 2c 0a 20 90 10 77 68 | 69 6c 65 20 74 68 65 20 |w,. ..wh|ile the |
|000033b0| 73 65 63 6f 6e 64 20 69 | 73 20 74 68 65 20 6c 69 |second i|s the li|
|000033c0| 6e 65 20 6e 75 6d 62 65 | 72 20 28 63 6f 75 6e 74 |ne numbe|r (count|
|000033d0| 69 6e 67 20 66 72 6f 6d | 20 30 29 20 74 6f 20 64 |ing from| 0) to d|
|000033e0| 65 6c 65 74 65 2e 0a 90 | 03 50 72 6f 63 65 64 75 |elete...|.Procedu|
|000033f0| 72 65 3a 20 90 06 50 52 | 4f 43 54 65 78 74 5f 69 |re: ..PR|OCText_i|
|00003400| 6e 69 74 0a 0a 44 65 73 | 63 72 69 70 74 69 6f 6e |nit..Des|cription|
|00003410| 3a 20 90 04 54 68 69 73 | 20 70 72 6f 63 65 64 75 |: ..This| procedu|
|00003420| 72 65 20 6d 75 73 74 20 | 62 65 20 63 61 6c 6c 65 |re must |be calle|
|00003430| 64 20 66 72 6f 6d 20 61 | 20 70 72 6f 67 72 61 6d |d from a| program|
|00003440| 73 20 69 6e 69 74 69 61 | 6c 69 73 61 74 69 6f 6e |s initia|lisation|
|00003450| 0a 20 90 10 73 65 63 74 | 69 6f 6e 2c 20 61 6e 64 |. ..sect|ion, and|
|00003460| 20 63 65 72 74 61 69 6e | 6c 79 20 62 65 66 6f 72 | certain|ly befor|
|00003470| 65 20 61 6e 79 20 63 61 | 6c 6c 73 20 61 72 65 20 |e any ca|lls are |
|00003480| 6d 61 64 65 20 74 6f 20 | 74 68 65 20 74 65 78 74 |made to |the text|
|00003490| 20 77 69 6e 64 6f 77 0a | 20 90 10 70 72 6f 63 65 | window.| ..proce|
|000034a0| 64 75 72 65 73 20 61 6e | 64 20 66 75 6e 63 74 69 |dures an|d functi|
|000034b0| 6f 6e 73 20 64 65 73 63 | 72 69 62 65 64 20 61 62 |ons desc|ribed ab|
|000034c0| 6f 76 65 2e 20 49 74 20 | 6d 61 79 20 62 65 20 63 |ove. It |may be c|
|000034d0| 61 6c 6c 65 64 20 77 68 | 69 6c 65 0a 20 90 10 73 |alled wh|ile. ..s|
|000034e0| 65 72 76 69 63 69 6e 67 | 20 74 68 65 20 57 49 4d |ervicing| the WIM|
|000034f0| 50 20 6d 65 73 73 61 67 | 65 20 54 61 73 6b 5f 49 |P messag|e Task_I|
|00003500| 6e 69 74 69 61 6c 69 73 | 65 2e 0a 90 03 50 72 6f |nitialis|e....Pro|
|00003510| 63 65 64 75 72 65 3a 20 | 90 06 50 52 4f 43 54 65 |cedure: |..PROCTe|
|00003520| 78 74 5f 52 65 64 72 61 | 77 28 62 6c 6f 63 6b 25 |xt_Redra|w(block%|
|00003530| 29 0a 0a 44 65 73 63 72 | 69 70 74 69 6f 6e 3a 20 |)..Descr|iption: |
|00003540| 90 04 54 68 69 73 20 70 | 72 6f 63 65 64 75 72 65 |..This p|rocedure|
|00003550| 20 69 73 20 70 72 6f 76 | 69 64 65 64 20 66 6f 72 | is prov|ided for|
|00003560| 20 75 73 65 20 69 6e 20 | 74 68 65 20 57 49 4d 50 | use in |the WIMP|
|00003570| 27 73 20 73 74 72 61 74 | 65 67 79 20 66 6f 72 0a |'s strat|egy for.|
|00003580| 20 90 10 72 65 64 72 61 | 77 69 6e 67 20 77 69 6e | ..redra|wing win|
|00003590| 64 6f 77 73 2e 20 49 74 | 20 70 65 72 66 6f 72 6d |dows. It| perform|
|000035a0| 73 20 61 6c 6c 20 74 68 | 65 20 73 63 72 65 65 6e |s all th|e screen|
|000035b0| 20 75 70 64 61 74 65 73 | 20 6e 65 63 65 73 73 61 | updates| necessa|
|000035c0| 72 79 0a 20 90 10 74 6f | 20 72 65 66 72 65 73 68 |ry. ..to| refresh|
|000035d0| 20 74 68 65 20 74 65 78 | 74 20 77 69 6e 64 6f 77 | the tex|t window|
|000035e0| 73 2e 20 54 68 65 20 70 | 72 6f 63 65 64 75 72 65 |s. The p|rocedure|
|000035f0| 20 73 68 6f 75 6c 64 20 | 62 65 20 63 61 6c 6c 65 | should |be calle|
|00003600| 64 0a 20 90 10 69 6e 20 | 74 68 65 20 57 69 6d 70 |d. ..in |the Wimp|
|00003610| 5f 50 6f 6c 6c 20 6c 6f | 6f 70 20 77 68 65 6e 20 |_Poll lo|op when |
|00003620| 61 20 52 65 64 72 61 77 | 5f 57 69 6e 64 6f 77 5f |a Redraw|_Window_|
|00003630| 52 65 71 75 65 73 74 20 | 65 76 65 6e 74 20 69 73 |Request |event is|
|00003640| 0a 20 90 10 72 65 63 65 | 69 76 65 64 3b 20 73 65 |. ..rece|ived; se|
|00003650| 65 20 74 68 65 20 21 43 | 6f 6d 70 61 72 65 20 70 |e the !C|ompare p|
|00003660| 72 6f 67 72 61 6d 20 66 | 6f 72 20 61 6e 20 65 78 |rogram f|or an ex|
|00003670| 61 6d 70 6c 65 2e 20 54 | 68 65 20 70 72 6f 63 65 |ample. T|he proce|
|00003680| 64 75 72 65 0a 20 90 10 | 69 73 20 61 73 20 73 68 |dure. ..|is as sh|
|00003690| 6f 72 74 20 61 73 20 70 | 6f 73 73 69 62 6c 65 20 |ort as p|ossible |
|000036a0| 61 6e 64 20 6d 61 6b 65 | 73 20 73 65 76 65 72 61 |and make|s severa|
|000036b0| 6c 20 6f 70 74 69 6d 69 | 73 61 74 69 6f 6e 73 20 |l optimi|sations |
|000036c0| 74 6f 0a 20 90 10 65 6e | 73 75 72 65 20 74 68 61 |to. ..en|sure tha|
|000036d0| 74 20 74 68 65 20 72 65 | 64 72 61 77 69 6e 67 20 |t the re|drawing |
|000036e0| 6f 66 20 74 68 65 20 77 | 69 6e 64 6f 77 20 74 61 |of the w|indow ta|
|000036f0| 6b 65 73 20 61 73 20 6c | 69 74 74 6c 65 20 74 69 |kes as l|ittle ti|
|00003700| 6d 65 0a 20 90 10 61 73 | 20 70 6f 73 73 69 62 6c |me. ..as| possibl|
|00003710| 65 20 2d 20 61 6c 6c 20 | 69 6e 20 42 41 53 49 43 |e - all |in BASIC|
|00003720| 20 74 6f 6f 21 0a 90 03 | 50 72 6f 63 65 64 75 72 | too!...|Procedur|
|00003730| 65 3a 20 90 06 50 52 4f | 43 54 65 78 74 5f 4d 6f |e: ..PRO|CText_Mo|
|00003740| 64 65 49 6e 69 74 0a 0a | 44 65 73 63 72 69 70 74 |deInit..|Descript|
|00003750| 69 6f 6e 3a 20 90 04 54 | 68 65 20 72 6f 75 74 69 |ion: ..T|he routi|
|00003760| 6e 65 73 20 75 73 65 64 | 20 74 6f 20 64 69 73 70 |nes used| to disp|
|00003770| 6c 61 79 20 74 65 78 74 | 20 75 73 65 20 76 61 6c |lay text| use val|
|00003780| 75 65 73 20 77 68 69 63 | 68 20 67 69 76 65 20 74 |ues whic|h give t|
|00003790| 68 65 20 68 65 69 67 68 | 74 0a 20 90 10 61 6e 64 |he heigh|t. ..and|
|000037a0| 20 77 69 64 74 68 20 6f | 66 20 74 68 65 20 63 68 | width o|f the ch|
|000037b0| 61 72 61 63 74 65 72 73 | 20 6f 6e 20 73 63 72 65 |aracters| on scre|
|000037c0| 65 6e 20 69 6e 20 70 69 | 78 65 6c 73 2e 20 54 68 |en in pi|xels. Th|
|000037d0| 65 73 65 20 76 61 6c 75 | 65 73 20 61 72 65 0a 20 |ese valu|es are. |
|000037e0| 90 10 64 69 66 66 65 72 | 65 6e 74 20 66 6f 72 20 |..differ|ent for |
|000037f0| 65 61 63 68 20 6d 6f 64 | 65 2c 20 73 6f 20 69 74 |each mod|e, so it|
|00003800| 20 69 73 20 69 6d 70 6f | 72 74 61 6e 74 20 74 68 | is impo|rtant th|
|00003810| 61 74 20 6f 6e 20 6d 6f | 64 65 20 63 68 61 6e 67 |at on mo|de chang|
|00003820| 65 73 0a 20 90 10 74 68 | 65 20 6e 65 77 20 64 69 |es. ..th|e new di|
|00003830| 6d 65 6e 73 69 6f 6e 73 | 20 6f 66 20 63 68 61 72 |mensions| of char|
|00003840| 61 63 74 65 72 73 20 61 | 72 65 20 61 63 74 65 64 |acters a|re acted|
|00003850| 20 75 70 6f 6e 2e 20 54 | 68 69 73 20 70 72 6f 63 | upon. T|his proc|
|00003860| 65 64 75 72 65 20 69 73 | 0a 20 90 10 70 72 6f 76 |edure is|. ..prov|
|00003870| 69 64 65 64 20 74 6f 20 | 70 65 72 66 6f 72 6d 20 |ided to |perform |
|00003880| 61 6c 6c 20 74 68 65 20 | 6e 65 63 65 73 73 61 72 |all the |necessar|
|00003890| 79 20 63 61 6c 63 75 6c | 61 74 69 6f 6e 73 20 62 |y calcul|ations b|
|000038a0| 61 73 65 64 20 6f 6e 20 | 74 68 65 0a 20 90 10 63 |ased on |the. ..c|
|000038b0| 75 72 72 65 6e 74 20 73 | 63 72 65 65 6e 20 6d 6f |urrent s|creen mo|
|000038c0| 64 65 2e 20 49 74 20 73 | 68 6f 75 6c 64 20 62 65 |de. It s|hould be|
|000038d0| 20 70 6c 61 63 65 64 20 | 69 6e 20 74 68 65 20 6d | placed |in the m|
|000038e0| 61 69 6e 20 70 72 6f 67 | 72 61 6d 20 69 6e 0a 20 |ain prog|ram in. |
|000038f0| 90 10 74 68 65 20 73 65 | 63 74 69 6f 6e 20 77 68 |..the se|ction wh|
|00003900| 69 63 68 20 64 65 61 6c | 73 20 77 69 74 68 20 57 |ich deal|s with W|
|00003910| 49 4d 50 20 6d 65 73 73 | 61 67 65 73 2e 20 54 68 |IMP mess|ages. Th|
|00003920| 65 20 6d 65 73 73 61 67 | 65 20 74 79 70 65 0a 20 |e messag|e type. |
|00003930| 90 10 22 4d 65 73 73 61 | 67 65 5f 4d 6f 64 65 43 |.."Messa|ge_ModeC|
|00003940| 68 61 6e 67 65 22 20 69 | 73 20 73 65 6e 74 20 74 |hange" i|s sent t|
|00003950| 6f 20 65 76 65 72 79 20 | 70 72 6f 67 72 61 6d 20 |o every |program |
|00003960| 6f 6e 20 61 20 6d 6f 64 | 65 20 63 68 61 6e 67 65 |on a mod|e change|
|00003970| 2c 0a 20 90 10 61 6e 64 | 20 77 68 65 6e 20 64 65 |,. ..and| when de|
|00003980| 74 65 63 74 65 64 20 74 | 68 69 73 20 70 72 6f 63 |tected t|his proc|
|00003990| 65 64 75 72 65 20 73 68 | 6f 75 6c 64 20 62 65 20 |edure sh|ould be |
|000039a0| 63 61 6c 6c 65 64 3b 20 | 73 65 65 20 74 68 65 0a |called; |see the.|
|000039b0| 20 90 10 21 43 6f 6d 70 | 61 72 65 20 70 72 6f 67 | ..!Comp|are prog|
|000039c0| 72 61 6d 20 66 6f 72 20 | 61 6e 20 65 78 61 6d 70 |ram for |an examp|
|000039d0| 6c 65 2e 0a 46 69 6c 65 | 44 61 74 61 82 21 42 6f |le..File|Data.!Bo|
|000039e0| 6f 74 00 00 38 50 00 00 | 5f 00 00 00 43 eb ff ff |ot..8P..|_...C...|
|000039f0| 2e 4e cf 2a 03 00 16 cb | 7c 20 3e 20 21 42 6f 6f |.N.*....|| > !Boo|
|00003a00| 74 20 44 46 53 43 6f 70 | 79 20 42 6f 6f 74 20 46 |t DFSCop|y Boot F|
|00003a10| 69 6c 65 20 31 2e 30 0a | 73 65 74 20 44 46 53 63 |ile 1.0.|set DFSc|
|00003a20| 6f 70 79 24 64 69 72 20 | 3c 6f 62 65 79 24 64 69 |opy$dir |<obey$di|
|00003a30| 72 3e 0a 49 63 6f 6e 73 | 70 72 69 74 65 73 20 3c |r>.Icons|prites <|
|00003a40| 44 46 53 63 6f 70 79 24 | 64 69 72 3e 2e 21 53 70 |DFScopy$|dir>.!Sp|
|00003a50| 72 69 74 65 73 0a 0a 46 | 69 6c 65 44 61 74 61 83 |rites..F|ileData.|
|00003a60| 21 48 65 6c 70 00 00 38 | 50 00 00 29 0f 00 00 44 |!Help..8|P..)...D|
|00003a70| ff ff ff e0 f8 ee 5c 03 | 00 6c 6e 40 28 23 29 21 |......\.|.ln@(#)!|
|00003a80| 59 61 64 66 73 20 90 04 | 32 2e 35 0a 0a 59 41 44 |Yadfs ..|2.5..YAD|
|00003a90| 46 53 3a 20 59 65 74 20 | 41 6e 6f 74 68 65 72 20 |FS: Yet |Another |
|00003aa0| 44 46 53 20 63 6f 70 69 | 65 72 0a 3d 90 1d 0a a9 |DFS copi|er.=....|
|00003ab0| 20 43 6f 70 79 72 69 67 | 68 74 20 31 39 39 32 2c | Copyrig|ht 1992,|
|00003ac0| 31 39 39 33 20 43 68 72 | 69 73 20 43 6f 72 62 65 |1993 Chr|is Corbe|
|00003ad0| 74 74 0a 0a 54 68 69 73 | 20 61 70 70 6c 69 63 61 |tt..This| applica|
|00003ae0| 74 69 6f 6e 20 69 73 20 | 64 69 73 74 72 69 62 75 |tion is |distribu|
|00003af0| 74 65 64 20 66 72 65 65 | 20 6f 66 20 63 68 61 72 |ted free| of char|
|00003b00| 67 65 20 61 6e 64 20 6d | 61 79 20 62 65 20 75 73 |ge and m|ay be us|
|00003b10| 65 64 20 77 69 74 68 6f | 75 74 0a 72 65 73 74 72 |ed witho|ut.restr|
|00003b20| 69 63 74 69 6f 6e 20 61 | 73 20 6c 6f 6e 67 20 61 |iction a|s long a|
|00003b30| 73 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |s the fo|llowing |
|00003b40| 63 6f 6e 64 69 74 69 6f | 6e 73 20 61 72 65 20 61 |conditio|ns are a|
|00003b50| 64 68 65 72 65 64 20 74 | 6f 3a 0a 0a 20 69 29 20 |dhered t|o:.. i) |
|00003b60| 4e 6f 20 63 68 61 72 67 | 65 20 6d 75 73 74 20 62 |No charg|e must b|
|00003b70| 65 20 6d 61 64 65 20 66 | 6f 72 20 72 65 2d 64 69 |e made f|or re-di|
|00003b80| 73 74 72 69 62 75 74 69 | 6f 6e 0a 69 69 29 20 41 |stributi|on.ii) A|
|00003b90| 6c 6c 20 66 69 6c 65 73 | 20 6d 75 73 74 20 62 65 |ll files| must be|
|00003ba0| 20 69 6e 63 6c 75 64 65 | 64 2c 20 65 73 70 65 63 | include|d, espec|
|00003bb0| 69 61 6c 6c 79 20 74 68 | 69 73 20 21 48 65 6c 70 |ially th|is !Help|
|00003bc0| 20 66 69 6c 65 0a 20 90 | 04 77 69 74 68 20 74 68 | file. .|.with th|
|00003bd0| 65 20 63 6f 70 79 72 69 | 67 68 74 20 6e 6f 74 69 |e copyri|ght noti|
|00003be0| 63 65 2e 0a 0a 41 6c 6c | 20 68 65 6c 70 66 75 6c |ce...All| helpful|
|00003bf0| 20 73 75 67 67 65 73 74 | 69 6f 6e 73 20 66 6f 72 | suggest|ions for|
|00003c00| 20 63 68 61 6e 67 65 73 | 2c 20 69 6d 70 72 6f 76 | changes|, improv|
|00003c10| 65 6d 65 6e 74 73 2c 20 | 62 75 67 20 66 69 78 65 |ements, |bug fixe|
|00003c20| 73 20 65 74 63 2e 0a 67 | 72 61 74 65 66 75 6c 6c |s etc..g|ratefull|
|00003c30| 79 20 72 65 63 65 69 76 | 65 64 2e 0a 0a 23 90 4e |y receiv|ed...#.N|
|00003c40| 0a 0a 4f 70 65 72 61 74 | 69 6f 6e 20 53 75 6d 6d |..Operat|ion Summ|
|00003c50| 61 72 79 0a 0a 4f 70 65 | 72 61 74 69 6f 6e 20 69 |ary..Ope|ration i|
|00003c60| 73 20 73 74 72 61 69 67 | 68 74 66 6f 72 77 61 72 |s straig|htforwar|
|00003c70| 64 28 21 29 2e 20 44 6f | 75 62 6c 65 20 63 6c 69 |d(!). Do|uble cli|
|00003c80| 63 6b 20 6f 6e 20 74 68 | 65 20 21 59 61 64 66 73 |ck on th|e !Yadfs|
|00003c90| 20 69 63 6f 6e 20 61 6e | 64 20 74 68 65 0a 61 70 | icon an|d the.ap|
|00003ca0| 70 6c 69 63 61 74 69 6f | 6e 20 77 69 6c 6c 20 69 |plicatio|n will i|
|00003cb0| 6e 73 74 61 6c 6c 20 69 | 74 73 65 6c 66 20 6f 6e |nstall i|tself on|
|00003cc0| 20 74 68 65 20 69 63 6f | 6e 20 62 61 72 2e 20 43 | the ico|n bar. C|
|00003cd0| 6c 69 63 6b 20 73 65 6c | 65 63 74 20 6f 6e 20 74 |lick sel|ect on t|
|00003ce0| 68 65 20 66 6c 6f 70 70 | 79 0a 64 69 73 6b 20 69 |he flopp|y.disk i|
|00003cf0| 63 6f 6e 20 77 68 69 63 | 68 20 61 70 70 65 61 72 |con whic|h appear|
|00003d00| 73 20 6f 6e 20 74 68 65 | 20 69 63 6f 6e 20 62 61 |s on the| icon ba|
|00003d10| 72 20 77 69 74 68 20 61 | 20 44 46 53 20 64 69 73 |r with a| DFS dis|
|00003d20| 6b 20 69 6e 73 65 72 74 | 65 64 20 69 6e 20 64 72 |k insert|ed in dr|
|00003d30| 69 76 65 20 30 0a 61 6e | 64 20 61 20 77 69 6e 64 |ive 0.an|d a wind|
|00003d40| 6f 77 20 77 69 6c 6c 20 | 6f 70 65 6e 20 63 6f 6e |ow will |open con|
|00003d50| 74 61 69 6e 69 6e 67 20 | 74 68 65 20 66 69 6c 65 |taining |the file|
|00003d60| 73 20 6f 6e 20 74 68 65 | 20 64 69 73 6b 2e 0a 21 |s on the| disk..!|
|00003d70| 59 61 64 66 73 20 74 72 | 69 65 73 20 74 6f 20 61 |Yadfs tr|ies to a|
|00003d80| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 64 65 74 |utomatic|ally det|
|00003d90| 65 72 6d 69 6e 65 20 74 | 68 65 20 64 69 73 6b 20 |ermine t|he disk |
|00003da0| 73 69 7a 65 20 61 6e 64 | 20 64 65 6e 73 69 74 79 |size and| density|
|00003db0| 2c 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 0a |, the fo|llowing.|
|00003dc0| 61 6c 74 65 72 6e 61 74 | 69 76 65 73 20 61 72 65 |alternat|ives are|
|00003dd0| 20 73 75 70 70 6f 72 74 | 65 64 3a 0a 20 90 04 38 | support|ed:. ..8|
|00003de0| 30 20 74 72 61 63 6b 20 | 64 6f 75 62 6c 65 20 64 |0 track |double d|
|00003df0| 65 6e 73 69 74 79 0a 20 | 90 04 34 30 20 74 72 61 |ensity. |..40 tra|
|00003e00| 63 6b 20 64 6f 75 62 6c | 65 20 64 65 6e 73 69 74 |ck doubl|e densit|
|00003e10| 79 0a 20 90 04 38 30 20 | 74 72 61 63 6b 20 73 69 |y. ..80 |track si|
|00003e20| 6e 67 6c 65 20 64 65 6e | 73 69 74 79 0a 20 90 04 |ngle den|sity. ..|
|00003e30| 34 30 20 74 72 61 63 6b | 20 73 69 6e 67 6c 65 20 |40 track| single |
|00003e40| 64 65 6e 73 69 74 79 0a | 21 59 61 64 66 73 20 64 |density.|!Yadfs d|
|00003e50| 6f 65 73 20 73 75 70 70 | 6f 72 74 20 61 6e 20 65 |oes supp|ort an e|
|00003e60| 78 74 65 72 6e 61 6c 20 | 64 72 69 76 65 20 69 66 |xternal |drive if|
|00003e70| 20 66 69 74 74 65 64 2e | 20 46 6f 72 20 74 68 65 | fitted.| For the|
|00003e80| 20 73 75 70 70 6f 72 74 | 20 6f 66 20 34 30 20 74 | support| of 40 t|
|00003e90| 72 61 63 6b 0a 64 69 73 | 6b 73 20 69 74 20 69 73 |rack.dis|ks it is|
|00003ea0| 20 6e 65 63 65 73 73 61 | 72 79 20 74 6f 20 68 61 | necessa|ry to ha|
|00003eb0| 76 65 20 61 6e 20 65 78 | 74 65 72 6e 61 6c 20 64 |ve an ex|ternal d|
|00003ec0| 72 69 76 65 20 77 69 74 | 68 20 34 30 2f 38 30 20 |rive wit|h 40/80 |
|00003ed0| 73 77 69 74 63 68 2e 20 | 54 68 65 20 63 6f 64 65 |switch. |The code|
|00003ee0| 0a 69 73 20 63 6f 6e 74 | 61 69 6e 65 64 20 77 69 |.is cont|ained wi|
|00003ef0| 74 68 69 6e 20 21 59 61 | 64 66 73 20 74 6f 20 70 |thin !Ya|dfs to p|
|00003f00| 65 72 66 6f 72 6d 20 73 | 6f 66 74 77 61 72 65 20 |erform s|oftware |
|00003f10| 64 6f 75 62 6c 65 2d 73 | 74 65 70 70 69 6e 67 2c |double-s|tepping,|
|00003f20| 20 75 6e 66 6f 72 74 75 | 6e 61 74 65 6c 79 0a 74 | unfortu|nately.t|
|00003f30| 68 65 20 63 61 6c 63 75 | 6c 61 74 69 6f 6e 73 20 |he calcu|lations |
|00003f40| 74 6f 20 70 72 6f 64 75 | 63 65 20 74 72 61 63 6b |to produ|ce track|
|00003f50| 2f 73 65 63 74 6f 72 20 | 66 72 6f 6d 20 64 69 73 |/sector |from dis|
|00003f60| 6b 20 61 64 64 72 65 73 | 73 20 77 69 74 68 69 6e |k addres|s within|
|00003f70| 20 46 69 6c 65 43 6f 72 | 65 20 6d 61 6b 65 73 0a | FileCor|e makes.|
|00003f80| 69 74 20 69 6d 70 6f 73 | 73 69 62 6c 65 20 74 6f |it impos|sible to|
|00003f90| 20 66 6f 6f 6c 20 74 68 | 65 20 73 79 73 74 65 6d | fool th|e system|
|00003fa0| 20 69 6e 74 6f 20 62 65 | 6c 69 65 76 69 6e 67 20 | into be|lieving |
|00003fb0| 74 68 61 74 20 74 72 61 | 63 6b 20 32 20 6f 6e 20 |that tra|ck 2 on |
|00003fc0| 61 6e 20 38 30 20 74 72 | 61 63 6b 20 64 69 73 6b |an 80 tr|ack disk|
|00003fd0| 0a 69 73 20 74 72 61 63 | 6b 20 31 20 6f 6e 20 61 |.is trac|k 1 on a|
|00003fe0| 20 34 30 20 74 72 61 63 | 6b 2e 20 41 6e 79 20 69 | 40 trac|k. Any i|
|00003ff0| 64 65 61 73 20 61 6e 79 | 6f 6e 65 3f 0a 0a 54 68 |deas any|one?..Th|
|00004000| 65 20 70 72 6f 67 72 61 | 6d 20 77 69 6c 6c 20 72 |e progra|m will r|
|00004010| 65 61 64 20 65 69 74 68 | 65 72 20 41 63 6f 72 6e |ead eith|er Acorn|
|00004020| 20 66 6f 72 6d 61 74 2c | 20 33 31 20 66 69 6c 65 | format,| 31 file|
|00004030| 73 20 70 65 72 20 64 69 | 73 6b 20 4f 52 20 57 61 |s per di|sk OR Wa|
|00004040| 74 66 6f 72 64 20 44 44 | 46 53 0a 66 6f 72 6d 61 |tford DD|FS.forma|
|00004050| 74 20 64 69 73 6b 73 20 | 77 68 69 63 68 20 63 61 |t disks |which ca|
|00004060| 6e 20 68 61 76 65 20 75 | 70 20 74 6f 20 36 32 20 |n have u|p to 62 |
|00004070| 66 69 6c 65 73 20 70 65 | 72 20 64 69 73 6b 20 73 |files pe|r disk s|
|00004080| 69 64 65 2e 0a 21 59 61 | 64 66 73 20 74 72 69 65 |ide..!Ya|dfs trie|
|00004090| 73 20 74 6f 20 6d 61 6b | 65 20 74 68 65 20 62 65 |s to mak|e the be|
|000040a0| 73 74 20 67 75 65 73 73 | 20 61 74 20 74 68 65 20 |st guess| at the |
|000040b0| 65 71 75 69 76 61 6c 65 | 6e 74 20 66 69 6c 65 74 |equivale|nt filet|
|000040c0| 79 70 65 20 6f 6e 20 52 | 49 53 43 4f 53 2c 20 61 |ype on R|ISCOS, a|
|000040d0| 6e 64 0a 74 68 65 20 66 | 69 6c 65 20 69 63 6f 6e |nd.the f|ile icon|
|000040e0| 73 20 61 72 65 20 73 65 | 74 20 61 70 70 72 6f 70 |s are se|t approp|
|000040f0| 72 69 61 74 65 6c 79 2e | 20 46 69 6c 65 73 20 63 |riately.| Files c|
|00004100| 61 6e 20 62 65 20 63 6f | 70 69 65 64 20 6a 75 73 |an be co|pied jus|
|00004110| 74 20 62 79 20 64 72 61 | 67 67 69 6e 67 20 61 73 |t by dra|gging as|
|00004120| 0a 6e 6f 72 6d 61 6c 2e | 20 21 59 61 64 66 73 20 |.normal.| !Yadfs |
|00004130| 75 73 65 73 20 52 41 4d | 20 74 72 61 6e 73 66 65 |uses RAM| transfe|
|00004140| 72 73 20 74 6f 20 73 70 | 65 65 64 20 75 70 20 63 |rs to sp|eed up c|
|00004150| 6f 70 79 69 6e 67 2e 20 | 59 6f 75 20 63 61 6e 20 |opying. |You can |
|00004160| 63 6f 70 79 20 61 6e 64 | 0a 64 65 6c 65 74 65 20 |copy and|.delete |
|00004170| 28 6d 6f 76 65 29 20 62 | 79 20 75 73 69 6e 67 20 |(move) b|y using |
|00004180| 53 48 49 46 54 20 77 68 | 65 6e 20 64 72 61 67 67 |SHIFT wh|en dragg|
|00004190| 69 6e 67 2e 0a 0a 21 59 | 61 64 66 73 20 77 69 6c |ing...!Y|adfs wil|
|000041a0| 6c 20 61 6c 73 6f 20 66 | 6f 72 6d 61 74 20 44 46 |l also f|ormat DF|
|000041b0| 53 20 64 69 73 6b 73 2c | 20 61 67 61 69 6e 20 66 |S disks,| again f|
|000041c0| 72 6f 6d 20 61 6e 20 6f | 70 74 69 6f 6e 20 61 70 |rom an o|ption ap|
|000041d0| 70 65 61 72 69 6e 67 20 | 69 6e 20 74 68 65 0a 69 |pearing |in the.i|
|000041e0| 63 6f 6e 62 61 72 20 6d | 65 6e 75 2e 20 49 74 20 |conbar m|enu. It |
|000041f0| 77 69 6c 6c 20 70 72 6f | 64 75 63 65 20 65 69 74 |will pro|duce eit|
|00004200| 68 65 72 20 41 63 6f 72 | 6e 20 6f 72 20 57 61 74 |her Acor|n or Wat|
|00004210| 66 6f 72 64 20 28 36 32 | 20 66 69 6c 65 29 20 66 |ford (62| file) f|
|00004220| 6f 72 6d 61 74 73 2e 0a | 0a 54 6f 20 63 68 61 6e |ormats..|.To chan|
|00004230| 67 65 20 74 68 65 20 64 | 69 73 6b 20 70 61 72 61 |ge the d|isk para|
|00004240| 6d 65 74 65 72 73 20 63 | 6c 69 63 6b 20 6d 65 6e |meters c|lick men|
|00004250| 75 20 6f 76 65 72 20 74 | 68 65 20 44 46 53 20 69 |u over t|he DFS i|
|00004260| 63 6f 6e 20 6f 6e 20 74 | 68 65 20 69 63 6f 6e 62 |con on t|he iconb|
|00004270| 61 72 2e 0a 4f 6e 20 74 | 68 65 20 6d 65 6e 75 20 |ar..On t|he menu |
|00004280| 74 68 61 74 20 61 70 70 | 65 61 72 73 20 73 65 6c |that app|ears sel|
|00004290| 65 63 74 20 66 6f 6c 6c | 6f 77 20 22 50 61 72 61 |ect foll|ow "Para|
|000042a0| 6d 65 74 65 72 73 22 20 | 74 6f 20 74 68 65 20 72 |meters" |to the r|
|000042b0| 69 67 68 74 20 61 6e 64 | 20 61 0a 77 69 6e 64 6f |ight and| a.windo|
|000042c0| 77 20 77 69 6c 6c 20 61 | 70 70 65 61 72 20 77 68 |w will a|ppear wh|
|000042d0| 69 63 68 20 63 61 6e 20 | 62 65 20 75 73 65 64 20 |ich can |be used |
|000042e0| 74 6f 20 73 65 74 20 74 | 68 65 20 64 69 73 6b 20 |to set t|he disk |
|000042f0| 64 72 69 76 65 2c 20 6e | 75 6d 62 65 72 20 6f 66 |drive, n|umber of|
|00004300| 0a 74 72 61 63 6b 73 2c | 20 64 65 6e 73 69 74 79 |.tracks,| density|
|00004310| 20 61 6e 64 20 73 69 64 | 65 2e 20 53 65 74 20 74 | and sid|e. Set t|
|00004320| 68 65 20 62 75 74 74 6f | 6e 73 20 61 73 20 72 65 |he butto|ns as re|
|00004330| 71 75 69 72 65 64 2c 20 | 74 68 65 20 63 6f 6e 66 |quired, |the conf|
|00004340| 69 67 75 72 61 74 69 6f | 6e 20 69 73 0a 61 75 74 |iguratio|n is.aut|
|00004350| 6f 6d 61 74 69 63 61 6c | 6c 79 20 75 70 64 61 74 |omatical|ly updat|
|00004360| 65 64 2e 20 0a 0a 49 6e | 20 74 68 65 20 44 46 53 |ed. ..In| the DFS|
|00004370| 20 66 69 6c 65 20 77 69 | 6e 64 6f 77 20 74 68 65 | file wi|ndow the|
|00004380| 20 70 72 6f 67 72 61 6d | 20 61 74 74 65 6d 70 74 | program| attempt|
|00004390| 73 20 74 6f 20 65 6d 75 | 6c 61 74 65 20 61 73 20 |s to emu|late as |
|000043a0| 61 63 63 75 72 61 74 65 | 6c 79 20 61 73 0a 70 6f |accurate|ly as.po|
|000043b0| 73 73 69 62 6c 65 20 61 | 6c 6c 20 73 74 61 6e 64 |ssible a|ll stand|
|000043c0| 61 72 64 20 52 49 53 43 | 4f 53 32 20 66 69 6c 65 |ard RISC|OS2 file|
|000043d0| 72 20 66 75 6e 63 74 69 | 6f 6e 73 2e 20 53 6f 20 |r functi|ons. So |
|000043e0| 69 66 20 74 68 65 20 6d | 6f 75 73 65 20 4d 45 4e |if the m|ouse MEN|
|000043f0| 55 20 62 75 74 74 6f 6e | 20 69 73 0a 70 72 65 73 |U button| is.pres|
|00004400| 73 65 64 20 74 68 65 6e | 20 61 20 73 74 61 6e 64 |sed then| a stand|
|00004410| 61 72 64 20 66 69 6c 65 | 72 20 6d 65 6e 75 20 69 |ard file|r menu i|
|00004420| 73 20 70 72 6f 64 75 63 | 65 64 20 74 6f 20 61 6c |s produc|ed to al|
|00004430| 6c 6f 77 20 69 6e 64 69 | 76 69 64 75 61 6c 20 66 |low indi|vidual f|
|00004440| 69 6c 65 0a 6f 70 65 72 | 61 74 69 6f 6e 73 20 28 |ile.oper|ations (|
|00004450| 72 65 6e 61 6d 69 6e 67 | 2c 20 63 6f 70 79 69 6e |renaming|, copyin|
|00004460| 67 2c 20 64 65 6c 65 74 | 69 6e 67 20 65 74 63 2e |g, delet|ing etc.|
|00004470| 29 2e 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |). The f|ollowing|
|00004480| 20 70 6f 69 6e 74 73 20 | 73 70 65 63 69 66 69 63 | points |specific|
|00004490| 0a 74 6f 20 44 46 53 20 | 73 68 6f 75 6c 64 20 62 |.to DFS |should b|
|000044a0| 65 20 62 6f 72 6e 65 20 | 69 6e 20 6d 69 6e 64 3a |e borne |in mind:|
|000044b0| 0a 31 29 20 4f 6e 20 74 | 68 65 20 66 69 6c 65 20 |.1) On t|he file |
|000044c0| 61 63 63 65 73 73 20 6d | 65 6e 75 2c 20 6f 6e 6c |access m|enu, onl|
|000044d0| 79 20 74 68 65 20 6c 6f | 63 6b 65 64 20 66 6c 61 |y the lo|cked fla|
|000044e0| 67 20 63 61 6e 20 62 65 | 20 63 68 61 6e 67 65 64 |g can be| changed|
|000044f0| 3b 0a 32 29 20 54 68 65 | 20 4e 65 77 20 44 69 72 |;.2) The| New Dir|
|00004500| 65 63 74 6f 72 79 20 6f | 70 74 69 6f 6e 20 64 6f |ectory o|ption do|
|00004510| 65 73 20 6e 6f 74 20 63 | 72 65 61 74 65 20 61 20 |es not c|reate a |
|00004520| 64 69 72 65 63 74 6f 72 | 79 2c 20 62 75 74 20 73 |director|y, but s|
|00004530| 65 6c 65 63 74 73 20 6f | 6e 6c 79 2e 0a 20 90 03 |elects o|nly.. ..|
|00004540| 52 65 6d 65 6d 62 65 72 | 20 74 68 61 74 20 44 46 |Remember| that DF|
|00004550| 53 20 64 69 72 65 63 74 | 6f 72 69 65 73 20 68 61 |S direct|ories ha|
|00004560| 76 65 20 73 69 6e 67 6c | 65 2d 6c 65 74 74 65 72 |ve singl|e-letter|
|00004570| 20 6e 61 6d 65 73 20 6f | 6e 6c 79 2e 0a 33 29 20 | names o|nly..3) |
|00004580| 21 59 61 64 66 73 20 69 | 73 20 6e 6f 74 20 61 20 |!Yadfs i|s not a |
|00004590| 66 69 6c 65 72 20 6d 6f | 64 75 6c 65 2c 20 74 68 |filer mo|dule, th|
|000045a0| 65 72 65 66 6f 72 65 20 | 69 74 20 64 6f 65 73 20 |erefore |it does |
|000045b0| 6e 6f 74 20 72 65 73 70 | 6f 6e 64 20 74 6f 20 66 |not resp|ond to f|
|000045c0| 69 6c 65 72 0a 20 90 03 | 53 57 49 20 63 61 6c 6c |iler. ..|SWI call|
|000045d0| 73 2e 0a 34 29 20 46 69 | 6c 65 73 20 6e 6f 74 20 |s..4) Fi|les not |
|000045e0| 69 6e 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 44 |in the c|urrent D|
|000045f0| 46 53 20 64 69 72 65 63 | 74 6f 72 79 20 28 65 2e |FS direc|tory (e.|
|00004600| 67 2e 27 24 27 29 2c 20 | 61 72 65 20 63 6f 70 69 |g.'$'), |are copi|
|00004610| 65 64 20 74 6f 20 41 44 | 46 53 0a 20 90 03 66 69 |ed to AD|FS. ..fi|
|00004620| 6c 65 73 79 73 74 65 6d | 73 20 77 69 74 68 20 6e |lesystem|s with n|
|00004630| 61 6d 65 73 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |ames of |the form|
|00004640| 20 28 44 29 2f 28 46 69 | 6c 65 6e 61 6d 65 29 2c | (D)/(Fi|lename),|
|00004650| 20 77 68 65 72 65 20 44 | 20 69 73 20 74 68 65 20 | where D| is the |
|00004660| 73 69 6e 67 6c 65 0a 20 | 90 03 6c 65 74 74 65 72 |single. |..letter|
|00004670| 20 72 65 70 72 65 73 65 | 6e 74 69 6e 67 20 74 68 | represe|nting th|
|00004680| 65 20 44 46 53 20 64 69 | 72 65 63 74 6f 72 79 2e |e DFS di|rectory.|
|00004690| 0a 46 69 6e 61 6c 6c 79 | 2c 20 74 6f 20 61 63 63 |.Finally|, to acc|
|000046a0| 65 73 73 20 74 77 6f 20 | 44 46 53 20 64 69 73 6b |ess two |DFS disk|
|000046b0| 73 20 6f 72 20 74 6f 20 | 61 63 63 65 73 73 20 62 |s or to |access b|
|000046c0| 6f 74 68 20 73 69 64 65 | 73 20 6f 66 20 6f 6e 65 |oth side|s of one|
|000046d0| 20 64 69 73 6b 2c 20 72 | 75 6e 0a 74 77 6f 20 63 | disk, r|un.two c|
|000046e0| 6f 70 69 65 73 20 6f 66 | 20 21 59 61 64 66 73 2e |opies of| !Yadfs.|
|000046f0| 0a 90 03 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |...This |program |
|00004700| 6d 61 6b 65 73 20 75 73 | 65 20 6f 66 20 61 20 42 |makes us|e of a B|
|00004710| 41 53 49 43 20 6c 69 62 | 72 61 72 79 20 6f 66 20 |ASIC lib|rary of |
|00004720| 73 74 61 6e 64 61 72 64 | 20 66 75 6e 63 74 69 6f |standard| functio|
|00004730| 6e 73 2e 20 54 68 69 73 | 0a 6c 69 62 72 61 72 79 |ns. This|.library|
|00004740| 20 63 61 6e 20 62 65 20 | 73 65 65 6e 20 69 6e 20 | can be |seen in |
|00004750| 74 68 65 20 64 69 72 65 | 63 74 6f 72 79 20 42 61 |the dire|ctory Ba|
|00004760| 73 4c 69 62 20 69 6e 73 | 69 64 65 20 74 68 65 20 |sLib ins|ide the |
|00004770| 21 59 61 64 66 73 20 61 | 70 70 6c 69 63 61 74 69 |!Yadfs a|pplicati|
|00004780| 6f 6e 0a 64 69 72 65 63 | 74 6f 72 79 2e 20 54 68 |on.direc|tory. Th|
|00004790| 65 20 21 59 61 64 66 73 | 20 70 72 6f 67 72 61 6d |e !Yadfs| program|
|000047a0| 20 69 73 20 65 6e 74 69 | 72 65 6c 79 20 42 41 53 | is enti|rely BAS|
|000047b0| 49 43 20 61 6e 64 20 69 | 6c 6c 75 73 74 72 61 74 |IC and i|llustrat|
|000047c0| 65 73 20 75 73 65 20 6f | 66 20 74 68 65 0a 6c 69 |es use o|f the.li|
|000047d0| 62 72 61 72 79 20 66 75 | 6e 63 74 69 6f 6e 73 2e |brary fu|nctions.|
|000047e0| 20 53 6f 6d 65 20 6c 69 | 62 72 61 72 79 20 66 75 | Some li|brary fu|
|000047f0| 6e 63 74 69 6f 6e 73 20 | 61 72 65 20 62 61 73 65 |nctions |are base|
|00004800| 64 20 6f 6e 20 70 75 62 | 6c 69 73 68 65 64 20 6d |d on pub|lished m|
|00004810| 61 67 61 7a 69 6e 65 0a | 61 72 74 69 63 6c 65 73 |agazine.|articles|
|00004820| 2c 20 61 6e 64 20 74 68 | 65 73 65 20 61 72 65 20 |, and th|ese are |
|00004830| 61 6c 6c 20 61 63 6b 6e | 6f 77 6c 65 64 67 65 64 |all ackn|owledged|
|00004840| 20 69 6e 20 67 65 6e 65 | 72 61 6c 20 68 65 72 65 | in gene|ral here|
|00004850| 2c 20 61 6e 64 20 69 6e | 20 70 61 72 74 69 63 75 |, and in| particu|
|00004860| 6c 61 72 0a 69 6e 20 74 | 68 65 20 73 6f 75 72 63 |lar.in t|he sourc|
|00004870| 65 20 63 6f 64 65 2e 20 | 0a 0a 2a 7c 20 4b 4e 4f |e code. |..*| KNO|
|00004880| 57 4e 20 42 55 47 53 3a | 90 06 0a 2a 7c 20 2d 20 |WN BUGS:|...*| - |
|00004890| 4d 61 6e 79 20 66 69 78 | 65 64 20 66 72 6f 6d 20 |Many fix|ed from |
|000048a0| 32 2e 30 20 72 65 6c 65 | 61 73 65 21 0a 2a 7c 20 |2.0 rele|ase!.*| |
|000048b0| 2d 20 53 6f 66 74 77 61 | 72 65 20 64 6f 75 62 6c |- Softwa|re doubl|
|000048c0| 65 20 73 74 65 70 70 69 | 6e 67 20 64 6f 65 73 20 |e steppi|ng does |
|000048d0| 6e 6f 74 20 77 6f 72 6b | 2e 0a 90 04 28 63 29 20 |not work|....(c) |
|000048e0| 43 6f 70 79 72 69 67 68 | 74 20 43 68 72 69 73 20 |Copyrigh|t Chris |
|000048f0| 43 6f 72 62 65 74 74 2c | 20 35 2f 30 31 2f 39 33 |Corbett,| 5/01/93|
|00004900| 0a 63 63 40 73 69 65 73 | 6f 66 74 2e 63 6f 2e 75 |.cc@sies|oft.co.u|
|00004910| 6b 0a 34 39 20 43 72 6f | 77 74 68 6f 72 6e 65 20 |k.49 Cro|wthorne |
|00004920| 52 6f 61 64 0a 53 61 6e | 64 68 75 72 73 74 0a 53 |Road.San|dhurst.S|
|00004930| 75 72 72 65 79 46 69 6c | 65 44 61 74 61 82 21 52 |urreyFil|eData.!R|
|00004940| 75 6e 00 00 00 38 50 00 | 00 5a 01 00 00 44 eb ff |un...8P.|.Z...D..|
|00004950| ff 9b ef 97 59 03 00 c7 | a7 7c 20 3e 20 21 52 75 |....Y...|.| > !Ru|
|00004960| 6e 0a 7c 20 21 52 75 6e | 20 66 69 6c 65 20 66 6f |n.| !Run| file fo|
|00004970| 72 20 21 21 59 61 64 66 | 73 20 70 72 6f 67 72 61 |r !!Yadf|s progra|
|00004980| 6d 0a 53 65 74 20 44 46 | 53 63 6f 70 79 24 64 69 |m.Set DF|Scopy$di|
|00004990| 72 20 3c 4f 62 65 79 24 | 44 69 72 3e 0a 49 63 6f |r <Obey$|Dir>.Ico|
|000049a0| 6e 73 70 72 69 74 65 73 | 20 3c 44 46 53 63 6f 70 |nsprites| <DFScop|
|000049b0| 79 24 64 69 72 3e 2e 21 | 53 70 72 69 74 65 73 0a |y$dir>.!|Sprites.|
|000049c0| 49 46 20 22 3c 42 61 73 | 69 63 24 4c 69 62 3e 22 |IF "<Bas|ic$Lib>"|
|000049d0| 20 3d 20 22 22 20 54 68 | 65 6e 20 53 65 74 20 42 | = "" Th|en Set B|
|000049e0| 61 73 69 63 24 4c 69 62 | 20 3c 4f 62 65 79 24 44 |asic$Lib| <Obey$D|
|000049f0| 69 72 3e 2e 42 61 73 4c | 69 62 0a 52 4d 45 6e 73 |ir>.BasL|ib.RMEns|
|00004a00| 75 72 65 20 49 6e 74 65 | 72 66 61 63 65 4d 61 6e |ure Inte|rfaceMan|
|00004a10| 61 67 65 72 20 31 2e 32 | 35 20 52 4d 4c 6f 61 64 |ager 1.2|5 RMLoad|
|00004a20| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 49 6e 74 65 | <Obey$D|ir>.Inte|
|00004a30| 72 66 61 63 65 0a 52 4d | 45 6e 73 75 72 65 20 49 |rface.RM|Ensure I|
|00004a40| 6e 74 65 72 66 61 63 65 | 4d 61 6e 61 67 65 72 20 |nterface|Manager |
|00004a50| 31 2e 32 35 20 45 72 72 | 6f 72 20 43 6f 75 6c 64 |1.25 Err|or Could|
|00004a60| 6e 27 74 20 6c 6f 61 64 | 20 49 6e 74 65 72 66 61 |n't load| Interfa|
|00004a70| 63 65 20 6d 6f 64 75 6c | 65 0a 77 69 6d 70 73 6c |ce modul|e.wimpsl|
|00004a80| 6f 74 20 2d 6d 69 6e 20 | 31 30 30 6b 20 2d 6d 61 |ot -min |100k -ma|
|00004a90| 78 20 31 30 30 6b 0a 52 | 75 6e 20 3c 44 46 53 63 |x 100k.R|un <DFSc|
|00004aa0| 6f 70 79 24 64 69 72 3e | 2e 21 52 75 6e 49 6d 61 |opy$dir>|.!RunIma|
|00004ab0| 67 65 0a 46 69 6c 65 44 | 61 74 61 83 21 52 75 6e |ge.FileD|ata.!Run|
|00004ac0| 49 6d 61 67 65 00 00 5f | c2 00 00 47 fd ff ff 63 |Image.._|...G...c|
|00004ad0| b0 24 9c 03 00 00 00 0d | 00 0a 1e f4 20 3e 3c 44 |.$......|.... ><D|
|00004ae0| 46 53 63 6f 70 79 24 44 | 69 72 3e 2e 21 52 75 6e |FScopy$D|ir>.!Run|
|00004af0| 49 6d 61 67 65 0d 00 14 | 19 f4 20 44 41 54 41 20 |Image...|.. DATA |
|00004b00| 22 31 2e 30 20 20 32 37 | 2f 34 2f 39 30 22 0d 00 |"1.0  27|/4/90"..|
|00004b10| 1e 18 f4 20 44 41 54 41 | 20 22 32 2e 30 20 20 34 |... DATA| "2.0  4|
|00004b20| 2f 35 2f 39 31 22 0d 00 | 28 19 f4 20 44 41 54 41 |/5/91"..|(.. DATA|
|00004b30| 20 22 32 2e 31 20 20 37 | 2f 31 31 2f 39 32 22 0d | "2.1  7|/11/92".|
|00004b40| 00 32 19 f4 20 44 41 54 | 41 20 22 32 2e 32 20 20 |.2.. DAT|A "2.2  |
|00004b50| 38 2f 31 32 2f 39 32 22 | 0d 00 3c 1a f4 20 44 41 |8/12/92"|..<.. DA|
|00004b60| 54 41 20 22 32 2e 33 20 | 20 31 30 2f 31 32 2f 39 |TA "2.3 | 10/12/9|
|00004b70| 32 22 0d 00 46 19 f4 20 | 44 41 54 41 20 22 32 2e |2"..F.. |DATA "2.|
|00004b80| 34 20 20 34 2f 30 31 2f | 39 33 22 0d 00 50 14 dc |4  4/01/|93"..P..|
|00004b90| 20 22 32 2e 35 20 20 39 | 2f 30 31 2f 39 33 22 0d | "2.5  9|/01/93".|
|00004ba0| 00 5a 17 2a 7c 20 4b 4e | 4f 57 4e 20 42 55 47 53 |.Z.*| KN|OWN BUGS|
|00004bb0| 3a 90 06 0d 00 64 4f 2a | 7c 20 31 2e 20 53 6f 66 |:....dO*|| 1. Sof|
|00004bc0| 74 77 61 72 65 20 64 6f | 75 62 6c 65 20 73 74 65 |tware do|uble ste|
|00004bd0| 70 70 69 6e 67 20 66 6f | 72 20 72 65 61 64 69 6e |pping fo|r readin|
|00004be0| 67 20 34 30 20 74 72 61 | 63 6b 20 64 69 73 6b 73 |g 40 tra|ck disks|
|00004bf0| 20 69 6e 20 38 30 20 74 | 72 61 63 6b 20 64 72 69 | in 80 t|rack dri|
|00004c00| 76 65 0d 00 6e 4e 2a 7c | 20 90 04 64 6f 65 73 20 |ve..nN*|| ..does |
|00004c10| 6e 6f 74 20 77 6f 72 6b | 3b 20 46 69 6c 65 43 6f |not work|; FileCo|
|00004c20| 72 65 20 65 78 70 65 63 | 74 73 20 74 6f 20 73 65 |re expec|ts to se|
|00004c30| 65 20 74 68 65 20 72 69 | 67 68 74 20 74 72 61 63 |e the ri|ght trac|
|00004c40| 6b 20 6e 75 6d 62 65 72 | 20 69 6e 20 74 68 65 0d |k number| in the.|
|00004c50| 00 78 4c 2a 7c 20 90 04 | 73 65 63 74 6f 72 20 68 |.xL*| ..|sector h|
|00004c60| 65 61 64 65 72 2e 20 45 | 2e 67 2e 20 54 72 61 63 |eader. E|.g. Trac|
|00004c70| 6b 20 31 20 6f 6e 20 61 | 20 34 30 2d 74 72 61 63 |k 1 on a| 40-trac|
|00004c80| 6b 20 64 69 73 6b 20 69 | 73 20 69 6e 20 73 61 6d |k disk i|s in sam|
|00004c90| 65 20 70 68 79 73 69 63 | 61 6c 0d 00 82 50 2a 7c |e physic|al...P*||
|00004ca0| 20 90 04 70 6f 73 69 74 | 69 6f 6e 20 61 73 20 74 | ..posit|ion as t|
|00004cb0| 72 61 63 6b 20 32 20 6f | 6e 20 38 30 2d 74 72 61 |rack 2 o|n 80-tra|
|00004cc0| 63 6b 3b 20 73 6f 20 74 | 6f 20 72 65 61 64 20 74 |ck; so t|o read t|
|00004cd0| 72 61 63 6b 20 31 20 75 | 73 65 20 61 20 64 69 73 |rack 1 u|se a dis|
|00004ce0| 6b 20 61 64 64 72 65 73 | 73 0d 00 8c 51 2a 7c 20 |k addres|s...Q*| |
|00004cf0| 90 04 77 68 69 63 68 20 | 69 73 20 64 6f 75 62 6c |..which |is doubl|
|00004d00| 65 20 74 68 61 74 20 61 | 63 74 75 61 6c 6c 79 20 |e that a|ctually |
|00004d10| 72 65 71 75 69 72 65 64 | 2e 20 49 6e 74 65 72 6e |required|. Intern|
|00004d20| 61 6c 6c 79 2e 20 46 69 | 6c 65 43 6f 72 65 20 74 |ally. Fi|leCore t|
|00004d30| 72 61 6e 73 6c 61 74 65 | 73 0d 00 96 4c 2a 7c 20 |ranslate|s...L*| |
|00004d40| 90 04 74 68 65 20 64 69 | 73 6b 20 61 64 64 72 65 |..the di|sk addre|
|00004d50| 73 73 20 74 6f 20 74 72 | 61 63 6b 73 20 61 6e 64 |ss to tr|acks and|
|00004d60| 20 73 65 63 74 6f 72 73 | 20 61 67 61 69 6e 2c 20 | sectors| again, |
|00004d70| 74 68 65 6e 20 65 78 70 | 65 63 74 73 20 74 6f 20 |then exp|ects to |
|00004d80| 66 69 6e 64 0d 00 a0 4b | 2a 7c 20 90 04 22 32 22 |find...K|*| .."2"|
|00004d90| 20 69 6e 20 74 68 65 20 | 74 72 61 63 6b 20 66 69 | in the |track fi|
|00004da0| 65 6c 64 20 6f 66 20 65 | 61 63 68 20 73 65 63 74 |eld of e|ach sect|
|00004db0| 6f 72 20 68 65 61 64 65 | 72 2c 20 77 68 65 72 65 |or heade|r, where|
|00004dc0| 61 73 20 22 31 22 20 77 | 69 6c 6c 20 62 65 0d 00 |as "1" w|ill be..|
|00004dd0| aa 48 2a 7c 20 90 04 70 | 72 65 73 65 6e 74 20 69 |.H*| ..p|resent i|
|00004de0| 6e 20 61 20 74 72 75 65 | 20 34 30 2d 74 72 61 63 |n a true| 40-trac|
|00004df0| 6b 20 64 69 73 6b 2e 20 | 41 6e 79 6f 6e 65 20 6b |k disk. |Anyone k|
|00004e00| 6e 6f 77 20 61 20 77 61 | 79 20 72 6f 75 6e 64 20 |now a wa|y round |
|00004e10| 74 68 69 73 3f 0d 00 b4 | 05 3a 0d 00 be 45 2a 7c |this?...|.:...E*||
|00004e20| 2d 90 3d 7c 2a 0d 00 c8 | 45 2a 7c 20 44 46 53 20 |-.=|*...|E*| DFS |
|00004e30| 46 69 6c 65 20 43 6f 70 | 69 65 72 20 66 6f 72 20 |File Cop|ier for |
|00004e40| 57 49 4d 50 20 45 6e 76 | 69 72 6f 6e 6d 65 6e 74 |WIMP Env|ironment|
|00004e50| 20 90 18 7c 2a 0d 00 d2 | 45 2a 7c 20 28 63 29 20 | ..|*...|E*| (c) |
|00004e60| 43 6f 70 79 72 69 67 68 | 74 20 31 39 39 30 2c 31 |Copyrigh|t 1990,1|
|00004e70| 39 39 31 2c 31 39 39 32 | 20 20 43 68 72 69 73 20 |991,1992|  Chris |
|00004e80| 43 6f 72 62 65 74 74 20 | 90 11 7c 2a 0d 00 dc 45 |Corbett |..|*...E|
|00004e90| 2a 7c 20 90 05 2b 20 6d | 75 63 68 20 61 73 73 69 |*| ..+ m|uch assi|
|00004ea0| 73 74 61 6e 63 65 20 66 | 72 6f 6d 20 4d 69 63 6b |stance f|rom Mick|
|00004eb0| 20 44 61 79 20 90 19 7c | 2a 0d 00 e6 45 2a 7c 2d | Day ..||*...E*|-|
|00004ec0| 90 3d 7c 2a 0d 00 f0 05 | 3a 0d 00 fa 20 2a 7c 20 |.=|*....|:... *| |
|00004ed0| 49 6e 63 6c 75 64 65 20 | 73 75 70 70 6f 72 74 20 |Include |support |
|00004ee0| 6c 69 62 72 61 72 69 65 | 73 0d 01 04 1a 61 6c 69 |librarie|s....ali|
|00004ef0| 61 73 24 3d 22 3c 44 46 | 53 63 6f 70 79 24 44 69 |as$="<DF|Scopy$Di|
|00004f00| 72 3e 22 0d 01 0e 1b c8 | 9b 20 22 3c 42 61 73 69 |r>".....|. "<Basi|
|00004f10| 63 24 4c 69 62 3e 2e 4d | 61 6c 6c 6f 63 22 0d 01 |c$Lib>.M|alloc"..|
|00004f20| 18 1a c8 9b 20 22 3c 42 | 61 73 69 63 24 4c 69 62 |.... "<B|asic$Lib|
|00004f30| 3e 2e 4d 65 6e 75 73 22 | 0d 01 22 1a c8 9b 20 22 |>.Menus"|.."... "|
|00004f40| 3c 42 61 73 69 63 24 4c | 69 62 3e 2e 44 65 62 75 |<Basic$L|ib>.Debu|
|00004f50| 67 22 0d 01 2c 18 c8 9b | 20 22 3c 42 61 73 69 63 |g"..,...| "<Basic|
|00004f60| 24 4c 69 62 3e 2e 57 69 | 6e 22 0d 01 36 19 c8 9b |$Lib>.Wi|n"..6...|
|00004f70| 20 22 3c 42 61 73 69 63 | 24 4c 69 62 3e 2e 54 65 | "<Basic|$Lib>.Te|
|00004f80| 78 74 22 0d 01 40 05 3a | 0d 01 4a 0e ee 20 85 20 |xt"..@.:|..J.. . |
|00004f90| f2 65 72 72 6f 72 0d 01 | 54 0a f2 73 65 74 75 70 |.error..|T..setup|
|00004fa0| 0d 01 5e 09 f2 6d 61 69 | 6e 0d 01 68 0b f2 66 69 |..^..mai|n..h..fi|
|00004fb0| 6e 69 73 68 0d 01 72 05 | e0 0d 01 7c 05 3a 0d 01 |nish..r.|...|.:..|
|00004fc0| 86 0c dd 20 f2 73 65 74 | 75 70 0d 01 90 00 1c 20 |... .set|up..... |
|00004fd0| 20 2a 7c 20 57 49 4d 50 | 20 73 70 65 63 69 66 69 | *| WIMP| specifi|
|00004fe0| 63 20 73 65 74 75 70 0d | 01 9a 30 20 20 de 20 71 |c setup.|..0  . q|
|00004ff0| 25 20 31 32 38 2c 20 62 | 6c 6f 63 6b 25 20 32 35 |% 128, b|lock% 25|
|00005000| 36 2c 20 74 61 73 6b 25 | 20 34 2c 20 66 73 74 72 |6, task%| 4, fstr|
|00005010| 69 6e 67 25 20 32 30 0d | 01 a4 13 20 20 24 74 61 |ing% 20.|...  $ta|
|00005020| 73 6b 25 3d 22 54 41 53 | 4b 22 0d 01 ae 40 20 20 |sk%="TAS|K"...@  |
|00005030| c8 99 20 22 57 69 6d 70 | 5f 49 6e 69 74 69 61 6c |.. "Wimp|_Initial|
|00005040| 69 73 65 22 2c 32 30 30 | 2c 21 74 61 73 6b 25 2c |ise",200|,!task%,|
|00005050| 22 59 61 64 66 73 22 20 | b8 20 77 69 6d 70 76 65 |"Yadfs" |. wimpve|
|00005060| 72 25 2c 68 61 6e 64 6c | 65 25 0d 01 b8 1e 20 20 |r%,handl|e%....  |
|00005070| 66 24 20 3d 20 61 6c 69 | 61 73 24 2b 22 2e 54 65 |f$ = ali|as$+".Te|
|00005080| 6d 70 6c 61 74 65 73 22 | 0d 01 c2 2f 20 20 77 5f |mplates"|.../  w_|
|00005090| 69 6e 66 6f 25 20 90 03 | 3d 20 a4 57 69 6e 5f 43 |info% ..|= .Win_C|
|000050a0| 72 65 61 74 65 28 66 24 | 2c 20 22 69 6e 66 6f 22 |reate(f$|, "info"|
|000050b0| 2c 20 64 75 6d 25 29 0d | 01 cc 34 20 20 77 5f 6d |, dum%).|..4  w_m|
|000050c0| 61 69 6e 25 20 90 03 3d | 20 a4 57 69 6e 5f 43 72 |ain% ..=| .Win_Cr|
|000050d0| 65 61 74 65 28 66 24 2c | 20 22 44 69 73 6b 70 61 |eate(f$,| "Diskpa|
|000050e0| 72 6d 73 22 2c 20 64 75 | 6d 25 29 0d 01 d6 3d 20 |rms", du|m%)...= |
|000050f0| 20 77 5f 64 69 72 77 69 | 6e 25 20 3d 20 a4 57 69 | w_dirwi|n% = .Wi|
|00005100| 6e 5f 43 72 65 61 74 65 | 28 66 24 2c 20 22 54 65 |n_Create|(f$, "Te|
|00005110| 78 74 57 69 6e 64 6f 77 | 22 2c 20 64 69 72 77 69 |xtWindow|", dirwi|
|00005120| 6e 5f 61 64 64 72 25 29 | 0d 01 e0 31 20 20 77 5f |n_addr%)|...1  w_|
|00005130| 61 63 63 65 73 73 25 20 | 3d 20 a4 57 69 6e 5f 43 |access% |= .Win_C|
|00005140| 72 65 61 74 65 28 66 24 | 2c 20 22 61 63 63 65 73 |reate(f$|, "acces|
|00005150| 73 22 2c 20 64 75 6d 25 | 29 0d 01 ea 1f 20 20 69 |s", dum%|)....  i|
|00005160| 63 6f 6e 68 25 3d a4 69 | 63 6f 6e 62 61 72 28 22 |conh%=.i|conbar("|
|00005170| 21 59 61 64 66 73 22 29 | 0d 01 f4 10 20 20 f3 20 |!Yadfs")|....  . |
|00005180| 76 65 72 73 69 6f 6e 24 | 0d 01 fe 27 20 20 f2 49 |version$|...'  .I|
|00005190| 63 6f 6e 5f 53 65 74 54 | 65 78 74 28 77 5f 69 6e |con_SetT|ext(w_in|
|000051a0| 66 6f 25 2c 33 2c 76 65 | 72 73 69 6f 6e 24 29 0d |fo%,3,ve|rsion$).|
|000051b0| 02 08 30 20 20 e7 20 a4 | 4d 65 6e 75 73 5f 4c 6f |..0  . .|Menus_Lo|
|000051c0| 61 64 28 61 6c 69 61 73 | 24 2b 22 2e 4d 65 6e 75 |ad(alias|$+".Menu|
|000051d0| 73 22 29 3d 30 20 8c 20 | f2 66 69 6e 69 73 68 0d |s")=0 . |.finish.|
|000051e0| 02 12 38 20 20 44 46 53 | 63 6f 70 79 25 20 90 04 |..8  DFS|copy% ..|
|000051f0| 3d 20 a4 4d 65 6e 75 73 | 5f 42 75 69 6c 64 28 22 |= .Menus|_Build("|
|00005200| 44 46 53 63 6f 70 79 22 | 2c 20 69 63 6f 6e 6d 65 |DFScopy"|, iconme|
|00005210| 6e 75 68 74 25 29 0d 02 | 1c 1e 20 20 e7 20 44 46 |nuht%)..|..  . DF|
|00005220| 53 63 6f 70 79 25 20 3d | 20 30 20 8c 20 f2 66 69 |Scopy% =| 0 . .fi|
|00005230| 6e 69 73 68 0d 02 26 32 | 20 20 42 61 63 6b 67 72 |nish..&2|  Backgr|
|00005240| 6f 75 6e 64 25 20 3d 20 | a4 4d 65 6e 75 73 5f 42 |ound% = |.Menus_B|
|00005250| 75 69 6c 64 28 22 42 61 | 63 6b 67 72 6f 75 6e 64 |uild("Ba|ckground|
|00005260| 22 2c 20 79 25 29 0d 02 | 30 1f 20 20 e7 20 42 61 |", y%)..|0.  . Ba|
|00005270| 63 6b 67 72 6f 75 6e 64 | 25 3d 30 20 8c 20 f2 66 |ckground|%=0 . .f|
|00005280| 69 6e 69 73 68 0d 02 3a | 30 20 20 4f 76 65 72 66 |inish..:|0  Overf|
|00005290| 69 6c 65 25 20 90 03 3d | 20 a4 4d 65 6e 75 73 5f |ile% ..=| .Menus_|
|000052a0| 42 75 69 6c 64 28 22 4f | 76 65 72 66 69 6c 65 22 |Build("O|verfile"|
|000052b0| 2c 20 79 25 29 0d 02 44 | 1d 20 20 e7 20 4f 76 65 |, y%)..D|.  . Ove|
|000052c0| 72 66 69 6c 65 25 3d 30 | 20 8c 20 f2 66 69 6e 69 |rfile%=0| . .fini|
|000052d0| 73 68 0d 02 4e 31 20 20 | 53 65 6c 65 63 74 4d 65 |sh..N1  |SelectMe|
|000052e0| 6e 75 25 20 3d 20 a4 4d | 65 6e 75 73 5f 42 75 69 |nu% = .M|enus_Bui|
|000052f0| 6c 64 28 22 53 65 6c 65 | 63 74 4d 65 6e 75 22 2c |ld("Sele|ctMenu",|
|00005300| 79 25 29 0d 02 58 1f 20 | 20 e7 20 53 65 6c 65 63 |y%)..X. | . Selec|
|00005310| 74 4d 65 6e 75 25 3d 30 | 20 8c 20 f2 66 69 6e 69 |tMenu%=0| . .fini|
|00005320| 73 68 0d 02 62 13 20 20 | f2 42 75 74 74 6f 6e 61 |sh..b.  |.Buttona|
|00005330| 73 73 69 67 6e 0d 02 6c | 11 20 20 f2 50 6f 6c 6c |ssign..l|.  .Poll|
|00005340| 41 73 73 69 67 6e 0d 02 | 76 14 20 20 f2 4d 65 73 |Assign..|v.  .Mes|
|00005350| 73 61 67 65 41 73 73 69 | 67 6e 0d 02 80 14 20 20 |sageAssi|gn....  |
|00005360| f2 54 65 78 74 5f 4d 6f | 64 65 49 6e 69 74 0d 02 |.Text_Mo|deInit..|
|00005370| 8a 3d 20 20 c8 99 20 22 | 4f 53 5f 53 57 49 4e 75 |.=  .. "|OS_SWINu|
|00005380| 6d 62 65 72 46 72 6f 6d | 53 74 72 69 6e 67 22 2c |mberFrom|String",|
|00005390| 2c 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 |,"Wimp_G|etIconSt|
|000053a0| 61 74 65 22 20 b8 20 47 | 49 53 25 0d 02 94 3d 20 |ate" . G|IS%...= |
|000053b0| 20 c8 99 20 22 4f 53 5f | 53 57 49 4e 75 6d 62 65 | .. "OS_|SWINumbe|
|000053c0| 72 46 72 6f 6d 53 74 72 | 69 6e 67 22 2c 2c 22 57 |rFromStr|ing",,"W|
|000053d0| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|000053e0| 22 20 b8 20 53 49 53 25 | 0d 02 9e 3a 20 20 c8 99 |" . SIS%|...:  ..|
|000053f0| 20 22 4f 53 5f 53 57 49 | 4e 75 6d 62 65 72 46 72 | "OS_SWI|NumberFr|
|00005400| 6f 6d 53 74 72 69 6e 67 | 22 2c 2c 22 57 69 6d 70 |omString|",,"Wimp|
|00005410| 5f 44 65 6c 65 74 65 49 | 63 6f 6e 22 20 b8 20 44 |_DeleteI|con" . D|
|00005420| 49 25 0d 02 a8 3a 20 20 | c8 99 20 22 4f 53 5f 53 |I%...:  |.. "OS_S|
|00005430| 57 49 4e 75 6d 62 65 72 | 46 72 6f 6d 53 74 72 69 |WINumber|FromStri|
|00005440| 6e 67 22 2c 2c 22 57 69 | 6d 70 5f 43 72 65 61 74 |ng",,"Wi|mp_Creat|
|00005450| 65 49 63 6f 6e 22 20 b8 | 20 43 49 25 0d 02 b2 39 |eIcon" .| CI%...9|
|00005460| 20 20 c8 99 20 22 4f 53 | 5f 53 57 49 4e 75 6d 62 |  .. "OS|_SWINumb|
|00005470| 65 72 46 72 6f 6d 53 74 | 72 69 6e 67 22 2c 2c 22 |erFromSt|ring",,"|
|00005480| 57 69 6d 70 5f 53 65 74 | 45 78 74 65 6e 74 22 20 |Wimp_Set|Extent" |
|00005490| b8 20 53 45 25 0d 02 bc | 3b 20 20 c8 99 20 22 4f |. SE%...|;  .. "O|
|000054a0| 53 5f 53 57 49 4e 75 6d | 62 65 72 46 72 6f 6d 53 |S_SWINum|berFromS|
|000054b0| 74 72 69 6e 67 22 2c 2c | 22 48 6f 75 72 67 6c 61 |tring",,|"Hourgla|
|000054c0| 73 73 5f 4f 6e 22 20 b8 | 20 48 4f 55 52 4f 4e 25 |ss_On" .| HOURON%|
|000054d0| 0d 02 c6 3d 20 20 c8 99 | 20 22 4f 53 5f 53 57 49 |...=  ..| "OS_SWI|
|000054e0| 4e 75 6d 62 65 72 46 72 | 6f 6d 53 74 72 69 6e 67 |NumberFr|omString|
|000054f0| 22 2c 2c 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 |",,"Hour|glass_Of|
|00005500| 66 22 20 b8 20 48 4f 55 | 52 4f 46 46 25 0d 02 d0 |f" . HOU|ROFF%...|
|00005510| 30 2a 7c 20 48 61 6e 64 | 6c 65 20 6f 70 65 72 61 |0*| Hand|le opera|
|00005520| 74 69 6e 67 20 73 79 73 | 74 65 6d 20 64 69 66 66 |ting sys|tem diff|
|00005530| 65 72 65 6e 63 65 73 20 | 68 65 72 65 2e 0d 02 da |erences |here....|
|00005540| 3c 20 20 e7 20 a6 2d 32 | 35 36 20 3c 3d 20 31 36 |<  . .-2|56 <= 16|
|00005550| 32 20 8c 20 90 0a 3a 20 | f4 20 52 49 53 43 4f 53 |2 . ..: |. RISCOS|
|00005560| 20 32 2e 30 2f 33 2e 30 | 20 44 69 73 63 20 53 57 | 2.0/3.0| Disc SW|
|00005570| 49 73 0d 02 e4 45 20 90 | 04 c8 99 20 22 4f 53 5f |Is...E .|... "OS_|
|00005580| 53 57 49 4e 75 6d 62 65 | 72 46 72 6f 6d 53 74 72 |SWINumbe|rFromStr|
|00005590| 69 6e 67 22 2c 2c 22 58 | 41 44 46 53 5f 44 65 73 |ing",,"X|ADFS_Des|
|000055a0| 63 72 69 62 65 44 69 73 | 63 22 20 b8 20 44 45 53 |cribeDis|c" . DES|
|000055b0| 43 44 49 53 43 25 0d 02 | ee 3c 20 90 04 c8 99 20 |CDISC%..|.< .... |
|000055c0| 22 4f 53 5f 53 57 49 4e | 75 6d 62 65 72 46 72 6f |"OS_SWIN|umberFro|
|000055d0| 6d 53 74 72 69 6e 67 22 | 2c 2c 22 41 44 46 53 5f |mString"|,,"ADFS_|
|000055e0| 44 69 73 63 4f 70 22 20 | b8 20 44 49 53 43 4f 50 |DiscOp" |. DISCOP|
|000055f0| 25 0d 02 f8 45 20 20 cc | 20 90 1d 3a 20 f4 20 52 |%...E  .| ..: . R|
|00005600| 49 53 43 4f 53 20 33 2e | 31 20 46 69 6c 65 43 6f |ISCOS 3.|1 FileCo|
|00005610| 72 65 20 53 57 49 73 20 | 77 6f 72 6b 0d 03 02 49 |re SWIs |work...I|
|00005620| 20 90 04 c8 99 20 22 4f | 53 5f 53 57 49 4e 75 6d | .... "O|S_SWINum|
|00005630| 62 65 72 46 72 6f 6d 53 | 74 72 69 6e 67 22 2c 2c |berFromS|tring",,|
|00005640| 22 58 46 69 6c 65 43 6f | 72 65 5f 44 65 73 63 72 |"XFileCo|re_Descr|
|00005650| 69 62 65 44 69 73 63 22 | 20 b8 20 44 45 53 43 44 |ibeDisc"| . DESCD|
|00005660| 49 53 43 25 0d 03 0c 40 | 20 90 04 c8 99 20 22 4f |ISC%...@| .... "O|
|00005670| 53 5f 53 57 49 4e 75 6d | 62 65 72 46 72 6f 6d 53 |S_SWINum|berFromS|
|00005680| 74 72 69 6e 67 22 2c 2c | 22 46 69 6c 65 43 6f 72 |tring",,|"FileCor|
|00005690| 65 5f 44 69 73 63 4f 70 | 22 20 b8 20 44 49 53 43 |e_DiscOp|" . DISC|
|000056a0| 4f 50 25 0d 03 16 07 20 | 20 cd 0d 03 20 93 20 20 |OP%.... | ... .  |
|000056b0| 6d 61 73 6b 25 20 3d 20 | 31 3c 3c 50 6f 6c 6c 5f |mask% = |1<<Poll_|
|000056c0| 4e 75 6c 6c 5f 52 65 61 | 73 6f 6e 5f 43 6f 64 65 |Null_Rea|son_Code|
|000056d0| 20 84 20 31 3c 3c 50 6f | 6c 6c 5f 50 6f 69 6e 74 | . 1<<Po|ll_Point|
|000056e0| 65 72 5f 4c 65 61 76 69 | 6e 67 5f 57 69 6e 64 6f |er_Leavi|ng_Windo|
|000056f0| 77 20 84 20 31 3c 3c 50 | 6f 6c 6c 5f 50 6f 69 6e |w . 1<<P|oll_Poin|
|00005700| 74 65 72 5f 45 6e 74 65 | 72 69 6e 67 5f 57 69 6e |ter_Ente|ring_Win|
|00005710| 64 6f 77 20 84 20 31 3c | 3c 50 6f 6c 6c 5f 4c 6f |dow . 1<|<Poll_Lo|
|00005720| 73 65 5f 43 61 72 65 74 | 20 84 20 31 3c 3c 50 6f |se_Caret| . 1<<Po|
|00005730| 6c 6c 5f 47 61 69 6e 5f | 43 61 72 65 74 0d 03 2a |ll_Gain_|Caret..*|
|00005740| 2d 2a 7c 20 44 69 73 6b | 20 63 6f 70 79 20 61 70 |-*| Disk| copy ap|
|00005750| 70 6c 69 63 61 74 69 6f | 6e 20 73 70 65 63 69 66 |plicatio|n specif|
|00005760| 69 63 20 67 6c 6f 62 61 | 6c 73 0d 03 34 12 20 20 |ic globa|ls..4.  |
|00005770| 4d 41 58 46 49 4c 45 20 | 3d 20 36 32 0d 03 3e 13 |MAXFILE |= 62..>.|
|00005780| 20 20 69 73 77 61 74 66 | 6f 72 64 20 3d 20 a3 0d |  iswatf|ord = ..|
|00005790| 03 48 14 20 20 69 63 6f | 6e 5f 74 65 78 74 25 20 |.H.  ico|n_text% |
|000057a0| 3d 20 30 0d 03 52 15 20 | 20 43 75 72 72 65 6e 74 |= 0..R. | Current|
|000057b0| 44 69 72 24 3d 22 24 22 | 0d 03 5c 1a 20 20 44 69 |Dir$="$"|..\.  Di|
|000057c0| 73 70 6c 61 79 4d 6f 64 | 65 24 3d 22 4c 41 52 47 |splayMod|e$="LARG|
|000057d0| 45 22 0d 03 66 16 20 20 | 53 6f 72 74 4d 6f 64 65 |E"..f.  |SortMode|
|000057e0| 24 3d 22 4e 41 4d 45 22 | 0d 03 70 10 20 20 64 69 |$="NAME"|..p.  di|
|000057f0| 72 72 65 61 64 25 3d a3 | 0d 03 7a 15 20 20 de 20 |rread%=.|..z.  . |
|00005800| 64 66 73 64 62 6c 6b 25 | 20 31 30 32 34 0d 03 84 |dfsdblk%| 1024...|
|00005810| 3c 20 20 de 20 66 5f 6e | 61 6d 65 24 28 4d 41 58 |<  . f_n|ame$(MAX|
|00005820| 46 49 4c 45 29 2c 20 66 | 5f 6c 6f 61 64 25 28 4d |FILE), f|_load%(M|
|00005830| 41 58 46 49 4c 45 29 2c | 20 66 5f 65 78 65 63 25 |AXFILE),| f_exec%|
|00005840| 28 4d 41 58 46 49 4c 45 | 29 0d 03 8e 40 20 20 de |(MAXFILE|)...@  .|
|00005850| 20 66 5f 6c 65 6e 67 74 | 68 25 28 4d 41 58 46 49 | f_lengt|h%(MAXFI|
|00005860| 4c 45 29 2c 20 66 5f 64 | 6e 61 6d 65 24 28 4d 41 |LE), f_d|name$(MA|
|00005870| 58 46 49 4c 45 29 2c 20 | 66 5f 64 61 64 64 72 25 |XFILE), |f_daddr%|
|00005880| 28 4d 41 58 46 49 4c 45 | 29 0d 03 98 3c 20 20 de |(MAXFILE|)...<  .|
|00005890| 20 66 5f 6c 6f 63 6b 25 | 28 4d 41 58 46 49 4c 45 | f_lock%|(MAXFILE|
|000058a0| 29 2c 20 66 5f 73 6f 72 | 74 25 28 4d 41 58 46 49 |), f_sor|t%(MAXFI|
|000058b0| 4c 45 29 2c 20 66 5f 69 | 63 6f 6e 25 28 4d 41 58 |LE), f_i|con%(MAX|
|000058c0| 46 49 4c 45 29 0d 03 a2 | 0c 20 20 f2 53 65 74 44 |FILE)...|.  .SetD|
|000058d0| 72 0d 03 ac 10 20 20 f2 | 73 65 74 70 61 72 61 6d |r....  .|setparam|
|000058e0| 73 0d 03 b6 05 e1 0d 03 | c0 05 3a 0d 03 ca 0d dd |s.......|..:.....|
|000058f0| 20 f2 66 69 6e 69 73 68 | 0d 03 d4 28 20 20 c8 99 | .finish|...(  ..|
|00005900| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e | "Wimp_C|loseDown|
|00005910| 22 2c 68 61 6e 64 6c 65 | 25 2c 21 74 61 73 6b 25 |",handle|%,!task%|
|00005920| 0d 03 de 07 20 20 e0 0d | 03 e8 05 e1 0d 03 f2 05 |....  ..|........|
|00005930| 3a 0d 03 fc 0c dd 20 f2 | 65 72 72 6f 72 0d 04 06 |:..... .|error...|
|00005940| 0b ea 20 68 61 6c 74 25 | 0d 04 10 1a 20 20 c8 99 |.. halt%|....  ..|
|00005950| 20 22 57 69 6d 70 5f 44 | 72 61 67 42 6f 78 22 2c | "Wimp_D|ragBox",|
|00005960| 2c 30 0d 04 1a 1f 20 20 | c8 99 20 22 57 69 6d 70 |,0....  |.. "Wimp|
|00005970| 5f 43 6f 6d 6d 61 6e 64 | 57 69 6e 64 6f 77 22 2c |_Command|Window",|
|00005980| 30 0d 04 24 0f 20 20 21 | 62 6c 6f 63 6b 25 3d 9f |0..$.  !|block%=.|
|00005990| 0d 04 2e 15 20 20 c8 8e | 20 28 9f 20 80 20 26 46 |....  ..| (. . &F|
|000059a0| 90 03 29 20 ca 0d 04 38 | 3e 20 20 2a 7c 20 43 61 |..) ...8|>  *| Ca|
|000059b0| 74 63 68 20 64 69 73 6b | 20 64 72 69 76 65 20 65 |tch disk| drive e|
|000059c0| 6d 70 74 79 20 61 6e 64 | 20 6f 74 68 65 72 20 70 |mpty and| other p|
|000059d0| 68 79 73 69 63 61 6c 20 | 64 69 73 6b 20 65 72 72 |hysical |disk err|
|000059e0| 6f 72 73 0d 04 42 17 20 | 90 04 c9 20 20 26 38 43 |ors..B. |...  &8C|
|000059f0| 37 2c 20 26 38 44 33 20 | 3a 0d 04 4c 45 20 90 06 |7, &8D3 |:..LE ..|
|00005a00| 24 28 62 6c 6f 63 6b 25 | 2b 34 29 3d 22 44 69 73 |$(block%|+4)="Dis|
|00005a10| 6b 20 45 72 72 6f 72 20 | 22 2b c3 7e 28 9f 29 2b |k Error |"+.~(.)+|
|00005a20| 22 20 61 74 20 6c 69 6e | 65 20 22 2b c3 28 9e 29 |" at lin|e "+.(.)|
|00005a30| 2b 22 20 20 22 2b f6 24 | 2b bd 30 0d 04 56 13 20 |+"  "+.$|+.0..V. |
|00005a40| 90 06 68 61 6c 74 25 20 | 3d 20 a3 0d 04 60 29 20 |..halt% |= ...`) |
|00005a50| 20 2a 7c 20 49 6e 74 65 | 72 6e 61 6c 6c 79 20 64 | *| Inte|rnally d|
|00005a60| 65 66 69 6e 65 64 20 65 | 72 72 6f 72 20 6e 75 6d |efined e|rror num|
|00005a70| 62 65 72 73 0d 04 6a 4c | 20 90 04 c9 20 26 46 46 |bers..jL| ... &FF|
|00005a80| 45 2c 20 26 46 46 44 2c | 20 26 46 46 43 2c 20 26 |E, &FFD,| &FFC, &|
|00005a90| 46 46 42 2c 20 26 46 46 | 41 2c 20 26 46 46 39 2c |FFB, &FF|A, &FF9,|
|00005aa0| 20 26 46 46 38 2c 20 26 | 46 46 37 2c 20 26 46 46 | &FF8, &|FF7, &FF|
|00005ab0| 36 2c 20 26 46 46 35 2c | 20 26 46 46 34 20 3a 0d |6, &FF5,| &FF4 :.|
|00005ac0| 04 74 1c 20 90 06 24 28 | 62 6c 6f 63 6b 25 2b 34 |.t. ..$(|block%+4|
|00005ad0| 29 3d f6 24 2b bd 31 33 | 0d 04 7e 13 20 90 06 68 |)=.$+.13|..~. ..h|
|00005ae0| 61 6c 74 25 20 3d 20 a3 | 0d 04 88 09 20 90 04 7f |alt% = .|.... ...|
|00005af0| 0d 04 92 51 20 90 06 24 | 28 62 6c 6f 63 6b 25 2b |...Q ..$|(block%+|
|00005b00| 34 29 3d 22 28 46 61 74 | 61 6c 20 65 72 72 6f 72 |4)="(Fat|al error|
|00005b10| 2c 20 63 6f 64 65 20 22 | 2b c3 7e 28 9f 29 2b 22 |, code "|+.~(.)+"|
|00005b20| 29 20 22 2b 22 61 74 20 | 6c 69 6e 65 20 22 2b c3 |) "+"at |line "+.|
|00005b30| 28 9e 29 2b 22 20 20 22 | 2b f6 24 2b bd 30 0d 04 |(.)+"  "|+.$+.0..|
|00005b40| 9c 11 20 90 06 68 61 6c | 74 25 3d b9 0d 04 a6 07 |.. ..hal|t%=.....|
|00005b50| 20 20 cb 0d 04 b0 2d 20 | 20 c8 99 20 22 57 69 6d |  ....- | .. "Wim|
|00005b60| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00005b70| 6c 6f 63 6b 25 2c 31 2c | 22 21 59 61 64 66 73 22 |lock%,1,|"!Yadfs"|
|00005b80| 0d 04 ba 0f 20 20 e7 20 | 68 61 6c 74 25 20 8c 0d |....  . |halt% ..|
|00005b90| 04 c4 0f 20 90 04 f2 66 | 69 6e 69 73 68 0d 04 ce |... ...f|inish...|
|00005ba0| 07 20 20 cc 0d 04 d8 0d | 20 90 04 f2 6d 61 69 6e |.  .....| ...main|
|00005bb0| 0d 04 e2 07 20 20 cd 0d | 04 ec 05 e1 0d 04 f6 05 |....  ..|........|
|00005bc0| 3a 0d 05 00 0b dd 20 a4 | 71 75 69 74 0d 05 0a 0b |:..... .|quit....|
|00005bd0| f2 66 69 6e 69 73 68 0d | 05 14 06 3d 30 0d 05 1e |.finish.|...=0...|
|00005be0| 05 3a 0d 05 28 48 2a 7c | 20 50 6c 61 63 65 20 6d |.:..(H*|| Place m|
|00005bf0| 79 20 73 70 72 69 74 65 | 20 6f 6e 20 74 68 65 20 |y sprite| on the |
|00005c00| 69 63 6f 6e 20 62 61 72 | 2c 20 61 6c 6c 6f 77 20 |icon bar|, allow |
|00005c10| 64 69 73 6b 20 6e 75 6d | 62 65 72 20 74 6f 20 62 |disk num|ber to b|
|00005c20| 65 20 75 70 64 61 74 65 | 64 2e 0d 05 32 17 dd 20 |e update|d...2.. |
|00005c30| a4 69 63 6f 6e 62 61 72 | 28 73 70 6e 61 6d 65 24 |.iconbar|(spname$|
|00005c40| 29 0d 05 3c 10 20 20 21 | 62 6c 6f 63 6b 25 3d 2d |)..<.  !|block%=-|
|00005c50| 32 0d 05 46 10 20 20 62 | 6c 6f 63 6b 25 21 34 3d |2..F.  b|lock%!4=|
|00005c60| 30 0d 05 50 12 20 20 62 | 6c 6f 63 6b 25 21 38 3d |0..P.  b|lock%!8=|
|00005c70| 2d 31 36 0d 05 5a 12 20 | 20 62 6c 6f 63 6b 25 21 |-16..Z. | block%!|
|00005c80| 31 32 3d 36 33 0d 05 64 | 12 20 20 62 6c 6f 63 6b |12=63..d|.  block|
|00005c90| 25 21 31 36 3d 38 34 0d | 05 6e 19 20 20 62 6c 6f |%!16=84.|.n.  blo|
|00005ca0| 63 6b 25 21 32 30 3d 26 | 31 37 30 30 32 31 32 42 |ck%!20=&|1700212B|
|00005cb0| 0d 05 78 13 20 20 de 20 | 62 6c 6f 63 6b 25 21 32 |..x.  . |block%!2|
|00005cc0| 34 20 34 0d 05 82 1c 20 | 20 de 20 62 6c 6f 63 6b |4 4.... | . block|
|00005cd0| 25 21 32 38 20 a9 73 70 | 6e 61 6d 65 24 2b 32 0d |%!28 .sp|name$+2.|
|00005ce0| 05 8c 1e 20 20 24 28 62 | 6c 6f 63 6b 25 21 32 38 |...  $(b|lock%!28|
|00005cf0| 29 3d 22 53 22 2b 73 70 | 6e 61 6d 65 24 0d 05 96 |)="S"+sp|name$...|
|00005d00| 1c 20 20 62 6c 6f 63 6b | 25 21 33 32 3d 28 a9 73 |.  block|%!32=(.s|
|00005d10| 70 6e 61 6d 65 24 2b 32 | 29 0d 05 a0 2a 20 20 c8 |pname$+2|)...*  .|
|00005d20| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 49 63 |. "Wimp_|CreateIc|
|00005d30| 6f 6e 22 2c 2c 62 6c 6f | 63 6b 25 20 b8 20 69 63 |on",,blo|ck% . ic|
|00005d40| 6f 6e 25 0d 05 aa 0a 3d | 69 63 6f 6e 25 0d 05 b4 |on%....=|icon%...|
|00005d50| 05 3a 0d 05 be 12 dd 20 | f2 69 6e 73 65 72 74 64 |.:..... |.insertd|
|00005d60| 72 69 76 65 0d 05 c8 3a | 20 20 f2 49 63 6f 6e 5f |rive...:|  .Icon_|
|00005d70| 53 65 74 54 65 78 74 28 | 2d 32 2c 69 63 6f 6e 25 |SetText(|-2,icon%|
|00005d80| 2c 22 3a 22 2b c3 28 53 | 5f 44 72 69 76 65 25 2b |,":"+.(S|_Drive%+|
|00005d90| 53 5f 53 69 64 65 25 2a | 32 29 2b bd 30 29 0d 05 |S_Side%*|2)+.0)..|
|00005da0| d2 05 e1 0d 05 dc 05 3a | 0d 05 e6 0b dd 20 f2 6d |.......:|..... .m|
|00005db0| 61 69 6e 0d 05 f0 0d ea | 20 72 65 61 73 6f 6e 25 |ain.....| reason%|
|00005dc0| 0d 05 fa 05 f5 0d 06 04 | 0b 20 20 f2 70 6f 6c 6c |........|.  .poll|
|00005dd0| 0d 06 0e 2d fd 20 28 72 | 65 61 73 6f 6e 25 3d 31 |...-. (r|eason%=1|
|00005de0| 37 20 84 20 72 65 61 73 | 6f 6e 25 3d 31 38 29 20 |7 . reas|on%=18) |
|00005df0| 80 20 62 6c 6f 63 6b 25 | 21 31 36 3d 30 0d 06 18 |. block%|!16=0...|
|00005e00| 05 e1 0d 06 22 05 3a 0d | 06 2c 0b dd 20 f2 70 6f |....".:.|.,.. .po|
|00005e10| 6c 6c 0d 06 36 16 20 20 | 62 6c 6f 63 6b 25 21 30 |ll..6.  |block%!0|
|00005e20| 20 3d 20 6d 61 73 6b 25 | 0d 06 40 2b 20 20 c8 99 | = mask%|..@+  ..|
|00005e30| 20 22 57 69 6d 70 5f 50 | 6f 6c 6c 22 2c 6d 61 73 | "Wimp_P|oll",mas|
|00005e40| 6b 25 2c 62 6c 6f 63 6b | 25 20 b8 20 72 65 61 73 |k%,block|% . reas|
|00005e50| 6f 6e 25 0d 06 4a 12 20 | 20 c8 8e 20 72 65 61 73 |on%..J. | .. reas|
|00005e60| 6f 6e 25 20 ca 0d 06 54 | 21 20 90 04 c9 20 50 6f |on% ...T|! ... Po|
|00005e70| 6c 6c 5f 4e 75 6c 6c 5f | 52 65 61 73 6f 6e 5f 43 |ll_Null_|Reason_C|
|00005e80| 6f 64 65 20 3a 0d 06 5e | 0d 20 90 08 e1 0d 06 68 |ode :..^|. .....h|
|00005e90| 26 20 90 04 c9 20 50 6f | 6c 6c 5f 52 65 64 72 61 |& ... Po|ll_Redra|
|00005ea0| 77 5f 57 69 6e 64 6f 77 | 5f 52 65 71 75 65 73 74 |w_Window|_Request|
|00005eb0| 20 3a 0d 06 72 1c 20 90 | 0a 71 25 21 30 20 3d 20 | :..r. .|.q%!0 = |
|00005ec0| 77 5f 6d 61 69 6e 25 0d | 06 7c 30 20 90 0a c8 99 |w_main%.|.|0 ....|
|00005ed0| 20 22 57 69 6d 70 5f 52 | 65 64 72 61 77 57 69 6e | "Wimp_R|edrawWin|
|00005ee0| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 6d 6f 72 65 25 |dow",,q%| . more%|
|00005ef0| 0d 06 86 16 20 90 0a c8 | 95 20 6d 6f 72 65 25 0d |.... ...|. more%.|
|00005f00| 06 90 00 2a 20 90 0c c8 | 99 20 22 57 69 6d 70 5f |...* ...|. "Wimp_|
|00005f10| 42 6f 72 64 65 72 57 69 | 6e 64 6f 77 22 2c 2c 71 |BorderWi|ndow",,q|
|00005f20| 25 0d 06 9a 32 20 90 0c | c8 99 20 22 57 69 6d 70 |%...2 ..|.. "Wimp|
|00005f30| 5f 47 65 74 52 65 63 74 | 61 6e 67 6c 65 22 2c 2c |_GetRect|angle",,|
|00005f40| 71 25 20 b8 20 6d 6f 72 | 65 25 0d 06 a4 0f 20 90 |q% . mor|e%.... .|
|00005f50| 0a ce 0d 06 ae 24 20 90 | 04 c9 20 50 6f 6c 6c 5f |.....$ .|.. Poll_|
|00005f60| 4f 70 65 6e 5f 57 69 6e | 64 6f 77 5f 52 65 71 75 |Open_Win|dow_Requ|
|00005f70| 65 73 74 20 3a 0d 06 b8 | 42 2a 7c 20 4f 70 65 6e |est :...|B*| Open|
|00005f80| 20 77 69 6e 64 6f 77 20 | 72 65 71 75 65 73 74 20 | window |request |
|00005f90| 2d 20 69 66 20 66 69 6c | 65 72 20 77 69 6e 64 6f |- if fil|er windo|
|00005fa0| 77 20 61 6e 64 20 73 69 | 7a 65 20 68 61 73 20 63 |w and si|ze has c|
|00005fb0| 68 61 6e 67 65 64 2c 0d | 06 c2 44 2a 7c 20 72 65 |hanged,.|..D*| re|
|00005fc0| 64 69 73 70 6c 61 79 20 | 74 6f 20 6e 65 77 20 73 |display |to new s|
|00005fd0| 69 7a 65 2e 20 57 65 20 | 64 6f 20 6f 75 72 20 6f |ize. We |do our o|
|00005fe0| 77 6e 20 72 65 64 69 73 | 70 6c 61 79 20 62 65 63 |wn redis|play bec|
|00005ff0| 61 75 73 65 20 77 65 20 | 6d 61 79 0d 06 cc 2a 2a |ause we |may...**|
|00006000| 7c 20 77 61 6e 74 20 74 | 6f 20 72 65 2d 70 6f 73 || want t|o re-pos|
|00006010| 69 74 69 6f 6e 20 74 68 | 65 20 66 69 6c 65 20 69 |ition th|e file i|
|00006020| 63 6f 6e 73 2e 0d 06 d6 | 21 20 90 08 e7 20 21 62 |cons....|! ... !b|
|00006030| 6c 6f 63 6b 25 3d 77 5f | 64 69 72 77 69 6e 25 20 |lock%=w_|dirwin% |
|00006040| 8c 0d 06 e0 36 20 90 09 | e7 20 94 28 28 62 6c 6f |....6 ..|. .((blo|
|00006050| 63 6b 25 21 31 32 2d 62 | 6c 6f 63 6b 25 21 34 29 |ck%!12-b|lock%!4)|
|00006060| 2d 77 5f 77 69 64 74 68 | 25 29 3e 3d 31 32 38 20 |-w_width|%)>=128 |
|00006070| 8c 0d 06 ea 2b 20 90 0c | 77 5f 77 69 64 74 68 25 |....+ ..|w_width%|
|00006080| 3d 62 6c 6f 63 6b 25 21 | 31 32 2d 62 6c 6f 63 6b |=block%!|12-block|
|00006090| 25 21 34 0d 06 f4 2c 20 | 90 0c f2 44 69 73 70 6c |%!4..., |...Displ|
|000060a0| 61 79 44 46 53 44 69 72 | 28 44 69 73 70 6c 61 79 |ayDFSDir|(Display|
|000060b0| 4d 6f 64 65 24 29 0d 06 | fe 0e 20 90 09 cd 0d 07 |Mode$)..|.. .....|
|000060c0| 08 0d 20 90 08 cd 0d 07 | 12 28 20 90 08 c8 99 20 |.. .....|.( .... |
|000060d0| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|000060e0| 22 2c 2c 62 6c 6f 63 6b | 25 0d 07 1c 25 20 90 04 |",,block|%...% ..|
|000060f0| c9 20 50 6f 6c 6c 5f 43 | 6c 6f 73 65 5f 57 69 6e |. Poll_C|lose_Win|
|00006100| 64 6f 77 5f 52 65 71 75 | 65 73 74 20 3a 0d 07 26 |dow_Requ|est :..&|
|00006110| 29 20 90 08 c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |) .... "|Wimp_Clo|
|00006120| 73 65 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |seWindow|",,block|
|00006130| 25 0d 07 30 1c 20 90 04 | c9 20 50 6f 6c 6c 5f 4d |%..0. ..|. Poll_M|
|00006140| 6f 75 73 65 5f 43 6c 69 | 63 6b 20 3a 0d 07 3a 20 |ouse_Cli|ck :..: |
|00006150| 90 09 f2 63 68 65 63 6b | 5f 6d 6f 75 73 65 28 62 |...check|_mouse(b|
|00006160| 6c 6f 63 6b 25 29 0d 07 | 44 1f 20 90 04 c9 20 50 |lock%)..|D. ... P|
|00006170| 6f 6c 6c 5f 4d 65 6e 75 | 5f 53 65 6c 65 63 74 69 |oll_Menu|_Selecti|
|00006180| 6f 6e 20 3a 0d 07 4e 30 | 20 90 08 f2 4d 65 6e 75 |on :..N0| ...Menu|
|00006190| 73 5f 53 65 6c 65 63 74 | 28 62 6c 6f 63 6b 25 2c |s_Select|(block%,|
|000061a0| 20 63 75 72 72 65 6e 74 | 5f 6d 65 6e 75 24 29 0d | current|_menu$).|
|000061b0| 07 58 1e 20 90 04 c9 20 | 50 6f 6c 6c 5f 55 73 65 |.X. ... |Poll_Use|
|000061c0| 72 5f 44 72 61 67 5f 42 | 6f 78 20 3a 0d 07 62 16 |r_Drag_B|ox :..b.|
|000061d0| 20 90 08 f2 44 72 61 67 | 45 6e 64 65 64 0d 07 6c | ...Drag|Ended..l|
|000061e0| 39 20 90 04 c9 20 50 6f | 6c 6c 5f 55 73 65 72 5f |9 ... Po|ll_User_|
|000061f0| 4d 65 73 73 61 67 65 2c | 20 50 6f 6c 6c 5f 55 73 |Message,| Poll_Us|
|00006200| 65 72 5f 4d 65 73 73 61 | 67 65 5f 52 65 63 6f 72 |er_Messa|ge_Recor|
|00006210| 64 65 64 20 3a 0d 07 76 | 1a 20 90 08 f2 64 6f 69 |ded :..v|. ...doi|
|00006220| 70 63 28 62 6c 6f 63 6b | 25 29 0d 07 80 2a 20 90 |pc(block|%)...* .|
|00006230| 04 c9 20 50 6f 6c 6c 5f | 55 73 65 72 5f 4d 65 73 |.. Poll_|User_Mes|
|00006240| 73 61 67 65 5f 41 63 6b | 6e 6f 77 6c 65 64 67 65 |sage_Ack|nowledge|
|00006250| 64 20 3a 0d 07 8a 49 20 | 90 08 2a 7c 20 4d 65 73 |d :...I |..*| Mes|
|00006260| 73 61 67 65 20 72 65 74 | 75 72 6e 65 64 20 74 6f |sage ret|urned to|
|00006270| 20 6d 65 20 2d 20 75 73 | 75 61 6c 6c 79 20 62 65 | me - us|ually be|
|00006280| 63 61 75 73 65 20 6f 66 | 20 69 6e 74 65 72 6e 61 |cause of| interna|
|00006290| 6c 20 64 72 61 67 2e 0d | 07 94 43 20 90 08 2a 7c |l drag..|..C ..*||
|000062a0| 20 4d 75 73 74 20 63 68 | 65 63 6b 20 6f 6e 65 20 | Must ch|eck one |
|000062b0| 6f 66 20 6d 79 20 6d 65 | 73 73 61 67 65 73 20 68 |of my me|ssages h|
|000062c0| 61 73 20 6e 6f 74 20 62 | 65 65 6e 20 72 65 74 75 |as not b|een retu|
|000062d0| 72 6e 65 64 2e 0d 07 9e | 1b 20 90 04 c9 20 50 6f |rned....|. ... Po|
|000062e0| 6c 6c 5f 4b 65 79 5f 50 | 72 65 73 73 65 64 3a 0d |ll_Key_P|ressed:.|
|000062f0| 07 a8 26 20 90 08 c8 99 | 20 22 57 69 6d 70 5f 50 |..& ....| "Wimp_P|
|00006300| 72 6f 63 65 73 73 4b 65 | 79 22 2c 62 25 21 32 34 |rocessKe|y",b%!24|
|00006310| 0d 07 b2 0a 20 90 04 7f | 3a 0d 07 bc 36 20 90 08 |.... ...|:...6 ..|
|00006320| 85 20 26 46 46 42 2c 22 | 50 6f 6c 6c 20 65 76 65 |. &FFB,"|Poll eve|
|00006330| 6e 74 20 22 2b c3 28 72 | 65 61 73 6f 6e 25 29 2b |nt "+.(r|eason%)+|
|00006340| 22 20 69 67 6e 6f 72 65 | 64 22 0d 07 c6 07 20 20 |" ignore|d"....  |
|00006350| cb 0d 07 d0 05 e1 0d 07 | da 05 3a 0d 07 e4 4a 2a |........|..:...J*|
|00006360| 7c 2d 90 42 7c 2a 0d 07 | ee 4a 2a 7c 20 42 75 74 ||-.B|*..|.J*| But|
|00006370| 74 6f 6e 20 70 72 65 73 | 73 20 65 76 65 6e 74 73 |ton pres|s events|
|00006380| 20 6f 76 65 72 20 74 68 | 65 20 61 70 70 6c 69 63 | over th|e applic|
|00006390| 61 74 69 6f 6e 73 20 77 | 69 6e 64 6f 77 73 20 61 |ations w|indows a|
|000063a0| 72 65 20 68 61 6e 64 6c | 65 64 20 90 04 7c 2a 0d |re handl|ed ..|*.|
|000063b0| 07 f8 4a 2a 7c 20 69 6e | 20 74 68 65 20 66 6f 6c |..J*| in| the fol|
|000063c0| 6c 6f 77 69 6e 67 20 66 | 75 6e 63 74 69 6f 6e 2e |lowing f|unction.|
|000063d0| 20 54 68 65 20 73 74 72 | 75 63 74 75 72 65 20 69 | The str|ucture i|
|000063e0| 73 20 66 6f 72 20 65 61 | 63 68 20 77 69 6e 64 6f |s for ea|ch windo|
|000063f0| 77 20 90 06 7c 2a 0d 08 | 02 4a 2a 7c 20 63 68 65 |w ..|*..|.J*| che|
+--------+-------------------------+-------------------------+--------+--------+