Eagles Nest BBS 8

home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / MetroPasc122 / Metro PASCAL / MacOS Pascal Programs / QDSample.p < prev next >
MacBinary | 1992-07-14 | 21.4 KB | [TEXT/MWPS]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Tue Jul 14 13:50:58 1992, modified Tue Jul 14 13:50:58 1992, creator 'MWPS', type ASCII, 20988 bytes "QDSample.p" , at 0x527c 674 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MWPS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 51 44 53 61 6d 70 | 6c 65 2e 70 00 00 00 00 |..QDSamp|le.p....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 57 50 | 53 01 00 00 00 00 00 00 |.TEXTMWP|S.......|
|00000050| 00 00 00 00 00 51 fc 00 | 00 02 a2 a6 88 c4 82 a6 |.....Q..|........|
|00000060| 88 c4 82 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 38 58 00 00 |........|....8X..|
|00000080| 50 52 4f 47 52 41 4d 20 | 51 44 53 61 6d 70 6c 65 |PROGRAM |QDSample|
|00000090| 3b 0d 0d 20 20 28 2a 20 | 51 44 53 61 6d 70 6c 65 |;..  (* |QDSample|
|000000a0| 20 2d 2d 20 4d 61 63 69 | 6e 74 6f 73 68 20 61 64 | -- Maci|ntosh ad|
|000000b0| 61 70 74 61 74 69 6f 6e | 20 6f 66 20 4c 69 73 61 |aptation| of Lisa|
|000000c0| 20 51 75 69 63 6b 44 72 | 61 77 20 65 78 61 6d 70 | QuickDr|aw examp|
|000000d0| 6c 65 2e 20 2a 29 0d 20 | 20 28 2a 20 62 79 20 50 |le. *). | (* by P|
|000000e0| 61 75 6c 20 5a 65 6d 6c | 69 6e 2c 20 4d 61 63 69 |aul Zeml|in, Maci|
|000000f0| 6e 74 6f 73 68 20 54 65 | 63 68 6e 69 63 61 6c 20 |ntosh Te|chnical |
|00000100| 53 75 70 70 6f 72 74 09 | 09 20 20 20 20 20 20 20 |Support.|.       |
|00000110| 20 20 2a 29 0d 20 20 28 | 2a 20 43 68 61 6e 67 65 |  *).  (|* Change|
|00000120| 64 20 66 72 6f 6d 20 50 | 61 73 63 61 6c 20 74 6f |d from P|ascal to|
|00000130| 20 4d 65 74 72 6f 77 65 | 72 6b 73 20 4d 6f 64 75 | Metrowe|rks Modu|
|00000140| 6c 61 2d 32 20 20 62 79 | 20 20 20 20 20 20 20 20 |la-2  by|        |
|00000150| 20 20 20 20 20 20 2a 29 | 0d 20 20 28 2a 20 4d 65 |      *)|.  (* Me|
|00000160| 74 72 6f 77 65 72 6b 73 | 20 31 39 39 30 20 20 20 |trowerks| 1990   |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 2a 29 0d 0d 75 73 |        |  *)..us|
|000001a0| 65 73 20 4d 65 6e 75 73 | 2c 20 54 79 70 65 73 2c |es Menus|, Types,|
|000001b0| 20 45 76 65 6e 74 73 2c | 20 51 75 69 63 6b 44 72 | Events,| QuickDr|
|000001c0| 61 77 2c 20 57 69 6e 64 | 6f 77 73 2c 20 43 6f 6e |aw, Wind|ows, Con|
|000001d0| 74 72 6f 6c 73 2c 0d 09 | 09 09 44 65 73 6b 2c 20 |trols,..|..Desk, |
|000001e0| 53 65 67 4c 6f 61 64 2c | 20 46 69 6c 65 73 2c 20 |SegLoad,| Files, |
|000001f0| 52 65 73 6f 75 72 63 65 | 73 3b 0d 0d 20 20 54 59 |Resource|s;..  TY|
|00000200| 50 45 0d 20 20 20 20 49 | 63 6f 6e 44 61 74 61 20 |PE.    I|conData |
|00000210| 3d 20 41 52 52 41 59 20 | 5b 30 2e 2e 39 35 5d 20 |= ARRAY |[0..95] |
|00000220| 4f 46 20 49 4e 54 45 47 | 45 52 3b 0d 0d 20 20 43 |OF INTEG|ER;..  C|
|00000230| 4f 4e 53 54 0d 20 20 20 | 20 6c 61 73 74 4d 65 6e |ONST.   | lastMen|
|00000240| 75 20 20 3d 20 32 3b 20 | 20 20 28 2a 20 6e 75 6d |u  = 2; |  (* num|
|00000250| 62 65 72 20 6f 66 20 6d | 65 6e 75 73 20 2a 29 0d |ber of m|enus *).|
|00000260| 20 20 20 20 61 70 70 6c | 65 4d 65 6e 75 20 3d 20 |    appl|eMenu = |
|00000270| 31 3b 20 20 20 28 2a 20 | 6d 65 6e 75 20 49 44 20 |1;   (* |menu ID |
|00000280| 66 6f 72 20 64 65 73 6b | 20 61 63 63 65 73 73 6f |for desk| accesso|
|00000290| 72 79 20 6d 65 6e 75 20 | 2a 29 0d 20 20 20 20 66 |ry menu |*).    f|
|000002a0| 69 6c 65 4d 65 6e 75 20 | 20 3d 20 32 35 36 3b 20 |ileMenu | = 256; |
|000002b0| 28 2a 20 6d 65 6e 75 20 | 49 44 20 66 6f 72 20 46 |(* menu |ID for F|
|000002c0| 69 6c 65 20 6d 65 6e 75 | 20 2a 29 0d 20 20 20 20 |ile menu| *).    |
|000002d0| 0d 20 20 20 20 73 72 63 | 4f 72 20 20 20 20 20 20 |.    src|Or      |
|000002e0| 20 20 3d 20 31 3b 0d 20 | 20 20 20 69 6e 55 70 42 |  = 1;. |   inUpB|
|000002f0| 75 74 74 6f 6e 20 20 20 | 3d 20 32 30 3b 0d 20 20 |utton   |= 20;.  |
|00000300| 20 20 69 6e 44 6f 77 6e | 42 75 74 74 6f 6e 20 3d |  inDown|Button =|
|00000310| 20 32 31 3b 0d 20 20 20 | 20 69 6e 50 61 67 65 55 | 21;.   | inPageU|
|00000320| 70 20 20 20 20 20 3d 20 | 32 32 3b 0d 20 20 20 20 |p     = |22;.    |
|00000330| 69 6e 50 61 67 65 44 6f | 77 6e 20 20 20 3d 20 32 |inPageDo|wn   = 2|
|00000340| 33 3b 0d 20 20 20 20 69 | 6e 54 68 75 6d 62 20 20 |3;.    i|nThumb  |
|00000350| 20 20 20 20 3d 20 31 32 | 39 3b 0d 20 20 20 20 6d |    = 12|9;.    m|
|00000360| 6f 75 73 65 44 6f 77 6e | 20 20 20 20 3d 20 31 3b |ouseDown|    = 1;|
|00000370| 0d 20 20 20 20 61 63 74 | 69 76 61 74 65 45 76 74 |.    act|ivateEvt|
|00000380| 20 20 3d 20 38 3b 0d 20 | 20 20 20 75 70 64 61 74 |  = 8;. |   updat|
|00000390| 65 45 76 74 20 20 20 20 | 3d 20 36 3b 0d 20 20 20 |eEvt    |= 6;.   |
|000003a0| 20 69 6e 44 65 73 6b 20 | 20 20 20 20 20 20 3d 20 | inDesk |      = |
|000003b0| 30 3b 0d 20 20 20 20 69 | 6e 4d 65 6e 75 42 61 72 |0;.    i|nMenuBar|
|000003c0| 20 20 20 20 3d 20 31 3b | 0d 20 20 20 20 69 6e 53 |    = 1;|.    inS|
|000003d0| 79 73 57 69 6e 64 6f 77 | 20 20 3d 20 32 3b 0d 20 |ysWindow|  = 2;. |
|000003e0| 20 20 20 69 6e 43 6f 6e | 74 65 6e 74 20 20 20 20 |   inCon|tent    |
|000003f0| 3d 20 33 3b 0d 20 20 20 | 20 69 6e 44 72 61 67 20 |= 3;.   | inDrag |
|00000400| 20 20 20 20 20 20 3d 20 | 34 3b 0d 20 20 20 20 69 |      = |4;.    i|
|00000410| 6e 47 72 6f 77 20 20 20 | 20 20 20 20 3d 20 35 3b |nGrow   |    = 5;|
|00000420| 0d 20 20 20 20 69 6e 47 | 6f 41 77 61 79 20 20 20 |.    inG|oAway   |
|00000430| 20 20 3d 20 36 3b 0d 0d | 20 20 56 41 52 0d 20 20 |  = 6;..|  VAR.  |
|00000440| 20 20 6d 79 4d 65 6e 75 | 73 09 09 09 20 20 20 20 |  myMenu|s...    |
|00000450| 20 20 20 20 3a 20 41 52 | 52 41 59 20 5b 31 2e 2e |    : AR|RAY [1..|
|00000460| 6c 61 73 74 4d 65 6e 75 | 5d 20 4f 46 20 4d 65 6e |lastMenu|] OF Men|
|00000470| 75 48 61 6e 64 6c 65 3b | 0d 20 20 20 20 64 72 61 |uHandle;|.    dra|
|00000480| 67 52 65 63 74 20 2c 70 | 52 65 63 74 2c 20 67 72 |gRect ,p|Rect, gr|
|00000490| 6f 77 52 65 63 74 09 20 | 20 20 20 20 20 20 20 3a |owRect. |       :|
|000004a0| 20 52 65 63 74 3b 0d 20 | 20 20 20 64 6f 6e 65 46 | Rect;. |   doneF|
|000004b0| 6c 61 67 2c 74 65 6d 70 | 09 09 20 20 20 20 20 20 |lag,temp|..      |
|000004c0| 20 20 3a 20 42 4f 4f 4c | 45 41 4e 3b 0d 20 20 20 |  : BOOL|EAN;.   |
|000004d0| 20 6d 79 45 76 65 6e 74 | 09 09 09 20 20 20 20 20 | myEvent|...     |
|000004e0| 20 20 20 3a 20 45 76 65 | 6e 74 52 65 63 6f 72 64 |   : Eve|ntRecord|
|000004f0| 3b 20 0d 20 20 20 20 63 | 6f 64 65 31 2c 20 72 65 |; .    c|ode1, re|
|00000500| 66 4e 75 6d 2c 20 4d 79 | 43 6f 6e 74 72 6f 6c 2c |fNum, My|Control,|
|00000510| 74 09 20 20 20 20 20 20 | 20 20 3a 20 49 4e 54 45 |t.      |  : INTE|
|00000520| 47 45 52 3b 0d 20 20 20 | 20 74 68 65 4d 65 6e 75 |GER;.   | theMenu|
|00000530| 2c 20 74 68 65 49 74 65 | 6d 2c 20 77 68 69 63 68 |, theIte|m, which|
|00000540| 49 63 6f 6e 20 20 20 20 | 20 20 20 20 20 3a 20 49 |Icon    |     : I|
|00000550| 4e 54 45 47 45 52 3b 0d | 20 20 20 20 73 63 61 6c |NTEGER;.|    scal|
|00000560| 65 09 09 09 20 20 20 20 | 20 20 20 20 3a 20 49 4e |e...    |    : IN|
|00000570| 54 45 47 45 52 3b 0d 20 | 20 20 20 77 52 65 63 6f |TEGER;. |   wReco|
|00000580| 72 64 09 09 09 20 20 20 | 20 20 20 20 20 3a 20 57 |rd...   |     : W|
|00000590| 69 6e 64 6f 77 52 65 63 | 6f 72 64 3b 0d 20 20 20 |indowRec|ord;.   |
|000005a0| 20 74 68 65 57 69 6e 64 | 6f 77 2c 20 77 68 69 63 | theWind|ow, whic|
|000005b0| 68 57 69 6e 64 6f 77 09 | 20 20 20 20 20 20 20 20 |hWindow.|        |
|000005c0| 3a 20 57 69 6e 64 6f 77 | 50 74 72 3b 0d 20 20 20 |: Window|Ptr;.   |
|000005d0| 20 69 63 6f 6e 73 09 09 | 09 20 20 20 20 20 20 20 | icons..|.       |
|000005e0| 20 3a 20 41 52 52 41 59 | 20 5b 30 2e 2e 35 5d 20 | : ARRAY| [0..5] |
|000005f0| 4f 46 20 49 63 6f 6e 44 | 61 74 61 3b 0d 20 20 20 |OF IconD|ata;.   |
|00000600| 20 68 53 63 72 6f 6c 6c | 2c 20 76 53 63 72 6f 6c | hScroll|, vScrol|
|00000610| 6c 2c 20 77 68 69 63 68 | 43 6f 6e 74 72 6f 6c 20 |l, which|Control |
|00000620| 20 20 20 20 20 3a 20 43 | 6f 6e 74 72 6f 6c 48 61 |     : C|ontrolHa|
|00000630| 6e 64 6c 65 3b 0d 20 20 | 20 20 74 68 65 4f 72 69 |ndle;.  |  theOri|
|00000640| 67 69 6e 09 09 09 20 20 | 20 20 20 20 20 20 3a 20 |gin...  |      : |
|00000650| 50 6f 69 6e 74 3b 0d 20 | 20 20 20 74 68 65 55 70 |Point;. |   theUp|
|00000660| 64 61 74 65 52 67 6e 09 | 09 20 20 20 20 20 20 20 |dateRgn.|.       |
|00000670| 20 3a 20 52 67 6e 48 61 | 6e 64 6c 65 3b 0d 20 20 | : RgnHa|ndle;.  |
|00000680| 20 67 72 61 79 2c 20 64 | 6b 47 72 61 79 3a 20 50 | gray, d|kGray: P|
|00000690| 61 74 74 65 72 6e 3b 0d | 20 20 20 20 74 68 65 50 |attern;.|    theP|
|000006a0| 6f 72 74 3a 20 47 72 61 | 66 50 74 72 3b 0d 0d 20 |ort: Gra|fPtr;.. |
|000006b0| 20 50 52 4f 43 45 44 55 | 52 45 20 4d 79 53 74 75 | PROCEDU|RE MyStu|
|000006c0| 66 66 48 65 78 28 70 74 | 72 3a 20 50 74 72 3b 20 |ffHex(pt|r: Ptr; |
|000006d0| 73 20 3a 20 73 74 72 69 | 6e 67 29 3b 0d 20 20 28 |s : stri|ng);.  (|
|000006e0| 2a 20 54 68 69 73 20 70 | 72 6f 63 65 64 75 72 65 |* This p|rocedure|
|000006f0| 20 69 73 6f 6c 61 74 65 | 73 20 74 68 65 20 62 6f | isolate|s the bo|
|00000700| 64 79 20 6f 66 20 49 6e | 69 74 49 63 6f 6e 73 20 |dy of In|itIcons |
|00000710| 66 72 6f 6d 20 68 61 76 | 69 6e 67 20 74 6f 20 63 |from hav|ing to c|
|00000720| 6f 6e 76 65 72 74 0d 20 | 20 20 20 20 74 68 65 20 |onvert. |    the |
|00000730| 4d 6f 64 75 6c 61 2d 73 | 74 79 6c 65 20 68 65 78 |Modula-s|tyle hex|
|00000740| 20 73 74 72 69 6e 67 73 | 20 74 6f 20 50 61 73 63 | strings| to Pasc|
|00000750| 61 6c 20 66 6f 72 6d 61 | 74 20 2a 29 0d 0d 20 20 |al forma|t *)..  |
|00000760| 42 45 47 49 4e 0d 20 20 | 20 20 53 74 75 66 66 48 |BEGIN.  |  StuffH|
|00000770| 65 78 30 28 70 74 72 2c | 73 29 3b 0d 20 20 45 4e |ex0(ptr,|s);.  EN|
|00000780| 44 3b 7b 4d 79 53 74 75 | 66 66 48 65 78 7d 0d 0d |D;{MyStu|ffHex}..|
|00000790| 20 20 50 52 4f 43 45 44 | 55 52 45 20 49 6e 69 74 |  PROCED|URE Init|
|000007a0| 49 63 6f 6e 73 3b 0d 20 | 20 28 2a 20 4d 61 6e 75 |Icons;. | (* Manu|
|000007b0| 61 6c 6c 79 20 73 74 75 | 66 66 20 73 6f 6d 65 20 |ally stu|ff some |
|000007c0| 69 63 6f 6e 73 2e 09 20 | 4e 6f 72 6d 61 6c 6c 79 |icons.. |Normally|
|000007d0| 20 77 65 20 77 6f 75 6c | 64 20 72 65 61 64 20 74 | we woul|d read t|
|000007e0| 68 65 6d 20 66 72 6f 6d | 20 61 20 66 69 6c 65 20 |hem from| a file |
|000007f0| 2a 29 0d 20 20 42 45 47 | 49 4e 0d 20 20 20 20 28 |*).  BEG|IN.    (|
|00000800| 2a 20 4c 69 73 61 20 2a | 29 0d 20 20 20 20 4d 79 |* Lisa *|).    My|
|00000810| 53 74 75 66 66 48 65 78 | 28 40 69 63 6f 6e 73 5b |StuffHex|(@icons[|
|00000820| 30 2c 20 30 5d 2c 27 30 | 30 30 30 30 30 30 30 30 |0, 0],'0|00000000|
|00000830| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00000840| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 31 46 46 |00000000|000001FF|
|00000850| 46 46 46 46 46 46 43 27 | 29 3b 0d 20 20 20 20 4d |FFFFFFC'|);.    M|
|00000860| 79 53 74 75 66 66 48 65 | 78 28 28 40 69 63 6f 6e |yStuffHe|x((@icon|
|00000870| 73 5b 30 2c 31 32 5d 29 | 2c 27 30 30 36 30 30 30 |s[0,12])|,'006000|
|00000880| 30 30 30 30 30 36 30 31 | 38 30 30 30 30 30 30 30 |00000601|80000000|
|00000890| 30 42 30 36 30 30 30 30 | 30 30 30 30 31 33 30 46 |0B060000|0000130F|
|000008a0| 46 46 46 46 46 46 46 46 | 41 33 27 29 3b 0d 20 20 |FFFFFFFF|A3');.  |
|000008b0| 20 20 4d 79 53 74 75 66 | 66 48 65 78 28 28 40 69 |  MyStuf|fHex((@i|
|000008c0| 63 6f 6e 73 5b 30 2c 32 | 34 5d 29 2c 27 31 38 30 |cons[0,2|4]),'180|
|000008d0| 30 30 30 30 30 30 30 34 | 33 31 31 46 46 46 46 46 |00000004|311FFFFF|
|000008e0| 30 30 30 32 33 31 32 30 | 30 30 30 30 38 30 46 32 |00023120|000080F2|
|000008f0| 33 31 32 30 30 30 30 30 | 42 46 39 32 33 27 29 3b |31200000|BF923');|
|00000900| 0d 20 20 20 20 4d 79 53 | 74 75 66 66 48 65 78 28 |.    MyS|tuffHex(|
|00000910| 28 40 69 63 6f 6e 73 5b | 30 2c 33 36 5d 29 2c 27 |(@icons[|0,36]),'|
|00000920| 31 32 30 30 30 30 30 38 | 30 46 32 33 31 32 30 30 |12000008|0F231200|
|00000930| 30 30 30 38 30 30 32 33 | 31 32 30 30 30 30 30 38 |00080023|12000008|
|00000940| 30 30 32 33 31 32 30 30 | 30 30 30 38 30 46 32 33 |00231200|00080F23|
|00000950| 27 29 3b 0d 20 20 20 20 | 4d 79 53 74 75 66 66 48 |');.    |MyStuffH|
|00000960| 65 78 28 28 40 69 63 6f | 6e 73 5b 30 2c 34 38 5d |ex((@ico|ns[0,48]|
|00000970| 29 2c 27 31 32 30 30 30 | 30 30 42 46 39 32 33 31 |),'12000|00BF9231|
|00000980| 32 30 30 30 30 30 38 30 | 46 32 33 31 32 30 30 30 |20000080|F2312000|
|00000990| 30 30 38 30 30 32 33 31 | 31 46 46 46 46 46 30 30 |00800231|1FFFFF00|
|000009a0| 30 32 33 27 29 3b 0d 20 | 20 20 20 4d 79 53 74 75 |023');. |   MyStu|
|000009b0| 66 66 48 65 78 28 28 40 | 69 63 6f 6e 73 5b 30 2c |ffHex((@|icons[0,|
|000009c0| 36 30 5d 29 2c 27 30 38 | 30 30 30 30 30 30 30 30 |60]),'08|00000000|
|000009d0| 34 33 30 37 46 46 46 46 | 46 46 46 46 41 33 30 31 |4307FFFF|FFFFA301|
|000009e0| 30 30 30 30 30 30 30 30 | 32 36 30 46 46 46 46 46 |00000000|260FFFFF|
|000009f0| 46 46 46 45 32 43 27 29 | 3b 0d 20 20 20 20 4d 79 |FFFE2C')|;.    My|
|00000a00| 53 74 75 66 66 48 65 78 | 28 28 40 69 63 6f 6e 73 |StuffHex|((@icons|
|00000a10| 5b 30 2c 37 32 5d 29 2c | 27 31 38 30 30 30 30 30 |[0,72]),|'1800000|
|00000a20| 30 30 31 33 38 33 32 41 | 41 41 41 41 38 41 39 46 |0013832A|AAAA8A9F|
|00000a30| 30 36 35 35 35 35 35 35 | 31 35 33 38 30 43 32 41 |06555555|15380C2A|
|00000a40| 41 41 41 38 32 41 35 38 | 30 27 29 3b 0d 20 20 20 |AAA82A58|0');.   |
|00000a50| 20 4d 79 53 74 75 66 66 | 48 65 78 28 28 40 69 63 | MyStuff|Hex((@ic|
|00000a60| 6f 6e 73 5b 30 2c 38 34 | 5d 29 2c 27 38 30 30 30 |ons[0,84|]),'8000|
|00000a70| 30 30 30 30 30 39 38 30 | 46 46 46 46 46 46 46 46 |00000980|FFFFFFFF|
|00000a80| 46 33 30 30 38 30 30 30 | 30 30 30 30 31 36 30 30 |F3008000|00001600|
|00000a90| 46 46 46 46 46 46 46 46 | 46 43 30 30 27 29 3b 0d |FFFFFFFF|FC00');.|
|00000aa0| 0d 20 20 20 20 28 2a 20 | 50 72 69 6e 74 65 72 20 |.    (* |Printer |
|00000ab0| 2a 29 0d 20 20 20 20 4d | 79 53 74 75 66 66 48 65 |*).    M|yStuffHe|
|00000ac0| 78 28 28 40 69 63 6f 6e | 73 5b 31 2c 20 30 5d 29 |x((@icon|s[1, 0])|
|00000ad0| 2c 27 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |,'000000|00000000|
|00000ae0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00000af0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00000b00| 30 30 27 29 3b 0d 20 20 | 20 20 4d 79 53 74 75 66 |00');.  |  MyStuf|
|00000b10| 66 48 65 78 28 28 40 69 | 63 6f 6e 73 5b 31 2c 31 |fHex((@i|cons[1,1|
|00000b20| 32 5d 29 2c 27 30 30 30 | 30 30 30 30 30 30 30 30 |2]),'000|00000000|
|00000b30| 30 30 30 30 30 37 46 46 | 46 46 46 30 30 30 30 30 |000007FF|FFF00000|
|00000b40| 30 38 30 30 30 30 32 38 | 30 30 30 30 31 31 31 35 |08000028|00001115|
|00000b50| 31 34 34 34 30 27 29 3b | 0d 20 20 20 20 4d 79 53 |14440');|.    MyS|
|00000b60| 74 75 66 66 48 65 78 28 | 28 40 69 63 6f 6e 73 5b |tuffHex(|(@icons[|
|00000b70| 31 2c 32 34 5d 29 2c 27 | 30 30 30 32 30 30 30 30 |1,24]),'|00020000|
|00000b80| 30 38 34 30 30 30 30 34 | 34 35 34 35 31 30 34 30 |08400004|45451040|
|00000b90| 30 30 30 34 30 30 30 30 | 31 37 43 30 30 30 30 34 |00040000|17C00004|
|00000ba0| 41 35 31 35 31 30 30 30 | 27 29 3b 0d 20 20 20 20 |A5151000|');.    |
|00000bb0| 4d 79 53 74 75 66 66 48 | 65 78 28 28 40 69 63 6f |MyStuffH|ex((@ico|
|00000bc0| 6e 73 5b 31 2c 33 36 5d | 29 2c 27 30 30 30 34 30 |ns[1,36]|),'00040|
|00000bd0| 30 30 30 31 30 30 30 30 | 30 30 34 41 35 34 35 31 |00010000|004A5451|
|00000be0| 30 30 30 30 30 30 34 30 | 30 30 30 31 37 46 45 30 |00000040|00017FE0|
|00000bf0| 30 46 34 41 35 31 35 31 | 30 30 33 27 29 3b 0d 20 |0F4A5151|003');. |
|00000c00| 20 20 20 4d 79 53 74 75 | 66 66 48 65 78 28 28 40 |   MyStu|ffHex((@|
|00000c10| 69 63 6f 6e 73 5b 31 2c | 34 38 5d 29 2c 27 30 31 |icons[1,|48]),'01|
|00000c20| 38 34 30 30 30 30 31 33 | 38 37 30 33 32 37 46 46 |84000013|870327FF|
|00000c30| 46 46 46 31 30 46 30 36 | 34 30 30 30 30 30 30 32 |FFF10F06|40000002|
|00000c40| 31 42 30 43 46 46 46 46 | 46 46 46 43 33 37 27 29 |1B0CFFFF|FFFC37')|
|00000c50| 3b 0d 20 20 20 20 4d 79 | 53 74 75 66 66 48 65 78 |;.    My|StuffHex|
|00000c60| 28 28 40 69 63 6f 6e 73 | 5b 31 2c 36 30 5d 29 2c |((@icons|[1,60]),|
|00000c70| 27 31 38 30 30 30 30 30 | 30 30 30 36 42 33 30 30 |'1800000|0006B300|
|00000c80| 30 30 30 30 30 30 30 44 | 37 37 46 46 46 46 46 46 |0000000D|77FFFFFF|
|00000c90| 46 46 46 41 42 43 30 30 | 30 30 30 30 30 30 33 35 |FFFABC00|00000035|
|00000ca0| 36 27 29 3b 0d 20 20 20 | 20 4d 79 53 74 75 66 66 |6');.   | MyStuff|
|00000cb0| 48 65 78 28 28 40 69 63 | 6f 6e 73 5b 31 2c 37 32 |Hex((@ic|ons[1,72|
|00000cc0| 5d 29 2c 27 38 30 30 30 | 30 30 30 30 30 31 41 43 |]),'8000|000001AC|
|00000cd0| 38 37 46 30 30 30 30 30 | 30 31 35 38 38 34 31 30 |87F00000|01588410|
|00000ce0| 30 30 43 43 43 31 42 30 | 38 37 46 30 30 30 43 43 |00CCC1B0|87F000CC|
|00000cf0| 43 31 36 30 27 29 3b 0d | 20 20 20 20 4d 79 53 74 |C160');.|    MySt|
|00000d00| 75 66 66 48 65 78 28 28 | 40 69 63 6f 6e 73 5b 31 |uffHex((|@icons[1|
|00000d10| 2c 38 34 5d 29 2c 27 38 | 30 30 30 30 30 30 30 30 |,84]),'8|00000000|
|00000d20| 31 43 30 43 30 30 30 30 | 30 30 30 30 33 38 30 37 |1C0C0000|00003807|
|00000d30| 46 46 46 46 46 46 46 46 | 46 30 30 30 37 38 30 30 |FFFFFFFF|F0007800|
|00000d40| 30 30 31 45 30 30 30 27 | 29 3b 0d 0d 20 20 20 20 |001E000'|);..    |
|00000d50| 28 2a 20 54 72 61 73 68 | 20 43 61 6e 20 2a 29 0d |(* Trash| Can *).|
|00000d60| 20 20 20 20 4d 79 53 74 | 75 66 66 48 65 78 28 28 |    MySt|uffHex((|
|00000d70| 40 69 63 6f 6e 73 5b 32 | 2c 20 30 5d 29 2c 27 30 |@icons[2|, 0]),'0|
|00000d80| 30 30 30 30 31 46 43 30 | 30 30 30 30 30 30 30 30 |00001FC0|00000000|
|00000d90| 45 30 36 30 30 30 30 30 | 30 30 30 33 30 30 33 30 |E0600000|00030030|
|00000da0| 30 30 30 30 30 30 30 43 | 30 39 31 38 30 30 30 27 |0000000C|0918000'|
|00000db0| 29 3b 0d 20 20 20 20 4d | 79 53 74 75 66 66 48 65 |);.    M|yStuffHe|
|00000dc0| 78 28 28 40 69 63 6f 6e | 73 5b 32 2c 31 32 5d 29 |x((@icon|s[2,12])|
|00000dd0| 2c 27 30 30 30 31 33 38 | 34 39 38 30 30 30 30 30 |,'000138|49800000|
|00000de0| 30 32 36 43 34 39 38 30 | 30 30 30 30 30 34 43 30 |026C4980|000004C0|
|00000df0| 39 33 30 30 30 30 30 30 | 30 38 36 31 32 36 30 30 |93000000|08612600|
|00000e00| 30 30 27 29 3b 0d 20 20 | 20 20 4d 79 53 74 75 66 |00');.  |  MyStuf|
|00000e10| 66 48 65 78 28 28 40 69 | 63 6f 6e 73 5b 32 2c 32 |fHex((@i|cons[2,2|
|00000e20| 34 5d 29 2c 27 30 30 31 | 30 30 36 34 46 45 30 30 |4]),'001|0064FE00|
|00000e30| 30 30 30 33 31 31 39 39 | 38 33 30 30 30 30 30 32 |00031199|83000002|
|00000e40| 30 45 36 33 30 31 38 30 | 30 30 30 32 34 31 38 45 |0E630180|0002418E|
|00000e50| 30 30 38 30 30 27 29 3b | 0d 20 20 20 20 4d 79 53 |00800');|.    MyS|
|00000e60| 74 75 66 66 48 65 78 28 | 28 40 69 63 6f 6e 73 5b |tuffHex(|(@icons[|
|00000e70| 32 2c 33 36 5d 29 2c 27 | 30 30 33 33 45 33 38 30 |2,36]),'|0033E380|
|00000e80| 31 43 30 30 30 30 31 38 | 30 45 30 30 32 43 30 30 |1C000018|0E002C00|
|00000e90| 30 30 30 46 46 38 30 31 | 43 43 30 30 30 30 30 34 |000FF801|CC000004|
|00000ea0| 37 46 46 45 30 43 30 30 | 27 29 3b 0d 20 20 20 20 |7FFE0C00|');.    |
|00000eb0| 4d 79 53 74 75 66 66 48 | 65 78 28 28 40 69 63 6f |MyStuffH|ex((@ico|
|00000ec0| 6e 73 5b 32 2c 34 38 5d | 29 2c 27 30 30 30 35 30 |ns[2,48]|),'00050|
|00000ed0| 30 30 30 34 43 30 30 30 | 30 30 35 32 35 39 41 34 |0004C000|005259A4|
|00000ee0| 43 30 30 30 30 30 35 32 | 35 30 41 34 43 30 30 30 |C0000052|50A4C000|
|00000ef0| 30 30 35 32 35 46 41 34 | 43 30 30 27 29 3b 0d 20 |00525FA4|C00');. |
|00000f00| 20 20 20 4d 79 53 74 75 | 66 66 48 65 78 28 28 40 |   MyStu|ffHex((@|
|00000f10| 69 63 6f 6e 73 5b 32 2c | 36 30 5d 29 2c 27 30 30 |icons[2,|60]),'00|
|00000f20| 30 35 32 34 30 32 34 43 | 30 30 30 30 30 35 32 34 |0524024C|00000524|
|00000f30| 39 32 34 43 30 30 36 30 | 30 35 32 34 39 32 34 43 |924C0060|0524924C|
|00000f40| 30 30 39 30 45 35 32 34 | 39 32 34 43 37 43 27 29 |0090E524|924C7C')|
|00000f50| 3b 0d 20 20 20 20 4d 79 | 53 74 75 66 66 48 65 78 |;.    My|StuffHex|
|00000f60| 28 28 40 69 63 6f 6e 73 | 5b 32 2c 37 32 5d 29 2c |((@icons|[2,72]),|
|00000f70| 27 39 33 32 35 32 34 39 | 32 34 43 38 32 41 34 34 |'9325249|24C82A44|
|00000f80| 35 32 34 39 32 34 44 30 | 31 43 38 38 35 32 34 39 |524924D0|1C885249|
|00000f90| 32 34 43 46 31 30 43 34 | 35 32 34 39 32 34 43 30 |24CF10C4|524924C0|
|00000fa0| 39 27 29 3b 0d 20 20 20 | 20 4d 79 53 74 75 66 66 |9');.   | MyStuff|
|00000fb0| 48 65 78 28 28 40 69 63 | 6f 6e 73 5b 32 2c 38 34 |Hex((@ic|ons[2,84|
|00000fc0| 5d 29 2c 27 30 37 38 34 | 32 34 39 32 35 38 45 37 |]),'0784|249258E7|
|00000fd0| 30 30 30 33 30 34 39 32 | 33 33 31 30 30 30 30 30 |00030492|33100000|
|00000fe0| 45 30 30 30 45 34 30 38 | 30 30 30 30 31 46 46 46 |E000E408|00001FFF|
|00000ff0| 43 33 46 30 27 29 3b 0d | 0d 20 20 20 20 28 2a 20 |C3F0');.|.    (* |
|00001000| 74 72 61 79 20 2a 29 0d | 20 20 20 20 4d 79 53 74 |tray *).|    MySt|
|00001010| 75 66 66 48 65 78 28 28 | 40 69 63 6f 6e 73 5b 33 |uffHex((|@icons[3|
|00001020| 2c 20 30 5d 29 2c 27 30 | 30 30 30 30 30 30 30 30 |, 0]),'0|00000000|
|00001030| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00001040| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00001050| 30 30 30 30 30 30 30 27 | 29 3b 0d 20 20 20 20 4d |0000000'|);.    M|
|00001060| 79 53 74 75 66 66 48 65 | 78 28 28 40 69 63 6f 6e |yStuffHe|x((@icon|
|00001070| 73 5b 33 2c 31 32 5d 29 | 2c 27 30 30 30 30 30 30 |s[3,12])|,'000000|
|00001080| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00001090| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|000010a0| 30 37 46 46 46 46 46 46 | 46 30 27 29 3b 0d 20 20 |07FFFFFF|F0');.  |
|000010b0| 20 20 4d 79 53 74 75 66 | 66 48 65 78 28 28 40 69 |  MyStuf|fHex((@i|
|000010c0| 63 6f 6e 73 5b 33 2c 32 | 34 5d 29 2c 27 30 30 30 |cons[3,2|4]),'000|
|000010d0| 45 30 30 30 30 30 30 31 | 38 30 30 31 41 30 30 30 |E0000001|8001A000|
|000010e0| 30 30 30 33 38 30 30 33 | 36 30 30 30 30 30 30 37 |00038003|60000007|
|000010f0| 38 30 30 36 41 30 30 30 | 30 30 30 44 38 27 29 3b |8006A000|000D8');|
|00001100| 0d 20 20 20 20 4d 79 53 | 74 75 66 66 48 65 78 28 |.    MyS|tuffHex(|
|00001110| 28 40 69 63 6f 6e 73 5b | 33 2c 33 36 5d 29 2c 27 |(@icons[|3,36]),'|
|00001120| 30 30 44 37 46 46 46 46 | 46 46 42 38 30 31 41 43 |00D7FFFF|FFB801AC|
|00001130| 30 30 30 30 30 33 35 38 | 30 33 35 38 30 30 30 30 |00000358|03580000|
|00001140| 30 36 42 38 30 37 46 43 | 30 30 30 46 46 44 35 38 |06B807FC|000FFD58|
|00001150| 27 29 3b 0d 20 20 20 20 | 4d 79 53 74 75 66 66 48 |');.    |MyStuffH|
|00001160| 65 78 28 28 40 69 63 6f | 6e 73 5b 33 2c 34 38 5d |ex((@ico|ns[3,48]|
|00001170| 29 2c 27 30 34 30 36 30 | 30 31 38 30 41 42 38 30 |),'04060|0180AB80|
|00001180| 34 30 33 46 46 46 30 30 | 44 35 38 30 34 30 30 30 |403FFF00|D5804000|
|00001190| 30 30 30 30 41 42 38 30 | 34 30 30 30 30 30 30 30 |0000AB80|40000000|
|000011a0| 44 35 38 27 29 3b 0d 20 | 20 20 20 4d 79 53 74 75 |D58');. |   MyStu|
|000011b0| 66 66 48 65 78 28 28 40 | 69 63 6f 6e 73 5b 33 2c |ffHex((@|icons[3,|
|000011c0| 36 30 5d 29 2c 27 30 34 | 30 30 30 30 30 30 30 41 |60]),'04|0000000A|
|000011d0| 42 38 30 37 46 46 46 46 | 46 46 46 44 35 38 30 36 |B807FFFF|FFFD5806|
|000011e0| 41 43 30 30 30 30 30 41 | 42 38 30 35 35 38 30 30 |AC00000A|B8055800|
|000011f0| 30 30 30 44 35 38 27 29 | 3b 0d 20 20 20 20 4d 79 |000D58')|;.    My|
|00001200| 53 74 75 66 66 48 65 78 | 28 28 40 69 63 6f 6e 73 |StuffHex|((@icons|
|00001210| 5b 33 2c 37 32 5d 29 2c | 27 30 36 42 30 30 30 30 |[3,72]),|'06B0000|
|00001220| 30 30 41 42 38 30 37 46 | 43 30 30 30 46 46 44 37 |00AB807F|C000FFD7|
|00001230| 30 30 34 30 36 30 30 31 | 38 30 41 45 30 30 34 30 |00406001|80AE0040|
|00001240| 33 46 46 46 30 30 44 43 | 30 27 29 3b 0d 20 20 20 |3FFF00DC|0');.   |
|00001250| 20 4d 79 53 74 75 66 66 | 48 65 78 28 28 40 69 63 | MyStuff|Hex((@ic|
|00001260| 6f 6e 73 5b 33 2c 38 34 | 5d 29 2c 27 30 34 30 30 |ons[3,84|]),'0400|
|00001270| 30 30 30 30 30 42 38 30 | 30 34 30 30 30 30 30 30 |00000B80|04000000|
|00001280| 30 46 30 30 30 34 30 30 | 30 30 30 30 30 45 30 30 |0F000400|00000E00|
|00001290| 30 37 46 46 46 46 46 46 | 46 43 30 30 27 29 3b 0d |07FFFFFF|FC00');.|
|000012a0| 0d 20 20 20 20 28 2a 20 | 46 69 6c 65 20 43 61 62 |.    (* |File Cab|
|000012b0| 69 6e 65 74 20 2a 29 0d | 20 20 20 20 4d 79 53 74 |inet *).|    MySt|
|000012c0| 75 66 66 48 65 78 28 28 | 40 69 63 6f 6e 73 5b 34 |uffHex((|@icons[4|
|000012d0| 2c 20 30 5d 29 2c 27 30 | 30 30 37 46 46 46 46 46 |, 0]),'0|007FFFFF|
|000012e0| 43 30 30 30 30 30 38 30 | 30 30 30 30 43 30 30 30 |C0000080|0000C000|
|000012f0| 30 31 30 30 30 30 30 31 | 43 30 30 30 30 32 30 30 |01000001|C0000200|
|00001300| 30 30 30 33 34 30 30 27 | 29 3b 0d 20 20 20 20 4d |0003400'|);.    M|
|00001310| 79 53 74 75 66 66 48 65 | 78 28 28 40 69 63 6f 6e |yStuffHe|x((@icon|
|00001320| 73 5b 34 2c 31 32 5d 29 | 2c 27 30 30 34 30 30 30 |s[4,12])|,'004000|
|00001330| 30 30 36 43 30 30 30 30 | 46 46 46 46 46 46 44 34 |006C0000|FFFFFFD4|
|00001340| 30 30 30 30 38 30 30 30 | 30 30 41 43 30 30 30 30 |00008000|00AC0000|
|00001350| 42 46 46 46 46 45 44 34 | 30 30 27 29 3b 0d 20 20 |BFFFFED4|00');.  |
|00001360| 20 20 4d 79 53 74 75 66 | 66 48 65 78 28 28 40 69 |  MyStuf|fHex((@i|
|00001370| 63 6f 6e 73 5b 34 2c 32 | 34 5d 29 2c 27 30 30 41 |cons[4,2|4]),'00A|
|00001380| 30 30 30 30 32 41 43 30 | 30 30 30 41 30 37 46 30 |00002AC0|000A07F0|
|00001390| 32 44 34 30 30 30 30 41 | 30 34 31 30 32 41 43 30 |2D40000A|04102AC0|
|000013a0| 30 30 30 41 30 37 46 30 | 32 44 34 30 30 27 29 3b |000A07F0|2D400');|
|000013b0| 0d 20 20 20 20 4d 79 53 | 74 75 66 66 48 65 78 28 |.    MyS|tuffHex(|
|000013c0| 28 40 69 63 6f 6e 73 5b | 34 2c 33 36 5d 29 2c 27 |(@icons[|4,36]),'|
|000013d0| 30 30 41 30 30 30 30 32 | 41 43 30 30 30 30 41 30 |00A00002|AC0000A0|
|000013e0| 38 30 38 32 44 34 30 30 | 30 30 41 30 46 46 38 32 |8082D400|00A0FF82|
|000013f0| 41 43 30 30 30 30 41 30 | 30 30 30 32 44 34 30 30 |AC0000A0|0002D400|
|00001400| 27 29 3b 0d 20 20 20 20 | 4d 79 53 74 75 66 66 48 |');.    |MyStuffH|
|00001410| 65 78 28 28 40 69 63 6f | 6e 73 5b 34 2c 34 38 5d |ex((@ico|ns[4,48]|
|00001420| 29 2c 27 30 30 41 30 30 | 30 30 32 41 43 30 30 30 |),'00A00|002AC000|
|00001430| 30 42 46 46 46 46 45 44 | 34 30 30 30 30 38 30 30 |0BFFFFED|40000800|
|00001440| 30 30 30 41 43 30 30 30 | 30 42 46 46 46 46 45 44 |000AC000|0BFFFFED|
|00001450| 34 30 30 27 29 3b 0d 20 | 20 20 20 4d 79 53 74 75 |400');. |   MyStu|
|00001460| 66 66 48 65 78 28 28 40 | 69 63 6f 6e 73 5b 34 2c |ffHex((@|icons[4,|
|00001470| 36 30 5d 29 2c 27 30 30 | 41 30 30 30 30 32 41 43 |60]),'00|A00002AC|
|00001480| 30 30 30 30 41 30 37 46 | 30 32 44 34 30 30 30 30 |0000A07F|02D40000|
|00001490| 41 30 34 31 30 32 41 43 | 30 30 30 30 41 30 37 46 |A04102AC|0000A07F|
|000014a0| 30 32 44 34 30 30 27 29 | 3b 0d 20 20 20 20 4d 79 |02D400')|;.    My|
|000014b0| 53 74 75 66 66 48 65 78 | 28 28 40 69 63 6f 6e 73 |StuffHex|((@icons|
|000014c0| 5b 34 2c 37 32 5d 29 2c | 27 30 30 41 30 30 30 30 |[4,72]),|'00A0000|
|000014d0| 32 41 43 30 30 30 30 41 | 30 38 30 38 32 44 34 30 |2AC0000A|08082D40|
|000014e0| 30 30 30 41 30 46 46 38 | 32 41 43 30 30 30 30 41 |000A0FF8|2AC0000A|
|000014f0| 30 30 30 30 32 44 38 30 | 30 27 29 3b 0d 20 20 20 |00002D80|0');.   |
|00001500| 20 4d 79 53 74 75 66 66 | 48 65 78 28 28 40 69 63 | MyStuff|Hex((@ic|
|00001510| 6f 6e 73 5b 34 2c 38 34 | 5d 29 2c 27 30 30 41 30 |ons[4,84|]),'00A0|
|00001520| 30 30 30 32 42 30 30 30 | 30 30 42 46 46 46 46 45 |0002B000|00BFFFFE|
|00001530| 45 30 30 30 30 30 38 30 | 30 30 30 30 43 30 30 30 |E0000080|0000C000|
|00001540| 30 30 46 46 46 46 46 46 | 38 30 30 30 27 29 3b 0d |00FFFFFF|8000');.|
|00001550| 0d 20 20 20 20 28 2a 20 | 64 72 61 77 65 72 20 2a |.    (* |drawer *|
|00001560| 29 0d 20 20 20 20 4d 79 | 53 74 75 66 66 48 65 78 |).    My|StuffHex|
|00001570| 28 28 40 69 63 6f 6e 73 | 5b 35 2c 20 30 5d 29 2c |((@icons|[5, 0]),|
|00001580| 27 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |'0000000|00000000|
|00001590| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|000015a0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|000015b0| 30 27 29 3b 0d 20 20 20 | 20 4d 79 53 74 75 66 66 |0');.   | MyStuff|
|000015c0| 48 65 78 28 28 40 69 63 | 6f 6e 73 5b 35 2c 31 32 |Hex((@ic|ons[5,12|
|000015d0| 5d 29 2c 27 30 30 30 30 | 30 30 30 30 30 30 30 30 |]),'0000|00000000|
|000015e0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|000015f0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00001600| 30 30 30 30 27 29 3b 0d | 20 20 20 20 4d 79 53 74 |0000');.|    MySt|
|00001610| 75 66 66 48 65 78 28 28 | 40 69 63 6f 6e 73 5b 35 |uffHex((|@icons[5|
|00001620| 2c 32 34 5d 29 2c 27 30 | 30 30 30 30 30 30 30 30 |,24]),'0|00000000|
|00001630| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00001640| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00001650| 30 30 30 30 30 30 30 27 | 29 3b 0d 20 20 20 20 4d |0000000'|);.    M|
|00001660| 79 53 74 75 66 66 48 65 | 78 28 28 40 69 63 6f 6e |yStuffHe|x((@icon|
|00001670| 73 5b 35 2c 33 36 5d 29 | 2c 27 30 30 30 30 30 30 |s[5,36])|,'000000|
|00001680| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|00001690| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |00000000|00000000|
|000016a0| 30 30 31 46 46 46 46 46 | 46 30 27 29 3b 0d 20 20 |001FFFFF|F0');.  |
|000016b0| 20 20 4d 79 53 74 75 66 | 66 48 65 78 28 28 40 69 |  MyStuf|fHex((@i|
|000016c0| 63 6f 6e 73 5b 35 2c 34 | 38 5d 29 2c 27 30 30 30 |cons[5,4|8]),'000|
|000016d0| 30 33 38 30 30 30 30 33 | 30 30 30 30 30 36 38 30 |03800003|00000680|
|000016e0| 30 30 30 37 30 30 30 30 | 30 44 38 30 30 30 30 44 |00070000|0D80000D|
|000016f0| 30 30 30 33 46 46 46 46 | 46 46 31 42 30 27 29 3b |0003FFFF|FF1B0');|
|00001700| 0d 20 20 20 20 4d 79 53 | 74 75 66 66 48 65 78 28 |.    MyS|tuffHex(|
|00001710| 28 40 69 63 6f 6e 73 5b | 35 2c 36 30 5d 29 2c 27 |(@icons[|5,60]),'|
|00001720| 30 30 32 30 30 30 30 30 | 31 33 35 30 30 30 32 30 |00200000|13500020|
|00001730| 30 30 30 30 31 36 42 30 | 30 30 32 30 31 46 45 30 |000016B0|00201FE0|
|00001740| 31 44 35 30 30 30 32 30 | 31 30 32 30 31 41 42 30 |1D500020|10201AB0|
|00001750| 27 29 3b 0d 20 20 20 20 | 4d 79 53 74 75 66 66 48 |');.    |MyStuffH|
|00001760| 65 78 28 28 40 69 63 6f | 6e 73 5b 35 2c 37 32 5d |ex((@ico|ns[5,72]|
|00001770| 29 2c 27 30 30 32 30 31 | 46 45 30 31 35 36 30 30 |),'00201|FE015600|
|00001780| 30 32 30 30 30 30 30 31 | 41 43 30 30 30 32 30 30 |02000001|AC000200|
|00001790| 30 30 30 31 35 38 30 30 | 30 32 30 32 30 31 30 31 |00015800|02020101|
|000017a0| 42 30 30 27 29 3b 0d 20 | 20 20 20 4d 79 53 74 75 |B00');. |   MyStu|
|000017b0| 66 66 48 65 78 28 28 40 | 69 63 6f 6e 73 5b 35 2c |ffHex((@|icons[5,|
|000017c0| 38 34 5d 29 2c 27 30 30 | 32 30 33 46 46 30 31 36 |84]),'00|203FF016|
|000017d0| 30 30 30 30 32 30 30 30 | 30 30 31 43 30 30 30 30 |00002000|001C0000|
|000017e0| 32 30 30 30 30 30 31 38 | 30 30 30 30 33 46 46 46 |20000018|00003FFF|
|000017f0| 46 46 46 30 30 30 27 29 | 3b 0d 20 20 45 4e 44 20 |FFF000')|;.  END |
|00001800| 7b 49 6e 69 74 49 63 6f | 6e 73 7d 3b 0d 0d 20 20 |{InitIco|ns};..  |
|00001810| 50 52 4f 43 45 44 55 52 | 45 20 44 72 61 77 49 63 |PROCEDUR|E DrawIc|
|00001820| 6f 6e 28 77 68 69 63 68 | 49 63 6f 6e 2c 68 2c 76 |on(which|Icon,h,v|
|00001830| 3a 20 49 4e 54 45 47 45 | 52 29 3b 0d 20 20 20 20 |: INTEGE|R);.    |
|00001840| 56 41 52 0d 20 20 20 20 | 20 20 73 72 63 42 69 74 |VAR.    |  srcBit|
|00001850| 73 09 09 20 3a 20 42 69 | 74 4d 61 70 3b 0d 20 20 |s.. : Bi|tMap;.  |
|00001860| 20 20 20 20 73 72 63 52 | 65 63 74 2c 20 64 73 74 |    srcR|ect, dst|
|00001870| 52 65 63 74 09 20 3a 20 | 52 65 63 74 3b 0d 20 20 |Rect. : |Rect;.  |
|00001880| 42 45 47 49 4e 0d 20 20 | 20 20 73 72 63 42 69 74 |BEGIN.  |  srcBit|
|00001890| 73 2e 62 61 73 65 41 64 | 64 72 20 3a 3d 20 28 40 |s.baseAd|dr := (@|
|000018a0| 69 63 6f 6e 73 5b 77 68 | 69 63 68 49 63 6f 6e 5d |icons[wh|ichIcon]|
|000018b0| 29 3b 0d 20 20 20 20 73 | 72 63 42 69 74 73 2e 72 |);.    s|rcBits.r|
|000018c0| 6f 77 42 79 74 65 73 20 | 3a 3d 20 36 3b 0d 20 20 |owBytes |:= 6;.  |
|000018d0| 20 20 53 65 74 52 65 63 | 74 28 73 72 63 42 69 74 |  SetRec|t(srcBit|
|000018e0| 73 2e 62 6f 75 6e 64 73 | 2c 30 2c 30 2c 34 38 2c |s.bounds|,0,0,48,|
|000018f0| 33 32 29 3b 0d 20 20 20 | 20 73 72 63 52 65 63 74 |32);.   | srcRect|
|00001900| 20 3a 3d 20 73 72 63 42 | 69 74 73 2e 62 6f 75 6e | := srcB|its.boun|
|00001910| 64 73 3b 0d 20 20 20 20 | 64 73 74 52 65 63 74 20 |ds;.    |dstRect |
|00001920| 3a 3d 20 73 72 63 52 65 | 63 74 3b 0d 20 20 20 20 |:= srcRe|ct;.    |
|00001930| 4f 66 66 73 65 74 52 65 | 63 74 28 64 73 74 52 65 |OffsetRe|ct(dstRe|
|00001940| 63 74 2c 68 2c 76 29 3b | 0d 20 20 20 20 43 6f 70 |ct,h,v);|.    Cop|
|00001950| 79 42 69 74 73 28 73 72 | 63 42 69 74 73 2c 74 68 |yBits(sr|cBits,th|
|00001960| 65 57 69 6e 64 6f 77 5e | 2e 70 6f 72 74 42 69 74 |eWindow^|.portBit|
|00001970| 73 2c 73 72 63 52 65 63 | 74 2c 64 73 74 52 65 63 |s,srcRec|t,dstRec|
|00001980| 74 2c 73 72 63 4f 72 2c | 4e 49 4c 29 3b 0d 20 20 |t,srcOr,|NIL);.  |
|00001990| 45 4e 44 20 7b 44 72 61 | 77 49 63 6f 6e 7d 3b 0d |END {Dra|wIcon};.|
|000019a0| 0d 20 20 50 52 4f 43 45 | 44 55 52 45 20 4d 79 44 |.  PROCE|DURE MyD|
|000019b0| 72 61 77 53 74 72 69 6e | 67 28 73 20 3a 20 73 74 |rawStrin|g(s : st|
|000019c0| 72 69 6e 67 29 3b 0d 0d | 20 20 42 45 47 49 4e 0d |ring);..|  BEGIN.|
|000019d0| 20 20 20 20 44 72 61 77 | 53 74 72 69 6e 67 28 40 |    Draw|String(@|
|000019e0| 73 29 3b 0d 20 20 45 4e | 44 20 7b 4d 79 44 72 61 |s);.  EN|D {MyDra|
|000019f0| 77 53 74 72 69 6e 67 7d | 3b 0d 0d 20 20 50 52 4f |wString}|;..  PRO|
|00001a00| 43 45 44 55 52 45 20 44 | 72 61 77 53 74 75 66 66 |CEDURE D|rawStuff|
|00001a10| 3b 0d 20 20 20 20 56 41 | 52 0d 20 20 20 20 20 20 |;.    VA|R.      |
|00001a20| 69 20 20 20 20 20 20 20 | 20 20 20 3a 20 49 4e 54 |i       |   : INT|
|00001a30| 45 47 45 52 3b 0d 20 20 | 20 20 20 20 74 65 6d 70 |EGER;.  |    temp|
|00001a40| 52 65 63 74 09 20 20 3a | 20 52 65 63 74 3b 0d 20 |Rect.  :| Rect;. |
|00001a50| 20 20 20 20 20 6d 79 50 | 6f 6c 79 09 20 20 3a 20 |     myP|oly.  : |
|00001a60| 50 6f 6c 79 48 61 6e 64 | 6c 65 3b 0d 20 20 20 20 |PolyHand|le;.    |
|00001a70| 20 20 6d 79 52 67 6e 09 | 20 20 3a 20 52 67 6e 48 |  myRgn.|  : RgnH|
|00001a80| 61 6e 64 6c 65 3b 0d 20 | 20 20 20 20 20 6d 79 50 |andle;. |     myP|
|00001a90| 61 74 74 65 72 6e 20 20 | 3a 20 50 61 74 74 65 72 |attern  |: Patter|
|00001aa0| 6e 3b 0d 20 20 20 20 20 | 20 73 74 72 20 20 20 20 |n;.     | str    |
|00001ab0| 20 20 20 20 3a 20 53 74 | 72 32 35 35 3b 0d 20 20 |    : St|r255;.  |
|00001ac0| 42 45 47 49 4e 0d 20 20 | 20 20 4d 79 53 74 75 66 |BEGIN.  |  MyStuf|
|00001ad0| 66 48 65 78 28 28 40 6d | 79 50 61 74 74 65 72 6e |fHex((@m|yPattern|
|00001ae0| 29 2c 27 38 30 34 30 32 | 30 30 30 30 32 30 34 30 |),'80402|00002040|
|00001af0| 38 30 30 27 29 3b 0d 0d | 20 20 20 20 28 2a 20 64 |800');..|    (* d|
|00001b00| 72 61 77 20 74 77 6f 20 | 68 6f 72 69 7a 6f 6e 74 |raw two |horizont|
|00001b10| 61 6c 20 6c 69 6e 65 73 | 20 61 63 72 6f 73 73 20 |al lines| across |
|00001b20| 74 68 65 20 74 6f 70 20 | 2a 29 0d 20 20 20 20 4d |the top |*).    M|
|00001b30| 6f 76 65 54 6f 28 30 2c | 31 38 29 3b 0d 20 20 20 |oveTo(0,|18);.   |
|00001b40| 20 4c 69 6e 65 54 6f 28 | 37 31 39 2c 31 38 29 3b | LineTo(|719,18);|
|00001b50| 0d 20 20 20 20 4d 6f 76 | 65 54 6f 28 30 2c 32 30 |.    Mov|eTo(0,20|
|00001b60| 29 3b 0d 20 20 20 20 4c | 69 6e 65 54 6f 28 37 31 |);.    L|ineTo(71|
|00001b70| 39 2c 32 30 29 3b 0d 0d | 20 20 20 20 28 2a 20 64 |9,20);..|    (* d|
|00001b80| 72 61 77 20 64 69 76 69 | 64 65 72 20 6c 69 6e 65 |raw divi|der line|
|00001b90| 73 20 2a 29 0d 20 20 20 | 20 4d 6f 76 65 54 6f 28 |s *).   | MoveTo(|
|00001ba0| 30 2c 31 33 34 29 3b 0d | 20 20 20 20 4c 69 6e 65 |0,134);.|    Line|
|00001bb0| 54 6f 28 37 31 39 2c 31 | 33 34 29 3b 0d 20 20 20 |To(719,1|34);.   |
|00001bc0| 20 4d 6f 76 65 54 6f 28 | 30 2c 32 34 38 29 3b 0d | MoveTo(|0,248);.|
|00001bd0| 20 20 20 20 4c 69 6e 65 | 54 6f 28 37 31 39 2c 32 |    Line|To(719,2|
|00001be0| 34 38 29 3b 0d 20 20 20 | 20 4d 6f 76 65 54 6f 28 |48);.   | MoveTo(|
|00001bf0| 32 34 30 2c 32 31 29 3b | 0d 20 20 20 20 4c 69 6e |240,21);|.    Lin|
|00001c00| 65 54 6f 28 32 34 30 2c | 33 36 33 29 3b 0d 20 20 |eTo(240,|363);.  |
|00001c10| 20 20 4d 6f 76 65 54 6f | 28 34 38 30 2c 32 31 29 |  MoveTo|(480,21)|
|00001c20| 3b 0d 20 20 20 20 4c 69 | 6e 65 54 6f 28 34 38 30 |;.    Li|neTo(480|
|00001c30| 2c 33 36 33 29 3b 0d 0d | 20 20 20 20 28 2a 20 64 |,363);..|    (* d|
|00001c40| 72 61 77 20 74 69 74 6c | 65 20 2a 29 0d 20 20 20 |raw titl|e *).   |
|00001c50| 20 54 65 78 74 46 6f 6e | 74 28 30 29 3b 0d 20 20 | TextFon|t(0);.  |
|00001c60| 20 20 4d 6f 76 65 54 6f | 28 32 31 30 2c 31 34 29 |  MoveTo|(210,14)|
|00001c70| 3b 0d 20 20 20 20 4d 79 | 44 72 61 77 53 74 72 69 |;.    My|DrawStri|
|00001c80| 6e 67 28 27 4c 6f 6f 6b | 20 77 68 61 74 20 79 6f |ng('Look| what yo|
|00001c90| 75 20 63 61 6e 20 64 72 | 61 77 20 77 69 74 68 20 |u can dr|aw with |
|00001ca0| 51 75 69 63 6b 44 72 61 | 77 27 29 3b 0d 0d 20 20 |QuickDra|w');..  |
|00001cb0| 20 20 28 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 09 20 64 |  (*----|-----. d|
|00001cc0| 72 61 77 20 74 65 78 74 | 20 73 61 6d 70 6c 65 73 |raw text| samples|
|00001cd0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 2a 29 0d 0d 20 | -------|-- *).. |
|00001ce0| 20 20 20 4d 6f 76 65 54 | 6f 28 38 30 2c 33 34 29 |   MoveT|o(80,34)|
|00001cf0| 3b 20 20 4d 79 44 72 61 | 77 53 74 72 69 6e 67 28 |;  MyDra|wString(|
|00001d00| 27 54 65 78 74 27 29 3b | 0d 0d 20 20 20 20 54 65 |'Text');|..    Te|
|00001d10| 78 74 46 61 63 65 28 5b | 62 6f 6c 64 5d 29 3b 0d |xtFace([|bold]);.|
|00001d20| 20 20 20 20 4d 6f 76 65 | 54 6f 28 37 30 2c 35 35 |    Move|To(70,55|
|00001d30| 29 3b 20 20 4d 79 44 72 | 61 77 53 74 72 69 6e 67 |);  MyDr|awString|
|00001d40| 28 27 42 6f 6c 64 27 29 | 3b 0d 0d 20 20 20 20 54 |('Bold')|;..    T|
|00001d50| 65 78 74 46 61 63 65 28 | 5b 69 74 61 6c 69 63 5d |extFace(|[italic]|
|00001d60| 29 3b 0d 20 20 20 20 4d | 6f 76 65 54 6f 28 37 30 |);.    M|oveTo(70|
|00001d70| 2c 37 30 29 3b 20 4d 79 | 44 72 61 77 53 74 72 69 |,70); My|DrawStri|
|00001d80| 6e 67 28 27 49 74 61 6c | 69 63 27 29 3b 0d 0d 20 |ng('Ital|ic');.. |
|00001d90| 20 20 20 54 65 78 74 46 | 61 63 65 28 5b 75 6e 64 |   TextF|ace([und|
|00001da0| 65 72 6c 69 6e 65 5d 29 | 3b 0d 20 20 20 20 4d 6f |erline])|;.    Mo|
|00001db0| 76 65 54 6f 28 37 30 2c | 38 35 29 3b 20 4d 79 44 |veTo(70,|85); MyD|
|00001dc0| 72 61 77 53 74 72 69 6e | 67 28 27 55 6e 64 65 72 |rawStrin|g('Under|
|00001dd0| 6c 69 6e 65 27 29 3b 0d | 0d 20 20 20 20 54 65 78 |line');.|.    Tex|
|00001de0| 74 46 61 63 65 28 5b 6f | 75 74 6c 69 6e 65 5d 29 |tFace([o|utline])|
|00001df0| 3b 0d 20 20 20 20 4d 6f | 76 65 54 6f 28 37 30 2c |;.    Mo|veTo(70,|
|00001e00| 31 30 30 29 3b 20 4d 79 | 44 72 61 77 53 74 72 69 |100); My|DrawStri|
|00001e10| 6e 67 28 27 4f 75 74 6c | 69 6e 65 27 29 3b 0d 0d |ng('Outl|ine');..|
|00001e20| 20 20 20 20 54 65 78 74 | 46 61 63 65 28 5b 73 68 |    Text|Face([sh|
|00001e30| 61 64 6f 77 5d 29 3b 0d | 20 20 20 20 4d 6f 76 65 |adow]);.|    Move|
|00001e40| 54 6f 28 37 30 2c 31 31 | 35 29 3b 20 4d 79 44 72 |To(70,11|5); MyDr|
|00001e50| 61 77 53 74 72 69 6e 67 | 28 27 53 68 61 64 6f 77 |awString|('Shadow|
|00001e60| 27 29 3b 0d 0d 20 20 20 | 20 54 65 78 74 46 61 63 |');..   | TextFac|
|00001e70| 65 28 53 74 79 6c 65 28 | 30 29 29 3b 20 20 20 28 |e(Style(|0));   (|
|00001e80| 2a 20 72 65 73 74 6f 72 | 65 20 74 6f 20 6e 6f 72 |* restor|e to nor|
|00001e90| 6d 61 6c 20 2a 29 20 0d | 0d 20 20 20 20 28 2a 20 |mal *) .|.    (* |
|00001ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 64 72 61 77 20 6c |--------|- draw l|
|00001eb0| 69 6e 65 20 73 61 6d 70 | 6c 65 73 20 2d 2d 2d 2d |ine samp|les ----|
|00001ec0| 2d 2d 2d 2d 2d 20 2a 29 | 0d 0d 20 20 20 20 4d 6f |----- *)|..    Mo|
|00001ed0| 76 65 54 6f 28 33 33 30 | 2c 33 34 29 3b 20 20 4d |veTo(330|,34);  M|
|00001ee0| 79 44 72 61 77 53 74 72 | 69 6e 67 28 27 4c 69 6e |yDrawStr|ing('Lin|
|00001ef0| 65 73 27 29 3b 0d 0d 20 | 20 20 20 4d 6f 76 65 54 |es');.. |   MoveT|
|00001f00| 6f 28 32 38 30 2c 32 35 | 29 3b 20 20 4c 69 6e 65 |o(280,25|);  Line|
|00001f10| 28 31 36 30 2c 34 30 29 | 3b 0d 0d 20 20 20 20 50 |(160,40)|;..    P|
|00001f20| 65 6e 53 69 7a 65 28 33 | 2c 32 29 3b 0d 20 20 20 |enSize(3|,2);.   |
|00001f30| 20 4d 6f 76 65 54 6f 28 | 32 38 30 2c 33 35 29 3b | MoveTo(|280,35);|
|00001f40| 20 20 4c 69 6e 65 28 31 | 36 30 2c 34 30 29 3b 0d |  Line(1|60,40);.|
|00001f50| 0d 20 20 20 20 50 65 6e | 53 69 7a 65 28 36 2c 34 |.    Pen|Size(6,4|
|00001f60| 29 3b 0d 20 20 20 20 4d | 6f 76 65 54 6f 28 32 38 |);.    M|oveTo(28|
|00001f70| 30 2c 34 36 29 3b 20 20 | 4c 69 6e 65 28 31 36 30 |0,46);  |Line(160|
|00001f80| 2c 34 30 29 3b 0d 0d 20 | 20 20 20 50 65 6e 53 69 |,40);.. |   PenSi|
|00001f90| 7a 65 28 31 32 2c 38 29 | 3b 0d 20 20 20 20 50 65 |ze(12,8)|;.    Pe|
|00001fa0| 6e 50 61 74 28 67 72 61 | 79 29 3b 0d 20 20 20 20 |nPat(gra|y);.    |
|00001fb0| 4d 6f 76 65 54 6f 28 32 | 38 30 2c 36 31 29 3b 20 |MoveTo(2|80,61); |
|00001fc0| 4c 69 6e 65 28 31 36 30 | 2c 34 30 29 3b 0d 0d 20 |Line(160|,40);.. |
|00001fd0| 20 20 20 50 65 6e 53 69 | 7a 65 28 31 35 2c 31 30 |   PenSi|ze(15,10|
|00001fe0| 29 3b 0d 20 20 20 20 50 | 65 6e 50 61 74 28 6d 79 |);.    P|enPat(my|
|00001ff0| 50 61 74 74 65 72 6e 29 | 3b 0d 20 20 20 20 4d 6f |Pattern)|;.    Mo|
|00002000| 76 65 54 6f 28 32 38 30 | 2c 38 30 29 3b 20 4c 69 |veTo(280|,80); Li|
|00002010| 6e 65 28 31 36 30 2c 34 | 30 29 3b 0d 20 20 20 20 |ne(160,4|0);.    |
|00002020| 50 65 6e 4e 6f 72 6d 61 | 6c 3b 0d 0d 20 20 20 20 |PenNorma|l;..    |
|00002030| 28 2a 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 64 72 61 |(* -----|---- dra|
|00002040| 77 20 72 65 63 74 61 6e | 67 6c 65 20 73 61 6d 70 |w rectan|gle samp|
|00002050| 6c 65 73 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 2a 29 |les ----|----- *)|
|00002060| 0d 0d 20 20 20 20 4d 6f | 76 65 54 6f 28 35 36 30 |..    Mo|veTo(560|
|00002070| 2c 33 34 29 3b 20 20 4d | 79 44 72 61 77 53 74 72 |,34);  M|yDrawStr|
|00002080| 69 6e 67 28 27 52 65 63 | 74 61 6e 67 6c 65 73 27 |ing('Rec|tangles'|
|00002090| 29 3b 0d 0d 20 20 20 20 | 53 65 74 52 65 63 74 28 |);..    |SetRect(|
|000020a0| 74 65 6d 70 52 65 63 74 | 2c 35 31 30 2c 34 30 2c |tempRect|,510,40,|
|000020b0| 35 37 30 2c 37 30 29 3b | 0d 20 20 20 20 46 72 61 |570,70);|.    Fra|
|000020c0| 6d 65 52 65 63 74 28 74 | 65 6d 70 52 65 63 74 29 |meRect(t|empRect)|
|000020d0| 3b 0d 0d 20 20 20 20 4f | 66 66 73 65 74 52 65 63 |;..    O|ffsetRec|
|000020e0| 74 28 74 65 6d 70 52 65 | 63 74 2c 32 35 2c 31 35 |t(tempRe|ct,25,15|
|000020f0| 29 3b 0d 20 20 20 20 50 | 65 6e 53 69 7a 65 28 33 |);.    P|enSize(3|
|00002100| 2c 32 29 3b 0d 20 20 20 | 20 45 72 61 73 65 52 65 |,2);.   | EraseRe|
|00002110| 63 74 28 74 65 6d 70 52 | 65 63 74 29 3b 0d 20 20 |ct(tempR|ect);.  |
|00002120| 20 20 46 72 61 6d 65 52 | 65 63 74 28 74 65 6d 70 |  FrameR|ect(temp|
|00002130| 52 65 63 74 29 3b 0d 0d | 20 20 20 20 4f 66 66 73 |Rect);..|    Offs|
|00002140| 65 74 52 65 63 74 28 74 | 65 6d 70 52 65 63 74 2c |etRect(t|empRect,|
|00002150| 32 35 2c 31 35 29 3b 0d | 20 20 20 20 50 61 69 6e |25,15);.|    Pain|
|00002160| 74 52 65 63 74 28 74 65 | 6d 70 52 65 63 74 29 3b |tRect(te|mpRect);|
|00002170| 0d 0d 20 20 20 20 4f 66 | 66 73 65 74 52 65 63 74 |..    Of|fsetRect|
|00002180| 28 74 65 6d 70 52 65 63 | 74 2c 32 35 2c 31 35 29 |(tempRec|t,25,15)|
|00002190| 3b 0d 20 20 20 20 50 65 | 6e 4e 6f 72 6d 61 6c 3b |;.    Pe|nNormal;|
|000021a0| 0d 20 20 20 20 46 69 6c | 6c 52 65 63 74 28 74 65 |.    Fil|lRect(te|
|000021b0| 6d 70 52 65 63 74 2c 67 | 72 61 79 29 3b 0d 20 20 |mpRect,g|ray);.  |
|000021c0| 20 20 46 72 61 6d 65 52 | 65 63 74 28 74 65 6d 70 |  FrameR|ect(temp|
|000021d0| 52 65 63 74 29 3b 0d 0d | 20 20 20 20 4f 66 66 73 |Rect);..|    Offs|
|000021e0| 65 74 52 65 63 74 28 74 | 65 6d 70 52 65 63 74 2c |etRect(t|empRect,|
|000021f0| 32 35 2c 31 35 29 3b 0d | 20 20 20 20 46 69 6c 6c |25,15);.|    Fill|
|00002200| 52 65 63 74 28 74 65 6d | 70 52 65 63 74 2c 6d 79 |Rect(tem|pRect,my|
|00002210| 50 61 74 74 65 72 6e 29 | 3b 0d 20 20 20 20 46 72 |Pattern)|;.    Fr|
|00002220| 61 6d 65 52 65 63 74 28 | 74 65 6d 70 52 65 63 74 |ameRect(|tempRect|
|00002230| 29 3b 0d 0d 20 20 20 20 | 28 2a 20 2d 2d 2d 2d 2d |);..    |(* -----|
|00002240| 2d 2d 2d 2d 20 64 72 61 | 77 20 72 6f 75 6e 64 52 |---- dra|w roundR|
|00002250| 65 63 74 20 73 61 6d 70 | 6c 65 73 20 2d 2d 2d 2d |ect samp|les ----|
|00002260| 2d 2d 2d 2d 2d 20 2a 29 | 0d 0d 20 20 20 20 4d 6f |----- *)|..    Mo|
|00002270| 76 65 54 6f 28 37 30 2c | 31 34 38 29 3b 20 20 4d |veTo(70,|148);  M|
|00002280| 79 44 72 61 77 53 74 72 | 69 6e 67 28 27 52 6f 75 |yDrawStr|ing('Rou|
|00002290| 6e 64 52 65 63 74 73 27 | 29 3b 0d 0d 20 20 20 20 |ndRects'|);..    |
|000022a0| 53 65 74 52 65 63 74 28 | 74 65 6d 70 52 65 63 74 |SetRect(|tempRect|
|000022b0| 2c 33 30 2c 31 35 30 2c | 39 30 2c 31 38 30 29 3b |,30,150,|90,180);|
|000022c0| 0d 20 20 20 20 46 72 61 | 6d 65 52 6f 75 6e 64 52 |.    Fra|meRoundR|
|000022d0| 65 63 74 28 74 65 6d 70 | 52 65 63 74 2c 33 30 2c |ect(temp|Rect,30,|
|000022e0| 32 30 29 3b 0d 0d 20 20 | 20 20 4f 66 66 73 65 74 |20);..  |  Offset|
|000022f0| 52 65 63 74 28 74 65 6d | 70 52 65 63 74 2c 32 35 |Rect(tem|pRect,25|
|00002300| 2c 31 35 29 3b 0d 20 20 | 20 20 50 65 6e 53 69 7a |,15);.  |  PenSiz|
|00002310| 65 28 33 2c 32 29 3b 0d | 20 20 20 20 45 72 61 73 |e(3,2);.|    Eras|
|00002320| 65 52 6f 75 6e 64 52 65 | 63 74 28 74 65 6d 70 52 |eRoundRe|ct(tempR|
|00002330| 65 63 74 2c 33 30 2c 32 | 30 29 3b 0d 20 20 20 20 |ect,30,2|0);.    |
|00002340| 46 72 61 6d 65 52 6f 75 | 6e 64 52 65 63 74 28 74 |FrameRou|ndRect(t|
|00002350| 65 6d 70 52 65 63 74 2c | 33 30 2c 32 30 29 3b 0d |empRect,|30,20);.|
|00002360| 0d 20 20 20 20 4f 66 66 | 73 65 74 52 65 63 74 28 |.    Off|setRect(|
|00002370| 74 65 6d 70 52 65 63 74 | 2c 32 35 2c 31 35 29 3b |tempRect|,25,15);|
|00002380| 0d 20 20 20 20 50 61 69 | 6e 74 52 6f 75 6e 64 52 |.    Pai|ntRoundR|
|00002390| 65 63 74 28 74 65 6d 70 | 52 65 63 74 2c 33 30 2c |ect(temp|Rect,30,|
|000023a0| 32 30 29 3b 0d 0d 20 20 | 20 20 4f 66 66 73 65 74 |20);..  |  Offset|
|000023b0| 52 65 63 74 28 74 65 6d | 70 52 65 63 74 2c 32 35 |Rect(tem|pRect,25|
|000023c0| 2c 31 35 29 3b 0d 20 20 | 20 20 50 65 6e 4e 6f 72 |,15);.  |  PenNor|
|000023d0| 6d 61 6c 3b 0d 20 20 20 | 20 46 69 6c 6c 52 6f 75 |mal;.   | FillRou|
|000023e0| 6e 64 52 65 63 74 28 74 | 65 6d 70 52 65 63 74 2c |ndRect(t|empRect,|
|000023f0| 33 30 2c 32 30 2c 67 72 | 61 79 29 3b 0d 20 20 20 |30,20,gr|ay);.   |
|00002400| 20 46 72 61 6d 65 52 6f | 75 6e 64 52 65 63 74 28 | FrameRo|undRect(|
|00002410| 74 65 6d 70 52 65 63 74 | 2c 33 30 2c 32 30 29 3b |tempRect|,30,20);|
|00002420| 0d 0d 20 20 20 20 4f 66 | 66 73 65 74 52 65 63 74 |..    Of|fsetRect|
|00002430| 28 74 65 6d 70 52 65 63 | 74 2c 32 35 2c 31 35 29 |(tempRec|t,25,15)|
|00002440| 3b 0d 20 20 20 20 46 69 | 6c 6c 52 6f 75 6e 64 52 |;.    Fi|llRoundR|
|00002450| 65 63 74 28 74 65 6d 70 | 52 65 63 74 2c 33 30 2c |ect(temp|Rect,30,|
|00002460| 32 30 2c 6d 79 50 61 74 | 74 65 72 6e 29 3b 0d 20 |20,myPat|tern);. |
|00002470| 20 20 20 46 72 61 6d 65 | 52 6f 75 6e 64 52 65 63 |   Frame|RoundRec|
|00002480| 74 28 74 65 6d 70 52 65 | 63 74 2c 33 30 2c 32 30 |t(tempRe|ct,30,20|
|00002490| 29 3b 0d 0d 20 20 20 20 | 28 2a 20 2d 2d 2d 2d 2d |);..    |(* -----|
|000024a0| 2d 2d 2d 2d 20 64 72 61 | 77 20 62 69 74 6d 61 70 |---- dra|w bitmap|
|000024b0| 20 73 61 6d 70 6c 65 73 | 20 2d 2d 2d 2d 2d 2d 2d | samples| -------|
|000024c0| 2d 2d 20 2a 29 0d 0d 20 | 20 20 20 4d 6f 76 65 54 |-- *).. |   MoveT|
|000024d0| 6f 28 33 32 30 2c 31 34 | 38 29 3b 20 20 4d 79 44 |o(320,14|8);  MyD|
|000024e0| 72 61 77 53 74 72 69 6e | 67 28 27 42 69 74 4d 61 |rawStrin|g('BitMa|
|000024f0| 70 73 27 29 3b 0d 0d 20 | 20 20 20 44 72 61 77 49 |ps');.. |   DrawI|
|00002500| 63 6f 6e 28 30 2c 32 36 | 36 2c 31 35 36 29 3b 0d |con(0,26|6,156);.|
|00002510| 20 20 20 20 44 72 61 77 | 49 63 6f 6e 28 31 2c 33 |    Draw|Icon(1,3|
|00002520| 33 36 2c 31 35 36 29 3b | 0d 20 20 20 20 44 72 61 |36,156);|.    Dra|
|00002530| 77 49 63 6f 6e 28 32 2c | 34 30 36 2c 31 35 36 29 |wIcon(2,|406,156)|
|00002540| 3b 0d 20 20 20 20 44 72 | 61 77 49 63 6f 6e 28 33 |;.    Dr|awIcon(3|
|00002550| 2c 32 36 36 2c 31 39 36 | 29 3b 0d 20 20 20 20 44 |,266,196|);.    D|
|00002560| 72 61 77 49 63 6f 6e 28 | 34 2c 33 33 36 2c 31 39 |rawIcon(|4,336,19|
|00002570| 36 29 3b 0d 20 20 20 20 | 44 72 61 77 49 63 6f 6e |6);.    |DrawIcon|
|00002580| 28 35 2c 34 30 36 2c 31 | 39 36 29 3b 0d 0d 20 20 |(5,406,1|96);..  |
|00002590| 20 20 28 2a 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 64 |  (* ---|------ d|
|000025a0| 72 61 77 20 41 52 43 20 | 73 61 6d 70 6c 65 73 20 |raw ARC |samples |
|000025b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 2a 29 0d 0d 20 20 |--------|- *)..  |
|000025c0| 20 20 4d 6f 76 65 54 6f | 28 35 37 30 2c 31 34 38 |  MoveTo|(570,148|
|000025d0| 29 3b 20 20 4d 79 44 72 | 61 77 53 74 72 69 6e 67 |);  MyDr|awString|
|000025e0| 28 27 41 72 63 73 27 29 | 3b 0d 0d 20 20 20 20 53 |('Arcs')|;..    S|
|000025f0| 65 74 52 65 63 74 28 74 | 65 6d 70 52 65 63 74 2c |etRect(t|empRect,|
|00002600| 35 32 30 2c 31 35 33 2c | 36 35 35 2c 32 34 33 29 |520,153,|655,243)|
|00002610| 3b 0d 20 20 20 20 46 69 | 6c 6c 41 72 63 28 74 65 |;.    Fi|llArc(te|
|00002620| 6d 70 52 65 63 74 2c 31 | 33 35 2c 36 35 2c 64 6b |mpRect,1|35,65,dk|
|00002630| 47 72 61 79 29 3b 0d 20 | 20 20 20 46 69 6c 6c 41 |Gray);. |   FillA|
|00002640| 72 63 28 74 65 6d 70 52 | 65 63 74 2c 32 30 30 2c |rc(tempR|ect,200,|
|00002650| 31 33 30 2c 6d 79 50 61 | 74 74 65 72 6e 29 3b 0d |130,myPa|ttern);.|
|00002660| 20 20 20 20 46 69 6c 6c | 41 72 63 28 74 65 6d 70 |    Fill|Arc(temp|
|00002670| 52 65 63 74 2c 33 33 30 | 2c 37 35 2c 67 72 61 79 |Rect,330|,75,gray|
|00002680| 29 3b 0d 20 20 20 20 46 | 72 61 6d 65 41 72 63 28 |);.    F|rameArc(|
|00002690| 74 65 6d 70 52 65 63 74 | 2c 31 33 35 2c 32 37 30 |tempRect|,135,270|
|000026a0| 29 3b 0d 20 20 20 20 4f | 66 66 73 65 74 52 65 63 |);.    O|ffsetRec|
|000026b0| 74 28 74 65 6d 70 52 65 | 63 74 2c 32 30 2c 30 29 |t(tempRe|ct,20,0)|
|000026c0| 3b 0d 20 20 20 20 50 61 | 69 6e 74 41 72 63 28 74 |;.    Pa|intArc(t|
|000026d0| 65 6d 70 52 65 63 74 2c | 34 35 2c 39 30 29 3b 0d |empRect,|45,90);.|
|000026e0| 0d 20 20 20 20 28 2a 20 | 2d 2d 2d 2d 2d 2d 2d 2d |.    (* |--------|
|000026f0| 2d 20 64 72 61 77 20 70 | 6f 6c 79 67 6f 6e 20 73 |- draw p|olygon s|
|00002700| 61 6d 70 6c 65 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |amples -|--------|
|00002710| 20 2a 29 0d 0d 20 20 20 | 20 4d 6f 76 65 54 6f 28 | *)..   | MoveTo(|
|00002720| 38 30 2c 32 36 32 29 3b | 20 20 4d 79 44 72 61 77 |80,262);|  MyDraw|
|00002730| 53 74 72 69 6e 67 28 27 | 50 6f 6c 79 67 6f 6e 73 |String('|Polygons|
|00002740| 27 29 3b 0d 0d 20 20 20 | 20 6d 79 50 6f 6c 79 20 |');..   | myPoly |
|00002750| 3a 3d 20 4f 70 65 6e 50 | 6f 6c 79 28 29 3b 20 20 |:= OpenP|oly();  |
|00002760| 20 20 0d 20 20 20 20 20 | 20 4d 6f 76 65 54 6f 28 |  .     | MoveTo(|
|00002770| 33 30 2c 32 39 30 29 3b | 0d 20 20 20 20 20 20 4c |30,290);|.      L|
|00002780| 69 6e 65 54 6f 28 33 30 | 2c 32 38 30 29 3b 0d 20 |ineTo(30|,280);. |
|00002790| 20 20 20 20 20 4c 69 6e | 65 54 6f 28 35 30 2c 32 |     Lin|eTo(50,2|
|000027a0| 36 35 29 3b 0d 20 20 20 | 20 20 20 4c 69 6e 65 54 |65);.   |   LineT|
|000027b0| 6f 28 39 30 2c 32 36 35 | 29 3b 0d 20 20 20 20 20 |o(90,265|);.     |
|000027c0| 20 4c 69 6e 65 54 6f 28 | 38 30 2c 32 38 30 29 3b | LineTo(|80,280);|
|000027d0| 0d 20 20 20 20 20 20 4c | 69 6e 65 54 6f 28 39 35 |.      L|ineTo(95|
|000027e0| 2c 32 39 30 29 3b 0d 20 | 20 20 20 20 20 4c 69 6e |,290);. |     Lin|
|000027f0| 65 54 6f 28 33 30 2c 32 | 39 30 29 3b 0d 20 20 20 |eTo(30,2|90);.   |
|00002800| 20 43 6c 6f 73 65 50 6f | 6c 79 3b 09 20 20 20 20 | ClosePo|ly;.    |
|00002810| 20 20 28 2a 20 65 6e 64 | 20 6f 66 20 64 65 66 69 |  (* end| of defi|
|00002820| 6e 69 74 69 6f 6e 20 2a | 29 0d 0d 20 20 20 20 46 |nition *|)..    F|
|00002830| 72 61 6d 65 50 6f 6c 79 | 28 6d 79 50 6f 6c 79 29 |ramePoly|(myPoly)|
|00002840| 3b 0d 0d 20 20 20 20 4f | 66 66 73 65 74 50 6f 6c |;..    O|ffsetPol|
|00002850| 79 28 6d 79 50 6f 6c 79 | 2c 32 35 2c 31 35 29 3b |y(myPoly|,25,15);|
|00002860| 0d 20 20 20 20 50 65 6e | 53 69 7a 65 28 33 2c 32 |.    Pen|Size(3,2|
|00002870| 29 3b 0d 20 20 20 20 45 | 72 61 73 65 50 6f 6c 79 |);.    E|rasePoly|
|00002880| 28 6d 79 50 6f 6c 79 29 | 3b 0d 20 20 20 20 46 72 |(myPoly)|;.    Fr|
|00002890| 61 6d 65 50 6f 6c 79 28 | 6d 79 50 6f 6c 79 29 3b |amePoly(|myPoly);|
|000028a0| 0d 0d 20 20 20 20 4f 66 | 66 73 65 74 50 6f 6c 79 |..    Of|fsetPoly|
|000028b0| 28 6d 79 50 6f 6c 79 2c | 32 35 2c 31 35 29 3b 0d |(myPoly,|25,15);.|
|000028c0| 20 20 20 20 50 61 69 6e | 74 50 6f 6c 79 28 6d 79 |    Pain|tPoly(my|
|000028d0| 50 6f 6c 79 29 3b 0d 0d | 20 20 20 20 4f 66 66 73 |Poly);..|    Offs|
|000028e0| 65 74 50 6f 6c 79 28 6d | 79 50 6f 6c 79 2c 32 35 |etPoly(m|yPoly,25|
|000028f0| 2c 31 35 29 3b 0d 20 20 | 20 20 50 65 6e 4e 6f 72 |,15);.  |  PenNor|
|00002900| 6d 61 6c 3b 0d 20 20 20 | 20 46 69 6c 6c 50 6f 6c |mal;.   | FillPol|
|00002910| 79 28 6d 79 50 6f 6c 79 | 2c 67 72 61 79 29 3b 0d |y(myPoly|,gray);.|
|00002920| 20 20 20 20 46 72 61 6d | 65 50 6f 6c 79 28 6d 79 |    Fram|ePoly(my|
|00002930| 50 6f 6c 79 29 3b 0d 0d | 20 20 20 20 4f 66 66 73 |Poly);..|    Offs|
|00002940| 65 74 50 6f 6c 79 28 6d | 79 50 6f 6c 79 2c 32 35 |etPoly(m|yPoly,25|
|00002950| 2c 31 35 29 3b 0d 20 20 | 20 20 46 69 6c 6c 50 6f |,15);.  |  FillPo|
|00002960| 6c 79 28 6d 79 50 6f 6c | 79 2c 6d 79 50 61 74 74 |ly(myPol|y,myPatt|
|00002970| 65 72 6e 29 3b 0d 20 20 | 20 20 46 72 61 6d 65 50 |ern);.  |  FrameP|
|00002980| 6f 6c 79 28 6d 79 50 6f | 6c 79 29 3b 0d 0d 20 20 |oly(myPo|ly);..  |
|00002990| 20 20 4b 69 6c 6c 50 6f | 6c 79 28 6d 79 50 6f 6c |  KillPo|ly(myPol|
|000029a0| 79 29 3b 0d 0d 20 20 20 | 20 28 2a 20 2d 2d 2d 2d |y);..   | (* ----|
|000029b0| 2d 2d 2d 2d 2d 20 64 65 | 6d 6f 6e 73 74 72 61 74 |----- de|monstrat|
|000029c0| 65 20 72 65 67 69 6f 6e | 73 20 2d 2d 2d 2d 2d 2d |e region|s ------|
|000029d0| 2d 2d 2d 20 2a 29 0d 0d | 20 20 20 20 4d 6f 76 65 |--- *)..|    Move|
|000029e0| 54 6f 28 33 32 30 2c 32 | 36 32 29 3b 20 20 4d 79 |To(320,2|62);  My|
|000029f0| 44 72 61 77 53 74 72 69 | 6e 67 28 27 52 65 67 69 |DrawStri|ng('Regi|
|00002a00| 6f 6e 73 27 29 3b 0d 0d | 20 20 20 20 6d 79 52 67 |ons');..|    myRg|
|00002a10| 6e 20 3a 3d 20 4e 65 77 | 52 67 6e 28 29 3b 20 20 |n := New|Rgn();  |
|00002a20| 20 20 0d 20 20 20 20 4f | 70 65 6e 52 67 6e 3b 0d |  .    O|penRgn;.|
|00002a30| 20 20 20 20 20 20 53 68 | 6f 77 50 65 6e 3b 0d 0d |      Sh|owPen;..|
|00002a40| 20 20 20 20 20 20 53 65 | 74 52 65 63 74 28 74 65 |      Se|tRect(te|
|00002a50| 6d 70 52 65 63 74 2c 32 | 36 30 2c 32 37 30 2c 34 |mpRect,2|60,270,4|
|00002a60| 36 30 2c 33 35 30 29 3b | 0d 20 20 20 20 20 20 46 |60,350);|.      F|
|00002a70| 72 61 6d 65 52 6f 75 6e | 64 52 65 63 74 28 74 65 |rameRoun|dRect(te|
|00002a80| 6d 70 52 65 63 74 2c 32 | 34 2c 31 36 29 3b 0d 0d |mpRect,2|4,16);..|
|00002a90| 20 20 20 20 20 20 4d 6f | 76 65 54 6f 28 32 37 35 |      Mo|veTo(275|
|00002aa0| 2c 33 33 35 29 3b 09 20 | 28 2a 20 64 65 66 69 6e |,335);. |(* defin|
|00002ab0| 65 20 74 72 69 61 6e 67 | 75 6c 61 72 20 68 6f 6c |e triang|ular hol|
|00002ac0| 65 20 2a 29 0d 20 20 20 | 20 20 20 4c 69 6e 65 54 |e *).   |   LineT|
|00002ad0| 6f 28 33 32 35 2c 32 38 | 35 29 3b 0d 20 20 20 20 |o(325,28|5);.    |
|00002ae0| 20 20 4c 69 6e 65 54 6f | 28 33 37 35 2c 33 33 35 |  LineTo|(375,335|
|00002af0| 29 3b 0d 20 20 20 20 20 | 20 4c 69 6e 65 54 6f 28 |);.     | LineTo(|
|00002b00| 32 37 35 2c 33 33 35 29 | 3b 0d 0d 20 20 20 20 20 |275,335)|;..     |
|00002b10| 20 53 65 74 52 65 63 74 | 28 74 65 6d 70 52 65 63 | SetRect|(tempRec|
|00002b20| 74 2c 33 36 35 2c 32 37 | 37 2c 34 34 35 2c 33 32 |t,365,27|7,445,32|
|00002b30| 35 29 3b 20 20 20 28 2a | 20 6f 76 61 6c 20 68 6f |5);   (*| oval ho|
|00002b40| 6c 65 20 2a 29 0d 20 20 | 20 20 20 20 46 72 61 6d |le *).  |    Fram|
|00002b50| 65 4f 76 61 6c 28 74 65 | 6d 70 52 65 63 74 29 3b |eOval(te|mpRect);|
|00002b60| 0d 0d 20 20 20 20 20 20 | 48 69 64 65 50 65 6e 3b |..      |HidePen;|
|00002b70| 0d 20 20 20 20 43 6c 6f | 73 65 52 67 6e 28 6d 79 |.    Clo|seRgn(my|
|00002b80| 52 67 6e 29 3b 09 20 20 | 20 20 28 2a 20 65 6e 64 |Rgn);.  |  (* end|
|00002b90| 20 6f 66 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 2a | of defi|nition *|
|00002ba0| 29 0d 20 20 20 20 44 69 | 73 70 6f 73 65 52 67 6e |).    Di|sposeRgn|
|00002bb0| 28 6d 79 52 67 6e 29 3b | 0d 0d 20 20 20 20 28 2a |(myRgn);|..    (*|
|00002bc0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 64 72 61 77 20 | -------|-- draw |
|00002bd0| 6f 76 61 6c 20 73 61 6d | 70 6c 65 73 20 2d 2d 2d |oval sam|ples ---|
|00002be0| 2d 2d 2d 2d 2d 2d 20 2a | 29 0d 0d 20 20 20 20 4d |------ *|)..    M|
|00002bf0| 6f 76 65 54 6f 28 35 38 | 30 2c 32 36 32 29 3b 20 |oveTo(58|0,262); |
|00002c00| 20 4d 79 44 72 61 77 53 | 74 72 69 6e 67 28 27 4f | MyDrawS|tring('O|
|00002c10| 76 61 6c 73 27 29 3b 0d | 0d 20 20 20 20 53 65 74 |vals');.|.    Set|
|00002c20| 52 65 63 74 28 74 65 6d | 70 52 65 63 74 2c 35 31 |Rect(tem|pRect,51|
|00002c30| 30 2c 32 36 34 2c 35 37 | 30 2c 32 39 34 29 3b 0d |0,264,57|0,294);.|
|00002c40| 20 20 20 20 46 72 61 6d | 65 4f 76 61 6c 28 74 65 |    Fram|eOval(te|
|00002c50| 6d 70 52 65 63 74 29 3b | 0d 0d 20 20 20 20 4f 66 |mpRect);|..    Of|
|00002c60| 66 73 65 74 52 65 63 74 | 28 74 65 6d 70 52 65 63 |fsetRect|(tempRec|
|00002c70| 74 2c 32 35 2c 31 35 29 | 3b 0d 20 20 20 20 50 65 |t,25,15)|;.    Pe|
|00002c80| 6e 53 69 7a 65 28 33 2c | 32 29 3b 0d 20 20 20 20 |nSize(3,|2);.    |
|00002c90| 45 72 61 73 65 4f 76 61 | 6c 28 74 65 6d 70 52 65 |EraseOva|l(tempRe|
|00002ca0| 63 74 29 3b 0d 20 20 20 | 20 46 72 61 6d 65 4f 76 |ct);.   | FrameOv|
|00002cb0| 61 6c 28 74 65 6d 70 52 | 65 63 74 29 3b 0d 0d 20 |al(tempR|ect);.. |
|00002cc0| 20 20 20 4f 66 66 73 65 | 74 52 65 63 74 28 74 65 |   Offse|tRect(te|
|00002cd0| 6d 70 52 65 63 74 2c 32 | 35 2c 31 35 29 3b 0d 20 |mpRect,2|5,15);. |
|00002ce0| 20 20 20 50 61 69 6e 74 | 4f 76 61 6c 28 74 65 6d |   Paint|Oval(tem|
|00002cf0| 70 52 65 63 74 29 3b 0d | 0d 20 20 20 20 4f 66 66 |pRect);.|.    Off|
|00002d00| 73 65 74 52 65 63 74 28 | 74 65 6d 70 52 65 63 74 |setRect(|tempRect|
|00002d10| 2c 32 35 2c 31 35 29 3b | 0d 20 20 20 20 50 65 6e |,25,15);|.    Pen|
|00002d20| 4e 6f 72 6d 61 6c 3b 0d | 20 20 20 20 46 69 6c 6c |Normal;.|    Fill|
|00002d30| 4f 76 61 6c 28 74 65 6d | 70 52 65 63 74 2c 67 72 |Oval(tem|pRect,gr|
|00002d40| 61 79 29 3b 0d 20 20 20 | 20 46 72 61 6d 65 4f 76 |ay);.   | FrameOv|
|00002d50| 61 6c 28 74 65 6d 70 52 | 65 63 74 29 3b 0d 0d 20 |al(tempR|ect);.. |
|00002d60| 20 20 20 4f 66 66 73 65 | 74 52 65 63 74 28 74 65 |   Offse|tRect(te|
|00002d70| 6d 70 52 65 63 74 2c 32 | 35 2c 31 35 29 3b 0d 20 |mpRect,2|5,15);. |
|00002d80| 20 20 20 46 69 6c 6c 4f | 76 61 6c 28 74 65 6d 70 |   FillO|val(temp|
|00002d90| 52 65 63 74 2c 6d 79 50 | 61 74 74 65 72 6e 29 3b |Rect,myP|attern);|
|00002da0| 0d 20 20 20 20 46 72 61 | 6d 65 4f 76 61 6c 28 74 |.    Fra|meOval(t|
|00002db0| 65 6d 70 52 65 63 74 29 | 3b 0d 0d 20 20 45 4e 44 |empRect)|;..  END|
|00002dc0| 20 7b 44 72 61 77 53 74 | 75 66 66 7d 3b 09 0d 0d | {DrawSt|uff};...|
|00002dd0| 20 20 50 52 4f 43 45 44 | 55 52 45 20 4d 6f 76 65 |  PROCED|URE Move|
|00002de0| 53 63 72 6f 6c 6c 42 61 | 72 73 3b 0d 20 20 42 45 |ScrollBa|rs;.  BE|
|00002df0| 47 49 4e 0d 20 20 20 20 | 57 49 54 48 20 74 68 65 |GIN.    |WITH the|
|00002e00| 57 69 6e 64 6f 77 5e 2e | 70 6f 72 74 52 65 63 74 |Window^.|portRect|
|00002e10| 20 44 4f 0d 20 20 20 20 | 20 20 42 45 47 49 4e 0d | DO.    |  BEGIN.|
|00002e20| 20 20 20 20 20 20 20 20 | 20 48 69 64 65 43 6f 6e |        | HideCon|
|00002e30| 74 72 6f 6c 28 76 53 63 | 72 6f 6c 6c 29 3b 0d 20 |trol(vSc|roll);. |
|00002e40| 20 20 20 20 20 20 20 20 | 4d 6f 76 65 43 6f 6e 74 |        |MoveCont|
|00002e50| 72 6f 6c 28 76 53 63 72 | 6f 6c 6c 2c 72 69 67 68 |rol(vScr|oll,righ|
|00002e60| 74 2d 31 35 2c 74 6f 70 | 2d 31 29 3b 0d 20 20 20 |t-15,top|-1);.   |
|00002e70| 20 20 20 20 20 20 53 69 | 7a 65 43 6f 6e 74 72 6f |      Si|zeContro|
|00002e80| 6c 28 76 53 63 72 6f 6c | 6c 2c 31 36 2c 62 6f 74 |l(vScrol|l,16,bot|
|00002e90| 74 6f 6d 2d 74 6f 70 2d | 31 33 29 3b 0d 20 20 20 |tom-top-|13);.   |
|00002ea0| 20 20 20 20 20 20 53 68 | 6f 77 43 6f 6e 74 72 6f |      Sh|owContro|
|00002eb0| 6c 28 76 53 63 72 6f 6c | 6c 29 3b 0d 20 20 20 20 |l(vScrol|l);.    |
|00002ec0| 20 20 20 20 20 48 69 64 | 65 43 6f 6e 74 72 6f 6c |     Hid|eControl|
|00002ed0| 28 68 53 63 72 6f 6c 6c | 29 3b 0d 20 20 20 20 20 |(hScroll|);.     |
|00002ee0| 20 20 20 20 4d 6f 76 65 | 43 6f 6e 74 72 6f 6c 28 |    Move|Control(|
|00002ef0| 68 53 63 72 6f 6c 6c 2c | 6c 65 66 74 2d 31 2c 62 |hScroll,|left-1,b|
|00002f00| 6f 74 74 6f 6d 2d 31 35 | 29 3b 0d 20 20 20 20 20 |ottom-15|);.     |
|00002f10| 20 20 20 20 53 69 7a 65 | 43 6f 6e 74 72 6f 6c 28 |    Size|Control(|
|00002f20| 68 53 63 72 6f 6c 6c 2c | 72 69 67 68 74 2d 6c 65 |hScroll,|right-le|
|00002f30| 66 74 2d 31 33 2c 31 36 | 29 3b 0d 20 20 20 20 20 |ft-13,16|);.     |
|00002f40| 20 20 20 20 53 68 6f 77 | 43 6f 6e 74 72 6f 6c 28 |    Show|Control(|
|00002f50| 68 53 63 72 6f 6c 6c 29 | 3b 0d 20 20 20 20 20 20 |hScroll)|;.      |
|00002f60| 45 4e 44 3b 0d 20 20 45 | 4e 44 20 7b 4d 6f 76 65 |END;.  E|ND {Move|
|00002f70| 53 63 72 6f 6c 6c 42 61 | 72 73 7d 3b 0d 0d 20 20 |ScrollBa|rs};..  |
|00002f80| 50 52 4f 43 45 44 55 52 | 45 20 52 65 73 69 7a 65 |PROCEDUR|E Resize|
|00002f90| 50 52 65 63 74 3b 0d 0d | 20 20 28 2a 20 70 52 65 |PRect;..|  (* pRe|
|00002fa0| 63 74 20 69 73 20 74 68 | 65 20 77 69 6e 64 6f 77 |ct is th|e window|
|00002fb0| 27 73 20 63 6f 6e 74 65 | 6e 74 20 72 65 67 69 6f |'s conte|nt regio|
|00002fc0| 6e 2c 20 6d 69 6e 75 73 | 20 74 68 65 20 73 63 72 |n, minus| the scr|
|00002fd0| 6f 6c 6c 20 62 61 72 73 | 20 2a 29 0d 0d 20 20 42 |oll bars| *)..  B|
|00002fe0| 45 47 49 4e 0d 20 20 20 | 20 20 70 52 65 63 74 20 |EGIN.   |  pRect |
|00002ff0| 3a 3d 20 74 68 65 57 69 | 6e 64 6f 77 5e 2e 70 6f |:= theWi|ndow^.po|
|00003000| 72 74 52 65 63 74 3b 0d | 20 20 20 20 20 70 52 65 |rtRect;.|     pRe|
|00003010| 63 74 2e 72 69 67 68 74 | 20 3a 3d 20 70 52 65 63 |ct.right| := pRec|
|00003020| 74 2e 72 69 67 68 74 20 | 2d 20 31 35 3b 0d 20 20 |t.right |- 15;.  |
|00003030| 20 20 20 70 52 65 63 74 | 2e 62 6f 74 74 6f 6d 20 |   pRect|.bottom |
|00003040| 3a 3d 20 70 52 65 63 74 | 2e 62 6f 74 74 6f 6d 20 |:= pRect|.bottom |
|00003050| 2d 20 31 35 0d 20 20 45 | 4e 44 20 7b 52 65 73 69 |- 15.  E|ND {Resi|
|00003060| 7a 65 50 52 65 63 74 7d | 3b 0d 0d 20 20 50 52 4f |zePRect}|;..  PRO|
|00003070| 43 45 44 55 52 45 20 47 | 72 6f 77 57 6e 64 20 28 |CEDURE G|rowWnd (|
|00003080| 77 68 69 63 68 57 69 6e | 64 6f 77 3a 20 57 69 6e |whichWin|dow: Win|
|00003090| 64 6f 77 50 74 72 29 3b | 0d 0d 20 20 28 2a 20 48 |dowPtr);|..  (* H|
|000030a0| 61 6e 64 6c 65 73 20 67 | 72 6f 77 69 6e 67 20 61 |andles g|rowing a|
|000030b0| 6e 64 20 73 69 7a 69 6e | 67 20 74 68 65 20 77 69 |nd sizin|g the wi|
|000030c0| 6e 64 6f 77 20 61 6e 64 | 20 6d 61 6e 69 70 75 6c |ndow and| manipul|
|000030d0| 61 74 69 6e 67 20 2a 29 | 0d 20 20 28 2a 20 74 68 |ating *)|.  (* th|
|000030e0| 65 20 75 70 64 61 74 65 | 20 72 65 67 69 6f 6e 2e |e update| region.|
|000030f0| 20 2a 29 0d 0d 20 20 20 | 20 56 41 52 0d 20 20 20 | *)..   | VAR.   |
|00003100| 20 20 20 6c 6f 6e 67 52 | 65 73 75 6c 74 3a 20 4c |   longR|esult: L|
|00003110| 4f 4e 47 49 4e 54 3b 0d | 20 20 20 20 20 20 68 65 |ONGINT;.|      he|
|00003120| 69 67 68 74 2c 77 69 64 | 74 68 3a 20 49 4e 54 45 |ight,wid|th: INTE|
|00003130| 47 45 52 3b 0d 20 20 20 | 20 20 20 74 52 65 63 74 |GER;.   |   tRect|
|00003140| 3a 20 52 65 63 74 3b 0d | 0d 20 20 42 45 47 49 4e |: Rect;.|.  BEGIN|
|00003150| 0d 20 20 20 20 6c 6f 6e | 67 52 65 73 75 6c 74 20 |.    lon|gResult |
|00003160| 3a 3d 20 47 72 6f 77 57 | 69 6e 64 6f 77 28 77 68 |:= GrowW|indow(wh|
|00003170| 69 63 68 57 69 6e 64 6f | 77 2c 6d 79 45 76 65 6e |ichWindo|w,myEven|
|00003180| 74 2e 77 68 65 72 65 2c | 67 72 6f 77 52 65 63 74 |t.where,|growRect|
|00003190| 29 3b 0d 20 20 20 20 49 | 46 20 6c 6f 6e 67 52 65 |);.    I|F longRe|
|000031a0| 73 75 6c 74 20 3d 20 30 | 0d 20 20 20 20 54 48 45 |sult = 0|.    THE|
|000031b0| 4e 0d 20 20 20 20 20 20 | 20 42 45 47 49 4e 0d 20 |N.      | BEGIN. |
|000031c0| 20 20 20 20 6c 6f 6e 67 | 52 65 73 75 6c 74 20 3a |    long|Result :|
|000031d0| 3d 20 47 72 6f 77 57 69 | 6e 64 6f 77 28 77 68 69 |= GrowWi|ndow(whi|
|000031e0| 63 68 57 69 6e 64 6f 77 | 2c 6d 79 45 76 65 6e 74 |chWindow|,myEvent|
|000031f0| 2e 77 68 65 72 65 2c 67 | 72 6f 77 52 65 63 74 29 |.where,g|rowRect)|
|00003200| 3b 0d 20 20 20 20 20 20 | 45 4e 44 0d 20 20 20 20 |;.      |END.    |
|00003210| 45 4c 53 45 0d 20 20 20 | 20 20 20 42 45 47 49 4e |ELSE.   |   BEGIN|
|00003220| 0d 20 20 20 20 20 20 20 | 20 20 68 65 69 67 68 74 |.       |  height|
|00003230| 20 3a 3d 20 6c 6f 6e 67 | 52 65 73 75 6c 74 20 44 | := long|Result D|
|00003240| 49 56 20 36 35 35 33 36 | 3b 20 0d 20 20 20 20 20 |IV 65536|; .     |
|00003250| 20 20 20 20 77 69 64 74 | 68 20 3a 3d 20 6c 6f 6e |    widt|h := lon|
|00003260| 67 52 65 73 75 6c 74 20 | 4d 4f 44 20 36 35 35 33 |gResult |MOD 6553|
|00003270| 36 3b 0d 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |6;.     |.       |
|00003280| 20 20 28 2a 20 41 64 64 | 20 74 68 65 20 6f 6c 64 |  (* Add| the old|
|00003290| 20 22 73 63 72 6f 6c 6c | 20 62 61 72 20 61 72 65 | "scroll| bar are|
|000032a0| 61 22 20 74 6f 20 74 68 | 65 20 75 70 64 61 74 65 |a" to th|e update|
|000032b0| 20 72 65 67 69 6f 6e 20 | 73 6f 20 69 74 20 77 69 | region |so it wi|
|000032c0| 6c 6c 20 2a 29 0d 20 20 | 20 20 20 20 20 20 20 28 |ll *).  |       (|
|000032d0| 2a 20 62 65 20 72 65 64 | 72 61 77 6e 20 28 66 6f |* be red|rawn (fo|
|000032e0| 72 20 77 68 65 6e 20 74 | 68 65 20 77 69 6e 64 6f |r when t|he windo|
|000032f0| 77 20 69 73 20 65 6e 6c | 61 72 67 65 64 29 2e 20 |w is enl|arged). |
|00003300| 2a 29 0d 20 20 20 20 20 | 20 20 20 20 74 52 65 63 |*).     |    tRec|
|00003310| 74 20 3a 3d 20 77 68 69 | 63 68 57 69 6e 64 6f 77 |t := whi|chWindow|
|00003320| 5e 2e 70 6f 72 74 52 65 | 63 74 3b 0d 20 20 20 20 |^.portRe|ct;.    |
|00003330| 20 20 20 20 20 74 52 65 | 63 74 2e 6c 65 66 74 20 |     tRe|ct.left |
|00003340| 3a 3d 20 74 52 65 63 74 | 2e 72 69 67 68 74 20 2d |:= tRect|.right -|
|00003350| 20 31 36 3b 0d 20 20 20 | 20 20 20 20 20 20 49 6e | 16;.   |      In|
|00003360| 76 61 6c 52 65 63 74 28 | 74 52 65 63 74 29 3b 0d |valRect(|tRect);.|
|00003370| 20 20 20 20 20 20 20 20 | 20 74 52 65 63 74 20 3a |        | tRect :|
|00003380| 3d 20 77 68 69 63 68 57 | 69 6e 64 6f 77 5e 2e 70 |= whichW|indow^.p|
|00003390| 6f 72 74 52 65 63 74 3b | 0d 20 20 20 20 20 20 20 |ortRect;|.       |
|000033a0| 20 20 74 52 65 63 74 2e | 74 6f 70 20 3a 3d 20 74 |  tRect.|top := t|
|000033b0| 52 65 63 74 2e 62 6f 74 | 74 6f 6d 20 2d 20 31 36 |Rect.bot|tom - 16|
|000033c0| 3b 0d 20 20 20 20 20 20 | 20 20 20 49 6e 76 61 6c |;.      |   Inval|
|000033d0| 52 65 63 74 28 74 52 65 | 63 74 29 3b 0d 20 20 20 |Rect(tRe|ct);.   |
|000033e0| 20 20 0d 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |  .     |.       |
|000033f0| 20 20 28 2a 20 4e 6f 77 | 20 64 72 61 77 20 74 68 |  (* Now| draw th|
|00003400| 65 20 6e 65 77 6c 79 20 | 73 69 7a 65 64 20 77 69 |e newly |sized wi|
|00003410| 6e 64 6f 77 2e 20 2a 29 | 0d 20 20 20 20 20 20 20 |ndow. *)|.       |
|00003420| 20 20 53 69 7a 65 57 69 | 6e 64 6f 77 28 77 68 69 |  SizeWi|ndow(whi|
|00003430| 63 68 57 69 6e 64 6f 77 | 2c 77 69 64 74 68 2c 68 |chWindow|,width,h|
|00003440| 65 69 67 68 74 2c 54 52 | 55 45 29 3b 0d 20 20 20 |eight,TR|UE);.   |
|00003450| 20 20 20 20 20 20 4d 6f | 76 65 53 63 72 6f 6c 6c |      Mo|veScroll|
|00003460| 42 61 72 73 3b 0d 20 20 | 20 20 20 20 20 20 20 52 |Bars;.  |       R|
|00003470| 65 73 69 7a 65 50 52 65 | 63 74 3b 0d 20 20 20 20 |esizePRe|ct;.    |
|00003480| 20 0d 20 20 20 20 20 20 | 20 20 20 28 2a 20 41 64 | .      |   (* Ad|
|00003490| 64 20 74 68 65 20 6e 65 | 77 20 22 73 63 72 6f 6c |d the ne|w "scrol|
|000034a0| 6c 20 62 61 72 20 61 72 | 65 61 22 20 74 6f 20 74 |l bar ar|ea" to t|
|000034b0| 68 65 20 75 70 64 61 74 | 65 20 72 65 67 69 6f 6e |he updat|e region|
|000034c0| 20 73 6f 20 69 74 20 77 | 69 6c 6c 20 2a 29 0d 20 | so it w|ill *). |
|000034d0| 20 20 20 20 20 20 20 20 | 28 2a 20 62 65 20 72 65 |        |(* be re|
|000034e0| 64 72 61 77 6e 20 28 66 | 6f 72 20 77 68 65 6e 20 |drawn (f|or when |
|000034f0| 74 68 65 20 77 69 6e 64 | 6f 77 20 69 73 20 6d 61 |the wind|ow is ma|
|00003500| 64 65 20 73 6d 61 6c 6c | 65 72 29 2e 20 2a 29 0d |de small|er). *).|
|00003510| 20 20 20 20 20 20 20 20 | 20 74 52 65 63 74 20 3a |        | tRect :|
|00003520| 3d 20 77 68 69 63 68 57 | 69 6e 64 6f 77 5e 2e 70 |= whichW|indow^.p|
|00003530| 6f 72 74 52 65 63 74 3b | 20 74 52 65 63 74 2e 6c |ortRect;| tRect.l|
|00003540| 65 66 74 20 3a 3d 20 74 | 52 65 63 74 2e 72 69 67 |eft := t|Rect.rig|
|00003550| 68 74 2d 31 36 3b 0d 20 | 20 20 20 20 20 20 20 20 |ht-16;. |        |
|00003560| 49 6e 76 61 6c 52 65 63 | 74 28 74 52 65 63 74 29 |InvalRec|t(tRect)|
|00003570| 3b 0d 20 20 20 20 20 20 | 20 20 20 74 52 65 63 74 |;.      |   tRect|
|00003580| 20 3a 3d 20 77 68 69 63 | 68 57 69 6e 64 6f 77 5e | := whic|hWindow^|
|00003590| 2e 70 6f 72 74 52 65 63 | 74 3b 20 74 52 65 63 74 |.portRec|t; tRect|
|000035a0| 2e 74 6f 70 20 3a 3d 20 | 74 52 65 63 74 2e 62 6f |.top := |tRect.bo|
|000035b0| 74 74 6f 6d 2d 31 36 3b | 0d 20 20 20 20 20 20 20 |ttom-16;|.       |
|000035c0| 20 20 49 6e 76 61 6c 52 | 65 63 74 28 74 52 65 63 |  InvalR|ect(tRec|
|000035d0| 74 29 3b 0d 20 20 20 20 | 20 20 45 4e 44 3b 0d 20 |t);.    |  END;. |
|000035e0| 20 20 20 20 20 0d 20 20 | 45 4e 44 20 7b 47 72 6f |     .  |END {Gro|
|000035f0| 77 57 6e 64 7d 3b 20 28 | 2a 20 6f 66 20 47 72 6f |wWnd}; (|* of Gro|
|00003600| 77 57 6e 64 20 2a 29 0d | 0d 20 20 50 52 4f 43 45 |wWnd *).|.  PROCE|
|00003610| 44 55 52 45 20 44 72 61 | 77 57 69 6e 64 6f 77 28 |DURE Dra|wWindow(|
|00003620| 77 68 69 63 68 57 69 6e | 64 6f 77 3a 20 57 69 6e |whichWin|dow: Win|
|00003630| 64 6f 77 50 74 72 29 3b | 0d 20 20 28 2a 20 44 72 |dowPtr);|.  (* Dr|
|00003640| 61 77 73 20 74 68 65 20 | 63 6f 6e 74 65 6e 74 20 |aws the |content |
|00003650| 72 65 67 69 6f 6e 20 6f | 66 20 74 68 65 57 69 6e |region o|f theWin|
|00003660| 64 6f 77 20 2a 29 0d 0d | 20 20 20 20 56 41 52 0d |dow *)..|    VAR.|
|00003670| 20 20 20 20 20 20 74 52 | 65 63 74 20 3a 20 52 65 |      tR|ect : Re|
|00003680| 63 74 3b 0d 0d 20 20 42 | 45 47 49 4e 0d 20 20 20 |ct;..  B|EGIN.   |
|00003690| 20 43 6c 69 70 52 65 63 | 74 20 28 74 68 65 57 69 | ClipRec|t (theWi|
|000036a0| 6e 64 6f 77 5e 2e 70 6f | 72 74 52 65 63 74 29 3b |ndow^.po|rtRect);|
|000036b0| 0d 20 20 20 20 44 72 61 | 77 47 72 6f 77 49 63 6f |.    Dra|wGrowIco|
|000036c0| 6e 28 74 68 65 57 69 6e | 64 6f 77 29 3b 0d 20 20 |n(theWin|dow);.  |
|000036d0| 20 20 49 46 20 74 68 65 | 57 69 6e 64 6f 77 20 3d |  IF the|Window =|
|000036e0| 20 46 72 6f 6e 74 57 69 | 6e 64 6f 77 28 29 20 0d | FrontWi|ndow() .|
|000036f0| 20 20 20 20 54 48 45 4e | 0d 20 20 20 20 20 20 44 |    THEN|.      D|
|00003700| 72 61 77 43 6f 6e 74 72 | 6f 6c 73 28 74 68 65 57 |rawContr|ols(theW|
|00003710| 69 6e 64 6f 77 29 3b 0d | 0d 20 20 20 20 28 2a 20 |indow);.|.    (* |
|00003720| 4e 6f 77 20 73 65 74 20 | 75 70 20 61 20 63 6c 69 |Now set |up a cli|
|00003730| 70 20 61 72 65 61 20 77 | 68 69 63 68 20 65 78 63 |p area w|hich exc|
|00003740| 6c 75 64 65 73 20 74 68 | 65 20 73 63 72 6f 6c 6c |ludes th|e scroll|
|00003750| 20 62 61 72 73 20 2a 29 | 0d 0d 0d 20 20 20 20 74 | bars *)|...    t|
|00003760| 52 65 63 74 20 3a 3d 20 | 74 68 65 57 69 6e 64 6f |Rect := |theWindo|
|00003770| 77 5e 2e 70 6f 72 74 52 | 65 63 74 3b 0d 20 20 20 |w^.portR|ect;.   |
|00003780| 20 74 52 65 63 74 2e 62 | 6f 74 74 6f 6d 20 3a 3d | tRect.b|ottom :=|
|00003790| 20 74 52 65 63 74 2e 62 | 6f 74 74 6f 6d 20 2d 20 | tRect.b|ottom - |
|000037a0| 31 36 3b 0d 20 20 20 20 | 74 52 65 63 74 2e 72 69 |16;.    |tRect.ri|
|000037b0| 67 68 74 20 3a 3d 20 74 | 52 65 63 74 2e 72 69 67 |ght := t|Rect.rig|
|000037c0| 68 74 20 2d 20 31 36 3b | 0d 0d 20 20 20 20 28 2a |ht - 16;|..    (*|
|000037d0| 4e 6f 77 20 63 6f 6d 70 | 65 6e 73 61 74 65 20 66 |Now comp|ensate f|
|000037e0| 6f 72 20 61 6e 79 20 73 | 63 72 6f 6c 6c 69 6e 67 |or any s|crolling|
|000037f0| 20 77 68 69 63 68 20 68 | 61 73 20 62 65 65 6e 20 | which h|as been |
|00003800| 64 6f 6e 65 20 2a 29 0d | 0d 20 20 20 20 4f 66 66 |done *).|.    Off|
|00003810| 73 65 74 52 65 63 74 20 | 28 74 52 65 63 74 2c 20 |setRect |(tRect, |
|00003820| 74 68 65 4f 72 69 67 69 | 6e 2e 68 2c 20 74 68 65 |theOrigi|n.h, the|
|00003830| 4f 72 69 67 69 6e 2e 76 | 29 3b 0d 20 20 20 20 43 |Origin.v|);.    C|
|00003840| 6c 69 70 52 65 63 74 20 | 28 74 52 65 63 74 29 3b |lipRect |(tRect);|
|00003850| 0d 0d 20 20 20 20 28 2a | 20 43 68 61 6e 67 65 20 |..    (*| Change |
|00003860| 74 68 65 20 6f 72 69 67 | 69 6e 20 74 6f 20 63 6f |the orig|in to co|
|00003870| 6d 70 65 6e 73 61 74 65 | 20 66 6f 72 20 61 6e 79 |mpensate| for any|
|00003880| 20 73 63 72 6f 6c 6c 69 | 6e 67 20 77 68 69 63 68 | scrolli|ng which|
|00003890| 20 68 61 73 20 62 65 65 | 6e 20 64 6f 6e 65 20 2a | has bee|n done *|
|000038a0| 29 0d 0d 20 20 20 20 53 | 65 74 4f 72 69 67 69 6e |)..    S|etOrigin|
|000038b0| 20 28 74 68 65 4f 72 69 | 67 69 6e 2e 68 2c 20 74 | (theOri|gin.h, t|
|000038c0| 68 65 4f 72 69 67 69 6e | 2e 76 29 3b 0d 20 20 20 |heOrigin|.v);.   |
|000038d0| 20 44 72 61 77 53 74 75 | 66 66 3b 0d 20 20 20 20 | DrawStu|ff;.    |
|000038e0| 53 65 74 4f 72 69 67 69 | 6e 20 28 30 2c 20 30 29 |SetOrigi|n (0, 0)|
|000038f0| 3b 0d 20 20 20 20 43 6c | 69 70 52 65 63 74 20 28 |;.    Cl|ipRect (|
|00003900| 74 68 65 57 69 6e 64 6f | 77 5e 2e 70 6f 72 74 52 |theWindo|w^.portR|
|00003910| 65 63 74 29 3b 20 20 28 | 2a 20 52 65 73 65 74 20 |ect);  (|* Reset |
|00003920| 74 68 65 20 63 6c 69 70 | 20 61 72 65 61 20 2a 29 |the clip| area *)|
|00003930| 0d 20 20 45 4e 44 20 7b | 44 72 61 77 57 69 6e 64 |.  END {|DrawWind|
|00003940| 6f 77 7d 3b 20 28 2a 20 | 6f 66 20 44 72 61 77 57 |ow}; (* |of DrawW|
|00003950| 69 6e 64 6f 77 20 2a 29 | 0d 0d 20 20 50 52 4f 43 |indow *)|..  PROC|
|00003960| 45 44 55 52 45 20 53 63 | 72 6f 6c 6c 42 69 74 73 |EDURE Sc|rollBits|
|00003970| 3b 0d 20 20 20 20 56 41 | 52 0d 20 20 20 20 20 20 |;.    VA|R.      |
|00003980| 6f 6c 64 4f 72 69 67 69 | 6e 20 20 20 3a 20 50 6f |oldOrigi|n   : Po|
|00003990| 69 6e 74 3b 0d 20 20 20 | 20 20 20 64 68 2c 64 76 |int;.   |   dh,dv|
|000039a0| 09 20 20 3a 20 49 4e 54 | 45 47 45 52 3b 0d 20 20 |.  : INT|EGER;.  |
|000039b0| 20 20 20 20 74 52 65 63 | 74 09 20 20 3a 20 52 65 |    tRec|t.  : Re|
|000039c0| 63 74 3b 0d 20 20 42 45 | 47 49 4e 0d 20 20 20 20 |ct;.  BE|GIN.    |
|000039d0| 6f 6c 64 4f 72 69 67 69 | 6e 20 3a 3d 20 74 68 65 |oldOrigi|n := the|
|000039e0| 4f 72 69 67 69 6e 3b 0d | 20 20 20 20 74 68 65 4f |Origin;.|    theO|
|000039f0| 72 69 67 69 6e 2e 68 20 | 3a 3d 20 34 20 2a 20 47 |rigin.h |:= 4 * G|
|00003a00| 65 74 43 74 6c 56 61 6c | 75 65 28 68 53 63 72 6f |etCtlVal|ue(hScro|
|00003a10| 6c 6c 29 3b 0d 20 20 20 | 20 74 68 65 4f 72 69 67 |ll);.   | theOrig|
|00003a20| 69 6e 2e 76 20 3a 3d 20 | 34 20 2a 20 47 65 74 43 |in.v := |4 * GetC|
|00003a30| 74 6c 56 61 6c 75 65 28 | 76 53 63 72 6f 6c 6c 29 |tlValue(|vScroll)|
|00003a40| 3b 0d 20 20 20 20 64 68 | 20 3a 3d 20 6f 6c 64 4f |;.    dh| := oldO|
|00003a50| 72 69 67 69 6e 2e 68 20 | 2d 20 74 68 65 4f 72 69 |rigin.h |- theOri|
|00003a60| 67 69 6e 2e 68 3b 0d 20 | 20 20 20 64 76 20 3a 3d |gin.h;. |   dv :=|
|00003a70| 20 6f 6c 64 4f 72 69 67 | 69 6e 2e 76 20 2d 20 74 | oldOrig|in.v - t|
|00003a80| 68 65 4f 72 69 67 69 6e | 2e 76 3b 0d 20 20 20 20 |heOrigin|.v;.    |
|00003a90| 74 68 65 55 70 64 61 74 | 65 52 67 6e 20 3a 3d 20 |theUpdat|eRgn := |
|00003aa0| 4e 65 77 52 67 6e 28 29 | 3b 20 20 20 20 20 0d 20 |NewRgn()|;     . |
|00003ab0| 20 20 20 53 63 72 6f 6c | 6c 52 65 63 74 20 28 70 |   Scrol|lRect (p|
|00003ac0| 52 65 63 74 2c 20 64 68 | 2c 20 64 76 2c 20 74 68 |Rect, dh|, dv, th|
|00003ad0| 65 55 70 64 61 74 65 52 | 67 6e 29 3b 0d 20 0d 20 |eUpdateR|gn);. . |
|00003ae0| 20 20 20 28 2a 20 48 61 | 76 65 20 73 63 72 6f 6c |   (* Ha|ve scrol|
|00003af0| 6c 65 64 20 69 6e 20 6a | 75 6e 6b 2e 2e 2e 6e 65 |led in j|unk...ne|
|00003b00| 65 64 20 74 6f 20 72 65 | 64 72 61 77 20 2a 29 0d |ed to re|draw *).|
|00003b10| 20 0d 20 20 20 20 53 65 | 74 4f 72 69 67 69 6e 20 | .    Se|tOrigin |
|00003b20| 28 74 68 65 4f 72 69 67 | 69 6e 2e 68 2c 20 74 68 |(theOrig|in.h, th|
|00003b30| 65 4f 72 69 67 69 6e 2e | 76 29 3b 0d 20 20 20 20 |eOrigin.|v);.    |
|00003b40| 4f 66 66 73 65 74 52 65 | 63 74 20 28 74 68 65 55 |OffsetRe|ct (theU|
|00003b50| 70 64 61 74 65 52 67 6e | 5e 5e 2e 72 67 6e 42 42 |pdateRgn|^^.rgnBB|
|00003b60| 6f 78 2c 20 74 68 65 4f | 72 69 67 69 6e 2e 68 2c |ox, theO|rigin.h,|
|00003b70| 20 74 68 65 4f 72 69 67 | 69 6e 2e 76 29 3b 0d 20 | theOrig|in.v);. |
|00003b80| 20 20 20 43 6c 69 70 52 | 65 63 74 20 28 74 68 65 |   ClipR|ect (the|
|00003b90| 55 70 64 61 74 65 52 67 | 6e 5e 5e 2e 72 67 6e 42 |UpdateRg|n^^.rgnB|
|00003ba0| 42 6f 78 29 3b 0d 20 20 | 20 20 44 72 61 77 53 74 |Box);.  |  DrawSt|
|00003bb0| 75 66 66 3b 0d 20 20 20 | 20 44 69 73 70 6f 73 65 |uff;.   | Dispose|
|00003bc0| 52 67 6e 20 28 74 68 65 | 55 70 64 61 74 65 52 67 |Rgn (the|UpdateRg|
|00003bd0| 6e 29 3b 0d 20 20 20 20 | 53 65 74 4f 72 69 67 69 |n);.    |SetOrigi|
|00003be0| 6e 20 28 30 2c 20 30 29 | 3b 0d 20 20 20 20 43 6c |n (0, 0)|;.    Cl|
|00003bf0| 69 70 52 65 63 74 20 28 | 74 68 65 57 69 6e 64 6f |ipRect (|theWindo|
|00003c00| 77 5e 2e 70 6f 72 74 52 | 65 63 74 29 3b 0d 20 20 |w^.portR|ect);.  |
|00003c10| 45 4e 44 20 7b 53 63 72 | 6f 6c 6c 42 69 74 73 7d |END {Scr|ollBits}|
|00003c20| 3b 0d 0d 20 20 50 52 4f | 43 45 44 55 52 45 20 50 |;..  PRO|CEDURE P|
|00003c30| 61 67 65 53 63 72 6f 6c | 6c 28 63 6f 64 65 31 2c |ageScrol|l(code1,|
|00003c40| 61 6d 6f 75 6e 74 3a 20 | 49 4e 54 45 47 45 52 29 |amount: |INTEGER)|
|00003c50| 3b 0d 20 20 20 20 56 41 | 52 0d 20 20 20 20 20 20 |;.    VA|R.      |
|00003c60| 6d 79 50 74 3a 20 50 6f | 69 6e 74 3b 0d 20 20 42 |myPt: Po|int;.  B|
|00003c70| 45 47 49 4e 0d 20 20 20 | 20 52 45 50 45 41 54 0d |EGIN.   | REPEAT.|
|00003c80| 20 20 20 20 20 20 47 65 | 74 4d 6f 75 73 65 28 6d |      Ge|tMouse(m|
|00003c90| 79 50 74 29 3b 0d 20 20 | 20 20 20 20 49 46 20 54 |yPt);.  |    IF T|
|00003ca0| 65 73 74 43 6f 6e 74 72 | 6f 6c 28 77 68 69 63 68 |estContr|ol(which|
|00003cb0| 43 6f 6e 74 72 6f 6c 2c | 6d 79 50 74 29 20 3d 20 |Control,|myPt) = |
|00003cc0| 63 6f 64 65 31 0d 20 20 | 20 20 20 20 54 48 45 4e |code1.  |    THEN|
|00003cd0| 0d 20 20 20 20 20 20 20 | 20 42 45 47 49 4e 0d 20 |.       | BEGIN. |
|00003ce0| 09 20 20 20 20 20 20 53 | 65 74 43 74 6c 56 61 6c |.      S|etCtlVal|
|00003cf0| 75 65 28 77 68 69 63 68 | 43 6f 6e 74 72 6f 6c 2c |ue(which|Control,|
|00003d00| 47 65 74 43 74 6c 56 61 | 6c 75 65 28 77 68 69 63 |GetCtlVa|lue(whic|
|00003d10| 68 43 6f 6e 74 72 6f 6c | 29 2b 61 6d 6f 75 6e 74 |hControl|)+amount|
|00003d20| 29 3b 0d 09 20 20 20 20 | 20 20 53 63 72 6f 6c 6c |);..    |  Scroll|
|00003d30| 42 69 74 73 3b 0d 20 20 | 20 20 20 20 45 4e 44 3b |Bits;.  |    END;|
|00003d40| 0d 20 20 20 20 55 4e 54 | 49 4c 20 4e 4f 54 20 53 |.    UNT|IL NOT S|
|00003d50| 74 69 6c 6c 44 6f 77 6e | 28 29 3b 20 20 20 20 20 |tillDown|();     |
|00003d60| 0d 20 20 45 4e 44 20 7b | 50 61 67 65 53 63 72 6f |.  END {|PageScro|
|00003d70| 6c 6c 7d 3b 0d 0d 20 20 | 50 52 4f 43 45 44 55 52 |ll};..  |PROCEDUR|
|00003d80| 45 20 53 65 74 55 70 4d | 65 6e 75 73 3b 0d 20 20 |E SetUpM|enus;.  |
|00003d90| 28 2a 20 4f 6e 63 65 2d | 6f 6e 6c 79 20 69 6e 69 |(* Once-|only ini|
|00003da0| 74 69 61 6c 69 7a 61 74 | 69 6f 6e 20 66 6f 72 20 |tializat|ion for |
|00003db0| 6d 65 6e 75 73 20 2a 29 | 0d 20 20 20 20 56 41 52 |menus *)|.    VAR|
|00003dc0| 0d 20 20 20 20 20 20 69 | 3a 20 49 4e 54 45 47 45 |.      i|: INTEGE|
|00003dd0| 52 3b 0d 20 20 42 45 47 | 49 4e 0d 20 20 20 20 20 |R;.  BEG|IN.     |
|00003de0| 6d 79 4d 65 6e 75 73 5b | 31 5d 20 3a 3d 20 47 65 |myMenus[|1] := Ge|
|00003df0| 74 4d 65 6e 75 28 61 70 | 70 6c 65 4d 65 6e 75 29 |tMenu(ap|pleMenu)|
|00003e00| 3b 0d 20 20 20 20 20 41 | 64 64 52 65 73 4d 65 6e |;.     A|ddResMen|
|00003e10| 75 28 6d 79 4d 65 6e 75 | 73 5b 31 5d 2c 27 44 52 |u(myMenu|s[1],'DR|
|00003e20| 56 52 27 29 3b 20 28 2a | 20 64 65 73 6b 20 61 63 |VR'); (*| desk ac|
|00003e30| 63 65 73 73 6f 72 69 65 | 73 20 2a 29 0d 20 20 20 |cessorie|s *).   |
|00003e40| 20 20 6d 79 4d 65 6e 75 | 73 5b 32 5d 20 3a 3d 20 |  myMenu|s[2] := |
|00003e50| 47 65 74 4d 65 6e 75 28 | 66 69 6c 65 4d 65 6e 75 |GetMenu(|fileMenu|
|00003e60| 29 3b 0d 20 20 20 20 20 | 46 4f 52 20 69 20 3a 3d |);.     |FOR i :=|
|00003e70| 20 31 20 54 4f 20 6c 61 | 73 74 4d 65 6e 75 20 44 | 1 TO la|stMenu D|
|00003e80| 4f 0d 20 20 20 20 20 20 | 20 49 6e 73 65 72 74 4d |O.      | InsertM|
|00003e90| 65 6e 75 28 6d 79 4d 65 | 6e 75 73 5b 69 5d 2c 30 |enu(myMe|nus[i],0|
|00003ea0| 29 3b 0d 0d 20 20 20 20 | 20 44 72 61 77 4d 65 6e |);..    | DrawMen|
|00003eb0| 75 42 61 72 3b 0d 20 20 | 45 4e 44 20 7b 53 65 74 |uBar;.  |END {Set|
|00003ec0| 55 70 4d 65 6e 75 73 7d | 3b 20 28 2a 20 6f 66 20 |UpMenus}|; (* of |
|00003ed0| 53 65 74 55 70 4d 65 6e | 75 73 20 2a 29 0d 0d 0d |SetUpMen|us *)...|
|00003ee0| 20 20 50 52 4f 43 45 44 | 55 52 45 20 44 6f 43 6f |  PROCED|URE DoCo|
|00003ef0| 6d 6d 61 6e 64 28 74 52 | 65 73 75 6c 74 3a 20 4c |mmand(tR|esult: L|
|00003f00| 4f 4e 47 49 4e 54 29 3b | 0d 20 20 20 20 56 41 52 |ONGINT);|.    VAR|
|00003f10| 0d 20 20 20 20 20 20 6e | 61 6d 65 3a 20 53 74 72 |.      n|ame: Str|
|00003f20| 32 35 35 3b 0d 20 20 20 | 20 20 20 6d 52 65 73 75 |255;.   |   mResu|
|00003f30| 6c 74 20 3a 20 4c 4f 4e | 47 49 4e 54 3b 0d 20 20 |lt : LON|GINT;.  |
|00003f40| 42 45 47 49 4e 0d 20 20 | 20 20 6d 52 65 73 75 6c |BEGIN.  |  mResul|
|00003f50| 74 20 3a 3d 20 74 52 65 | 73 75 6c 74 3b 0d 20 20 |t := tRe|sult;.  |
|00003f60| 20 20 74 68 65 4d 65 6e | 75 20 3a 3d 20 6d 52 65 |  theMen|u := mRe|
|00003f70| 73 75 6c 74 20 44 49 56 | 20 36 35 35 33 36 3b 0d |sult DIV| 65536;.|
|00003f80| 20 20 20 20 74 68 65 49 | 74 65 6d 20 3a 3d 20 6d |    theI|tem := m|
|00003f90| 52 65 73 75 6c 74 20 4d | 4f 44 20 36 35 35 33 36 |Result M|OD 65536|
|00003fa0| 3b 0d 20 20 20 20 0d 20 | 20 20 20 43 41 53 45 20 |;.    . |   CASE |
|00003fb0| 74 68 65 4d 65 6e 75 20 | 4f 46 0d 0d 20 20 20 20 |theMenu |OF..    |
|00003fc0| 20 20 61 70 70 6c 65 4d | 65 6e 75 3a 0d 20 20 20 |  appleM|enu:.   |
|00003fd0| 20 20 20 20 20 20 20 20 | 20 20 20 42 45 47 49 4e |        |   BEGIN|
|00003fe0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003ff0| 20 20 47 65 74 49 74 65 | 6d 28 6d 79 4d 65 6e 75 |  GetIte|m(myMenu|
|00004000| 73 5b 31 5d 2c 74 68 65 | 49 74 65 6d 2c 40 6e 61 |s[1],the|Item,@na|
|00004010| 6d 65 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |me);.   |        |
|00004020| 20 20 20 20 20 20 72 65 | 66 4e 75 6d 20 3a 3d 20 |      re|fNum := |
|00004030| 4f 70 65 6e 44 65 73 6b | 41 63 63 28 40 6e 61 6d |OpenDesk|Acc(@nam|
|00004040| 65 29 3b 0d 09 09 09 20 | 20 45 4e 44 3b 0d 20 20 |e);.... | END;.  |
|00004050| 20 20 20 66 69 6c 65 4d | 65 6e 75 3a 0d 20 20 20 |   fileM|enu:.   |
|00004060| 20 20 20 20 20 64 6f 6e | 65 46 6c 61 67 20 3a 3d |     don|eFlag :=|
|00004070| 20 54 52 55 45 3b 20 28 | 2a 20 51 75 69 74 20 2a | TRUE; (|* Quit *|
|00004080| 29 0d 0d 20 20 20 20 45 | 4c 53 45 0d 20 20 20 20 |)..    E|LSE.    |
|00004090| 45 4e 44 3b 20 28 2a 20 | 6f 66 20 6d 65 6e 75 20 |END; (* |of menu |
|000040a0| 63 61 73 65 20 2a 29 0d | 0d 20 20 20 20 48 69 6c |case *).|.    Hil|
|000040b0| 69 74 65 4d 65 6e 75 28 | 30 29 3b 0d 0d 20 20 45 |iteMenu(|0);..  E|
|000040c0| 4e 44 20 7b 44 6f 43 6f | 6d 6d 61 6e 64 7d 3b 20 |ND {DoCo|mmand}; |
|000040d0| 28 2a 20 6f 66 20 44 6f | 43 6f 6d 6d 61 6e 64 20 |(* of Do|Command |
|000040e0| 2a 29 0d 0d 0d 42 45 47 | 49 4e 20 28 2a 20 6d 61 |*)...BEG|IN (* ma|
|000040f0| 69 6e 20 70 72 6f 67 72 | 61 6d 20 2a 29 0d 20 20 |in progr|am *).  |
|00004100| 74 68 65 50 6f 72 74 20 | 3a 3d 20 47 65 74 54 68 |thePort |:= GetTh|
|00004110| 65 50 6f 72 74 28 29 3b | 20 20 20 20 0d 20 20 47 |ePort();|    .  G|
|00004120| 65 74 47 72 61 79 28 67 | 72 61 79 29 3b 0d 20 20 |etGray(g|ray);.  |
|00004130| 47 65 74 44 6b 47 72 61 | 79 28 64 6b 47 72 61 79 |GetDkGra|y(dkGray|
|00004140| 29 3b 0d 20 20 46 6c 75 | 73 68 45 76 65 6e 74 73 |);.  Flu|shEvents|
|00004150| 28 45 76 65 72 79 45 76 | 65 6e 74 2c 5b 5d 29 3b |(EveryEv|ent,[]);|
|00004160| 20 0d 20 20 53 65 74 55 | 70 4d 65 6e 75 73 3b 0d | .  SetU|pMenus;.|
|00004170| 20 20 53 65 74 52 65 63 | 74 28 64 72 61 67 52 65 |  SetRec|t(dragRe|
|00004180| 63 74 2c 34 2c 32 34 2c | 35 30 38 2c 33 33 38 29 |ct,4,24,|508,338)|
|00004190| 3b 0d 20 20 53 65 74 52 | 65 63 74 28 67 72 6f 77 |;.  SetR|ect(grow|
|000041a0| 52 65 63 74 2c 31 30 30 | 2c 36 30 2c 35 31 32 2c |Rect,100|,60,512,|
|000041b0| 33 30 32 29 3b 0d 20 20 | 64 6f 6e 65 46 6c 61 67 |302);.  |doneFlag|
|000041c0| 20 3a 3d 20 46 41 4c 53 | 45 3b 0d 20 20 49 6e 69 | := FALS|E;.  Ini|
|000041d0| 74 43 75 72 73 6f 72 3b | 0d 20 20 49 6e 69 74 49 |tCursor;|.  InitI|
|000041e0| 63 6f 6e 73 3b 0d 20 0d | 20 20 74 68 65 57 69 6e |cons;. .|  theWin|
|000041f0| 64 6f 77 20 3a 3d 20 47 | 65 74 4e 65 77 57 69 6e |dow := G|etNewWin|
|00004200| 64 6f 77 28 32 35 36 2c | 28 40 77 52 65 63 6f 72 |dow(256,|(@wRecor|
|00004210| 64 29 2c 69 6e 46 72 6f | 6e 74 29 3b 0d 20 20 53 |d),inFro|nt);.  S|
|00004220| 65 74 50 6f 72 74 28 74 | 68 65 57 69 6e 64 6f 77 |etPort(t|heWindow|
|00004230| 29 3b 0d 20 20 0d 20 20 | 74 68 65 57 69 6e 64 6f |);.  .  |theWindo|
|00004240| 77 5e 2e 74 78 46 6f 6e | 74 20 3a 3d 20 32 3b 0d |w^.txFon|t := 2;.|
|00004250| 0d 20 20 52 65 73 69 7a | 65 50 52 65 63 74 3b 0d |.  Resiz|ePRect;.|
|00004260| 0d 20 20 76 53 63 72 6f | 6c 6c 20 3a 3d 20 47 65 |.  vScro|ll := Ge|
|00004270| 74 4e 65 77 43 6f 6e 74 | 72 6f 6c 28 32 35 36 2c |tNewCont|rol(256,|
|00004280| 74 68 65 57 69 6e 64 6f | 77 29 3b 0d 20 20 68 53 |theWindo|w);.  hS|
|00004290| 63 72 6f 6c 6c 20 3a 3d | 20 47 65 74 4e 65 77 43 |croll :=| GetNewC|
|000042a0| 6f 6e 74 72 6f 6c 28 32 | 35 37 2c 74 68 65 57 69 |ontrol(2|57,theWi|
|000042b0| 6e 64 6f 77 29 3b 0d 20 | 20 0d 20 20 74 68 65 4f |ndow);. | .  theO|
|000042c0| 72 69 67 69 6e 2e 68 20 | 3a 3d 20 30 3b 0d 20 20 |rigin.h |:= 0;.  |
|000042d0| 74 68 65 4f 72 69 67 69 | 6e 2e 76 20 3a 3d 20 30 |theOrigi|n.v := 0|
|000042e0| 3b 0d 0d 0d 20 20 52 45 | 50 45 41 54 0d 20 20 20 |;...  RE|PEAT.   |
|000042f0| 20 53 79 73 74 65 6d 54 | 61 73 6b 3b 0d 20 20 20 | SystemT|ask;.   |
|00004300| 20 74 65 6d 70 20 3a 3d | 20 47 65 74 4e 65 78 74 | temp :=| GetNext|
|00004310| 45 76 65 6e 74 28 65 76 | 65 72 79 45 76 65 6e 74 |Event(ev|eryEvent|
|00004320| 2c 6d 79 45 76 65 6e 74 | 29 3b 20 0d 20 20 20 20 |,myEvent|); .    |
|00004330| 43 41 53 45 20 6d 79 45 | 76 65 6e 74 2e 77 68 61 |CASE myE|vent.wha|
|00004340| 74 20 4f 46 0d 0d 20 20 | 20 20 20 20 6d 6f 75 73 |t OF..  |    mous|
|00004350| 65 44 6f 77 6e 3a 20 20 | 42 45 47 49 4e 0d 20 20 |eDown:  |BEGIN.  |
|00004360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004370| 20 20 63 6f 64 65 31 20 | 3a 3d 20 46 69 6e 64 57 |  code1 |:= FindW|
|00004380| 69 6e 64 6f 77 28 6d 79 | 45 76 65 6e 74 2e 77 68 |indow(my|Event.wh|
|00004390| 65 72 65 2c 77 68 69 63 | 68 57 69 6e 64 6f 77 29 |ere,whic|hWindow)|
|000043a0| 3b 0d 09 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;..     |        |
|000043b0| 20 20 43 41 53 45 20 63 | 6f 64 65 31 20 4f 46 0d |  CASE c|ode1 OF.|
|000043c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 09 |        |      ..|
|000043d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043e0| 20 69 6e 4d 65 6e 75 42 | 61 72 3a 20 44 6f 43 6f | inMenuB|ar: DoCo|
|000043f0| 6d 6d 61 6e 64 28 4d 65 | 6e 75 53 65 6c 65 63 74 |mmand(Me|nuSelect|
|00004400| 28 6d 79 45 76 65 6e 74 | 2e 77 68 65 72 65 29 29 |(myEvent|.where))|
|00004410| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00004420| 0d 09 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004430| 20 20 69 6e 53 79 73 57 | 69 6e 64 6f 77 3a 0d 09 |  inSysW|indow:..|
|00004440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004450| 20 20 20 53 79 73 74 65 | 6d 43 6c 69 63 6b 28 6d |   Syste|mClick(m|
|00004460| 79 45 76 65 6e 74 2c 77 | 68 69 63 68 57 69 6e 64 |yEvent,w|hichWind|
|00004470| 6f 77 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ow);.   |        |
|00004480| 20 20 20 0d 09 20 20 20 | 20 20 20 20 20 20 20 20 |   ..   |        |
|00004490| 20 20 20 20 20 69 6e 44 | 72 61 67 3a 0d 09 20 20 |     inD|rag:..  |
|000044a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000044b0| 20 44 72 61 67 57 69 6e | 64 6f 77 28 77 68 69 63 | DragWin|dow(whic|
|000044c0| 68 57 69 6e 64 6f 77 2c | 6d 79 45 76 65 6e 74 2e |hWindow,|myEvent.|
|000044d0| 77 68 65 72 65 2c 64 72 | 61 67 52 65 63 74 29 3b |where,dr|agRect);|
|000044e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d |.       |       .|
|000044f0| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004500| 20 69 6e 47 6f 41 77 61 | 79 3a 0d 09 20 20 20 20 | inGoAwa|y:..    |
|00004510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004520| 49 46 20 54 72 61 63 6b | 47 6f 41 77 61 79 28 77 |IF Track|GoAway(w|
|00004530| 68 69 63 68 57 69 6e 64 | 6f 77 2c 6d 79 45 76 65 |hichWind|ow,myEve|
|00004540| 6e 74 2e 77 68 65 72 65 | 29 0d 20 20 20 20 20 20 |nt.where|).      |
|00004550| 20 09 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .      |        |
|00004560| 20 20 20 20 20 20 54 48 | 45 4e 0d 09 09 20 20 20 |      TH|EN...   |
|00004570| 20 20 20 20 20 20 20 20 | 20 20 20 64 6f 6e 65 46 |        |   doneF|
|00004580| 6c 61 67 20 3a 3d 20 54 | 52 55 45 3b 0d 20 20 20 |lag := T|RUE;.   |
|00004590| 20 20 20 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |        |   .    |
|000045a0| 20 20 20 20 20 20 20 20 | 20 20 0d 09 20 20 20 20 |        |  ..    |
|000045b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 69 6e 47 72 |        |    inGr|
|000045c0| 6f 77 3a 0d 09 20 20 20 | 20 20 20 20 20 20 20 20 |ow:..   |        |
|000045d0| 20 20 20 20 20 20 20 20 | 20 49 46 20 77 68 69 63 |        | IF whic|
|000045e0| 68 57 69 6e 64 6f 77 20 | 3d 20 46 72 6f 6e 74 57 |hWindow |= FrontW|
|000045f0| 69 6e 64 6f 77 28 29 20 | 20 20 0d 20 20 20 20 20 |indow() |  .     |
|00004600| 20 09 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .      |        |
|00004610| 20 20 20 20 20 20 54 48 | 45 4e 0d 09 09 20 20 20 |      TH|EN...   |
|00004620| 20 20 20 20 20 20 20 20 | 20 20 20 47 72 6f 77 57 |        |   GrowW|
|00004630| 6e 64 28 77 68 69 63 68 | 57 69 6e 64 6f 77 29 0d |nd(which|Window).|
|00004640| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004650| 20 20 20 20 20 45 4c 53 | 45 0d 09 09 20 20 20 20 |     ELS|E...    |
|00004660| 20 20 20 20 20 20 20 20 | 20 20 53 65 6c 65 63 74 |        |  Select|
|00004670| 57 69 6e 64 6f 77 28 77 | 68 69 63 68 57 69 6e 64 |Window(w|hichWind|
|00004680| 6f 77 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ow);.   |        |
|00004690| 20 20 20 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |   .    |        |
|000046a0| 20 20 0d 09 20 20 20 20 | 20 20 20 20 20 20 20 20 |  ..    |        |
|000046b0| 20 20 20 20 69 6e 43 6f | 6e 74 65 6e 74 3a 0d 09 |    inCo|ntent:..|
|000046c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046d0| 20 20 20 20 49 46 20 77 | 68 69 63 68 57 69 6e 64 |    IF w|hichWind|
|000046e0| 6f 77 20 3c 3e 20 46 72 | 6f 6e 74 57 69 6e 64 6f |ow <> Fr|ontWindo|
|000046f0| 77 28 29 20 20 20 0d 09 | 20 20 20 20 20 20 20 20 |w()   ..|        |
|00004700| 20 20 20 20 20 20 20 20 | 20 20 20 20 54 48 45 4e |        |    THEN|
|00004710| 0d 09 09 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|00004720| 20 20 20 20 20 20 53 65 | 6c 65 63 74 57 69 6e 64 |      Se|lectWind|
|00004730| 6f 77 28 77 68 69 63 68 | 57 69 6e 64 6f 77 29 0d |ow(which|Window).|
|00004740| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004750| 20 20 20 20 20 45 4c 53 | 45 0d 09 20 20 20 20 20 |     ELS|E..     |
|00004760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004770| 20 20 42 45 47 49 4e 0d | 09 09 20 20 20 20 20 20 |  BEGIN.|..      |
|00004780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004790| 47 6c 6f 62 61 6c 54 6f | 4c 6f 63 61 6c 28 6d 79 |GlobalTo|Local(my|
|000047a0| 45 76 65 6e 74 2e 77 68 | 65 72 65 29 3b 0d 09 09 |Event.wh|ere);...|
|000047b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047c0| 20 20 20 20 20 20 49 46 | 20 4e 4f 54 20 50 74 49 |      IF| NOT PtI|
|000047d0| 6e 52 65 63 74 28 6d 79 | 45 76 65 6e 74 2e 77 68 |nRect(my|Event.wh|
|000047e0| 65 72 65 2c 70 52 65 63 | 74 29 0d 09 09 20 20 20 |ere,pRec|t)...   |
|000047f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004800| 20 20 20 54 48 45 4e 0d | 09 09 20 20 20 20 20 20 |   THEN.|..      |
|00004810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004820| 20 20 20 42 45 47 49 4e | 0d 09 09 20 20 20 20 20 |   BEGIN|...     |
|00004830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004840| 20 20 20 20 20 20 20 4d | 79 43 6f 6e 74 72 6f 6c |       M|yControl|
|00004850| 20 3a 3d 20 46 69 6e 64 | 43 6f 6e 74 72 6f 6c 28 | := Find|Control(|
|00004860| 6d 79 45 76 65 6e 74 2e | 77 68 65 72 65 2c 77 68 |myEvent.|where,wh|
|00004870| 69 63 68 57 69 6e 64 6f | 77 2c 0d 09 09 09 09 09 |ichWindo|w,......|
|00004880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 68 69 |        |     whi|
|000048a0| 63 68 43 6f 6e 74 72 6f | 6c 29 3b 0d 09 09 20 20 |chContro|l);...  |
|000048b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048c0| 20 20 20 20 20 20 20 20 | 20 20 43 41 53 45 20 4d |        |  CASE M|
|000048d0| 79 43 6f 6e 74 72 6f 6c | 20 4f 46 0d 09 09 20 20 |yControl| OF...  |
|000048e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 69 6e 55 |        |     inU|
|00004900| 70 42 75 74 74 6f 6e 3a | 20 20 42 45 47 49 4e 0d |pButton:|  BEGIN.|
|00004910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004940| 20 20 20 20 20 20 20 48 | 69 6c 69 74 65 43 6f 6e |       H|iliteCon|
|00004950| 74 72 6f 6c 28 77 68 69 | 63 68 43 6f 6e 74 72 6f |trol(whi|chContro|
|00004960| 6c 2c 4d 79 43 6f 6e 74 | 72 6f 6c 29 3b 0d 09 09 |l,MyCont|rol);...|
|00004970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 50 |        |       P|
|000049a0| 61 67 65 53 63 72 6f 6c | 6c 28 4d 79 43 6f 6e 74 |ageScrol|l(MyCont|
|000049b0| 72 6f 6c 2c 2d 32 29 3b | 0d 20 20 20 20 20 20 20 |rol,-2);|.       |
|000049c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049f0| 48 69 6c 69 74 65 43 6f | 6e 74 72 6f 6c 28 77 68 |HiliteCo|ntrol(wh|
|00004a00| 69 63 68 43 6f 6e 74 72 | 6f 6c 2c 30 29 3b 0d 20 |ichContr|ol,0);. |
|00004a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a40| 20 20 20 45 4e 44 3b 0d | 09 09 20 20 20 20 20 20 |   END;.|..      |
|00004a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a60| 20 20 20 20 20 20 20 20 | 69 6e 44 6f 77 6e 42 75 |        |inDownBu|
|00004a70| 74 74 6f 6e 3a 20 20 20 | 42 45 47 49 4e 0d 20 20 |tton:   |BEGIN.  |
|00004a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ab0| 20 20 20 20 20 20 20 48 | 69 6c 69 74 65 43 6f 6e |       H|iliteCon|
|00004ac0| 74 72 6f 6c 28 77 68 69 | 63 68 43 6f 6e 74 72 6f |trol(whi|chContro|
|00004ad0| 6c 2c 4d 79 43 6f 6e 74 | 72 6f 6c 29 3b 0d 09 09 |l,MyCont|rol);...|
|00004ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b10| 20 50 61 67 65 53 63 72 | 6f 6c 6c 28 4d 79 43 6f | PageScr|oll(MyCo|
|00004b20| 6e 74 72 6f 6c 2c 32 29 | 3b 0d 20 20 20 20 20 20 |ntrol,2)|;.      |
|00004b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004b60| 20 20 20 48 69 6c 69 74 | 65 43 6f 6e 74 72 6f 6c |   Hilit|eControl|
|00004b70| 28 77 68 69 63 68 43 6f | 6e 74 72 6f 6c 2c 30 29 |(whichCo|ntrol,0)|
|00004b80| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00004b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004bb0| 20 20 20 20 20 20 20 20 | 45 4e 44 3b 0d 20 20 20 |        |END;.   |
|00004bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004be0| 20 20 20 69 6e 50 61 67 | 65 55 70 3a 20 20 20 20 |   inPag|eUp:    |
|00004bf0| 42 45 47 49 4e 20 20 20 | 0d 20 20 20 20 20 20 20 |BEGIN   |.       |
|00004c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 09 |        |       .|
|00004c20| 09 09 09 20 20 50 61 67 | 65 53 63 72 6f 6c 6c 28 |...  Pag|eScroll(|
|00004c30| 4d 79 43 6f 6e 74 72 6f | 6c 2c 2d 31 30 29 3b 0d |MyContro|l,-10);.|
|00004c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c60| 20 20 20 20 20 20 09 09 | 09 09 20 20 48 41 4c 54 |      ..|..  HALT|
|00004c70| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00004c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004c90| 20 20 20 20 20 20 20 20 | 09 09 09 45 4e 44 3b 0d |        |...END;.|
|00004ca0| 09 09 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00004cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004cc0| 69 6e 50 61 67 65 44 6f | 77 6e 3a 20 20 20 50 61 |inPageDo|wn:   Pa|
|00004cd0| 67 65 53 63 72 6f 6c 6c | 28 4d 79 43 6f 6e 74 72 |geScroll|(MyContr|
|00004ce0| 6f 6c 2c 31 30 29 3b 0d | 09 09 20 20 20 20 20 20 |ol,10);.|..      |
|00004cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004d00| 20 20 20 20 20 20 20 20 | 69 6e 54 68 75 6d 62 3a |        |inThumb:|
|00004d10| 20 20 20 42 45 47 49 4e | 0d 09 09 09 20 20 20 20 |   BEGIN|....    |
|00004d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004d40| 20 20 20 20 20 74 20 3a | 3d 20 54 72 61 63 6b 43 |     t :|= TrackC|
|00004d50| 6f 6e 74 72 6f 6c 28 77 | 68 69 63 68 43 6f 6e 74 |ontrol(w|hichCont|
|00004d60| 72 6f 6c 2c 6d 79 45 76 | 65 6e 74 2e 77 68 65 72 |rol,myEv|ent.wher|
|00004d70| 65 2c 20 4e 49 4c 29 3b | 0d 09 09 09 20 20 20 20 |e, NIL);|....    |
|00004d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004da0| 20 20 20 20 20 53 63 72 | 6f 6c 6c 42 69 74 73 3b |     Scr|ollBits;|
|00004db0| 0d 09 09 09 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00004dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004dd0| 20 20 20 20 20 20 20 20 | 20 45 4e 44 3b 0d 09 20 |        | END;.. |
|00004de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e00| 20 45 4c 53 45 0d 20 20 | 20 20 20 20 20 20 20 20 | ELSE.  |        |
|00004e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e20| 0d 09 09 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|00004e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e40| 20 45 4e 44 3b 20 28 2a | 20 43 41 53 45 20 2a 29 | END; (*| CASE *)|
|00004e50| 0d 09 09 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|00004e60| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 3b 20 |        |   END; |
|00004e70| 28 2a 20 50 54 49 6e 52 | 65 63 74 20 2a 29 0d 09 |(* PTInR|ect *)..|
|00004e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e90| 20 20 20 20 20 20 20 45 | 4e 44 20 28 2a 66 72 6f |       E|ND (*fro|
|00004ea0| 6e 74 2a 29 0d 09 20 20 | 20 20 20 20 20 20 20 20 |nt*)..  |        |
|00004eb0| 20 20 20 20 20 45 4c 53 | 45 0d 09 20 20 20 20 20 |     ELS|E..     |
|00004ec0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 20 28 |        |  END; (|
|00004ed0| 2a 20 6f 66 20 63 6f 64 | 65 20 63 61 73 65 20 2a |* of cod|e case *|
|00004ee0| 29 0d 09 09 09 09 45 4e | 44 3b 0d 20 20 20 20 20 |).....EN|D;.     |
|00004ef0| 20 61 63 74 69 76 61 74 | 65 45 76 74 3a 20 20 42 | activat|eEvt:  B|
|00004f00| 45 47 49 4e 0d 09 20 20 | 20 20 20 20 20 20 20 20 |EGIN..  |        |
|00004f10| 20 20 20 20 20 20 20 20 | 53 65 74 50 6f 72 74 20 |        |SetPort |
|00004f20| 28 74 68 65 57 69 6e 64 | 6f 77 29 3b 0d 09 20 20 |(theWind|ow);..  |
|00004f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004f40| 44 72 61 77 47 72 6f 77 | 49 63 6f 6e 28 74 68 65 |DrawGrow|Icon(the|
|00004f50| 57 69 6e 64 6f 77 29 3b | 0d 09 20 20 20 20 20 20 |Window);|..      |
|00004f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 20 4f |        |    IF O|
|00004f70| 44 44 28 49 4e 54 45 47 | 45 52 28 6d 79 45 76 65 |DD(INTEG|ER(myEve|
|00004f80| 6e 74 2e 6d 6f 64 69 66 | 69 65 72 73 29 29 0d 09 |nt.modif|iers))..|
|00004f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004fa0| 20 20 54 48 45 4e 20 28 | 2a 20 77 69 6e 64 6f 77 |  THEN (|* window|
|00004fb0| 20 69 73 20 62 65 63 6f | 6d 69 6e 67 20 61 63 74 | is beco|ming act|
|00004fc0| 69 76 65 20 2a 29 0d 09 | 20 20 20 20 20 20 20 20 |ive *)..|        |
|00004fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 45 47 49 |        |    BEGI|
|00004fe0| 4e 0d 09 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N..     |        |
|00004ff0| 20 20 20 20 20 20 20 20 | 20 20 53 68 6f 77 43 6f |        |  ShowCo|
|00005000| 6e 74 72 6f 6c 28 76 53 | 63 72 6f 6c 6c 29 3b 0d |ntrol(vS|croll);.|
|00005010| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005020| 20 20 20 20 20 20 20 20 | 53 68 6f 77 43 6f 6e 74 |        |ShowCont|
|00005030| 72 6f 6c 28 68 53 63 72 | 6f 6c 6c 29 3b 0d 09 20 |rol(hScr|oll);.. |
|00005040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005050| 20 20 20 45 4e 44 0d 09 | 20 20 20 20 20 20 20 20 |   END..|        |
|00005060| 20 20 20 20 20 20 20 20 | 20 20 45 4c 53 45 20 28 |        |  ELSE (|
|00005070| 2a 20 64 65 61 63 74 69 | 76 61 74 65 20 2a 29 0d |* deacti|vate *).|
|00005080| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005090| 20 20 20 20 20 42 45 47 | 49 4e 0d 09 20 20 20 20 |     BEG|IN..    |
|000050a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050b0| 20 20 20 48 69 64 65 43 | 6f 6e 74 72 6f 6c 28 76 |   HideC|ontrol(v|
|000050c0| 53 63 72 6f 6c 6c 29 3b | 0d 09 20 20 20 20 20 20 |Scroll);|..      |
|000050d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050e0| 20 48 69 64 65 43 6f 6e | 74 72 6f 6c 28 68 53 63 | HideCon|trol(hSc|
|000050f0| 72 6f 6c 6c 29 3b 0d 09 | 20 20 20 20 20 20 20 20 |roll);..|        |
|00005100| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 3b |        |    END;|
|00005110| 0d 09 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00005120| 20 45 4e 44 3b 20 0d 0d | 20 20 20 20 20 20 75 70 | END; ..|      up|
|00005130| 64 61 74 65 45 76 74 3a | 20 20 42 45 47 49 4e 0d |dateEvt:|  BEGIN.|
|00005140| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005150| 20 20 42 65 67 69 6e 55 | 70 64 61 74 65 28 74 68 |  BeginU|pdate(th|
|00005160| 65 57 69 6e 64 6f 77 29 | 3b 0d 09 20 20 20 20 20 |eWindow)|;..     |
|00005170| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 72 61 73 |        |    Eras|
|00005180| 65 52 65 63 74 20 28 74 | 68 65 57 69 6e 64 6f 77 |eRect (t|heWindow|
|00005190| 5e 2e 70 6f 72 74 52 65 | 63 74 29 3b 0d 09 20 20 |^.portRe|ct);..  |
|000051a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 44 |        |       D|
|000051b0| 72 61 77 57 69 6e 64 6f | 77 28 74 68 65 57 69 6e |rawWindo|w(theWin|
|000051c0| 64 6f 77 29 3b 0d 09 20 | 20 20 20 20 20 20 20 20 |dow);.. |        |
|000051d0| 20 20 20 20 20 20 20 20 | 45 6e 64 55 70 64 61 74 |        |EndUpdat|
|000051e0| 65 28 74 68 65 57 69 6e | 64 6f 77 29 3b 0d 09 20 |e(theWin|dow);.. |
|000051f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |        |      EN|
|00005200| 44 3b 0d 20 20 20 20 45 | 4c 53 45 0d 20 20 20 20 |D;.    E|LSE.    |
|00005210| 45 4e 44 20 28 2a 20 6f | 66 20 65 76 65 6e 74 20 |END (* o|f event |
|00005220| 63 61 73 65 20 2a 29 0d | 0d 20 20 55 4e 54 49 4c |case *).|.  UNTIL|
|00005230| 20 64 6f 6e 65 46 6c 61 | 67 3b 0d 20 20 44 69 73 | doneFla|g;.  Dis|
|00005240| 70 6f 73 65 57 69 6e 64 | 6f 77 28 74 68 65 57 69 |poseWind|ow(theWi|
|00005250| 6e 64 6f 77 29 3b 0d 20 | 20 46 6c 75 73 68 45 76 |ndow);. | FlushEv|
|00005260| 65 6e 74 73 28 65 76 65 | 72 79 45 76 65 6e 74 2c |ents(eve|ryEvent,|
|00005270| 5b 5d 29 3b 20 0d 0d 45 | 4e 44 2e 0d 00 00 00 00 |[]); ..E|ND......|
|00005280| 00 00 01 00 00 00 02 3e | 00 00 01 3e 00 00 00 64 |.......>|...>...d|
|00005290| 26 6e 00 08 27 5f ff ec | 26 6e 00 08 48 6b ff e8 |&n..'_..|&n..Hk..|
|000052a0| 3f 3c 00 08 26 6c 00 48 | 26 6b 00 04 4e 93 24 6e |?<..&l.H|&k..N.$n|
|000052b0| 0a 51 44 53 61 6d 70 6c | 65 2e 70 00 02 00 00 00 |.QDSampl|e.p.....|
|000052c0| 54 45 58 54 4d 57 50 53 | 00 00 00 00 00 00 00 00 |TEXTMWPS|........|
|000052d0| 00 00 54 45 58 54 4d 57 | 50 53 00 00 00 00 00 00 |..TEXTMW|PS......|
|000052e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 a7 43 eb 56 00 00 | 00 00 00 00 02 a2 47 eb |...C.V..|......G.|
|00005300| ff f8 45 d7 24 db 26 6c | 00 58 26 6b 00 1c 4e 93 |..E.$.&l|.X&k..N.|
|00005310| 4a 1f 66 00 00 1e 48 6c | ff 4e 59 8f 26 6e 00 08 |J.f...Hl|.NY.&n..|
|00005320| 47 eb ff f8 45 d7 24 db | 26 6c 00 58 26 6b 00 08 |G...E.$.|&l.X&k..|
|00005330| 4e 93 4e 5e 20 5f 58 8f | 4e d0 26 6c 00 30 0c 2b |N.N^ _X.|N.&l.0.+|
|00005340| 00 26 ff e2 66 00 00 4a | 42 2e ff e2 42 67 26 6c |.&..f..J|B...Bg&l|
|00005350| 00 30 26 6b 00 10 4e 93 | 3d 5f ff fc 1d 7c 00 01 |.0&k..N.|=_...|..|
|00005360| ff fe 42 67 3f 2e ff fc | 3f 2c fe 3e 26 6c 00 30 |..Bg?...|?,.>&l.0|
|00005370| 26 6b 00 18 4e 93 4a 5f | 67 00 00 08 48 56 61 00 |&k..N.J_|g...HVa.|
|00005380| 00 00 00 08 00 04 00 09 | 01 00 00 04 00 00 01 2e |........|........|
|00005390| 00 00 00 00 7f d0 03 28 | 20 00 17 35 00 00 00 00 |.......(| ..5....|
|000053a0| 7f cf 03 30 20 00 17 9d | 00 00 00 00 7f de 03 3b |...0 ...|.......;|
|000053b0| 20 00 18 1b 00 00 00 00 | 7f e2 03 4f 20 00 18 83 | .......|...O ...|
|000053c0| 00 00 00 00 7f d9 ff ff | 00 01 4f 1d 00 00 00 00 |........|..O.....|
|000053d0| 7f fe ff ff 00 01 50 1d | 00 00 00 00 7f fd ff ff |......P.|........|
|000053e0| 00 01 50 bf 00 00 00 00 | 7f fc ff ff 00 01 51 3f |..P.....|......Q?|
|000053f0| 00 00 00 00 7f ee 03 62 | 20 00 1a 83 00 00 00 00 |.......b| .......|
|00005400| 7f ed 03 68 20 00 1a 9c | 00 00 00 00 7f ec 03 6d |...h ...|.......m|
|00005410| 20 00 1a b5 00 00 00 00 | 7f eb 03 72 20 00 1a ce | .......|...r ...|
|00005420| 00 1b 2f 0c 7f ea 03 7a | 20 00 1a e7 00 00 00 00 |../....z| .......|
|00005430| 7f e9 03 82 20 00 1b 00 | 00 00 00 00 7f e8 03 87 |.... ...|........|
|00005440| 20 00 1b 19 00 00 00 00 | 7f e7 03 8c 20 00 1b 36 | .......|.... ..6|
|00005450| 00 00 00 00 7f e6 03 93 | 20 00 1b 55 00 00 00 00 |........| ..U....|
|00005460| 7f e5 03 9e 20 00 1b 78 | 00 00 00 00 7f e2 03 ab |.... ..x|........|
|00005470| 20 00 1b 97 00 00 00 00 | 7f e1 03 be 20 00 1b b0 | .......|.... ...|
|00005480| 00 00 00 00 7f db 03 d0 | 20 00 1b c9 00 00 00 00 |........| .......|
|00005490| 7f da 03 d9 20 00 1b e2 | 00 00 00 00 7f d6 03 e3 |.... ...|........|
|000054a0| 20 00 1c 0e 00 00 00 00 | 7f d4 03 eb 20 00 1c 27 | .......|.... ..'|
|000054b0| 00 00 00 00 7f e4 03 f0 | 20 00 1c 40 00 00 00 00 |........| ..@....|
|000054c0| 01 00 00 00 02 3e 00 00 | 01 3e 00 00 00 64 00 1b |.....>..|.>...d..|
|000054d0| 27 58 04 0c 00 00 00 1c | 00 46 00 01 4d 46 4e 54 |'X......|.F..MFNT|
|000054e0| 00 00 00 12 43 45 52 52 | 00 00 00 1e 00 01 00 00 |....CERR|........|
|000054f0| 00 00 00 00 00 00 00 00 | 00 01 00 0f 00 00 00 0c |........|........|
|00005500| 00 25 da c0 0e 46 6f 6e | 74 20 72 65 73 6f 75 72 |.%...Fon|t resour|
|00005510| 63 65 73 0e 43 6f 6d 70 | 69 6c 65 20 45 72 72 6f |ces.Comp|ile Erro|
|00005520| 72 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |rs......|........|
|00005530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+