home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1993-03-10 | 37.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1d f4 20 3e 20 | 3c 53 68 65 6c 6c 24 44 |..... > |<Shell$D|
|00000010| 69 72 3e 2e 21 52 75 6e | 49 6d 61 67 65 0d 00 14 |ir>.!Run|Image...|
|00000020| 04 0d 00 1e 1e 20 ee 20 | 85 20 ef 34 3a f6 3a f1 |..... . |. .4:.:.|
|00000030| 22 20 61 74 20 6c 69 6e | 65 20 22 3b 9e 3a e0 0d |" at lin|e ";.:..|
|00000040| 00 28 45 f4 20 54 68 69 | 73 20 70 72 6f 67 72 61 |.(E. Thi|s progra|
|00000050| 6d 20 69 73 20 64 65 73 | 69 67 6e 65 64 20 74 6f |m is des|igned to|
|00000060| 20 73 68 6f 77 20 73 6f | 6d 65 20 61 73 70 65 63 | show so|me aspec|
|00000070| 74 73 20 6f 66 20 75 73 | 69 6e 67 20 74 68 65 20 |ts of us|ing the |
|00000080| 57 49 4d 50 0d 00 32 47 | f4 20 53 79 73 74 65 6d |WIMP..2G|. System|
|00000090| 20 6f 6e 20 74 68 65 20 | 41 72 63 68 69 6d 65 64 | on the |Archimed|
|000000a0| 65 73 2e 20 55 73 69 6e | 67 20 69 74 20 61 73 20 |es. Usin|g it as |
|000000b0| 61 20 62 61 73 65 20 79 | 6f 75 20 73 68 6f 75 6c |a base y|ou shoul|
|000000c0| 64 20 68 6f 70 65 66 75 | 6c 6c 79 0d 00 3c 47 f4 |d hopefu|lly..<G.|
|000000d0| 20 62 65 20 61 62 6c 65 | 20 74 6f 20 63 6f 6e 76 | be able| to conv|
|000000e0| 65 72 74 20 65 78 69 73 | 74 69 6e 67 20 6e 6f 6e |ert exis|ting non|
|000000f0| 2d 57 49 4d 50 20 70 72 | 6f 67 72 61 6d 73 20 6f |-WIMP pr|ograms o|
|00000100| 72 20 63 72 65 61 74 65 | 20 6e 65 77 20 6f 6e 65 |r create| new one|
|00000110| 73 2e 0d 00 46 47 f4 20 | 45 61 63 68 20 70 61 72 |s...FG. |Each par|
|00000120| 74 20 6f 66 20 74 68 65 | 20 70 72 6f 67 72 61 6d |t of the| program|
|00000130| 20 68 61 73 20 65 78 74 | 65 6e 73 69 76 65 20 52 | has ext|ensive R|
|00000140| 45 4d 20 73 74 61 74 65 | 6d 65 6e 74 73 20 74 6f |EM state|ments to|
|00000150| 20 64 65 73 63 72 69 62 | 65 0d 00 50 44 f4 20 77 | describ|e..PD. w|
|00000160| 68 61 74 20 69 73 20 67 | 6f 69 6e 67 20 6f 6e 2e |hat is g|oing on.|
|00000170| 20 59 6f 75 20 77 69 6c | 6c 20 6e 65 65 64 20 76 | You wil|l need v|
|00000180| 61 72 69 6f 75 73 20 6f | 74 68 65 72 20 52 49 53 |arious o|ther RIS|
|00000190| 43 2d 4f 53 20 70 72 6f | 67 72 61 6d 73 0d 00 5a |C-OS pro|grams..Z|
|000001a0| 48 f4 20 74 6f 20 63 72 | 65 61 74 65 20 61 6e 20 |H. to cr|eate an |
|000001b0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2c 20 6e 6f 74 |applicat|ion, not|
|000001c0| 61 62 6c 79 20 21 50 61 | 69 6e 74 20 28 66 6f 72 |ably !Pa|int (for|
|000001d0| 20 73 70 72 69 74 65 73 | 29 20 61 6e 64 20 21 46 | sprites|) and !F|
|000001e0| 6f 72 6d 45 64 0d 00 64 | 4a f4 20 28 41 63 6f 72 |ormEd..d|J. (Acor|
|000001f0| 6e 27 73 20 76 65 72 73 | 69 6f 6e 29 20 66 6f 72 |n's vers|ion) for|
|00000200| 20 77 69 6e 64 6f 77 20 | 74 65 6d 70 6c 61 74 65 | window |template|
|00000210| 73 2e 20 49 27 6d 20 61 | 66 72 61 69 64 20 49 20 |s. I'm a|fraid I |
|00000220| 63 61 6e 27 74 20 72 65 | 63 6f 6d 6d 65 6e 64 0d |can't re|commend.|
|00000230| 00 6e 48 f4 20 4e 6f 72 | 77 69 63 68 20 43 6f 6d |.nH. Nor|wich Com|
|00000240| 70 75 74 65 72 20 53 65 | 72 76 69 63 65 73 20 54 |puter Se|rvices T|
|00000250| 65 6d 70 6c 61 74 65 20 | 45 64 69 74 6f 72 20 28 |emplate |Editor (|
|00000260| 73 6f 72 72 79 20 41 64 | 72 69 61 6e 29 20 61 73 |sorry Ad|rian) as|
|00000270| 20 69 74 20 63 61 6e 0d | 00 78 43 f4 20 70 72 6f | it can.|.xC. pro|
|00000280| 64 75 63 65 20 6e 6f 6e | 2d 73 74 61 6e 64 61 72 |duce non|-standar|
|00000290| 64 20 66 69 6c 65 73 20 | 74 68 61 74 20 63 61 6e |d files |that can|
|000002a0| 6e 6f 74 20 62 65 20 6c | 6f 61 64 65 64 20 69 6e |not be l|oaded in|
|000002b0| 74 6f 20 41 63 6f 72 6e | 27 73 0d 00 82 47 f4 20 |to Acorn|'s...G. |
|000002c0| 21 46 6f 72 6d 45 64 2e | 20 54 68 69 73 20 63 61 |!FormEd.| This ca|
|000002d0| 75 73 65 73 20 61 20 70 | 72 6f 62 6c 65 6d 20 61 |uses a p|roblem a|
|000002e0| 73 20 21 46 6f 72 6d 45 | 64 20 69 73 2c 20 61 73 |s !FormE|d is, as|
|000002f0| 20 66 61 72 20 61 73 20 | 49 20 6b 6e 6f 77 2c 20 | far as |I know, |
|00000300| 61 0d 00 8c 48 f4 20 27 | 50 75 62 6c 69 63 20 44 |a...H. '|Public D|
|00000310| 6f 6d 61 69 6e 27 20 70 | 72 6f 67 72 61 6d 20 28 |omain' p|rogram (|
|00000320| 77 68 69 63 68 20 69 73 | 20 61 73 20 69 74 20 73 |which is| as it s|
|00000330| 68 6f 75 6c 64 20 62 65 | 20 66 6f 72 20 73 75 63 |hould be| for suc|
|00000340| 68 20 61 20 76 69 74 61 | 6c 0d 00 96 43 f4 20 74 |h a vita|l...C. t|
|00000350| 6f 6f 6c 29 20 62 75 74 | 20 74 68 65 20 4e 43 53 |ool) but| the NCS|
|00000360| 20 76 65 72 73 69 6f 6e | 20 69 73 20 6e 6f 74 20 | version| is not |
|00000370| 73 6f 20 49 20 63 61 6e | 27 74 20 67 69 76 65 20 |so I can|'t give |
|00000380| 63 6f 70 69 65 73 20 61 | 77 61 79 2e 0d 00 a0 04 |copies a|way.....|
|00000390| 0d 00 aa 4b f4 20 49 20 | 61 6c 73 6f 20 72 65 63 |...K. I |also rec|
|000003a0| 6f 6d 6d 65 6e 64 20 67 | 65 74 74 69 6e 67 20 68 |ommend g|etting h|
|000003b0| 6f 6c 64 20 6f 66 20 61 | 6e 20 41 63 6f 72 6e 20 |old of a|n Acorn |
|000003c0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 21 53 70 79 |applicat|ion !Spy|
|000003d0| 20 28 61 76 61 69 6c 61 | 62 6c 65 0d 00 b4 49 f4 | (availa|ble...I.|
|000003e0| 20 6f 6e 20 41 72 63 68 | 69 76 65 20 4d 61 67 61 | on Arch|ive Maga|
|000003f0| 7a 69 6e 65 20 43 61 72 | 65 77 61 72 65 20 64 69 |zine Car|eware di|
|00000400| 73 63 20 37 29 20 77 68 | 69 63 68 20 69 73 20 61 |sc 7) wh|ich is a|
|00000410| 20 6d 6f 64 69 66 69 65 | 64 20 76 65 72 73 69 6f | modifie|d versio|
|00000420| 6e 20 6f 66 0d 00 be 46 | f4 20 21 48 65 6c 70 2e |n of...F|. !Help.|
|00000430| 20 54 68 69 73 20 61 70 | 70 6c 69 63 61 74 69 6f | This ap|plicatio|
|00000440| 6e 20 73 69 6d 70 6c 79 | 20 64 69 73 70 6c 61 79 |n simply| display|
|00000450| 73 20 74 68 65 20 77 69 | 6e 64 6f 77 20 68 61 6e |s the wi|ndow han|
|00000460| 64 6c 65 73 2c 20 69 63 | 6f 6e 0d 00 c8 49 f4 20 |dles, ic|on...I. |
|00000470| 69 63 6f 6e 20 68 61 6e | 64 6c 65 73 20 65 74 63 |icon han|dles etc|
|00000480| 20 61 73 20 79 6f 75 20 | 6d 6f 76 65 20 74 68 65 | as you |move the|
|00000490| 20 70 6f 69 6e 74 65 72 | 20 61 72 6f 75 6e 64 2e | pointer| around.|
|000004a0| 20 54 68 69 73 20 64 6f | 65 73 6e 27 74 20 73 6f | This do|esn't so|
|000004b0| 75 6e 64 0d 00 d2 47 f4 | 20 74 6f 6f 20 77 6f 6e |und...G.| too won|
|000004c0| 64 65 72 66 75 6c 20 62 | 75 74 20 69 74 20 64 6f |derful b|ut it do|
|000004d0| 65 73 20 65 6e 61 62 6c | 65 20 79 6f 75 20 74 6f |es enabl|e you to|
|000004e0| 20 64 69 73 63 6f 76 65 | 72 20 69 63 6f 6e 20 68 | discove|r icon h|
|000004f0| 61 6e 64 6c 65 73 20 65 | 74 63 0d 00 dc 47 f4 20 |andles e|tc...G. |
|00000500| 77 69 74 68 6f 75 74 20 | 6c 6f 61 64 69 6e 67 20 |without |loading |
|00000510| 74 68 65 20 74 65 6d 70 | 6c 61 74 65 73 20 69 6e |the temp|lates in|
|00000520| 74 6f 20 21 46 6f 72 6d | 45 64 20 61 6e 64 20 77 |to !Form|Ed and w|
|00000530| 72 69 74 69 6e 67 20 65 | 76 65 72 79 74 68 69 6e |riting e|verythin|
|00000540| 67 0d 00 e6 3a f4 20 64 | 6f 77 6e 20 6f 6e 20 62 |g...:. d|own on b|
|00000550| 69 74 73 20 6f 66 20 70 | 61 70 65 72 21 20 41 6e |its of p|aper! An|
|00000560| 64 20 69 74 20 6f 6e 6c | 79 20 6e 65 65 64 73 20 |d it onl|y needs |
|00000570| 33 32 6b 20 74 6f 20 72 | 75 6e 2e 0d 00 f0 04 0d |32k to r|un......|
|00000580| 00 fa 45 f4 20 49 20 64 | 6f 75 62 74 20 77 68 65 |..E. I d|oubt whe|
|00000590| 74 68 65 72 20 49 20 68 | 61 76 65 20 74 68 6f 75 |ther I h|ave thou|
|000005a0| 67 68 74 20 6f 66 20 65 | 76 65 72 79 74 68 69 6e |ght of e|verythin|
|000005b0| 67 2c 20 68 6f 77 65 76 | 65 72 2c 20 61 6e 64 20 |g, howev|er, and |
|000005c0| 73 6f 6d 65 0d 01 04 45 | f4 20 74 68 69 6e 67 73 |some...E|. things|
|000005d0| 20 28 73 75 63 68 20 61 | 73 20 70 61 6e 65 73 29 | (such a|s panes)|
|000005e0| 20 77 68 69 63 68 20 61 | 72 65 20 6e 69 63 65 20 | which a|re nice |
|000005f0| 74 6f 20 68 61 76 65 20 | 73 6f 6d 65 74 69 6d 65 |to have |sometime|
|00000600| 73 20 61 72 65 20 6e 6f | 74 0d 01 0e 45 f4 20 61 |s are no|t...E. a|
|00000610| 63 74 75 61 6c 6c 79 20 | 76 69 74 61 6c 20 74 6f |ctually |vital to|
|00000620| 20 67 65 74 74 69 6e 67 | 20 74 68 65 20 61 70 70 | getting| the app|
|00000630| 6c 69 63 61 74 69 6f 6e | 20 72 75 6e 6e 69 6e 67 |lication| running|
|00000640| 20 2d 20 73 6f 20 74 68 | 65 79 20 61 72 65 0d 01 | - so th|ey are..|
|00000650| 18 45 f4 20 6e 6f 74 20 | 64 65 6d 6f 6e 73 74 72 |.E. not |demonstr|
|00000660| 61 74 65 64 2e 20 41 6c | 73 6f 20 49 20 68 61 76 |ated. Al|so I hav|
|00000670| 65 6e 27 74 20 67 6f 74 | 20 74 68 65 6d 20 77 6f |en't got| them wo|
|00000680| 72 6b 69 6e 67 20 70 72 | 6f 70 65 72 6c 79 20 79 |rking pr|operly y|
|00000690| 65 74 2e 0d 01 22 44 f4 | 20 41 73 20 6d 6f 73 74 |et..."D.| As most|
|000006a0| 20 70 72 6f 67 72 61 6d | 73 20 63 61 6e 20 62 65 | program|s can be|
|000006b0| 20 63 72 75 64 65 6c 79 | 20 62 72 6f 6b 65 6e 20 | crudely| broken |
|000006c0| 64 6f 77 6e 20 74 6f 20 | 27 67 65 74 20 73 6f 6d |down to |'get som|
|000006d0| 65 20 64 61 74 61 2c 0d | 01 2c 43 f4 20 70 72 6f |e data,.|.,C. pro|
|000006e0| 63 65 73 73 20 69 74 20 | 61 6e 64 20 73 61 76 65 |cess it |and save|
|000006f0| 20 69 74 20 62 61 63 6b | 20 74 6f 20 64 69 73 6b | it back| to disk|
|00000700| 27 20 49 27 6c 6c 20 75 | 73 65 20 61 20 72 65 61 |' I'll u|se a rea|
|00000710| 6c 6c 79 20 73 69 6d 70 | 6c 65 0d 01 36 47 f4 20 |lly simp|le..6G. |
|00000720| 64 61 74 61 62 61 73 65 | 20 61 73 20 61 6e 20 65 |database| as an e|
|00000730| 78 61 6d 70 6c 65 20 77 | 68 69 63 68 20 77 69 6c |xample w|hich wil|
|00000740| 6c 20 73 68 6f 77 20 68 | 6f 77 20 74 6f 20 6c 6f |l show h|ow to lo|
|00000750| 61 64 20 61 6e 64 20 73 | 61 76 65 20 66 69 6c 65 |ad and s|ave file|
|00000760| 73 0d 01 40 48 f4 20 75 | 6e 64 65 72 20 52 49 53 |s..@H. u|nder RIS|
|00000770| 43 2d 4f 53 2e 20 48 6f | 77 65 76 65 72 2c 20 49 |C-OS. Ho|wever, I|
|00000780| 27 6c 6c 20 74 72 79 20 | 74 6f 20 73 68 6f 77 20 |'ll try |to show |
|00000790| 61 73 20 6d 61 6e 79 20 | 64 69 66 66 65 72 65 6e |as many |differen|
|000007a0| 74 20 61 73 70 65 63 74 | 73 0d 01 4a 20 f4 20 6f |t aspect|s..J . o|
|000007b0| 66 20 57 49 4d 50 20 70 | 72 6f 67 72 61 6d 73 20 |f WIMP p|rograms |
|000007c0| 61 73 20 49 20 63 61 6e | 2e 0d 01 54 04 0d 01 5e |as I can|...T...^|
|000007d0| 49 f4 20 52 65 61 64 69 | 6e 67 20 73 6f 6d 65 20 |I. Readi|ng some |
|000007e0| 6f 66 20 74 68 65 20 63 | 6f 6d 6d 65 6e 74 73 20 |of the c|omments |
|000007f0| 69 6e 20 74 68 65 20 6d | 61 67 61 7a 69 6e 65 73 |in the m|agazines|
|00000800| 20 69 74 20 73 65 65 6d | 73 20 74 68 61 74 20 77 | it seem|s that w|
|00000810| 68 61 74 20 69 73 0d 01 | 68 47 f4 20 72 65 71 75 |hat is..|hG. requ|
|00000820| 69 72 65 64 20 69 73 20 | 61 20 6d 61 67 69 63 20 |ired is |a magic |
|00000830| 77 61 6e 64 20 77 68 69 | 63 68 20 77 69 6c 6c 20 |wand whi|ch will |
|00000840| 70 72 6f 64 75 63 65 20 | 77 6f 72 6b 69 6e 67 20 |produce |working |
|00000850| 6d 75 6c 74 69 2d 74 61 | 73 6b 69 6e 67 0d 01 72 |multi-ta|sking..r|
|00000860| 47 f4 20 57 49 4d 50 20 | 70 72 6f 67 72 61 6d 73 |G. WIMP |programs|
|00000870| 20 77 69 74 68 6f 75 74 | 20 74 6f 6f 20 6d 75 63 | without| too muc|
|00000880| 68 20 65 66 66 6f 72 74 | 2e 20 55 6e 66 6f 72 74 |h effort|. Unfort|
|00000890| 75 6e 61 74 65 6c 79 20 | 69 66 20 79 6f 75 20 63 |unately |if you c|
|000008a0| 61 6e 27 74 0d 01 7c 48 | f4 20 70 72 6f 67 72 61 |an't..|H|. progra|
|000008b0| 6d 20 69 6e 20 42 41 53 | 49 43 20 79 6f 75 20 68 |m in BAS|IC you h|
|000008c0| 61 76 65 20 6e 6f 20 63 | 68 61 6e 63 65 21 20 54 |ave no c|hance! T|
|000008d0| 68 69 73 20 21 53 68 65 | 6c 6c 20 70 72 6f 67 72 |his !She|ll progr|
|000008e0| 61 6d 20 77 69 6c 6c 20 | 68 65 6c 70 0d 01 86 48 |am will |help...H|
|000008f0| f4 20 62 75 74 20 69 74 | 20 63 61 6e 27 74 20 74 |. but it| can't t|
|00000900| 65 61 63 68 20 79 6f 75 | 20 74 6f 20 70 72 6f 67 |each you| to prog|
|00000910| 72 61 6d 20 28 6e 65 69 | 74 68 65 72 20 63 61 6e |ram (nei|ther can|
|00000920| 20 41 72 63 68 57 61 79 | 20 61 6e 64 20 74 68 69 | ArchWay| and thi|
|00000930| 73 20 69 73 0d 01 90 14 | f4 20 6d 75 63 68 20 63 |s is....|. much c|
|00000940| 68 65 61 70 65 72 29 2e | 0d 01 9a 04 0d 01 a4 4c |heaper).|.......L|
|00000950| f4 20 4f 6e 65 20 74 68 | 69 6e 67 20 49 20 73 74 |. One th|ing I st|
|00000960| 69 6c 6c 20 68 61 76 65 | 20 61 20 70 72 6f 62 6c |ill have| a probl|
|00000970| 65 6d 20 77 69 74 68 20 | 69 73 20 74 68 65 20 50 |em with |is the P|
|00000980| 72 65 51 75 69 74 20 62 | 72 6f 61 64 63 61 73 74 |reQuit b|roadcast|
|00000990| 20 6d 65 73 73 61 67 65 | 0d 01 ae 4a f4 20 73 65 | message|...J. se|
|000009a0| 6e 74 20 62 79 20 74 68 | 65 20 74 61 73 6b 20 6d |nt by th|e task m|
|000009b0| 61 6e 61 67 65 72 20 77 | 68 65 6e 20 79 6f 75 20 |anager w|hen you |
|000009c0| 71 75 69 74 20 74 68 65 | 20 64 65 73 6b 74 6f 70 |quit the| desktop|
|000009d0| 2e 20 41 63 63 6f 72 64 | 69 6e 67 20 74 6f 20 74 |. Accord|ing to t|
|000009e0| 68 65 0d 01 b8 48 f4 20 | 52 49 53 43 2d 4f 53 20 |he...H. |RISC-OS |
|000009f0| 50 52 4d 73 20 74 68 65 | 20 61 70 70 6c 69 63 61 |PRMs the| applica|
|00000a00| 74 69 6f 6e 20 73 68 6f | 75 6c 64 20 63 68 65 63 |tion sho|uld chec|
|00000a10| 6b 20 69 66 20 75 6e 73 | 61 76 65 64 20 64 61 74 |k if uns|aved dat|
|00000a20| 61 20 69 73 20 74 6f 20 | 62 65 0d 01 c2 49 f4 20 |a is to |be...I. |
|00000a30| 74 68 72 6f 77 6e 20 61 | 77 61 79 20 61 6e 64 20 |thrown a|way and |
|00000a40| 74 68 65 6e 20 72 65 73 | 74 61 72 74 20 74 68 65 |then res|tart the|
|00000a50| 20 63 6c 6f 73 65 64 6f | 77 6e 20 70 72 6f 63 65 | closedo|wn proce|
|00000a60| 64 75 72 65 2e 20 55 6e | 66 6f 72 74 75 6e 61 74 |dure. Un|fortunat|
|00000a70| 65 6c 79 0d 01 cc 46 f4 | 20 74 68 65 20 50 52 4d |ely...F.| the PRM|
|00000a80| 20 69 73 20 61 20 62 69 | 74 20 6c 69 67 68 74 20 | is a bi|t light |
|00000a90| 6f 6e 20 69 6e 66 6f 20 | 6f 6e 20 68 6f 77 20 74 |on info |on how t|
|00000aa0| 6f 20 64 6f 20 74 68 69 | 73 20 61 6e 64 20 6e 6f |o do thi|s and no|
|00000ab0| 6e 65 20 6f 66 20 74 68 | 65 0d 01 d6 48 f4 20 61 |ne of th|e...H. a|
|00000ac0| 70 70 6c 69 63 61 74 69 | 6f 6e 73 20 49 20 68 61 |pplicati|ons I ha|
|00000ad0| 76 65 20 28 69 6e 63 6c | 75 64 69 6e 67 20 21 4d |ve (incl|uding !M|
|00000ae0| 61 65 73 74 72 6f 20 61 | 6e 64 20 21 48 6f 6d 65 |aestro a|nd !Home|
|00000af0| 41 63 63 20 66 72 6f 6d | 20 4d 69 6e 65 72 76 61 |Acc from| Minerva|
|00000b00| 29 0d 01 e0 45 f4 20 61 | 63 74 75 61 6c 6c 79 20 |)...E. a|ctually |
|00000b10| 66 6f 6c 6c 6f 77 20 74 | 68 65 20 67 75 69 64 65 |follow t|he guide|
|00000b20| 6c 69 6e 65 73 21 20 53 | 6f 20 61 73 20 69 74 20 |lines! S|o as it |
|00000b30| 73 74 61 6e 64 73 20 69 | 66 20 75 6e 73 61 76 65 |stands i|f unsave|
|00000b40| 64 20 64 61 74 61 0d 01 | ea 43 f4 20 65 78 69 73 |d data..|.C. exis|
|00000b50| 74 73 20 69 6e 20 21 53 | 68 65 6c 6c 20 77 68 65 |ts in !S|hell whe|
|00000b60| 6e 20 74 68 65 20 64 65 | 73 6b 74 6f 70 20 69 73 |n the de|sktop is|
|00000b70| 20 65 78 69 74 65 64 20 | 79 6f 75 20 77 69 6c 6c | exited |you will|
|00000b80| 20 6c 6f 73 65 20 69 74 | 2e 0d 01 f4 30 f4 20 41 | lose it|....0. A|
|00000b90| 6e 79 20 68 65 6c 70 20 | 68 65 72 65 20 77 69 6c |ny help |here wil|
|00000ba0| 6c 20 62 65 20 67 72 61 | 74 65 66 75 6c 6c 79 20 |l be gra|tefully |
|00000bb0| 72 65 63 65 69 76 65 64 | 21 0d 01 fe 04 0d 02 08 |received|!.......|
|00000bc0| 1f f4 20 43 6f 70 79 72 | 69 67 68 74 20 50 61 75 |.. Copyr|ight Pau|
|00000bd0| 6c 20 48 6f 62 62 73 20 | 31 39 39 30 0d 02 12 04 |l Hobbs |1990....|
|00000be0| 0d 02 1c 19 f4 20 52 68 | 65 69 6e 70 66 6c 61 7a |..... Rh|einpflaz|
|00000bf0| 73 74 72 61 73 73 65 20 | 32 0d 02 26 19 f4 20 20 |strasse |2..&.. |
|00000c00| 20 20 20 38 30 37 30 20 | 49 6e 67 6f 6c 73 74 61 | 8070 |Ingolsta|
|00000c10| 64 74 0d 02 30 19 f4 20 | 20 20 20 20 20 20 20 57 |dt..0.. | W|
|00000c20| 65 73 74 20 47 65 72 6d | 61 6e 79 0d 02 3a 04 0d |est Germ|any..:..|
|00000c30| 02 44 3e f4 20 54 68 69 | 73 20 70 72 6f 67 72 61 |.D>. Thi|s progra|
|00000c40| 6d 20 61 6e 64 20 70 61 | 72 74 73 20 74 68 65 72 |m and pa|rts ther|
|00000c50| 65 6f 66 20 6d 61 79 20 | 62 65 20 66 72 65 65 6c |eof may |be freel|
|00000c60| 79 20 64 69 73 74 72 69 | 62 75 74 65 64 0d 02 4e |y distri|buted..N|
|00000c70| 04 0d 02 58 04 0d 02 62 | 4c f4 20 2d 2d 2d 2d 2d |...X...b|L. -----|
|00000c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00000c90| 57 49 4d 50 20 54 61 73 | 6b 20 49 6e 69 74 69 61 |WIMP Tas|k Initia|
|00000ca0| 6c 69 73 61 74 69 6f 6e | 20 2d 2d 2d 2d 2d 2d 2d |lisation| -------|
|00000cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cc0| 2d 0d 02 6c 04 0d 02 76 | 47 f4 20 44 69 6d 65 6e |-..l...v|G. Dimen|
|00000cd0| 73 69 6f 6e 20 74 68 65 | 20 67 65 6e 65 72 61 6c |sion the| general|
|00000ce0| 20 70 75 72 70 6f 73 65 | 20 57 49 4d 50 20 70 61 | purpose| WIMP pa|
|00000cf0| 72 61 6d 65 74 65 72 20 | 62 6c 6f 63 6b 2c 20 61 |rameter |block, a|
|00000d00| 6e 64 20 73 74 61 72 74 | 20 74 68 65 0d 02 80 46 |nd start| the...F|
|00000d10| f4 20 57 49 4d 50 20 74 | 61 73 6b 2e 20 4d 61 6b |. WIMP t|ask. Mak|
|00000d20| 65 20 74 68 65 20 70 61 | 72 61 6d 65 74 65 72 20 |e the pa|rameter |
|00000d30| 62 6c 6f 63 6b 20 6c 61 | 72 67 65 20 74 6f 20 73 |block la|rge to s|
|00000d40| 74 61 72 74 20 77 69 74 | 68 2c 20 63 75 74 74 69 |tart wit|h, cutti|
|00000d50| 6e 67 0d 02 8a 46 f4 20 | 69 74 20 64 6f 77 6e 20 |ng...F. |it down |
|00000d60| 77 68 65 6e 20 74 68 65 | 20 70 72 6f 67 72 61 6d |when the| program|
|00000d70| 20 69 73 20 66 69 6e 69 | 73 68 65 64 2e 20 59 6f | is fini|shed. Yo|
|00000d80| 75 27 6c 6c 20 6b 6e 6f | 77 20 77 68 65 6e 20 69 |u'll kno|w when i|
|00000d90| 74 20 69 73 20 74 6f 6f | 0d 02 94 47 f4 20 73 6d |t is too|...G. sm|
|00000da0| 61 6c 6c 20 61 73 20 74 | 68 65 20 70 72 6f 67 72 |all as t|he progr|
|00000db0| 61 6d 20 77 6f 6e 27 74 | 20 72 75 6e 21 20 54 68 |am won't| run! Th|
|00000dc0| 65 20 22 53 68 65 6c 6c | 22 20 73 74 72 69 6e 67 |e "Shell|" string|
|00000dd0| 20 69 73 20 75 73 65 64 | 20 62 79 20 74 68 65 0d | is used| by the.|
|00000de0| 02 9e 48 f4 20 54 61 73 | 6b 20 4d 61 6e 61 67 65 |..H. Tas|k Manage|
|00000df0| 72 20 69 6e 20 74 68 65 | 20 64 65 73 6b 74 6f 70 |r in the| desktop|
|00000e00| 20 2d 20 73 6f 20 63 68 | 61 6e 67 65 20 69 74 20 | - so ch|ange it |
|00000e10| 74 6f 20 73 75 69 74 20 | 74 68 65 20 61 70 70 6c |to suit |the appl|
|00000e20| 69 63 61 74 69 6f 6e 0d | 02 a8 15 f4 20 79 6f 75 |ication.|.... you|
|00000e30| 20 61 72 65 20 77 72 69 | 74 69 6e 67 0d 02 b2 04 | are wri|ting....|
|00000e40| 0d 02 bc 47 76 65 72 73 | 69 6f 6e 24 3d 22 31 2e |...Gvers|ion$="1.|
|00000e50| 30 34 20 28 31 30 2d 4d | 61 72 2d 39 33 29 22 20 |04 (10-M|ar-93)" |
|00000e60| 3a f4 20 74 68 69 73 20 | 73 74 72 69 6e 67 20 77 |:. this |string w|
|00000e70| 69 6c 6c 20 62 65 20 69 | 6e 73 65 72 74 65 64 20 |ill be i|nserted |
|00000e80| 69 6e 74 6f 20 61 6e 0d | 02 c6 45 20 20 20 20 20 |into an.|..E |
|00000e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ea0| 20 20 20 20 20 20 20 3a | f4 20 69 63 6f 6e 20 69 | :|. icon i|
|00000eb0| 6e 20 74 68 65 20 73 74 | 61 6e 64 61 72 64 20 27 |n the st|andard '|
|00000ec0| 69 6e 66 6f 27 20 77 69 | 6e 64 6f 77 0d 02 d0 4b |info' wi|ndow...K|
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 77 | | :. w|
|00000ef0| 68 69 63 68 20 69 73 20 | 61 63 63 65 73 73 65 64 |hich is |accessed|
|00000f00| 20 76 69 61 20 74 68 65 | 20 69 63 6f 6e 20 69 6e | via the| icon in|
|00000f10| 73 74 61 6c 6c 65 64 0d | 02 da 31 20 20 20 20 20 |stalled.|..1 |
|00000f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f30| 20 20 20 20 20 20 20 3a | f4 20 6f 6e 20 74 68 65 | :|. on the|
|00000f40| 20 69 63 6f 6e 62 61 72 | 0d 02 e4 1d f4 20 4d 79 | iconbar|..... My|
|00000f50| 20 6f 77 6e 20 69 6d 70 | 72 6f 76 65 6d 65 6e 74 | own imp|rovement|
|00000f60| 20 62 69 74 73 0d 02 ee | 05 3a 0d 02 f8 43 c8 99 | bits...|.:...C..|
|00000f70| 20 22 53 6f 75 6e 64 5f | 41 74 74 61 63 68 56 6f | "Sound_|AttachVo|
|00000f80| 69 63 65 22 2c 31 2c 30 | 20 b8 20 2c 75 73 65 72 |ice",1,0| . ,user|
|00000f90| 5f 76 6f 69 63 65 25 3a | f4 20 53 61 76 65 20 43 |_voice%:|. Save C|
|00000fa0| 68 61 6e 6e 65 6c 56 6f | 69 63 65 20 31 0d 03 02 |hannelVo|ice 1...|
|00000fb0| 28 c8 99 20 22 53 6f 75 | 6e 64 5f 41 74 74 61 63 |(.. "Sou|nd_Attac|
|00000fc0| 68 56 6f 69 63 65 22 2c | 31 2c 75 73 65 72 5f 76 |hVoice",|1,user_v|
|00000fd0| 6f 69 63 65 25 0d 03 0c | 2e c8 99 20 22 53 6f 75 |oice%...|... "Sou|
|00000fe0| 6e 64 5f 49 6e 73 74 61 | 6c 6c 56 6f 69 63 65 22 |nd_Insta|llVoice"|
|00000ff0| 2c 30 2c 75 73 65 72 5f | 76 6f 69 63 65 25 20 b8 |,0,user_|voice% .|
|00001000| 20 53 24 0d 03 16 05 3a | 0d 03 20 1f f4 20 54 75 | S$....:|.. .. Tu|
|00001010| 72 6e 20 66 75 6c 6c 20 | 73 70 72 69 74 65 20 64 |rn full |sprite d|
|00001020| 72 61 67 20 6f 6e 3a 0d | 03 2a 11 f4 20 2a 46 58 |rag on:.|.*.. *FX|
|00001030| 31 36 32 2c 32 38 2c 33 | 0d 03 34 1f f4 20 54 75 |162,28,3|..4.. Tu|
|00001040| 72 6e 20 66 75 6c 6c 20 | 73 70 72 69 74 65 20 64 |rn full |sprite d|
|00001050| 72 61 67 20 6f 66 66 0d | 03 3e 48 f4 20 53 59 53 |rag off.|.>H. SYS|
|00001060| 22 4f 53 5f 42 79 74 65 | 22 2c 31 36 31 2c 32 38 |"OS_Byte|",161,28|
|00001070| 20 54 4f 20 2c 2c 72 25 | 3a 72 25 3d 72 25 41 4e | TO ,,r%|:r%=r%AN|
|00001080| 44 28 32 35 35 2d 32 29 | 3a 53 59 53 22 4f 53 5f |D(255-2)|:SYS"OS_|
|00001090| 42 79 74 65 22 2c 31 36 | 32 2c 32 38 2c 72 25 0d |Byte",16|2,28,r%.|
|000010a0| 03 48 05 3a 0d 03 52 0d | de 20 71 25 20 32 35 30 |.H.:..R.|. q% 250|
|000010b0| 30 0d 03 5c 0c 64 65 62 | 75 67 25 3d b9 0d 03 66 |0..\.deb|ug%=...f|
|000010c0| 05 3a 0d 03 70 31 c8 99 | 20 22 4f 53 5f 52 65 61 |.:..p1..| "OS_Rea|
|000010d0| 64 56 61 72 56 61 6c 22 | 2c 22 4f 62 65 79 24 44 |dVarVal"|,"Obey$D|
|000010e0| 69 72 22 2c 71 25 2c 32 | 35 36 20 b8 20 2c 2c 6c |ir",q%,2|56 . ,,l|
|000010f0| 65 6e 25 0d 03 7a 18 50 | 25 3d 71 25 2b 6c 65 6e |en%..z.P|%=q%+len|
|00001100| 25 2d 31 3a 61 70 70 24 | 3d 22 22 0d 03 84 05 f5 |%-1:app$|="".....|
|00001110| 0d 03 8e 18 61 70 70 24 | 3d bd 3f 50 25 2b 61 70 |....app$|=.?P%+ap|
|00001120| 70 24 3a 50 25 2d 3d 31 | 0d 03 98 3d fd 20 3f 50 |p$:P%-=1|...=. ?P|
|00001130| 25 3d 97 22 21 22 3a 50 | 25 2d 3d 31 3a 70 61 74 |%=."!":P|%-=1:pat|
|00001140| 68 24 3d 22 22 3a f5 20 | 70 61 74 68 24 3d bd 3f |h$="":. |path$=.?|
|00001150| 50 25 2b 70 61 74 68 24 | 3a 50 25 2d 3d 31 3a fd |P%+path$|:P%-=1:.|
|00001160| 50 25 3c 71 25 0d 03 a2 | 1c 70 61 74 68 6e 61 6d |P%<q%...|.pathnam|
|00001170| 65 24 3d 70 61 74 68 24 | 2b 22 21 22 2b 61 70 70 |e$=path$|+"!"+app|
|00001180| 24 0d 03 ac 04 0d 03 b6 | 0e 24 71 25 3d 22 54 41 |$.......|.$q%="TA|
|00001190| 53 4b 22 0d 03 c0 2e c8 | 99 20 22 57 69 6d 70 5f |SK".....|. "Wimp_|
|000011a0| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|000011b0| 21 71 25 2c 61 70 70 24 | 20 b8 20 2c 74 61 73 6b |!q%,app$| . ,task|
|000011c0| 25 0d 03 ca 48 c8 99 20 | 22 48 6f 75 72 67 6c 61 |%...H.. |"Hourgla|
|000011d0| 73 73 5f 4f 6e 22 20 3a | f4 20 77 65 27 6c 6c 20 |ss_On" :|. we'll |
|000011e0| 74 75 72 6e 20 74 68 65 | 20 48 6f 75 72 47 6c 61 |turn the| HourGla|
|000011f0| 73 73 20 6f 6e 20 75 6e | 74 69 6c 20 65 76 65 72 |ss on un|til ever|
|00001200| 79 74 68 69 6e 67 20 69 | 73 0d 03 d4 46 20 20 20 |ything i|s...F |
|00001210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001220| 3a f4 20 73 65 74 20 75 | 70 20 61 6e 64 20 72 65 |:. set u|p and re|
|00001230| 61 64 79 20 74 6f 20 67 | 6f 20 28 74 6f 20 73 68 |ady to g|o (to sh|
|00001240| 6f 77 20 73 6f 6d 65 74 | 68 69 6e 67 20 69 73 0d |ow somet|hing is.|
|00001250| 03 de 4a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..J | |
|00001260| 20 20 20 20 20 20 3a f4 | 20 68 61 70 70 65 6e 69 | :.| happeni|
|00001270| 6e 67 20 77 68 69 6c 65 | 20 74 68 65 20 61 70 70 |ng while| the app|
|00001280| 6c 69 63 61 74 69 6f 6e | 20 69 73 20 69 6e 69 74 |lication| is init|
|00001290| 69 61 6c 69 73 69 6e 67 | 29 0d 03 e8 04 0d 03 f2 |ialising|).......|
|000012a0| 4c f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L. -----|--------|
|000012b0| 2d 2d 2d 2d 2d 2d 2d 20 | 4c 6f 61 64 20 53 70 72 |------- |Load Spr|
|000012c0| 69 74 65 20 46 69 6c 65 | 20 2d 2d 2d 2d 2d 2d 2d |ite File| -------|
|000012d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 03 fc 04 0d 04 06 |--------|-.......|
|000012f0| 4b f4 20 53 65 74 20 75 | 70 20 61 6e 64 20 63 6c |K. Set u|p and cl|
|00001300| 65 61 72 20 61 20 75 73 | 65 72 20 73 70 72 69 74 |ear a us|er sprit|
|00001310| 65 20 61 72 65 61 20 66 | 6f 72 20 74 68 65 20 22 |e area f|or the "|
|00001320| 53 70 72 69 74 65 73 22 | 20 66 69 6c 65 20 77 68 |Sprites"| file wh|
|00001330| 69 63 68 20 6d 75 73 74 | 0d 04 10 4a f4 20 62 65 |ich must|...J. be|
|00001340| 20 69 6e 20 74 68 65 20 | 61 70 70 6c 69 63 61 74 | in the |applicat|
|00001350| 69 6f 6e 20 64 69 72 65 | 63 74 6f 72 79 2e 20 54 |ion dire|ctory. T|
|00001360| 68 69 73 20 77 69 6c 6c | 20 63 6f 6e 74 61 69 6e |his will| contain|
|00001370| 20 61 6c 6c 20 6f 66 20 | 74 68 65 20 75 6e 69 71 | all of |the uniq|
|00001380| 75 65 0d 04 1a 4b f4 20 | 73 70 72 69 74 65 73 20 |ue...K. |sprites |
|00001390| 72 65 71 75 69 72 65 64 | 20 62 79 20 74 68 65 20 |required| by the |
|000013a0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 2e 20 54 68 65 |applicat|ion. The|
|000013b0| 20 73 69 7a 65 20 6f 66 | 20 74 68 65 20 75 73 65 | size of| the use|
|000013c0| 72 20 73 70 72 69 74 65 | 20 61 72 65 61 0d 04 24 |r sprite| area..$|
|000013d0| 4b f4 20 69 73 20 73 65 | 74 20 62 79 20 74 68 65 |K. is se|t by the|
|000013e0| 20 73 69 7a 65 20 6f 66 | 20 74 68 65 20 73 70 72 | size of| the spr|
|000013f0| 69 74 65 20 66 69 6c 65 | 2e 20 54 68 65 20 6f 6e |ite file|. The on|
|00001400| 6c 79 20 70 61 72 74 20 | 79 6f 75 20 77 69 6c 6c |ly part |you will|
|00001410| 20 6e 65 65 64 20 74 6f | 0d 04 2e 4c f4 20 63 68 | need to|...L. ch|
|00001420| 61 6e 67 65 20 68 65 72 | 65 20 69 73 20 74 68 65 |ange her|e is the|
|00001430| 20 3c 53 68 65 6c 6c 24 | 44 69 72 3e 20 73 74 72 | <Shell$|Dir> str|
|00001440| 69 6e 67 20 77 68 69 63 | 68 20 73 68 6f 75 6c 64 |ing whic|h should|
|00001450| 20 62 65 20 74 68 65 20 | 73 61 6d 65 20 61 73 20 | be the |same as |
|00001460| 74 68 61 74 0d 04 38 3c | f4 20 67 69 76 65 6e 20 |that..8<|. given |
|00001470| 69 6e 20 74 68 65 20 21 | 52 75 6e 20 66 69 6c 65 |in the !|Run file|
|00001480| 20 28 69 6e 20 74 68 69 | 73 20 65 78 61 6d 70 6c | (in thi|s exampl|
|00001490| 65 20 74 68 65 20 6c 69 | 6e 65 20 72 65 61 64 73 |e the li|ne reads|
|000014a0| 0d 04 42 21 f4 20 27 53 | 65 74 20 53 68 65 6c 6c |..B!. 'S|et Shell|
|000014b0| 24 44 69 72 20 3c 4f 62 | 65 79 24 44 69 72 3e 27 |$Dir <Ob|ey$Dir>'|
|000014c0| 29 0d 04 4c 48 f4 20 48 | 61 76 69 6e 67 20 75 73 |)..LH. H|aving us|
|000014d0| 65 72 20 73 70 72 69 74 | 65 73 20 69 73 20 6e 6f |er sprit|es is no|
|000014e0| 74 20 61 6c 77 61 79 73 | 20 6e 65 63 65 73 73 61 |t always| necessa|
|000014f0| 72 79 20 6f 66 20 63 6f | 75 72 73 65 20 61 73 20 |ry of co|urse as |
|00001500| 79 6f 75 20 63 6f 75 6c | 64 0d 04 56 4b f4 20 75 |you coul|d..VK. u|
|00001510| 73 65 20 74 65 78 74 20 | 69 63 6f 6e 73 20 6f 72 |se text |icons or|
|00001520| 20 75 73 65 72 20 67 65 | 6e 65 72 61 74 65 64 20 | user ge|nerated |
|00001530| 67 72 61 70 68 69 63 73 | 20 69 6e 20 74 68 65 20 |graphics| in the |
|00001540| 77 69 6e 64 6f 77 73 20 | 2d 20 69 66 20 74 68 69 |windows |- if thi|
|00001550| 73 20 69 73 0d 04 60 2d | f4 20 74 68 65 20 63 61 |s is..`-|. the ca|
|00001560| 73 65 20 74 68 65 6e 20 | 79 6f 75 20 63 61 6e 20 |se then |you can |
|00001570| 6f 6d 69 74 20 74 68 69 | 73 20 73 65 63 74 69 6f |omit thi|s sectio|
|00001580| 6e 0d 04 6a 04 0d 04 74 | 31 53 25 3d 8e 20 28 70 |n..j...t|1S%=. (p|
|00001590| 61 74 68 6e 61 6d 65 24 | 2b 22 2e 21 53 70 72 69 |athname$|+".!Spri|
|000015a0| 74 65 73 22 29 3a 54 25 | 3d a2 23 53 25 2b 31 36 |tes"):T%|=.#S%+16|
|000015b0| 3a d9 20 23 53 25 0d 04 | 7e 19 de 20 73 70 20 54 |:. #S%..|~.. sp T|
|000015c0| 25 3a 21 73 70 3d 54 25 | 3a 73 70 21 34 3d 30 0d |%:!sp=T%|:sp!4=0.|
|000015d0| 04 88 14 73 70 21 38 3d | 31 36 3a 73 70 21 31 32 |...sp!8=|16:sp!12|
|000015e0| 3d 31 36 0d 04 92 45 c8 | 99 20 22 4f 53 5f 53 70 |=16...E.|. "OS_Sp|
|000015f0| 72 69 74 65 4f 70 22 2c | 26 32 30 39 2c 73 70 20 |riteOp",|&209,sp |
|00001600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001610| 20 20 20 20 20 20 3a f4 | 20 63 6c 65 61 72 20 75 | :.| clear u|
|00001620| 73 65 72 20 61 72 65 61 | 0d 04 9c 42 c8 99 20 22 |ser area|...B.. "|
|00001630| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 26 32 30 |OS_Sprit|eOp",&20|
|00001640| 41 2c 73 70 2c 70 61 74 | 68 6e 61 6d 65 24 2b 22 |A,sp,pat|hname$+"|
|00001650| 2e 21 53 70 72 69 74 65 | 73 22 20 3a f4 20 6c 6f |.!Sprite|s" :. lo|
|00001660| 61 64 20 73 70 72 69 74 | 65 73 0d 04 a6 04 0d 04 |ad sprit|es......|
|00001670| b0 4c f4 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.L. ----|--------|
|00001680| 2d 2d 2d 2d 2d 2d 2d 2d | 20 50 6c 61 63 65 20 53 |--------| Place S|
|00001690| 70 72 69 74 65 20 4f 6e | 20 49 63 6f 6e 20 42 61 |prite On| Icon Ba|
|000016a0| 72 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |r ------|--------|
|000016b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 04 ba 04 0d 04 |--------|--......|
|000016c0| c4 48 f4 20 41 67 61 69 | 6e 20 74 68 69 73 20 73 |.H. Agai|n this s|
|000016d0| 74 65 70 20 63 6f 75 6c | 64 20 62 65 20 6c 65 66 |tep coul|d be lef|
|000016e0| 74 20 6f 75 74 20 69 66 | 20 79 6f 75 20 64 6f 6e |t out if| you don|
|000016f0| 27 74 20 77 61 6e 74 20 | 61 6e 20 69 63 6f 6e 20 |'t want |an icon |
|00001700| 6f 6e 20 74 68 65 0d 04 | ce 4b f4 20 69 63 6f 6e |on the..|.K. icon|
|00001710| 62 61 72 2e 20 54 68 65 | 20 73 74 72 69 6e 67 20 |bar. The| string |
|00001720| 22 21 53 68 65 6c 6c 22 | 20 72 65 66 65 72 73 20 |"!Shell"| refers |
|00001730| 74 6f 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 61 |to the n|ame of a|
|00001740| 20 73 70 72 69 74 65 20 | 65 69 74 68 65 72 20 69 | sprite |either i|
|00001750| 6e 0d 04 d8 4b f4 20 74 | 68 65 20 27 21 53 70 72 |n...K. t|he '!Spr|
|00001760| 69 74 65 27 20 6f 72 20 | 27 53 70 72 69 74 65 73 |ite' or |'Sprites|
|00001770| 27 20 66 69 6c 65 20 69 | 6e 20 74 68 65 20 61 70 |' file i|n the ap|
|00001780| 70 6c 69 63 61 74 69 6f | 6e 20 64 69 72 65 63 74 |plicatio|n direct|
|00001790| 6f 72 79 2e 20 49 74 20 | 6d 75 73 74 0d 04 e2 4c |ory. It |must...L|
|000017a0| f4 20 68 61 76 65 20 74 | 68 65 20 73 61 6d 65 20 |. have t|he same |
|000017b0| 6e 61 6d 65 20 61 73 20 | 74 68 65 20 61 70 70 6c |name as |the appl|
|000017c0| 69 63 61 74 69 6f 6e 20 | 64 69 72 65 63 74 6f 72 |ication |director|
|000017d0| 79 20 74 6f 20 62 65 20 | 64 69 73 70 6c 61 79 65 |y to be |displaye|
|000017e0| 64 20 62 79 20 74 68 65 | 0d 04 ec 4b f4 20 74 68 |d by the|...K. th|
|000017f0| 65 20 46 69 6c 65 72 2e | 20 54 68 65 20 66 69 72 |e Filer.| The fir|
|00001800| 73 74 20 70 61 72 61 6d | 65 74 65 72 20 28 2d 31 |st param|eter (-1|
|00001810| 29 20 6d 65 61 6e 73 20 | 27 72 69 67 68 74 20 73 |) means |'right s|
|00001820| 69 64 65 20 6f 66 20 74 | 68 65 20 69 63 6f 6e 62 |ide of t|he iconb|
|00001830| 61 72 27 0d 04 f6 47 f4 | 20 75 73 65 20 2d 32 20 |ar'...G.| use -2 |
|00001840| 74 6f 20 70 6c 61 63 65 | 20 74 68 65 20 69 63 6f |to place| the ico|
|00001850| 6e 20 6f 6e 20 74 68 65 | 20 6c 65 66 74 20 73 69 |n on the| left si|
|00001860| 64 65 2e 20 54 68 69 73 | 20 72 6f 75 74 69 6e 65 |de. This| routine|
|00001870| 20 77 69 6c 6c 20 6f 6e | 6c 79 0d 05 00 3b f4 20 | will on|ly...;. |
|00001880| 70 6c 61 63 65 20 61 20 | 73 70 72 69 74 65 20 6f |place a |sprite o|
|00001890| 6e 20 74 68 65 20 69 63 | 6f 6e 62 61 72 20 28 6e |n the ic|onbar (n|
|000018a0| 6f 20 74 65 78 74 20 75 | 6e 64 65 72 6e 65 61 74 |o text u|nderneat|
|000018b0| 68 20 69 74 29 0d 05 0a | 04 0d 05 14 37 73 69 63 |h it)...|....7sic|
|000018c0| 6f 6e 3d a4 69 63 6f 6e | 5f 63 72 65 61 74 65 28 |on=.icon|_create(|
|000018d0| 2d 31 2c 30 2c 30 2c 36 | 38 2c 36 38 2c 30 2c 30 |-1,0,0,6|8,68,0,0|
|000018e0| 2c 26 33 30 30 32 2c 22 | 21 22 2b 61 70 70 24 29 |,&3002,"|!"+app$)|
|000018f0| 0d 05 1e 04 0d 05 28 4c | f4 20 2d 2d 2d 2d 2d 2d |......(L|. ------|
|00001900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 49 |--------|------ I|
|00001910| 6e 69 74 69 61 6c 69 73 | 65 20 43 6f 6e 73 74 61 |nitialis|e Consta|
|00001920| 6e 74 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nts ----|--------|
|00001930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001940| 0d 05 32 04 0d 05 3c 4c | f4 20 2d 2d 2d 2d 2d 2d |..2...<L|. ------|
|00001950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 49 |--------|------ I|
|00001960| 6e 69 74 69 61 6c 69 73 | 65 20 56 61 72 69 61 62 |nitialis|e Variab|
|00001970| 6c 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |les ----|--------|
|00001980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001990| 0d 05 46 04 0d 05 50 46 | 63 6c 61 69 6d 71 75 65 |..F...PF|claimque|
|000019a0| 72 79 24 3d 22 22 20 20 | 20 20 20 20 20 20 20 3a |ry$="" | :|
|000019b0| f4 20 4b 65 65 70 73 20 | 74 72 61 63 6b 20 6f 66 |. Keeps |track of|
|000019c0| 20 77 68 6f 20 69 73 20 | 74 68 65 20 27 6f 77 6e | who is |the 'own|
|000019d0| 65 72 27 20 6f 66 20 74 | 68 65 0d 05 5a 4b 20 20 |er' of t|he..ZK |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000019f0| 20 20 20 20 20 3a f4 20 | 27 71 75 65 72 79 27 20 | :. |'query' |
|00001a00| 77 69 6e 64 6f 77 2e 20 | 54 68 69 73 20 69 73 20 |window. |This is |
|00001a10| 6e 65 63 65 73 73 61 72 | 79 20 62 65 63 61 75 73 |necessar|y becaus|
|00001a20| 65 20 74 68 65 0d 05 64 | 49 20 20 20 20 20 20 20 |e the..d|I |
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a40| 3a f4 20 73 61 6d 65 20 | 77 69 6e 64 6f 77 20 63 |:. same |window c|
|00001a50| 61 6e 20 75 73 65 64 20 | 66 6f 72 20 64 69 66 66 |an used |for diff|
|00001a60| 65 72 65 6e 74 20 70 75 | 72 70 6f 73 65 73 0d 05 |erent pu|rposes..|
|00001a70| 6e 49 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |nI | |
|00001a80| 20 20 20 20 20 20 20 20 | 20 3a f4 20 61 6e 64 20 | | :. and |
|00001a90| 74 68 65 72 65 66 6f 72 | 65 20 74 68 65 20 72 65 |therefor|e the re|
|00001aa0| 73 70 6f 6e 73 65 73 20 | 74 6f 20 6d 6f 75 73 65 |sponses |to mouse|
|00001ab0| 20 63 6c 69 63 6b 73 0d | 05 78 49 20 20 20 20 20 | clicks.|.xI |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ad0| 20 20 3a f4 20 6d 61 79 | 20 62 65 20 64 69 66 66 | :. may| be diff|
|00001ae0| 65 72 65 6e 74 2e 20 53 | 65 65 20 50 52 4f 43 63 |erent. S|ee PROCc|
|00001af0| 6c 69 63 6b 71 75 65 72 | 79 20 66 6f 72 20 61 6e |lickquer|y for an|
|00001b00| 0d 05 82 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |...% | |
|00001b10| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 65 78 | | :. ex|
|00001b20| 61 6d 70 6c 65 0d 05 8c | 3b 63 6c 61 69 6d 6d 65 |ample...|;claimme|
|00001b30| 6e 75 24 20 3d 22 22 20 | 20 20 20 20 20 20 20 20 |nu$ ="" | |
|00001b40| 3a f4 20 53 65 74 20 62 | 79 20 74 68 65 20 6d 65 |:. Set b|y the me|
|00001b50| 6e 75 5f 78 78 78 78 20 | 72 6f 75 74 69 6e 65 73 |nu_xxxx |routines|
|00001b60| 0d 05 96 3f 63 6c 61 69 | 6d 64 72 61 67 24 20 3d |...?clai|mdrag$ =|
|00001b70| 22 22 20 20 20 20 20 20 | 20 20 20 3a f4 20 53 65 |"" | :. Se|
|00001b80| 74 20 62 79 20 74 68 65 | 20 75 73 65 72 64 72 61 |t by the| userdra|
|00001b90| 67 5f 78 78 78 78 20 72 | 6f 75 74 69 6e 65 73 0d |g_xxxx r|outines.|
|00001ba0| 05 a0 47 63 6c 6f 73 65 | 64 6f 77 6e 20 20 20 20 |..Gclose|down |
|00001bb0| 20 20 20 3d a3 20 3a f4 | 20 53 65 74 20 74 68 69 | =. :.| Set thi|
|00001bc0| 73 20 74 6f 20 54 52 55 | 45 20 77 68 65 6e 20 79 |s to TRU|E when y|
|00001bd0| 6f 75 20 77 61 6e 74 20 | 74 68 65 20 70 72 6f 67 |ou want |the prog|
|00001be0| 72 61 6d 20 74 6f 0d 05 | aa 21 20 20 20 20 20 20 |ram to..|.! |
|00001bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c00| 20 3a f4 20 65 6e 64 0d | 05 b4 43 6f 70 65 6e 25 | :. end.|..Copen%|
|00001c10| 20 20 20 20 20 20 20 20 | 20 20 20 3d a3 20 3a f4 | | =. :.|
|00001c20| 20 55 73 65 64 20 74 6f | 20 64 65 63 69 64 65 20 | Used to| decide |
|00001c30| 77 68 65 74 68 65 72 20 | 74 68 65 20 6d 61 69 6e |whether |the main|
|00001c40| 20 77 69 6e 64 6f 77 20 | 6f 66 0d 05 be 4a 20 20 | window |of...J |
|00001c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c60| 20 20 20 20 20 3a f4 20 | 74 68 65 20 61 70 70 6c | :. |the appl|
|00001c70| 69 63 61 74 69 6f 6e 20 | 69 73 20 6f 70 65 6e 2e |ication |is open.|
|00001c80| 20 4e 61 74 75 72 61 6c | 6c 79 20 74 68 69 73 20 | Natural|ly this |
|00001c90| 6d 75 73 74 0d 05 c8 4b | 20 20 20 20 20 20 20 20 |must...K| |
|00001ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00001cb0| f4 20 62 65 20 73 65 74 | 20 74 6f 20 74 72 75 65 |. be set| to true|
|00001cc0| 20 77 68 65 6e 20 74 68 | 65 20 77 69 6e 64 6f 77 | when th|e window|
|00001cd0| 20 69 73 20 6f 70 65 6e | 65 64 2c 20 61 6e 64 0d | is open|ed, and.|
|00001ce0| 05 d2 36 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..6 | |
|00001cf0| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 46 41 4c | | :. FAL|
|00001d00| 53 45 20 77 68 65 6e 20 | 69 74 20 69 73 20 63 6c |SE when |it is cl|
|00001d10| 6f 73 65 64 21 0d 05 dc | 44 63 68 61 6e 67 65 64 |osed!...|Dchanged|
|00001d20| 25 20 20 20 20 20 20 20 | 20 3d a3 20 3a f4 20 55 |% | =. :. U|
|00001d30| 73 65 64 20 74 6f 20 6b | 65 65 70 20 74 72 61 63 |sed to k|eep trac|
|00001d40| 6b 20 6f 66 20 77 68 65 | 74 68 65 72 20 74 68 65 |k of whe|ther the|
|00001d50| 20 64 61 74 61 20 68 61 | 73 0d 05 e6 4b 20 20 20 | data ha|s...K |
|00001d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d70| 20 20 20 20 3a f4 20 62 | 65 65 6e 20 63 68 61 6e | :. b|een chan|
|00001d80| 67 65 64 2e 20 43 61 6c | 6c 20 50 52 4f 43 66 69 |ged. Cal|l PROCfi|
|00001d90| 6c 65 5f 63 68 61 6e 67 | 65 64 28 29 20 77 68 65 |le_chang|ed() whe|
|00001da0| 6e 20 69 74 0d 05 f0 47 | 20 20 20 20 20 20 20 20 |n it...G| |
|00001db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a | | :|
|00001dc0| f4 20 68 61 73 2e 20 42 | 75 74 20 69 66 20 74 68 |. has. B|ut if th|
|00001dd0| 65 20 70 72 6f 67 72 61 | 6d 20 64 6f 65 73 20 6e |e progra|m does n|
|00001de0| 6f 74 20 75 73 65 20 64 | 61 74 61 0d 05 fa 48 20 |ot use d|ata...H |
|00001df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e00| 20 20 20 20 20 20 3a f4 | 20 66 69 6c 65 73 20 6a | :.| files j|
|00001e10| 75 73 74 20 69 67 6e 6f | 72 65 20 74 68 69 73 20 |ust igno|re this |
|00001e20| 76 61 72 69 61 62 6c 65 | 20 62 75 74 20 64 6f 20 |variable| but do |
|00001e30| 6e 6f 74 0d 06 04 47 20 | 20 20 20 20 20 20 20 20 |not...G | |
|00001e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 | | :.|
|00001e50| 20 64 65 6c 65 74 65 20 | 69 74 20 61 73 20 74 68 | delete |it as th|
|00001e60| 65 20 70 72 6f 67 72 61 | 6d 20 63 68 65 63 6b 73 |e progra|m checks|
|00001e70| 20 69 74 20 62 65 66 6f | 72 65 0d 06 0e 26 20 20 | it befo|re...& |
|00001e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e90| 20 20 20 20 20 3a f4 20 | 65 78 69 74 69 6e 67 21 | :. |exiting!|
|00001ea0| 0d 06 18 04 0d 06 22 4c | f4 20 2d 2d 2d 2d 2d 2d |......"L|. ------|
|00001eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 49 |--------|------ I|
|00001ec0| 6e 69 74 69 61 6c 69 73 | 65 20 41 72 72 61 79 73 |nitialis|e Arrays|
|00001ed0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00001ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ef0| 0d 06 2c 04 0d 06 36 42 | de 20 74 65 78 74 24 28 |..,...6B|. text$(|
|00001f00| 35 30 29 2c 73 65 74 74 | 69 6e 67 28 35 30 29 2c |50),sett|ing(50),|
|00001f10| 66 6c 61 67 73 28 35 30 | 29 20 3a f4 20 75 73 65 |flags(50|) :. use|
|00001f20| 64 20 62 79 20 74 68 65 | 20 6d 65 6e 75 20 72 6f |d by the| menu ro|
|00001f30| 75 74 69 6e 65 73 0d 06 | 40 42 de 20 73 75 62 6d |utines..|@B. subm|
|00001f40| 65 6e 75 28 35 30 29 2c | 72 65 66 28 35 30 29 2c |enu(50),|ref(50),|
|00001f50| 6d 65 6e 75 70 6f 73 28 | 32 30 29 20 3a f4 20 75 |menupos(|20) :. u|
|00001f60| 73 65 64 20 62 79 20 74 | 68 65 20 6d 65 6e 75 20 |sed by t|he menu |
|00001f70| 72 6f 75 74 69 6e 65 73 | 0d 06 4a 04 0d 06 54 4c |routines|..J...TL|
|00001f80| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00001f90| 2d 2d 2d 2d 2d 2d 20 49 | 6e 69 74 69 61 6c 69 73 |------ I|nitialis|
|00001fa0| 65 20 53 74 6f 72 61 67 | 65 20 2d 2d 2d 2d 2d 2d |e Storag|e ------|
|00001fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 06 5e 04 0d 06 68 0f |--------|..^...h.|
|00001fd0| de 20 6d 65 6e 75 25 20 | 35 31 32 0d 06 72 46 de |. menu% |512..rF.|
|00001fe0| 20 69 6e 64 69 72 65 63 | 74 25 20 26 32 30 30 30 | indirec|t% &2000|
|00001ff0| 20 3a f4 20 55 73 65 64 | 20 66 6f 72 20 69 6e 64 | :. Used| for ind|
|00002000| 69 72 65 63 74 65 64 20 | 69 63 6f 6e 73 2e 20 4d |irected |icons. M|
|00002010| 61 6b 65 20 74 68 69 73 | 20 61 72 65 61 20 42 49 |ake this| area BI|
|00002020| 47 0d 06 7c 48 20 20 20 | 20 20 20 20 20 20 20 20 |G..|H | |
|00002030| 20 20 20 20 20 20 20 20 | 20 3a f4 20 77 68 69 6c | | :. whil|
|00002040| 65 20 64 65 76 65 6c 6f | 70 69 6e 67 20 74 68 65 |e develo|ping the|
|00002050| 20 70 72 6f 67 72 61 6d | 2c 20 63 75 74 74 69 6e | program|, cuttin|
|00002060| 67 20 69 74 20 64 6f 77 | 6e 0d 06 86 4b 20 20 20 |g it dow|n...K |
|00002070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002080| 20 3a f4 20 77 68 65 6e | 20 69 74 20 69 73 20 66 | :. when| it is f|
|00002090| 69 6e 69 73 68 65 64 2e | 20 41 67 61 69 6e 20 79 |inished.| Again y|
|000020a0| 6f 75 27 6c 6c 20 6b 6e | 6f 77 20 77 68 65 6e 20 |ou'll kn|ow when |
|000020b0| 69 74 27 73 0d 06 90 40 | 20 20 20 20 20 20 20 20 |it's...@| |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 74 | | :. t|
|000020d0| 6f 6f 20 73 6d 61 6c 6c | 20 27 63 6f 73 20 74 68 |oo small| 'cos th|
|000020e0| 65 20 70 72 6f 67 72 61 | 6d 20 77 6f 6e 27 74 20 |e progra|m won't |
|000020f0| 72 75 6e 21 0d 06 9a 3b | de 20 6d 73 67 62 6c 6b |run!...;|. msgblk|
|00002100| 25 20 32 35 36 20 20 20 | 20 20 3a f4 20 55 73 65 |% 256 | :. Use|
|00002110| 64 20 66 6f 72 20 69 6e | 74 65 72 20 74 61 73 6b |d for in|ter task|
|00002120| 20 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 73 0d | communi|cations.|
|00002130| 06 a4 04 0d 06 ae 4c f4 | 20 2d 2d 2d 2d 2d 2d 2d |......L.| -------|
|00002140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 4d 69 |--------|----- Mi|
|00002150| 73 63 65 6c 6c 65 61 6e | 6f 75 73 20 49 6e 69 74 |scellean|ous Init|
|00002160| 69 61 6c 69 73 61 74 69 | 6f 6e 20 2d 2d 2d 2d 2d |ialisati|on -----|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00002180| 06 b8 04 0d 06 c2 25 69 | 70 74 72 25 3d 69 6e 64 |......%i|ptr%=ind|
|00002190| 69 72 65 63 74 25 3a 69 | 65 6e 64 25 3d 69 70 74 |irect%:i|end%=ipt|
|000021a0| 72 25 2b 26 32 30 30 30 | 0d 06 cc 04 0d 06 d6 4c |r%+&2000|.......L|
|000021b0| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|000021c0| 2d 2d 2d 2d 2d 2d 20 41 | 70 70 6c 69 63 61 74 69 |------ A|pplicati|
|000021d0| 6f 6e 20 49 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |on Initi|alisatio|
|000021e0| 6e 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |n ------|--------|
|000021f0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 06 e0 04 0d 06 ea 3f |--------|.......?|
|00002200| f4 20 49 6e 69 74 69 61 | 6c 69 73 61 74 69 6f 6e |. Initia|lisation|
|00002210| 20 73 74 75 66 66 20 77 | 68 69 63 68 20 69 73 20 | stuff w|hich is |
|00002220| 75 6e 69 71 75 65 20 74 | 6f 20 79 6f 75 72 20 61 |unique t|o your a|
|00002230| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 0d 06 f4 15 6c |pplicati|on.....l|
|00002240| 6f 61 64 65 64 25 3d a3 | 3a 73 68 61 64 25 3d b9 |oaded%=.|:shad%=.|
|00002250| 0d 06 fe 1f de 20 56 6f | 69 63 65 24 28 33 33 29 |..... Vo|ice$(33)|
|00002260| 3a 76 6f 69 63 65 25 3d | 30 3a 53 24 3d 22 22 0d |:voice%=|0:S$="".|
|00002270| 07 08 47 6d 61 69 6e 77 | 5f 74 69 74 6c 65 24 20 |..Gmainw|_title$ |
|00002280| 3d 20 61 70 70 24 20 20 | 20 20 3a f4 20 57 65 20 |= app$ | :. We |
|00002290| 6e 65 65 64 20 61 20 73 | 74 72 69 6e 67 20 68 65 |need a s|tring he|
|000022a0| 72 65 20 66 6f 72 20 74 | 68 65 20 6d 61 69 6e 20 |re for t|he main |
|000022b0| 77 69 6e 64 6f 77 0d 07 | 12 4b 20 20 20 20 20 20 |window..|.K |
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022d0| 20 3a f4 20 74 69 74 6c | 65 20 61 73 20 77 65 20 | :. titl|e as we |
|000022e0| 77 69 6c 6c 20 62 65 20 | 61 64 64 69 6e 67 20 22 |will be |adding "|
|000022f0| 20 2a 22 20 74 6f 20 69 | 74 20 74 6f 20 73 68 6f | *" to i|t to sho|
|00002300| 77 0d 07 1c 4c 20 20 20 | 20 20 20 20 20 20 20 20 |w...L | |
|00002310| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 74 | | :. t|
|00002320| 68 65 20 64 61 74 61 20 | 66 69 6c 65 20 68 61 73 |he data |file has|
|00002330| 20 62 65 65 6e 20 65 64 | 69 74 65 64 2e 20 44 6f | been ed|ited. Do|
|00002340| 6e 27 74 20 66 6f 72 67 | 65 74 20 74 6f 0d 07 26 |n't forg|et to..&|
|00002350| 4b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |K | |
|00002360| 20 20 20 20 20 20 20 20 | 3a f4 20 63 68 61 6e 67 | |:. chang|
|00002370| 65 20 69 74 20 69 6e 20 | 74 68 65 20 74 65 6d 70 |e it in |the temp|
|00002380| 6c 61 74 65 20 66 69 6c | 65 20 61 73 20 77 65 6c |late fil|e as wel|
|00002390| 6c 20 69 66 20 79 6f 75 | 0d 07 30 34 20 20 20 20 |l if you|..04 |
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023b0| 20 20 20 3a f4 20 77 61 | 6e 74 20 61 20 64 69 66 | :. wa|nt a dif|
|000023c0| 66 65 72 65 6e 74 20 74 | 69 74 6c 65 0d 07 3a 4a |ferent t|itle..:J|
|000023d0| 63 75 72 72 65 6e 74 5f | 72 65 63 25 20 3d 20 31 |current_|rec% = 1|
|000023e0| 20 20 20 20 20 20 20 3a | f4 20 54 68 65 20 6e 75 | :|. The nu|
|000023f0| 6d 62 65 72 20 6f 66 20 | 74 68 65 20 63 75 72 72 |mber of |the curr|
|00002400| 65 6e 74 6c 79 20 64 69 | 73 70 6c 61 79 65 64 20 |ently di|splayed |
|00002410| 72 65 63 6f 72 64 0d 07 | 44 45 6d 79 5f 66 69 6c |record..|DEmy_fil|
|00002420| 65 74 79 70 65 25 20 3d | 20 26 46 46 41 20 20 20 |etype% =| &FFA |
|00002430| 20 3a f4 20 54 68 65 20 | 66 69 6c 65 74 79 70 65 | :. The |filetype|
|00002440| 20 74 68 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | the app|lication|
|00002450| 20 27 6f 77 6e 73 27 20 | 61 6e 64 0d 07 4e 43 20 | 'owns' |and..NC |
|00002460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002470| 20 20 20 20 20 20 3a f4 | 20 72 65 73 70 6f 6e 64 | :.| respond|
|00002480| 73 20 74 6f 20 77 68 65 | 6e 20 74 68 65 20 64 61 |s to whe|n the da|
|00002490| 74 61 66 69 6c 65 20 69 | 63 6f 6e 20 69 73 0d 07 |tafile i|con is..|
|000024a0| 58 49 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |XI | |
|000024b0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 64 6f 75 62 | | :. doub|
|000024c0| 6c 65 20 63 6c 69 63 6b | 65 64 2e 20 49 66 20 79 |le click|ed. If y|
|000024d0| 6f 75 20 63 68 61 6e 67 | 65 20 74 68 69 73 20 79 |ou chang|e this y|
|000024e0| 6f 75 20 6d 75 73 74 0d | 07 62 4b 20 20 20 20 20 |ou must.|.bK |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002500| 20 20 3a f4 20 63 68 61 | 6e 67 65 20 74 68 65 20 | :. cha|nge the |
|00002510| 2a 53 65 74 20 52 75 6e | 40 54 79 70 65 20 76 61 |*Set Run|@Type va|
|00002520| 72 69 61 62 6c 65 20 69 | 6e 20 74 68 65 20 21 52 |riable i|n the !R|
|00002530| 55 4e 0d 07 6c 4a 20 20 | 20 20 20 20 20 20 20 20 |UN..lJ | |
|00002540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 | | :. |
|00002550| 66 69 6c 65 20 61 6e 64 | 20 74 68 65 20 2a 53 65 |file and| the *Se|
|00002560| 74 20 46 69 6c 65 24 40 | 54 79 70 65 5f 78 78 78 |t File$@|Type_xxx|
|00002570| 20 6c 69 6e 65 20 69 6e | 20 74 68 65 0d 07 76 28 | line in| the..v(|
|00002580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002590| 20 20 20 20 20 20 20 3a | f4 20 21 42 6f 6f 74 20 | :|. !Boot |
|000025a0| 66 69 6c 65 0d 07 80 39 | 63 75 72 72 65 6e 74 5f |file...9|current_|
|000025b0| 66 69 6c 65 24 20 3d 20 | 22 22 20 20 20 20 20 3a |file$ = |"" :|
|000025c0| f4 20 4e 61 6d 65 20 6f | 66 20 74 68 65 20 6c 6f |. Name o|f the lo|
|000025d0| 61 64 65 64 20 64 61 74 | 61 66 69 6c 65 0d 07 8a |aded dat|afile...|
|000025e0| 33 74 69 63 6b 25 20 20 | 20 20 20 20 20 20 20 3d |3tick% | =|
|000025f0| 20 a3 20 20 3a f4 20 55 | 73 65 64 20 69 6e 20 74 | . :. U|sed in t|
|00002600| 68 65 20 73 75 62 2d 6d | 65 6e 75 20 64 65 6d 6f |he sub-m|enu demo|
|00002610| 0d 07 94 33 73 68 61 64 | 65 64 25 20 20 20 20 20 |...3shad|ed% |
|00002620| 20 20 3d 20 a3 20 20 3a | f4 20 55 73 65 64 20 69 | = . :|. Used i|
|00002630| 6e 20 74 68 65 20 73 75 | 62 2d 6d 65 6e 75 20 64 |n the su|b-menu d|
|00002640| 65 6d 6f 0d 07 9e 44 de | 20 62 75 66 66 65 72 31 |emo...D.| buffer1|
|00002650| 25 20 31 36 2c 62 75 66 | 66 65 72 32 25 20 31 36 |% 16,buf|fer2% 16|
|00002660| 2c 62 75 66 66 65 72 33 | 25 20 31 36 20 3a f4 20 |,buffer3|% 16 :. |
|00002670| 69 6e 64 69 72 65 63 74 | 65 64 20 6d 65 6e 75 20 |indirect|ed menu |
|00002680| 62 75 66 66 65 72 73 0d | 07 a8 2f 24 62 75 66 66 |buffers.|../$buff|
|00002690| 65 72 31 25 3d 22 26 31 | 35 35 30 22 3a 24 62 75 |er1%="&1|550":$bu|
|000026a0| 66 66 65 72 32 25 3d 22 | 22 3a 24 62 75 66 66 65 |ffer2%="|":$buffe|
|000026b0| 72 33 25 3d 22 22 0d 07 | b2 3e de 20 66 64 61 74 |r3%=""..|.>. fdat|
|000026c0| 65 25 20 35 2c 66 62 75 | 66 66 65 72 25 20 32 38 |e% 5,fbu|ffer% 28|
|000026d0| 20 20 3a f4 20 55 73 65 | 64 20 62 79 20 74 68 65 | :. Use|d by the|
|000026e0| 20 27 66 69 6c 65 5f 64 | 61 74 65 27 20 72 6f 75 | 'file_d|ate' rou|
|000026f0| 74 69 6e 65 0d 07 bc 04 | 0d 07 c6 4c f4 20 2d 2d |tine....|...L. --|
|00002700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002710| 2d 2d 20 50 69 63 6b 20 | 55 70 20 46 69 6c 65 20 |-- Pick |Up File |
|00002720| 4e 61 6d 65 20 46 72 6f | 6d 20 43 6f 6d 6d 61 6e |Name Fro|m Comman|
|00002730| 64 20 4c 69 6e 65 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d Line -|--------|
|00002740| 2d 2d 2d 2d 0d 07 d0 04 | 0d 07 da 44 f4 20 54 68 |----....|...D. Th|
|00002750| 69 73 20 73 65 63 74 69 | 6f 6e 20 69 73 20 75 73 |is secti|on is us|
|00002760| 65 64 20 77 68 65 6e 20 | 74 68 65 20 61 70 70 6c |ed when |the appl|
|00002770| 69 63 61 74 69 6f 6e 20 | 69 73 20 73 74 61 72 74 |ication |is start|
|00002780| 65 64 20 62 79 20 64 6f | 75 62 6c 65 0d 07 e4 47 |ed by do|uble...G|
|00002790| f4 20 63 6c 69 63 6b 69 | 6e 67 20 6f 6e 20 61 20 |. clicki|ng on a |
|000027a0| 64 61 74 61 66 69 6c 65 | 20 6f 66 20 74 68 65 20 |datafile| of the |
|000027b0| 74 79 70 65 20 72 65 63 | 6f 67 6e 69 73 65 64 20 |type rec|ognised |
|000027c0| 62 79 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |by the a|pplicati|
|000027d0| 6f 6e 2e 0d 07 ee 49 f4 | 20 41 6c 6c 20 79 6f 75 |on....I.| All you|
|000027e0| 20 6e 65 65 64 20 74 6f | 20 6b 6e 6f 77 20 61 62 | need to| know ab|
|000027f0| 6f 75 74 20 74 68 69 73 | 20 70 61 72 74 20 69 73 |out this| part is|
|00002800| 20 74 68 61 74 20 69 66 | 20 74 68 65 20 61 70 70 | that if| the app|
|00002810| 6c 69 63 61 74 69 6f 6e | 20 77 61 73 0d 07 f8 47 |lication| was...G|
|00002820| f4 20 73 74 61 72 74 65 | 64 20 62 79 20 64 6f 75 |. starte|d by dou|
|00002830| 62 6c 65 20 63 6c 69 63 | 6b 69 6e 67 20 6f 6e 20 |ble clic|king on |
|00002840| 61 20 66 69 6c 65 20 74 | 68 65 6e 20 63 75 72 72 |a file t|hen curr|
|00002850| 65 6e 74 5f 66 69 6c 65 | 24 20 69 73 20 73 65 74 |ent_file|$ is set|
|00002860| 20 74 6f 0d 08 02 3e f4 | 20 74 68 65 20 6e 61 6d | to...>.| the nam|
|00002870| 65 20 6f 66 20 74 68 65 | 20 66 69 6c 65 2c 20 6f |e of the| file, o|
|00002880| 74 68 65 72 77 69 73 65 | 20 63 75 72 72 65 6e 74 |therwise| current|
|00002890| 5f 66 69 6c 65 24 20 65 | 71 75 61 6c 73 20 22 22 |_file$ e|quals ""|
|000028a0| 2e 0d 08 0c 04 0d 08 16 | 22 c8 99 20 22 4f 53 5f |........|".. "OS_|
|000028b0| 47 65 74 45 6e 76 22 20 | b8 20 63 75 72 72 65 6e |GetEnv" |. curren|
|000028c0| 74 5f 66 69 6c 65 24 0d | 08 20 14 61 24 3d 63 75 |t_file$.|. .a$=cu|
|000028d0| 72 72 65 6e 74 5f 66 69 | 6c 65 24 0d 08 2a 31 70 |rrent_fi|le$..*1p|
|000028e0| 3d a7 63 75 72 72 65 6e | 74 5f 66 69 6c 65 24 2c |=.curren|t_file$,|
|000028f0| 22 22 22 22 2c a7 63 75 | 72 72 65 6e 74 5f 66 69 |"""",.cu|rrent_fi|
|00002900| 6c 65 24 2c 22 22 22 22 | 29 2b 31 29 0d 08 34 25 |le$,""""|)+1)..4%|
|00002910| 63 75 72 72 65 6e 74 5f | 66 69 6c 65 24 3d c1 63 |current_|file$=.c|
|00002920| 75 72 72 65 6e 74 5f 66 | 69 6c 65 24 2c 70 2b 31 |urrent_f|ile$,p+1|
|00002930| 29 0d 08 3e 1c c8 95 20 | c0 63 75 72 72 65 6e 74 |)..>... |.current|
|00002940| 5f 66 69 6c 65 24 2c 31 | 29 3d 22 20 22 0d 08 48 |_file$,1|)=" "..H|
|00002950| 25 20 20 63 75 72 72 65 | 6e 74 5f 66 69 6c 65 24 |% curre|nt_file$|
|00002960| 3d c1 63 75 72 72 65 6e | 74 5f 66 69 6c 65 24 2c |=.curren|t_file$,|
|00002970| 32 29 0d 08 52 05 ce 0d | 08 5c 04 0d 08 66 4c f4 |2)..R...|.\...fL.|
|00002980| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00002990| 2d 2d 2d 2d 2d 20 4c 6f | 61 64 20 54 65 6d 70 6c |----- Lo|ad Templ|
|000029a0| 61 74 65 20 46 69 6c 65 | 73 20 2d 2d 2d 2d 2d 2d |ate File|s ------|
|000029b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029c0| 2d 2d 2d 2d 2d 2d 2d 0d | 08 70 04 0d 08 7a 47 f4 |-------.|.p...zG.|
|000029d0| 20 54 68 69 73 20 21 53 | 68 65 6c 6c 20 61 70 70 | This !S|hell app|
|000029e0| 6c 69 63 61 74 69 6f 6e | 20 68 61 73 20 61 20 27 |lication| has a '|
|000029f0| 54 65 6d 70 6c 61 74 65 | 73 27 20 66 69 6c 65 20 |Template|s' file |
|00002a00| 77 68 69 63 68 20 69 6e | 63 6c 75 64 65 73 20 74 |which in|cludes t|
|00002a10| 68 65 0d 08 84 4a f4 20 | 73 74 61 6e 64 61 72 64 |he...J. |standard|
|00002a20| 20 52 49 53 43 2d 4f 53 | 20 74 65 6d 70 6c 61 74 | RISC-OS| templat|
|00002a30| 65 73 20 77 68 69 63 68 | 20 73 68 6f 75 6c 64 20 |es which| should |
|00002a40| 62 65 20 75 73 65 64 20 | 62 79 20 61 6c 6c 20 61 |be used |by all a|
|00002a50| 70 70 6c 69 63 61 74 69 | 6f 6e 73 2e 0d 08 8e 49 |pplicati|ons....I|
|00002a60| f4 20 49 66 20 79 6f 75 | 20 6c 6f 61 64 20 69 74 |. If you| load it|
|00002a70| 20 69 6e 74 6f 20 21 46 | 6f 72 6d 45 64 20 79 6f | into !F|ormEd yo|
|00002a80| 75 20 77 69 6c 6c 20 66 | 69 6e 64 20 74 68 65 6d |u will f|ind them|
|00002a90| 20 77 69 74 68 20 74 68 | 65 20 69 64 65 6e 74 69 | with th|e identi|
|00002aa0| 66 69 65 72 73 0d 08 98 | 36 f4 20 27 70 72 6f 67 |fiers...|6. 'prog|
|00002ab0| 49 6e 66 6f 27 2c 20 27 | 71 75 65 72 79 27 2c 20 |Info', '|query', |
|00002ac0| 27 66 69 6c 65 69 6e 66 | 6f 27 20 61 6e 64 20 27 |'fileinf|o' and '|
|00002ad0| 78 66 65 72 5f 73 65 6e | 64 27 2e 0d 08 a2 04 0d |xfer_sen|d'......|
|00002ae0| 08 ac 2f f4 20 54 68 65 | 20 73 74 61 6e 64 61 72 |../. The| standar|
|00002af0| 64 20 77 69 6e 64 6f 77 | 73 20 61 72 65 20 75 73 |d window|s are us|
|00002b00| 65 64 20 61 73 20 66 6f | 6c 6c 6f 77 73 3a 0d 08 |ed as fo|llows:..|
|00002b10| b6 04 0d 08 c0 47 f4 20 | 20 20 70 72 6f 67 49 6e |.....G. | progIn|
|00002b20| 66 6f 20 20 2d 20 67 69 | 76 65 73 20 74 68 65 20 |fo - gi|ves the |
|00002b30| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 61 70 70 6c |name of |the appl|
|00002b40| 69 63 61 74 69 6f 6e 2c | 20 74 68 65 20 70 75 72 |ication,| the pur|
|00002b50| 70 6f 73 65 2c 20 74 68 | 65 0d 08 ca 4b f4 20 20 |pose, th|e...K. |
|00002b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 75 74 | | aut|
|00002b70| 68 6f 72 20 61 6e 64 20 | 74 68 65 20 76 65 72 73 |hor and |the vers|
|00002b80| 69 6f 6e 20 6e 75 6d 62 | 65 72 2e 20 41 70 70 65 |ion numb|er. Appe|
|00002b90| 61 72 73 20 77 68 65 6e | 20 74 68 65 20 70 6f 69 |ars when| the poi|
|00002ba0| 6e 74 65 72 0d 08 d4 45 | f4 20 20 20 20 20 20 20 |nter...E|. |
|00002bb0| 20 20 20 20 20 20 20 20 | 69 73 20 6d 6f 76 65 64 | |is moved|
|00002bc0| 20 74 6f 20 74 68 65 20 | 72 69 67 68 74 20 6f 66 | to the |right of|
|00002bd0| 20 74 68 65 20 27 49 6e | 66 6f 27 20 6f 70 74 69 | the 'In|fo' opti|
|00002be0| 6f 6e 20 6f 6e 20 74 68 | 65 0d 08 de 47 f4 20 20 |on on th|e...G. |
|00002bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 63 6f | | ico|
|00002c00| 6e 62 61 72 20 6d 65 6e | 75 2e 20 54 68 65 72 65 |nbar men|u. There|
|00002c10| 20 73 68 6f 75 6c 64 20 | 61 6c 73 6f 20 62 65 20 | should |also be |
|00002c20| 61 6e 20 27 49 6e 66 6f | 27 20 6f 70 74 69 6f 6e |an 'Info|' option|
|00002c30| 0d 08 e8 43 f4 20 20 20 | 20 20 20 20 20 20 20 20 |...C. | |
|00002c40| 20 20 20 20 61 74 20 74 | 6f 70 20 6f 66 20 74 68 | at t|op of th|
|00002c50| 65 20 6d 61 69 6e 20 77 | 69 6e 64 6f 77 20 6d 65 |e main w|indow me|
|00002c60| 6e 75 20 61 63 63 6f 72 | 64 69 6e 67 20 74 6f 20 |nu accor|ding to |
|00002c70| 74 68 65 0d 08 f2 32 f4 | 20 20 20 20 20 20 20 20 |the...2.| |
|00002c80| 20 20 20 20 20 20 20 52 | 49 53 43 2d 4f 53 20 61 | R|ISC-OS a|
|00002c90| 70 70 6c 69 63 61 74 69 | 6f 6e 20 67 75 69 64 65 |pplicati|on guide|
|00002ca0| 6c 69 6e 65 73 0d 08 fc | 49 f4 20 20 20 71 75 65 |lines...|I. que|
|00002cb0| 72 79 20 20 20 20 20 2d | 20 61 20 71 75 65 73 74 |ry -| a quest|
|00002cc0| 69 6f 6e 20 77 69 6e 64 | 6f 77 20 63 6f 6e 73 69 |ion wind|ow consi|
|00002cd0| 73 74 69 6e 67 20 6f 66 | 20 73 65 76 65 72 61 6c |sting of| several|
|00002ce0| 20 6c 69 6e 65 73 20 6f | 66 20 74 65 78 74 0d 09 | lines o|f text..|
|00002cf0| 06 2f f4 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |./. | |
|00002d00| 20 20 61 6e 64 20 27 43 | 61 6e 63 65 6c 27 20 61 | and 'C|ancel' a|
|00002d10| 6e 64 20 27 4f 6b 27 20 | 69 63 6f 6e 73 0d 09 10 |nd 'Ok' |icons...|
|00002d20| 46 f4 20 20 20 66 69 6c | 65 49 6e 66 6f 20 20 2d |F. fil|eInfo -|
|00002d30| 20 67 69 76 65 73 20 64 | 65 74 61 69 6c 73 20 6f | gives d|etails o|
|00002d40| 6e 20 74 68 65 20 66 69 | 6c 65 20 6c 6f 61 64 65 |n the fi|le loade|
|00002d50| 64 20 6f 72 20 63 72 65 | 61 74 65 64 20 62 79 20 |d or cre|ated by |
|00002d60| 74 68 65 0d 09 1a 1b f4 | 20 20 20 20 20 20 20 20 |the.....| |
|00002d70| 20 20 20 20 20 20 20 70 | 72 6f 67 72 61 6d 0d 09 | p|rogram..|
|00002d80| 24 2b f4 20 20 20 78 66 | 65 72 5f 73 65 6e 64 20 |$+. xf|er_send |
|00002d90| 2d 20 74 68 65 20 52 49 | 53 43 2d 4f 53 20 73 61 |- the RI|SC-OS sa|
|00002da0| 76 65 20 77 69 6e 64 6f | 77 0d 09 2e 04 0d 09 38 |ve windo|w......8|
|00002db0| 4c f4 20 4e 6f 74 65 20 | 74 68 61 74 20 74 68 65 |L. Note |that the|
|00002dc0| 20 70 6f 73 69 74 69 6f | 6e 20 6f 66 20 74 68 65 | positio|n of the|
|00002dd0| 20 27 71 75 65 72 79 27 | 20 77 69 6e 64 6f 77 20 | 'query'| window |
|00002de0| 69 73 20 73 65 74 20 69 | 6e 20 74 68 65 20 27 54 |is set i|n the 'T|
|00002df0| 65 6d 70 6c 61 74 65 73 | 27 0d 09 42 46 f4 20 66 |emplates|'..BF. f|
|00002e00| 69 6c 65 2e 20 54 6f 20 | 63 68 61 6e 67 65 20 69 |ile. To |change i|
|00002e10| 74 20 6c 6f 61 64 20 74 | 68 65 20 74 65 6d 70 6c |t load t|he templ|
|00002e20| 61 74 65 20 66 69 6c 65 | 20 69 6e 74 6f 20 21 46 |ate file| into !F|
|00002e30| 6f 72 6d 45 64 2c 20 64 | 72 61 67 20 74 68 65 0d |ormEd, d|rag the.|
|00002e40| 09 4c 48 f4 20 77 69 6e | 64 6f 77 20 74 6f 20 74 |.LH. win|dow to t|
|00002e50| 68 65 20 6e 65 77 20 70 | 6f 73 69 74 69 6f 6e 20 |he new p|osition |
|00002e60| 61 6e 64 20 74 68 65 20 | 72 65 73 61 76 65 20 69 |and the |resave i|
|00002e70| 74 2e 20 54 68 69 73 20 | 61 6c 73 6f 20 61 70 70 |t. This |also app|
|00002e80| 6c 69 65 73 20 74 6f 0d | 09 56 19 f4 20 74 68 65 |lies to.|.V.. the|
|00002e90| 20 27 6d 61 69 6e 77 27 | 20 77 69 6e 64 6f 77 2e | 'mainw'| window.|
|00002ea0| 0d 09 60 04 0d 09 6a 49 | f4 20 57 68 65 6e 20 63 |..`...jI|. When c|
|00002eb0| 72 65 61 74 69 6e 67 20 | 65 78 74 72 61 20 77 69 |reating |extra wi|
|00002ec0| 6e 64 6f 77 73 20 66 6f | 72 20 79 6f 75 72 20 6f |ndows fo|r your o|
|00002ed0| 77 6e 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 73 20 |wn appli|cations |
|00002ee0| 6d 61 6b 65 20 61 20 73 | 6b 65 74 63 68 0d 09 74 |make a s|ketch..t|
|00002ef0| 44 f4 20 6f 66 20 74 68 | 65 20 69 63 6f 6e 73 20 |D. of th|e icons |
|00002f00| 61 6e 64 20 6e 6f 74 65 | 20 74 68 65 69 72 20 6e |and note| their n|
|00002f10| 75 6d 62 65 72 73 20 2d | 20 61 63 63 6f 72 64 69 |umbers -| accordi|
|00002f20| 6e 67 20 74 6f 20 74 68 | 65 20 52 49 53 43 2d 4f |ng to th|e RISC-O|
|00002f30| 53 0d 09 7e 49 f4 20 61 | 70 70 6c 69 63 61 74 69 |S..~I. a|pplicati|
|00002f40| 6f 6e 20 67 75 69 64 65 | 6c 69 6e 65 73 20 61 70 |on guide|lines ap|
|00002f50| 70 6c 69 63 61 74 69 6f | 6e 73 20 61 72 65 20 61 |plicatio|ns are a|
|00002f60| 6c 6c 6f 77 65 64 20 74 | 6f 20 6d 61 6b 65 20 61 |llowed t|o make a|
|00002f70| 73 73 75 6d 70 74 69 6f | 6e 73 0d 09 88 47 f4 20 |ssumptio|ns...G. |
|00002f80| 61 62 6f 75 74 20 74 68 | 65 20 6e 75 6d 62 65 72 |about th|e number|
|00002f90| 73 20 61 6e 64 20 63 68 | 61 72 61 63 74 65 72 69 |s and ch|aracteri|
|00002fa0| 73 74 69 63 73 20 6f 66 | 20 74 68 65 20 69 63 6f |stics of| the ico|
|00002fb0| 6e 73 20 61 6e 64 20 77 | 69 6e 64 6f 77 73 20 69 |ns and w|indows i|
|00002fc0| 6e 0d 09 92 49 f4 20 74 | 68 65 69 72 20 74 65 6d |n...I. t|heir tem|
|00002fd0| 70 6c 61 74 65 20 66 69 | 6c 65 73 2e 20 54 68 69 |plate fi|les. Thi|
|00002fe0| 73 20 69 73 20 70 61 72 | 74 69 63 75 6c 61 72 6c |s is par|ticularl|
|00002ff0| 79 20 69 6d 70 6f 72 74 | 61 6e 74 20 66 6f 72 20 |y import|ant for |
|00003000| 69 63 6f 6e 73 20 74 68 | 61 74 0d 09 9c 4b f4 20 |icons th|at...K. |
|00003010| 74 68 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |the appl|ication |
|00003020| 70 6c 61 63 65 73 20 69 | 6e 66 6f 72 6d 61 74 69 |places i|nformati|
|00003030| 6f 6e 20 69 6e 20 61 74 | 20 72 75 6e 20 74 69 6d |on in at| run tim|
|00003040| 65 20 73 75 63 68 20 61 | 73 20 74 68 65 20 76 65 |e such a|s the ve|
|00003050| 72 73 69 6f 6e 0d 09 a6 | 46 f4 20 69 63 6f 6e 20 |rsion...|F. icon |
|00003060| 69 6e 20 74 68 65 20 70 | 72 6f 67 49 6e 66 6f 20 |in the p|rogInfo |
|00003070| 77 69 6e 64 6f 77 2e 20 | 59 6f 75 20 6d 75 73 74 |window. |You must|
|00003080| 20 65 6e 73 75 72 65 20 | 74 68 61 74 20 73 75 63 | ensure |that suc|
|00003090| 68 20 69 63 6f 6e 73 20 | 61 72 65 0d 09 b0 47 f4 |h icons |are...G.|
|000030a0| 20 73 65 74 20 74 6f 20 | 27 69 6e 64 69 72 65 63 | set to |'indirec|
|000030b0| 74 65 64 27 20 69 6e 20 | 74 68 65 20 74 65 6d 70 |ted' in |the temp|
|000030c0| 6c 61 74 65 20 66 69 6c | 65 20 28 75 73 69 6e 67 |late fil|e (using|
|000030d0| 20 21 46 6f 72 6d 45 64 | 29 20 61 6e 64 20 74 68 | !FormEd|) and th|
|000030e0| 61 74 0d 09 ba 48 f4 20 | 74 68 65 20 61 70 70 6c |at...H. |the appl|
|000030f0| 69 63 61 74 69 6f 6e 20 | 64 6f 65 73 20 6e 6f 74 |ication |does not|
|00003100| 20 61 74 74 65 6d 70 74 | 20 74 6f 20 77 72 69 74 | attempt| to writ|
|00003110| 65 20 64 61 74 61 20 74 | 6f 20 61 20 6e 6f 6e 2d |e data t|o a non-|
|00003120| 69 6e 64 69 72 65 63 74 | 65 64 0d 09 c4 4b f4 20 |indirect|ed...K. |
|00003130| 69 63 6f 6e 20 61 73 20 | 74 68 69 73 20 75 73 75 |icon as |this usu|
|00003140| 61 6c 6c 79 20 72 65 73 | 75 6c 74 73 20 69 6e 20 |ally res|ults in |
|00003150| 61 6e 20 61 64 64 72 65 | 73 73 20 65 78 63 65 70 |an addre|ss excep|
|00003160| 74 69 6f 6e 20 65 72 72 | 6f 72 21 20 53 69 6d 69 |tion err|or! Simi|
|00003170| 6c 61 72 6c 79 0d 09 ce | 46 f4 20 77 69 6e 64 6f |larly...|F. windo|
|00003180| 77 73 20 77 69 74 68 20 | 74 69 74 6c 65 73 20 63 |ws with |titles c|
|00003190| 68 61 6e 67 65 64 20 61 | 74 20 72 75 6e 20 74 69 |hanged a|t run ti|
|000031a0| 6d 65 20 28 73 75 63 68 | 20 61 73 20 27 6d 61 69 |me (such| as 'mai|
|000031b0| 6e 77 27 20 69 6e 20 74 | 68 69 73 0d 09 d8 45 f4 |nw' in t|his...E.|
|000031c0| 20 70 72 6f 67 72 61 6d | 29 20 6d 75 73 74 20 62 | program|) must b|
|000031d0| 65 20 27 69 6e 64 69 72 | 65 63 74 65 64 27 2e 20 |e 'indir|ected'. |
|000031e0| 54 68 69 73 20 69 73 20 | 64 75 65 20 74 6f 20 77 |This is |due to w|
|000031f0| 65 61 6b 6e 65 73 73 65 | 73 20 69 6e 20 74 68 65 |eaknesse|s in the|
|00003200| 0d 09 e2 45 f4 20 6c 69 | 62 72 61 72 79 20 72 6f |...E. li|brary ro|
|00003210| 75 74 69 6e 65 73 20 69 | 2e 65 2e 20 74 68 65 79 |utines i|.e. they|
|00003220| 20 64 6f 6e 27 74 20 62 | 6f 74 68 65 72 20 74 6f | don't b|other to|
|00003230| 20 63 68 65 63 6b 20 69 | 66 20 74 68 65 20 69 63 | check i|f the ic|
|00003240| 6f 6e 20 6f 72 0d 09 ec | 23 f4 20 74 69 74 6c 65 |on or...|#. title|
|00003250| 20 64 61 74 61 20 69 73 | 20 6e 6f 74 20 69 6e 64 | data is| not ind|
|00003260| 69 72 65 63 74 65 64 2e | 0d 09 f6 04 0d 0a 00 48 |irected.|.......H|
|00003270| f4 20 4e 6f 74 65 20 74 | 68 65 20 76 61 72 69 61 |. Note t|he varia|
|00003280| 62 6c 65 73 20 72 65 74 | 75 72 6e 65 64 20 66 72 |bles ret|urned fr|
|00003290| 6f 6d 20 74 68 65 20 22 | 57 69 6d 70 5f 43 72 65 |om the "|Wimp_Cre|
|000032a0| 61 74 65 57 69 6e 64 6f | 77 22 20 63 61 6c 6c 20 |ateWindo|w" call |
|000032b0| 28 69 2e 65 0d 0a 0a 48 | f4 20 71 75 65 72 79 25 |(i.e...H|. query%|
|000032c0| 2c 20 69 6e 66 6f 25 2c | 20 78 66 65 72 25 20 65 |, info%,| xfer% e|
|000032d0| 74 63 29 2e 20 54 68 65 | 73 65 20 61 72 65 20 74 |tc). The|se are t|
|000032e0| 68 65 20 77 69 6e 64 6f | 77 20 68 61 6e 64 6c 65 |he windo|w handle|
|000032f0| 73 20 77 68 69 63 68 20 | 57 49 4d 50 0d 0a 14 46 |s which |WIMP...F|
|00003300| f4 20 70 72 6f 67 72 61 | 6d 73 20 75 73 65 20 74 |. progra|ms use t|
|00003310| 6f 20 72 65 66 65 72 20 | 74 6f 20 74 68 65 20 77 |o refer |to the w|
|00003320| 69 6e 64 6f 77 73 2e 20 | 41 73 20 79 6f 75 20 63 |indows. |As you c|
|00003330| 61 6e 20 73 65 65 20 74 | 68 65 20 68 61 6e 64 6c |an see t|he handl|
|00003340| 65 73 0d 0a 1e 47 f4 20 | 6e 65 65 64 20 6e 6f 74 |es...G. |need not|
|00003350| 20 62 65 20 74 68 65 20 | 73 61 6d 65 20 61 73 20 | be the |same as |
|00003360| 74 68 65 20 77 69 6e 64 | 6f 77 20 27 69 64 65 6e |the wind|ow 'iden|
|00003370| 74 69 66 69 65 72 73 27 | 20 77 68 69 63 68 20 79 |tifiers'| which y|
|00003380| 6f 75 20 73 65 74 20 75 | 70 0d 0a 28 2a f4 20 77 |ou set u|p..(*. w|
|00003390| 68 65 6e 20 64 65 66 69 | 6e 69 6e 67 20 74 68 65 |hen defi|ning the|
|000033a0| 20 77 69 6e 64 6f 77 20 | 69 6e 20 21 46 6f 72 6d | window |in !Form|
|000033b0| 45 64 2e 0d 0a 32 04 0d | 0a 3c 4a f4 20 4f 62 76 |Ed...2..|.<J. Obv|
|000033c0| 69 6f 75 73 6c 79 20 74 | 68 65 20 3c 53 68 65 6c |iously t|he <Shel|
|000033d0| 6c 24 44 69 72 3e 20 62 | 69 74 20 77 69 6c 6c 20 |l$Dir> b|it will |
|000033e0| 6e 65 65 64 20 63 68 61 | 6e 67 69 6e 67 20 74 6f |need cha|nging to|
|000033f0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 79 6f 75 | the nam|e of you|
|00003400| 72 0d 0a 46 15 f4 20 6f | 77 6e 20 61 70 70 6c 69 |r..F.. o|wn appli|
|00003410| 63 61 74 69 6f 6e 0d 0a | 50 04 0d 0a 5a 2d f2 6f |cation..|P...Z-.o|
|00003420| 70 65 6e 74 65 6d 70 6c | 61 74 65 66 69 6c 65 28 |pentempl|atefile(|
|00003430| 70 61 74 68 6e 61 6d 65 | 24 2b 22 2e 54 65 6d 70 |pathname|$+".Temp|
|00003440| 6c 61 74 65 73 22 29 0d | 0a 64 1f f4 20 50 52 4f |lates").|.d.. PRO|
|00003450| 43 6c 6f 61 64 74 65 6d | 70 6c 61 74 65 28 22 71 |Cloadtem|plate("q|
|00003460| 75 65 72 79 22 29 0d 0a | 6e 2b f4 20 53 59 53 20 |uery")..|n+. SYS |
|00003470| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00003480| 6f 77 22 2c 2c 71 25 20 | 54 4f 20 71 75 65 72 79 |ow",,q% |TO query|
|00003490| 25 0d 0a 78 19 f2 6c 6f | 61 64 74 65 6d 70 6c 61 |%..x..lo|adtempla|
|000034a0| 74 65 28 22 49 6e 66 6f | 22 29 0d 0a 82 26 c8 99 |te("Info|")...&..|
|000034b0| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 57 69 6e | "Wimp_C|reateWin|
|000034c0| 64 6f 77 22 2c 2c 71 25 | 20 b8 20 69 6e 66 6f 25 |dow",,q%| . info%|
|000034d0| 0d 0a 8c 1e f2 6c 6f 61 | 64 74 65 6d 70 6c 61 74 |.....loa|dtemplat|
|000034e0| 65 28 22 78 66 65 72 5f | 73 65 6e 64 22 29 0d 0a |e("xfer_|send")..|
|000034f0| 96 26 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.&.. "Wi|mp_Creat|
|00003500| 65 57 69 6e 64 6f 77 22 | 2c 2c 71 25 20 b8 20 78 |eWindow"|,,q% . x|
|00003510| 66 65 72 25 0d 0a a0 22 | f4 20 50 52 4f 43 6c 6f |fer%..."|. PROClo|
|00003520| 61 64 74 65 6d 70 6c 61 | 74 65 28 22 66 69 6c 65 |adtempla|te("file|
|00003530| 49 6e 66 6f 22 29 0d 0a | aa 2b f4 20 53 59 53 20 |Info")..|.+. SYS |
|00003540| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00003550| 6f 77 22 2c 2c 71 25 20 | 54 4f 20 66 69 6e 66 6f |ow",,q% |TO finfo|
|00003560| 25 0d 0a b4 1a f2 6c 6f | 61 64 74 65 6d 70 6c 61 |%.....lo|adtempla|
|00003570| 74 65 28 22 6d 61 69 6e | 77 22 29 0d 0a be 4a 71 |te("main|w")...Jq|
|00003580| 25 21 36 34 3d 73 70 20 | 3a f4 20 61 6e 79 20 77 |%!64=sp |:. any w|
|00003590| 69 6e 64 6f 77 20 75 73 | 69 6e 67 20 73 70 72 69 |indow us|ing spri|
|000035a0| 74 65 73 20 66 72 6f 6d | 20 74 68 65 20 75 73 65 |tes from| the use|
|000035b0| 72 20 61 72 65 61 20 73 | 68 6f 75 6c 64 20 64 6f |r area s|hould do|
|000035c0| 20 74 68 69 73 0d 0a c8 | 4a 20 20 20 20 20 20 20 | this...|J |
|000035d0| 20 20 3a f4 20 62 65 66 | 6f 72 65 20 63 72 65 61 | :. bef|ore crea|
|000035e0| 74 69 6e 67 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |ting the| window |
|000035f0| 2d 20 74 68 69 73 20 74 | 65 6c 6c 73 20 74 68 65 |- this t|ells the|
|00003600| 20 77 69 6e 64 6f 77 20 | 6d 61 6e 61 67 65 72 0d | window |manager.|
|00003610| 0a d2 34 20 20 20 20 20 | 20 20 20 20 3a f4 20 74 |..4 | :. t|
|00003620| 6f 20 66 69 6e 64 20 74 | 68 65 20 73 70 72 69 74 |o find t|he sprit|
|00003630| 65 73 20 69 6e 20 74 68 | 65 20 75 73 65 72 20 61 |es in th|e user a|
|00003640| 72 65 61 0d 0a dc 27 c8 | 99 20 22 57 69 6d 70 5f |rea...'.|. "Wimp_|
|00003650| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 71 |CreateWi|ndow",,q|
|00003660| 25 20 b8 20 6d 61 69 6e | 77 25 0d 0a e6 20 f4 20 |% . main|w%... . |
|00003670| 50 52 4f 43 6c 6f 61 64 | 74 65 6d 70 6c 61 74 65 |PROCload|template|
|00003680| 28 22 73 65 61 72 63 68 | 22 29 0d 0a f0 2c f4 20 |("search|")...,. |
|00003690| 53 59 53 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |SYS "Wim|p_Create|
|000036a0| 57 69 6e 64 6f 77 22 2c | 2c 71 25 20 54 4f 20 73 |Window",|,q% TO s|
|000036b0| 65 61 72 63 68 25 0d 0a | fa 16 f2 63 6c 6f 73 65 |earch%..|...close|
|000036c0| 74 65 6d 70 6c 61 74 65 | 66 69 6c 65 0d 0b 04 04 |template|file....|
|000036d0| 0d 0b 0e 4c f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...L. --|--------|
|000036e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 4c 6f 61 64 20 |--------|-- Load |
|000036f0| 44 61 74 61 20 46 69 6c | 65 20 2d 2d 2d 2d 2d 2d |Data Fil|e ------|
|00003700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0b 18 04 |--------|----....|
|00003720| 0d 0b 22 49 f4 20 49 66 | 20 74 68 65 20 61 70 70 |.."I. If| the app|
|00003730| 6c 69 63 61 74 69 6f 6e | 20 68 61 73 20 62 65 65 |lication| has bee|
|00003740| 6e 20 73 74 61 72 74 65 | 64 20 62 79 20 64 6f 75 |n starte|d by dou|
|00003750| 62 6c 65 20 63 6c 69 63 | 6b 69 6e 67 20 6f 6e 20 |ble clic|king on |
|00003760| 61 20 66 69 6c 65 20 6f | 66 0d 0b 2c 40 f4 20 74 |a file o|f..,@. t|
|00003770| 68 65 20 74 79 70 65 20 | 72 65 63 6f 67 6e 69 73 |he type |recognis|
|00003780| 65 64 20 62 79 20 74 68 | 65 20 61 70 70 6c 69 63 |ed by th|e applic|
|00003790| 61 74 69 6f 6e 20 77 65 | 27 6c 6c 20 6c 6f 61 64 |ation we|'ll load|
|000037a0| 20 69 74 20 68 65 72 65 | 2e 0d 0b 36 04 0d 0b 40 | it here|...6...@|
|000037b0| 19 e7 20 63 75 72 72 65 | 6e 74 5f 66 69 6c 65 24 |.. curre|nt_file$|
|000037c0| 3c 3e 22 22 20 8c 0d 0b | 4a 1e 20 20 f2 6c 6f 61 |<>"" ...|J. .loa|
|000037d0| 64 66 69 6c 65 28 63 75 | 72 72 65 6e 74 5f 66 69 |dfile(cu|rrent_fi|
|000037e0| 6c 65 24 29 0d 0b 54 05 | cd 0d 0b 5e 04 0d 0b 68 |le$)..T.|...^...h|
|000037f0| 4c f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L. -----|--------|
|00003800| 2d 2d 2d 2d 2d 2d 2d 20 | 44 65 66 69 6e 65 20 49 |------- |Define I|
|00003810| 63 6f 6e 73 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |cons ---|--------|
|00003820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0b 72 04 0d 0b 7c |--------|-..r...||
|00003840| 4b f4 20 41 6e 79 20 64 | 61 74 61 20 77 68 69 63 |K. Any d|ata whic|
|00003850| 68 20 6e 65 65 64 73 20 | 74 6f 20 62 65 20 70 6c |h needs |to be pl|
|00003860| 61 63 65 64 20 69 6e 20 | 69 63 6f 6e 73 20 69 73 |aced in |icons is|
|00003870| 20 74 72 61 6e 73 66 65 | 72 72 65 64 20 68 65 72 | transfe|rred her|
|00003880| 65 2e 20 45 76 65 72 79 | 0d 0b 86 49 f4 20 57 49 |e. Every|...I. WI|
|00003890| 4d 50 20 70 72 6f 67 72 | 61 6d 20 77 69 6c 6c 20 |MP progr|am will |
|000038a0| 6e 65 65 64 20 74 6f 20 | 64 6f 20 74 68 69 73 20 |need to |do this |
|000038b0| 61 73 20 74 68 65 20 76 | 65 72 73 69 6f 6e 20 73 |as the v|ersion s|
|000038c0| 74 72 69 6e 67 20 6d 75 | 73 74 20 61 70 70 65 61 |tring mu|st appea|
|000038d0| 72 0d 0b 90 4a f4 20 69 | 6e 20 74 68 65 20 61 70 |r...J. i|n the ap|
|000038e0| 70 72 6f 70 72 69 61 74 | 65 20 69 63 6f 6e 20 69 |propriat|e icon i|
|000038f0| 6e 20 74 68 65 20 69 6e | 66 6f 20 77 69 6e 64 6f |n the in|fo windo|
|00003900| 77 20 28 6f 74 68 65 72 | 77 69 73 65 20 79 6f 75 |w (other|wise you|
|00003910| 27 6c 6c 20 68 61 76 65 | 20 74 6f 0d 0b 9a 42 f4 |'ll have| to...B.|
|00003920| 20 63 68 61 6e 67 65 20 | 74 68 65 20 74 65 6d 70 | change |the temp|
|00003930| 6c 61 74 65 20 66 69 6c | 65 20 65 76 65 72 79 20 |late fil|e every |
|00003940| 74 69 6d 65 20 79 6f 75 | 20 63 68 61 6e 67 65 20 |time you| change |
|00003950| 74 68 65 20 21 52 75 6e | 49 6d 61 67 65 0d 0b a4 |the !Run|Image...|
|00003960| 10 f4 20 70 72 6f 67 72 | 61 6d 21 29 2e 0d 0b ae |.. progr|am!)....|
|00003970| 04 0d 0b b8 28 f2 69 63 | 6f 6e 5f 70 75 74 64 61 |....(.ic|on_putda|
|00003980| 74 61 28 71 25 2c 69 6e | 66 6f 25 2c 34 2c 76 65 |ta(q%,in|fo%,4,ve|
|00003990| 72 73 69 6f 6e 24 2c 30 | 29 0d 0b c2 04 0d 0b cc |rsion$,0|).......|
|000039a0| 48 f4 20 49 66 20 79 6f | 75 20 61 72 65 20 75 73 |H. If yo|u are us|
|000039b0| 69 6e 67 20 74 68 65 20 | 27 66 69 6c 65 49 6e 66 |ing the |'fileInf|
|000039c0| 6f 27 20 77 69 6e 64 6f | 77 20 74 6f 20 67 69 76 |o' windo|w to giv|
|000039d0| 65 20 64 65 74 61 69 6c | 73 20 6f 66 20 74 68 65 |e detail|s of the|
|000039e0| 20 66 69 6c 65 0d 0b d6 | 4c f4 20 6c 6f 61 64 65 | file...|L. loade|
|000039f0| 64 20 62 79 20 74 68 65 | 20 61 70 70 6c 69 63 61 |d by the| applica|
|00003a00| 74 69 6f 6e 20 79 6f 75 | 20 63 61 6e 20 70 6c 61 |tion you| can pla|
|00003a10| 63 65 20 74 65 78 74 20 | 69 6e 20 74 68 65 20 69 |ce text |in the i|
|00003a20| 63 6f 6e 73 20 68 65 72 | 65 20 61 73 20 77 65 6c |cons her|e as wel|
|00003a30| 6c 0d 0b e0 04 0d 0b ea | 48 f4 20 50 52 4f 43 69 |l.......|H. PROCi|
|00003a40| 63 6f 6e 5f 70 75 74 64 | 61 74 61 28 71 25 2c 66 |con_putd|ata(q%,f|
|00003a50| 69 6e 66 6f 25 2c 32 2c | 22 4e 6f 22 2c 30 29 20 |info%,2,|"No",0) |
|00003a60| 20 20 20 20 20 20 20 20 | 20 3a 52 45 4d 20 27 4d | | :REM 'M|
|00003a70| 6f 64 69 66 69 65 64 27 | 20 69 63 6f 6e 0d 0b f4 |odified'| icon...|
|00003a80| 44 f4 20 50 52 4f 43 69 | 63 6f 6e 5f 70 75 74 64 |D. PROCi|con_putd|
|00003a90| 61 74 61 28 71 25 2c 66 | 69 6e 66 6f 25 2c 33 2c |ata(q%,f|info%,3,|
|00003aa0| 22 53 68 65 6c 6c 44 61 | 74 61 22 2c 30 29 20 20 |"ShellDa|ta",0) |
|00003ab0| 20 3a 52 45 4d 20 27 54 | 79 70 65 27 20 69 63 6f | :REM 'T|ype' ico|
|00003ac0| 6e 0d 0b fe 1e f4 20 49 | 46 20 63 75 72 72 65 6e |n..... I|F curren|
|00003ad0| 74 5f 66 69 6c 65 24 3d | 22 22 20 54 48 45 4e 0d |t_file$=|"" THEN.|
|00003ae0| 0c 08 44 f4 20 20 20 50 | 52 4f 43 69 63 6f 6e 5f |..D. P|ROCicon_|
|00003af0| 70 75 74 64 61 74 61 28 | 71 25 2c 66 69 6e 66 6f |putdata(|q%,finfo|
|00003b00| 25 2c 31 2c 22 53 68 65 | 6c 6c 46 69 6c 65 22 2c |%,1,"She|llFile",|
|00003b10| 30 29 20 3a 52 45 4d 20 | 27 4e 61 6d 65 27 20 69 |0) :REM |'Name' i|
|00003b20| 63 6f 6e 0d 0c 12 44 f4 | 20 20 20 50 52 4f 43 69 |con...D.| PROCi|
|00003b30| 63 6f 6e 5f 70 75 74 64 | 61 74 61 28 71 25 2c 66 |con_putd|ata(q%,f|
|00003b40| 69 6e 66 6f 25 2c 34 2c | 22 30 20 62 79 74 65 73 |info%,4,|"0 bytes|
|00003b50| 22 2c 30 29 20 20 20 3a | 52 45 4d 20 27 53 69 7a |",0) :|REM 'Siz|
|00003b60| 65 27 20 69 63 6f 6e 0d | 0c 1c 44 f4 20 20 20 50 |e' icon.|..D. P|
|00003b70| 52 4f 43 69 63 6f 6e 5f | 70 75 74 64 61 74 61 28 |ROCicon_|putdata(|
|00003b80| 71 25 2c 66 69 6e 66 6f | 25 2c 35 2c 22 22 2c 30 |q%,finfo|%,5,"",0|
|00003b90| 29 20 20 20 20 20 20 20 | 20 20 20 3a 52 45 4d 20 |) | :REM |
|00003ba0| 27 44 61 74 65 27 20 69 | 63 6f 6e 0d 0c 26 0b f4 |'Date' i|con..&..|
|00003bb0| 20 45 4e 44 49 46 0d 0c | 30 04 0d 0c 3a 4a f4 20 | ENDIF..|0...:J. |
|00003bc0| 57 65 27 6c 6c 20 61 6c | 73 6f 20 70 6c 61 63 65 |We'll al|so place|
|00003bd0| 20 61 20 64 65 66 61 75 | 6c 74 20 66 69 6c 65 20 | a defau|lt file |
|00003be0| 6e 61 6d 65 20 69 6e 20 | 74 68 65 20 27 78 66 65 |name in |the 'xfe|
|00003bf0| 72 5f 73 65 6e 64 27 20 | 77 69 6e 64 6f 77 20 69 |r_send' |window i|
|00003c00| 66 20 6e 6f 0d 0c 44 14 | f4 20 66 69 6c 65 20 69 |f no..D.|. file i|
|00003c10| 73 20 6c 6f 61 64 65 64 | 0d 0c 4e 04 0d 0c 58 18 |s loaded|..N...X.|
|00003c20| e7 20 63 75 72 72 65 6e | 74 5f 66 69 6c 65 24 3d |. curren|t_file$=|
|00003c30| 22 22 20 8c 0d 0c 62 28 | 20 20 f2 69 63 6f 6e 5f |"" ...b(| .icon_|
|00003c40| 70 75 74 64 61 74 61 28 | 71 25 2c 78 66 65 72 25 |putdata(|q%,xfer%|
|00003c50| 2c 32 2c 22 44 61 74 61 | 22 2c 30 29 0d 0c 6c 05 |,2,"Data|",0)..l.|
|00003c60| cd 0d 0c 76 04 0d 0c 80 | 4c f4 20 2d 2d 2d 2d 2d |...v....|L. -----|
|00003c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00003c80| 4c 61 75 6e 63 68 20 49 | 6e 69 74 69 61 6c 20 57 |Launch I|nitial W|
|00003c90| 69 6e 64 6f 77 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |indows -|--------|
|00003ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003cb0| 2d 0d 0c 8a 04 0d 0c 94 | 47 f4 20 4f 70 65 6e 20 |-.......|G. Open |
|00003cc0| 61 6e 79 20 69 6e 69 74 | 69 61 6c 20 77 69 6e 64 |any init|ial wind|
|00003cd0| 6f 77 73 20 68 65 72 65 | 2e 20 49 6e 20 74 68 69 |ows here|. In thi|
|00003ce0| 73 20 63 61 73 65 20 69 | 66 20 74 68 65 20 61 70 |s case i|f the ap|
|00003cf0| 70 6c 69 63 61 74 69 6f | 6e 20 69 73 0d 0c 9e 48 |plicatio|n is...H|
|00003d00| f4 20 73 74 61 72 74 69 | 6e 67 20 75 70 20 77 69 |. starti|ng up wi|
|00003d10| 74 68 20 61 20 66 69 6c | 65 20 6c 6f 61 64 65 64 |th a fil|e loaded|
|00003d20| 20 77 65 27 6c 6c 20 6f | 70 65 6e 20 74 68 65 20 | we'll o|pen the |
|00003d30| 6d 61 69 6e 20 77 69 6e | 64 6f 77 2c 20 62 75 74 |main win|dow, but|
|00003d40| 20 79 6f 75 0d 0c a8 48 | f4 20 63 6f 75 6c 64 20 | you...H|. could |
|00003d50| 77 61 69 74 20 66 6f 72 | 20 74 68 65 20 69 63 6f |wait for| the ico|
|00003d60| 6e 62 61 72 20 69 63 6f | 6e 20 74 6f 20 62 65 20 |nbar ico|n to be |
|00003d70| 63 6c 69 63 6b 65 64 20 | 6f 6e 20 2d 20 69 74 27 |clicked |on - it'|
|00003d80| 73 20 75 70 20 74 6f 20 | 79 6f 75 21 0d 0c b2 04 |s up to |you!....|
|00003d90| 0d 0c bc 19 e7 20 63 75 | 72 72 65 6e 74 5f 66 69 |..... cu|rrent_fi|
|00003da0| 6c 65 24 3c 3e 22 22 20 | 8c 0d 0c c6 1e 20 20 f2 |le$<>"" |..... .|
|00003db0| 6f 70 65 6e 77 69 6e 64 | 6f 77 28 6d 61 69 6e 77 |openwind|ow(mainw|
|00003dc0| 25 2c a3 2c 2d 31 29 0d | 0c d0 0d 20 20 6f 70 65 |%,.,-1).|... ope|
|00003dd0| 6e 25 3d b9 0d 0c da 05 | cd 0d 0c e4 04 0d 0c ee |n%=.....|........|
|00003de0| 4c f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |L. -----|--------|
|00003df0| 2d 2d 2d 2d 2d 2d 2d 20 | 53 65 74 20 55 70 20 45 |------- |Set Up E|
|00003e00| 72 72 6f 72 20 54 72 61 | 70 20 2d 2d 2d 2d 2d 2d |rror Tra|p ------|
|00003e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 0c f8 04 0d 0d 02 |--------|-.......|
|00003e30| 1d 65 72 72 6f 72 5f 66 | 6c 61 67 25 20 20 20 20 |.error_f|lag% |
|00003e40| 20 3d 33 2b 64 65 62 75 | 67 25 0d 0d 0c 0e ee 20 | =3+debu|g%..... |
|00003e50| 85 20 f2 65 72 72 6f 72 | 0d 0d 16 04 0d 0d 20 4c |. .error|...... L|
|00003e60| f4 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. ------|--------|
|00003e70| 2d 2d 2d 2d 2d 2d 20 4d | 61 69 6e 20 50 72 6f 67 |------ M|ain Prog|
|00003e80| 72 61 6d 20 4c 6f 6f 70 | 20 2d 2d 2d 2d 2d 2d 2d |ram Loop| -------|
|00003e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0d 2a 04 0d 0d 34 4a |--------|..*...4J|
|00003eb0| f4 20 41 73 20 74 68 65 | 20 70 72 6f 67 72 61 6d |. As the| program|
|00003ec0| 20 69 73 20 6e 6f 77 20 | 66 75 6c 6c 79 20 69 6e | is now |fully in|
|00003ed0| 69 74 69 61 6c 69 73 65 | 64 20 77 65 27 6c 6c 20 |itialise|d we'll |
|00003ee0| 74 75 72 6e 20 6f 66 66 | 20 74 68 65 20 48 6f 75 |turn off| the Hou|
|00003ef0| 72 47 6c 61 73 73 0d 0d | 3e 4a f4 20 61 6e 64 20 |rGlass..|>J. and |
|00003f00| 62 65 67 69 6e 20 74 68 | 65 20 6d 61 69 6e 20 77 |begin th|e main w|
|00003f10| 69 6d 70 20 70 6f 6c 6c | 20 6c 6f 6f 70 2e 20 4e |imp poll| loop. N|
|00003f20| 6f 74 65 20 74 68 61 74 | 20 74 68 65 20 70 61 72 |ote that| the par|
|00003f30| 61 6d 65 74 65 72 20 74 | 6f 20 46 4e 70 6f 6c 6c |ameter t|o FNpoll|
|00003f40| 0d 0d 48 47 f4 20 69 73 | 20 30 20 74 6f 20 61 6c |..HG. is| 0 to al|
|00003f50| 6c 6f 77 20 61 6c 6c 20 | 77 69 6d 70 20 65 76 65 |low all |wimp eve|
|00003f60| 6e 74 73 20 74 6f 20 62 | 65 20 70 72 6f 63 65 73 |nts to b|e proces|
|00003f70| 73 65 64 20 2d 20 6d 6f | 72 65 20 73 70 65 65 64 |sed - mo|re speed|
|00003f80| 20 63 61 6e 20 62 65 0d | 0d 52 47 f4 20 6f 62 74 | can be.|.RG. obt|
|00003f90| 61 69 6e 65 64 20 62 79 | 20 75 73 69 6e 67 20 64 |ained by| using d|
|00003fa0| 69 66 66 65 72 65 6e 74 | 20 70 61 72 61 6d 65 74 |ifferent| paramet|
|00003fb0| 65 72 73 2c 20 62 75 74 | 20 6c 65 61 76 65 20 69 |ers, but| leave i|
|00003fc0| 74 20 61 6c 6f 6e 65 20 | 75 6e 6c 65 73 73 0d 0d |t alone |unless..|
|00003fd0| 5c 2a f4 20 79 6f 75 20 | 6b 6e 6f 77 20 65 78 61 |\*. you |know exa|
|00003fe0| 63 74 6c 79 20 77 68 61 | 74 20 79 6f 75 20 61 72 |ctly wha|t you ar|
|00003ff0| 65 20 64 6f 69 6e 67 21 | 0d 0d 66 04 0d 0d 70 16 |e doing!|..f...p.|
|00004000| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 66 |.. "Hour|glass_Of|
|00004010| 66 22 0d 0d 7a 05 f5 0d | 0d 84 17 20 20 f2 61 63 |f"..z...|... .ac|
|00004020| 74 69 6f 6e 28 a4 70 6f | 6c 6c 28 30 29 29 0d 0d |tion(.po|ll(0))..|
|00004030| 8e 0f fd 20 63 6c 6f 73 | 65 64 6f 77 6e 0d 0d 98 |... clos|edown...|
|00004040| 04 0d 0d a2 4c f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....L. -|--------|
|00004050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 41 70 70 6c |--------|--- Appl|
|00004060| 69 63 61 74 69 6f 6e 20 | 43 6c 6f 73 65 64 6f 77 |ication |Closedow|
|00004070| 6e 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |n ------|--------|
|00004080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0d ac |--------|-----...|
|00004090| 04 0d 0d b6 0e 24 71 25 | 3d 22 54 41 53 4b 22 0d |.....$q%|="TASK".|
|000040a0| 0d c0 22 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..".. "W|imp_Clos|
|000040b0| 65 44 6f 77 6e 22 2c 74 | 61 73 6b 25 2c 71 25 21 |eDown",t|ask%,q%!|
|000040c0| 30 0d 0d ca 05 e0 0d 0d | d4 04 0d 0d de 4c f4 20 |0.......|.....L. |
|000040d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000040e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000040f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004110| 3d 3d 3d 3d 3d 3d 0d 0d | e8 04 0d 0d f2 0b dd f2 |======..|........|
|00004120| 65 72 72 6f 72 0d 0d fc | 15 e7 20 65 72 72 6f 72 |error...|.. error|
|00004130| 5f 66 6c 61 67 25 3d 33 | 20 8c 0d 0e 06 44 20 20 |_flag%=3| ....D |
|00004140| f2 65 72 72 6f 72 62 6f | 78 28 22 55 6e 65 78 70 |.errorbo|x("Unexp|
|00004150| 65 63 74 65 64 20 65 72 | 72 6f 72 3a 2d 20 22 2b |ected er|ror:- "+|
|00004160| f6 24 2b 22 20 49 6e 74 | 65 72 6e 61 6c 20 65 72 |.$+" Int|ernal er|
|00004170| 72 6f 72 20 63 6f 64 65 | 20 22 2b c3 9e 29 0d 0e |ror code| "+..)..|
|00004180| 10 05 cc 0d 0e 1a 13 20 | 20 f2 65 72 72 6f 72 62 |....... | .errorb|
|00004190| 6f 78 28 f6 24 29 0d 0e | 24 05 cd 0d 0e 2e 18 65 |ox(.$)..|$......e|
|000041a0| 72 72 6f 72 5f 66 6c 61 | 67 25 3d 33 2b 64 65 62 |rror_fla|g%=3+deb|
|000041b0| 75 67 25 0d 0e 38 18 c8 | 99 20 22 48 6f 75 72 67 |ug%..8..|. "Hourg|
|000041c0| 6c 61 73 73 5f 53 6d 61 | 73 68 22 0d 0e 42 05 e1 |lass_Sma|sh"..B..|
|000041d0| 0d 0e 4c 04 0d 0e 56 0c | dd f2 6f 6b 28 65 24 29 |..L...V.|..ok(e$)|
|000041e0| 0d 0e 60 11 65 72 72 6f | 72 5f 66 6c 61 67 25 3d |..`.erro|r_flag%=|
|000041f0| 31 0d 0e 6a 0a 85 20 31 | 2c 65 24 0d 0e 74 05 e1 |1..j.. 1|,e$..t..|
|00004200| 0d 0e 7e 04 0d 0e 88 12 | dd f2 65 72 72 6f 72 62 |..~.....|..errorb|
|00004210| 6f 78 28 72 24 29 0d 0e | 92 08 ea 20 72 25 0d 0e |ox(r$)..|... r%..|
|00004220| 9c 19 21 71 25 3d 9f 3a | 24 28 71 25 2b 34 29 3d |..!q%=.:|$(q%+4)=|
|00004230| 72 24 2b bd 28 30 29 0d | 0e a6 32 c8 99 20 22 57 |r$+.(0).|..2.. "W|
|00004240| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|00004250| 2c 71 25 2c 65 72 72 6f | 72 5f 66 6c 61 67 25 2c |,q%,erro|r_flag%,|
|00004260| 61 70 70 24 20 b8 20 72 | 25 0d 0e b0 18 e7 20 72 |app$ . r|%..... r|
|00004270| 25 3d 32 20 8c 20 63 6c | 6f 73 65 64 6f 77 6e 3d |%=2 . cl|osedown=|
|00004280| b9 0d 0e ba 05 e1 0d 0e | c4 04 0d 0e ce 4a f4 20 |........|.....J. |
|00004290| 45 76 65 72 79 20 6e 65 | 77 20 77 69 6e 64 6f 77 |Every ne|w window|
|000042a0| 20 28 69 66 20 6d 6f 75 | 73 65 20 63 6c 69 63 6b | (if mou|se click|
|000042b0| 73 20 6e 65 65 64 20 74 | 6f 20 62 65 20 72 65 73 |s need t|o be res|
|000042c0| 70 6f 6e 64 65 64 20 74 | 6f 29 20 77 69 6c 6c 20 |ponded t|o) will |
|000042d0| 6e 65 65 64 0d 0e d8 2d | f4 20 61 20 6c 69 6e 65 |need...-|. a line|
|000042e0| 20 69 6e 20 74 68 65 20 | 43 41 53 45 20 73 74 61 | in the |CASE sta|
|000042f0| 74 65 6d 65 6e 74 20 62 | 65 6c 6f 77 20 69 2e 65 |tement b|elow i.e|
|00004300| 2e 0d 0e e2 2e f4 20 57 | 48 45 4e 20 66 72 65 64 |...... W|HEN fred|
|00004310| 25 3a 50 52 4f 43 63 6c | 69 63 6b 66 72 65 64 28 |%:PROCcl|ickfred(|
|00004320| 62 75 74 74 6f 6e 25 2c | 69 63 6f 6e 25 29 2e 0d |button%,|icon%)..|
|00004330| 0e ec 47 f4 20 4e 6f 74 | 65 20 74 68 65 20 27 66 |..G. Not|e the 'f|
|00004340| 69 6c 65 49 6e 66 6f 27 | 20 61 6e 64 20 27 70 72 |ileInfo'| and 'pr|
|00004350| 6f 67 49 6e 66 6f 27 20 | 77 69 6e 64 6f 77 73 20 |ogInfo' |windows |
|00004360| 64 6f 20 6e 6f 74 20 66 | 65 61 74 75 72 65 20 69 |do not f|eature i|
|00004370| 6e 20 74 68 69 73 0d 0e | f6 49 f4 20 72 6f 75 74 |n this..|.I. rout|
|00004380| 69 6e 65 20 2d 20 74 68 | 65 79 20 63 6f 6e 74 61 |ine - th|ey conta|
|00004390| 69 6e 20 6e 6f 20 69 63 | 6f 6e 73 20 74 68 61 74 |in no ic|ons that|
|000043a0| 20 74 72 69 67 67 65 72 | 20 61 63 74 69 6f 6e 73 | trigger| actions|
|000043b0| 20 62 79 20 74 68 65 20 | 70 72 6f 67 72 61 6d 0d | by the |program.|
|000043c0| 0f 00 04 0d 0f 0a 3c dd | f2 63 6c 69 63 6b 77 69 |......<.|.clickwi|
|000043d0| 6e 64 6f 77 28 6d 6f 75 | 73 65 78 25 2c 6d 6f 75 |ndow(mou|sex%,mou|
|000043e0| 73 65 79 25 2c 62 75 74 | 74 6f 6e 25 2c 68 61 6e |sey%,but|ton%,han|
|000043f0| 64 6c 65 25 2c 69 63 6f | 6e 25 2c 6f 62 25 29 0d |dle%,ico|n%,ob%).|
|00004400| 0f 14 10 c8 8e 20 68 61 | 6e 64 6c 65 25 20 ca 0d |..... ha|ndle% ..|
|00004410| 0f 1e 33 f4 20 20 57 48 | 45 4e 20 6d 61 69 6e 77 |..3. WH|EN mainw|
|00004420| 25 20 20 20 3a 50 52 4f | 43 63 6c 69 63 6b 6d 61 |% :PRO|Cclickma|
|00004430| 69 6e 77 28 62 75 74 74 | 6f 6e 25 2c 69 63 6f 6e |inw(butt|on%,icon|
|00004440| 25 29 0d 0f 28 33 f4 20 | 20 57 48 45 4e 20 71 75 |%)..(3. | WHEN qu|
|00004450| 65 72 79 25 20 20 20 3a | 50 52 4f 43 63 6c 69 63 |ery% :|PROCclic|
|00004460| 6b 71 75 65 72 79 28 62 | 75 74 74 6f 6e 25 2c 69 |kquery(b|utton%,i|
|00004470| 63 6f 6e 25 29 0d 0f 32 | 32 f4 20 20 57 48 45 4e |con%)..2|2. WHEN|
|00004480| 20 78 66 65 72 25 20 20 | 20 20 3a 50 52 4f 43 63 | xfer% | :PROCc|
|00004490| 6c 69 63 6b 78 66 65 72 | 28 62 75 74 74 6f 6e 25 |lickxfer|(button%|
|000044a0| 2c 69 63 6f 6e 25 29 0d | 0f 3c 34 f4 20 20 57 48 |,icon%).|.<4. WH|
|000044b0| 45 4e 20 73 65 61 72 63 | 68 25 20 20 3a 50 52 4f |EN searc|h% :PRO|
|000044c0| 43 63 6c 69 63 6b 73 65 | 61 72 63 68 28 62 75 74 |Cclickse|arch(but|
|000044d0| 74 6f 6e 25 2c 69 63 6f | 6e 25 29 0d 0f 46 2e 20 |ton%,ico|n%)..F. |
|000044e0| 20 c9 20 2d 32 20 20 20 | 20 20 20 20 3a f2 63 6c | . -2 | :.cl|
|000044f0| 69 63 6b 69 63 6f 6e 62 | 61 72 28 62 75 74 74 6f |ickiconb|ar(butto|
|00004500| 6e 25 2c 69 63 6f 6e 25 | 29 0d 0f 50 05 cb 0d 0f |n%,icon%|)..P....|
|00004510| 5a 05 e1 0d 0f 64 04 0d | 0f 6e 4c f4 20 2d 2d 2d |Z....d..|.nL. ---|
|00004520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 4d 6f |--------|----- Mo|
|00004530| 75 73 65 20 43 6c 69 63 | 6b 20 52 6f 75 74 69 6e |use Clic|k Routin|
|00004540| 65 73 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |es -----|--------|
|00004550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004560| 2d 2d 2d 0d 0f 78 04 0d | 0f 82 4b f4 20 41 20 72 |---..x..|..K. A r|
|00004570| 6f 75 74 69 6e 65 20 69 | 73 20 6e 65 65 64 65 64 |outine i|s needed|
|00004580| 20 68 65 72 65 20 66 6f | 72 20 65 76 65 72 79 20 | here fo|r every |
|00004590| 77 69 6e 64 6f 77 20 28 | 69 66 20 6d 6f 75 73 65 |window (|if mouse|
|000045a0| 20 63 6c 69 63 6b 73 20 | 6e 65 65 64 20 74 6f 20 | clicks |need to |
|000045b0| 62 65 0d 0f 8c 28 f4 20 | 72 65 73 70 6f 6e 64 65 |be...(. |responde|
|000045c0| 64 20 74 6f 29 20 63 61 | 6c 6c 65 64 20 50 52 4f |d to) ca|lled PRO|
|000045d0| 43 63 6c 69 63 6b 78 78 | 78 78 0d 0f 96 04 0d 0f |Cclickxx|xx......|
|000045e0| a0 21 dd f2 63 6c 69 63 | 6b 69 63 6f 6e 62 61 72 |.!..clic|kiconbar|
|000045f0| 28 62 75 74 74 6f 6e 25 | 2c 69 63 6f 6e 25 29 0d |(button%|,icon%).|
|00004600| 0f aa 11 e7 20 69 63 6f | 6e 25 3c 30 20 8c 20 e1 |.... ico|n%<0 . .|
|00004610| 0d 0f b4 0a c8 8e 20 b9 | 20 ca 0d 0f be 11 20 20 |...... .| ..... |
|00004620| c9 20 62 75 74 74 6f 6e | 25 3d 32 0d 0f c8 20 20 |. button|%=2... |
|00004630| 20 20 20 f4 20 6f 70 65 | 6e 73 20 74 68 65 20 69 | . ope|ns the i|
|00004640| 63 6f 6e 62 61 72 20 6d | 65 6e 75 0d 0f d2 17 20 |conbar m|enu.... |
|00004650| 20 20 20 e7 20 69 63 6f | 6e 25 3d 73 69 63 6f 6e | . ico|n%=sicon|
|00004660| 20 8c 0d 0f dc 15 20 20 | 20 20 20 20 f2 6d 65 6e | ..... | .men|
|00004670| 75 5f 73 69 63 6f 6e 0d | 0f e6 09 20 20 20 20 cd |u_sicon.|... .|
|00004680| 0d 0f f0 39 20 20 c9 20 | 62 75 74 74 6f 6e 25 3d |...9 . |button%=|
|00004690| 31 3a 24 62 75 66 66 65 | 72 31 25 3d 22 26 31 35 |1:$buffe|r1%="&15|
|000046a0| 35 30 22 3a f2 73 6f 75 | 6e 64 5f 6f 66 66 28 24 |50":.sou|nd_off($|
|000046b0| 62 75 66 66 65 72 31 25 | 29 0d 0f fa 27 20 20 c9 |buffer1%|)...' .|
|000046c0| 20 62 75 74 74 6f 6e 25 | 3d 34 3a f2 73 6f 75 6e | button%|=4:.soun|
|000046d0| 64 5f 6f 66 66 28 24 62 | 75 66 66 65 72 31 25 29 |d_off($b|uffer1%)|
|000046e0| 0d 10 04 4b 20 20 20 20 | f4 20 6f 70 65 6e 73 20 |...K |. opens |
|000046f0| 74 68 65 20 6d 61 69 6e | 20 77 69 6e 64 6f 77 20 |the main| window |
|00004700| 69 66 20 69 74 20 69 73 | 20 63 6c 6f 73 65 64 20 |if it is| closed |
|00004710| 69 6e 20 74 68 69 73 20 | 65 78 61 6d 70 6c 65 20 |in this |example |
|00004720| 77 68 65 6e 20 73 65 6c | 65 63 74 0d 10 0e 4a 20 |when sel|ect...J |
|00004730| 20 20 20 f4 20 69 73 20 | 63 6c 69 63 6b 65 64 20 | . is |clicked |
|00004740| 6f 6e 20 74 68 65 20 69 | 63 6f 6e 62 61 72 20 69 |on the i|conbar i|
|00004750| 63 6f 6e 2e 20 49 74 20 | 63 6f 75 6c 64 20 6f 66 |con. It |could of|
|00004760| 20 63 6f 75 72 73 65 20 | 6f 70 65 6e 20 6d 75 6c | course |open mul|
|00004770| 74 69 70 6c 65 0d 10 18 | 1d 20 20 20 20 f4 20 77 |tiple...|. . w|
|00004780| 69 6e 64 6f 77 73 20 69 | 66 20 72 65 71 75 69 72 |indows i|f requir|
|00004790| 65 64 0d 10 22 1b 20 20 | 20 20 f4 20 49 46 20 4e |ed..". | . IF N|
|000047a0| 4f 54 20 6f 70 65 6e 25 | 20 54 48 45 4e 0d 10 2c |OT open%| THEN..,|
|000047b0| 2b 20 20 20 20 f4 20 20 | 20 50 52 4f 43 6f 70 65 |+ . | PROCope|
|000047c0| 6e 77 69 6e 64 6f 77 28 | 6d 61 69 6e 77 25 2c 46 |nwindow(|mainw%,F|
|000047d0| 41 4c 53 45 2c 2d 31 29 | 0d 10 36 16 20 20 20 20 |ALSE,-1)|..6. |
|000047e0| f4 20 20 20 6f 70 65 6e | 25 3d 54 52 55 45 0d 10 |. open|%=TRUE..|
|000047f0| 40 0f 20 20 20 20 f4 20 | 45 4e 44 49 46 0d 10 4a |@. . |ENDIF..J|
|00004800| 05 cb 0d 10 54 05 e1 0d | 10 5e 04 0d 10 68 1f dd |....T...|.^...h..|
|00004810| f2 63 6c 69 63 6b 6d 61 | 69 6e 77 28 62 75 74 74 |.clickma|inw(butt|
|00004820| 6f 6e 25 2c 69 63 6f 6e | 25 29 0d 10 72 11 e7 20 |on%,icon|%)..r.. |
|00004830| 62 75 74 74 6f 6e 25 3d | 32 20 8c 0d 10 7c 10 20 |button%=|2 ...|. |
|00004840| 20 f2 6d 65 6e 75 5f 6d | 61 69 6e 0d 10 86 05 cd | .menu_m|ain.....|
|00004850| 0d 10 90 0a c8 8e 20 b9 | 20 ca 0d 10 9a 21 c9 20 |...... .| ....!. |
|00004860| 28 62 75 74 74 6f 6e 25 | 20 80 20 34 29 3d 34 20 |(button%| . 4)=4 |
|00004870| 80 20 69 63 6f 6e 25 3c | 3e 2d 31 0d 10 a4 10 20 |. icon%<|>-1.... |
|00004880| 20 c8 8e 20 69 63 6f 6e | 25 20 ca 0d 10 ae 28 20 | .. icon|% ....( |
|00004890| 20 c9 20 20 32 20 3a f4 | 20 27 3c 27 20 28 62 61 | . 2 :.| '<' (ba|
|000048a0| 63 6b 20 6f 6e 65 20 72 | 65 63 6f 72 64 20 69 63 |ck one r|ecord ic|
|000048b0| 6f 6e 29 0d 10 b8 41 20 | 20 20 20 63 75 72 72 65 |on)...A | curre|
|000048c0| 6e 74 5f 72 65 63 25 2d | 3d 31 3a e7 20 63 75 72 |nt_rec%-|=1:. cur|
|000048d0| 72 65 6e 74 5f 72 65 63 | 25 3c 31 20 8c 20 63 75 |rent_rec|%<1 . cu|
|000048e0| 72 72 65 6e 74 5f 72 65 | 63 25 3d 6d 61 78 5f 72 |rrent_re|c%=max_r|
|000048f0| 65 63 73 25 0d 10 c2 25 | 20 20 20 20 f2 64 69 73 |ecs%...%| .dis|
|00004900| 70 6c 61 79 5f 72 65 63 | 6f 72 64 28 63 75 72 72 |play_rec|ord(curr|
|00004910| 65 6e 74 5f 72 65 63 25 | 29 0d 10 cc 2b 20 20 c9 |ent_rec%|)...+ .|
|00004920| 20 20 33 20 3a f4 20 27 | 3e 27 20 28 66 6f 72 77 | 3 :. '|>' (forw|
|00004930| 61 72 64 20 6f 6e 65 20 | 72 65 63 6f 72 64 20 69 |ard one |record i|
|00004940| 63 6f 6e 29 0d 10 d6 41 | 20 20 20 20 63 75 72 72 |con)...A| curr|
|00004950| 65 6e 74 5f 72 65 63 25 | 2b 3d 31 3a e7 20 63 75 |ent_rec%|+=1:. cu|
|00004960| 72 72 65 6e 74 5f 72 65 | 63 25 3e 6d 61 78 5f 72 |rrent_re|c%>max_r|
|00004970| 65 63 73 25 20 8c 20 63 | 75 72 72 65 6e 74 5f 72 |ecs% . c|urrent_r|
|00004980| 65 63 25 3d 31 0d 10 e0 | 25 20 20 20 20 f2 64 69 |ec%=1...|% .di|
|00004990| 73 70 6c 61 79 5f 72 65 | 63 6f 72 64 28 63 75 72 |splay_re|cord(cur|
|000049a0| 72 65 6e 74 5f 72 65 63 | 25 29 0d 10 ea 1b 20 20 |rent_rec|%).... |
|000049b0| c9 20 31 37 20 3a f4 20 | 27 55 70 64 61 74 65 27 |. 17 :. |'Update'|
|000049c0| 20 49 63 6f 6e 0d 10 f4 | 3a 20 20 20 20 66 69 65 | Icon...|: fie|
|000049d0| 6c 64 24 28 31 2c 63 75 | 72 72 65 6e 74 5f 72 65 |ld$(1,cu|rrent_re|
|000049e0| 63 25 29 3d a4 69 63 6f | 6e 5f 67 65 74 64 61 74 |c%)=.ico|n_getdat|
|000049f0| 61 28 71 25 2c 6d 61 69 | 6e 77 25 2c 31 31 29 0d |a(q%,mai|nw%,11).|
|00004a00| 10 fe 3a 20 20 20 20 66 | 69 65 6c 64 24 28 32 2c |..: f|ield$(2,|
|00004a10| 63 75 72 72 65 6e 74 5f | 72 65 63 25 29 3d a4 69 |current_|rec%)=.i|
|00004a20| 63 6f 6e 5f 67 65 74 64 | 61 74 61 28 71 25 2c 6d |con_getd|ata(q%,m|
|00004a30| 61 69 6e 77 25 2c 31 32 | 29 0d 11 08 3a 20 20 20 |ainw%,12|)...: |
|00004a40| 20 66 69 65 6c 64 24 28 | 33 2c 63 75 72 72 65 6e | field$(|3,curren|
|00004a50| 74 5f 72 65 63 25 29 3d | a4 69 63 6f 6e 5f 67 65 |t_rec%)=|.icon_ge|
|00004a60| 74 64 61 74 61 28 71 25 | 2c 6d 61 69 6e 77 25 2c |tdata(q%|,mainw%,|
|00004a70| 31 33 29 0d 11 12 3a 20 | 20 20 20 66 69 65 6c 64 |13)...: | field|
|00004a80| 24 28 34 2c 63 75 72 72 | 65 6e 74 5f 72 65 63 25 |$(4,curr|ent_rec%|
|00004a90| 29 3d a4 69 63 6f 6e 5f | 67 65 74 64 61 74 61 28 |)=.icon_|getdata(|
|00004aa0| 71 25 2c 6d 61 69 6e 77 | 25 2c 31 34 29 0d 11 1c |q%,mainw|%,14)...|
|00004ab0| 3a 20 20 20 20 66 69 65 | 6c 64 24 28 35 2c 63 75 |: fie|ld$(5,cu|
|00004ac0| 72 72 65 6e 74 5f 72 65 | 63 25 29 3d a4 69 63 6f |rrent_re|c%)=.ico|
|00004ad0| 6e 5f 67 65 74 64 61 74 | 61 28 71 25 2c 6d 61 69 |n_getdat|a(q%,mai|
|00004ae0| 6e 77 25 2c 31 35 29 0d | 11 26 15 20 20 20 20 f2 |nw%,15).|.&. .|
|00004af0| 66 69 6c 65 5f 63 68 61 | 6e 67 65 64 0d 11 30 1b |file_cha|nged..0.|
|00004b00| 20 20 c9 20 31 38 20 3a | f4 20 27 43 61 6e 63 65 | . 18 :|. 'Cance|
|00004b10| 6c 27 20 49 63 6f 6e 0d | 11 3a 25 20 20 20 20 f2 |l' Icon.|.:% .|
|00004b20| 64 69 73 70 6c 61 79 5f | 72 65 63 6f 72 64 28 63 |display_|record(c|
|00004b30| 75 72 72 65 6e 74 5f 72 | 65 63 25 29 0d 11 44 07 |urrent_r|ec%)..D.|
|00004b40| 20 20 cb 0d 11 4e 05 cb | 0d 11 58 05 e1 0d 11 62 | ...N..|..X....b|
|00004b50| 04 0d 11 6c 20 dd f2 63 | 6c 69 63 6b 73 65 61 72 |...l ..c|licksear|
|00004b60| 63 68 28 62 75 74 74 6f | 6e 25 2c 69 63 6f 6e 25 |ch(butto|n%,icon%|
|00004b70| 29 0d 11 76 0a c8 8e 20 | b9 20 ca 0d 11 80 27 c9 |)..v... |. ....'.|
|00004b80| 20 28 62 75 74 74 6f 6e | 25 20 80 20 34 29 3d 34 | (button|% . 4)=4|
|00004b90| 20 84 20 28 62 75 74 74 | 6f 6e 25 20 80 20 31 29 | . (butt|on% . 1)|
|00004ba0| 3d 31 0d 11 8a 10 20 20 | c8 8e 20 69 63 6f 6e 25 |=1.... |.. icon%|
|00004bb0| 20 ca 0d 11 94 0a 20 20 | c9 20 20 30 0d 11 9e 12 | ..... |. 0....|
|00004bc0| 20 20 20 20 f2 64 6f 5f | 73 65 61 72 63 68 0d 11 | .do_|search..|
|00004bd0| a8 34 20 20 20 20 e7 20 | 28 62 75 74 74 6f 6e 25 |.4 . |(button%|
|00004be0| 20 80 20 34 29 3d 34 20 | 8c 20 c8 99 20 22 57 69 | . 4)=4 |. .. "Wi|
|00004bf0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00004c00| 2d 31 0d 11 b2 0a 20 20 | c9 20 20 31 0d 11 bc 20 |-1.... |. 1... |
|00004c10| 20 20 20 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 | .. "|Wimp_Cre|
|00004c20| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 11 c6 0a |ateMenu"|,,-1....|
|00004c30| 20 20 c9 20 20 33 0d 11 | d0 10 20 20 20 20 6d 61 | . 3..|.. ma|
|00004c40| 74 63 68 25 3d b9 0d 11 | da 0a 20 20 c9 20 20 34 |tch%=...|.. . 4|
|00004c50| 0d 11 e4 10 20 20 20 20 | 6d 61 74 63 68 25 3d a3 |.... |match%=.|
|00004c60| 0d 11 ee 07 20 20 cb 0d | 11 f8 05 cb 0d 12 02 05 |.... ..|........|
|00004c70| e1 0d 12 0c 04 0d 12 16 | 1f dd f2 63 6c 69 63 6b |........|...click|
|00004c80| 71 75 65 72 79 28 62 75 | 74 74 6f 6e 25 2c 69 63 |query(bu|tton%,ic|
|00004c90| 6f 6e 25 29 0d 12 20 0a | c8 8e 20 b9 20 ca 0d 12 |on%).. .|.. . ...|
|00004ca0| 2a 21 c9 20 28 62 75 74 | 74 6f 6e 25 20 80 20 34 |*!. (but|ton% . 4|
|00004cb0| 29 3d 34 20 80 20 69 63 | 6f 6e 25 3c 3e 2d 31 0d |)=4 . ic|on%<>-1.|
|00004cc0| 12 34 20 20 20 e7 20 63 | 6c 61 69 6d 71 75 65 72 |.4 . c|laimquer|
|00004cd0| 79 24 3d 22 71 75 69 74 | 70 72 6f 67 22 20 8c 0d |y$="quit|prog" ..|
|00004ce0| 12 3e 12 20 20 20 20 c8 | 8e 20 69 63 6f 6e 25 20 |.>. .|. icon% |
|00004cf0| ca 0d 12 48 0d 20 20 20 | 20 20 20 c9 20 32 0d 12 |...H. | . 2..|
|00004d00| 52 2f 20 20 20 20 20 20 | 20 20 f2 63 6c 6f 73 65 |R/ | .close|
|00004d10| 77 69 6e 64 6f 77 28 71 | 75 65 72 79 25 29 3a 63 |window(q|uery%):c|
|00004d20| 6c 61 69 6d 71 75 65 72 | 79 24 3d 22 22 0d 12 5c |laimquer|y$=""..\|
|00004d30| 2b 20 20 20 20 20 20 20 | 20 f2 6d 6f 75 73 65 5f |+ | .mouse_|
|00004d40| 72 65 63 74 61 6e 67 6c | 65 28 30 2c 30 2c 33 30 |rectangl|e(0,0,30|
|00004d50| 30 30 2c 33 30 30 30 29 | 0d 12 66 17 20 20 20 20 |00,3000)|..f. |
|00004d60| 20 20 20 20 63 6c 6f 73 | 65 64 6f 77 6e 3d b9 0d | clos|edown=..|
|00004d70| 12 70 0d 20 20 20 20 20 | 20 c9 20 30 0d 12 7a 2f |.p. | . 0..z/|
|00004d80| 20 20 20 20 20 20 20 20 | f2 63 6c 6f 73 65 77 69 | |.closewi|
|00004d90| 6e 64 6f 77 28 71 75 65 | 72 79 25 29 3a 63 6c 61 |ndow(que|ry%):cla|
|00004da0| 69 6d 71 75 65 72 79 24 | 3d 22 22 0d 12 84 1d 20 |imquery$|="".... |
|00004db0| 20 20 20 20 20 20 20 c8 | 99 20 22 48 6f 75 72 67 | .|. "Hourg|
|00004dc0| 6c 61 73 73 5f 4f 6e 22 | 0d 12 8e 24 20 20 20 20 |lass_On"|...$ |
|00004dd0| 20 20 20 20 f2 73 61 76 | 65 66 69 6c 65 28 63 75 | .sav|efile(cu|
|00004de0| 72 72 65 6e 74 5f 66 69 | 6c 65 24 29 0d 12 98 1e |rrent_fi|le$)....|
|00004df0| 20 20 20 20 20 20 20 20 | c8 99 20 22 48 6f 75 72 | |.. "Hour|
|00004e00| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 12 a2 17 20 20 |glass_Of|f".... |
|00004e10| 20 20 20 20 20 20 63 6c | 6f 73 65 64 6f 77 6e 3d | cl|osedown=|
|00004e20| b9 0d 12 ac 2b 20 20 20 | 20 20 20 20 20 f2 6d 6f |....+ | .mo|
|00004e30| 75 73 65 5f 72 65 63 74 | 61 6e 67 6c 65 28 30 2c |use_rect|angle(0,|
|00004e40| 30 2c 33 30 30 30 2c 33 | 30 30 30 29 0d 12 b6 09 |0,3000,3|000)....|
|00004e50| 20 20 20 20 cb 0d 12 c0 | 07 20 20 cd 0d 12 ca 05 | ....|. .....|
|00004e60| cb 0d 12 d4 05 e1 0d 12 | de 04 0d 12 e8 1e dd f2 |........|........|
|00004e70| 63 6c 69 63 6b 78 66 65 | 72 28 62 75 74 74 6f 6e |clickxfe|r(button|
|00004e80| 25 2c 69 63 6f 6e 25 29 | 0d 12 f2 0a c8 8e 20 b9 |%,icon%)|...... .|
|00004e90| 20 ca 0d 12 fc 1f c9 20 | 28 62 75 74 74 6f 6e 25 | ...... |(button%|
|00004ea0| 20 80 20 34 29 3d 34 20 | 80 20 69 63 6f 6e 25 3d | . 4)=4 |. icon%=|
|00004eb0| 30 0d 13 06 2a 20 20 f2 | 73 61 76 65 66 69 6c 65 |0...* .|savefile|
|00004ec0| 28 a4 69 63 6f 6e 5f 67 | 65 74 64 61 74 61 28 71 |(.icon_g|etdata(q|
|00004ed0| 25 2c 78 66 65 72 25 2c | 32 29 29 0d 13 10 1e 20 |%,xfer%,|2)).... |
|00004ee0| 20 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 | .. "Wim|p_Create|
|00004ef0| 4d 65 6e 75 22 2c 2c 2d | 31 0d 13 1a 1f c9 20 28 |Menu",,-|1..... (|
|00004f00| 62 75 74 74 6f 6e 25 20 | 80 20 34 29 3d 34 20 80 |button% |. 4)=4 .|
|00004f10| 20 69 63 6f 6e 25 3d 33 | 0d 13 24 17 20 20 63 6c | icon%=3|..$. cl|
|00004f20| 61 69 6d 64 72 61 67 24 | 3d 22 78 66 65 72 22 0d |aimdrag$|="xfer".|
|00004f30| 13 2e 0f 20 20 21 71 25 | 3d 78 66 65 72 25 0d 13 |... !q%|=xfer%..|
|00004f40| 38 22 20 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |8" .. "|Wimp_Get|
|00004f50| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 71 25 |WindowSt|ate",,q%|
|00004f60| 0d 13 42 14 20 20 77 65 | 78 3d 71 25 21 34 2d 71 |..B. we|x=q%!4-q|
|00004f70| 25 21 32 30 0d 13 4c 15 | 20 20 77 65 79 3d 71 25 |%!20..L.| wey=q%|
|00004f80| 21 31 36 2d 71 25 21 32 | 34 0d 13 56 0c 20 20 71 |!16-q%!2|4..V. q|
|00004f90| 25 21 34 3d 33 0d 13 60 | 20 20 20 c8 99 20 22 57 |%!4=3..`| .. "W|
|00004fa0| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00004fb0| 22 2c 2c 71 25 0d 13 6a | 16 20 20 21 71 25 3d 78 |",,q%..j|. !q%=x|
|00004fc0| 66 65 72 25 3a 71 25 21 | 34 3d 35 0d 13 74 13 20 |fer%:q%!|4=5..t. |
|00004fd0| 20 71 25 21 38 3d 71 25 | 21 38 2b 77 65 78 0d 13 | q%!8=q%|!8+wex..|
|00004fe0| 7e 15 20 20 71 25 21 31 | 32 3d 71 25 21 31 32 2b |~. q%!1|2=q%!12+|
|00004ff0| 77 65 79 0d 13 88 15 20 | 20 71 25 21 31 36 3d 71 |wey.... | q%!16=q|
|00005000| 25 21 31 36 2b 77 65 78 | 0d 13 92 15 20 20 71 25 |%!16+wex|.... q%|
|00005010| 21 32 30 3d 71 25 21 32 | 30 2b 77 65 79 0d 13 9c |!20=q%!2|0+wey...|
|00005020| 15 20 20 71 25 21 32 34 | 3d 30 3a 71 25 21 32 38 |. q%!24|=0:q%!28|
|00005030| 3d 30 0d 13 a6 25 20 20 | 71 25 21 33 32 3d 26 37 |=0...% |q%!32=&7|
|00005040| 46 46 46 46 46 46 46 3a | 71 25 21 33 36 3d 26 37 |FFFFFFF:|q%!36=&7|
|00005050| 46 46 46 46 46 46 46 0d | 13 b0 1b 20 20 c8 99 20 |FFFFFFF.|... .. |
|00005060| 22 57 69 6d 70 5f 44 72 | 61 67 42 6f 78 22 2c 2c |"Wimp_Dr|agBox",,|
|00005070| 71 25 0d 13 ba 05 cb 0d | 13 c4 05 e1 0d 13 ce 04 |q%......|........|
|00005080| 0d 13 d8 18 dd f2 64 6f | 5f 62 61 63 6b 67 72 6f |......do|_backgro|
|00005090| 75 6e 64 5f 74 61 73 6b | 0d 13 e2 05 e1 0d 13 ec |und_task|........|
|000050a0| 04 0d 13 f6 1b dd f2 72 | 65 64 72 61 77 77 69 6e |.......r|edrawwin|
|000050b0| 64 6f 77 28 68 61 6e 64 | 6c 65 25 29 0d 14 00 0b |dow(hand|le%)....|
|000050c0| ea 20 76 6f 69 64 25 0d | 14 0a 10 71 25 21 30 3d |. void%.|...q%!0=|
|000050d0| 68 61 6e 64 6c 65 25 0d | 14 14 27 c8 99 20 22 57 |handle%.|..'.. "W|
|000050e0| 69 6d 70 5f 52 65 64 72 | 61 77 57 69 6e 64 6f 77 |imp_Redr|awWindow|
|000050f0| 22 2c 30 2c 71 25 20 b8 | 20 6d 6f 72 65 25 0d 14 |",0,q% .| more%..|
|00005100| 1e 1c f2 6c 77 61 6f 72 | 69 67 69 6e 28 71 25 2b |...lwaor|igin(q%+|
|00005110| 34 2c 78 30 25 2c 79 30 | 25 29 0d 14 28 0c c8 95 |4,x0%,y0|%)..(...|
|00005120| 20 6d 6f 72 65 25 0d 14 | 32 0e 20 20 f2 6e 65 77 | more%..|2. .new|
|00005130| 76 61 6c 73 0d 14 3c 12 | 20 20 c8 8e 20 68 61 6e |vals..<.| .. han|
|00005140| 64 6c 65 25 20 ca 0d 14 | 46 07 20 20 cb 0d 14 50 |dle% ...|F. ...P|
|00005150| 38 20 20 c8 99 20 22 57 | 69 6d 70 5f 42 6f 72 64 |8 .. "W|imp_Bord|
|00005160| 65 72 57 69 6e 64 6f 77 | 22 2c 2c 71 25 20 20 20 |erWindow|",,q% |
|00005170| 3a f4 20 4e 65 65 64 73 | 20 49 6e 74 65 72 66 61 |:. Needs| Interfa|
|00005180| 63 65 21 21 21 0d 14 5a | 29 20 20 c8 99 20 22 57 |ce!!!..Z|) .. "W|
|00005190| 69 6d 70 5f 47 65 74 52 | 65 63 74 61 6e 67 6c 65 |imp_GetR|ectangle|
|000051a0| 22 2c 30 2c 71 25 20 b8 | 20 6d 6f 72 65 25 0d 14 |",0,q% .| more%..|
|000051b0| 64 05 ce 0d 14 6e 05 e1 | 0d 14 78 04 0d 14 82 48 |d....n..|..x....H|
|000051c0| f4 20 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |. This f|unction |
|000051d0| 68 61 6e 64 6c 65 73 20 | 61 6e 79 20 73 70 65 63 |handles |any spec|
|000051e0| 69 61 6c 20 77 69 6e 64 | 6f 77 20 63 6c 6f 73 69 |ial wind|ow closi|
|000051f0| 6e 67 20 72 65 71 75 69 | 72 65 6d 65 6e 74 73 2e |ng requi|rements.|
|00005200| 20 46 6f 72 0d 14 8c 4a | f4 20 74 68 65 20 27 6d | For...J|. the 'm|
|00005210| 61 69 6e 77 27 20 77 69 | 6e 64 6f 77 20 69 74 20 |ainw' wi|ndow it |
|00005220| 6a 75 73 74 20 73 65 74 | 73 20 74 68 65 20 6f 70 |just set|s the op|
|00005230| 65 6e 25 20 66 6c 61 67 | 20 74 6f 20 46 41 4c 53 |en% flag| to FALS|
|00005240| 45 20 77 68 69 63 68 20 | 61 6c 6c 6f 77 73 0d 14 |E which |allows..|
|00005250| 96 49 f4 20 74 68 65 20 | 6d 61 69 6e 20 77 69 6e |.I. the |main win|
|00005260| 64 6f 77 20 74 6f 20 62 | 65 20 63 6c 6f 73 65 64 |dow to b|e closed|
|00005270| 20 61 6e 64 20 72 65 6f | 70 65 6e 65 64 20 62 79 | and reo|pened by|
|00005280| 20 63 6c 69 63 6b 69 6e | 67 20 73 65 6c 65 63 74 | clickin|g select|
|00005290| 20 6f 6e 20 74 68 65 0d | 14 a0 49 f4 20 69 63 6f | on the.|..I. ico|
|000052a0| 6e 62 61 72 20 69 63 6f | 6e 2e 20 49 74 20 63 6f |nbar ico|n. It co|
|000052b0| 75 6c 64 20 61 6c 73 6f | 20 6d 61 6b 65 20 77 69 |uld also| make wi|
|000052c0| 6e 64 6f 77 73 20 72 65 | 66 75 73 65 20 74 6f 20 |ndows re|fuse to |
|000052d0| 63 6c 6f 73 65 20 62 79 | 20 73 65 74 74 69 6e 67 |close by| setting|
|000052e0| 0d 14 aa 1d f4 20 73 68 | 75 74 74 69 6e 67 25 20 |..... sh|utting% |
|000052f0| 66 6c 61 67 20 74 6f 20 | 46 41 4c 53 45 0d 14 b4 |flag to |FALSE...|
|00005300| 04 0d 14 be 19 dd a4 6f | 6b 74 6f 63 6c 6f 73 65 |.......o|ktoclose|
|00005310| 77 28 68 61 6e 64 6c 65 | 25 29 0d 14 c8 0f ea 20 |w(handle|%)..... |
|00005320| 73 68 75 74 74 69 6e 67 | 25 0d 14 d2 0f 73 68 75 |shutting|%....shu|
|00005330| 74 74 69 6e 67 25 3d b9 | 0d 14 dc 1e e7 20 68 61 |tting%=.|..... ha|
|00005340| 6e 64 6c 65 25 3d 6d 61 | 69 6e 77 25 20 8c 20 6f |ndle%=ma|inw% . o|
|00005350| 70 65 6e 25 3d a3 0d 14 | e6 0e 3d 73 68 75 74 74 |pen%=...|..=shutt|
|00005360| 69 6e 67 25 0d 14 f0 04 | 0d 14 fa 46 f4 20 54 68 |ing%....|...F. Th|
|00005370| 65 20 6b 65 79 70 72 65 | 73 73 20 72 6f 75 74 69 |e keypre|ss routi|
|00005380| 6e 65 20 69 73 20 6e 65 | 65 64 65 64 20 74 6f 20 |ne is ne|eded to |
|00005390| 68 61 6e 64 6c 65 20 27 | 73 70 65 63 69 61 6c 27 |handle '|special'|
|000053a0| 20 6b 65 79 73 20 74 68 | 61 74 20 74 68 65 0d 15 | keys th|at the..|
|000053b0| 04 48 f4 20 57 49 4d 50 | 20 6d 61 6e 61 67 65 72 |.H. WIMP| manager|
|000053c0| 20 63 61 6e 6e 6f 74 20 | 70 72 6f 63 65 73 73 20 | cannot |process |
|000053d0| 69 74 73 65 6c 66 2e 20 | 54 68 65 73 65 20 69 6e |itself. |These in|
|000053e0| 63 6c 75 64 65 20 74 68 | 65 20 3c 52 45 54 55 52 |clude th|e <RETUR|
|000053f0| 4e 3e 20 61 6e 64 0d 15 | 0e 4a f4 20 75 70 20 61 |N> and..|.J. up a|
|00005400| 6e 64 20 64 6f 77 6e 20 | 63 75 72 73 6f 72 20 6b |nd down |cursor k|
|00005410| 65 79 73 20 77 68 69 63 | 68 20 61 72 65 20 75 73 |eys whic|h are us|
|00005420| 65 64 20 74 6f 20 6d 6f | 76 65 20 74 68 65 20 63 |ed to mo|ve the c|
|00005430| 61 72 65 74 20 74 6f 20 | 74 68 65 20 6e 65 78 74 |aret to |the next|
|00005440| 0d 15 18 46 f4 20 6f 72 | 20 70 72 65 76 69 6f 75 |...F. or| previou|
|00005450| 73 20 77 72 69 74 65 61 | 62 6c 65 20 69 63 6f 6e |s writea|ble icon|
|00005460| 2e 20 53 69 6e 63 65 20 | 74 68 65 20 57 49 4d 50 |. Since |the WIMP|
|00005470| 20 6d 61 6e 61 67 65 72 | 20 64 6f 65 73 20 6e 6f | manager| does no|
|00005480| 74 20 6b 6e 6f 77 0d 15 | 22 44 f4 20 74 68 65 20 |t know..|"D. the |
|00005490| 6f 72 64 65 72 20 69 6e | 20 77 68 69 63 68 20 79 |order in| which y|
|000054a0| 6f 75 20 73 70 65 63 69 | 66 69 65 64 20 74 68 65 |ou speci|fied the|
|000054b0| 20 69 63 6f 6e 73 20 69 | 74 20 6e 65 65 64 73 20 | icons i|t needs |
|000054c0| 73 6f 6d 65 20 68 65 6c | 70 21 0d 15 2c 49 f4 20 |some hel|p!..,I. |
|000054d0| 59 6f 75 20 63 61 6e 20 | 6d 61 6b 65 20 74 68 69 |You can |make thi|
|000054e0| 6e 67 73 20 65 61 73 69 | 65 72 20 66 6f 72 20 79 |ngs easi|er for y|
|000054f0| 6f 75 72 73 65 6c 66 20 | 69 66 20 79 6f 75 20 64 |ourself |if you d|
|00005500| 65 66 69 6e 65 20 74 68 | 65 20 77 72 69 74 65 61 |efine th|e writea|
|00005510| 62 6c 65 0d 15 36 47 f4 | 20 69 63 6f 6e 73 20 69 |ble..6G.| icons i|
|00005520| 6e 20 21 46 6f 72 6d 45 | 64 20 73 6f 20 74 68 61 |n !FormE|d so tha|
|00005530| 74 20 74 68 65 79 20 66 | 6f 72 6d 20 61 20 63 6f |t they f|orm a co|
|00005540| 6e 74 69 6e 75 6f 75 73 | 20 62 6c 6f 63 6b 20 28 |ntinuous| block (|
|00005550| 69 2e 65 2e 20 31 31 2d | 31 35 0d 15 40 4b f4 20 |i.e. 11-|15..@K. |
|00005560| 69 6e 20 27 6d 61 69 6e | 77 27 20 69 6e 20 74 68 |in 'main|w' in th|
|00005570| 69 73 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 29 2e |is appli|cation).|
|00005580| 20 41 6c 6c 20 77 69 6e | 64 6f 77 73 20 72 65 71 | All win|dows req|
|00005590| 75 69 72 69 6e 67 20 73 | 70 65 63 69 61 6c 20 63 |uiring s|pecial c|
|000055a0| 75 72 73 6f 72 0d 15 4a | 45 f4 20 6d 6f 76 65 6d |ursor..J|E. movem|
|000055b0| 65 6e 74 73 20 2d 20 61 | 6e 79 20 77 69 74 68 20 |ents - a|ny with |
|000055c0| 6d 6f 72 65 20 74 68 61 | 6e 20 6f 6e 65 20 77 72 |more tha|n one wr|
|000055d0| 69 74 65 61 62 6c 65 20 | 69 63 6f 6e 20 2d 20 77 |iteable |icon - w|
|000055e0| 69 6c 6c 20 6e 65 65 64 | 20 61 0d 15 54 4b f4 20 |ill need| a..TK. |
|000055f0| 44 45 46 50 52 4f 43 6b | 65 79 70 72 65 73 73 5f |DEFPROCk|eypress_|
|00005600| 78 78 78 78 20 72 6f 75 | 74 69 6e 65 20 68 65 72 |xxxx rou|tine her|
|00005610| 65 2e 20 48 61 76 69 6e | 67 20 61 20 73 65 70 61 |e. Havin|g a sepa|
|00005620| 72 61 74 65 20 72 6f 75 | 74 69 6e 65 20 66 6f 72 |rate rou|tine for|
|00005630| 20 65 61 63 68 0d 15 5e | 41 f4 20 77 69 6e 64 6f | each..^|A. windo|
|00005640| 77 20 6d 61 6b 65 73 20 | 74 68 69 6e 67 73 20 61 |w makes |things a|
|00005650| 20 62 69 74 20 65 61 73 | 69 65 72 20 77 68 65 6e | bit eas|ier when|
|00005660| 20 61 6c 74 65 72 69 6e | 67 20 74 68 65 20 70 72 | alterin|g the pr|
|00005670| 6f 67 72 61 6d 2e 0d 15 | 68 04 0d 15 72 0e dd f2 |ogram...|h...r...|
|00005680| 6b 65 79 70 72 65 73 73 | 0d 15 7c 09 ea 20 69 63 |keypress|..|.. ic|
|00005690| 25 0d 15 86 10 e7 20 71 | 25 21 34 3c 3e 2d 31 20 |%..... q|%!4<>-1 |
|000056a0| 8c 0d 15 90 29 20 20 c8 | 99 20 22 57 69 6d 70 5f |....) .|. "Wimp_|
|000056b0| 47 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |GetCaret|Position|
|000056c0| 22 2c 2c 6d 73 67 62 6c | 6b 25 0d 15 9a 13 20 20 |",,msgbl|k%.... |
|000056d0| 69 63 25 3d 6d 73 67 62 | 6c 6b 25 21 34 0d 15 a4 |ic%=msgb|lk%!4...|
|000056e0| 10 20 20 c8 8e 20 71 25 | 21 32 34 20 ca 0d 15 ae |. .. q%|!24 ....|
|000056f0| 27 20 20 20 20 c9 20 32 | 37 20 8c 20 c8 99 20 22 |' . 2|7 . .. "|
|00005700| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|00005710| 2c 2c 2d 31 0d 15 b8 07 | 20 20 7f 0d 15 c2 11 20 |,,-1....| ..... |
|00005720| 20 20 20 c8 8e 20 71 25 | 21 30 20 ca 0d 15 cc 2f | .. q%|!0 ..../|
|00005730| 20 20 20 20 20 20 c9 20 | 6d 61 69 6e 77 25 20 20 | . |mainw% |
|00005740| 3a f2 6b 65 79 70 72 65 | 73 73 5f 6d 61 69 6e 77 |:.keypre|ss_mainw|
|00005750| 28 69 63 25 2c 71 25 21 | 32 34 29 0d 15 d6 09 20 |(ic%,q%!|24).... |
|00005760| 20 20 20 cb 0d 15 e0 07 | 20 20 cb 0d 15 ea 05 cd | .....| ......|
|00005770| 0d 15 f4 05 e1 0d 15 fe | 04 0d 16 08 20 dd f2 6b |........|.... ..k|
|00005780| 65 79 70 72 65 73 73 5f | 6d 61 69 6e 77 28 69 63 |eypress_|mainw(ic|
|00005790| 6f 6e 25 2c 6b 65 79 25 | 29 0d 16 12 0d c8 8e 20 |on%,key%|)...... |
|000057a0| 6b 65 79 25 20 ca 0d 16 | 1c 17 20 20 c9 20 31 33 |key% ...|.. . 13|
|000057b0| 20 20 3a f4 20 3c 52 45 | 54 55 52 4e 3e 0d 16 26 | :. <RE|TURN>..&|
|000057c0| 24 20 20 69 63 6f 6e 25 | 2b 3d 31 3a e7 20 69 63 |$ icon%|+=1:. ic|
|000057d0| 6f 6e 25 3e 31 35 20 8c | 20 69 63 6f 6e 25 3d 31 |on%>15 .| icon%=1|
|000057e0| 31 0d 16 30 1b 20 20 c9 | 20 26 31 38 45 20 3a f4 |1..0. .| &18E :.|
|000057f0| 20 63 75 72 73 6f 72 20 | 64 6f 77 6e 0d 16 3a 24 | cursor |down..:$|
|00005800| 20 20 69 63 6f 6e 25 2b | 3d 31 3a e7 20 69 63 6f | icon%+|=1:. ico|
|00005810| 6e 25 3e 31 35 20 8c 20 | 69 63 6f 6e 25 3d 31 31 |n%>15 . |icon%=11|
|00005820| 0d 16 44 19 20 20 c9 20 | 26 31 38 46 20 3a f4 20 |..D. . |&18F :. |
|00005830| 63 75 72 73 6f 72 20 75 | 70 0d 16 4e 24 20 20 69 |cursor u|p..N$ i|
|00005840| 63 6f 6e 25 2d 3d 31 3a | e7 20 69 63 6f 6e 25 3c |con%-=1:|. icon%<|
|00005850| 31 31 20 8c 20 69 63 6f | 6e 25 3d 31 35 0d 16 58 |11 . ico|n%=15..X|
|00005860| 05 cb 0d 16 62 4f f2 63 | 61 72 65 74 5f 73 65 74 |....bO.c|aret_set|
|00005870| 70 6f 73 69 74 69 6f 6e | 28 6d 61 69 6e 77 25 2c |position|(mainw%,|
|00005880| 69 63 6f 6e 25 2c 2d 31 | 2c 2d 31 2c 2d 31 2c a9 |icon%,-1|,-1,-1,.|
|00005890| 28 a4 69 63 6f 6e 5f 67 | 65 74 64 61 74 61 28 71 |(.icon_g|etdata(q|
|000058a0| 25 2c 6d 61 69 6e 77 25 | 2c 69 63 6f 6e 25 29 29 |%,mainw%|,icon%))|
|000058b0| 29 0d 16 6c 05 e1 0d 16 | 76 04 0d 16 80 48 f4 20 |)..l....|v....H. |
|000058c0| 54 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 72 6f |The foll|owing ro|
|000058d0| 75 74 69 6e 65 73 20 68 | 61 6e 64 6c 65 20 6d 65 |utines h|andle me|
|000058e0| 6e 75 20 73 65 6c 65 63 | 74 69 6f 6e 73 2e 20 53 |nu selec|tions. S|
|000058f0| 6f 6d 65 20 6f 66 20 74 | 68 65 20 6f 70 74 69 6f |ome of t|he optio|
|00005900| 6e 73 0d 16 8a 49 f4 20 | 28 69 2e 65 2e 20 74 68 |ns...I. |(i.e. th|
|00005910| 65 20 66 69 72 73 74 20 | 74 68 72 65 65 29 20 64 |e first |three) d|
|00005920| 6f 20 6e 6f 74 20 72 65 | 71 75 69 72 65 20 61 6e |o not re|quire an|
|00005930| 79 20 63 6f 64 65 20 62 | 65 63 61 75 73 65 20 74 |y code b|ecause t|
|00005940| 68 65 79 20 6c 65 61 64 | 20 74 6f 0d 16 94 39 f4 |hey lead| to...9.|
|00005950| 20 64 69 61 6c 6f 67 20 | 62 6f 78 65 73 20 77 68 | dialog |boxes wh|
|00005960| 69 63 68 20 61 72 65 20 | 68 61 6e 64 6c 65 64 20 |ich are |handled |
|00005970| 62 79 20 74 68 65 20 57 | 49 4d 50 20 6d 61 6e 61 |by the W|IMP mana|
|00005980| 67 65 72 2e 0d 16 9e 44 | f4 20 45 61 63 68 20 6d |ger....D|. Each m|
|00005990| 65 6e 75 20 77 69 6c 6c | 20 72 65 71 75 69 72 65 |enu will| require|
|000059a0| 20 61 20 72 6f 75 74 69 | 6e 65 20 63 61 6c 6c 65 | a routi|ne calle|
|000059b0| 64 20 46 4e 6d 65 6e 75 | 73 65 6c 65 63 74 5f 78 |d FNmenu|select_x|
|000059c0| 78 78 78 20 68 65 72 65 | 0d 16 a8 04 0d 16 b2 15 |xxx here|........|
|000059d0| dd a4 6d 65 6e 75 73 65 | 6c 65 63 74 5f 6d 61 69 |..menuse|lect_mai|
|000059e0| 6e 0d 16 bc 1b ea 20 6c | 65 76 65 6c 30 2c 6c 65 |n..... l|evel0,le|
|000059f0| 76 65 6c 31 2c 62 75 74 | 74 6f 6e 25 0d 16 c6 0f |vel1,but|ton%....|
|00005a00| 6c 65 76 65 6c 30 3d 71 | 25 21 30 0d 16 d0 0f 6c |level0=q|%!0....l|
|00005a10| 65 76 65 6c 31 3d 71 25 | 21 34 0d 16 da 48 c8 99 |evel1=q%|!4...H..|
|00005a20| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|00005a30| 72 49 6e 66 6f 22 2c 2c | 71 25 20 3a f4 20 72 65 |rInfo",,|q% :. re|
|00005a40| 74 72 69 65 76 65 20 6d | 6f 75 73 65 20 62 75 74 |trieve m|ouse but|
|00005a50| 74 6f 6e 20 73 74 61 74 | 65 20 77 68 69 63 68 20 |ton stat|e which |
|00005a60| 69 73 0d 16 e4 49 62 75 | 74 74 6f 6e 25 3d 71 25 |is...Ibu|tton%=q%|
|00005a70| 21 38 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |!8 | |
|00005a80| 20 20 20 20 3a f4 20 6e | 65 65 64 65 64 20 74 6f | :. n|eeded to|
|00005a90| 20 63 68 65 63 6b 20 69 | 66 20 27 61 64 6a 75 73 | check i|f 'adjus|
|00005aa0| 74 27 20 77 61 73 20 75 | 73 65 64 0d 16 ee 0f c8 |t' was u|sed.....|
|00005ab0| 8e 20 6c 65 76 65 6c 30 | 20 ca 0d 16 f8 21 20 20 |. level0| ....! |
|00005ac0| c9 20 30 20 20 3a 20 f4 | 20 3d 3d 3d 3d 20 49 6e |. 0 : .| ==== In|
|00005ad0| 66 6f 20 20 20 20 20 20 | 3d 3d 3d 0d 17 02 21 20 |fo |===...! |
|00005ae0| 20 c9 20 31 20 20 3a 20 | f4 20 3d 3d 3d 3d 20 46 | . 1 : |. ==== F|
|00005af0| 69 6c 65 73 20 20 20 20 | 20 3d 3d 3d 0d 17 0c 21 |iles | ===...!|
|00005b00| 20 20 c9 20 32 20 20 3a | 20 f4 20 3d 3d 3d 3d 20 | . 2 :| . ==== |
|00005b10| 53 61 76 65 20 20 20 20 | 20 20 3d 3d 3d 0d 17 16 |Save | ===...|
|00005b20| 21 20 20 c9 20 33 20 20 | 3a 20 f4 20 3d 3d 3d 3d |! . 3 |: . ====|
|00005b30| 20 53 65 61 72 63 68 20 | 20 20 20 3d 3d 3d 0d 17 | Search | ===..|
|00005b40| 20 21 20 20 c9 20 34 20 | 20 3a 20 f4 20 3d 3d 3d | ! . 4 | : . ===|
|00005b50| 3d 20 53 75 62 2d 4d 65 | 6e 75 20 20 3d 3d 3d 0d |= Sub-Me|nu ===.|
|00005b60| 17 2a 13 20 20 20 20 c8 | 8e 20 6c 65 76 65 6c 31 |.*. .|. level1|
|00005b70| 20 ca 0d 17 34 0d 20 20 | 20 20 20 20 c9 20 30 0d | ...4. | . 0.|
|00005b80| 17 3e 13 20 20 20 20 20 | 20 20 20 74 69 63 6b 25 |.>. | tick%|
|00005b90| 3d b9 0d 17 48 0d 20 20 | 20 20 20 20 c9 20 31 0d |=...H. | . 1.|
|00005ba0| 17 52 13 20 20 20 20 20 | 20 20 20 74 69 63 6b 25 |.R. | tick%|
|00005bb0| 3d a3 0d 17 5c 0d 20 20 | 20 20 20 20 c9 20 32 0d |=...\. | . 2.|
|00005bc0| 17 66 15 20 20 20 20 20 | 20 20 20 73 68 61 64 65 |.f. | shade|
|00005bd0| 64 25 3d b9 0d 17 70 0d | 20 20 20 20 20 20 c9 20 |d%=...p.| . |
|00005be0| 33 0d 17 7a 15 20 20 20 | 20 20 20 20 20 73 68 61 |3..z. | sha|
|00005bf0| 64 65 64 25 3d a3 0d 17 | 84 09 20 20 20 20 cb 0d |ded%=...|.. ..|
|00005c00| 17 8e 21 20 20 c9 20 35 | 20 20 3a 20 f4 20 3d 3d |..! . 5| : . ==|
|00005c10| 3d 3d 20 57 72 69 74 65 | 61 62 6c 65 20 3d 3d 3d |== Write|able ===|
|00005c20| 0d 17 98 05 cb 0d 17 a2 | 3d e7 20 62 75 74 74 6f |........|=. butto|
|00005c30| 6e 25 3d 31 20 8c 20 f2 | 6d 65 6e 75 5f 6d 61 69 |n%=1 . .|menu_mai|
|00005c40| 6e 20 3a f4 20 61 64 6a | 75 73 74 20 62 75 74 74 |n :. adj|ust butt|
|00005c50| 6f 6e 20 75 73 65 64 2c | 20 73 6f 20 72 65 6f 70 |on used,| so reop|
|00005c60| 65 6e 0d 17 ac 2b 20 20 | 20 20 20 20 20 20 20 20 |en...+ | |
|00005c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005c80| 20 20 20 20 20 20 3a f4 | 20 6d 65 6e 75 0d 17 b6 | :.| menu...|
|00005c90| 06 3d 30 0d 17 c0 04 0d | 17 ca 4c f4 20 48 61 6e |.=0.....|..L. Han|
|00005ca0| 64 6c 65 73 20 6d 65 6e | 75 20 63 6c 69 63 6b 73 |dles men|u clicks|
|00005cb0| 20 6f 6e 20 74 68 65 20 | 69 63 6f 6e 62 61 72 20 | on the |iconbar |
|00005cc0| 69 63 6f 6e 2e 20 49 6e | 20 74 68 69 73 20 63 61 |icon. In| this ca|
|00005cd0| 73 65 20 73 65 6c 65 63 | 74 69 6e 67 20 6f 70 74 |se selec|ting opt|
|00005ce0| 69 6f 6e 0d 17 d4 4c f4 | 20 31 20 28 51 75 69 74 |ion...L.| 1 (Quit|
|00005cf0| 29 20 63 68 65 63 6b 73 | 20 74 6f 20 73 65 65 20 |) checks| to see |
|00005d00| 69 66 20 75 6e 73 61 76 | 65 64 20 64 61 74 61 20 |if unsav|ed data |
|00005d10| 65 78 69 73 74 73 20 2d | 20 69 66 20 69 74 20 64 |exists -| if it d|
|00005d20| 6f 65 73 20 74 68 65 20 | 27 71 75 65 72 79 27 0d |oes the |'query'.|
|00005d30| 17 de 4a f4 20 77 69 6e | 64 6f 77 20 69 73 20 6f |..J. win|dow is o|
|00005d40| 70 65 6e 65 64 20 74 6f | 20 61 73 6b 20 61 20 71 |pened to| ask a q|
|00005d50| 75 65 73 74 69 6f 6e 2e | 20 4f 70 74 69 6f 6e 20 |uestion.| Option |
|00005d60| 30 20 69 73 20 27 49 6e | 66 6f 27 20 28 77 68 69 |0 is 'In|fo' (whi|
|00005d70| 63 68 20 73 68 6f 75 6c | 64 0d 17 e8 48 f4 20 61 |ch shoul|d...H. a|
|00005d80| 6c 77 61 79 73 20 62 65 | 20 74 68 65 20 66 69 72 |lways be| the fir|
|00005d90| 73 74 20 65 6e 74 72 79 | 20 69 6e 20 74 68 69 73 |st entry| in this|
|00005da0| 20 6d 65 6e 75 29 20 61 | 6e 64 20 74 68 69 73 20 | menu) a|nd this |
|00005db0| 69 73 20 68 61 6e 64 6c | 65 64 20 62 79 20 74 68 |is handl|ed by th|
|00005dc0| 65 0d 17 f2 2e f4 20 57 | 49 4d 50 20 6d 61 6e 61 |e..... W|IMP mana|
|00005dd0| 67 65 72 20 73 6f 20 6e | 6f 20 63 6f 64 65 20 69 |ger so n|o code i|
|00005de0| 73 20 72 65 71 75 69 72 | 65 64 20 68 65 72 65 0d |s requir|ed here.|
|00005df0| 17 fc 04 0d 18 06 16 dd | a4 6d 65 6e 75 73 65 6c |........|.menusel|
|00005e00| 65 63 74 5f 73 69 63 6f | 6e 0d 18 10 0c ea 20 6c |ect_sico|n..... l|
|00005e10| 65 76 65 6c 30 0d 18 1a | 0f 6c 65 76 65 6c 30 3d |evel0...|.level0=|
|00005e20| 71 25 21 30 0d 18 24 0f | c8 8e 20 6c 65 76 65 6c |q%!0..$.|.. level|
|00005e30| 30 20 ca 0d 18 2e 14 20 | 20 c9 20 30 3a f4 20 49 |0 ..... | . 0:. I|
|00005e40| 6e 66 6f 20 62 6f 78 0d | 18 38 2a 20 20 c9 20 31 |nfo box.|.8* . 1|
|00005e50| 3a e7 20 24 62 75 66 66 | 65 72 31 25 3d 22 22 20 |:. $buff|er1%="" |
|00005e60| 24 62 75 66 66 65 72 31 | 25 3d 22 26 31 35 35 30 |$buffer1|%="&1550|
|00005e70| 22 0d 18 42 22 20 20 20 | 20 20 20 20 20 3a f2 73 |"..B" | :.s|
|00005e80| 6f 75 6e 64 5f 6f 66 66 | 28 24 62 75 66 66 65 72 |ound_off|($buffer|
|00005e90| 31 25 29 0d 18 4c 15 20 | 20 c9 20 32 3a 63 6c 6f |1%)..L. | . 2:clo|
|00005ea0| 73 65 64 6f 77 6e 3d b9 | 0d 18 56 05 cb 0d 18 60 |sedown=.|..V....`|
|00005eb0| 06 3d 30 0d 18 6a 04 0d | 18 74 48 f4 20 54 68 65 |.=0..j..|.tH. The|
|00005ec0| 20 6d 65 6e 75 20 74 65 | 78 74 20 61 6e 64 20 63 | menu te|xt and c|
|00005ed0| 68 61 72 61 63 74 65 72 | 69 73 74 69 63 73 20 61 |haracter|istics a|
|00005ee0| 72 65 20 64 65 66 69 6e | 65 64 20 68 65 72 65 2e |re defin|ed here.|
|00005ef0| 20 45 61 63 68 20 6d 65 | 6e 75 20 77 69 6c 6c 0d | Each me|nu will.|
|00005f00| 18 7e 4c f4 20 6e 65 65 | 64 20 61 20 72 6f 75 74 |.~L. nee|d a rout|
|00005f10| 69 6e 65 20 63 61 6c 6c | 65 64 20 50 52 4f 43 6d |ine call|ed PROCm|
|00005f20| 65 6e 75 5f 78 78 78 78 | 2e 20 4e 6f 74 65 20 74 |enu_xxxx|. Note t|
|00005f30| 68 61 74 20 74 68 65 20 | 66 69 72 73 74 20 74 68 |hat the |first th|
|00005f40| 72 65 65 20 6f 70 74 69 | 6f 6e 73 0d 18 88 4a f4 |ree opti|ons...J.|
|00005f50| 20 73 68 6f 77 20 68 6f | 77 20 74 6f 20 6f 70 65 | show ho|w to ope|
|00005f60| 6e 20 61 20 64 69 61 6c | 6f 67 20 62 6f 78 20 69 |n a dial|og box i|
|00005f70| 6e 20 61 20 6d 65 6e 75 | 20 2d 20 74 68 65 20 6c |n a menu| - the l|
|00005f80| 61 73 74 20 62 75 74 20 | 6f 6e 65 20 70 61 72 61 |ast but |one para|
|00005f90| 6d 65 74 65 72 0d 18 92 | 1b f4 20 69 73 20 74 68 |meter...|.. is th|
|00005fa0| 65 20 77 69 6e 64 6f 77 | 20 68 61 6e 64 6c 65 2e |e window| handle.|
|00005fb0| 0d 18 9c 43 f4 20 54 68 | 65 20 70 61 72 61 6d 65 |...C. Th|e parame|
|00005fc0| 74 65 72 73 20 70 61 73 | 73 65 64 20 74 6f 20 50 |ters pas|sed to P|
|00005fd0| 52 4f 43 64 65 66 69 6e | 65 5f 6d 65 6e 75 5f 74 |ROCdefin|e_menu_t|
|00005fe0| 65 78 74 20 61 72 65 20 | 61 73 20 66 6f 6c 6c 6f |ext are |as follo|
|00005ff0| 77 73 3a 0d 18 a6 4a f4 | 20 20 20 54 68 65 20 73 |ws:...J.| The s|
|00006000| 74 72 69 6e 67 20 66 6f | 72 20 74 68 65 20 6d 65 |tring fo|r the me|
|00006010| 6e 75 20 74 65 78 74 20 | 2d 20 6e 6f 74 65 20 74 |nu text |- note t|
|00006020| 68 65 20 73 70 65 63 69 | 61 6c 20 66 6f 72 6d 20 |he speci|al form |
|00006030| 72 65 71 75 69 72 65 64 | 20 77 68 65 6e 0d 18 b0 |required| when...|
|00006040| 46 f4 20 20 20 75 73 69 | 6e 67 20 69 6e 64 69 72 |F. usi|ng indir|
|00006050| 65 63 74 65 64 20 6f 72 | 20 77 72 69 74 65 61 62 |ected or| writeab|
|00006060| 6c 65 20 74 65 78 74 20 | 62 75 74 20 70 72 6f 67 |le text |but prog|
|00006070| 72 61 6d 20 63 72 75 6e | 63 68 65 72 73 20 77 68 |ram crun|chers wh|
|00006080| 69 63 68 0d 18 ba 49 f4 | 20 20 20 72 65 61 6c 6c |ich...I.| reall|
|00006090| 6f 63 61 74 65 20 73 68 | 6f 72 74 65 72 20 76 61 |ocate sh|orter va|
|000060a0| 72 69 61 62 6c 65 20 6e | 61 6d 65 73 20 77 69 6c |riable n|ames wil|
|000060b0| 6c 20 6e 6f 74 20 63 6f | 70 65 20 77 69 74 68 20 |l not co|pe with |
|000060c0| 74 68 69 73 21 20 49 66 | 20 79 6f 75 0d 18 c4 45 |this! If| you...E|
|000060d0| f4 20 20 20 77 61 6e 74 | 20 74 6f 20 75 73 65 20 |. want| to use |
|000060e0| 73 75 63 68 20 61 20 63 | 72 75 6e 63 68 65 72 20 |such a c|runcher |
|000060f0| 79 6f 75 20 77 69 6c 6c | 20 6e 65 65 64 20 74 6f |you will| need to|
|00006100| 20 64 69 73 63 6f 76 65 | 72 20 74 68 65 20 6e 65 | discove|r the ne|
|00006110| 77 0d 18 ce 46 f4 20 20 | 20 76 61 72 69 61 62 6c |w...F. | variabl|
|00006120| 65 20 6e 61 6d 65 20 61 | 6e 64 20 73 75 62 73 74 |e name a|nd subst|
|00006130| 69 74 75 74 65 20 69 74 | 20 79 6f 75 72 73 65 6c |itute it| yoursel|
|00006140| 66 20 69 6e 20 74 68 69 | 73 20 72 6f 75 74 69 6e |f in thi|s routin|
|00006150| 65 20 61 66 74 65 72 0d | 18 d8 11 f4 20 20 20 63 |e after.|.... c|
|00006160| 72 75 6e 63 68 69 6e 67 | 0d 18 e2 37 f4 20 20 20 |runching|...7. |
|00006170| 54 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 74 68 |The numb|er of th|
|00006180| 65 20 6d 65 6e 75 20 69 | 74 65 6d 20 2d 20 61 75 |e menu i|tem - au|
|00006190| 74 6f 6d 61 74 69 63 61 | 6c 6c 79 20 73 65 74 0d |tomatica|lly set.|
|000061a0| 18 ec 3a f4 20 20 20 54 | 68 65 20 27 77 72 69 74 |..:. T|he 'writ|
|000061b0| 65 61 62 6c 65 27 20 66 | 6c 61 67 20 54 52 55 45 |eable' f|lag TRUE|
|000061c0| 20 69 66 20 74 68 65 20 | 69 74 65 6d 20 69 73 20 | if the |item is |
|000061d0| 77 72 69 74 65 61 62 6c | 65 0d 18 f6 37 f4 20 20 |writeabl|e...7. |
|000061e0| 20 54 68 65 20 27 74 69 | 63 6b 27 20 66 6c 61 67 | The 'ti|ck' flag|
|000061f0| 20 20 20 20 20 20 54 52 | 55 45 20 69 66 20 74 68 | TR|UE if th|
|00006200| 65 20 69 74 65 6d 20 69 | 73 20 74 69 63 6b 65 64 |e item i|s ticked|
|00006210| 0d 19 00 48 f4 20 20 20 | 54 68 65 20 27 64 6f 74 |...H. |The 'dot|
|00006220| 74 65 64 27 20 66 6c 61 | 67 20 20 20 20 54 52 55 |ted' fla|g TRU|
|00006230| 45 20 69 66 20 74 68 65 | 20 69 74 65 6d 20 68 61 |E if the| item ha|
|00006240| 73 20 61 20 64 6f 74 74 | 65 64 20 6c 69 6e 65 20 |s a dott|ed line |
|00006250| 75 6e 64 65 72 20 69 74 | 0d 19 0a 37 f4 20 20 20 |under it|...7. |
|00006260| 54 68 65 20 27 73 68 61 | 64 65 64 27 20 66 6c 61 |The 'sha|ded' fla|
|00006270| 67 20 20 20 20 54 52 55 | 45 20 69 66 20 74 68 65 |g TRU|E if the|
|00006280| 20 69 74 65 6d 20 69 73 | 20 73 68 61 64 65 64 0d | item is| shaded.|
|00006290| 19 14 47 f4 20 20 20 54 | 68 65 20 6d 65 6e 75 20 |..G. T|he menu |
|000062a0| 69 74 65 6d 20 66 6c 61 | 67 20 20 20 55 73 65 20 |item fla|g Use |
|000062b0| 26 31 30 30 32 31 20 66 | 6f 72 20 6e 6f 72 6d 61 |&10021 f|or norma|
|000062c0| 6c 20 69 74 65 6d 73 2c | 20 6f 72 20 26 31 30 31 |l items,| or &101|
|000062d0| 32 31 20 66 6f 72 0d 19 | 1e 47 f4 20 20 20 20 20 |21 for..|.G. |
|000062e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062f0| 20 20 20 69 6e 64 69 72 | 65 63 74 65 64 20 61 6e | indir|ected an|
|00006300| 64 20 77 72 69 74 65 61 | 62 6c 65 20 69 74 65 6d |d writea|ble item|
|00006310| 73 2e 20 49 6e 64 69 72 | 65 63 74 65 64 0d 19 28 |s. Indir|ected..(|
|00006320| 4a f4 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |J. | |
|00006330| 20 20 20 20 20 20 20 20 | 20 20 69 74 65 6d 73 20 | | items |
|00006340| 61 72 65 20 6e 65 65 64 | 65 64 20 77 68 65 6e 20 |are need|ed when |
|00006350| 6d 6f 72 65 20 74 68 61 | 6e 20 31 31 20 63 68 61 |more tha|n 11 cha|
|00006360| 72 61 63 74 65 72 73 0d | 19 32 38 f4 20 20 20 20 |racters.|.28. |
|00006370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006380| 20 20 20 20 61 72 65 20 | 6e 65 65 64 65 64 20 69 | are |needed i|
|00006390| 6e 20 74 68 65 20 6d 65 | 6e 75 20 69 74 65 6d 0d |n the me|nu item.|
|000063a0| 19 3c 4a f4 20 20 20 54 | 68 65 20 73 75 62 2d 6d |.<J. T|he sub-m|
|000063b0| 65 6e 75 20 6e 75 6d 62 | 65 72 20 20 43 61 6e 20 |enu numb|er Can |
|000063c0| 62 65 20 30 20 66 6f 72 | 20 6e 6f 20 73 75 62 6d |be 0 for| no subm|
|000063d0| 65 6e 75 2c 20 31 2d 39 | 39 20 6d 65 61 6e 73 20 |enu, 1-9|9 means |
|000063e0| 61 20 73 75 62 6d 65 6e | 75 0d 19 46 49 f4 20 20 |a submen|u..FI. |
|000063f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
