home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / blib / Blib / Window < prev   
Unknown  |  1993-03-12  |  8.4 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.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 04 0d 00 02 12 | 2a 7c 73 74 61 72 74 20 |........|*|start |
|00000010| 57 69 6e 64 6f 77 0d 00 | 03 15 2a 7c 21 57 69 6e |Window..|..*|!Win|
|00000020| 64 6f 77 20 4c 69 62 72 | 61 72 79 0d 00 04 07 2a |dow Libr|ary....*|
|00000030| 7c 21 0d 00 05 41 2a 7c | 21 56 65 72 73 69 6f 6e ||!...A*||!Version|
|00000040| 20 31 2e 32 30 20 2d 20 | 28 43 29 20 49 61 6e 20 | 1.20 - |(C) Ian |
|00000050| 50 61 6c 6d 65 72 20 26 | 20 54 6f 6d 20 48 75 67 |Palmer &| Tom Hug|
|00000060| 68 65 73 2c 20 31 73 74 | 20 4d 61 72 63 68 20 31 |hes, 1st| March 1|
|00000070| 39 39 33 0d 00 06 07 2a | 7c 21 0d 00 07 42 2a 7c |993....*||!...B*||
|00000080| 21 54 68 69 73 20 6c 69 | 62 72 61 72 79 20 63 6f |!This li|brary co|
|00000090| 6e 74 61 69 6e 73 20 74 | 68 65 20 67 65 6e 65 72 |ntains t|he gener|
|000000a0| 61 6c 20 72 6f 75 74 69 | 6e 65 73 20 66 6f 72 20 |al routi|nes for |
|000000b0| 68 61 6e 64 6c 69 6e 67 | 20 74 68 65 0d 00 08 42 |handling| the...B|
|000000c0| 2a 7c 21 27 77 69 6e 64 | 6f 77 27 20 64 61 74 61 |*|!'wind|ow' data|
|000000d0| 20 74 79 70 65 2e 20 41 | 20 27 77 69 6e 64 6f 77 | type. A| 'window|
|000000e0| 27 20 69 73 20 61 20 73 | 70 65 63 69 61 6c 20 73 |' is a s|pecial s|
|000000f0| 74 72 75 63 74 75 72 65 | 20 77 68 69 63 68 0d 00 |tructure| which..|
|00000100| 09 3d 2a 7c 21 61 6c 6c | 6f 77 73 20 65 61 73 79 |.=*|!all|ows easy|
|00000110| 20 68 61 6e 64 6c 69 6e | 67 20 6f 66 20 77 69 6e | handlin|g of win|
|00000120| 64 6f 77 73 2c 20 61 6e | 64 20 61 6c 6c 6f 77 73 |dows, an|d allows|
|00000130| 20 64 61 74 61 20 74 6f | 20 62 65 0d 00 0a 46 2a | data to| be...F*|
|00000140| 7c 21 61 74 74 61 74 63 | 68 65 64 20 74 6f 20 61 ||!attatc|hed to a|
|00000150| 20 77 69 6e 64 6f 77 2c | 20 61 6e 64 20 61 6c 73 | window,| and als|
|00000160| 6f 20 61 6c 6c 6f 77 73 | 20 77 69 6e 64 6f 77 20 |o allows| window |
|00000170| 74 6f 20 68 61 76 65 20 | 61 20 27 74 79 70 65 27 |to have |a 'type'|
|00000180| 2e 0d 00 0b 40 2a 7c 21 | 54 68 69 73 20 6c 69 62 |....@*|!|This lib|
|00000190| 72 61 72 79 20 63 6f 6e | 74 61 69 6e 73 20 72 6f |rary con|tains ro|
|000001a0| 75 74 69 6e 65 73 20 74 | 68 61 74 20 61 6c 6c 6f |utines t|hat allo|
|000001b0| 77 20 79 6f 75 20 74 6f | 20 63 72 65 61 74 65 20 |w you to| create |
|000001c0| 61 0d 00 0c 47 2a 7c 21 | 27 77 69 6e 64 6f 77 27 |a...G*|!|'window'|
|000001d0| 20 28 69 65 2e 20 74 65 | 6c 6c 20 74 68 65 20 57 | (ie. te|ll the W|
|000001e0| 49 4d 50 20 61 62 6f 75 | 74 20 69 74 29 2c 20 6f |IMP abou|t it), o|
|000001f0| 70 65 6e 20 61 6e 64 20 | 63 6c 6f 73 65 20 27 77 |pen and |close 'w|
|00000200| 69 6e 64 6f 77 73 27 2c | 0d 00 0d 45 2a 7c 21 73 |indows',|...E*|!s|
|00000210| 65 74 20 74 68 65 20 74 | 69 74 6c 65 2c 20 73 69 |et the t|itle, si|
|00000220| 7a 65 2c 20 70 6f 73 69 | 74 69 6f 6e 2c 20 65 74 |ze, posi|tion, et|
|00000230| 63 2e 20 61 6e 64 20 61 | 6c 73 6f 20 66 69 6e 64 |c. and a|lso find|
|00000240| 20 74 68 65 20 27 77 69 | 6e 64 6f 77 27 0d 00 0e | the 'wi|ndow'...|
|00000250| 44 2a 7c 21 66 72 6f 6d | 20 69 74 27 73 20 68 61 |D*|!from| it's ha|
|00000260| 6e 64 6c 65 20 28 75 73 | 65 66 75 6c 20 77 68 65 |ndle (us|eful whe|
|00000270| 6e 20 74 68 65 20 77 69 | 6d 70 20 73 69 6d 70 6c |n the wi|mp simpl|
|00000280| 79 20 72 65 74 75 72 6e | 73 20 79 6f 75 20 74 68 |y return|s you th|
|00000290| 65 0d 00 0f 43 2a 7c 21 | 68 61 6e 64 6c 65 20 6f |e...C*|!|handle o|
|000002a0| 66 20 61 20 77 69 6e 64 | 6f 77 29 20 61 6e 64 20 |f a wind|ow) and |
|000002b0| 69 74 27 73 20 74 79 70 | 65 2e 20 42 79 20 64 65 |it's typ|e. By de|
|000002c0| 66 61 75 6c 74 20 61 6c | 6c 20 77 69 6e 64 6f 77 |fault al|l window|
|000002d0| 20 61 72 65 0d 00 10 1e | 2a 7c 21 70 6c 61 69 6e | are....|*|!plain|
|000002e0| 20 77 69 6e 64 6f 77 73 | 20 28 74 79 70 65 20 30 | windows| (type 0|
|000002f0| 29 2e 0d 00 11 04 0d 00 | 12 11 2a 7c 73 74 6f 70 |).......|..*|stop|
|00000300| 20 57 69 6e 64 6f 77 0d | 00 13 04 0d 00 14 04 0d | Window.|........|
|00000310| 00 15 18 2a 7c 73 74 61 | 72 74 20 50 52 4f 43 77 |...*|sta|rt PROCw|
|00000320| 69 6e 5f 69 6e 69 74 0d | 00 16 1e 2a 7c 21 50 52 |in_init.|...*|!PR|
|00000330| 4f 43 77 69 6e 5f 69 6e | 69 74 28 20 65 73 74 5f |OCwin_in|it( est_|
|00000340| 6e 75 6d 20 29 0d 00 17 | 07 2a 7c 21 0d 00 18 46 |num )...|.*|!...F|
|00000350| 2a 7c 21 49 6e 69 74 69 | 61 6c 69 73 65 73 20 74 |*|!Initi|alises t|
|00000360| 68 65 20 27 77 69 6e 27 | 20 6c 69 62 72 61 72 79 |he 'win'| library|
|00000370| 2e 20 27 65 73 74 5f 6e | 75 6d 27 20 73 68 6f 75 |. 'est_n|um' shou|
|00000380| 6c 64 20 62 65 20 61 6e | 20 65 73 74 69 6d 61 74 |ld be an| estimat|
|00000390| 65 64 0d 00 19 44 2a 7c | 21 6e 75 6d 62 65 72 20 |ed...D*||!number |
|000003a0| 6f 66 20 6f 70 65 6e 20 | 77 69 6e 64 6f 77 73 20 |of open |windows |
|000003b0| 79 6f 75 20 77 69 6c 6c | 20 72 65 71 75 69 72 65 |you will| require|
|000003c0| 20 61 74 20 61 6e 79 20 | 6f 6e 65 20 74 69 6d 65 | at any |one time|
|000003d0| 2e 20 54 68 69 73 0d 00 | 1a 44 2a 7c 21 65 73 74 |. This..|.D*|!est|
|000003e0| 69 6d 61 74 65 20 64 6f | 65 73 20 6e 6f 74 20 6e |imate do|es not n|
|000003f0| 65 65 64 20 74 6f 20 62 | 65 20 63 6f 72 72 65 63 |eed to b|e correc|
|00000400| 74 2c 20 62 75 74 20 6d | 75 73 74 20 62 65 20 61 |t, but m|ust be a|
|00000410| 74 20 6c 65 61 73 74 20 | 31 2e 0d 00 1b 12 dd f2 |t least |1.......|
|00000420| 77 69 6e 5f 69 6e 69 74 | 28 45 25 29 0d 00 1c 08 |win_init|(E%)....|
|00000430| ea 20 41 25 0d 00 1d 34 | 5f 77 69 6e 5f 6c 69 73 |. A%...4|_win_lis|
|00000440| 74 25 3d a4 6d 61 6c 6c | 6f 63 28 34 2a 45 25 29 |t%=.mall|oc(4*E%)|
|00000450| 3a 45 25 3d a4 73 69 7a | 65 5f 6f 66 28 5f 77 69 |:E%=.siz|e_of(_wi|
|00000460| 6e 5f 6c 69 73 74 25 29 | 0d 00 1e 2a e3 20 41 25 |n_list%)|...*. A%|
|00000470| 3d 30 20 b8 20 45 25 2d | 31 20 88 20 34 3a 21 28 |=0 . E%-|1 . 4:!(|
|00000480| 5f 77 69 6e 5f 6c 69 73 | 74 25 2b 41 25 29 3d 30 |_win_lis|t%+A%)=0|
|00000490| 3a ed 0d 00 1f 05 e1 0d | 00 20 04 0d 00 21 17 2a |:.......|. ...!.*|
|000004a0| 7c 73 74 6f 70 20 50 52 | 4f 43 77 69 6e 5f 69 6e ||stop PR|OCwin_in|
|000004b0| 69 74 0d 00 22 04 0d 00 | 23 04 0d 00 24 1c 2a 7c |it.."...|#...$.*||
|000004c0| 73 74 61 72 74 20 50 52 | 4f 43 77 69 6e 5f 73 65 |start PR|OCwin_se|
|000004d0| 74 74 69 74 6c 65 0d 00 | 25 30 2a 7c 21 50 52 4f |ttitle..|%0*|!PRO|
|000004e0| 43 77 69 6e 5f 73 65 74 | 74 69 74 6c 65 28 20 77 |Cwin_set|title( w|
|000004f0| 69 6e 64 6f 77 20 2c 20 | 74 69 74 6c 65 5f 73 74 |indow , |title_st|
|00000500| 72 69 6e 67 20 29 0d 00 | 26 07 2a 7c 21 0d 00 27 |ring )..|&.*|!..'|
|00000510| 43 2a 7c 21 53 65 74 73 | 20 74 68 65 20 74 69 74 |C*|!Sets| the tit|
|00000520| 6c 65 20 6f 66 20 74 68 | 65 20 67 69 76 65 6e 20 |le of th|e given |
|00000530| 77 69 6e 64 6f 77 2e 20 | 54 68 65 20 74 69 74 6c |window. |The titl|
|00000540| 65 20 69 63 6f 6e 20 4d | 55 53 54 20 68 61 76 65 |e icon M|UST have|
|00000550| 0d 00 28 17 2a 7c 21 69 | 6e 64 69 72 65 63 74 65 |..(.*|!i|ndirecte|
|00000560| 64 20 74 65 78 74 2e 0d | 00 29 19 dd f2 77 69 6e |d text..|.)...win|
|00000570| 5f 73 65 74 74 69 74 6c | 65 28 57 25 2c 54 24 29 |_settitl|e(W%,T$)|
|00000580| 0d 00 2a 0b ea 20 42 25 | 2c 50 25 0d 00 2b 2e 42 |..*.. B%|,P%..+.B|
|00000590| 25 3d 5f 77 69 6d 70 5f | 62 75 66 66 65 72 25 3a |%=_wimp_|buffer%:|
|000005a0| 21 42 25 3d 21 28 57 25 | 2d 38 29 3a c8 99 20 26 |!B%=!(W%|-8):.. &|
|000005b0| 34 30 30 43 43 2c 2c 42 | 25 0d 00 2c 33 e7 20 42 |400CC,,B|%..,3. B|
|000005c0| 25 21 36 30 20 80 20 32 | 35 36 20 8c 20 f2 6f 73 |%!60 . 2|56 . .os|
|000005d0| 5f 70 75 74 73 74 72 69 | 6e 67 28 42 25 21 37 36 |_putstri|ng(B%!76|
|000005e0| 2c c0 54 24 2c 42 25 21 | 38 34 29 29 0d 00 2d 2f |,.T$,B%!|84))..-/|
|000005f0| c8 99 20 26 34 30 30 44 | 31 2c 2d 31 2c 42 25 21 |.. &400D|1,-1,B%!|
|00000600| 34 2c 28 42 25 21 31 36 | 29 2d 33 36 2c 42 25 21 |4,(B%!16|)-36,B%!|
|00000610| 31 32 2c 42 25 21 31 36 | 2b 33 36 0d 00 2e 05 e1 |12,B%!16|+36.....|
|00000620| 0d 00 2f 04 0d 00 30 1b | 2a 7c 73 74 6f 70 20 50 |../...0.|*|stop P|
|00000630| 52 4f 43 77 69 6e 5f 73 | 65 74 74 69 74 6c 65 0d |ROCwin_s|ettitle.|
|00000640| 00 31 04 0d 00 32 04 0d | 00 33 1b 2a 7c 73 74 61 |.1...2..|.3.*|sta|
|00000650| 72 74 20 46 4e 77 69 6e | 5f 63 72 65 61 74 65 77 |rt FNwin|_createw|
|00000660| 69 6e 0d 00 34 27 2a 7c | 21 46 4e 77 69 6e 5f 63 |in..4'*||!FNwin_c|
|00000670| 72 65 61 74 65 77 69 6e | 28 20 74 65 6d 70 6c 61 |reatewin|( templa|
|00000680| 74 65 5f 6e 61 6d 65 20 | 29 0d 00 35 07 2a 7c 21 |te_name |)..5.*|!|
|00000690| 0d 00 36 46 2a 7c 21 43 | 72 65 61 74 65 73 20 61 |..6F*|!C|reates a|
|000006a0| 20 77 69 6e 64 6f 77 20 | 77 69 74 68 20 6f 66 20 | window |with of |
|000006b0| 77 68 69 63 68 20 69 73 | 20 61 20 63 6f 70 79 20 |which is| a copy |
|000006c0| 6f 66 20 74 68 65 20 67 | 69 76 65 6e 20 74 65 6d |of the g|iven tem|
|000006d0| 70 6c 61 74 65 2e 0d 00 | 37 17 dd a4 77 69 6e 5f |plate...|7...win_|
|000006e0| 63 72 65 61 74 65 77 69 | 6e 28 4e 24 29 0d 00 38 |createwi|n(N$)..8|
|000006f0| 08 ea 20 44 25 0d 00 39 | 28 44 25 3d a4 74 65 6d |.. D%..9|(D%=.tem|
|00000700| 70 5f 63 6f 70 79 28 4e | 24 29 3a f2 77 69 6e 5f |p_copy(N|$):.win_|
|00000710| 63 72 65 61 74 65 77 69 | 6e 28 44 25 29 0d 00 3a |createwi|n(D%)..:|
|00000720| 07 3d 44 25 0d 00 3b 04 | 0d 00 3c 1a 2a 7c 73 74 |.=D%..;.|..<.*|st|
|00000730| 6f 70 20 46 4e 77 69 6e | 5f 63 72 65 61 74 65 77 |op FNwin|_createw|
|00000740| 69 6e 0d 00 3d 04 0d 00 | 3e 04 0d 00 3f 1c 2a 7c |in..=...|>...?.*||
|00000750| 73 74 61 72 74 20 46 4e | 77 69 6e 5f 63 72 65 61 |start FN|win_crea|
|00000760| 74 65 66 77 69 6e 0d 00 | 40 28 2a 7c 21 46 4e 77 |tefwin..|@(*|!FNw|
|00000770| 69 6e 5f 63 72 65 61 74 | 65 66 77 69 6e 28 20 74 |in_creat|efwin( t|
|00000780| 65 6d 70 6c 61 74 65 5f | 6e 61 6d 65 20 29 0d 00 |emplate_|name )..|
|00000790| 41 07 2a 7c 21 0d 00 42 | 4a 2a 7c 21 43 72 65 61 |A.*|!..B|J*|!Crea|
|000007a0| 74 65 73 20 61 20 77 69 | 6e 64 6f 77 20 77 69 74 |tes a wi|ndow wit|
|000007b0| 68 20 6f 66 20 77 68 69 | 63 68 20 69 73 20 4e 4f |h of whi|ch is NO|
|000007c0| 54 20 61 20 63 6f 70 79 | 20 6f 66 20 74 68 65 20 |T a copy| of the |
|000007d0| 67 69 76 65 6e 20 74 65 | 6d 70 6c 61 74 65 2c 0d |given te|mplate,.|
|000007e0| 00 43 30 2a 7c 21 62 75 | 74 20 72 61 74 68 65 72 |.C0*|!bu|t rather|
|000007f0| 20 6d 61 64 65 20 66 72 | 6f 6d 20 74 68 65 20 74 | made fr|om the t|
|00000800| 65 6d 70 6c 61 74 65 20 | 69 74 73 65 6c 66 2e 0d |emplate |itself..|
|00000810| 00 44 18 dd a4 77 69 6e | 5f 63 72 65 61 74 65 66 |.D...win|_createf|
|00000820| 77 69 6e 28 4e 24 29 0d | 00 45 08 ea 20 44 25 0d |win(N$).|.E.. D%.|
|00000830| 00 46 2a 44 25 3d a4 77 | 69 6e 5f 66 61 6b 65 77 |.F*D%=.w|in_fakew|
|00000840| 69 6e 28 a4 74 65 6d 70 | 5f 67 65 74 74 65 6d 70 |in(.temp|_gettemp|
|00000850| 6c 61 74 65 28 4e 24 29 | 29 0d 00 47 16 f2 77 69 |late(N$)|)..G..wi|
|00000860| 6e 5f 63 72 65 61 74 65 | 77 69 6e 28 44 25 29 0d |n_create|win(D%).|
|00000870| 00 48 07 3d 44 25 0d 00 | 49 04 0d 00 4a 1b 2a 7c |.H.=D%..|I...J.*||
|00000880| 73 74 6f 70 20 46 4e 77 | 69 6e 5f 63 72 65 61 74 |stop FNw|in_creat|
|00000890| 65 66 77 69 6e 0d 00 4b | 04 0d 00 4c 04 0d 00 4d |efwin..K|...L...M|
|000008a0| 1d 2a 7c 73 74 61 72 74 | 20 50 52 4f 43 77 69 6e |.*|start| PROCwin|
|000008b0| 5f 63 72 65 61 74 65 77 | 69 6e 0d 00 4e 22 2a 7c |_createw|in..N"*||
|000008c0| 21 50 52 4f 43 77 69 6e | 5f 63 72 65 61 74 65 77 |!PROCwin|_createw|
|000008d0| 69 6e 28 20 77 69 6e 64 | 6f 77 20 29 0d 00 4f 07 |in( wind|ow )..O.|
|000008e0| 2a 7c 21 0d 00 50 46 2a | 7c 21 43 72 65 61 74 65 |*|!..PF*||!Create|
|000008f0| 73 20 61 20 77 69 6e 64 | 6f 77 20 66 72 6f 6d 20 |s a wind|ow from |
|00000900| 61 20 77 69 6e 64 6f 77 | 20 64 65 66 69 6e 69 74 |a window| definit|
|00000910| 69 6f 6e 20 28 65 67 2e | 20 61 73 20 72 65 74 75 |ion (eg.| as retu|
|00000920| 72 6e 65 64 20 66 72 6f | 6d 0d 00 51 15 2a 7c 21 |rned fro|m..Q.*|!|
|00000930| 27 46 4e 74 65 6d 70 5f | 63 6f 70 79 27 2e 0d 00 |'FNtemp_|copy'...|
|00000940| 52 17 dd f2 77 69 6e 5f | 63 72 65 61 74 65 77 69 |R...win_|createwi|
|00000950| 6e 28 44 25 29 0d 00 53 | 11 ea 20 57 25 2c 41 25 |n(D%)..S|.. W%,A%|
|00000960| 2c 45 25 2c 46 25 0d 00 | 54 52 e7 20 21 28 44 25 |,E%,F%..|TR. !(D%|
|00000970| 2d 38 29 3c 3e 30 20 f2 | 77 69 6d 70 5f 65 72 72 |-8)<>0 .|wimp_err|
|00000980| 6f 72 28 31 2c 30 2c 22 | 54 72 79 69 6e 67 20 74 |or(1,0,"|Trying t|
|00000990| 6f 20 63 72 65 61 74 65 | 20 61 20 77 69 6e 64 6f |o create| a windo|
|000009a0| 77 20 74 68 61 74 27 73 | 20 61 6c 72 65 61 64 79 |w that's| already|
|000009b0| 20 74 68 65 72 65 22 29 | 0d 00 55 22 c8 99 20 26 | there")|..U".. &|
|000009c0| 34 30 30 43 31 2c 2c 21 | 44 25 20 b8 20 57 25 3a |400C1,,!|D% . W%:|
|000009d0| 21 28 44 25 2d 38 29 3d | 57 25 0d 00 56 4d 45 25 |!(D%-8)=|W%..VME%|
|000009e0| 3d a4 73 69 7a 65 5f 6f | 66 28 5f 77 69 6e 5f 6c |=.size_o|f(_win_l|
|000009f0| 69 73 74 25 29 3a 46 25 | 3d 2d 31 3a e3 20 41 25 |ist%):F%|=-1:. A%|
|00000a00| 3d 30 20 b8 20 45 25 2d | 31 20 88 20 34 3a e7 20 |=0 . E%-|1 . 4:. |
|00000a10| 5f 77 69 6e 5f 6c 69 73 | 74 25 21 41 25 3d 30 20 |_win_lis|t%!A%=0 |
|00000a20| 8c 20 46 25 3d 41 25 0d | 00 57 56 ed 3a e7 20 46 |. F%=A%.|.WV.:. F|
|00000a30| 25 3d 2d 31 20 8c 20 f2 | 72 65 61 6c 6c 6f 63 28 |%=-1 . .|realloc(|
|00000a40| 5f 77 69 6e 5f 6c 69 73 | 74 25 2c 45 25 2b 31 36 |_win_lis|t%,E%+16|
|00000a50| 29 3a 46 25 3d 45 25 3a | e3 20 41 25 3d 45 25 20 |):F%=E%:|. A%=E% |
|00000a60| b8 20 45 25 2b 31 35 20 | 88 20 34 3a 5f 77 69 6e |. E%+15 |. 4:_win|
|00000a70| 5f 6c 69 73 74 25 21 41 | 25 3d 30 3a ed 0d 00 58 |_list%!A|%=0:...X|
|00000a80| 14 5f 77 69 6e 5f 6c 69 | 73 74 25 21 46 25 3d 44 |._win_li|st%!F%=D|
|00000a90| 25 0d 00 59 05 e1 0d 00 | 5a 04 0d 00 5b 1c 2a 7c |%..Y....|Z...[.*||
|00000aa0| 73 74 6f 70 20 50 52 4f | 43 77 69 6e 5f 63 72 65 |stop PRO|Cwin_cre|
|00000ab0| 61 74 65 77 69 6e 0d 00 | 5c 04 0d 00 5d 04 0d 00 |atewin..|\...]...|
|00000ac0| 5e 18 2a 7c 73 74 61 72 | 74 20 46 4e 77 69 6e 5f |^.*|star|t FNwin_|
|00000ad0| 68 61 6e 64 6c 65 0d 00 | 5f 1d 2a 7c 21 46 4e 77 |handle..|_.*|!FNw|
|00000ae0| 69 6e 5f 68 61 6e 64 6c | 65 28 20 77 69 6e 64 6f |in_handl|e( windo|
|00000af0| 77 20 29 0d 00 60 07 2a | 7c 21 0d 00 61 2e 2a 7c |w )..`.*||!..a.*||
|00000b00| 21 52 65 74 75 72 6e 73 | 20 74 68 65 20 68 61 6e |!Returns| the han|
|00000b10| 64 6c 65 20 6f 66 20 74 | 68 65 20 67 69 76 65 6e |dle of t|he given|
|00000b20| 20 77 69 6e 64 6f 77 2e | 0d 00 62 14 dd a4 77 69 | window.|..b...wi|
|00000b30| 6e 5f 68 61 6e 64 6c 65 | 28 57 25 29 0d 00 63 0c |n_handle|(W%)..c.|
|00000b40| 3d 21 28 57 25 2d 38 29 | 0d 00 64 04 0d 00 65 17 |=!(W%-8)|..d...e.|
|00000b50| 2a 7c 73 74 6f 70 20 46 | 4e 77 69 6e 5f 68 61 6e |*|stop F|Nwin_han|
|00000b60| 64 6c 65 0d 00 66 04 0d | 00 67 04 0d 00 68 1d 2a |dle..f..|.g...h.*|
|00000b70| 7c 73 74 61 72 74 20 50 | 52 4f 43 77 69 6e 5f 64 ||start P|ROCwin_d|
|00000b80| 65 6c 65 74 65 77 69 6e | 0d 00 69 22 2a 7c 21 50 |eletewin|..i"*|!P|
|00000b90| 52 4f 43 77 69 6e 5f 64 | 65 6c 65 74 65 77 69 6e |ROCwin_d|eletewin|
|00000ba0| 28 20 77 69 6e 64 6f 77 | 20 29 0d 00 6a 07 2a 7c |( window| )..j.*||
|00000bb0| 21 0d 00 6b 45 2a 7c 21 | 44 65 6c 65 74 65 73 20 |!..kE*|!|Deletes |
|00000bc0| 74 68 65 20 67 69 76 65 | 6e 20 77 69 6e 64 6f 77 |the give|n window|
|00000bd0| 2e 20 27 77 69 6e 64 6f | 77 27 20 69 73 20 73 74 |. 'windo|w' is st|
|00000be0| 69 6c 6c 20 61 20 76 61 | 6c 69 64 20 64 65 66 69 |ill a va|lid defi|
|00000bf0| 6e 69 74 69 6f 6e 0d 00 | 6c 47 2a 7c 21 61 6e 64 |nition..|lG*|!and|
|00000c00| 20 63 61 6e 20 62 65 20 | 70 61 73 73 65 64 20 74 | can be |passed t|
|00000c10| 6f 20 50 52 4f 43 77 69 | 6e 5f 63 72 65 61 74 65 |o PROCwi|n_create|
|00000c20| 77 69 6e 2e 20 54 6f 20 | 72 65 6d 6f 76 65 20 74 |win. To |remove t|
|00000c30| 68 65 20 64 65 66 69 6e | 69 74 69 6f 6e 0d 00 6d |he defin|ition..m|
|00000c40| 3b 2a 7c 21 79 6f 75 20 | 6e 65 65 64 20 74 6f 20 |;*|!you |need to |
|00000c50| 61 6c 73 6f 20 63 61 6c | 6c 20 50 52 4f 43 74 65 |also cal|l PROCte|
|00000c60| 6d 70 5f 64 65 6c 63 6f | 70 79 20 28 6f 72 20 73 |mp_delco|py (or s|
|00000c70| 69 6d 69 6c 61 72 29 2e | 0d 00 6e 17 dd f2 77 69 |imilar).|..n...wi|
|00000c80| 6e 5f 64 65 6c 65 74 65 | 77 69 6e 28 57 25 29 0d |n_delete|win(W%).|
|00000c90| 00 6f 0b ea 20 45 25 2c | 41 25 0d 00 70 5c e7 20 |.o.. E%,|A%..p\. |
|00000ca0| 28 21 28 57 25 2d 31 36 | 29 20 80 20 26 46 46 46 |(!(W%-16|) . &FFF|
|00000cb0| 46 30 30 30 30 29 3c 3e | 26 37 36 43 30 30 30 30 |F0000)<>|&76C0000|
|00000cc0| 20 8c 20 f2 77 69 6d 70 | 5f 65 72 72 6f 72 28 31 | . .wimp|_error(1|
|00000cd0| 2c 30 2c 22 41 74 74 65 | 6d 70 74 20 74 6f 20 64 |,0,"Atte|mpt to d|
|00000ce0| 65 6c 65 74 65 20 69 6e | 76 61 6c 69 64 20 77 69 |elete in|valid wi|
|00000cf0| 6e 64 6f 77 22 29 0d 00 | 71 52 45 25 3d a4 73 69 |ndow")..|qRE%=.si|
|00000d00| 7a 65 5f 6f 66 28 5f 77 | 69 6e 5f 6c 69 73 74 25 |ze_of(_w|in_list%|
|00000d10| 29 3a e3 20 41 25 3d 30 | 20 b8 20 45 25 2d 31 20 |):. A%=0| . E%-1 |
|00000d20| 88 20 34 3a e7 20 57 25 | 3d 5f 77 69 6e 5f 6c 69 |. 4:. W%|=_win_li|
|00000d30| 73 74 25 21 41 25 20 8c | 20 5f 77 69 6e 5f 6c 69 |st%!A% .| _win_li|
|00000d40| 73 74 25 21 41 25 3d 30 | 0d 00 72 3f ed 3a 21 5f |st%!A%=0|..r?.:!_|
|00000d50| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 3d 21 28 57 |wimp_buf|fer%=!(W|
|00000d60| 25 2d 38 29 3a c8 99 20 | 26 34 30 30 43 33 2c 2c |%-8):.. |&400C3,,|
|00000d70| 5f 77 69 6d 70 5f 62 75 | 66 66 65 72 25 3a 21 28 |_wimp_bu|ffer%:!(|
|00000d80| 57 25 2d 38 29 3d 30 0d | 00 73 05 e1 0d 00 74 04 |W%-8)=0.|.s....t.|
|00000d90| 0d 00 75 1c 2a 7c 73 74 | 6f 70 20 50 52 4f 43 77 |..u.*|st|op PROCw|
|00000da0| 69 6e 5f 64 65 6c 65 74 | 65 77 69 6e 0d 00 76 04 |in_delet|ewin..v.|
|00000db0| 0d 00 77 04 0d 00 78 1b | 2a 7c 73 74 61 72 74 20 |..w...x.|*|start |
|00000dc0| 50 52 4f 43 77 69 6e 5f | 6d 6f 76 65 77 69 6e 0d |PROCwin_|movewin.|
|00000dd0| 00 79 28 2a 7c 21 50 52 | 4f 43 77 69 6e 5f 6d 6f |.y(*|!PR|OCwin_mo|
|00000de0| 76 65 77 69 6e 28 20 77 | 69 6e 64 6f 77 20 2c 20 |vewin( w|indow , |
|00000df0| 78 20 2c 20 79 20 29 0d | 00 7a 07 2a 7c 21 0d 00 |x , y ).|.z.*|!..|
|00000e00| 7b 43 2a 7c 21 4d 6f 76 | 65 73 20 74 68 65 20 77 |{C*|!Mov|es the w|
|00000e10| 69 6e 64 6f 77 20 73 75 | 63 68 20 74 68 61 74 20 |indow su|ch that |
|00000e20| 69 74 27 73 20 6c 6f 77 | 65 72 20 6c 65 66 74 20 |it's low|er left |
|00000e30| 63 6f 72 6e 65 72 20 69 | 73 20 61 74 20 78 2c 79 |corner i|s at x,y|
|00000e40| 2e 0d 00 7c 1b dd f2 77 | 69 6e 5f 6d 6f 76 65 77 |...|...w|in_movew|
|00000e50| 69 6e 28 57 25 2c 58 25 | 2c 59 25 29 0d 00 7d 2b |in(W%,X%|,Y%)..}+|
|00000e60| ea 20 78 25 2c 79 25 2c | 42 25 3a 42 25 3d 5f 77 |. x%,y%,|B%:B%=_w|
|00000e70| 69 6d 70 5f 62 75 66 66 | 65 72 25 3a 21 42 25 3d |imp_buff|er%:!B%=|
|00000e80| 21 28 57 25 2d 38 29 0d | 00 7e 2d c8 99 20 26 34 |!(W%-8).|.~-.. &4|
|00000e90| 30 30 43 42 2c 2c 42 25 | 3a 78 25 3d 42 25 21 31 |00CB,,B%|:x%=B%!1|
|00000ea0| 32 2d 42 25 21 34 3a 79 | 25 3d 42 25 21 31 36 2d |2-B%!4:y|%=B%!16-|
|00000eb0| 42 25 21 38 0d 00 7f 2b | 42 25 21 34 3d 58 25 3a |B%!8...+|B%!4=X%:|
|00000ec0| 42 25 21 38 3d 59 25 3a | 42 25 21 31 32 3d 58 25 |B%!8=Y%:|B%!12=X%|
|00000ed0| 2b 78 25 3a 42 25 21 31 | 36 3d 59 25 2b 79 25 0d |+x%:B%!1|6=Y%+y%.|
|00000ee0| 00 80 11 c8 99 20 26 34 | 30 30 43 35 2c 2c 42 25 |..... &4|00C5,,B%|
|00000ef0| 0d 00 81 05 e1 0d 00 82 | 04 0d 00 83 1a 2a 7c 73 |........|.....*|s|
|00000f00| 74 6f 70 20 50 52 4f 43 | 77 69 6e 5f 6d 6f 76 65 |top PROC|win_move|
|00000f10| 77 69 6e 0d 00 84 04 0d | 00 85 04 0d 00 86 1a 2a |win.....|.......*|
|00000f20| 7c 73 74 61 72 74 20 50 | 52 4f 43 77 69 6e 5f 72 ||start P|ROCwin_r|
|00000f30| 65 73 69 7a 65 0d 00 87 | 31 2a 7c 21 50 52 4f 43 |esize...|1*|!PROC|
|00000f40| 77 69 6e 5f 72 65 73 69 | 7a 65 28 20 77 69 6e 64 |win_resi|ze( wind|
|00000f50| 6f 77 20 2c 20 78 5f 73 | 69 7a 65 20 2c 20 79 5f |ow , x_s|ize , y_|
|00000f60| 73 69 7a 65 20 29 0d 00 | 88 07 2a 7c 21 0d 00 89 |size )..|..*|!...|
|00000f70| 20 2a 7c 21 52 65 73 69 | 7a 65 73 20 74 68 65 20 | *|!Resi|zes the |
|00000f80| 67 69 76 65 6e 20 77 69 | 6e 64 6f 77 2e 0d 00 8a |given wi|ndow....|
|00000f90| 1a dd f2 77 69 6e 5f 72 | 65 73 69 7a 65 28 57 25 |...win_r|esize(W%|
|00000fa0| 2c 58 25 2c 59 25 29 0d | 00 8b 25 ea 20 42 25 3a |,X%,Y%).|..%. B%:|
|00000fb0| 42 25 3d 5f 77 69 6d 70 | 5f 62 75 66 66 65 72 25 |B%=_wimp|_buffer%|
|00000fc0| 3a 21 42 25 3d 21 28 57 | 25 2d 38 29 0d 00 8c 3b |:!B%=!(W|%-8)...;|
|00000fd0| c8 99 20 26 34 30 30 43 | 42 2c 2c 42 25 3a 42 25 |.. &400C|B,,B%:B%|
|00000fe0| 21 31 32 3d 42 25 21 34 | 2b 58 25 3a 42 25 21 31 |!12=B%!4|+X%:B%!1|
|00000ff0| 36 3d 42 25 21 38 2b 59 | 25 3a c8 99 20 26 34 30 |6=B%!8+Y|%:.. &40|
|00001000| 30 43 35 2c 2c 42 25 0d | 00 8d 05 e1 0d 00 8e 04 |0C5,,B%.|........|
|00001010| 0d 00 8f 19 2a 7c 73 74 | 6f 70 20 50 52 4f 43 77 |....*|st|op PROCw|
|00001020| 69 6e 5f 72 65 73 69 7a | 65 0d 00 90 04 0d 00 91 |in_resiz|e.......|
|00001030| 04 0d 00 92 1b 2a 7c 73 | 74 61 72 74 20 50 52 4f |.....*|s|tart PRO|
|00001040| 43 77 69 6e 5f 67 65 74 | 73 69 7a 65 0d 00 93 32 |Cwin_get|size...2|
|00001050| 2a 7c 21 50 52 4f 43 77 | 69 6e 5f 67 65 74 73 69 |*|!PROCw|in_getsi|
|00001060| 7a 65 28 20 77 69 6e 64 | 6f 77 20 2c 20 78 5f 73 |ze( wind|ow , x_s|
|00001070| 69 7a 65 20 2c 20 79 5f | 73 69 7a 65 20 29 0d 00 |ize , y_|size )..|
|00001080| 94 07 2a 7c 21 0d 00 95 | 40 2a 7c 21 50 6c 61 63 |..*|!...|@*|!Plac|
|00001090| 65 73 20 74 68 65 20 73 | 69 7a 65 20 6f 66 20 74 |es the s|ize of t|
|000010a0| 68 65 20 67 69 76 65 6e | 20 77 69 6e 64 6f 77 20 |he given| window |
|000010b0| 69 6e 74 6f 20 74 68 65 | 20 74 79 70 65 20 49 4e |into the| type IN|
|000010c0| 54 45 47 45 52 0d 00 96 | 11 2a 7c 21 76 61 72 69 |TEGER...|.*|!vari|
|000010d0| 61 62 6c 65 73 2e 0d 00 | 97 1f dd f2 77 69 6e 5f |ables...|....win_|
|000010e0| 67 65 74 73 69 7a 65 28 | 57 25 2c f8 20 58 25 2c |getsize(|W%,. X%,|
|000010f0| f8 20 59 25 29 0d 00 98 | 25 ea 20 42 25 3a 42 25 |. Y%)...|%. B%:B%|
|00001100| 3d 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 3a 21 |=_wimp_b|uffer%:!|
|00001110| 42 25 3d 21 28 57 25 2d | 38 29 0d 00 99 2d c8 99 |B%=!(W%-|8)...-..|
|00001120| 20 26 34 30 30 43 42 2c | 2c 42 25 3a 58 25 3d 42 | &400CB,|,B%:X%=B|
|00001130| 25 21 31 32 2d 42 25 21 | 34 3a 59 25 3d 42 25 21 |%!12-B%!|4:Y%=B%!|
|00001140| 31 36 2d 42 25 21 38 0d | 00 9a 05 e1 0d 00 9b 04 |16-B%!8.|........|
|00001150| 0d 00 9c 1a 2a 7c 73 74 | 6f 70 20 50 52 4f 43 77 |....*|st|op PROCw|
|00001160| 69 6e 5f 67 65 74 73 69 | 7a 65 0d 00 9d 04 0d 00 |in_getsi|ze......|
|00001170| 9e 04 0d 00 9f 1d 2a 7c | 73 74 61 72 74 20 50 52 |......*||start PR|
|00001180| 4f 43 77 69 6e 5f 73 65 | 74 65 78 74 65 6e 74 0d |OCwin_se|textent.|
|00001190| 00 a0 42 2a 7c 21 50 52 | 4f 43 77 69 6e 5f 73 65 |..B*|!PR|OCwin_se|
|000011a0| 74 65 78 74 65 6e 74 28 | 20 77 69 6e 64 6f 77 20 |textent(| window |
|000011b0| 2c 20 6d 69 6e 5f 78 20 | 2c 20 6d 69 6e 5f 79 20 |, min_x |, min_y |
|000011c0| 2c 20 6d 61 78 5f 78 20 | 2c 20 6d 61 78 5f 79 20 |, max_x |, max_y |
|000011d0| 29 0d 00 a1 07 2a 7c 21 | 0d 00 a2 40 2a 7c 21 53 |)....*|!|...@*|!S|
|000011e0| 65 74 73 20 74 68 65 20 | 77 6f 72 6b 61 72 65 61 |ets the |workarea|
|000011f0| 20 66 6f 72 20 74 68 65 | 20 67 69 76 65 6e 20 77 | for the| given w|
|00001200| 69 6e 64 6f 77 2c 20 61 | 6e 64 20 72 65 73 69 7a |indow, a|nd resiz|
|00001210| 65 73 20 69 74 20 69 66 | 0d 00 a3 11 2a 7c 21 6e |es it if|....*|!n|
|00001220| 65 63 65 73 73 61 72 79 | 2e 0d 00 a4 23 dd f2 77 |ecessary|....#..w|
|00001230| 69 6e 5f 73 65 74 65 78 | 74 65 6e 74 28 57 25 2c |in_setex|tent(W%,|
|00001240| 78 25 2c 79 25 2c 58 25 | 2c 59 25 29 0d 00 a5 22 |x%,y%,X%|,Y%)..."|
|00001250| ea 20 42 25 2c 4f 25 2c | 77 25 2c 68 25 3a 42 25 |. B%,O%,|w%,h%:B%|
|00001260| 3d 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 0d 00 |=_wimp_b|uffer%..|
|00001270| a6 0d 21 42 25 3d 57 25 | 21 2d 38 0d 00 a7 20 c8 |..!B%=W%|!-8... .|
|00001280| 99 20 22 57 69 6d 70 5f | 47 65 74 57 69 6e 64 6f |. "Wimp_|GetWindo|
|00001290| 77 53 74 61 74 65 22 2c | 2c 42 25 0d 00 a8 1a 4f |wState",|,B%....O|
|000012a0| 25 3d a3 3a 77 25 3d 58 | 25 2d 78 25 3a 68 25 3d |%=.:w%=X|%-x%:h%=|
|000012b0| 59 25 2d 79 25 0d 00 a9 | 1f e7 20 77 25 20 3c 20 |Y%-y%...|.. w% < |
|000012c0| 42 25 21 32 30 2b 28 42 | 25 21 31 32 2d 42 25 21 |B%!20+(B|%!12-B%!|
|000012d0| 34 29 20 8c 0d 00 aa 0a | 20 20 4f 25 3d b9 0d 00 |4) .....| O%=...|
|000012e0| ab 1d 20 20 42 25 21 32 | 30 20 3d 20 77 25 2d 28 |.. B%!2|0 = w%-(|
|000012f0| 42 25 21 31 32 2d 42 25 | 21 34 29 0d 00 ac 23 20 |B%!12-B%|!4)...# |
|00001300| 20 e7 20 42 25 21 32 30 | 3c 30 20 84 20 28 42 25 | . B%!20|<0 . (B%|
|00001310| 21 31 32 2d 42 25 21 34 | 29 3e 77 25 20 8c 0d 00 |!12-B%!4|)>w% ...|
|00001320| ad 11 20 20 20 20 42 25 | 21 32 30 20 3d 20 30 0d |.. B%|!20 = 0.|
|00001330| 00 ae 19 20 20 20 20 42 | 25 21 31 32 20 3d 20 42 |... B|%!12 = B|
|00001340| 25 21 34 20 2b 20 77 25 | 0d 00 af 07 20 20 cd 0d |%!4 + w%|.... ..|
|00001350| 00 b0 05 cd 0d 00 b1 1f | e7 20 68 25 20 3c 20 28 |........|. h% < (|
|00001360| 42 25 21 31 36 2d 42 25 | 21 38 29 2d 42 25 21 32 |B%!16-B%|!8)-B%!2|
|00001370| 34 20 8c 0d 00 b2 0a 20 | 20 4f 25 3d b9 0d 00 b3 |4 ..... | O%=....|
|00001380| 1d 20 20 42 25 21 32 34 | 20 3d 20 28 42 25 21 31 |. B%!24| = (B%!1|
|00001390| 36 2d 42 25 21 38 29 2d | 68 25 0d 00 b4 23 20 20 |6-B%!8)-|h%...# |
|000013a0| e7 20 42 25 21 32 34 3e | 30 20 84 20 28 42 25 21 |. B%!24>|0 . (B%!|
|000013b0| 31 36 2d 42 25 21 38 29 | 3e 68 25 20 8c 0d 00 b5 |16-B%!8)|>h% ....|
|000013c0| 11 20 20 20 20 42 25 21 | 32 34 20 3d 20 30 0d 00 |. B%!|24 = 0..|
|000013d0| b6 19 20 20 20 20 42 25 | 21 38 20 3d 20 42 25 21 |.. B%|!8 = B%!|
|000013e0| 31 36 20 2d 20 68 25 0d | 00 b7 07 20 20 cd 0d 00 |16 - h%.|... ...|
|000013f0| b8 05 cd 0d 00 b9 23 e7 | 20 4f 25 20 8c 20 c8 99 |......#.| O% . ..|
|00001400| 20 22 57 69 6d 70 5f 4f | 70 65 6e 57 69 6e 64 6f | "Wimp_O|penWindo|
|00001410| 77 22 2c 2c 42 25 0d 00 | ba 38 21 42 25 3d 78 25 |w",,B%..|.8!B%=x%|
|00001420| 3a 42 25 21 34 3d 79 25 | 3a 42 25 21 38 3d 58 25 |:B%!4=y%|:B%!8=X%|
|00001430| 3a 42 25 21 31 32 3d 59 | 25 3a c8 99 20 26 34 30 |:B%!12=Y|%:.. &40|
|00001440| 30 44 37 2c 21 28 57 25 | 2d 38 29 2c 42 25 0d 00 |0D7,!(W%|-8),B%..|
|00001450| bb 05 e1 0d 00 bc 04 0d | 00 bd 1c 2a 7c 73 74 6f |........|...*|sto|
|00001460| 70 20 50 52 4f 43 77 69 | 6e 5f 73 65 74 65 78 74 |p PROCwi|n_setext|
|00001470| 65 6e 74 0d 00 be 04 0d | 00 bf 04 0d 00 c0 1d 2a |ent.....|.......*|
|00001480| 7c 73 74 61 72 74 20 50 | 52 4f 43 77 69 6e 5f 67 ||start P|ROCwin_g|
|00001490| 65 74 65 78 74 65 6e 74 | 0d 00 c1 42 2a 7c 21 50 |etextent|...B*|!P|
|000014a0| 52 4f 43 77 69 6e 5f 67 | 65 74 65 78 74 65 6e 74 |ROCwin_g|etextent|
|000014b0| 28 20 77 69 6e 64 6f 77 | 20 2c 20 6d 69 6e 5f 78 |( window| , min_x|
|000014c0| 20 2c 20 6d 69 6e 5f 79 | 20 2c 20 6d 61 78 5f 78 | , min_y| , max_x|
|000014d0| 20 2c 20 6d 61 78 5f 79 | 20 29 0d 00 c2 07 2a 7c | , max_y| )....*||
|000014e0| 21 0d 00 c3 41 2a 7c 21 | 50 6c 61 63 65 73 20 74 |!...A*|!|Places t|
|000014f0| 68 65 20 77 69 6e 64 6f | 77 27 73 20 65 78 74 65 |he windo|w's exte|
|00001500| 6e 74 20 76 61 6c 75 65 | 73 20 69 6e 74 6f 20 74 |nt value|s into t|
|00001510| 68 65 20 34 20 49 4e 54 | 45 47 45 52 20 76 61 72 |he 4 INT|EGER var|
|00001520| 73 2e 0d 00 c4 2b dd f2 | 77 69 6e 5f 67 65 74 65 |s....+..|win_gete|
|00001530| 78 74 65 6e 74 28 57 25 | 2c f8 20 78 25 2c f8 20 |xtent(W%|,. x%,. |
|00001540| 79 25 2c f8 20 58 25 2c | f8 20 59 25 29 0d 00 c5 |y%,. X%,|. Y%)...|
|00001550| 25 ea 20 42 25 3a 42 25 | 3d 5f 77 69 6d 70 5f 62 |%. B%:B%|=_wimp_b|
|00001560| 75 66 66 65 72 25 3a 21 | 42 25 3d 21 28 57 25 2d |uffer%:!|B%=!(W%-|
|00001570| 38 29 0d 00 c6 35 c8 99 | 20 26 34 30 30 43 43 2c |8)...5..| &400CC,|
|00001580| 2c 42 25 3a 78 25 3d 42 | 25 21 34 34 3a 79 25 3d |,B%:x%=B|%!44:y%=|
|00001590| 42 25 21 34 38 3a 58 25 | 3d 42 25 21 35 32 3a 59 |B%!48:X%|=B%!52:Y|
|000015a0| 25 3d 42 25 21 35 36 0d | 00 c7 05 e1 0d 00 c8 04 |%=B%!56.|........|
|000015b0| 0d 00 c9 1c 2a 7c 73 74 | 6f 70 20 50 52 4f 43 77 |....*|st|op PROCw|
|000015c0| 69 6e 5f 67 65 74 65 78 | 74 65 6e 74 0d 00 ca 04 |in_getex|tent....|
|000015d0| 0d 00 cb 04 0d 00 cc 1a | 2a 7c 73 74 61 72 74 20 |........|*|start |
|000015e0| 50 52 4f 43 77 69 6e 5f | 67 65 74 70 6f 73 0d 00 |PROCwin_|getpos..|
|000015f0| cd 27 2a 7c 21 50 52 4f | 43 77 69 6e 5f 67 65 74 |.'*|!PRO|Cwin_get|
|00001600| 70 6f 73 28 20 77 69 6e | 64 6f 77 20 2c 20 78 20 |pos( win|dow , x |
|00001610| 2c 20 79 20 29 0d 00 ce | 07 2a 7c 21 0d 00 cf 43 |, y )...|.*|!...C|
|00001620| 2a 7c 21 50 6c 61 63 65 | 73 20 74 68 65 20 63 6f |*|!Place|s the co|
|00001630| 6f 72 64 69 6e 61 74 65 | 73 20 6f 66 20 74 68 65 |ordinate|s of the|
|00001640| 20 6c 6f 77 65 72 20 6c | 65 66 74 20 63 6f 72 6e | lower l|eft corn|
|00001650| 65 72 20 6f 66 20 74 68 | 65 20 67 69 76 65 6e 0d |er of th|e given.|
|00001660| 00 d0 31 2a 7c 21 77 69 | 6e 64 6f 77 20 69 6e 74 |..1*|!wi|ndow int|
|00001670| 6f 20 74 68 65 20 78 20 | 61 6e 64 20 79 20 49 4e |o the x |and y IN|
|00001680| 54 45 47 45 52 20 76 61 | 72 69 61 62 6c 65 73 2e |TEGER va|riables.|
|00001690| 0d 00 d1 1e dd f2 77 69 | 6e 5f 67 65 74 70 6f 73 |......wi|n_getpos|
|000016a0| 28 57 25 2c f8 20 58 25 | 2c f8 20 59 25 29 0d 00 |(W%,. X%|,. Y%)..|
|000016b0| d2 25 ea 20 42 25 3a 42 | 25 3d 5f 77 69 6d 70 5f |.%. B%:B|%=_wimp_|
|000016c0| 62 75 66 66 65 72 25 3a | 21 42 25 3d 21 28 57 25 |buffer%:|!B%=!(W%|
|000016d0| 2d 38 29 0d 00 d3 21 c8 | 99 20 26 34 30 30 43 42 |-8)...!.|. &400CB|
|000016e0| 2c 2c 42 25 3a 58 25 3d | 42 25 21 34 3a 59 25 3d |,,B%:X%=|B%!4:Y%=|
|000016f0| 42 25 21 38 0d 00 d4 05 | e1 0d 00 d5 04 0d 00 d6 |B%!8....|........|
|00001700| 19 2a 7c 73 74 6f 70 20 | 50 52 4f 43 77 69 6e 5f |.*|stop |PROCwin_|
|00001710| 67 65 74 70 6f 73 0d 00 | d7 04 0d 00 d8 04 0d 00 |getpos..|........|
|00001720| d9 1b 2a 7c 73 74 61 72 | 74 20 50 52 4f 43 77 69 |..*|star|t PROCwi|
|00001730| 6e 5f 6f 70 65 6e 77 69 | 6e 0d 00 da 20 2a 7c 21 |n_openwi|n... *|!|
|00001740| 50 52 4f 43 77 69 6e 5f | 6f 70 65 6e 77 69 6e 28 |PROCwin_|openwin(|
|00001750| 20 77 69 6e 64 6f 77 20 | 29 0d 00 db 07 2a 7c 21 | window |)....*|!|
|00001760| 0d 00 dc 1e 2a 7c 21 4f | 70 65 6e 73 20 74 68 65 |....*|!O|pens the|
|00001770| 20 67 69 76 65 6e 20 77 | 69 6e 64 6f 77 2e 0d 00 | given w|indow...|
|00001780| dd 15 dd f2 77 69 6e 5f | 6f 70 65 6e 77 69 6e 28 |....win_|openwin(|
|00001790| 57 25 29 0d 00 de 25 ea | 20 42 25 3a 42 25 3d 5f |W%)...%.| B%:B%=_|
|000017a0| 77 69 6d 70 5f 62 75 66 | 66 65 72 25 3a 21 42 25 |wimp_buf|fer%:!B%|
|000017b0| 3d 21 28 57 25 2d 38 29 | 0d 00 df 1f c8 99 20 26 |=!(W%-8)|...... &|
|000017c0| 34 30 30 43 42 2c 2c 42 | 25 3a c8 99 20 26 34 30 |400CB,,B|%:.. &40|
|000017d0| 30 43 35 2c 2c 42 25 0d | 00 e0 05 e1 0d 00 e1 04 |0C5,,B%.|........|
|000017e0| 0d 00 e2 1a 2a 7c 73 74 | 6f 70 20 50 52 4f 43 77 |....*|st|op PROCw|
|000017f0| 69 6e 5f 6f 70 65 6e 77 | 69 6e 0d 00 e3 04 0d 00 |in_openw|in......|
|00001800| e4 04 0d 00 e5 1c 2a 7c | 73 74 61 72 74 20 50 52 |......*||start PR|
|00001810| 4f 43 77 69 6e 5f 63 6c | 6f 73 65 77 69 6e 0d 00 |OCwin_cl|osewin..|
|00001820| e6 21 2a 7c 21 50 52 4f | 43 77 69 6e 5f 63 6c 6f |.!*|!PRO|Cwin_clo|
|00001830| 73 65 77 69 6e 28 20 77 | 69 6e 64 6f 77 20 29 0d |sewin( w|indow ).|
|00001840| 00 e7 07 2a 7c 21 0d 00 | e8 1f 2a 7c 21 43 6c 6f |...*|!..|..*|!Clo|
|00001850| 73 65 73 20 74 68 65 20 | 67 69 76 65 6e 20 77 69 |ses the |given wi|
|00001860| 6e 64 6f 77 2e 0d 00 e9 | 16 dd f2 77 69 6e 5f 63 |ndow....|...win_c|
|00001870| 6c 6f 73 65 77 69 6e 28 | 57 25 29 0d 00 ea 33 21 |losewin(|W%)...3!|
|00001880| 5f 77 69 6d 70 5f 62 75 | 66 66 65 72 25 3d 21 28 |_wimp_bu|ffer%=!(|
|00001890| 57 25 2d 38 29 3a c8 99 | 20 26 34 30 30 43 36 2c |W%-8):..| &400C6,|
|000018a0| 2c 5f 77 69 6d 70 5f 62 | 75 66 66 65 72 25 0d 00 |,_wimp_b|uffer%..|
|000018b0| eb 05 e1 0d 00 ec 04 0d | 00 ed 1b 2a 7c 73 74 6f |........|...*|sto|
|000018c0| 70 20 50 52 4f 43 77 69 | 6e 5f 63 6c 6f 73 65 77 |p PROCwi|n_closew|
|000018d0| 69 6e 0d 00 ee 04 0d 00 | ef 04 0d 00 f0 19 2a 7c |in......|......*||
|000018e0| 73 74 61 72 74 20 46 4e | 77 69 6e 5f 66 69 6e 64 |start FN|win_find|
|000018f0| 77 69 6e 0d 00 f1 1e 2a | 7c 21 46 4e 77 69 6e 5f |win....*||!FNwin_|
|00001900| 66 69 6e 64 77 69 6e 28 | 20 68 61 6e 64 6c 65 20 |findwin(| handle |
|00001910| 29 0d 00 f2 07 2a 7c 21 | 0d 00 f3 41 2a 7c 21 47 |)....*|!|...A*|!G|
|00001920| 69 76 65 6e 20 61 20 68 | 61 6e 64 6c 65 20 74 68 |iven a h|andle th|
|00001930| 69 73 20 72 6f 75 74 69 | 6e 65 20 77 69 6c 6c 20 |is routi|ne will |
|00001940| 72 65 74 75 72 6e 20 74 | 68 65 20 27 77 69 6e 64 |return t|he 'wind|
|00001950| 6f 77 27 20 77 68 69 63 | 68 0d 00 f4 38 2a 7c 21 |ow' whic|h...8*|!|
|00001960| 68 61 73 20 74 68 61 74 | 20 68 61 6e 64 6c 65 2e |has that| handle.|
|00001970| 20 52 65 74 75 72 6e 73 | 20 2d 31 20 69 66 20 68 | Returns| -1 if h|
|00001980| 61 6e 64 6c 65 20 69 73 | 20 69 6e 76 61 6c 69 64 |andle is| invalid|
|00001990| 2e 0d 00 f5 15 dd a4 77 | 69 6e 5f 66 69 6e 64 77 |.......w|in_findw|
|000019a0| 69 6e 28 48 25 29 0d 00 | f6 11 ea 20 45 25 2c 41 |in(H%)..|... E%,A|
|000019b0| 25 2c 46 25 2c 50 25 0d | 00 f7 44 45 25 3d a4 73 |%,F%,P%.|..DE%=.s|
|000019c0| 69 7a 65 5f 6f 66 28 5f | 77 69 6e 5f 6c 69 73 74 |ize_of(_|win_list|
|000019d0| 25 29 3a 46 25 3d 2d 31 | 3a e3 20 41 25 3d 30 20 |%):F%=-1|:. A%=0 |
|000019e0| b8 20 45 25 2d 31 20 88 | 20 34 3a 50 25 3d 5f 77 |. E%-1 .| 4:P%=_w|
|000019f0| 69 6e 5f 6c 69 73 74 25 | 21 41 25 0d 00 f8 22 e7 |in_list%|!A%...".|
|00001a00| 20 50 25 3c 3e 30 20 8c | 20 e7 20 21 28 50 25 2d | P%<>0 .| . !(P%-|
|00001a10| 38 29 3d 48 25 20 8c 20 | 46 25 3d 50 25 0d 00 f9 |8)=H% . |F%=P%...|
|00001a20| 09 ed 3a 3d 46 25 0d 00 | fa 04 0d 00 fb 18 2a 7c |..:=F%..|......*||
|00001a30| 73 74 6f 70 20 46 4e 77 | 69 6e 5f 66 69 6e 64 77 |stop FNw|in_findw|
|00001a40| 69 6e 0d 00 fc 04 0d 00 | fd 04 0d 00 fe 1a 2a 7c |in......|......*||
|00001a50| 73 74 61 72 74 20 46 4e | 77 69 6e 5f 66 69 6e 64 |start FN|win_find|
|00001a60| 74 79 70 65 0d 00 ff 1f | 2a 7c 21 46 4e 77 69 6e |type....|*|!FNwin|
|00001a70| 5f 66 69 6e 64 74 79 70 | 65 28 20 77 69 6e 64 6f |_findtyp|e( windo|
|00001a80| 77 20 29 0d 01 00 07 2a | 7c 21 0d 01 01 47 2a 7c |w )....*||!...G*||
|00001a90| 21 52 65 74 75 72 6e 73 | 20 74 68 65 20 77 69 6e |!Returns| the win|
|00001aa0| 64 6f 77 20 74 79 70 65 | 20 69 64 65 6e 74 69 66 |dow type| identif|
|00001ab0| 69 65 72 20 28 49 4e 54 | 45 47 45 52 29 20 66 6f |ier (INT|EGER) fo|
|00001ac0| 72 20 61 20 67 69 76 65 | 6e 20 77 69 6e 64 6f 77 |r a give|n window|
|00001ad0| 2e 0d 01 02 39 2a 7c 21 | 52 65 74 75 72 6e 73 20 |....9*|!|Returns |
|00001ae0| 30 20 66 6f 72 20 70 6c | 61 69 6e 20 77 69 6e 64 |0 for pl|ain wind|
|00001af0| 6f 77 2c 20 2d 31 20 66 | 6f 72 20 69 6e 76 61 6c |ow, -1 f|or inval|
|00001b00| 69 64 20 77 69 6e 64 6f | 77 2e 0d 01 03 16 dd a4 |id windo|w.......|
|00001b10| 77 69 6e 5f 66 69 6e 64 | 74 79 70 65 28 57 25 29 |win_find|type(W%)|
|00001b20| 0d 01 04 2c e7 20 28 21 | 28 57 25 2d 31 36 29 20 |...,. (!|(W%-16) |
|00001b30| 80 20 26 46 46 46 46 30 | 30 30 30 29 3c 3e 26 37 |. &FFFF0|000)<>&7|
|00001b40| 36 43 30 30 30 30 20 8c | 20 3d 2d 31 0d 01 05 17 |6C0000 .| =-1....|
|00001b50| 3d 28 21 28 57 25 2d 31 | 36 29 20 80 20 26 46 46 |=(!(W%-1|6) . &FF|
|00001b60| 46 46 29 0d 01 06 04 0d | 01 07 19 2a 7c 73 74 6f |FF).....|...*|sto|
|00001b70| 70 20 46 4e 77 69 6e 5f | 66 69 6e 64 74 79 70 65 |p FNwin_|findtype|
|00001b80| 0d 01 08 04 0d 01 09 1b | 2a 7c 73 74 61 72 74 20 |........|*|start |
|00001b90| 50 52 4f 43 77 69 6e 5f | 73 65 74 74 79 70 65 0d |PROCwin_|settype.|
|00001ba0| 01 0a 27 2a 7c 21 50 52 | 4f 43 77 69 6e 5f 73 65 |..'*|!PR|OCwin_se|
|00001bb0| 74 74 79 70 65 28 20 77 | 69 6e 64 6f 77 20 2c 20 |ttype( w|indow , |
|00001bc0| 74 79 70 65 20 29 0d 01 | 0b 07 2a 7c 21 0d 01 0c |type )..|..*|!...|
|00001bd0| 24 2a 7c 21 53 65 74 73 | 20 74 68 65 20 67 69 76 |$*|!Sets| the giv|
|00001be0| 65 6e 20 77 69 6e 64 6f | 77 27 73 20 74 79 70 65 |en windo|w's type|
|00001bf0| 2e 0d 01 0d 18 dd f2 77 | 69 6e 5f 73 65 74 74 79 |.......w|in_setty|
|00001c00| 70 65 28 57 25 2c 54 25 | 29 0d 01 0e 6e e7 20 28 |pe(W%,T%|)...n. (|
|00001c10| 21 28 57 25 2d 31 36 29 | 20 80 20 26 46 46 46 46 |!(W%-16)| . &FFFF|
|00001c20| 30 30 30 30 29 3c 3e 26 | 37 36 43 30 30 30 30 20 |0000)<>&|76C0000 |
|00001c30| 8c 20 f2 77 69 6d 70 5f | 65 72 72 6f 72 28 31 2c |. .wimp_|error(1,|
|00001c40| 30 2c 22 41 74 74 65 6d | 70 74 20 74 6f 20 73 65 |0,"Attem|pt to se|
|00001c50| 74 20 77 69 6e 64 6f 77 | 20 74 79 70 65 20 74 6f |t window| type to|
|00001c60| 20 62 61 64 20 77 69 6e | 64 6f 77 20 73 74 72 75 | bad win|dow stru|
|00001c70| 63 74 75 72 65 22 29 0d | 01 0f 24 21 28 57 25 2d |cture").|..$!(W%-|
|00001c80| 31 36 29 3d 26 37 36 43 | 30 30 30 30 20 84 20 28 |16)=&76C|0000 . (|
|00001c90| 26 46 46 46 46 20 80 20 | 54 25 29 0d 01 10 05 e1 |&FFFF . |T%).....|
|00001ca0| 0d 01 11 04 0d 01 12 1a | 2a 7c 73 74 6f 70 20 50 |........|*|stop P|
|00001cb0| 52 4f 43 77 69 6e 5f 73 | 65 74 74 79 70 65 0d 01 |ROCwin_s|ettype..|
|00001cc0| 13 04 0d 01 14 19 2a 7c | 73 74 61 72 74 20 46 4e |......*||start FN|
|00001cd0| 77 69 6e 5f 66 61 6b 65 | 77 69 6e 0d 01 15 22 2a |win_fake|win..."*|
|00001ce0| 7c 21 46 4e 77 69 6e 5f | 66 61 6b 65 77 69 6e 28 ||!FNwin_|fakewin(|
|00001cf0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 29 0d 01 16 | definit|ion )...|
|00001d00| 07 2a 7c 21 0d 01 17 4a | 2a 7c 21 43 72 65 61 74 |.*|!...J|*|!Creat|
|00001d10| 65 73 20 61 20 27 77 69 | 6e 64 6f 77 27 20 66 72 |es a 'wi|ndow' fr|
|00001d20| 6f 6d 20 61 20 64 65 66 | 69 6e 69 74 69 6f 6e 2e |om a def|inition.|
|00001d30| 20 54 68 65 20 72 65 74 | 75 72 6e 65 64 20 70 6f | The ret|urned po|
|00001d40| 69 6e 74 65 72 20 63 61 | 6e 20 74 68 65 6e 0d 01 |inter ca|n then..|
|00001d50| 18 50 2a 7c 21 62 65 20 | 70 61 73 73 65 64 20 61 |.P*|!be |passed a|
|00001d60| 73 20 61 20 6e 6f 72 6d | 61 6c 20 27 77 69 6e 64 |s a norm|al 'wind|
|00001d70| 6f 77 27 20 74 6f 20 6f | 74 68 65 72 20 72 6f 75 |ow' to o|ther rou|
|00001d80| 74 69 6e 65 73 20 28 65 | 67 2e 20 50 52 4f 43 77 |tines (e|g. PROCw|
|00001d90| 69 6e 5f 63 72 65 61 74 | 65 77 69 6e 29 2e 0d 01 |in_creat|ewin)...|
|00001da0| 19 48 2a 7c 21 54 68 69 | 73 20 66 75 6e 63 74 69 |.H*|!Thi|s functi|
|00001db0| 6f 6e 20 61 6c 6c 6f 77 | 73 20 79 6f 75 20 74 6f |on allow|s you to|
|00001dc0| 20 63 72 65 61 74 65 20 | 77 69 6e 64 6f 77 73 20 | create |windows |
|00001dd0| 64 69 72 65 63 74 6c 79 | 20 66 72 6f 6d 20 74 65 |directly| from te|
|00001de0| 6d 70 6c 61 74 65 0d 01 | 1a 2f 2a 7c 21 65 6e 74 |mplate..|./*|!ent|
|00001df0| 72 69 65 73 20 77 69 74 | 68 6f 75 74 20 68 61 76 |ries wit|hout hav|
|00001e00| 69 6e 67 20 74 6f 20 63 | 72 65 61 74 65 20 63 6f |ing to c|reate co|
|00001e10| 70 69 65 73 2e 0d 01 1b | 15 dd a4 77 69 6e 5f 66 |pies....|...win_f|
|00001e20| 61 6b 65 77 69 6e 28 50 | 25 29 0d 01 1c 08 ea 20 |akewin(P|%)..... |
|00001e30| 57 25 0d 01 1d 3e 57 25 | 3d a4 6d 61 6c 6c 6f 63 |W%...>W%|=.malloc|
|00001e40| 28 32 30 29 3a 21 57 25 | 3d 26 37 36 43 30 30 30 |(20):!W%|=&76C000|
|00001e50| 30 3a 57 25 21 34 3d 30 | 3a 57 25 21 38 3d 30 3a |0:W%!4=0|:W%!8=0:|
|00001e60| 57 25 21 31 32 3d 30 3a | 57 25 21 31 36 3d 50 25 |W%!12=0:|W%!16=P%|
|00001e70| 0d 01 1e 0a 3d 57 25 2b | 31 36 0d 01 1f 04 0d 01 |....=W%+|16......|
|00001e80| 20 18 2a 7c 73 74 6f 70 | 20 46 4e 77 69 6e 5f 66 | .*|stop| FNwin_f|
|00001e90| 61 6b 65 77 69 6e 0d 01 | 21 1d 2a 7c 73 74 61 72 |akewin..|!.*|star|
|00001ea0| 74 20 50 52 4f 43 77 69 | 6e 5f 72 65 64 72 61 77 |t PROCwi|n_redraw|
|00001eb0| 77 69 6e 0d 01 22 22 2a | 7c 21 50 52 4f 43 77 69 |win..""*||!PROCwi|
|00001ec0| 6e 5f 72 65 64 72 61 77 | 77 69 6e 28 20 77 69 6e |n_redraw|win( win|
|00001ed0| 64 6f 77 20 29 0d 01 23 | 07 2a 7c 21 0d 01 24 3e |dow )..#|.*|!..$>|
|00001ee0| 2a 7c 21 54 68 69 73 20 | 70 72 6f 63 65 64 75 72 |*|!This |procedur|
|00001ef0| 65 20 66 6f 72 63 65 73 | 20 61 20 72 65 64 72 61 |e forces| a redra|
|00001f00| 77 20 6f 66 20 74 68 65 | 20 73 70 65 63 69 66 69 |w of the| specifi|
|00001f10| 65 64 20 77 69 6e 64 6f | 77 2e 0d 01 25 18 dd 20 |ed windo|w...%.. |
|00001f20| f2 77 69 6e 5f 72 65 64 | 72 61 77 77 69 6e 28 57 |.win_red|rawwin(W|
|00001f30| 25 29 0d 01 26 15 ea 20 | 78 31 25 2c 79 31 25 2c |%)..&.. |x1%,y1%,|
|00001f40| 78 32 25 2c 79 32 25 0d | 01 27 18 21 5f 77 69 6d |x2%,y2%.|.'.!_wim|
|00001f50| 70 5f 62 75 66 66 65 72 | 25 3d 57 25 21 2d 38 0d |p_buffer|%=W%!-8.|
|00001f60| 01 28 2b c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |.(+.. "W|imp_GetW|
|00001f70| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 5f 77 69 |indowSta|te",,_wi|
|00001f80| 6d 70 5f 62 75 66 66 65 | 72 25 0d 01 29 18 78 31 |mp_buffe|r%..).x1|
|00001f90| 25 3d 5f 77 69 6d 70 5f | 62 75 66 66 65 72 25 21 |%=_wimp_|buffer%!|
|00001fa0| 32 30 0d 01 2a 18 79 32 | 25 3d 5f 77 69 6d 70 5f |20..*.y2|%=_wimp_|
|00001fb0| 62 75 66 66 65 72 25 21 | 32 34 0d 01 2b 30 78 32 |buffer%!|24..+0x2|
|00001fc0| 25 3d 78 31 25 2b 28 5f | 77 69 6d 70 5f 62 75 66 |%=x1%+(_|wimp_buf|
|00001fd0| 66 65 72 25 21 31 32 29 | 2d 28 5f 77 69 6d 70 5f |fer%!12)|-(_wimp_|
|00001fe0| 62 75 66 66 65 72 25 21 | 34 29 0d 01 2c 30 79 31 |buffer%!|4)..,0y1|
|00001ff0| 25 3d 79 32 25 2b 28 5f | 77 69 6d 70 5f 62 75 66 |%=y2%+(_|wimp_buf|
|00002000| 66 65 72 25 21 38 29 2d | 28 5f 77 69 6d 70 5f 62 |fer%!8)-|(_wimp_b|
|00002010| 75 66 66 65 72 25 21 31 | 36 29 0d 01 2d 2f c8 99 |uffer%!1|6)..-/..|
|00002020| 20 22 57 69 6d 70 5f 46 | 6f 72 63 65 52 65 64 72 | "Wimp_F|orceRedr|
|00002030| 61 77 22 2c 57 25 21 2d | 38 2c 78 31 25 2c 79 31 |aw",W%!-|8,x1%,y1|
|00002040| 25 2c 78 32 25 2c 79 32 | 25 0d 01 2e 05 e1 0d 01 |%,x2%,y2|%.......|
|00002050| 2f 04 0d 01 30 1c 2a 7c | 73 74 6f 70 20 50 52 4f |/...0.*||stop PRO|
|00002060| 43 77 69 6e 5f 72 65 64 | 72 61 77 77 69 6e 0d 01 |Cwin_red|rawwin..|
|00002070| 31 1a 2a 7c 73 74 61 72 | 74 20 50 52 4f 43 77 69 |1.*|star|t PROCwi|
|00002080| 6e 5f 63 65 6e 74 72 65 | 0d 01 32 1f 2a 7c 21 50 |n_centre|..2.*|!P|
|00002090| 52 4f 43 77 69 6e 5f 63 | 65 6e 74 72 65 28 20 77 |ROCwin_c|entre( w|
|000020a0| 69 6e 64 6f 77 20 29 0d | 01 33 07 2a 7c 21 0d 01 |indow ).|.3.*|!..|
|000020b0| 34 51 2a 7c 21 54 68 69 | 73 20 70 72 6f 63 65 64 |4Q*|!Thi|s proced|
|000020c0| 75 72 65 20 6d 6f 76 65 | 73 20 28 6f 70 65 6e 73 |ure move|s (opens|
|000020d0| 29 20 74 68 65 20 67 69 | 76 65 6e 20 77 69 6e 64 |) the gi|ven wind|
|000020e0| 6f 77 20 69 6e 20 74 68 | 65 20 63 65 6e 74 72 65 |ow in th|e centre|
|000020f0| 20 6f 66 20 74 68 65 20 | 73 63 72 65 65 6e 2e 0d | of the |screen..|
|00002100| 01 35 14 dd f2 77 69 6e | 5f 63 65 6e 74 72 65 28 |.5...win|_centre(|
|00002110| 57 25 29 0d 01 36 11 ea | 20 58 25 2c 59 25 2c 48 |W%)..6..| X%,Y%,H|
|00002120| 25 2c 56 25 0d 01 37 30 | f2 77 69 6e 5f 67 65 74 |%,V%..70|.win_get|
|00002130| 73 69 7a 65 28 57 25 2c | 48 25 2c 56 25 29 3a f2 |size(W%,|H%,V%):.|
|00002140| 6f 73 5f 73 63 72 65 65 | 6e 73 69 7a 65 28 58 25 |os_scree|nsize(X%|
|00002150| 2c 59 25 29 0d 01 38 2a | f2 77 69 6e 5f 6d 6f 76 |,Y%)..8*|.win_mov|
|00002160| 65 77 69 6e 28 57 25 2c | 28 58 25 2d 48 25 29 81 |ewin(W%,|(X%-H%).|
|00002170| 20 32 2c 28 59 25 2d 56 | 25 29 81 20 32 29 0d 01 | 2,(Y%-V|%). 2)..|
|00002180| 39 05 e1 0d 01 3a 04 0d | 01 3b 19 2a 7c 73 74 6f |9....:..|.;.*|sto|
|00002190| 70 20 50 52 4f 43 77 69 | 6e 5f 63 65 6e 74 72 65 |p PROCwi|n_centre|
|000021a0| 0d 01 3c 04 0d ff | |..<... | |
+--------+-------------------------+-------------------------+--------+--------+