home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1989-01-11 | 47.3 KB | [TEXT/MPS ] |
open in: 
MacOS 8.1
|
Win98
|
DOS
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
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, Wed Jan 11 10:56:00 1989, modified Wed Jan 11 10:56:00 1989, creator 'MPS ', type ASCII, 47244 bytes "Globe.p" , at 0xb90c 886 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 | [MPS ] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 47 6c 6f 62 65 2e | 70 00 00 00 00 00 00 00 |..Globe.|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 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 b8 8c 00 | 00 03 76 9f f1 29 90 9f |........|..v..)..|
|00000060| f1 29 90 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 ad 69 00 00 |........|.....i..|
|00000080| 28 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |(*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2b 0d 20 7c |--------|----+. ||
|000000d0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000000e0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000000f0| 09 09 09 09 09 7c 0d 20 | 7c 09 09 53 70 69 6e 6e |.....|. ||..Spinn|
|00000100| 69 6e 67 20 47 6c 6f 62 | 65 20 47 72 61 70 68 69 |ing Glob|e Graphi|
|00000110| 63 73 20 44 65 6d 6f 09 | 09 09 09 09 09 09 20 09 |cs Demo.|...... .|
|00000120| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7c 0d 20 |........|.....|. |
|00000130| 7c 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 ||.......|........|
|00000140| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000150| 09 09 09 09 09 09 7c 0d | 20 7c 09 09 47 6c 6f 62 |......|.| |..Glob|
|00000160| 65 46 72 61 6d 65 73 20 | 28 62 69 74 6d 61 70 73 |eFrames |(bitmaps|
|00000170| 29 20 66 72 6f 6d 20 61 | 6e 20 75 6e 73 75 73 70 |) from a|n unsusp|
|00000180| 65 63 74 69 6e 67 20 53 | 75 6e 20 33 09 09 09 09 |ecting S|un 3....|
|00000190| 09 09 09 09 09 09 09 7c | 0d 20 7c 09 09 09 09 09 |.......||. |.....|
|000001a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000001b0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000001c0| 7c 0d 20 7c 09 09 43 6f | 70 79 72 69 67 68 74 20 ||. |..Co|pyright |
|000001d0| 28 43 29 20 31 39 38 37 | 2c 20 31 39 38 38 20 50 |(C) 1987|, 1988 P|
|000001e0| 61 75 6c 20 4d 65 72 63 | 65 72 09 09 09 09 09 09 |aul Merc|er......|
|000001f0| 09 09 09 09 09 09 09 09 | 09 09 09 7c 0d 20 7c 09 |........|...|. |.|
|00000200| 09 41 6c 6c 20 72 69 67 | 68 74 73 20 72 65 73 65 |.All rig|hts rese|
|00000210| 72 76 65 64 09 09 09 09 | 09 09 09 09 09 09 09 09 |rved....|........|
|00000220| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7c 0d |........|......|.|
|00000230| 20 7c 09 09 4e 6f 6e 2d | 63 6f 6d 6d 65 72 63 69 | |..Non-|commerci|
|00000240| 61 6c 20 64 69 73 74 72 | 69 62 75 74 69 6f 6e 20 |al distr|ibution |
|00000250| 6f 6e 6c 79 09 09 09 09 | 09 09 09 09 09 09 09 09 |only....|........|
|00000260| 09 09 09 09 09 09 09 7c | 0d 20 7c 09 09 09 09 09 |.......||. |.....|
|00000270| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000280| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000290| 7c 0d 20 7c 09 09 43 72 | 65 61 74 65 64 3a 09 70 ||. |..Cr|eated:.p|
|000002a0| 6d 09 30 35 2f 32 34 2f | 38 37 09 09 09 09 6e 65 |m.05/24/|87....ne|
|000002b0| 77 20 74 6f 64 61 79 09 | 09 09 09 09 09 09 09 09 |w today.|........|
|000002c0| 09 09 09 09 09 09 09 7c | 0d 20 7c 09 09 4d 6f 64 |.......||. |..Mod|
|000002d0| 69 66 69 65 64 3a 20 70 | 6d 09 30 36 2f 30 33 2f |ified: p|m.06/03/|
|000002e0| 38 37 09 76 31 2e 30 09 | 72 65 6c 65 61 73 65 09 |87.v1.0.|release.|
|000002f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000300| 7c 0d 20 7c 09 09 09 09 | 09 09 09 70 6d 09 30 36 ||. |....|...pm.06|
|00000310| 2f 31 39 2f 38 37 09 76 | 31 2e 31 09 66 69 78 65 |/19/87.v|1.1.fixe|
|00000320| 64 20 73 68 61 64 69 6e | 67 20 62 75 67 20 69 6e |d shadin|g bug in|
|00000330| 20 6d 6f 6e 6f 20 70 69 | 78 6d 61 70 73 09 09 09 | mono pi|xmaps...|
|00000340| 09 7c 0d 20 7c 09 09 09 | 09 09 09 09 09 09 09 09 |.|. |...|........|
|00000350| 09 09 09 09 09 09 20 75 | 73 65 20 70 69 78 6d 61 |...... u|se pixma|
|00000360| 70 73 20 6f 6e 6c 79 20 | 69 66 20 64 65 70 74 68 |ps only |if depth|
|00000370| 20 3e 20 31 09 09 09 09 | 09 7c 0d 20 7c 09 09 09 | > 1....|.|. |...|
|00000380| 09 09 09 09 70 6d 09 30 | 36 2f 33 30 2f 38 37 09 |....pm.0|6/30/87.|
|00000390| 76 31 2e 32 09 77 6f 72 | 6b 73 20 61 72 6f 75 6e |v1.2.wor|ks aroun|
|000003a0| 64 20 4a 75 67 67 6c 65 | 72 20 62 32 20 62 75 67 |d Juggle|r b2 bug|
|000003b0| 20 77 69 74 68 09 09 09 | 09 7c 0d 20 7c 09 09 09 | with...|.|. |...|
|000003c0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 20 09 20 |........|..... . |
|000003d0| 76 69 64 65 6f 20 73 6c | 6f 74 20 56 42 4c 20 74 |video sl|ot VBL t|
|000003e0| 61 73 6b 20 73 77 69 74 | 63 68 69 6e 67 09 09 09 |ask swit|ching...|
|000003f0| 09 09 7c 0d 20 7c 09 09 | 09 09 09 09 09 70 6d 09 |..|. |..|.....pm.|
|00000400| 30 31 2f 32 38 2f 38 38 | 20 20 76 31 2e 33 09 72 |01/28/88| v1.3.r|
|00000410| 65 76 76 65 64 20 66 6f | 72 20 4d 50 57 20 33 2e |evved fo|r MPW 3.|
|00000420| 30 44 33 2c 20 6d 69 73 | 63 20 63 68 61 6e 67 65 |0D3, mis|c change|
|00000430| 73 09 09 09 7c 0d 20 7c | 09 09 09 09 09 09 09 70 |s...|. ||.......p|
|00000440| 6d 09 30 33 2f 30 36 2f | 38 38 20 20 76 31 2e 34 |m.03/06/|88 v1.4|
|00000450| 09 61 64 64 65 64 20 73 | 75 70 70 6f 72 74 20 66 |.added s|upport f|
|00000460| 6f 72 20 6c 73 72 27 73 | 20 72 6f 75 6e 64 20 57 |or lsr's| round W|
|00000470| 44 45 46 2c 09 09 09 7c | 0d 20 7c 09 09 09 09 09 |DEF,...||. |.....|
|00000480| 09 09 09 09 09 09 09 09 | 09 09 09 20 09 20 72 6f |........|... . ro|
|00000490| 6c 6c 65 64 20 27 47 6c | 6f 62 65 46 72 61 6d 65 |lled 'Gl|obeFrame|
|000004a0| 73 36 34 27 20 66 69 6c | 65 20 69 6e 74 6f 20 61 |s64' fil|e into a|
|000004b0| 70 70 2c 09 7c 0d 20 7c | 09 09 09 09 09 09 09 09 |pp,.|. ||........|
|000004c0| 09 09 09 09 09 09 09 09 | 09 20 6e 6f 77 20 62 6f |........|. now bo|
|000004d0| 6f 74 73 20 69 6e 20 62 | 61 63 6b 67 72 6f 75 6e |ots in b|ackgroun|
|000004e0| 64 2c 20 66 69 78 65 64 | 20 61 35 09 09 09 7c 0d |d, fixed| a5...|.|
|000004f0| 20 7c 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 | |......|........|
|00000500| 09 09 09 20 62 75 67 20 | 75 6e 64 65 72 20 4a 75 |... bug |under Ju|
|00000510| 67 67 6c 65 72 2c 20 61 | 6c 6c 20 75 73 65 72 20 |ggler, a|ll user |
|00000520| 73 65 74 74 69 6e 67 73 | 09 09 7c 0d 20 7c 09 09 |settings|..|. |..|
|00000530| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 20 |........|....... |
|00000540| 61 72 65 20 6e 6f 77 20 | 73 61 76 65 64 20 61 6c |are now |saved al|
|00000550| 6f 6e 67 20 77 69 74 68 | 20 77 69 6e 64 6f 77 09 |ong with| window.|
|00000560| 09 09 09 7c 0d 20 7c 09 | 09 09 09 09 09 09 09 09 |...|. |.|........|
|00000570| 09 09 09 09 09 09 09 09 | 20 70 6f 73 69 74 69 6f |........| positio|
|00000580| 6e 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |n.......|........|
|00000590| 09 7c 0d 20 7c 09 09 09 | 09 09 09 09 70 6d 09 30 |.|. |...|....pm.0|
|000005a0| 36 2f 31 38 2f 38 38 09 | 76 31 2e 34 31 09 6e 6f |6/18/88.|v1.41.no|
|000005b0| 77 20 77 69 74 68 20 27 | 69 6d 70 72 6f 76 65 64 |w with '|improved|
|000005c0| 27 20 73 6c 6f 74 20 56 | 42 4c 73 27 09 09 09 09 |' slot V|BLs'....|
|000005d0| 09 7c 0d 20 7c 09 09 09 | 09 09 09 09 70 6d 09 31 |.|. |...|....pm.1|
|000005e0| 32 2f 32 36 2f 38 38 09 | 76 31 2e 35 09 61 64 64 |2/26/88.|v1.5.add|
|000005f0| 65 64 20 50 49 43 54 20 | 72 65 73 6f 75 72 63 65 |ed PICT |resource|
|00000600| 73 2c 20 69 6d 61 67 69 | 6e 67 20 74 6f 20 74 61 |s, imagi|ng to ta|
|00000610| 72 67 65 74 09 7c 0d 20 | 7c 09 09 09 09 09 09 09 |rget.|. ||.......|
|00000620| 09 09 09 09 09 09 09 09 | 09 09 20 77 69 6e 64 6f |........|.. windo|
|00000630| 77 20 64 65 76 69 63 65 | 3b 20 74 77 65 61 6b 65 |w device|; tweake|
|00000640| 64 20 61 6c 69 67 6e 6d | 65 6e 74 3b 09 09 09 7c |d alignm|ent;...||
|00000650| 0d 20 7c 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |. |.....|........|
|00000660| 09 09 09 09 20 69 6d 70 | 72 6f 76 65 64 20 73 68 |.... imp|roved sh|
|00000670| 61 64 69 6e 67 3b 20 66 | 69 78 65 64 20 63 75 72 |ading; f|ixed cur|
|00000680| 73 6f 72 73 3b 09 09 09 | 09 7c 0d 20 7c 09 09 09 |sors;...|.|. |...|
|00000690| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 20 61 |........|...... a|
|000006a0| 64 64 65 64 20 70 61 6c | 65 74 74 65 2c 20 50 61 |dded pal|ette, Pa|
|000006b0| 6c 65 74 74 65 20 4d 67 | 72 2e 20 73 75 70 70 6f |lette Mg|r. suppo|
|000006c0| 72 74 3b 09 09 7c 0d 20 | 7c 09 09 09 09 09 09 09 |rt;..|. ||.......|
|000006d0| 09 09 09 09 09 09 09 09 | 09 09 20 70 6c 75 73 20 |........|.. plus |
|000006e0| 6c 6f 74 73 20 6d 6f 72 | 65 20 63 68 61 6e 67 65 |lots mor|e change|
|000006f0| 73 3b 09 09 09 09 09 09 | 09 09 7c 0d 20 7c 09 09 |s;......|..|. |..|
|00000700| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 20 |........|....... |
|00000710| 74 68 61 6e 78 20 74 6f | 20 42 72 75 63 65 20 61 |thanx to| Bruce a|
|00000720| 6e 64 20 44 61 72 69 6e | 09 09 09 09 09 09 09 09 |nd Darin|........|
|00000730| 7c 0d 20 7c 09 09 09 09 | 09 09 09 09 09 09 09 09 ||. |....|........|
|00000740| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000750| 09 09 09 09 09 09 09 09 | 09 7c 0d 20 7c 09 09 47 |........|.|. |..G|
|00000760| 6c 6f 62 65 20 77 61 73 | 20 77 72 69 74 74 65 6e |lobe was| written|
|00000770| 20 61 73 20 61 6e 20 65 | 78 65 72 63 69 73 65 20 | as an e|xercise |
|00000780| 69 6e 20 6c 65 61 72 6e | 69 6e 67 20 43 6f 6c 6f |in learn|ing Colo|
|00000790| 72 20 51 75 69 63 6b 44 | 72 61 77 2e 09 09 09 09 |r QuickD|raw.....|
|000007a0| 09 7c 0d 20 7c 09 09 54 | 68 65 20 67 6f 61 6c 20 |.|. |..T|he goal |
|000007b0| 77 61 73 20 74 6f 20 77 | 72 69 74 65 20 61 20 64 |was to w|rite a d|
|000007c0| 65 63 65 6e 74 20 64 65 | 6d 6f 20 63 6f 6d 70 6c |ecent de|mo compl|
|000007d0| 65 74 65 6c 79 20 69 6e | 20 50 61 73 63 61 6c 20 |etely in| Pascal |
|000007e0| 75 73 69 6e 67 09 09 09 | 09 7c 0d 20 7c 09 09 6f |using...|.|. |..o|
|000007f0| 6e 6c 79 20 41 70 70 6c | 65 20 64 6f 63 75 6d 65 |nly Appl|e docume|
|00000800| 6e 74 65 64 20 61 6e 64 | 20 61 70 70 72 6f 76 65 |nted and| approve|
|00000810| 64 20 74 65 63 68 6e 69 | 71 75 65 73 2e 20 20 41 |d techni|ques. A|
|00000820| 20 62 69 74 20 6f 66 20 | 61 73 73 65 6d 62 6c 65 | bit of |assemble|
|00000830| 72 09 09 7c 0d 20 7c 09 | 09 77 61 73 20 6e 65 63 |r..|. |.|.was nec|
|00000840| 63 65 73 73 69 74 61 74 | 65 64 20 62 79 20 74 68 |cessitat|ed by th|
|00000850| 65 20 6e 65 65 64 20 74 | 6f 20 64 6f 20 56 42 4c |e need t|o do VBL|
|00000860| 20 73 79 6e 63 68 72 6f | 6e 69 7a 61 74 69 6f 6e | synchro|nization|
|00000870| 20 6f 6e 20 74 68 65 09 | 09 09 09 7c 0d 20 7c 09 | on the.|...|. |.|
|00000880| 09 4d 61 63 69 6e 74 6f | 73 68 20 49 49 2e 20 20 |.Macinto|sh II. |
|00000890| 54 68 65 72 65 20 69 73 | 20 61 6c 73 6f 20 61 20 |There is| also a |
|000008a0| 62 69 74 20 6f 66 20 65 | 78 70 65 72 69 6d 65 6e |bit of e|xperimen|
|000008b0| 74 61 74 69 6f 6e 20 77 | 69 74 68 20 4a 75 67 67 |tation w|ith Jugg|
|000008c0| 6c 65 72 2e 09 09 7c 0d | 20 7c 09 09 47 6c 6f 62 |ler...|.| |..Glob|
|000008d0| 65 27 73 20 68 65 61 76 | 79 20 43 50 55 20 75 73 |e's heav|y CPU us|
|000008e0| 61 67 65 20 6d 61 6b 65 | 73 20 69 74 20 75 73 65 |age make|s it use|
|000008f0| 66 75 6c 20 66 6f 72 20 | 69 6e 76 65 73 74 69 67 |ful for |investig|
|00000900| 61 74 69 6e 67 09 09 09 | 09 09 09 09 7c 0d 20 7c |ating...|....|. ||
|00000910| 09 09 51 75 69 63 6b 44 | 72 61 77 20 28 43 6f 70 |..QuickD|raw (Cop|
|00000920| 79 42 69 74 73 29 20 70 | 65 72 66 6f 72 6d 61 6e |yBits) p|erforman|
|00000930| 63 65 20 75 6e 64 65 72 | 20 64 69 66 66 65 72 65 |ce under| differe|
|00000940| 6e 74 20 63 6f 6e 64 69 | 74 69 6f 6e 73 20 73 75 |nt condi|tions su|
|00000950| 63 68 20 61 73 09 09 7c | 0d 20 7c 09 09 77 69 6e |ch as..||. |..win|
|00000960| 64 6f 77 20 70 6c 61 63 | 65 6d 65 6e 74 20 61 6e |dow plac|ement an|
|00000970| 64 20 63 6c 69 70 70 69 | 6e 67 2e 20 20 54 68 65 |d clippi|ng. The|
|00000980| 20 73 61 64 69 73 74 69 | 63 20 77 69 6c 6c 20 6e | sadisti|c will n|
|00000990| 6f 20 64 6f 75 62 74 20 | 63 68 61 6e 67 65 09 09 |o doubt |change..|
|000009a0| 09 7c 0d 20 7c 09 09 74 | 68 65 20 64 65 70 74 68 |.|. |..t|he depth|
|000009b0| 20 6f 66 20 74 68 65 20 | 73 63 72 65 65 6e 20 61 | of the |screen a|
|000009c0| 74 20 72 75 6e 74 69 6d | 65 20 74 6f 20 77 61 74 |t runtim|e to wat|
|000009d0| 63 68 20 51 75 69 63 6b | 44 72 61 77 20 73 77 65 |ch Quick|Draw swe|
|000009e0| 61 74 2e 09 09 09 09 09 | 7c 0d 20 7c 09 09 09 09 |at......||. |....|
|000009f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000a00| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000a10| 09 7c 0d 20 7c 09 09 53 | 70 65 63 69 61 6c 20 74 |.|. |..S|pecial t|
|00000a20| 68 61 6e 78 20 74 6f 20 | 4c 61 72 72 79 20 52 6f |hanx to |Larry Ro|
|00000a30| 73 65 6e 73 74 65 69 6e | 20 66 6f 72 20 74 68 65 |senstein| for the|
|00000a40| 20 72 6f 75 6e 64 20 57 | 44 45 46 2e 09 09 09 09 | round W|DEF.....|
|00000a50| 09 09 09 09 09 7c 0d 20 | 7c 09 09 09 09 09 09 09 |.....|. ||.......|
|00000a60| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000a70| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7c 0d |........|......|.|
|00000a80| 20 7c 09 09 54 68 69 6e | 67 73 20 77 6f 72 74 68 | |..Thin|gs worth|
|00000a90| 20 69 6e 76 65 73 74 69 | 67 61 74 69 6e 67 20 69 | investi|gating i|
|00000aa0| 6e 63 6c 75 64 65 3a 09 | 09 09 09 09 09 09 09 09 |nclude:.|........|
|00000ab0| 09 09 09 09 09 09 09 09 | 09 7c 0d 20 7c 09 09 09 |........|.|. |...|
|00000ac0| 2d 20 74 68 69 73 20 63 | 6f 64 65 20 69 73 20 61 |- this c|ode is a|
|00000ad0| 20 6d 65 73 73 21 21 09 | 09 09 09 09 09 09 09 09 | mess!!.|........|
|00000ae0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 7c 0d |........|......|.|
|00000af0| 20 7c 09 09 09 2d 20 61 | 64 64 20 64 69 74 68 65 | |...- a|dd dithe|
|00000b00| 72 65 64 20 74 72 61 6e | 73 66 65 72 20 6d 6f 64 |red tran|sfer mod|
|00000b10| 65 20 6f 70 74 69 6f 6e | 20 66 6f 72 20 46 75 6c |e option| for Ful|
|00000b20| 6c 20 43 6f 6c 6f 72 20 | 51 75 69 63 6b 44 72 61 |l Color |QuickDra|
|00000b30| 77 09 09 09 09 7c 0d 20 | 7c 09 09 09 2b 20 63 6f |w....|. ||...+ co|
|00000b40| 6e 76 65 72 74 20 74 68 | 65 20 64 61 74 61 20 66 |nvert th|e data f|
|00000b50| 69 6c 65 73 20 74 6f 20 | 50 49 43 54 73 20 74 6f |iles to |PICTs to|
|00000b60| 20 67 69 76 65 20 50 61 | 63 6b 42 69 74 73 20 73 | give Pa|ckBits s|
|00000b70| 6f 6d 65 20 77 6f 72 6b | 09 09 09 09 7c 0d 20 7c |ome work|....|. ||
|00000b80| 09 09 09 2b 09 69 6d 70 | 72 6f 76 65 20 73 68 61 |...+.imp|rove sha|
|00000b90| 64 69 6e 67 20 62 79 20 | 73 74 65 61 6c 69 6e 67 |ding by |stealing|
|00000ba0| 20 73 79 73 74 65 6d 20 | 63 6f 6c 6f 72 73 20 28 | system |colors (|
|00000bb0| 70 61 6c 65 74 74 65 20 | 6d 61 6e 61 67 65 72 29 |palette |manager)|
|00000bc0| 09 09 09 09 7c 0d 20 7c | 09 09 09 2b 09 69 6d 70 |....|. ||...+.imp|
|00000bd0| 72 6f 76 65 20 73 68 61 | 64 69 6e 67 20 62 79 20 |rove sha|ding by |
|00000be0| 63 68 65 63 6b 69 6e 67 | 20 66 6f 72 20 68 69 67 |checking| for hig|
|00000bf0| 68 65 72 20 72 65 73 6f | 6c 75 74 69 6f 6e 2f 64 |her reso|lution/d|
|00000c00| 65 70 74 68 20 64 65 76 | 69 63 65 73 09 09 7c 0d |epth dev|ices..|.|
|00000c10| 20 7c 09 09 09 d0 20 62 | 65 20 73 6d 61 72 74 20 | |.... b|e smart |
|00000c20| 61 62 6f 75 74 20 62 69 | 74 20 64 65 70 74 68 20 |about bi|t depth |
|00000c30| 63 68 61 6e 67 65 73 20 | 28 77 69 6e 64 6f 77 20 |changes |(window |
|00000c40| 6d 6f 76 69 6e 67 2c 20 | 63 6f 6e 74 72 6f 6c 20 |moving, |control |
|00000c50| 70 61 6e 65 6c 29 09 09 | 7c 0d 20 7c 09 09 09 d0 |panel)..||. |....|
|00000c60| 09 72 65 67 65 6e 65 72 | 61 74 69 6f 6e 20 6f 66 |.regener|ation of|
|00000c70| 20 70 69 78 6d 61 70 73 | 20 74 6f 20 6d 61 74 63 | pixmaps| to matc|
|00000c80| 68 20 63 68 61 6e 67 69 | 6e 67 20 73 63 72 65 65 |h changi|ng scree|
|00000c90| 6e 20 64 65 70 74 68 09 | 09 09 09 09 09 7c 0d 20 |n depth.|.....|. |
|00000ca0| 7c 09 09 09 d0 20 75 73 | 65 20 74 65 6d 70 6f 72 ||.... us|e tempor|
|00000cb0| 61 72 79 20 6d 65 6d 6f | 72 79 20 63 61 6c 6c 73 |ary memo|ry calls|
|00000cc0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000cd0| 09 09 09 09 7c 0d 20 7c | 09 09 09 d0 09 73 70 65 |....|. ||.....spe|
|00000ce0| 65 64 20 75 70 20 43 6f | 70 79 42 69 74 73 20 77 |ed up Co|pyBits w|
|00000cf0| 68 65 6e 20 73 68 61 64 | 69 6e 67 20 61 6e 64 20 |hen shad|ing and |
|00000d00| 62 6c 69 74 74 69 6e 67 | 20 28 68 6f 77 3f 29 09 |blitting| (how?).|
|00000d10| 09 09 09 09 09 09 09 7c | 0d 20 7c 09 09 09 d0 09 |.......||. |.....|
|00000d20| 61 6e 74 69 2d 61 6c 69 | 61 73 20 74 68 65 20 70 |anti-ali|as the p|
|00000d30| 69 78 6d 61 70 73 20 28 | 73 63 61 6c 65 20 64 6f |ixmaps (|scale do|
|00000d40| 77 6e 20 62 69 67 20 62 | 69 74 6d 61 70 73 29 09 |wn big b|itmaps).|
|00000d50| 09 09 09 09 09 09 09 09 | 09 7c 0d 20 7c 09 09 09 |........|.|. |...|
|00000d60| d0 09 69 6d 70 72 6f 76 | 65 20 72 65 73 6f 6c 75 |..improv|e resolu|
|00000d70| 74 69 6f 6e 20 62 79 20 | 75 73 69 6e 67 20 6d 6f |tion by |using mo|
|00000d80| 72 65 20 66 72 61 6d 65 | 73 09 09 09 09 09 09 09 |re frame|s.......|
|00000d90| 09 09 09 09 09 09 09 7c | 0d 20 7c 09 09 09 d0 09 |.......||. |.....|
|00000da0| 61 6c 6c 65 76 69 61 74 | 65 20 74 69 6d 69 6e 67 |alleviat|e timing|
|00000db0| 20 69 6e 74 65 72 61 63 | 74 69 6f 6e 20 77 68 69 | interac|tion whi|
|00000dc0| 6c 65 20 62 65 69 6e 67 | 20 6a 75 67 67 6c 65 64 |le being| juggled|
|00000dd0| 09 09 09 09 09 09 09 09 | 09 7c 0d 20 7c 09 09 09 |........|.|. |...|
|00000de0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000df0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000e00| 09 09 7c 0d 20 7c 09 09 | 50 6c 65 61 73 65 20 73 |..|. |..|Please s|
|00000e10| 65 6e 64 20 79 6f 75 72 | 20 65 6e 68 6e 61 6e 63 |end your| enhnanc|
|00000e20| 65 6d 65 6e 74 73 2c 20 | 63 6f 6d 6d 65 6e 74 73 |ements, |comments|
|00000e30| 20 61 6e 64 2f 6f 72 20 | 71 75 65 73 74 69 6f 6e | and/or |question|
|00000e40| 73 20 74 6f 3a 09 09 09 | 09 09 7c 0d 20 7c 09 09 |s to:...|..|. |..|
|00000e50| 09 50 61 75 6c 20 4d 65 | 72 63 65 72 09 09 09 09 |.Paul Me|rcer....|
|00000e60| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000e70| 09 09 09 09 09 09 09 09 | 09 7c 0d 20 7c 09 09 09 |........|.|. |...|
|00000e80| 50 2e 4f 2e 20 42 6f 78 | 20 31 36 30 31 36 35 09 |P.O. Box| 160165.|
|00000e90| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000ea0| 09 09 09 09 09 09 09 09 | 09 09 7c 0d 20 7c 09 09 |........|..|. |..|
|00000eb0| 09 43 75 70 65 72 74 69 | 6e 6f 2c 20 43 41 20 20 |.Cuperti|no, CA |
|00000ec0| 39 35 30 31 36 2d 30 31 | 36 35 09 09 09 09 09 09 |95016-01|65......|
|00000ed0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000ee0| 7c 0d 20 7c 09 09 09 09 | 09 09 09 09 09 09 09 09 ||. |....|........|
|00000ef0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000f00| 09 09 09 09 09 09 09 09 | 09 7c 0d 20 7c 09 09 49 |........|.|. |..I|
|00000f10| 66 20 79 6f 75 20 72 65 | 61 6c 6c 79 20 6c 69 6b |f you re|ally lik|
|00000f20| 65 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 20 28 |e this p|rogram (|
|00000f30| 61 6e 64 2f 6f 72 20 74 | 68 69 73 20 73 6f 75 72 |and/or t|his sour|
|00000f40| 63 65 29 2c 09 09 09 09 | 09 09 09 09 09 7c 0d 20 |ce),....|.....|. |
|00000f50| 7c 20 09 09 09 70 6c 65 | 61 73 65 20 73 65 6e 64 || ...ple|ase send|
|00000f60| 20 24 31 30 20 74 6f 20 | 79 6f 75 72 20 66 61 76 | $10 to |your fav|
|00000f70| 6f 72 69 74 65 20 63 68 | 61 72 69 74 79 2e 09 09 |orite ch|arity...|
|00000f80| 09 09 09 09 09 09 09 09 | 09 09 09 09 7c 0d 20 7c |........|....|. ||
|00000f90| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000fa0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000fb0| 09 09 09 09 09 7c 0d 20 | 7c 09 09 09 41 70 70 6c |.....|. ||...Appl|
|00000fc0| 65 4c 69 6e 6b 3a 20 4d | 45 52 43 45 52 31 09 09 |eLink: M|ERCER1..|
|00000fd0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00000fe0| 09 09 09 09 09 09 09 7c | 0d 20 7c 09 09 09 55 55 |.......||. |...UU|
|00000ff0| 43 50 3a 20 20 20 20 20 | 20 7b 6e 73 63 2c 64 75 |CP: | {nsc,du|
|00001000| 61 6c 2c 73 75 6e 7d 21 | 61 70 70 6c 65 21 70 6d |al,sun}!|apple!pm|
|00001010| 65 72 63 65 72 09 09 09 | 09 09 09 09 09 09 09 09 |ercer...|........|
|00001020| 09 09 09 09 7c 0d 20 7c | 09 09 09 4d 43 49 3a 20 |....|. ||...MCI: |
|00001030| 20 20 20 20 20 20 53 4f | 4c 09 09 09 09 09 09 09 | SO|L.......|
|00001040| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00001050| 09 09 09 09 7c 0d 20 7c | 09 09 09 09 09 09 09 09 |....|. ||........|
|00001060| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00001070| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7c 0d 20 |........|.....|. |
|00001080| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------|
|00001090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 29 0d 0d 50 |--------|---*)..P|
|000010d0| 52 4f 47 52 41 4d 20 47 | 6c 6f 62 65 3b 0d 0d 09 |ROGRAM G|lobe;...|
|000010e0| 55 53 45 53 0d 09 09 4d | 65 6d 54 79 70 65 73 2c |USES...M|emTypes,|
|000010f0| 20 51 75 69 63 6b 44 72 | 61 77 2c 20 50 61 6c 65 | QuickDr|aw, Pale|
|00001100| 74 74 65 73 2c 20 4f 53 | 49 6e 74 66 2c 20 54 6f |ttes, OS|Intf, To|
|00001110| 6f 6c 49 6e 74 66 2c 20 | 4d 61 63 50 72 69 6e 74 |olIntf, |MacPrint|
|00001120| 2c 20 50 61 63 6b 49 6e | 74 66 2c 20 43 75 72 73 |, PackIn|tf, Curs|
|00001130| 6f 72 43 74 6c 3b 0d 0d | 09 7b 24 52 2d 7d 20 7b |orCtl;..|.{$R-} {|
|00001140| 24 4f 56 2d 7d 09 7b 77 | 65 20 64 6f 6e 27 74 20 |$OV-}.{w|e don't |
|00001150| 6e 65 65 64 20 6e 6f 20 | 73 74 69 6e 6b 69 6e 27 |need no |stinkin'|
|00001160| 20 72 61 6e 67 65 20 6f | 72 20 6f 76 65 72 66 6c | range o|r overfl|
|00001170| 6f 77 20 63 68 65 63 6b | 69 6e 67 7d 0d 09 7b 24 |ow check|ing}..{$|
|00001180| 44 2b 7d 09 09 09 09 09 | 7b 20 63 75 7a 20 77 65 |D+}.....|{ cuz we|
|00001190| 27 76 65 20 67 6f 74 20 | 54 4d 4f 4e 2f 4d 61 63 |'ve got |TMON/Mac|
|000011a0| 73 42 75 67 7d 0d 0d 20 | 20 43 4f 4e 53 54 0d 09 |sBug}.. | CONST..|
|000011b0| 09 7b 24 53 45 54 43 20 | 44 65 62 75 67 20 3a 3d |.{$SETC |Debug :=|
|000011c0| 20 54 72 75 65 7d 0d 0d | 09 09 7b 53 79 73 74 65 | True}..|..{Syste|
|000011d0| 6d 20 73 74 75 66 66 7d | 0d 09 09 57 61 69 74 4e |m stuff}|...WaitN|
|000011e0| 65 78 74 45 76 65 6e 74 | 54 72 61 70 09 3d 20 24 |extEvent|Trap.= $|
|000011f0| 36 30 3b 0d 09 09 53 6c | 6f 74 56 49 6e 73 74 61 |60;...Sl|otVInsta|
|00001200| 6c 6c 54 72 61 70 09 3d | 20 24 36 66 3b 0d 09 09 |llTrap.=| $6f;...|
|00001210| 55 6e 49 6d 70 6c 65 6e | 74 65 64 54 72 61 70 09 |UnImplen|tedTrap.|
|00001220| 09 3d 20 24 39 66 3b 0d | 09 09 50 61 69 6e 74 57 |.= $9f;.|..PaintW|
|00001230| 68 69 74 65 09 09 09 09 | 3d 20 24 39 64 63 3b 09 |hite....|= $9dc;.|
|00001240| 09 09 7b 77 69 6e 64 6f | 77 20 6d 61 6e 61 67 65 |..{windo|w manage|
|00001250| 72 20 77 68 69 74 65 20 | 65 72 61 73 65 7d 0d 09 |r white |erase}..|
|00001260| 09 54 69 63 6b 73 09 09 | 09 09 09 09 09 3d 20 24 |.Ticks..|.....= $|
|00001270| 31 36 61 3b 09 09 09 7b | 74 69 63 6b 20 63 6f 75 |16a;...{|tick cou|
|00001280| 6e 74 65 72 20 69 6e 20 | 6c 6f 77 20 6d 65 6d 7d |nter in |low mem}|
|00001290| 0d 09 09 7b 24 49 46 43 | 20 44 65 62 75 67 7d 0d |...{$IFC| Debug}.|
|000012a0| 09 09 4d 6f 6e 6b 65 79 | 4c 69 76 65 73 09 09 09 |..Monkey|Lives...|
|000012b0| 09 3d 20 24 31 30 30 3b | 0d 09 09 7b 24 45 4e 44 |.= $100;|...{$END|
|000012c0| 43 7d 0d 09 09 6b 4f 70 | 74 69 6f 6e 4b 65 79 43 |C}...kOp|tionKeyC|
|000012d0| 6f 64 65 09 09 3d 20 35 | 38 3b 0d 09 09 43 75 72 |ode..= 5|8;...Cur|
|000012e0| 41 70 70 4e 61 6d 65 09 | 09 09 09 3d 09 24 39 31 |AppName.|...=.$91|
|000012f0| 30 3b 0d 09 09 43 75 72 | 41 70 52 65 66 4e 75 6d |0;...Cur|ApRefNum|
|00001300| 09 09 09 09 3d 09 24 39 | 30 30 3b 0d 09 09 47 72 |....=.$9|00;...Gr|
|00001310| 61 79 52 67 6e 09 09 09 | 09 09 09 3d 20 24 39 65 |ayRgn...|...= $9e|
|00001320| 65 3b 0d 0d 09 09 7b 50 | 72 6f 67 72 61 6d 20 73 |e;....{P|rogram s|
|00001330| 74 75 66 66 7d 0d 09 09 | 64 61 74 61 49 44 09 09 |tuff}...|dataID..|
|00001340| 09 09 3d 20 31 32 38 3b | 0d 0d 09 09 7b 52 65 73 |..= 128;|....{Res|
|00001350| 6f 75 72 63 65 20 49 44 | 73 7d 0d 09 09 6b 46 69 |ource ID|s}...kFi|
|00001360| 72 73 74 50 49 43 54 09 | 09 3d 20 31 32 38 3b 09 |rstPICT.|.= 128;.|
|00001370| 09 09 7b 50 49 43 54 7d | 0d 09 09 6b 50 61 6c 65 |..{PICT}|...kPale|
|00001380| 74 74 65 09 09 09 3d 20 | 32 35 36 3b 09 09 09 7b |tte...= |256;...{|
|00001390| 70 6c 74 74 7d 0d 0d 09 | 09 61 70 70 6c 65 49 44 |pltt}...|.appleID|
|000013a0| 09 09 09 09 3d 20 31 32 | 38 3b 20 09 09 09 7b 4d |....= 12|8; ...{M|
|000013b0| 45 4e 55 7d 0d 09 09 66 | 69 6c 65 49 44 09 09 09 |ENU}...f|ileID...|
|000013c0| 09 3d 20 31 32 39 3b 0d | 09 09 65 64 69 74 49 44 |.= 129;.|..editID|
|000013d0| 09 09 09 09 3d 20 31 33 | 30 3b 0d 09 09 63 6f 6e |....= 13|0;...con|
|000013e0| 74 72 6f 6c 49 44 09 09 | 09 3d 20 31 33 31 3b 0d |trolID..|.= 131;.|
|000013f0| 0d 09 09 6c 6f 61 64 69 | 6e 67 49 44 09 09 09 3d |...loadi|ngID...=|
|00001400| 20 31 32 38 3b 09 09 09 | 7b 44 4c 4f 47 7d 0d 09 | 128;...|{DLOG}..|
|00001410| 09 63 6f 6c 6f 72 69 6e | 67 49 44 09 09 3d 20 31 |.colorin|gID..= 1|
|00001420| 32 39 3b 0d 09 09 6e 6f | 4d 65 6d 6f 72 79 49 44 |29;...no|MemoryID|
|00001430| 09 09 3d 20 31 33 30 3b | 0d 09 09 69 6f 45 72 72 |..= 130;|...ioErr|
|00001440| 6f 72 49 44 09 09 09 3d | 20 31 33 31 3b 0d 09 09 |orID...=| 131;...|
|00001450| 61 62 6f 75 74 49 44 09 | 09 09 09 3d 09 31 33 32 |aboutID.|...=.132|
|00001460| 3b 0d 09 09 6b 4f 4b 09 | 09 09 09 09 09 3d 20 31 |;...kOK.|.....= 1|
|00001470| 3b 09 09 09 09 7b 6f 6b | 20 62 75 74 74 6f 6e 7d |;....{ok| button}|
|00001480| 0d 0d 09 09 72 65 63 74 | 49 44 09 09 09 09 3d 20 |....rect|ID....= |
|00001490| 31 32 38 3b 20 09 09 09 | 7b 57 49 4e 44 7d 0d 09 |128; ...|{WIND}..|
|000014a0| 09 72 6f 75 6e 64 49 44 | 09 09 09 09 3d 09 31 32 |.roundID|....=.12|
|000014b0| 39 3b 0d 0d 09 09 7b 4d | 65 6e 75 20 73 74 75 66 |9;....{M|enu stuf|
|000014c0| 66 7d 0d 09 09 61 70 70 | 6c 65 4d 09 09 09 09 3d |f}...app|leM....=|
|000014d0| 20 31 3b 09 09 09 09 7b | 6d 65 6e 75 20 68 61 6e | 1;....{|menu han|
|000014e0| 64 6c 65 20 61 72 72 61 | 79 20 69 6e 64 69 63 65 |dle arra|y indice|
|000014f0| 73 7d 0d 09 09 66 69 6c | 65 4d 09 09 09 09 09 3d |s}...fil|eM.....=|
|00001500| 20 32 3b 0d 09 09 65 64 | 69 74 4d 09 09 09 09 09 | 2;...ed|itM.....|
|00001510| 3d 20 33 3b 0d 09 09 63 | 6f 6e 74 72 6f 6c 4d 09 |= 3;...c|ontrolM.|
|00001520| 09 09 3d 20 34 3b 0d 09 | 09 6d 65 6e 75 43 6f 75 |..= 4;..|.menuCou|
|00001530| 6e 74 09 09 09 3d 20 34 | 3b 0d 0d 09 09 61 62 6f |nt...= 4|;....abo|
|00001540| 75 74 43 6f 6d 6d 61 6e | 64 20 3d 20 31 3b 09 09 |utComman|d = 1;..|
|00001550| 09 09 09 7b 41 70 70 6c | 65 20 6d 65 6e 75 20 63 |...{Appl|e menu c|
|00001560| 6f 6d 6d 61 6e 64 73 7d | 0d 0d 09 09 63 6c 6f 73 |ommands}|....clos|
|00001570| 65 43 6f 6d 6d 61 6e 64 | 09 3d 20 31 3b 09 09 09 |eCommand|.= 1;...|
|00001580| 09 7b 46 69 6c 65 7d 0d | 09 09 71 75 69 74 43 6f |.{File}.|..quitCo|
|00001590| 6d 6d 61 6e 64 09 09 3d | 20 33 3b 0d 0d 09 09 75 |mmand..=| 3;....u|
|000015a0| 6e 64 6f 43 6f 6d 6d 61 | 6e 64 09 09 3d 20 31 3b |ndoComma|nd..= 1;|
|000015b0| 09 09 09 09 7b 45 64 69 | 74 7d 0d 09 09 63 75 74 |....{Edi|t}...cut|
|000015c0| 43 6f 6d 6d 61 6e 64 09 | 09 3d 20 33 3b 0d 09 09 |Command.|.= 3;...|
|000015d0| 63 6f 70 79 43 6f 6d 6d | 61 6e 64 09 09 3d 20 34 |copyComm|and..= 4|
|000015e0| 3b 0d 09 09 70 61 73 74 | 65 43 6f 6d 6d 61 6e 64 |;...past|eCommand|
|000015f0| 09 3d 20 35 3b 0d 09 09 | 63 6c 65 61 72 43 6f 6d |.= 5;...|clearCom|
|00001600| 6d 61 6e 64 09 3d 20 36 | 3b 0d 0d 09 09 73 6c 6f |mand.= 6|;....slo|
|00001610| 77 65 72 43 6f 6d 6d 61 | 6e 64 09 09 3d 20 31 3b |werComma|nd..= 1;|
|00001620| 09 09 09 7b 43 6f 6e 74 | 72 6f 6c 7d 0d 09 09 73 |...{Cont|rol}...s|
|00001630| 74 65 70 43 6f 6d 6d 61 | 6e 64 09 09 09 3d 20 32 |tepComma|nd...= 2|
|00001640| 3b 0d 09 09 66 61 73 74 | 65 72 43 6f 6d 6d 61 6e |;...fast|erComman|
|00001650| 64 09 09 3d 20 33 3b 0d | 09 09 73 79 6e 63 43 6f |d..= 3;.|..syncCo|
|00001660| 6d 6d 61 6e 64 09 09 09 | 3d 20 35 3b 0d 09 09 61 |mmand...|= 5;...a|
|00001670| 6c 69 67 6e 43 6f 6d 6d | 61 6e 64 09 09 3d 20 37 |lignComm|and..= 7|
|00001680| 3b 0d 09 09 74 69 6d 65 | 43 6f 6d 6d 61 6e 64 09 |;...time|Command.|
|00001690| 09 09 3d 20 39 3b 0d 09 | 09 72 6f 75 6e 64 43 6f |..= 9;..|.roundCo|
|000016a0| 6d 6d 61 6e 64 09 09 3d | 20 31 30 3b 0d 09 09 70 |mmand..=| 10;...p|
|000016b0| 61 6c 65 74 74 65 43 6f | 6d 6d 61 6e 64 09 3d 20 |aletteCo|mmand.= |
|000016c0| 31 32 3b 0d 0d 09 54 59 | 50 45 0d 09 09 4c 6f 6e |12;...TY|PE...Lon|
|000016d0| 67 49 6e 74 50 74 72 09 | 09 3d 09 5e 4c 6f 6e 67 |gIntPtr.|.=.^Long|
|000016e0| 49 6e 74 3b 09 09 09 7b | 66 6f 72 20 61 63 63 65 |Int;...{|for acce|
|000016f0| 73 73 69 6e 67 20 54 69 | 63 6b 73 20 69 6e 20 57 |ssing Ti|cks in W|
|00001700| 61 69 74 56 42 4c 7d 0d | 09 09 49 6e 74 65 67 65 |aitVBL}.|..Intege|
|00001710| 72 50 74 72 09 09 3d 20 | 5e 49 6e 74 65 67 65 72 |rPtr..= |^Integer|
|00001720| 3b 0d 09 09 42 6f 6f 6c | 65 61 6e 50 74 72 09 09 |;...Bool|eanPtr..|
|00001730| 3d 20 5e 42 6f 6f 6c 65 | 61 6e 3b 09 09 09 7b 66 |= ^Boole|an;...{f|
|00001740| 6f 72 20 61 63 63 65 73 | 73 69 6e 67 20 50 61 69 |or acces|sing Pai|
|00001750| 6e 74 57 68 69 74 65 20 | 69 6e 20 49 6e 69 74 69 |ntWhite |in Initi|
|00001760| 61 6c 69 7a 65 7d 0d 09 | 09 42 69 74 4d 61 70 50 |alize}..|.BitMapP|
|00001770| 74 72 09 09 09 3d 20 5e | 42 69 74 4d 61 70 3b 09 |tr...= ^|BitMap;.|
|00001780| 09 09 7b 66 6f 72 20 74 | 79 70 65 20 63 6f 65 72 |..{for t|ype coer|
|00001790| 63 69 6f 6e 20 69 6e 20 | 43 6f 70 79 42 69 74 73 |cion in |CopyBits|
|000017a0| 7d 0d 09 09 52 67 6e 48 | 61 6e 64 6c 65 50 74 72 |}...RgnH|andlePtr|
|000017b0| 09 3d 20 5e 52 67 6e 48 | 61 6e 64 6c 65 3b 09 09 |.= ^RgnH|andle;..|
|000017c0| 7b 66 6f 72 20 67 65 74 | 74 69 6e 67 20 61 74 20 |{for get|ting at |
|000017d0| 47 72 61 79 52 67 6e 20 | 69 6e 20 62 6f 75 6e 64 |GrayRgn |in bound|
|000017e0| 73 20 63 68 65 63 6b 69 | 6e 67 7d 0d 09 09 53 74 |s checki|ng}...St|
|000017f0| 72 33 31 50 74 72 09 09 | 09 3d 09 5e 53 74 72 33 |r31Ptr..|.=.^Str3|
|00001800| 31 3b 0d 0d 09 09 44 61 | 74 61 52 65 63 09 09 09 |1;....Da|taRec...|
|00001810| 3d 20 52 45 43 4f 52 44 | 09 09 09 09 7b 44 61 74 |= RECORD|....{Dat|
|00001820| 61 20 72 65 73 6f 75 72 | 63 65 20 66 6f 72 6d 61 |a resour|ce forma|
|00001830| 74 7d 0d 09 09 09 09 09 | 09 09 09 09 09 77 69 64 |t}......|.....wid|
|00001840| 74 68 3a 09 49 6e 74 65 | 67 65 72 3b 09 7b 62 69 |th:.Inte|ger;.{bi|
|00001850| 74 6d 61 70 20 77 69 64 | 74 68 7d 0d 09 09 09 09 |tmap wid|th}.....|
|00001860| 09 09 09 09 09 09 68 65 | 69 67 68 74 3a 09 49 6e |......he|ight:.In|
|00001870| 74 65 67 65 72 3b 09 7b | 62 69 74 6d 61 70 20 68 |teger;.{|bitmap h|
|00001880| 65 69 67 68 74 7d 0d 09 | 09 09 09 09 09 09 09 09 |eight}..|........|
|00001890| 09 63 6f 75 6e 74 3a 09 | 49 6e 74 65 67 65 72 3b |.count:.|Integer;|
|000018a0| 09 7b 66 72 61 6d 65 20 | 63 6f 75 6e 74 20 69 6e |.{frame |count in|
|000018b0| 63 6c 75 64 69 6e 67 20 | 6d 61 73 6b 7d 0d 09 09 |cluding |mask}...|
|000018c0| 09 09 09 09 09 09 09 09 | 73 79 6e 63 3a 09 09 49 |........|sync:..I|
|000018d0| 6e 74 65 67 65 72 3b 09 | 7b 30 2f 31 20 56 42 4c |nteger;.|{0/1 VBL|
|000018e0| 20 73 79 6e 63 69 6e 67 | 7d 0d 09 09 09 09 09 09 | syncing|}.......|
|000018f0| 09 09 09 09 72 6f 75 6e | 64 3a 09 49 6e 74 65 67 |....roun|d:.Integ|
|00001900| 65 72 3b 09 7b 30 2f 31 | 20 72 6f 75 6e 64 20 77 |er;.{0/1| round w|
|00001910| 69 6e 64 6f 77 7d 0d 09 | 09 09 09 09 09 09 09 09 |indow}..|........|
|00001920| 09 74 69 6d 65 3a 09 09 | 49 6e 74 65 67 65 72 3b |.time:..|Integer;|
|00001930| 09 7b 30 2f 31 20 66 72 | 61 6d 65 73 2f 73 65 63 |.{0/1 fr|ames/sec|
|00001940| 20 64 69 73 70 6c 61 79 | 7d 0d 09 09 09 09 09 09 | display|}.......|
|00001950| 09 09 09 09 74 6f 70 3a | 09 09 49 6e 74 65 67 65 |....top:|..Intege|
|00001960| 72 3b 09 7b 77 69 6e 64 | 6f 77 20 70 6f 73 69 74 |r;.{wind|ow posit|
|00001970| 69 6f 6e 7d 0d 09 09 09 | 09 09 09 09 09 09 09 6c |ion}....|.......l|
|00001980| 65 66 74 3a 09 09 49 6e | 74 65 67 65 72 3b 0d 09 |eft:..In|teger;..|
|00001990| 09 09 09 09 09 09 09 09 | 09 73 70 65 65 64 3a 09 |........|.speed:.|
|000019a0| 49 6e 74 65 67 65 72 3b | 09 7b 73 70 65 65 64 7d |Integer;|.{speed}|
|000019b0| 0d 09 09 09 09 09 09 09 | 09 09 09 70 61 6c 65 74 |........|...palet|
|000019c0| 74 65 3a 20 49 6e 74 65 | 67 65 72 3b 09 7b 75 73 |te: Inte|ger;.{us|
|000019d0| 65 20 63 75 73 74 6f 6d | 20 70 61 6c 65 74 74 65 |e custom| palette|
|000019e0| 7d 0d 09 09 09 09 09 09 | 09 09 09 45 4e 44 3b 20 |}.......|...END; |
|000019f0| 7b 44 61 74 61 52 65 63 | 7d 0d 0d 0d 20 20 56 41 |{DataRec|}... VA|
|00001a00| 52 0d 09 09 7b 24 5a 2b | 7d 09 09 09 09 09 09 09 |R...{$Z+|}.......|
|00001a10| 09 09 09 09 09 7b 65 78 | 70 6f 72 74 65 64 20 66 |.....{ex|ported f|
|00001a20| 6f 72 20 61 73 73 65 6d | 62 6c 65 72 20 61 63 63 |or assem|bler acc|
|00001a30| 65 73 73 7d 0d 09 09 70 | 61 72 69 73 54 69 63 6b |ess}...p|arisTick|
|00001a40| 73 3a 09 09 4c 6f 6e 67 | 49 6e 74 3b 09 09 09 7b |s:..Long|Int;...{|
|00001a50| 6d 61 69 6e 20 76 69 64 | 65 6f 20 64 65 76 69 63 |main vid|eo devic|
|00001a60| 65 20 74 69 63 6b 20 63 | 6f 75 6e 74 20 6f 6e 20 |e tick c|ount on |
|00001a70| 4d 61 63 20 49 49 7d 0d | 09 09 7b 24 5a 2d 7d 0d |Mac II}.|..{$Z-}.|
|00001a80| 0d 09 09 61 70 70 52 65 | 66 4e 75 6d 3a 09 09 49 |...appRe|fNum:..I|
|00001a90| 6e 74 65 67 65 72 3b 09 | 09 09 7b 72 65 66 4e 75 |nteger;.|..{refNu|
|00001aa0| 6d 20 6f 66 20 74 68 65 | 20 61 70 70 6c 69 63 61 |m of the| applica|
|00001ab0| 74 69 6f 6e 27 73 20 72 | 65 73 6f 75 72 63 65 20 |tion's r|esource |
|00001ac0| 66 6f 72 6b 7d 0d 09 09 | 66 72 61 6d 65 46 69 6c |fork}...|frameFil|
|00001ad0| 65 3a 09 09 53 74 72 32 | 35 35 3b 0d 09 09 6d 79 |e:..Str2|55;...my|
|00001ae0| 44 61 74 61 3a 09 09 09 | 09 44 61 74 61 52 65 63 |Data:...|.DataRec|
|00001af0| 3b 09 09 09 7b 63 6f 6e | 66 69 67 20 73 74 72 75 |;...{con|fig stru|
|00001b00| 63 74 75 72 65 20 73 74 | 6f 72 65 64 20 69 6e 20 |cture st|ored in |
|00001b10| 61 73 20 72 65 73 6f 75 | 72 63 65 20 69 6e 20 64 |as resou|rce in d|
|00001b20| 61 74 61 20 66 69 6c 65 | 7d 0d 09 09 66 72 61 6d |ata file|}...fram|
|00001b30| 65 57 69 64 74 68 2c 0d | 09 09 66 72 61 6d 65 48 |eWidth,.|..frameH|
|00001b40| 65 69 67 68 74 2c 0d 09 | 09 66 72 61 6d 65 43 6f |eight,..|.frameCo|
|00001b50| 75 6e 74 3a 09 09 49 6e | 74 65 67 65 72 3b 0d 09 |unt:..In|teger;..|
|00001b60| 09 62 6f 72 64 65 72 3a | 09 09 09 09 49 6e 74 65 |.border:|....Inte|
|00001b70| 67 65 72 3b 09 09 09 7b | 62 6f 72 64 65 72 20 6f |ger;...{|border o|
|00001b80| 66 20 67 72 61 79 20 73 | 70 61 63 65 7d 0d 09 09 |f gray s|pace}...|
|00001b90| 77 69 6e 64 4c 65 66 74 | 2c 0d 09 09 77 69 6e 64 |windLeft|,...wind|
|00001ba0| 54 6f 70 3a 09 09 09 49 | 6e 74 65 67 65 72 3b 09 |Top:...I|nteger;.|
|00001bb0| 09 09 7b 73 61 76 65 64 | 20 64 65 66 61 75 6c 74 |..{saved| default|
|00001bc0| 20 77 69 6e 64 6f 77 20 | 70 6f 73 69 74 69 6f 6e | window |position|
|00001bd0| 7d 0d 0d 09 09 63 75 72 | 46 72 61 6d 65 2c 09 09 |}....cur|Frame,..|
|00001be0| 09 09 09 09 09 09 09 09 | 7b 63 75 72 72 65 6e 74 |........|{current|
|00001bf0| 20 66 72 61 6d 65 20 28 | 32 20 2d 20 66 72 61 6d | frame (|2 - fram|
|00001c00| 65 43 6f 75 6e 74 29 7d | 0d 09 09 73 70 65 65 64 |eCount)}|...speed|
|00001c10| 2c 09 09 09 09 09 09 09 | 09 09 09 09 7b 66 72 61 |,.......|....{fra|
|00001c20| 6d 65 20 61 64 76 61 6e | 63 65 20 64 65 6c 61 79 |me advan|ce delay|
|00001c30| 20 6f 72 20 79 69 65 6c | 64 74 69 6d 65 20 77 2f | or yiel|dtime w/|
|00001c40| 20 4a 75 67 67 6c 65 72 | 7d 0d 09 09 64 65 6c 61 | Juggler|}...dela|
|00001c50| 79 43 6f 75 6e 74 3a 09 | 09 49 6e 74 65 67 65 72 |yCount:.|.Integer|
|00001c60| 3b 09 09 09 7b 63 6f 75 | 6e 74 20 72 65 6d 61 69 |;...{cou|nt remai|
|00001c70| 6e 69 6e 67 20 74 6f 20 | 64 65 6c 61 79 7d 0d 09 |ning to |delay}..|
|00001c80| 09 73 79 6e 63 56 42 4c | 2c 09 09 09 09 09 09 09 |.syncVBL|,.......|
|00001c90| 09 09 09 7b 73 79 6e 63 | 20 74 6f 20 76 62 6c 20 |...{sync| to vbl |
|00001ca0| 63 6f 6d 6d 61 6e 64 20 | 73 77 69 74 63 68 7d 0d |command |switch}.|
|00001cb0| 09 09 64 69 73 70 6c 61 | 79 54 69 6d 65 2c 09 09 |..displa|yTime,..|
|00001cc0| 09 09 09 09 09 09 7b 64 | 69 73 70 6c 61 79 20 66 |......{d|isplay f|
|00001cd0| 72 61 6d 65 73 2f 73 65 | 63 20 63 6f 6d 6d 61 6e |rames/se|c comman|
|00001ce0| 64 20 73 77 69 74 63 68 | 7d 0d 09 09 72 6f 75 6e |d switch|}...roun|
|00001cf0| 64 57 69 6e 64 6f 77 2c | 09 09 09 09 09 09 09 09 |dWindow,|........|
|00001d00| 7b 75 73 69 6e 67 20 4c | 61 72 72 79 27 73 20 72 |{using L|arry's r|
|00001d10| 6f 75 6e 64 20 57 44 45 | 46 7d 0d 09 09 75 73 65 |ound WDE|F}...use|
|00001d20| 50 61 6c 65 74 74 65 2c | 09 09 09 09 09 09 09 09 |Palette,|........|
|00001d30| 09 7b 75 73 69 6e 67 20 | 67 72 65 65 6e 20 61 6e |.{using |green an|
|00001d40| 64 20 62 6c 75 65 20 72 | 61 6d 70 65 64 20 70 61 |d blue r|amped pa|
|00001d50| 6c 65 74 74 65 7d 0d 09 | 09 64 6f 6e 65 46 6c 61 |lette}..|.doneFla|
|00001d60| 67 3a 09 09 09 42 6f 6f | 6c 65 61 6e 3b 09 09 09 |g:...Boo|lean;...|
|00001d70| 7b 4d 45 4c 20 71 75 69 | 74 20 66 6c 61 67 7d 0d |{MEL qui|t flag}.|
|00001d80| 0d 09 09 74 69 6d 65 52 | 65 63 74 3a 09 09 09 52 |...timeR|ect:...R|
|00001d90| 65 63 74 3b 09 09 09 09 | 09 7b 72 65 63 74 20 66 |ect;....|.{rect f|
|00001da0| 6f 72 20 64 72 61 77 69 | 6e 67 20 66 72 61 6d 65 |or drawi|ng frame|
|00001db0| 73 2f 73 65 63 7d 0d 09 | 09 66 72 61 6d 65 73 44 |s/sec}..|.framesD|
|00001dc0| 6f 6e 65 3a 09 09 49 6e | 74 65 67 65 72 3b 09 09 |one:..In|teger;..|
|00001dd0| 09 7b 66 72 61 6d 65 73 | 2f 73 65 63 20 64 69 73 |.{frames|/sec dis|
|00001de0| 70 6c 61 79 20 76 61 72 | 73 7d 0d 09 09 74 61 72 |play var|s}...tar|
|00001df0| 67 54 69 6d 65 3a 09 09 | 09 4c 6f 6e 67 49 6e 74 |gTime:..|.LongInt|
|00001e00| 3b 09 09 09 7b 74 69 6d | 65 20 74 6f 20 74 61 72 |;...{tim|e to tar|
|00001e10| 67 65 74 20 27 6e 65 78 | 74 20 73 65 63 6f 6e 64 |get 'nex|t second|
|00001e20| 27 20 75 73 65 64 20 74 | 6f 20 77 72 69 74 65 20 |' used t|o write |
|00001e30| 66 72 61 6d 65 73 2f 73 | 65 63 7d 0d 0d 09 09 66 |frames/s|ec}....f|
|00001e40| 72 61 6d 65 53 69 7a 65 | 3a 09 09 4c 6f 6e 67 49 |rameSize|:..LongI|
|00001e50| 6e 74 3b 09 09 09 7b 73 | 69 7a 65 20 6f 66 20 66 |nt;...{s|ize of f|
|00001e60| 72 61 6d 65 20 62 69 74 | 6d 61 70 7d 0d 09 09 66 |rame bit|map}...f|
|00001e70| 72 61 6d 65 42 6f 75 6e | 64 73 2c 09 09 09 09 09 |rameBoun|ds,.....|
|00001e80| 09 09 09 7b 72 65 63 74 | 20 6f 66 20 73 6f 75 72 |...{rect| of sour|
|00001e90| 63 65 20 66 72 61 6d 65 | 7d 0d 09 09 64 65 73 74 |ce frame|}...dest|
|00001ea0| 42 6f 75 6e 64 73 3a 09 | 09 52 65 63 74 3b 09 09 |Bounds:.|.Rect;..|
|00001eb0| 09 09 09 7b 63 65 6e 74 | 65 72 65 64 20 64 65 73 |...{cent|ered des|
|00001ec0| 74 20 72 65 63 74 7d 0d | 09 09 70 69 78 44 65 70 |t rect}.|..pixDep|
|00001ed0| 74 68 3a 09 09 09 49 6e | 74 65 67 65 72 3b 09 09 |th:...In|teger;..|
|00001ee0| 09 7b 64 65 70 74 68 20 | 6f 66 20 50 69 78 4d 61 |.{depth |of PixMa|
|00001ef0| 70 7d 0d 09 09 62 69 74 | 4d 61 70 73 3a 09 09 09 |p}...bit|Maps:...|
|00001f00| 41 52 52 41 59 5b 30 2e | 2e 31 30 30 5d 20 4f 46 |ARRAY[0.|.100] OF|
|00001f10| 20 42 69 74 4d 61 70 3b | 09 09 09 09 7b 74 68 65 | BitMap;|....{the|
|00001f20| 20 62 69 74 6d 61 70 73 | 20 74 68 65 6d 73 65 6c | bitmaps| themsel|
|00001f30| 76 65 73 20 2a 2a 2a 63 | 68 65 65 7a 65 77 68 69 |ves ***c|heezewhi|
|00001f40| 7a 7d 0d 09 09 70 69 78 | 4d 61 70 73 3a 09 09 09 |z}...pix|Maps:...|
|00001f50| 41 52 52 41 59 5b 30 2e | 2e 31 30 30 5d 20 4f 46 |ARRAY[0.|.100] OF|
|00001f60| 20 50 69 78 4d 61 70 48 | 61 6e 64 6c 65 3b 09 7b | PixMapH|andle;.{|
|00001f70| 68 61 6e 64 6c 65 73 20 | 74 6f 20 70 69 78 6d 61 |handles |to pixma|
|00001f80| 70 73 20 66 6f 72 20 63 | 71 64 7d 0d 09 09 09 09 |ps for c|qd}.....|
|00001f90| 09 09 09 09 09 09 09 09 | 09 09 09 09 7b 20 30 20 |........|....{ 0 |
|00001fa0| 3d 20 73 63 72 61 74 63 | 68 2c 20 31 20 3d 20 6d |= scratc|h, 1 = m|
|00001fb0| 61 73 6b 2c 20 32 20 2d | 20 66 72 61 6d 65 43 6f |ask, 2 -| frameCo|
|00001fc0| 75 6e 74 20 3d 20 62 69 | 74 6d 61 70 73 7d 0d 09 |unt = bi|tmaps}..|
|00001fd0| 09 62 69 67 50 69 78 42 | 6c 6f 63 6b 3a 09 50 74 |.bigPixB|lock:.Pt|
|00001fe0| 72 3b 09 09 09 09 09 7b | 70 6f 69 6e 74 65 72 20 |r;.....{|pointer |
|00001ff0| 74 6f 20 62 69 67 20 70 | 69 78 6d 61 70 20 62 69 |to big p|ixmap bi|
|00002000| 74 20 64 61 74 61 7d 0d | 0d 09 09 74 68 65 57 6f |t data}.|...theWo|
|00002010| 72 6c 64 3a 09 09 09 53 | 79 73 45 6e 76 52 65 63 |rld:...S|ysEnvRec|
|00002020| 3b 09 09 7b 74 68 65 20 | 77 6f 72 6c 64 20 61 63 |;..{the |world ac|
|00002030| 63 6f 72 64 69 6e 67 20 | 74 6f 20 53 79 73 45 6e |cording |to SysEn|
|00002040| 76 69 72 6f 6e 73 7d 0d | 09 09 75 73 65 50 69 78 |virons}.|..usePix|
|00002050| 4d 61 70 73 2c 09 09 09 | 09 09 09 09 09 09 7b 75 |Maps,...|......{u|
|00002060| 73 65 20 70 69 78 65 6c | 20 6d 61 70 73 20 6f 6e |se pixel| maps on|
|00002070| 20 73 63 72 65 65 6e 73 | 20 64 65 65 70 65 72 20 | screens| deeper |
|00002080| 74 68 61 6e 20 31 20 62 | 2f 70 7d 0d 09 09 75 73 |than 1 b|/p}...us|
|00002090| 65 43 6f 6c 6f 72 2c 09 | 09 09 09 09 09 09 09 09 |eColor,.|........|
|000020a0| 09 7b 6f 6e 6c 79 20 75 | 73 65 20 63 6f 6c 6f 72 |.{only u|se color|
|000020b0| 20 69 66 20 34 20 6f 72 | 20 6d 6f 72 65 20 34 20 | if 4 or| more 4 |
|000020c0| 62 69 74 73 2f 70 69 78 | 7d 0d 09 09 75 73 65 53 |bits/pix|}...useS|
|000020d0| 68 61 64 69 6e 67 2c 09 | 09 09 09 09 09 09 09 09 |hading,.|........|
|000020e0| 7b 73 68 61 64 65 20 6f | 6e 6c 79 20 69 66 20 38 |{shade o|nly if 8|
|000020f0| 20 6f 72 20 6d 6f 72 65 | 20 62 69 74 73 2f 70 69 | or more| bits/pi|
|00002100| 78 7d 0d 09 09 6a 75 67 | 67 6c 65 72 3a 09 09 09 |x}...jug|gler:...|
|00002110| 42 6f 6f 6c 65 61 6e 3b | 09 09 09 7b 74 77 69 74 |Boolean;|...{twit|
|00002120| 63 68 65 72 20 6c 69 76 | 65 73 20 66 6c 61 67 7d |cher liv|es flag}|
|00002130| 0d 09 09 73 6c 6f 74 56 | 42 4c 3a 09 09 09 42 6f |...slotV|BL:...Bo|
|00002140| 6f 6c 65 61 6e 3b 09 09 | 09 7b 68 61 73 20 73 6c |olean;..|.{has sl|
|00002150| 6f 74 20 69 6e 74 65 72 | 72 75 70 74 73 7d 0d 0d |ot inter|rupts}..|
|00002160| 09 09 6c 61 6e 64 43 6f | 6c 6f 72 2c 09 09 09 09 |..landCo|lor,....|
|00002170| 09 09 09 09 09 7b 70 72 | 65 74 74 79 20 63 6f 6c |.....{pr|etty col|
|00002180| 6f 72 73 7d 0d 09 09 77 | 61 74 65 72 43 6f 6c 6f |ors}...w|aterColo|
|00002190| 72 2c 0d 09 09 73 70 61 | 63 65 43 6f 6c 6f 72 2c |r,...spa|ceColor,|
|000021a0| 0d 09 09 73 68 61 64 65 | 43 6f 6c 6f 72 2c 0d 09 |...shade|Color,..|
|000021b0| 09 6d 79 46 6f 72 65 43 | 6f 6c 6f 72 2c 0d 09 09 |.myForeC|olor,...|
|000021c0| 6d 79 42 61 63 6b 43 6f | 6c 6f 72 3a 09 52 47 42 |myBackCo|lor:.RGB|
|000021d0| 43 6f 6c 6f 72 3b 0d 09 | 09 6d 79 43 6f 6c 6f 72 |Color;..|.myColor|
|000021e0| 73 3a 09 09 09 43 54 61 | 62 48 61 6e 64 6c 65 3b |s:...CTa|bHandle;|
|000021f0| 09 09 7b 6d 79 20 63 6f | 6c 6f 72 20 74 61 62 6c |..{my co|lor tabl|
|00002200| 65 7d 0d 0d 09 09 64 72 | 61 67 52 65 63 74 3a 09 |e}....dr|agRect:.|
|00002210| 09 09 52 65 63 74 3b 09 | 09 09 09 09 7b 72 65 63 |..Rect;.|....{rec|
|00002220| 74 61 6e 67 6c 65 20 75 | 73 65 64 20 74 6f 20 6d |tangle u|sed to m|
|00002230| 61 72 6b 20 62 6f 75 6e | 64 73 20 66 6f 72 20 64 |ark boun|ds for d|
|00002240| 72 61 67 67 69 6e 67 20 | 77 69 6e 64 6f 77 7d 0d |ragging |window}.|
|00002250| 09 09 6d 79 4d 65 6e 75 | 73 3a 09 09 09 41 52 52 |..myMenu|s:...ARR|
|00002260| 41 59 20 5b 31 2e 2e 6d | 65 6e 75 43 6f 75 6e 74 |AY [1..m|enuCount|
|00002270| 5d 20 4f 46 20 4d 65 6e | 75 48 61 6e 64 6c 65 3b |] OF Men|uHandle;|
|00002280| 20 7b 61 72 72 61 79 20 | 6f 66 20 68 61 6e 64 6c | {array |of handl|
|00002290| 65 73 20 74 6f 20 74 68 | 65 20 6d 65 6e 75 73 7d |es to th|e menus}|
|000022a0| 0d 09 09 6d 79 57 69 6e | 64 6f 77 3a 09 09 09 57 |...myWin|dow:...W|
|000022b0| 69 6e 64 6f 77 50 74 72 | 3b 0d 09 09 6d 79 50 61 |indowPtr|;...myPa|
|000022c0| 6c 3a 09 09 09 09 50 61 | 6c 65 74 74 65 48 61 6e |l:....Pa|letteHan|
|000022d0| 64 6c 65 3b 0d 09 09 6d | 79 45 76 65 6e 74 3a 09 |dle;...m|yEvent:.|
|000022e0| 09 09 45 76 65 6e 74 52 | 65 63 6f 72 64 3b 09 7b |..EventR|ecord;.{|
|000022f0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 61 62 6f 75 |informat|ion abou|
|00002300| 74 20 61 6e 20 65 76 65 | 6e 74 7d 0d 0d 0d 20 20 |t an eve|nt}... |
|00002310| 50 52 4f 43 45 44 55 52 | 45 20 5f 44 61 74 61 49 |PROCEDUR|E _DataI|
|00002320| 6e 69 74 3b 09 09 09 09 | 09 09 09 45 58 54 45 52 |nit;....|...EXTER|
|00002330| 4e 41 4c 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 09 |NAL;..PR|OCEDURE.|
|00002340| 49 6e 73 74 61 6c 6c 56 | 42 4c 53 79 6e 63 3b 09 |InstallV|BLSync;.|
|00002350| 09 09 09 09 45 58 54 45 | 52 4e 41 4c 3b 0d 09 50 |....EXTE|RNAL;..P|
|00002360| 52 4f 43 45 44 55 52 45 | 20 52 65 6d 6f 76 65 56 |ROCEDURE| RemoveV|
|00002370| 42 4c 53 79 6e 63 3b 09 | 09 09 09 09 45 58 54 45 |BLSync;.|....EXTE|
|00002380| 52 4e 41 4c 3b 0d 09 50 | 52 4f 43 45 44 55 52 45 |RNAL;..P|ROCEDURE|
|00002390| 20 41 6c 69 67 6e 57 69 | 6e 64 6f 77 3b 09 09 09 | AlignWi|ndow;...|
|000023a0| 09 09 09 46 4f 52 57 41 | 52 44 3b 09 09 7b 75 73 |...FORWA|RD;..{us|
|000023b0| 65 64 20 62 79 20 49 6e | 69 74 69 61 6c 69 7a 65 |ed by In|itialize|
|000023c0| 7d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 55 70 64 |}..PROCE|DURE Upd|
|000023d0| 61 74 65 57 69 6e 64 6f | 77 3b 09 09 09 09 09 09 |ateWindo|w;......|
|000023e0| 46 4f 52 57 41 52 44 3b | 09 09 7b 75 73 65 64 20 |FORWARD;|..{used |
|000023f0| 62 79 20 44 72 61 77 46 | 72 61 6d 65 7d 0d 09 50 |by DrawF|rame}..P|
|00002400| 52 4f 43 45 44 55 52 45 | 20 47 65 74 44 65 66 61 |ROCEDURE| GetDefa|
|00002410| 75 6c 74 73 3b 09 09 09 | 09 09 09 46 4f 52 57 41 |ults;...|...FORWA|
|00002420| 52 44 3b 0d 09 50 52 4f | 43 45 44 55 52 45 20 53 |RD;..PRO|CEDURE S|
|00002430| 61 76 65 44 65 66 61 75 | 6c 74 73 3b 09 09 09 09 |aveDefau|lts;....|
|00002440| 09 09 46 4f 52 57 41 52 | 44 3b 0d 09 50 52 4f 43 |..FORWAR|D;..PROC|
|00002450| 45 44 55 52 45 20 43 68 | 61 6e 67 65 57 69 6e 64 |EDURE Ch|angeWind|
|00002460| 6f 77 3b 09 09 09 09 09 | 09 46 4f 52 57 41 52 44 |ow;.....|.FORWARD|
|00002470| 3b 0d 09 50 52 4f 43 45 | 44 55 52 45 20 43 68 61 |;..PROCE|DURE Cha|
|00002480| 6e 67 65 50 61 6c 65 74 | 74 65 3b 09 09 09 09 09 |ngePalet|te;.....|
|00002490| 46 4f 52 57 41 52 44 3b | 0d 09 46 55 4e 43 54 49 |FORWARD;|..FUNCTI|
|000024a0| 4f 4e 09 47 65 74 4d 79 | 44 65 76 69 63 65 3a 20 |ON.GetMy|Device: |
|000024b0| 47 44 48 61 6e 64 6c 65 | 3b 09 46 4f 52 57 41 52 |GDHandle|;.FORWAR|
|000024c0| 44 3b 0d 09 46 55 4e 43 | 54 49 4f 4e 09 47 65 74 |D;..FUNC|TION.Get|
|000024d0| 4d 79 44 69 61 6c 6f 67 | 28 69 64 3a 20 49 6e 74 |MyDialog|(id: Int|
|000024e0| 65 67 65 72 29 3a 20 44 | 69 61 6c 6f 67 50 74 72 |eger): D|ialogPtr|
|000024f0| 3b 09 46 4f 52 57 41 52 | 44 3b 0d 0d 09 7b 24 53 |;.FORWAR|D;...{$S|
|00002500| 20 49 6e 69 74 69 61 6c | 69 7a 65 7d 09 09 7b 74 | Initial|ize}..{t|
|00002510| 68 69 73 20 73 65 67 6d | 65 6e 74 20 69 73 20 64 |his segm|ent is d|
|00002520| 75 6d 70 65 64 20 61 66 | 74 65 72 20 69 6e 69 74 |umped af|ter init|
|00002530| 69 61 6c 69 7a 61 74 69 | 6f 6e 7d 0d 0d 7b 2b 2d |ializati|on}..{+-|
|00002540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 20 7c 09 09 73 |--------|-+. |..s|
|00002590| 69 6d 70 6c 69 73 74 69 | 63 20 66 61 74 61 6c 20 |implisti|c fatal |
|000025a0| 65 72 72 6f 72 20 68 61 | 6e 64 6c 65 72 20 77 69 |error ha|ndler wi|
|000025b0| 74 68 20 6e 69 63 65 20 | 63 65 6e 74 65 72 69 6e |th nice |centerin|
|000025c0| 67 09 09 09 09 09 09 09 | 09 09 09 7c 0d 20 2b 2d |g.......|...|. +-|
|000025d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 7d 0d 09 50 52 4f |--------|-+}..PRO|
|00002620| 43 45 44 55 52 45 20 46 | 61 74 61 6c 45 72 72 6f |CEDURE F|atalErro|
|00002630| 72 28 69 64 3a 20 49 6e | 74 65 67 65 72 29 3b 0d |r(id: In|teger);.|
|00002640| 0d 09 56 41 52 0d 09 09 | 64 65 76 69 63 65 52 65 |..VAR...|deviceRe|
|00002650| 63 74 3a 09 52 65 63 74 | 3b 0d 09 09 77 69 64 74 |ct:.Rect|;...widt|
|00002660| 68 3a 09 09 09 49 6e 74 | 65 67 65 72 3b 0d 09 09 |h:...Int|eger;...|
|00002670| 74 68 65 44 69 61 6c 6f | 67 3a 09 44 69 61 6c 6f |theDialo|g:.Dialo|
|00002680| 67 50 74 72 3b 0d 09 09 | 69 54 79 70 65 3a 09 09 |gPtr;...|iType:..|
|00002690| 09 49 6e 74 65 67 65 72 | 3b 0d 09 09 69 48 61 6e |.Integer|;...iHan|
|000026a0| 64 6c 65 3a 09 09 48 61 | 6e 64 6c 65 3b 0d 09 09 |dle:..Ha|ndle;...|
|000026b0| 69 42 6f 78 3a 09 09 09 | 09 52 65 63 74 3b 0d 0d |iBox:...|.Rect;..|
|000026c0| 09 42 45 47 49 4e 0d 09 | 09 53 65 74 43 75 72 73 |.BEGIN..|.SetCurs|
|000026d0| 6f 72 28 61 72 72 6f 77 | 29 3b 0d 09 09 7b 6f 70 |or(arrow|);...{op|
|000026e0| 65 6e 20 74 68 69 73 20 | 77 69 6e 64 6f 77 20 6f |en this |window o|
|000026f0| 6e 20 74 68 65 20 74 61 | 72 67 65 74 20 64 65 76 |n the ta|rget dev|
|00002700| 69 63 65 20 73 6f 20 74 | 68 65 20 50 61 6c 65 74 |ice so t|he Palet|
|00002710| 74 65 20 4d 61 6e 61 67 | 65 72 20 67 65 74 73 0d |te Manag|er gets.|
|00002720| 09 09 20 74 6f 20 73 65 | 74 20 74 68 65 20 63 6c |.. to se|t the cl|
|00002730| 75 74 20 75 70 20 70 72 | 6f 70 65 72 6c 79 20 66 |ut up pr|operly f|
|00002740| 6f 72 20 74 68 65 20 6f | 66 66 73 63 72 65 65 6e |or the o|ffscreen|
|00002750| 20 70 69 78 6d 61 70 73 | 20 7d 0d 09 20 20 74 68 | pixmaps| }.. th|
|00002760| 65 44 69 61 6c 6f 67 20 | 3a 3d 20 47 65 74 4e 65 |eDialog |:= GetNe|
|00002770| 77 44 69 61 6c 6f 67 28 | 69 64 2c 20 4e 69 6c 2c |wDialog(|id, Nil,|
|00002780| 20 57 69 6e 64 6f 77 50 | 74 72 28 20 2d 31 29 29 | WindowP|tr( -1))|
|00002790| 3b 0d 09 09 64 65 76 69 | 63 65 52 65 63 74 20 3a |;...devi|ceRect :|
|000027a0| 3d 20 47 65 74 4d 79 44 | 65 76 69 63 65 5e 5e 2e |= GetMyD|evice^^.|
|000027b0| 67 64 52 65 63 74 3b 0d | 09 09 77 69 64 74 68 20 |gdRect;.|..width |
|000027c0| 3a 3d 20 74 68 65 44 69 | 61 6c 6f 67 5e 2e 70 6f |:= theDi|alog^.po|
|000027d0| 72 74 52 65 63 74 2e 72 | 69 67 68 74 20 2d 20 74 |rtRect.r|ight - t|
|000027e0| 68 65 44 69 61 6c 6f 67 | 5e 2e 70 6f 72 74 52 65 |heDialog|^.portRe|
|000027f0| 63 74 2e 6c 65 66 74 3b | 0d 09 09 4d 6f 76 65 57 |ct.left;|...MoveW|
|00002800| 69 6e 64 6f 77 28 74 68 | 65 44 69 61 6c 6f 67 2c |indow(th|eDialog,|
|00002810| 20 28 28 28 64 65 76 69 | 63 65 52 65 63 74 2e 72 | (((devi|ceRect.r|
|00002820| 69 67 68 74 20 2d 20 64 | 65 76 69 63 65 52 65 63 |ight - d|eviceRec|
|00002830| 74 2e 6c 65 66 74 29 20 | 2d 20 77 69 64 74 68 29 |t.left) |- width)|
|00002840| 20 44 49 56 20 32 29 20 | 2b 20 64 65 76 69 63 65 | DIV 2) |+ device|
|00002850| 52 65 63 74 2e 6c 65 66 | 74 2c 0d 09 09 09 09 09 |Rect.lef|t,......|
|00002860| 09 09 09 64 65 76 69 63 | 65 52 65 63 74 2e 74 6f |...devic|eRect.to|
|00002870| 70 20 2b 20 28 28 64 65 | 76 69 63 65 52 65 63 74 |p + ((de|viceRect|
|00002880| 2e 62 6f 74 74 6f 6d 20 | 2d 20 64 65 76 69 63 65 |.bottom |- device|
|00002890| 52 65 63 74 2e 74 6f 70 | 29 20 44 49 56 20 36 29 |Rect.top|) DIV 6)|
|000028a0| 2c 20 46 61 6c 73 65 29 | 3b 0d 09 09 53 68 6f 77 |, False)|;...Show|
|000028b0| 57 69 6e 64 6f 77 28 74 | 68 65 44 69 61 6c 6f 67 |Window(t|heDialog|
|000028c0| 29 3b 0d 0d 09 09 47 65 | 74 44 49 74 65 6d 28 74 |);....Ge|tDItem(t|
|000028d0| 68 65 44 69 61 6c 6f 67 | 2c 20 6b 4f 4b 2c 20 69 |heDialog|, kOK, i|
|000028e0| 54 79 70 65 2c 20 69 48 | 61 6e 64 6c 65 2c 20 69 |Type, iH|andle, i|
|000028f0| 42 6f 78 29 3b 0d 09 09 | 53 65 74 50 6f 72 74 28 |Box);...|SetPort(|
|00002900| 74 68 65 44 69 61 6c 6f | 67 29 3b 0d 09 09 42 65 |theDialo|g);...Be|
|00002910| 67 69 6e 55 70 64 61 74 | 65 28 74 68 65 44 69 61 |ginUpdat|e(theDia|
|00002920| 6c 6f 67 29 3b 0d 09 09 | 44 72 61 77 44 69 61 6c |log);...|DrawDial|
|00002930| 6f 67 28 74 68 65 44 69 | 61 6c 6f 67 29 3b 0d 09 |og(theDi|alog);..|
|00002940| 09 50 65 6e 53 69 7a 65 | 28 33 2c 20 33 29 3b 0d |.PenSize|(3, 3);.|
|00002950| 09 09 49 6e 73 65 74 52 | 65 63 74 28 69 42 6f 78 |..InsetR|ect(iBox|
|00002960| 2c 20 2d 34 2c 20 2d 34 | 29 3b 0d 09 09 46 72 61 |, -4, -4|);...Fra|
|00002970| 6d 65 52 6f 75 6e 64 52 | 65 63 74 28 69 42 6f 78 |meRoundR|ect(iBox|
|00002980| 2c 20 31 36 2c 20 31 36 | 29 3b 0d 09 09 45 6e 64 |, 16, 16|);...End|
|00002990| 55 70 64 61 74 65 28 74 | 68 65 44 69 61 6c 6f 67 |Update(t|heDialog|
|000029a0| 29 3b 0d 0d 09 09 53 79 | 73 42 65 65 70 28 31 30 |);....Sy|sBeep(10|
|000029b0| 29 3b 0d 09 09 4d 6f 64 | 61 6c 44 69 61 6c 6f 67 |);...Mod|alDialog|
|000029c0| 28 4e 69 6c 2c 20 77 69 | 64 74 68 29 3b 0d 0d 09 |(Nil, wi|dth);...|
|000029d0| 09 45 78 69 74 54 6f 53 | 68 65 6c 6c 3b 0d 09 45 |.ExitToS|hell;..E|
|000029e0| 4e 44 3b 20 7b 46 61 74 | 61 6c 45 72 72 6f 72 7d |ND; {Fat|alError}|
|000029f0| 0d 0d 0d 7b 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...{+---|--------|
|00002a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2b |--------|-------+|
|00002a40| 0d 20 7c 09 09 69 73 20 | 74 68 65 20 74 72 61 70 |. |..is |the trap|
|00002a50| 20 61 76 61 69 6c 61 62 | 6c 65 3f 09 09 09 09 09 | availab|le?.....|
|00002a60| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00002a70| 09 09 09 7c 0d 20 2b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...|. +-|--------|
|00002a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ac0| 2d 2b 7d 0d 09 46 55 4e | 43 54 49 4f 4e 20 54 72 |-+}..FUN|CTION Tr|
|00002ad0| 61 70 45 78 69 73 74 28 | 74 3a 20 49 6e 74 65 67 |apExist(|t: Integ|
|00002ae0| 65 72 29 3a 20 42 6f 6f | 6c 65 61 6e 3b 0d 0d 09 |er): Boo|lean;...|
|00002af0| 42 45 47 49 4e 0d 09 09 | 49 46 20 47 65 74 54 72 |BEGIN...|IF GetTr|
|00002b00| 61 70 41 64 64 72 65 73 | 73 28 74 29 20 3c 3e 20 |apAddres|s(t) <> |
|00002b10| 47 65 74 54 72 61 70 41 | 64 64 72 65 73 73 28 55 |GetTrapA|ddress(U|
|00002b20| 6e 49 6d 70 6c 65 6e 74 | 65 64 54 72 61 70 29 20 |nImplent|edTrap) |
|00002b30| 54 48 45 4e 0d 09 09 09 | 54 72 61 70 45 78 69 73 |THEN....|TrapExis|
|00002b40| 74 20 3a 3d 20 54 72 75 | 65 0d 09 09 45 4c 53 45 |t := Tru|e...ELSE|
|00002b50| 0d 09 09 09 54 72 61 70 | 45 78 69 73 74 20 3a 3d |....Trap|Exist :=|
|00002b60| 20 46 61 6c 73 65 3b 0d | 09 45 4e 44 3b 20 7b 54 | False;.|.END; {T|
|00002b70| 72 61 70 45 78 69 73 74 | 7d 0d 0d 09 46 55 4e 43 |rapExist|}...FUNC|
|00002b80| 54 49 4f 4e 20 4e 65 77 | 4f 53 54 72 61 70 45 78 |TION New|OSTrapEx|
|00002b90| 69 73 74 28 74 3a 20 49 | 6e 74 65 67 65 72 29 3a |ist(t: I|nteger):|
|00002ba0| 20 42 6f 6f 6c 65 61 6e | 3b 0d 0d 09 42 45 47 49 | Boolean|;...BEGI|
|00002bb0| 4e 0d 09 09 49 46 20 4e | 47 65 74 54 72 61 70 41 |N...IF N|GetTrapA|
|00002bc0| 64 64 72 65 73 73 28 74 | 2c 20 4f 53 54 72 61 70 |ddress(t|, OSTrap|
|00002bd0| 29 20 3c 3e 20 47 65 74 | 54 72 61 70 41 64 64 72 |) <> Get|TrapAddr|
|00002be0| 65 73 73 28 55 6e 49 6d | 70 6c 65 6e 74 65 64 54 |ess(UnIm|plentedT|
|00002bf0| 72 61 70 29 20 54 48 45 | 4e 0d 09 09 09 4e 65 77 |rap) THE|N....New|
|00002c00| 4f 53 54 72 61 70 45 78 | 69 73 74 20 3a 3d 20 54 |OSTrapEx|ist := T|
|00002c10| 72 75 65 0d 09 09 45 4c | 53 45 0d 09 09 09 4e 65 |rue...EL|SE....Ne|
|00002c20| 77 4f 53 54 72 61 70 45 | 78 69 73 74 20 3a 3d 20 |wOSTrapE|xist := |
|00002c30| 46 61 6c 73 65 3b 0d 09 | 45 4e 44 3b 20 7b 4e 65 |False;..|END; {Ne|
|00002c40| 77 4f 53 54 72 61 70 45 | 78 69 73 74 7d 0d 0d 0d |wOSTrapE|xist}...|
|00002c50| 7b 2b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{+------|--------|
|00002c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2b 0d 20 7c |--------|----+. ||
|00002ca0| 09 09 72 65 74 75 72 6e | 20 61 20 52 47 42 43 6f |..return| a RGBCo|
|00002cb0| 6c 6f 72 20 72 65 63 6f | 72 64 09 09 09 09 09 09 |lor reco|rd......|
|00002cc0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00002cd0| 09 7c 0d 20 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.|. +---|--------|
|00002ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2b |--------|-------+|
|00002d20| 7d 0d 09 46 55 4e 43 54 | 49 4f 4e 20 4d 61 6b 65 |}..FUNCT|ION Make|
|00002d30| 52 47 42 43 6f 6c 6f 72 | 28 72 2c 20 67 2c 20 62 |RGBColor|(r, g, b|
|00002d40| 3a 20 49 6e 74 65 67 65 | 72 29 3a 20 52 47 42 43 |: Intege|r): RGBC|
|00002d50| 6f 6c 6f 72 3b 0d 0d 09 | 56 41 52 0d 09 09 63 6f |olor;...|VAR...co|
|00002d60| 6c 6f 72 3a 09 52 47 42 | 43 6f 6c 6f 72 3b 0d 0d |lor:.RGB|Color;..|
|00002d70| 09 42 45 47 49 4e 0d 09 | 09 57 49 54 48 20 63 6f |.BEGIN..|.WITH co|
|00002d80| 6c 6f 72 20 44 4f 0d 09 | 09 09 42 45 47 49 4e 0d |lor DO..|..BEGIN.|
|00002d90| 09 09 09 09 72 65 64 20 | 3a 3d 20 72 3b 0d 09 09 |....red |:= r;...|
|00002da0| 09 09 67 72 65 65 6e 20 | 3a 3d 20 67 3b 0d 09 09 |..green |:= g;...|
|00002db0| 09 09 62 6c 75 65 20 3a | 3d 20 62 3b 0d 09 09 09 |..blue :|= b;....|
|00002dc0| 45 4e 44 3b 0d 09 09 4d | 61 6b 65 52 47 42 43 6f |END;...M|akeRGBCo|
|00002dd0| 6c 6f 72 20 3a 3d 20 63 | 6f 6c 6f 72 3b 0d 09 45 |lor := c|olor;..E|
|00002de0| 4e 44 3b 20 7b 4d 61 6b | 65 52 47 42 43 6f 6c 6f |ND; {Mak|eRGBColo|
|00002df0| 72 7d 0d 0d 0d 7b 2b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |r}...{+-|--------|
|00002e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e40| 2d 2b 0d 20 7c 09 09 47 | 65 74 20 61 20 27 53 54 |-+. |..G|et a 'ST|
|00002e50| 52 20 27 20 52 65 73 6f | 75 72 63 65 09 09 09 09 |R ' Reso|urce....|
|00002e60| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00002e70| 09 09 09 09 09 7c 0d 20 | 2b 2d 2d 2d 2d 2d 2d 2d |.....|. |+-------|
|00002e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ec0| 2d 2d 2d 2b 7d 0d 09 46 | 55 4e 43 54 49 4f 4e 20 |---+}..F|UNCTION |
|00002ed0| 47 65 74 53 54 52 28 74 | 68 65 49 44 3a 20 49 6e |GetSTR(t|heID: In|
|00002ee0| 74 65 67 65 72 29 3a 20 | 53 74 72 32 35 35 3b 0d |teger): |Str255;.|
|00002ef0| 0d 09 56 41 52 0d 09 09 | 61 48 61 6e 64 6c 65 3a |..VAR...|aHandle:|
|00002f00| 09 48 61 6e 64 6c 65 3b | 0d 09 09 73 3a 09 09 09 |.Handle;|...s:...|
|00002f10| 09 53 74 72 32 35 35 3b | 0d 0d 09 42 45 47 49 4e |.Str255;|...BEGIN|
|00002f20| 0d 09 09 61 48 61 6e 64 | 6c 65 20 3a 3d 20 47 65 |...aHand|le := Ge|
|00002f30| 74 52 65 73 6f 75 72 63 | 65 28 27 53 54 52 20 27 |tResourc|e('STR '|
|00002f40| 2c 20 74 68 65 49 44 29 | 3b 0d 09 09 48 4c 6f 63 |, theID)|;...HLoc|
|00002f50| 6b 28 61 48 61 6e 64 6c | 65 29 3b 0d 09 09 42 6c |k(aHandl|e);...Bl|
|00002f60| 6f 63 6b 4d 6f 76 65 28 | 61 48 61 6e 64 6c 65 5e |ockMove(|aHandle^|
|00002f70| 2c 20 40 73 2c 20 53 69 | 7a 65 52 65 73 6f 75 72 |, @s, Si|zeResour|
|00002f80| 63 65 28 61 48 61 6e 64 | 6c 65 29 29 3b 0d 09 09 |ce(aHand|le));...|
|00002f90| 48 55 6e 6c 6f 63 6b 28 | 61 48 61 6e 64 6c 65 29 |HUnlock(|aHandle)|
|00002fa0| 3b 0d 09 09 52 65 6c 65 | 61 73 65 52 65 73 6f 75 |;...Rele|aseResou|
|00002fb0| 72 63 65 28 61 48 61 6e | 64 6c 65 29 3b 0d 09 09 |rce(aHan|dle);...|
|00002fc0| 47 65 74 53 54 52 20 3a | 3d 20 73 3b 0d 09 45 4e |GetSTR :|= s;..EN|
|00002fd0| 44 3b 20 7b 47 65 74 53 | 54 52 7d 0d 0d 0d 7b 2b |D; {GetS|TR}...{+|
|00002fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 20 7c 09 09 |--------|--+. |..|
|00003030| 67 69 76 65 20 74 69 6d | 65 20 74 6f 20 6f 74 68 |give tim|e to oth|
|00003040| 65 72 20 61 70 70 73 20 | 61 6e 64 20 68 61 6e 64 |er apps |and hand|
|00003050| 6c 65 20 75 70 64 61 74 | 65 73 20 6f 66 20 27 6c |le updat|es of 'l|
|00003060| 6f 61 64 69 6e 67 27 20 | 64 69 61 6c 6f 67 09 09 |oading' |dialog..|
|00003070| 09 09 7c 0d 20 2b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|. +--|--------|
|00003080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030c0| 2b 7d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 42 65 |+}..PROC|EDURE Be|
|000030d0| 4e 69 63 65 54 6f 4a 75 | 67 67 6c 65 72 3b 0d 0d |NiceToJu|ggler;..|
|000030e0| 09 56 41 52 0d 09 09 73 | 61 76 65 50 6f 72 74 3a |.VAR...s|avePort:|
|000030f0| 09 47 72 61 66 50 74 72 | 3b 0d 09 09 77 3a 09 09 |.GrafPtr|;...w:..|
|00003100| 09 09 57 69 6e 64 6f 77 | 50 74 72 3b 0d 0d 09 42 |..Window|Ptr;...B|
|00003110| 45 47 49 4e 0d 09 09 49 | 46 20 47 65 74 4e 65 78 |EGIN...I|F GetNex|
|00003120| 74 45 76 65 6e 74 28 65 | 76 65 72 79 45 76 65 6e |tEvent(e|veryEven|
|00003130| 74 2c 20 6d 79 45 76 65 | 6e 74 29 20 54 48 45 4e |t, myEve|nt) THEN|
|00003140| 0d 09 09 09 49 46 20 6d | 79 45 76 65 6e 74 2e 77 |....IF m|yEvent.w|
|00003150| 68 61 74 20 3d 20 75 70 | 64 61 74 65 45 76 74 20 |hat = up|dateEvt |
|00003160| 54 48 45 4e 0d 09 09 09 | 09 42 45 47 49 4e 0d 09 |THEN....|.BEGIN..|
|00003170| 09 09 09 09 77 20 3a 3d | 20 46 72 6f 6e 74 57 69 |....w :=| FrontWi|
|00003180| 6e 64 6f 77 3b 0d 09 09 | 09 09 09 47 65 74 50 6f |ndow;...|...GetPo|
|00003190| 72 74 28 73 61 76 65 50 | 6f 72 74 29 3b 0d 09 09 |rt(saveP|ort);...|
|000031a0| 09 09 09 53 65 74 50 6f | 72 74 28 77 29 3b 0d 09 |...SetPo|rt(w);..|
|000031b0| 09 09 09 09 42 65 67 69 | 6e 55 70 64 61 74 65 28 |....Begi|nUpdate(|
|000031c0| 77 29 3b 0d 09 09 09 09 | 09 55 70 64 74 44 69 61 |w);.....|.UpdtDia|
|000031d0| 6c 6f 67 28 77 2c 20 77 | 5e 2e 76 69 73 52 67 6e |log(w, w|^.visRgn|
|000031e0| 29 3b 0d 09 09 09 09 09 | 45 6e 64 55 70 64 61 74 |);......|EndUpdat|
|000031f0| 65 28 77 29 3b 0d 09 09 | 09 09 09 53 65 74 50 6f |e(w);...|...SetPo|
|00003200| 72 74 28 73 61 76 65 50 | 6f 72 74 29 3b 0d 09 09 |rt(saveP|ort);...|
|00003210| 09 09 45 4e 44 3b 0d 09 | 45 4e 44 3b 20 7b 42 65 |..END;..|END; {Be|
|00003220| 4e 69 63 65 54 6f 4a 75 | 67 67 6c 65 72 7d 0d 0d |NiceToJu|ggler}..|
|00003230| 0d 7b 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{+-----|--------|
|00003240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2b 0d 20 7c 09 |--------|---+. |.|
|00003280| 09 6c 6f 61 64 20 66 72 | 61 6d 65 73 20 6f 66 66 |.load fr|ames off|
|00003290| 20 64 69 73 6b 09 09 09 | 09 09 09 09 09 09 09 09 | disk...|........|
|000032a0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7c 0d 20 |........|.....|. |
|000032b0| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------|
|000032c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 7d 0d 09 50 52 4f |--------|-+}..PRO|
|00003300| 43 45 44 55 52 45 20 4c | 6f 61 64 46 72 61 6d 65 |CEDURE L|oadFrame|
|00003310| 73 3b 0d 0d 09 56 41 52 | 0d 09 09 69 2c 20 6a 2c |s;...VAR|...i, j,|
|00003320| 20 72 65 66 4e 75 6d 3a | 09 49 6e 74 65 67 65 72 | refNum:|.Integer|
|00003330| 3b 0d 09 09 64 61 74 61 | 46 6f 72 6b 53 69 7a 65 |;...data|ForkSize|
|00003340| 3a 09 6c 6f 6e 67 69 6e | 74 3b 0d 09 09 6d 79 50 |:.longin|t;...myP|
|00003350| 6f 72 74 3a 09 09 09 09 | 47 72 61 66 50 6f 72 74 |ort:....|GrafPort|
|00003360| 3b 0d 09 09 6f 6c 64 52 | 65 73 6f 75 72 63 65 3a |;...oldR|esource:|
|00003370| 09 48 61 6e 64 6c 65 3b | 0d 09 09 6d 79 50 49 43 |.Handle;|...myPIC|
|00003380| 54 3a 09 09 09 09 50 69 | 63 48 61 6e 64 6c 65 3b |T:....Pi|cHandle;|
|00003390| 0d 0d 09 09 50 52 4f 43 | 45 44 55 52 45 20 49 4f |....PROC|EDURE IO|
|000033a0| 45 72 72 6f 72 28 65 72 | 72 3a 20 4f 53 45 72 72 |Error(er|r: OSErr|
|000033b0| 29 3b 0d 0d 09 09 42 45 | 47 49 4e 0d 09 09 09 49 |);....BE|GIN....I|
|000033c0| 46 20 65 72 72 20 3c 3e | 20 6e 6f 45 72 72 20 54 |F err <>| noErr T|
|000033d0| 48 45 4e 0d 09 09 09 09 | 42 45 47 49 4e 0d 09 09 |HEN.....|BEGIN...|
|000033e0| 09 09 09 69 20 3a 3d 20 | 46 53 43 6c 6f 73 65 28 |...i := |FSClose(|
|000033f0| 72 65 66 4e 75 6d 29 3b | 09 09 7b 63 6c 6f 73 65 |refNum);|..{close|
|00003400| 20 66 69 6c 65 2c 20 6a | 75 73 74 20 69 6e 20 63 | file, j|ust in c|
|00003410| 61 73 65 7d 0d 09 09 09 | 09 09 46 61 74 61 6c 45 |ase}....|..FatalE|
|00003420| 72 72 6f 72 28 69 6f 45 | 72 72 6f 72 49 44 29 3b |rror(ioE|rrorID);|
|00003430| 0d 09 09 09 09 45 4e 44 | 3b 0d 09 09 45 4e 44 3b |.....END|;...END;|
|00003440| 20 7b 49 4f 45 72 72 6f | 72 7d 0d 0d 09 42 45 47 | {IOErro|r}...BEG|
|00003450| 49 4e 0d 09 09 49 4f 45 | 72 72 6f 72 28 46 53 4f |IN...IOE|rror(FSO|
|00003460| 70 65 6e 28 66 72 61 6d | 65 46 69 6c 65 2c 20 30 |pen(fram|eFile, 0|
|00003470| 2c 20 72 65 66 4e 75 6d | 29 29 3b 0d 09 09 49 4f |, refNum|));...IO|
|00003480| 45 72 72 6f 72 28 47 65 | 74 45 4f 46 28 72 65 66 |Error(Ge|tEOF(ref|
|00003490| 4e 75 6d 2c 20 64 61 74 | 61 46 6f 72 6b 53 69 7a |Num, dat|aForkSiz|
|000034a0| 65 29 29 3b 0d 0d 09 09 | 49 46 20 64 61 74 61 46 |e));....|IF dataF|
|000034b0| 6f 72 6b 53 69 7a 65 20 | 3c 3e 20 30 20 54 48 45 |orkSize |<> 0 THE|
|000034c0| 4e 0d 09 09 09 46 4f 52 | 20 69 20 3a 3d 20 31 20 |N....FOR| i := 1 |
|000034d0| 54 4f 20 66 72 61 6d 65 | 43 6f 75 6e 74 20 44 4f |TO frame|Count DO|
|000034e0| 0d 09 09 09 09 42 45 47 | 49 4e 0d 09 09 09 09 09 |.....BEG|IN......|
|000034f0| 49 4f 45 72 72 6f 72 28 | 46 53 52 65 61 64 28 72 |IOError(|FSRead(r|
|00003500| 65 66 4e 75 6d 2c 20 66 | 72 61 6d 65 53 69 7a 65 |efNum, f|rameSize|
|00003510| 2c 20 62 69 74 4d 61 70 | 73 5b 69 5d 2e 62 61 73 |, bitMap|s[i].bas|
|00003520| 65 41 64 64 72 29 29 3b | 0d 09 09 09 09 09 42 65 |eAddr));|......Be|
|00003530| 4e 69 63 65 54 6f 4a 75 | 67 67 6c 65 72 3b 0d 09 |NiceToJu|ggler;..|
|00003540| 09 09 09 09 53 70 69 6e | 43 75 72 73 6f 72 28 33 |....Spin|Cursor(3|
|00003550| 32 29 3b 09 09 7b 73 70 | 69 6e 20 6d 79 20 62 65 |2);..{sp|in my be|
|00003560| 61 63 68 62 61 6c 6c 7d | 0d 09 09 09 45 4e 44 3b |achball}|....END;|
|00003570| 0d 0d 09 09 49 4f 45 72 | 72 6f 72 28 53 65 74 45 |....IOEr|ror(SetE|
|00003580| 4f 46 28 72 65 66 4e 75 | 6d 2c 20 30 29 29 3b 09 |OF(refNu|m, 0));.|
|00003590| 09 09 09 09 09 7b 74 72 | 75 6e 63 61 74 65 20 74 |.....{tr|uncate t|
|000035a0| 68 65 20 64 61 74 61 20 | 66 69 6c 65 7d 0d 09 09 |he data |file}...|
|000035b0| 49 4f 45 72 72 6f 72 28 | 46 53 43 6c 6f 73 65 28 |IOError(|FSClose(|
|000035c0| 72 65 66 4e 75 6d 29 29 | 3b 0d 0d 09 09 4f 70 65 |refNum))|;....Ope|
|000035d0| 6e 50 6f 72 74 28 40 6d | 79 50 6f 72 74 29 3b 0d |nPort(@m|yPort);.|
|000035e0| 09 09 72 65 66 4e 75 6d | 20 3a 3d 20 4f 70 65 6e |..refNum| := Open|
|000035f0| 52 65 73 46 69 6c 65 28 | 66 72 61 6d 65 46 69 6c |ResFile(|frameFil|
|00003600| 65 29 3b 0d 09 09 55 73 | 65 52 65 73 46 69 6c 65 |e);...Us|eResFile|
|00003610| 28 72 65 66 4e 75 6d 29 | 3b 0d 0d 09 09 6a 20 3a |(refNum)|;....j :|
|00003620| 3d 20 31 3b 0d 09 09 49 | 46 20 64 61 74 61 46 6f |= 1;...I|F dataFo|
|00003630| 72 6b 53 69 7a 65 20 3d | 20 30 20 54 48 45 4e 0d |rkSize =| 0 THEN.|
|00003640| 09 09 09 46 4f 52 20 69 | 20 3a 3d 20 31 20 54 4f |...FOR i| := 1 TO|
|00003650| 20 66 72 61 6d 65 43 6f | 75 6e 74 20 44 4f 0d 09 | frameCo|unt DO..|
|00003660| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 09 52 45 |...BEGIN|......RE|
|00003670| 50 45 41 54 09 09 09 09 | 09 09 09 09 09 09 09 09 |PEAT....|........|
|00003680| 09 7b 74 68 69 73 20 6c | 69 74 74 6c 65 20 64 69 |.{this l|ittle di|
|00003690| 74 74 79 20 61 6c 6c 6f | 77 73 20 66 6f 72 20 73 |tty allo|ws for s|
|000036a0| 70 61 72 73 65 20 50 49 | 43 54 20 6e 75 6d 62 65 |parse PI|CT numbe|
|000036b0| 72 69 6e 67 7d 0d 09 09 | 09 09 09 09 6d 79 50 69 |ring}...|....myPi|
|000036c0| 63 74 20 3a 3d 20 50 69 | 63 48 61 6e 64 6c 65 28 |ct := Pi|cHandle(|
|000036d0| 47 65 74 31 52 65 73 6f | 75 72 63 65 28 27 50 49 |Get1Reso|urce('PI|
|000036e0| 43 54 27 2c 20 6b 46 69 | 72 73 74 50 49 43 54 20 |CT', kFi|rstPICT |
|000036f0| 2b 20 6a 20 2d 20 31 29 | 29 3b 0d 09 09 09 09 09 |+ j - 1)|);......|
|00003700| 09 49 46 20 6d 79 50 49 | 43 54 20 3d 20 4e 69 6c |.IF myPI|CT = Nil|
|00003710| 20 54 48 45 4e 0d 09 09 | 09 09 09 09 09 6a 20 3a | THEN...|.....j :|
|00003720| 3d 20 6a 20 2b 20 31 3b | 0d 09 09 09 09 09 55 4e |= j + 1;|......UN|
|00003730| 54 49 4c 20 28 28 6d 79 | 50 69 63 74 20 3c 3e 20 |TIL ((my|Pict <> |
|00003740| 4e 69 6c 29 20 4f 52 20 | 28 6a 20 3d 20 31 30 30 |Nil) OR |(j = 100|
|00003750| 30 29 29 3b 0d 0d 09 09 | 09 09 09 6a 20 3a 3d 20 |0));....|...j := |
|00003760| 6a 20 2b 20 31 3b 0d 09 | 09 09 09 09 53 65 74 50 |j + 1;..|....SetP|
|00003770| 6f 72 74 42 69 74 73 28 | 62 69 74 4d 61 70 73 5b |ortBits(|bitMaps[|
|00003780| 69 5d 29 3b 0d 09 09 09 | 09 09 6d 79 50 6f 72 74 |i]);....|..myPort|
|00003790| 2e 70 6f 72 74 52 65 63 | 74 20 3a 3d 20 62 69 74 |.portRec|t := bit|
|000037a0| 4d 61 70 73 5b 69 5d 2e | 62 6f 75 6e 64 73 3b 0d |Maps[i].|bounds;.|
|000037b0| 09 09 09 09 09 45 72 61 | 73 65 52 65 63 74 28 74 |.....Era|seRect(t|
|000037c0| 68 65 50 6f 72 74 5e 2e | 70 6f 72 74 52 65 63 74 |hePort^.|portRect|
|000037d0| 29 3b 0d 09 09 09 09 09 | 44 72 61 77 50 69 63 74 |);......|DrawPict|
|000037e0| 75 72 65 28 6d 79 50 49 | 43 54 2c 20 74 68 65 50 |ure(myPI|CT, theP|
|000037f0| 6f 72 74 5e 2e 70 6f 72 | 74 52 65 63 74 29 3b 0d |ort^.por|tRect);.|
|00003800| 09 09 09 09 09 42 65 4e | 69 63 65 54 6f 4a 75 67 |.....BeN|iceToJug|
|00003810| 67 6c 65 72 3b 0d 09 09 | 09 09 09 53 70 69 6e 43 |gler;...|...SpinC|
|00003820| 75 72 73 6f 72 28 33 32 | 29 3b 09 09 7b 73 70 69 |ursor(32|);..{spi|
|00003830| 6e 20 6d 79 20 62 65 61 | 63 68 62 61 6c 6c 7d 0d |n my bea|chball}.|
|00003840| 09 09 09 45 4e 44 0d 09 | 09 45 4c 53 45 0d 09 09 |...END..|.ELSE...|
|00003850| 09 46 4f 52 20 69 20 3a | 3d 20 31 20 54 4f 20 66 |.FOR i :|= 1 TO f|
|00003860| 72 61 6d 65 43 6f 75 6e | 74 20 44 4f 0d 09 09 09 |rameCoun|t DO....|
|00003870| 09 42 45 47 49 4e 0d 09 | 09 09 09 09 43 6c 69 70 |.BEGIN..|....Clip|
|00003880| 52 65 63 74 28 62 69 74 | 4d 61 70 73 5b 69 5d 2e |Rect(bit|Maps[i].|
|00003890| 62 6f 75 6e 64 73 29 3b | 0d 09 09 09 09 09 6d 79 |bounds);|......my|
|000038a0| 50 69 63 74 20 3a 3d 20 | 4f 70 65 6e 50 69 63 74 |Pict := |OpenPict|
|000038b0| 75 72 65 28 62 69 74 4d | 61 70 73 5b 69 5d 2e 62 |ure(bitM|aps[i].b|
|000038c0| 6f 75 6e 64 73 29 3b 0d | 09 09 09 09 09 43 6f 70 |ounds);.|.....Cop|
|000038d0| 79 42 69 74 73 28 62 69 | 74 4d 61 70 73 5b 69 5d |yBits(bi|tMaps[i]|
|000038e0| 2c 20 74 68 65 50 6f 72 | 74 5e 2e 70 6f 72 74 42 |, thePor|t^.portB|
|000038f0| 69 74 73 2c 20 62 69 74 | 4d 61 70 73 5b 69 5d 2e |its, bit|Maps[i].|
|00003900| 62 6f 75 6e 64 73 2c 20 | 62 69 74 4d 61 70 73 5b |bounds, |bitMaps[|
|00003910| 69 5d 2e 62 6f 75 6e 64 | 73 2c 20 73 72 63 43 6f |i].bound|s, srcCo|
|00003920| 70 79 2c 20 6e 69 6c 29 | 3b 0d 09 09 09 09 09 43 |py, nil)|;......C|
|00003930| 6c 6f 73 65 50 69 63 74 | 75 72 65 3b 0d 09 0d 09 |losePict|ure;....|
|00003940| 09 09 09 09 52 45 50 45 | 41 54 0d 09 09 09 09 09 |....REPE|AT......|
|00003950| 09 53 65 74 52 65 73 4c | 6f 61 64 28 46 61 6c 73 |.SetResL|oad(Fals|
|00003960| 65 29 3b 0d 09 09 09 09 | 09 09 6f 6c 64 52 65 73 |e);.....|..oldRes|
|00003970| 6f 75 72 63 65 20 3a 3d | 20 47 65 74 31 52 65 73 |ource :=| Get1Res|
|00003980| 6f 75 72 63 65 28 27 50 | 49 43 54 27 2c 20 6b 46 |ource('P|ICT', kF|
|00003990| 69 72 73 74 50 49 43 54 | 20 2b 20 69 20 2d 20 31 |irstPICT| + i - 1|
|000039a0| 29 3b 0d 09 09 09 09 09 | 09 53 65 74 52 65 73 4c |);......|.SetResL|
|000039b0| 6f 61 64 28 54 72 75 65 | 29 3b 0d 09 09 09 09 09 |oad(True|);......|
|000039c0| 09 52 6d 76 65 52 65 73 | 6f 75 72 63 65 28 6f 6c |.RmveRes|ource(ol|
|000039d0| 64 52 65 73 6f 75 72 63 | 65 29 3b 0d 09 09 09 09 |dResourc|e);.....|
|000039e0| 09 09 44 69 73 70 6f 73 | 48 61 6e 64 6c 65 28 6f |..Dispos|Handle(o|
|000039f0| 6c 64 52 65 73 6f 75 72 | 63 65 29 3b 0d 09 09 09 |ldResour|ce);....|
|00003a00| 09 09 55 4e 54 49 4c 20 | 6f 6c 64 52 65 73 6f 75 |..UNTIL |oldResou|
|00003a10| 72 63 65 20 3d 20 4e 69 | 6c 3b 0d 09 0d 09 09 09 |rce = Ni|l;......|
|00003a20| 09 09 41 64 64 52 65 73 | 6f 75 72 63 65 28 48 61 |..AddRes|ource(Ha|
|00003a30| 6e 64 6c 65 28 6d 79 50 | 49 43 54 29 2c 20 27 50 |ndle(myP|ICT), 'P|
|00003a40| 49 43 54 27 2c 20 6b 46 | 69 72 73 74 50 49 43 54 |ICT', kF|irstPICT|
|00003a50| 20 2b 20 69 20 2d 20 31 | 2c 20 27 27 29 3b 0d 09 | + i - 1|, '');..|
|00003a60| 09 09 09 09 53 65 74 52 | 65 73 41 74 74 72 73 28 |....SetR|esAttrs(|
|00003a70| 48 61 6e 64 6c 65 28 6d | 79 50 49 43 54 29 2c 20 |Handle(m|yPICT), |
|00003a80| 72 65 73 50 75 72 67 65 | 61 62 6c 65 20 2b 20 72 |resPurge|able + r|
|00003a90| 65 73 43 68 61 6e 67 65 | 64 29 3b 0d 09 0d 09 09 |esChange|d);.....|
|00003aa0| 09 09 09 42 65 4e 69 63 | 65 54 6f 4a 75 67 67 6c |...BeNic|eToJuggl|
|00003ab0| 65 72 3b 0d 09 09 09 09 | 09 53 70 69 6e 43 75 72 |er;.....|.SpinCur|
|00003ac0| 73 6f 72 28 33 32 29 3b | 09 09 7b 73 70 69 6e 20 |sor(32);|..{spin |
|00003ad0| 6d 79 20 62 65 61 63 68 | 62 61 6c 6c 7d 0d 09 09 |my beach|ball}...|
|00003ae0| 09 45 4e 44 3b 0d 0d 09 | 09 55 70 64 61 74 65 52 |.END;...|.UpdateR|
|00003af0| 65 73 46 69 6c 65 28 72 | 65 66 4e 75 6d 29 3b 0d |esFile(r|efNum);.|
|00003b00| 09 09 49 46 20 72 65 66 | 4e 75 6d 20 3c 3e 20 61 |..IF ref|Num <> a|
|00003b10| 70 70 52 65 66 4e 75 6d | 20 54 48 45 4e 0d 09 09 |ppRefNum| THEN...|
|00003b20| 09 43 6c 6f 73 65 52 65 | 73 46 69 6c 65 28 72 65 |.CloseRe|sFile(re|
|00003b30| 66 4e 75 6d 29 3b 0d 09 | 45 4e 44 3b 20 7b 4c 6f |fNum);..|END; {Lo|
|00003b40| 61 64 46 72 61 6d 65 73 | 7d 0d 0d 0d 7b 2b 2d 2d |adFrames|}...{+--|
|00003b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2b 0d 20 7c 09 09 70 72 |--------|+. |..pr|
|00003ba0| 6f 63 65 73 73 20 6d 6f | 6e 6f 20 62 69 74 6d 61 |ocess mo|no bitma|
|00003bb0| 70 73 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |ps......|........|
|00003bc0| 09 09 09 09 09 09 09 09 | 09 09 09 7c 0d 20 2b 2d |........|...|. +-|
|00003bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 7d 0d 09 50 52 4f |--------|-+}..PRO|
|00003c20| 43 45 44 55 52 45 20 50 | 72 6f 63 65 73 73 42 69 |CEDURE P|rocessBi|
|00003c30| 74 4d 61 70 73 3b 0d 0d | 09 56 41 52 0d 09 09 74 |tMaps;..|.VAR...t|
|00003c40| 50 6f 72 74 3a 09 47 72 | 61 66 50 6f 72 74 3b 0d |Port:.Gr|afPort;.|
|00003c50| 09 09 69 3a 09 09 09 49 | 6e 74 65 67 65 72 3b 0d |..i:...I|nteger;.|
|00003c60| 0d 09 42 45 47 49 4e 0d | 09 09 4f 70 65 6e 50 6f |..BEGIN.|..OpenPo|
|00003c70| 72 74 28 40 74 50 6f 72 | 74 29 3b 0d 09 09 53 65 |rt(@tPor|t);...Se|
|00003c80| 74 50 6f 72 74 42 69 74 | 73 28 62 69 74 4d 61 70 |tPortBit|s(bitMap|
|00003c90| 73 5b 30 5d 29 3b 09 7b | 73 63 72 61 74 63 68 20 |s[0]);.{|scratch |
|00003ca0| 6d 61 70 7d 0d 09 09 50 | 65 6e 50 61 74 28 6c 74 |map}...P|enPat(lt|
|00003cb0| 47 72 61 79 29 3b 0d 09 | 09 50 61 69 6e 74 52 65 |Gray);..|.PaintRe|
|00003cc0| 63 74 28 66 72 61 6d 65 | 42 6f 75 6e 64 73 29 3b |ct(frame|Bounds);|
|00003cd0| 0d 09 09 43 6c 6f 73 65 | 50 6f 72 74 28 40 74 50 |...Close|Port(@tP|
|00003ce0| 6f 72 74 29 3b 0d 0d 09 | 09 43 6f 70 79 42 69 74 |ort);...|.CopyBit|
|00003cf0| 73 28 62 69 74 4d 61 70 | 73 5b 30 5d 2c 20 62 69 |s(bitMap|s[0], bi|
|00003d00| 74 4d 61 70 73 5b 31 5d | 2c 20 66 72 61 6d 65 42 |tMaps[1]|, frameB|
|00003d10| 6f 75 6e 64 73 2c 20 66 | 72 61 6d 65 42 6f 75 6e |ounds, f|rameBoun|
|00003d20| 64 73 2c 20 6e 6f 74 53 | 72 63 42 69 63 2c 20 4e |ds, notS|rcBic, N|
|00003d30| 69 6c 29 3b 0d 09 09 46 | 4f 52 20 69 20 3a 3d 20 |il);...F|OR i := |
|00003d40| 32 20 54 4f 20 66 72 61 | 6d 65 43 6f 75 6e 74 20 |2 TO fra|meCount |
|00003d50| 44 4f 0d 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |DO....BE|GIN.....|
|00003d60| 43 6f 70 79 42 69 74 73 | 28 62 69 74 4d 61 70 73 |CopyBits|(bitMaps|
|00003d70| 5b 31 5d 2c 20 62 69 74 | 4d 61 70 73 5b 69 5d 2c |[1], bit|Maps[i],|
|00003d80| 20 66 72 61 6d 65 42 6f | 75 6e 64 73 2c 20 66 72 | frameBo|unds, fr|
|00003d90| 61 6d 65 42 6f 75 6e 64 | 73 2c 20 73 72 63 4f 72 |ameBound|s, srcOr|
|00003da0| 2c 20 4e 69 6c 29 3b 0d | 09 09 09 09 42 65 4e 69 |, Nil);.|....BeNi|
|00003db0| 63 65 54 6f 4a 75 67 67 | 6c 65 72 3b 0d 09 09 09 |ceToJugg|ler;....|
|00003dc0| 09 53 70 69 6e 43 75 72 | 73 6f 72 28 33 32 29 3b |.SpinCur|sor(32);|
|00003dd0| 0d 09 09 09 45 4e 44 3b | 0d 09 45 4e 44 3b 20 7b |....END;|..END; {|
|00003de0| 50 72 6f 63 65 73 73 42 | 69 74 4d 61 70 73 7d 0d |ProcessB|itMaps}.|
|00003df0| 0d 0d 7b 2b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..{+----|--------|
|00003e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2b 0d |--------|------+.|
|00003e40| 20 7c 09 09 70 72 6f 63 | 65 73 73 20 6d 6f 6e 6f | |..proc|ess mono|
|00003e50| 20 62 69 74 6d 61 70 73 | 20 69 6e 74 6f 20 70 69 | bitmaps| into pi|
|00003e60| 78 6d 61 70 73 20 61 6e | 64 20 63 6f 6c 6f 72 20 |xmaps an|d color |
|00003e70| 74 68 65 6d 20 69 66 20 | 61 70 70 72 6f 70 72 69 |them if |appropri|
|00003e80| 61 74 65 09 09 09 09 7c | 0d 20 2b 2d 2d 2d 2d 2d |ate....||. +-----|
|00003e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ed0| 2d 2d 2d 2d 2d 2b 7d 0d | 09 50 52 4f 43 45 44 55 |-----+}.|.PROCEDU|
|00003ee0| 52 45 20 50 72 6f 63 65 | 73 73 50 69 78 4d 61 70 |RE Proce|ssPixMap|
|00003ef0| 73 3b 0d 0d 09 43 4f 4e | 53 54 0d 09 09 6b 53 68 |s;...CON|ST...kSh|
|00003f00| 61 64 65 52 61 6e 67 65 | 20 3d 20 24 30 65 30 30 |adeRange| = $0e00|
|00003f10| 30 3b 09 09 09 09 09 7b | 66 72 6f 6d 20 77 68 69 |0;.....{|from whi|
|00003f20| 74 65 2d 6b 45 64 67 65 | 53 68 61 64 65 7d 0d 09 |te-kEdge|Shade}..|
|00003f30| 09 6b 45 64 67 65 53 68 | 61 64 65 09 3d 20 24 30 |.kEdgeSh|ade.= $0|
|00003f40| 31 66 66 66 3b 0d 0d 09 | 56 41 52 0d 09 09 69 2c |1fff;...|VAR...i,|
|00003f50| 20 6a 2c 20 6b 3a 09 49 | 6e 74 65 67 65 72 3b 0d | j, k:.I|nteger;.|
|00003f60| 09 09 74 52 65 63 74 3a | 09 09 52 65 63 74 3b 0d |..tRect:|..Rect;.|
|00003f70| 09 09 74 43 50 6f 72 74 | 3a 09 09 43 47 72 61 66 |..tCPort|:..CGraf|
|00003f80| 50 6f 72 74 3b 0d 09 09 | 74 48 61 6e 64 6c 65 3a |Port;...|tHandle:|
|00003f90| 09 50 69 78 4d 61 70 48 | 61 6e 64 6c 65 3b 0d 09 |.PixMapH|andle;..|
|00003fa0| 09 73 68 61 64 65 50 61 | 74 3a 09 50 69 78 50 61 |.shadePa|t:.PixPa|
|00003fb0| 74 48 61 6e 64 6c 65 3b | 0d 09 09 73 68 61 64 65 |tHandle;|...shade|
|00003fc0| 53 74 65 70 2c 20 73 68 | 61 64 65 3a 09 46 69 78 |Step, sh|ade:.Fix|
|00003fd0| 65 64 3b 0d 09 09 62 69 | 67 4e 75 6d 3a 09 09 4c |ed;...bi|gNum:..L|
|00003fe0| 6f 6e 67 49 6e 74 3b 0d | 09 09 73 61 76 65 47 44 |ongInt;.|..saveGD|
|00003ff0| 65 76 69 63 65 3a 09 47 | 44 48 61 6e 64 6c 65 3b |evice:.G|DHandle;|
|00004000| 0d 0d 09 42 45 47 49 4e | 0d 09 09 73 61 76 65 47 |...BEGIN|...saveG|
|00004010| 44 65 76 69 63 65 20 3a | 3d 20 47 65 74 47 44 65 |Device :|= GetGDe|
|00004020| 76 69 63 65 3b 0d 09 09 | 53 65 74 47 44 65 76 69 |vice;...|SetGDevi|
|00004030| 63 65 28 47 65 74 4d 79 | 44 65 76 69 63 65 29 3b |ce(GetMy|Device);|
|00004040| 09 09 09 7b 6d 61 6b 65 | 20 73 75 72 65 20 77 65 |...{make| sure we|
|00004050| d5 72 65 20 6f 6e 20 74 | 68 65 20 74 61 72 67 65 |.re on t|he targe|
|00004060| 74 20 64 65 76 69 63 65 | 7d 0d 09 09 43 68 61 6e |t device|}...Chan|
|00004070| 67 65 50 61 6c 65 74 74 | 65 3b 09 09 09 09 09 09 |gePalett|e;......|
|00004080| 09 09 7b 66 6f 72 20 35 | 20 62 69 74 20 69 6e 76 |..{for 5| bit inv|
|00004090| 65 72 73 65 20 74 61 62 | 6c 65 20 74 6f 20 62 65 |erse tab|le to be|
|000040a0| 20 62 75 69 6c 74 2f 63 | 75 72 72 65 6e 74 7d 0d | built/c|urrent}.|
|000040b0| 0d 09 09 4f 70 65 6e 43 | 50 6f 72 74 28 40 74 43 |...OpenC|Port(@tC|
|000040c0| 50 6f 72 74 29 3b 09 09 | 09 09 09 09 7b 6f 70 65 |Port);..|....{ope|
|000040d0| 6e 20 74 68 69 73 20 70 | 6f 72 74 20 73 6f 20 77 |n this p|ort so w|
|000040e0| 65 20 63 61 6e 20 63 68 | 61 6e 67 65 20 63 6f 6c |e can ch|ange col|
|000040f0| 6f 72 73 7d 0d 09 09 74 | 48 61 6e 64 6c 65 20 3a |ors}...t|Handle :|
|00004100| 3d 20 74 43 50 6f 72 74 | 2e 70 6f 72 74 50 69 78 |= tCPort|.portPix|
|00004110| 4d 61 70 3b 09 7b 73 61 | 76 65 20 70 6f 72 74 50 |Map;.{sa|ve portP|
|00004120| 69 78 4d 61 70 20 73 69 | 6e 63 65 20 69 74 27 73 |ixMap si|nce it's|
|00004130| 20 67 6f 69 6e 67 20 74 | 6f 20 63 68 61 6e 67 65 | going t|o change|
|00004140| 7d 0d 0d 09 09 7b 63 6f | 70 79 20 62 69 74 4d 61 |}....{co|py bitMa|
|00004150| 70 73 20 74 6f 20 70 69 | 78 4d 61 70 73 20 61 6e |ps to pi|xMaps an|
|00004160| 64 20 6c 65 74 20 43 6f | 70 79 42 69 74 73 20 63 |d let Co|pyBits c|
|00004170| 6f 6c 6f 72 20 74 68 65 | 6d 20 69 6e 20 74 68 65 |olor the|m in the|
|00004180| 20 70 72 6f 63 65 73 73 | 7d 0d 09 09 49 46 20 75 | process|}...IF u|
|00004190| 73 65 43 6f 6c 6f 72 20 | 54 48 45 4e 0d 09 09 09 |seColor |THEN....|
|000041a0| 42 45 47 49 4e 0d 09 09 | 09 09 52 47 42 46 6f 72 |BEGIN...|..RGBFor|
|000041b0| 65 43 6f 6c 6f 72 28 6c | 61 6e 64 43 6f 6c 6f 72 |eColor(l|andColor|
|000041c0| 29 3b 0d 09 09 09 09 52 | 47 42 42 61 63 6b 43 6f |);.....R|GBBackCo|
|000041d0| 6c 6f 72 28 77 61 74 65 | 72 43 6f 6c 6f 72 29 3b |lor(wate|rColor);|
|000041e0| 0d 09 09 09 45 4e 44 0d | 09 09 45 4c 53 45 0d 09 |....END.|..ELSE..|
|000041f0| 09 09 42 45 47 49 4e 0d | 09 09 09 09 52 47 42 46 |..BEGIN.|....RGBF|
|00004200| 6f 72 65 43 6f 6c 6f 72 | 28 6d 79 46 6f 72 65 43 |oreColor|(myForeC|
|00004210| 6f 6c 6f 72 29 3b 09 7b | 62 6c 61 63 6b 20 61 6e |olor);.{|black an|
|00004220| 64 20 77 68 69 74 65 20 | 6f 6e 6c 79 20 66 6f 72 |d white |only for|
|00004230| 20 32 20 62 69 74 73 2f | 70 69 78 65 6c 7d 0d 09 | 2 bits/|pixel}..|
|00004240| 09 09 09 52 47 42 42 61 | 63 6b 43 6f 6c 6f 72 28 |...RGBBa|ckColor(|
|00004250| 6d 79 42 61 63 6b 43 6f | 6c 6f 72 29 3b 0d 09 09 |myBackCo|lor);...|
|00004260| 09 45 4e 44 3b 0d 09 09 | 46 4f 52 20 69 20 3a 3d |.END;...|FOR i :=|
|00004270| 20 31 20 54 6f 20 66 72 | 61 6d 65 43 6f 75 6e 74 | 1 To fr|ameCount|
|00004280| 20 44 4f 0d 09 09 09 42 | 45 47 49 4e 0d 09 09 09 | DO....B|EGIN....|
|00004290| 09 43 6f 70 79 42 69 74 | 73 28 62 69 74 4d 61 70 |.CopyBit|s(bitMap|
|000042a0| 73 5b 69 5d 2c 20 42 69 | 74 4d 61 70 50 74 72 28 |s[i], Bi|tMapPtr(|
|000042b0| 70 69 78 4d 61 70 73 5b | 69 5d 5e 29 5e 2c 0d 09 |pixMaps[|i]^)^,..|
|000042c0| 09 09 09 09 09 09 09 09 | 66 72 61 6d 65 42 6f 75 |........|frameBou|
|000042d0| 6e 64 73 2c 20 66 72 61 | 6d 65 42 6f 75 6e 64 73 |nds, fra|meBounds|
|000042e0| 2c 20 73 72 63 43 6f 70 | 79 2c 20 4e 69 6c 29 3b |, srcCop|y, Nil);|
|000042f0| 0d 09 09 09 09 42 65 4e | 69 63 65 54 6f 4a 75 67 |.....BeN|iceToJug|
|00004300| 67 6c 65 72 3b 0d 09 09 | 09 09 53 70 69 6e 43 75 |gler;...|..SpinCu|
|00004310| 72 73 6f 72 28 33 32 29 | 3b 0d 09 09 09 45 4e 44 |rsor(32)|;....END|
|00004320| 3b 0d 0d 09 09 7b 6c 6f | 67 69 63 61 6c 6c 79 20 |;....{lo|gically |
|00004330| 6f 72 20 74 68 65 20 6d | 61 73 6b 20 6f 76 65 72 |or the m|ask over|
|00004340| 20 28 61 72 6f 75 6e 64 | 29 20 67 6c 6f 62 65 20 | (around|) globe |
|00004350| 66 6f 72 20 62 61 63 6b | 67 72 6f 75 6e 64 7d 0d |for back|ground}.|
|00004360| 09 09 52 47 42 46 6f 72 | 65 43 6f 6c 6f 72 28 73 |..RGBFor|eColor(s|
|00004370| 70 61 63 65 43 6f 6c 6f | 72 29 3b 09 7b 61 6c 77 |paceColo|r);.{alw|
|00004380| 61 79 73 20 74 72 79 20 | 66 6f 72 20 67 72 61 79 |ays try |for gray|
|00004390| 7d 0d 09 09 46 4f 52 20 | 69 20 3a 3d 20 32 20 54 |}...FOR |i := 2 T|
|000043a0| 6f 20 66 72 61 6d 65 43 | 6f 75 6e 74 20 44 4f 0d |o frameC|ount DO.|
|000043b0| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 43 6f 70 |...BEGIN|.....Cop|
|000043c0| 79 42 69 74 73 28 62 69 | 74 4d 61 70 73 5b 31 5d |yBits(bi|tMaps[1]|
|000043d0| 2c 20 42 69 74 4d 61 70 | 50 74 72 28 70 69 78 4d |, BitMap|Ptr(pixM|
|000043e0| 61 70 73 5b 69 5d 5e 29 | 5e 2c 09 7b 2a 2a 2a 71 |aps[i]^)|^,.{***q|
|000043f0| 75 69 63 6b 65 72 20 74 | 6f 20 75 73 65 20 70 69 |uicker t|o use pi|
|00004400| 78 6d 61 70 73 20 6f 6e | 6c 79 3f 7d 0d 09 09 09 |xmaps on|ly?}....|
|00004410| 09 09 09 09 09 20 66 72 | 61 6d 65 42 6f 75 6e 64 |..... fr|ameBound|
|00004420| 73 2c 20 66 72 61 6d 65 | 42 6f 75 6e 64 73 2c 20 |s, frame|Bounds, |
|00004430| 73 72 63 4f 72 2c 20 4e | 69 6c 29 3b 0d 09 09 09 |srcOr, N|il);....|
|00004440| 09 42 65 4e 69 63 65 54 | 6f 4a 75 67 67 6c 65 72 |.BeNiceT|oJuggler|
|00004450| 3b 0d 09 09 09 09 53 70 | 69 6e 43 75 72 73 6f 72 |;.....Sp|inCursor|
|00004460| 28 33 32 29 3b 0d 09 09 | 09 45 4e 44 3b 0d 0d 09 |(32);...|.END;...|
|00004470| 09 7b 73 68 61 64 65 20 | 69 74 20 6e 69 63 65 6c |.{shade |it nicel|
|00004480| 79 7d 0d 09 09 49 46 20 | 75 73 65 53 68 61 64 69 |y}...IF |useShadi|
|00004490| 6e 67 20 54 48 45 4e 0d | 09 09 09 42 45 47 49 4e |ng THEN.|...BEGIN|
|000044a0| 0d 09 09 09 09 53 65 74 | 50 6f 72 74 50 69 78 28 |.....Set|PortPix(|
|000044b0| 70 69 78 4d 61 70 73 5b | 30 5d 29 3b 0d 09 09 09 |pixMaps[|0]);....|
|000044c0| 09 52 47 42 42 61 63 6b | 43 6f 6c 6f 72 28 6d 79 |.RGBBack|Color(my|
|000044d0| 42 61 63 6b 43 6f 6c 6f | 72 29 3b 0d 09 09 09 09 |BackColo|r);.....|
|000044e0| 45 72 61 73 65 52 65 63 | 74 28 66 72 61 6d 65 42 |EraseRec|t(frameB|
|000044f0| 6f 75 6e 64 73 29 3b 0d | 09 09 09 09 52 47 42 46 |ounds);.|....RGBF|
|00004500| 6f 72 65 43 6f 6c 6f 72 | 28 73 68 61 64 65 43 6f |oreColor|(shadeCo|
|00004510| 6c 6f 72 29 3b 0d 09 09 | 09 09 50 65 6e 4d 6f 64 |lor);...|..PenMod|
|00004520| 65 28 61 64 64 4f 76 65 | 72 29 3b 09 09 09 09 09 |e(addOve|r);.....|
|00004530| 09 7b 73 6d 65 61 72 20 | 74 68 65 20 73 68 61 64 |.{smear |the shad|
|00004540| 65 73 7d 0d 0d 7b 24 49 | 46 43 20 54 72 75 65 7d |es}..{$I|FC True}|
|00004550| 0d 09 09 09 09 7b 64 72 | 61 77 20 73 68 61 64 65 |.....{dr|aw shade|
|00004560| 64 20 67 72 61 79 20 73 | 70 68 65 72 65 7d 0d 09 |d gray s|phere}..|
|00004570| 09 09 09 62 69 67 4e 75 | 6d 20 3a 3d 20 6b 53 68 |...bigNu|m := kSh|
|00004580| 61 64 65 52 61 6e 67 65 | 20 2a 20 24 31 30 30 30 |adeRange| * $1000|
|00004590| 3b 0d 09 09 09 09 73 68 | 61 64 65 53 74 65 70 20 |;.....sh|adeStep |
|000045a0| 3a 3d 20 62 69 67 4e 75 | 6d 20 44 49 56 20 28 66 |:= bigNu|m DIV (f|
|000045b0| 72 61 6d 65 57 69 64 74 | 68 20 44 49 56 20 32 29 |rameWidt|h DIV 2)|
|000045c0| 20 2a 20 24 31 30 3b 0d | 09 09 09 09 73 68 61 64 | * $10;.|....shad|
|000045d0| 65 20 3a 3d 20 6b 45 64 | 67 65 53 68 61 64 65 20 |e := kEd|geShade |
|000045e0| 2a 20 24 31 30 30 30 30 | 3b 0d 09 09 09 09 50 65 |* $10000|;.....Pe|
|000045f0| 6e 53 69 7a 65 28 31 2c | 20 31 29 3b 0d 09 09 09 |nSize(1,| 1);....|
|00004600| 09 74 52 65 63 74 20 3a | 3d 20 66 72 61 6d 65 42 |.tRect :|= frameB|
|00004610| 6f 75 6e 64 73 3b 0d 09 | 09 09 09 50 65 6e 4d 6f |ounds;..|...PenMo|
|00004620| 64 65 28 73 72 63 43 6f | 70 79 29 3b 0d 09 09 09 |de(srcCo|py);....|
|00004630| 09 46 4f 52 20 69 20 3a | 3d 20 28 66 72 61 6d 65 |.FOR i :|= (frame|
|00004640| 57 69 64 74 68 20 44 49 | 56 20 32 29 20 44 4f 57 |Width DI|V 2) DOW|
|00004650| 4e 54 4f 20 31 20 44 4f | 09 09 09 09 09 09 09 09 |NTO 1 DO|........|
|00004660| 09 09 7b 74 68 69 73 20 | 6d 61 6e 79 20 73 68 61 |..{this |many sha|
|00004670| 64 65 73 7d 0d 09 09 09 | 09 09 42 45 47 49 4e 0d |des}....|..BEGIN.|
|00004680| 09 09 09 09 09 09 73 68 | 61 64 65 43 6f 6c 6f 72 |......sh|adeColor|
|00004690| 20 3a 3d 20 4d 61 6b 65 | 52 47 42 43 6f 6c 6f 72 | := Make|RGBColor|
|000046a0| 28 46 69 78 52 6f 75 6e | 64 28 73 68 61 64 65 29 |(FixRoun|d(shade)|
|000046b0| 2c 20 46 69 78 52 6f 75 | 6e 64 28 73 68 61 64 65 |, FixRou|nd(shade|
|000046c0| 29 2c 20 46 69 78 52 6f | 75 6e 64 28 73 68 61 64 |), FixRo|und(shad|
|000046d0| 65 29 29 3b 0d 09 09 09 | 09 09 09 52 47 42 46 6f |e));....|...RGBFo|
|000046e0| 72 65 43 6f 6c 6f 72 28 | 73 68 61 64 65 43 6f 6c |reColor(|shadeCol|
|000046f0| 6f 72 29 3b 0d 09 09 09 | 09 09 09 73 68 61 64 65 |or);....|...shade|
|00004700| 20 3a 3d 20 73 68 61 64 | 65 20 2b 20 73 68 61 64 | := shad|e + shad|
|00004710| 65 53 74 65 70 3b 0d 09 | 09 09 09 09 09 46 72 61 |eStep;..|.....Fra|
|00004720| 6d 65 4f 76 61 6c 28 74 | 52 65 63 74 29 3b 0d 09 |meOval(t|Rect);..|
|00004730| 09 09 09 09 09 49 6e 73 | 65 74 52 65 63 74 28 74 |.....Ins|etRect(t|
|00004740| 52 65 63 74 2c 20 31 2c | 20 31 29 3b 0d 09 09 09 |Rect, 1,| 1);....|
|00004750| 09 09 09 42 65 4e 69 63 | 65 54 6f 4a 75 67 67 6c |...BeNic|eToJuggl|
|00004760| 65 72 3b 0d 09 09 09 09 | 09 09 53 70 69 6e 43 75 |er;.....|..SpinCu|
|00004770| 72 73 6f 72 28 33 32 29 | 3b 0d 09 09 09 09 09 45 |rsor(32)|;......E|
|00004780| 4e 44 3b 0d 7b 24 45 4c | 53 45 43 7d 09 09 09 7b |ND;.{$EL|SEC}...{|
|00004790| 6f 6c 64 20 64 72 61 77 | 69 6e 67 20 62 65 66 6f |old draw|ing befo|
|000047a0| 72 65 20 42 72 75 63 65 | 20 63 68 61 6e 67 65 64 |re Bruce| changed|
|000047b0| 20 74 68 65 20 77 6f 72 | 6c 64 7d 0d 09 09 09 09 | the wor|ld}.....|
|000047c0| 7b 64 72 61 77 20 73 68 | 61 64 65 64 20 67 72 61 |{draw sh|aded gra|
|000047d0| 79 20 73 70 68 65 72 65 | 7d 0d 09 09 09 09 6a 20 |y sphere|}.....j |
|000047e0| 3a 3d 20 66 72 61 6d 65 | 42 6f 75 6e 64 73 2e 62 |:= frame|Bounds.b|
|000047f0| 6f 74 74 6f 6d 20 44 49 | 56 20 28 31 36 20 2a 20 |ottom DI|V (16 * |
|00004800| 32 29 3b 09 09 09 7b 70 | 65 6e 20 73 69 7a 65 7d |2);...{p|en size}|
|00004810| 0d 09 09 09 09 46 4f 52 | 20 69 20 3a 3d 20 31 20 |.....FOR| i := 1 |
|00004820| 54 4f 20 31 36 20 2d 20 | 34 20 44 4f 09 09 09 09 |TO 16 - |4 DO....|
|00004830| 09 09 09 09 09 09 7b 74 | 68 69 73 20 6d 61 6e 79 |......{t|his many|
|00004840| 20 73 68 61 64 65 73 7d | 0d 09 09 09 09 09 42 45 | shades}|......BE|
|00004850| 47 49 4e 0d 09 09 09 09 | 09 09 6b 20 3a 3d 20 69 |GIN.....|..k := i|
|00004860| 20 2a 20 6a 3b 0d 09 09 | 09 09 09 09 50 65 6e 53 | * j;...|....PenS|
|00004870| 69 7a 65 28 6b 2c 20 6b | 29 3b 0d 09 09 09 09 09 |ize(k, k|);......|
|00004880| 09 46 72 61 6d 65 4f 76 | 61 6c 28 66 72 61 6d 65 |.FrameOv|al(frame|
|00004890| 42 6f 75 6e 64 73 29 3b | 0d 09 09 09 09 09 09 42 |Bounds);|.......B|
|000048a0| 65 4e 69 63 65 54 6f 4a | 75 67 67 6c 65 72 3b 0d |eNiceToJ|uggler;.|
|000048b0| 09 09 09 09 09 09 53 70 | 69 6e 43 75 72 73 6f 72 |......Sp|inCursor|
|000048c0| 28 33 32 29 3b 0d 09 09 | 09 09 09 45 4e 44 3b 0d |(32);...|...END;.|
|000048d0| 7b 24 45 4e 44 43 7d 0d | 0d 09 09 09 09 7b 61 70 |{$ENDC}.|.....{ap|
|000048e0| 70 6c 79 20 74 68 65 20 | 73 68 61 64 65 64 20 73 |ply the |shaded s|
|000048f0| 70 68 65 72 65 20 74 6f | 20 74 68 65 20 66 72 61 |phere to| the fra|
|00004900| 6d 65 73 7d 0d 09 09 09 | 09 46 4f 52 20 69 20 3a |mes}....|.FOR i :|
|00004910| 3d 20 32 20 54 4f 20 66 | 72 61 6d 65 43 6f 75 6e |= 2 TO f|rameCoun|
|00004920| 74 20 44 4f 0d 09 09 09 | 09 09 42 45 47 49 4e 0d |t DO....|..BEGIN.|
|00004930| 09 09 09 09 09 09 43 6f | 70 79 42 69 74 73 28 42 |......Co|pyBits(B|
|00004940| 69 74 4d 61 70 50 74 72 | 28 70 69 78 4d 61 70 73 |itMapPtr|(pixMaps|
|00004950| 5b 30 5d 5e 29 5e 2c 20 | 42 69 74 4d 61 70 50 74 |[0]^)^, |BitMapPt|
|00004960| 72 28 70 69 78 4d 61 70 | 73 5b 69 5d 5e 29 5e 2c |r(pixMap|s[i]^)^,|
|00004970| 0d 09 09 09 09 09 09 09 | 09 09 09 20 66 72 61 6d |........|... fram|
|00004980| 65 42 6f 75 6e 64 73 2c | 20 66 72 61 6d 65 42 6f |eBounds,| frameBo|
|00004990| 75 6e 64 73 2c 20 61 64 | 64 4d 69 6e 2c 20 4e 69 |unds, ad|dMin, Ni|
|000049a0| 6c 29 3b 0d 09 09 09 09 | 09 09 42 65 4e 69 63 65 |l);.....|..BeNice|
|000049b0| 54 6f 4a 75 67 67 6c 65 | 72 3b 0d 09 09 09 09 09 |ToJuggle|r;......|
|000049c0| 09 53 70 69 6e 43 75 72 | 73 6f 72 28 33 32 29 3b |.SpinCur|sor(32);|
|000049d0| 0d 09 09 09 09 09 45 4e | 44 3b 0d 09 09 09 45 4e |......EN|D;....EN|
|000049e0| 44 3b 20 7b 49 46 20 75 | 73 65 53 68 61 64 69 6e |D; {IF u|seShadin|
|000049f0| 67 7d 0d 0d 09 09 53 65 | 74 50 6f 72 74 50 69 78 |g}....Se|tPortPix|
|00004a00| 28 74 48 61 6e 64 6c 65 | 29 3b 09 09 09 09 09 7b |(tHandle|);.....{|
|00004a10| 72 65 73 74 6f 72 65 20 | 70 6f 72 74 50 69 78 4d |restore |portPixM|
|00004a20| 61 70 20 66 6f 72 20 6b | 69 6c 6c 69 6e 67 7d 0d |ap for k|illing}.|
|00004a30| 09 09 43 6c 6f 73 65 50 | 6f 72 74 28 47 72 61 66 |..CloseP|ort(Graf|
|00004a40| 50 74 72 28 40 74 43 50 | 6f 72 74 29 29 3b 09 7b |Ptr(@tCP|ort));.{|
|00004a50| 64 69 73 70 6f 73 65 20 | 69 74 73 20 73 74 72 75 |dispose |its stru|
|00004a60| 63 74 75 72 65 73 7d 0d | 09 09 53 65 74 47 44 65 |ctures}.|..SetGDe|
|00004a70| 76 69 63 65 28 73 61 76 | 65 47 44 65 76 69 63 65 |vice(sav|eGDevice|
|00004a80| 29 3b 0d 09 45 4e 44 3b | 20 7b 50 72 6f 63 65 73 |);..END;| {Proces|
|00004a90| 73 50 69 78 4d 61 70 73 | 7d 0d 0d 0d 7b 2b 2d 2d |sPixMaps|}...{+--|
|00004aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2b 0d 20 7c 09 09 69 6e |--------|+. |..in|
|00004af0| 69 74 69 61 6c 69 7a 65 | 20 74 68 65 20 66 72 61 |itialize| the fra|
|00004b00| 6d 65 20 67 6c 6f 62 61 | 6c 73 09 09 09 09 09 09 |me globa|ls......|
|00004b10| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7c |........|.......||
|00004b20| 0d 20 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. +-----|--------|
|00004b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 7d 0d |--------|-----+}.|
|00004b70| 09 50 52 4f 43 45 44 55 | 52 45 20 49 6e 69 74 46 |.PROCEDU|RE InitF|
|00004b80| 72 61 6d 65 47 6c 6f 62 | 61 6c 73 3b 0d 0d 09 56 |rameGlob|als;...V|
|00004b90| 41 52 0d 09 20 20 69 2c | 20 6a 3a 20 09 09 09 49 |AR.. i,| j: ...I|
|00004ba0| 6e 74 65 67 65 72 3b 0d | 09 09 73 61 76 65 47 44 |nteger;.|..saveGD|
|00004bb0| 65 76 69 63 65 2c 0d 09 | 09 6d 79 44 65 76 69 63 |evice,..|.myDevic|
|00004bc0| 65 3a 09 09 47 44 48 61 | 6e 64 6c 65 3b 0d 0d 09 |e:..GDHa|ndle;...|
|00004bd0| 42 45 47 49 4e 0d 09 09 | 66 72 61 6d 65 42 6f 75 |BEGIN...|frameBou|
|00004be0| 6e 64 73 2e 74 6f 70 20 | 3a 3d 20 30 3b 0d 09 09 |nds.top |:= 0;...|
|00004bf0| 66 72 61 6d 65 42 6f 75 | 6e 64 73 2e 6c 65 66 74 |frameBou|nds.left|
|00004c00| 20 3a 3d 20 30 3b 0d 09 | 09 66 72 61 6d 65 42 6f | := 0;..|.frameBo|
|00004c10| 75 6e 64 73 2e 62 6f 74 | 74 6f 6d 20 3a 3d 20 66 |unds.bot|tom := f|
|00004c20| 72 61 6d 65 48 65 69 67 | 68 74 3b 0d 09 09 66 72 |rameHeig|ht;...fr|
|00004c30| 61 6d 65 42 6f 75 6e 64 | 73 2e 72 69 67 68 74 20 |ameBound|s.right |
|00004c40| 3a 3d 20 66 72 61 6d 65 | 57 69 64 74 68 3b 0d 0d |:= frame|Width;..|
|00004c50| 09 09 7b 61 6c 6c 6f 63 | 61 74 65 20 74 68 65 20 |..{alloc|ate the |
|00004c60| 62 69 74 6d 61 70 73 7d | 0d 09 09 46 4f 52 20 69 |bitmaps}|...FOR i|
|00004c70| 20 3a 3d 20 30 20 74 6f | 20 66 72 61 6d 65 43 6f | := 0 to| frameCo|
|00004c80| 75 6e 74 20 44 4f 0d 09 | 09 09 42 45 47 49 4e 0d |unt DO..|..BEGIN.|
|00004c90| 09 09 09 09 62 69 74 4d | 61 70 73 5b 69 5d 2e 72 |....bitM|aps[i].r|
|00004ca0| 6f 77 42 79 74 65 73 20 | 3a 3d 20 66 72 61 6d 65 |owBytes |:= frame|
|00004cb0| 57 69 64 74 68 20 44 49 | 56 20 38 3b 0d 09 09 09 |Width DI|V 8;....|
|00004cc0| 09 62 69 74 4d 61 70 73 | 5b 69 5d 2e 62 6f 75 6e |.bitMaps|[i].boun|
|00004cd0| 64 73 20 3a 3d 20 66 72 | 61 6d 65 42 6f 75 6e 64 |ds := fr|ameBound|
|00004ce0| 73 3b 0d 09 09 09 09 62 | 69 74 4d 61 70 73 5b 69 |s;.....b|itMaps[i|
|00004cf0| 5d 2e 62 61 73 65 41 64 | 64 72 20 3a 3d 20 4e 65 |].baseAd|dr := Ne|
|00004d00| 77 50 74 72 28 66 72 61 | 6d 65 53 69 7a 65 29 3b |wPtr(fra|meSize);|
|00004d10| 0d 09 09 09 09 53 70 69 | 6e 43 75 72 73 6f 72 28 |.....Spi|nCursor(|
|00004d20| 33 32 29 3b 0d 09 09 09 | 09 49 46 20 62 69 74 4d |32);....|.IF bitM|
|00004d30| 61 70 73 5b 69 5d 2e 62 | 61 73 65 41 64 64 72 20 |aps[i].b|aseAddr |
|00004d40| 3d 20 4e 69 6c 20 54 48 | 45 4e 0d 09 09 09 09 09 |= Nil TH|EN......|
|00004d50| 46 61 74 61 6c 45 72 72 | 6f 72 28 6e 6f 4d 65 6d |FatalErr|or(noMem|
|00004d60| 6f 72 79 49 44 29 3b 0d | 09 09 09 45 4e 44 3b 0d |oryID);.|...END;.|
|00004d70| 0d 09 09 7b 61 6c 6c 6f | 63 61 74 65 20 74 68 65 |...{allo|cate the|
|00004d80| 20 70 69 78 6d 61 70 73 | 7d 0d 09 09 49 46 20 75 | pixmaps|}...IF u|
|00004d90| 73 65 50 69 78 4d 61 70 | 73 20 54 48 45 4e 0d 09 |sePixMap|s THEN..|
|00004da0| 09 09 42 45 47 49 4e 0d | 09 09 09 09 7b 63 6c 6f |..BEGIN.|....{clo|
|00004db0| 6e 65 20 74 68 65 20 6d | 61 69 6e 20 64 65 76 69 |ne the m|ain devi|
|00004dc0| 63 65 27 73 20 63 6f 6c | 6f 72 20 74 61 62 6c 65 |ce's col|or table|
|00004dd0| 20 66 6f 72 20 74 68 65 | 20 70 69 78 4d 61 70 73 | for the| pixMaps|
|00004de0| 20 28 74 65 63 68 20 6e | 6f 74 65 20 31 32 30 29 | (tech n|ote 120)|
|00004df0| 7d 0d 09 09 09 09 6d 79 | 44 65 76 69 63 65 20 3a |}.....my|Device :|
|00004e00| 3d 20 47 65 74 4d 79 44 | 65 76 69 63 65 3b 0d 09 |= GetMyD|evice;..|
|00004e10| 09 09 09 6d 79 43 6f 6c | 6f 72 73 20 3a 3d 20 6d |...myCol|ors := m|
|00004e20| 79 44 65 76 69 63 65 5e | 5e 2e 67 64 50 4d 61 70 |yDevice^|^.gdPMap|
|00004e30| 5e 5e 2e 70 6d 54 61 62 | 6c 65 3b 09 09 7b 67 65 |^^.pmTab|le;..{ge|
|00004e40| 74 20 74 68 65 20 63 6f | 6c 6f 72 20 74 61 62 6c |t the co|lor tabl|
|00004e50| 65 7d 0d 09 09 09 09 6a | 20 3a 3d 20 48 61 6e 64 |e}.....j| := Hand|
|00004e60| 54 6f 48 61 6e 64 28 48 | 61 6e 64 6c 65 28 6d 79 |ToHand(H|andle(my|
|00004e70| 43 6f 6c 6f 72 73 29 29 | 3b 09 09 09 09 09 7b 20 |Colors))|;.....{ |
|00004e80| 61 6e 64 20 63 6c 6f 6e | 65 20 69 74 7d 0d 09 09 |and clon|e it}...|
|00004e90| 09 09 7b 6e 6f 77 20 63 | 6f 6e 76 65 72 74 20 66 |..{now c|onvert f|
|00004ea0| 72 6f 6d 20 64 65 76 69 | 63 65 20 63 6f 6c 6f 72 |rom devi|ce color|
|00004eb0| 20 74 61 62 6c 65 20 74 | 6f 20 73 63 72 65 65 6e | table t|o screen|
|00004ec0| 20 63 6f 6c 6f 72 20 74 | 61 62 6c 65 20 2d 20 74 | color t|able - t|
|00004ed0| 68 61 6e 78 20 44 47 7d | 0d 09 09 09 09 57 49 54 |hanx DG}|.....WIT|
|00004ee0| 48 20 6d 79 43 6f 6c 6f | 72 73 5e 5e 20 44 4f 0d |H myColo|rs^^ DO.|
|00004ef0| 09 09 09 09 09 42 45 47 | 49 4e 0d 09 09 09 09 09 |.....BEG|IN......|
|00004f00| 09 46 4f 52 20 69 20 3a | 3d 20 30 20 54 4f 20 63 |.FOR i :|= 0 TO c|
|00004f10| 74 53 69 7a 65 20 44 4f | 0d 09 09 09 09 09 09 09 |tSize DO|........|
|00004f20| 63 74 54 61 62 6c 65 5b | 69 5d 2e 76 61 6c 75 65 |ctTable[|i].value|
|00004f30| 20 3a 3d 20 69 3b 09 7b | 70 75 74 20 69 6e 20 69 | := i;.{|put in i|
|00004f40| 6e 64 69 63 65 73 7d 0d | 09 09 09 09 09 09 7b 6e |ndices}.|......{n|
|00004f50| 6f 77 20 63 6c 65 61 72 | 20 74 68 65 20 68 69 67 |ow clear| the hig|
|00004f60| 68 20 62 69 74 20 6f 66 | 20 63 74 46 6c 61 67 73 |h bit of| ctFlags|
|00004f70| 20 74 6f 20 69 6e 64 69 | 63 61 74 65 20 69 74 27 | to indi|cate it'|
|00004f80| 73 20 61 20 73 63 72 65 | 65 6e 20 63 6f 6c 6f 72 |s a scre|en color|
|00004f90| 20 74 61 62 6c 65 7d 0d | 09 09 09 09 09 09 63 74 | table}.|......ct|
|00004fa0| 46 6c 61 67 73 20 3a 3d | 20 42 41 4e 44 28 63 74 |Flags :=| BAND(ct|
|00004fb0| 46 6c 61 67 73 2c 20 24 | 37 66 66 66 29 3b 0d 09 |Flags, $|7fff);..|
|00004fc0| 09 09 09 09 45 4e 44 3b | 20 7b 57 49 54 48 7d 0d |....END;| {WITH}.|
|00004fd0| 0d 09 09 09 09 62 69 67 | 50 69 78 42 6c 6f 63 6b |.....big|PixBlock|
|00004fe0| 20 3a 3d 20 4e 65 77 50 | 74 72 28 66 72 61 6d 65 | := NewP|tr(frame|
|00004ff0| 53 69 7a 65 20 2a 20 70 | 69 78 44 65 70 74 68 20 |Size * p|ixDepth |
|00005000| 2a 20 28 66 72 61 6d 65 | 43 6f 75 6e 74 20 2b 20 |* (frame|Count + |
|00005010| 31 29 29 3b 0d 09 09 09 | 09 49 46 20 62 69 67 50 |1));....|.IF bigP|
|00005020| 69 78 42 6c 6f 63 6b 20 | 3d 20 4e 69 6c 20 54 48 |ixBlock |= Nil TH|
|00005030| 45 4e 0d 09 09 09 09 09 | 46 61 74 61 6c 45 72 72 |EN......|FatalErr|
|00005040| 6f 72 28 6e 6f 4d 65 6d | 6f 72 79 49 44 29 3b 0d |or(noMem|oryID);.|
|00005050| 0d 09 09 09 09 73 61 76 | 65 47 44 65 76 69 63 65 |.....sav|eGDevice|
|00005060| 20 3a 3d 20 47 65 74 47 | 44 65 76 69 63 65 3b 0d | := GetG|Device;.|
|00005070| 09 09 09 09 53 65 74 47 | 44 65 76 69 63 65 28 6d |....SetG|Device(m|
|00005080| 79 44 65 76 69 63 65 29 | 3b 0d 09 09 09 09 46 4f |yDevice)|;.....FO|
|00005090| 52 20 69 20 3a 3d 20 30 | 20 74 6f 20 66 72 61 6d |R i := 0| to fram|
|000050a0| 65 43 6f 75 6e 74 20 44 | 4f 0d 09 09 09 09 09 42 |eCount D|O......B|
|000050b0| 45 47 49 4e 0d 09 09 09 | 09 09 09 70 69 78 4d 61 |EGIN....|...pixMa|
|000050c0| 70 73 5b 69 5d 20 3a 3d | 20 4e 65 77 50 69 78 4d |ps[i] :=| NewPixM|
|000050d0| 61 70 3b 0d 09 09 09 09 | 09 09 70 69 78 4d 61 70 |ap;.....|..pixMap|
|000050e0| 73 5b 69 5d 5e 5e 2e 70 | 6d 54 61 62 6c 65 20 3a |s[i]^^.p|mTable :|
|000050f0| 3d 20 6d 79 43 6f 6c 6f | 72 73 3b 09 09 7b 75 73 |= myColo|rs;..{us|
|00005100| 65 20 6d 79 20 63 6f 6c | 6f 72 20 74 61 62 6c 65 |e my col|or table|
|00005110| 20 2a 2a 2a 6b 69 6c 6c | 20 6f 6c 64 20 63 6f 6c | ***kill| old col|
|00005120| 6f 72 7d 0d 09 09 09 09 | 09 09 70 69 78 4d 61 70 |or}.....|..pixMap|
|00005130| 73 5b 69 5d 5e 5e 2e 62 | 61 73 65 41 64 64 72 20 |s[i]^^.b|aseAddr |
|00005140| 3a 3d 20 50 74 72 28 4f | 52 44 34 28 62 69 67 50 |:= Ptr(O|RD4(bigP|
|00005150| 69 78 42 6c 6f 63 6b 29 | 20 20 2b 20 28 69 20 2a |ixBlock)| + (i *|
|00005160| 20 66 72 61 6d 65 53 69 | 7a 65 20 2a 20 70 69 78 | frameSi|ze * pix|
|00005170| 44 65 70 74 68 29 29 3b | 0d 09 09 09 09 09 09 70 |Depth));|.......p|
|00005180| 69 78 4d 61 70 73 5b 69 | 5d 5e 5e 2e 72 6f 77 42 |ixMaps[i|]^^.rowB|
|00005190| 79 74 65 73 20 3a 3d 20 | 28 66 72 61 6d 65 57 69 |ytes := |(frameWi|
|000051a0| 64 74 68 20 44 49 56 20 | 38 29 20 2a 20 70 69 78 |dth DIV |8) * pix|
|000051b0| 44 65 70 74 68 20 2b 20 | 24 38 30 30 30 3b 0d 09 |Depth + |$8000;..|
|000051c0| 09 09 09 09 09 70 69 78 | 4d 61 70 73 5b 69 5d 5e |.....pix|Maps[i]^|
|000051d0| 5e 2e 62 6f 75 6e 64 73 | 20 3a 3d 20 66 72 61 6d |^.bounds| := fram|
|000051e0| 65 42 6f 75 6e 64 73 3b | 0d 09 09 09 09 09 45 4e |eBounds;|......EN|
|000051f0| 44 3b 0d 09 09 09 09 53 | 65 74 47 44 65 76 69 63 |D;.....S|etGDevic|
|00005200| 65 28 73 61 76 65 47 44 | 65 76 69 63 65 29 3b 0d |e(saveGD|evice);.|
|00005210| 09 09 09 45 4e 44 3b 20 | 7b 49 46 20 75 73 65 50 |...END; |{IF useP|
|00005220| 69 78 4d 61 70 73 7d 0d | 0d 09 45 4e 44 3b 20 7b |ixMaps}.|..END; {|
|00005230| 49 6e 69 74 46 72 61 6d | 65 47 6c 6f 62 61 6c 73 |InitFram|eGlobals|
|00005240| 7d 0d 0d 0d 7b 2b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}...{+--|--------|
|00005250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005290| 2b 0d 20 7c 09 09 68 69 | 67 68 20 6c 65 76 65 6c |+. |..hi|gh level|
|000052a0| 20 69 6e 69 74 69 61 6c | 69 7a 74 69 6f 6e 09 09 | initial|iztion..|
|000052b0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|000052c0| 09 09 09 09 09 7c 0d 20 | 2b 2d 2d 2d 2d 2d 2d 2d |.....|. |+-------|
|000052d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000052e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000052f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005310| 2d 2d 2d 2b 7d 0d 09 50 | 52 4f 43 45 44 55 52 45 |---+}..P|ROCEDURE|
|00005320| 20 49 6e 69 74 46 72 61 | 6d 65 73 3b 0d 0d 09 56 | InitFra|mes;...V|
|00005330| 41 52 0d 09 09 73 61 76 | 65 50 6f 72 74 3a 09 09 |AR...sav|ePort:..|
|00005340| 47 72 61 66 50 74 72 3b | 0d 09 09 74 68 65 44 69 |GrafPtr;|...theDi|
|00005350| 61 6c 6f 67 3a 09 44 69 | 61 6c 6f 67 50 74 72 3b |alog:.Di|alogPtr;|
|00005360| 0d 09 09 64 49 44 3a 09 | 09 09 09 49 6e 74 65 67 |...dID:.|...Integ|
|00005370| 65 72 3b 0d 0d 09 42 45 | 47 49 4e 0d 09 09 7b 6f |er;...BE|GIN...{o|
|00005380| 70 65 6e 20 74 68 69 73 | 20 77 69 6e 64 6f 77 20 |pen this| window |
|00005390| 6f 6e 20 74 68 65 20 74 | 61 72 67 65 74 20 64 65 |on the t|arget de|
|000053a0| 76 69 63 65 20 73 6f 20 | 74 68 65 20 50 61 6c 65 |vice so |the Pale|
|000053b0| 74 74 65 20 4d 61 6e 61 | 67 65 72 20 67 65 74 73 |tte Mana|ger gets|
|000053c0| 0d 09 09 20 74 6f 20 73 | 65 74 20 74 68 65 20 63 |... to s|et the c|
|000053d0| 6c 75 74 20 75 70 20 70 | 72 6f 70 65 72 6c 79 20 |lut up p|roperly |
|000053e0| 66 6f 72 20 74 68 65 20 | 6f 66 66 73 63 72 65 65 |for the |offscree|
|000053f0| 6e 20 70 69 78 6d 61 70 | 73 20 7d 0d 09 09 49 46 |n pixmap|s }...IF|
|00005400| 20 75 73 65 53 68 61 64 | 69 6e 67 20 54 48 45 4e | useShad|ing THEN|
|00005410| 0d 09 09 09 64 49 44 20 | 3a 3d 20 63 6f 6c 6f 72 |....dID |:= color|
|00005420| 69 6e 67 49 44 0d 09 09 | 45 4c 53 45 0d 09 09 09 |ingID...|ELSE....|
|00005430| 64 49 44 20 3a 3d 20 6c | 6f 61 64 69 6e 67 49 44 |dID := l|oadingID|
|00005440| 3b 0d 0d 09 09 74 68 65 | 44 69 61 6c 6f 67 20 3a |;....the|Dialog :|
|00005450| 3d 20 47 65 74 4d 79 44 | 69 61 6c 6f 67 28 64 49 |= GetMyD|ialog(dI|
|00005460| 44 29 3b 0d 0d 09 09 47 | 65 74 50 6f 72 74 28 73 |D);....G|etPort(s|
|00005470| 61 76 65 50 6f 72 74 29 | 3b 09 09 09 7b 70 72 6f |avePort)|;...{pro|
|00005480| 63 65 73 73 20 74 68 65 | 20 62 69 74 6d 61 70 20 |cess the| bitmap |
|00005490| 64 61 74 61 20 61 70 70 | 72 6f 70 72 69 61 74 65 |data app|ropriate|
|000054a0| 6c 79 7d 0d 09 09 49 6e | 69 74 46 72 61 6d 65 47 |ly}...In|itFrameG|
|000054b0| 6c 6f 62 61 6c 73 3b 09 | 09 09 09 7b 69 6e 69 74 |lobals;.|...{init|
|000054c0| 69 61 6c 69 7a 65 20 66 | 72 61 6d 65 20 64 61 74 |ialize f|rame dat|
|000054d0| 61 20 73 74 72 75 63 74 | 75 72 65 73 7d 0d 09 09 |a struct|ures}...|
|000054e0| 4c 6f 61 64 46 72 61 6d | 65 73 3b 09 09 09 09 09 |LoadFram|es;.....|
|000054f0| 09 09 7b 6c 6f 61 64 20 | 74 68 65 20 62 69 74 6d |..{load |the bitm|
|00005500| 61 70 73 7d 0d 0d 09 09 | 49 46 20 75 73 65 50 69 |aps}....|IF usePi|
|00005510| 78 4d 61 70 73 20 54 48 | 45 4e 0d 09 09 09 50 72 |xMaps TH|EN....Pr|
|00005520| 6f 63 65 73 73 50 69 78 | 4d 61 70 73 0d 09 09 45 |ocessPix|Maps...E|
|00005530| 4c 53 45 0d 09 09 09 50 | 72 6f 63 65 73 73 42 69 |LSE....P|rocessBi|
|00005540| 74 4d 61 70 73 3b 0d 09 | 09 53 65 74 50 6f 72 74 |tMaps;..|.SetPort|
|00005550| 28 73 61 76 65 50 6f 72 | 74 29 3b 0d 0d 09 09 44 |(savePor|t);....D|
|00005560| 69 73 70 6f 73 44 69 61 | 6c 6f 67 28 74 68 65 44 |isposDia|log(theD|
|00005570| 69 61 6c 6f 67 29 3b 0d | 09 45 4e 44 3b 20 7b 49 |ialog);.|.END; {I|
|00005580| 6e 69 74 46 72 61 6d 65 | 73 7d 0d 0d 0d 7b 2b 2d |nitFrame|s}...{+-|
|00005590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000055d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 20 7c 09 09 69 |--------|-+. |..i|
|000055e0| 6e 69 74 69 61 6c 69 7a | 65 20 61 70 70 6c 69 63 |nitializ|e applic|
|000055f0| 61 74 6f 6e 20 67 6c 6f | 62 61 6c 73 09 09 09 09 |aton glo|bals....|
|00005600| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00005610| 09 7c 0d 20 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.|. +---|--------|
|00005620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2b |--------|-------+|
|00005660| 7d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 49 6e 69 |}..PROCE|DURE Ini|
|00005670| 74 47 6c 6f 62 61 6c 73 | 3b 0d 0d 09 56 41 52 0d |tGlobals|;...VAR.|
|00005680| 09 09 69 2c 20 6a 3a 09 | 09 09 49 6e 74 65 67 65 |..i, j:.|..Intege|
|00005690| 72 3b 0d 09 09 74 47 44 | 65 76 69 63 65 3a 09 47 |r;...tGD|evice:.G|
|000056a0| 44 48 61 6e 64 6c 65 3b | 0d 09 09 72 65 66 4e 75 |DHandle;|...refNu|
|000056b0| 6d 3a 09 09 49 6e 74 65 | 67 65 72 3b 0d 09 09 74 |m:..Inte|ger;...t|
|000056c0| 48 61 6e 64 6c 65 3a 09 | 48 61 6e 64 6c 65 3b 0d |Handle:.|Handle;.|
|000056d0| 09 09 6e 75 6d 46 69 6c | 65 73 3a 09 49 6e 74 65 |..numFil|es:.Inte|
|000056e0| 67 65 72 3b 0d 09 09 6d | 65 73 73 61 67 65 3a 09 |ger;...m|essage:.|
|000056f0| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 64 6f 63 |Integer;|. doc|
|00005700| 75 6d 65 6e 74 3a 09 41 | 70 70 46 69 6c 65 3b 0d |ument:.A|ppFile;.|
|00005710| 09 09 6d 79 4e 61 6d 65 | 3a 09 09 53 74 72 33 31 |..myName|:..Str31|
|00005720| 50 74 72 3b 0d 09 09 61 | 70 70 52 65 66 50 74 72 |Ptr;...a|ppRefPtr|
|00005730| 3a 20 49 6e 74 65 67 65 | 72 50 74 72 3b 0d 0d 09 |: Intege|rPtr;...|
|00005740| 42 45 47 49 4e 0d 09 09 | 49 46 20 53 79 73 45 6e |BEGIN...|IF SysEn|
|00005750| 76 69 72 6f 6e 73 28 31 | 2c 20 74 68 65 57 6f 72 |virons(1|, theWor|
|00005760| 6c 64 29 20 3c 3e 20 6e | 6f 45 72 72 20 54 48 45 |ld) <> n|oErr THE|
|00005770| 4e 0d 09 09 09 42 45 47 | 49 4e 0d 09 09 09 09 53 |N....BEG|IN.....S|
|00005780| 79 73 42 65 65 70 28 35 | 29 3b 0d 09 09 09 09 53 |ysBeep(5|);.....S|
|00005790| 79 73 42 65 65 70 28 35 | 29 3b 0d 09 09 09 09 53 |ysBeep(5|);.....S|
|000057a0| 79 73 42 65 65 70 28 35 | 29 3b 0d 09 09 09 09 45 |ysBeep(5|);.....E|
|000057b0| 78 69 74 54 6f 53 68 65 | 6c 6c 3b 09 09 7b 65 76 |xitToShe|ll;..{ev|
|000057c0| 65 72 79 6f 6e 65 20 73 | 68 6f 75 6c 64 20 75 73 |eryone s|hould us|
|000057d0| 65 20 74 68 65 20 6c 61 | 74 65 73 74 20 73 79 73 |e the la|test sys|
|000057e0| 74 65 6d 20 73 6f 66 74 | 77 61 72 65 21 7d 0d 09 |tem soft|ware!}..|
|000057f0| 09 09 45 4e 44 3b 0d 0d | 09 09 6d 79 57 69 6e 64 |..END;..|..myWind|
|00005800| 6f 77 20 3a 3d 20 4e 69 | 6c 3b 0d 09 09 61 70 70 |ow := Ni|l;...app|
|00005810| 52 65 66 50 74 72 20 3a | 3d 20 49 6e 74 65 67 65 |RefPtr :|= Intege|
|00005820| 72 50 74 72 28 43 75 72 | 41 70 52 65 66 4e 75 6d |rPtr(Cur|ApRefNum|
|00005830| 29 3b 0d 09 09 61 70 70 | 52 65 66 4e 75 6d 20 3a |);...app|RefNum :|
|00005840| 3d 20 61 70 70 52 65 66 | 50 74 72 5e 3b 0d 0d 09 |= appRef|Ptr^;...|
|00005850| 09 49 46 20 54 72 61 70 | 45 78 69 73 74 28 57 61 |.IF Trap|Exist(Wa|
|00005860| 69 74 4e 65 78 74 45 76 | 65 6e 74 54 72 61 70 29 |itNextEv|entTrap)|
|00005870| 20 54 48 45 4e 0d 09 09 | 09 6a 75 67 67 6c 65 72 | THEN...|.juggler|
|00005880| 20 3a 3d 20 54 72 75 65 | 0d 09 09 45 4c 53 45 0d | := True|...ELSE.|
|00005890| 09 09 09 6a 75 67 67 6c | 65 72 20 3a 3d 20 46 61 |...juggl|er := Fa|
|000058a0| 6c 73 65 3b 0d 0d 09 09 | 49 46 20 20 4e 65 77 4f |lse;....|IF NewO|
|000058b0| 53 54 72 61 70 45 78 69 | 73 74 28 53 6c 6f 74 56 |STrapExi|st(SlotV|
|000058c0| 49 6e 73 74 61 6c 6c 54 | 72 61 70 29 20 54 48 45 |InstallT|rap) THE|
|000058d0| 4e 0d 09 09 09 73 6c 6f | 74 56 42 4c 20 3a 3d 20 |N....slo|tVBL := |
|000058e0| 54 72 75 65 0d 09 09 45 | 4c 53 45 0d 09 09 09 73 |True...E|LSE....s|
|000058f0| 6c 6f 74 56 42 4c 20 3a | 3d 20 46 61 6c 73 65 3b |lotVBL :|= False;|
|00005900| 0d 0d 09 09 43 6f 75 6e | 74 41 70 70 46 69 6c 65 |....Coun|tAppFile|
|00005910| 73 28 6d 65 73 73 61 67 | 65 2c 20 6e 75 6d 66 69 |s(messag|e, numfi|
|00005920| 6c 65 73 29 3b 09 09 7b | 67 65 74 20 46 69 6e 64 |les);..{|get Find|
|00005930| 65 72 20 69 6e 66 6f 7d | 0d 09 09 49 46 20 6e 75 |er info}|...IF nu|
|00005940| 6d 46 69 6c 65 73 20 3d | 20 30 20 54 48 45 4e 0d |mFiles =| 0 THEN.|
|00005950| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 6d 79 4e |...BEGIN|.....myN|
|00005960| 61 6d 65 20 3a 3d 20 53 | 74 72 33 31 50 74 72 28 |ame := S|tr31Ptr(|
|00005970| 43 75 72 41 70 70 4e 61 | 6d 65 29 3b 0d 09 09 09 |CurAppNa|me);....|
|00005980| 09 66 72 61 6d 65 46 69 | 6c 65 20 3a 3d 20 6d 79 |.frameFi|le := my|
|00005990| 4e 61 6d 65 5e 3b 0d 09 | 09 09 45 4e 44 0d 09 09 |Name^;..|..END...|
|000059a0| 45 4c 53 45 0d 09 09 09 | 42 45 47 49 4e 0d 09 09 |ELSE....|BEGIN...|
|000059b0| 09 09 47 65 74 41 70 70 | 46 69 6c 65 73 28 31 2c |..GetApp|Files(1,|
|000059c0| 20 64 6f 63 75 6d 65 6e | 74 29 3b 0d 09 09 09 09 | documen|t);.....|
|000059d0| 66 72 61 6d 65 46 69 6c | 65 20 3a 3d 20 64 6f 63 |frameFil|e := doc|
|000059e0| 75 6d 65 6e 74 2e 66 4e | 61 6d 65 3b 0d 09 09 09 |ument.fN|ame;....|
|000059f0| 09 49 46 20 53 65 74 56 | 6f 6c 28 4e 69 6c 2c 20 |.IF SetV|ol(Nil, |
|00005a00| 64 6f 63 75 6d 65 6e 74 | 2e 76 52 65 66 4e 75 6d |document|.vRefNum|
|00005a10| 29 20 3c 3e 20 6e 6f 45 | 72 72 20 54 48 45 4e 0d |) <> noE|rr THEN.|
|00005a20| 09 09 09 09 09 46 61 74 | 61 6c 45 72 72 6f 72 28 |.....Fat|alError(|
|00005a30| 69 6f 45 72 72 6f 72 49 | 44 29 3b 0d 09 09 09 45 |ioErrorI|D);....E|
|00005a40| 4e 44 3b 0d 0d 09 09 47 | 65 74 44 65 66 61 75 6c |ND;....G|etDefaul|
|00005a50| 74 73 3b 0d 0d 09 09 49 | 46 20 74 68 65 57 6f 72 |ts;....I|F theWor|
|00005a60| 6c 64 2e 68 61 73 43 6f | 6c 6f 72 51 44 20 54 48 |ld.hasCo|lorQD TH|
|00005a70| 45 4e 0d 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |EN....BE|GIN.....|
|00005a80| 74 47 44 65 76 69 63 65 | 20 3a 3d 20 47 65 74 4d |tGDevice| := GetM|
|00005a90| 79 44 65 76 69 63 65 3b | 0d 09 09 09 09 70 69 78 |yDevice;|.....pix|
|00005aa0| 44 65 70 74 68 20 3a 3d | 20 74 47 44 65 76 69 63 |Depth :=| tGDevic|
|00005ab0| 65 5e 5e 2e 47 44 50 4d | 61 70 5e 5e 2e 70 69 78 |e^^.GDPM|ap^^.pix|
|00005ac0| 65 6c 53 69 7a 65 3b 0d | 09 09 09 09 75 73 65 50 |elSize;.|....useP|
|00005ad0| 69 78 4d 61 70 73 20 3a | 3d 20 70 69 78 44 65 70 |ixMaps :|= pixDep|
|00005ae0| 74 68 20 3e 20 31 3b 0d | 09 09 09 09 75 73 65 43 |th > 1;.|....useC|
|00005af0| 6f 6c 6f 72 20 3a 3d 20 | 70 69 78 44 65 70 74 68 |olor := |pixDepth|
|00005b00| 20 3e 3d 20 34 3b 0d 09 | 09 09 09 75 73 65 53 68 | >= 4;..|...useSh|
|00005b10| 61 64 69 6e 67 20 3a 3d | 20 70 69 78 44 65 70 74 |ading :=| pixDept|
|00005b20| 68 20 3e 3d 20 38 3b 0d | 09 09 09 45 4e 44 0d 09 |h >= 8;.|...END..|
|00005b30| 09 45 4c 53 45 0d 09 09 | 09 42 45 47 49 4e 0d 09 |.ELSE...|.BEGIN..|
|00005b40| 09 09 09 75 73 65 50 69 | 78 4d 61 70 73 20 3a 3d |...usePi|xMaps :=|
|00005b50| 20 46 61 6c 73 65 3b 0d | 09 09 09 09 75 73 65 43 | False;.|....useC|
|00005b60| 6f 6c 6f 72 20 3a 3d 20 | 46 61 6c 73 65 3b 0d 09 |olor := |False;..|
|00005b70| 09 09 09 70 69 78 44 65 | 70 74 68 20 3a 3d 20 31 |...pixDe|pth := 1|
|00005b80| 3b 0d 09 09 09 45 4e 44 | 3b 0d 0d 09 09 66 72 61 |;....END|;....fra|
|00005b90| 6d 65 53 69 7a 65 20 3a | 3d 20 28 66 72 61 6d 65 |meSize :|= (frame|
|00005ba0| 57 69 64 74 68 20 44 49 | 56 20 38 29 20 2a 20 66 |Width DI|V 8) * f|
|00005bb0| 72 61 6d 65 48 65 69 67 | 68 74 3b 0d 09 09 64 6f |rameHeig|ht;...do|
|00005bc0| 6e 65 46 6c 61 67 20 3a | 3d 20 46 61 6c 73 65 3b |neFlag :|= False;|
|00005bd0| 0d 09 09 63 75 72 46 72 | 61 6d 65 20 3a 3d 20 32 |...curFr|ame := 2|
|00005be0| 3b 0d 09 09 74 61 72 67 | 54 69 6d 65 20 3a 3d 20 |;...targ|Time := |
|00005bf0| 30 3b 0d 09 09 66 72 61 | 6d 65 73 44 6f 6e 65 20 |0;...fra|mesDone |
|00005c00| 3a 3d 20 30 3b 0d 0d 09 | 09 57 49 54 48 20 73 63 |:= 0;...|.WITH sc|
|00005c10| 72 65 65 6e 42 69 74 73 | 2e 62 6f 75 6e 64 73 20 |reenBits|.bounds |
|00005c20| 44 4f 0d 09 09 09 53 65 | 74 52 65 63 74 28 64 72 |DO....Se|tRect(dr|
|00005c30| 61 67 52 65 63 74 2c 20 | 34 2c 20 32 34 2c 20 72 |agRect, |4, 24, r|
|00005c40| 69 67 68 74 20 2d 20 34 | 2c 20 62 6f 74 74 6f 6d |ight - 4|, bottom|
|00005c50| 20 2d 20 34 29 3b 0d 0d | 09 09 73 68 61 64 65 43 | - 4);..|..shadeC|
|00005c60| 6f 6c 6f 72 20 3a 3d 20 | 4d 61 6b 65 52 47 42 43 |olor := |MakeRGBC|
|00005c70| 6f 6c 6f 72 28 24 31 66 | 66 66 2c 20 24 31 66 66 |olor($1f|ff, $1ff|
|00005c80| 66 2c 20 24 31 66 66 66 | 29 3b 09 09 7b 6c 69 67 |f, $1fff|);..{lig|
|00005c90| 68 74 20 67 72 61 79 20 | 66 6f 72 20 61 64 64 69 |ht gray |for addi|
|00005ca0| 74 69 76 65 20 73 68 61 | 64 69 6e 67 7d 0d 09 09 |tive sha|ding}...|
|00005cb0| 6c 61 6e 64 43 6f 6c 6f | 72 20 3a 3d 20 4d 61 6b |landColo|r := Mak|
|00005cc0| 65 52 47 42 43 6f 6c 6f | 72 28 30 2c 20 2d 31 2c |eRGBColo|r(0, -1,|
|00005cd0| 20 30 29 3b 09 09 09 09 | 09 09 09 09 7b 67 72 65 | 0);....|....{gre|
|00005ce0| 65 6e 20 63 6f 6e 74 69 | 6e 65 6e 74 73 7d 0d 09 |en conti|nents}..|
|00005cf0| 09 77 61 74 65 72 43 6f | 6c 6f 72 20 3a 3d 20 4d |.waterCo|lor := M|
|00005d00| 61 6b 65 52 47 42 43 6f | 6c 6f 72 28 30 2c 20 30 |akeRGBCo|lor(0, 0|
|00005d10| 2c 20 2d 31 29 3b 09 09 | 09 09 09 09 09 09 7b 62 |, -1);..|......{b|
|00005d20| 6c 75 65 20 6f 63 65 61 | 6e 73 7d 0d 09 09 73 70 |lue ocea|ns}...sp|
|00005d30| 61 63 65 43 6f 6c 6f 72 | 20 3a 3d 20 4d 61 6b 65 |aceColor| := Make|
|00005d40| 52 47 42 43 6f 6c 6f 72 | 28 24 31 66 66 66 2c 20 |RGBColor|($1fff, |
|00005d50| 24 31 66 66 66 2c 20 24 | 31 66 66 66 29 3b 09 09 |$1fff, $|1fff);..|
|00005d60| 7b 61 20 62 69 74 20 6c | 69 67 68 74 65 72 20 74 |{a bit l|ighter t|
|00005d70| 68 61 6e 20 6e 65 75 74 | 72 61 6c 20 67 72 61 79 |han neut|ral gray|
|00005d80| 7d 0d 09 09 6d 79 46 6f | 72 65 43 6f 6c 6f 72 20 |}...myFo|reColor |
|00005d90| 3a 3d 20 4d 61 6b 65 52 | 47 42 43 6f 6c 6f 72 28 |:= MakeR|GBColor(|
|00005da0| 30 2c 20 30 2c 20 30 29 | 3b 09 09 09 09 09 09 09 |0, 0, 0)|;.......|
|00005db0| 09 7b 62 6c 61 63 6b 7d | 0d 09 09 6d 79 42 61 63 |.{black}|...myBac|
|00005dc0| 6b 43 6f 6c 6f 72 20 3a | 3d 20 4d 61 6b 65 52 47 |kColor :|= MakeRG|
|00005dd0| 42 43 6f 6c 6f 72 28 2d | 31 2c 20 2d 31 2c 20 2d |BColor(-|1, -1, -|
|00005de0| 31 29 3b 09 09 09 09 09 | 09 7b 77 68 69 74 65 7d |1);.....|.{white}|
|00005df0| 0d 0d 09 09 6d 79 50 61 | 6c 20 3a 3d 20 47 65 74 |....myPa|l := Get|
|00005e00| 4e 65 77 50 61 6c 65 74 | 74 65 28 6b 50 61 6c 65 |NewPalet|te(kPale|
|00005e10| 74 74 65 29 3b 0d 09 45 | 4e 44 3b 20 7b 49 6e 69 |tte);..E|ND; {Ini|
|00005e20| 74 47 6c 6f 62 61 6c 73 | 7d 0d 0d 0d 7b 2b 2d 2d |tGlobals|}...{+--|
|00005e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2b 0d 20 7c 09 09 73 65 |--------|+. |..se|
|00005e80| 74 20 75 70 20 6d 65 6e | 75 73 20 61 6e 64 20 64 |t up men|us and d|
|00005e90| 72 61 77 20 6d 65 6e 75 | 62 61 72 09 09 09 09 09 |raw menu|bar.....|
|00005ea0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00005eb0| 7c 0d 20 2b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d ||. +----|--------|
|00005ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2b 7d |--------|------+}|
|00005f00| 0d 20 20 50 52 4f 43 45 | 44 55 52 45 20 53 65 74 |. PROCE|DURE Set|
|00005f10| 55 70 4d 65 6e 75 73 3b | 0d 0d 09 56 41 52 0d 09 |UpMenus;|...VAR..|
|00005f20| 20 20 69 3a 20 49 6e 74 | 65 67 65 72 3b 0d 0d 09 | i: Int|eger;...|
|00005f30| 42 45 47 49 4e 0d 09 20 | 20 6d 79 4d 65 6e 75 73 |BEGIN.. | myMenus|
|00005f40| 5b 61 70 70 6c 65 4d 5d | 20 3a 3d 20 47 65 74 4d |[appleM]| := GetM|
|00005f50| 65 6e 75 28 61 70 70 6c | 65 49 44 29 3b 0d 09 20 |enu(appl|eID);.. |
|00005f60| 20 41 64 64 52 65 73 4d | 65 6e 75 28 6d 79 4d 65 | AddResM|enu(myMe|
|00005f70| 6e 75 73 5b 61 70 70 6c | 65 4d 5d 2c 20 27 44 52 |nus[appl|eM], 'DR|
|00005f80| 56 52 27 29 3b 0d 09 20 | 20 6d 79 4d 65 6e 75 73 |VR');.. | myMenus|
|00005f90| 5b 66 69 6c 65 4d 5d 20 | 3a 3d 20 47 65 74 4d 65 |[fileM] |:= GetMe|
|00005fa0| 6e 75 28 66 69 6c 65 49 | 44 29 3b 0d 09 20 20 6d |nu(fileI|D);.. m|
|00005fb0| 79 4d 65 6e 75 73 5b 65 | 64 69 74 4d 5d 20 3a 3d |yMenus[e|ditM] :=|
|00005fc0| 20 47 65 74 4d 65 6e 75 | 28 65 64 69 74 49 44 29 | GetMenu|(editID)|
|00005fd0| 3b 0d 09 09 6d 79 4d 65 | 6e 75 73 5b 63 6f 6e 74 |;...myMe|nus[cont|
|00005fe0| 72 6f 6c 4d 5d 20 3a 3d | 20 47 65 74 4d 65 6e 75 |rolM] :=| GetMenu|
|00005ff0| 28 63 6f 6e 74 72 6f 6c | 49 44 29 3b 0d 0d 09 20 |(control|ID);... |
|00006000| 20 46 4f 52 20 69 20 3a | 3d 20 31 20 54 4f 20 6d | FOR i :|= 1 TO m|
|00006010| 65 6e 75 43 6f 75 6e 74 | 20 44 4f 0d 09 09 09 49 |enuCount| DO....I|
|00006020| 6e 73 65 72 74 4d 65 6e | 75 28 6d 79 4d 65 6e 75 |nsertMen|u(myMenu|
|00006030| 73 5b 69 5d 2c 20 30 29 | 3b 0d 09 20 20 44 72 61 |s[i], 0)|;.. Dra|
|00006040| 77 4d 65 6e 75 42 61 72 | 3b 0d 09 45 4e 44 3b 20 |wMenuBar|;..END; |
|00006050| 7b 53 65 74 55 70 4d 65 | 6e 75 73 7d 0d 0d 0d 7b |{SetUpMe|nus}...{|
|00006060| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------|
|00006070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000060a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2b 0d 20 7c 09 |--------|---+. |.|
|000060b0| 09 70 72 6f 67 72 61 6d | 20 69 6e 69 74 69 61 6c |.program| initial|
|000060c0| 69 7a 61 74 69 6f 6e 09 | 09 09 09 09 09 09 09 09 |ization.|........|
|000060d0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 7c |........|.......||
|000060e0| 0d 20 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |. +-----|--------|
|000060f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 7d 0d |--------|-----+}.|
|00006130| 09 50 52 4f 43 45 44 55 | 52 45 20 49 6e 69 74 69 |.PROCEDU|RE Initi|
|00006140| 61 6c 69 7a 65 3b 0d 0d | 09 56 41 52 0d 09 09 78 |alize;..|.VAR...x|
|00006150| 3a 09 4c 6f 6e 67 49 6e | 74 3b 0d 09 09 62 3a 09 |:.LongIn|t;...b:.|
|00006160| 42 6f 6f 6c 65 61 6e 3b | 0d 0d 20 09 42 45 47 49 |Boolean;|.. .BEGI|
|00006170| 4e 0d 09 09 49 6e 69 74 | 47 72 61 66 28 40 74 68 |N...Init|Graf(@th|
|00006180| 65 50 6f 72 74 29 3b 0d | 09 09 49 6e 69 74 46 6f |ePort);.|..InitFo|
|00006190| 6e 74 73 3b 0d 09 09 46 | 6c 75 73 68 45 76 65 6e |nts;...F|lushEven|
|000061a0| 74 73 28 65 76 65 72 79 | 45 76 65 6e 74 2c 20 30 |ts(every|Event, 0|
|000061b0| 29 3b 0d 09 09 49 6e 69 | 74 57 69 6e 64 6f 77 73 |);...Ini|tWindows|
|000061c0| 3b 0d 09 09 49 6e 69 74 | 4d 65 6e 75 73 3b 0d 09 |;...Init|Menus;..|
|000061d0| 09 54 45 49 6e 69 74 3b | 0d 09 09 49 6e 69 74 44 |.TEInit;|...InitD|
|000061e0| 69 61 6c 6f 67 73 28 4e | 69 6c 29 3b 0d 09 09 49 |ialogs(N|il);...I|
|000061f0| 6e 69 74 43 75 72 73 6f | 72 3b 0d 09 09 49 6e 69 |nitCurso|r;...Ini|
|00006200| 74 43 75 72 73 6f 72 43 | 74 6c 28 4e 69 6c 29 3b |tCursorC|tl(Nil);|
|00006210| 09 09 09 7b 62 72 69 6e | 67 20 69 6e 20 61 63 75 |...{brin|g in acu|
|00006220| 72 20 72 65 73 6f 75 72 | 63 65 20 6e 6f 77 7d 0d |r resour|ce now}.|
|00006230| 09 09 53 65 74 43 75 72 | 73 6f 72 28 47 65 74 43 |..SetCur|sor(GetC|
|00006240| 75 72 73 6f 72 28 77 61 | 74 63 68 43 75 72 73 6f |ursor(wa|tchCurso|
|00006250| 72 29 5e 5e 29 3b 0d 0d | 09 09 49 6e 69 74 47 6c |r)^^);..|..InitGl|
|00006260| 6f 62 61 6c 73 3b 09 09 | 09 09 09 09 7b 69 6e 69 |obals;..|....{ini|
|00006270| 74 69 61 6c 69 7a 65 20 | 6d 79 20 67 6c 6f 62 61 |tialize |my globa|
|00006280| 6c 73 7d 0d 09 09 53 65 | 74 55 70 4d 65 6e 75 73 |ls}...Se|tUpMenus|
|00006290| 3b 09 09 09 09 09 09 09 | 7b 73 65 74 20 75 70 20 |;.......|{set up |
|000062a0| 6d 65 6e 75 73 20 61 6e | 64 20 6d 65 6e 75 20 62 |menus an|d menu b|
|000062b0| 61 72 7d 0d 09 09 62 20 | 3a 3d 20 47 65 74 4e 65 |ar}...b |:= GetNe|
|000062c0| 78 74 45 76 65 6e 74 28 | 65 76 65 72 79 45 76 65 |xtEvent(|everyEve|
|000062d0| 6e 74 2c 20 6d 79 45 76 | 65 6e 74 29 3b 09 7b 2a |nt, myEv|ent);.{*|
|000062e0| 2a 2a 6a 75 67 67 6c 65 | 72 20 68 61 63 6b 69 6e |**juggle|r hackin|
|000062f0| 67 20 73 6f 20 77 69 6e | 64 6f 77 73 20 73 68 6f |g so win|dows sho|
|00006300| 77 20 75 70 20 6f 6e 20 | 74 6f 70 7d 0d 09 09 43 |w up on |top}...C|
|00006310| 68 61 6e 67 65 50 61 6c | 65 74 74 65 3b 09 09 09 |hangePal|ette;...|
|00006320| 09 09 7b 62 72 69 6e 67 | 20 75 70 20 70 61 6c 65 |..{bring| up pale|
|00006330| 74 74 65 20 28 69 66 20 | 6f 70 74 69 6f 6e 20 6f |tte (if |option o|
|00006340| 6e 29 20 7d 0d 09 09 49 | 6e 69 74 46 72 61 6d 65 |n) }...I|nitFrame|
|00006350| 73 3b 09 09 09 09 09 09 | 09 7b 6c 6f 61 64 20 61 |s;......|.{load a|
|00006360| 6e 64 20 70 72 6f 63 65 | 73 73 20 66 72 61 6d 65 |nd proce|ss frame|
|00006370| 73 7d 0d 09 09 49 46 20 | 73 6c 6f 74 56 42 4c 20 |s}...IF |slotVBL |
|00006380| 54 48 45 4e 0d 09 09 09 | 49 6e 73 74 61 6c 6c 56 |THEN....|InstallV|
|00006390| 42 4c 53 79 6e 63 3b 09 | 09 09 09 7b 69 6e 73 74 |BLSync;.|...{inst|
|000063a0| 61 6c 6c 20 63 75 73 74 | 6f 6d 20 56 42 4c 20 74 |all cust|om VBL t|
|000063b0| 61 73 6b 20 69 66 20 70 | 6f 73 73 69 62 6c 65 2c |ask if p|ossible,|
|000063c0| 20 64 6f 20 74 68 69 73 | 20 6c 61 73 74 7d 0d 09 | do this| last}..|
|000063d0| 09 44 65 6c 61 79 28 33 | 30 2c 20 78 29 3b 09 09 |.Delay(3|0, x);..|
|000063e0| 09 09 09 09 7b 77 61 69 | 74 20 61 20 62 69 74 20 |....{wai|t a bit |
|000063f0| 66 6f 72 20 74 68 65 20 | 6c 6f 61 64 20 64 69 61 |for the |load dia|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
