/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / N-P / NIFTY.sit / NIFTY / myCShell / misc.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 6d 69 73 63 2e 63 | 00 00 00 00 00 00 00 00 |..misc.c|........|
|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 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 31 92 00 | 00 01 ca a5 73 a7 47 a5 |.....1..|....s.G.|
|00000060| 73 a7 47 00 00 04 00 00 | 00 00 00 00 00 00 00 00 |s.G.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 1c a9 00 00 |........|........|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 20 22 6d 69 73 |********|**. "mis|
|000000c0| 63 2e 63 22 0d 0d 20 62 | 79 20 4a 6f 68 6e 20 41 |c.c".. b|y John A|
|000000d0| 2e 20 4c 6f 76 65 2c 20 | 49 49 49 20 5b 20 57 61 |. Love, |III [ Wa|
|000000e0| 73 68 69 6e 67 74 6f 6e | 20 41 70 70 6c 65 20 50 |shington| Apple P|
|000000f0| 69 20 55 73 65 72 73 27 | 20 47 72 6f 75 70 5d 0d |i Users'| Group].|
|00000100| 0d 20 75 73 69 6e 67 20 | 53 79 6d 61 6e 74 65 63 |. using |Symantec|
|00000110| 27 73 20 22 54 48 49 4e | 4b 20 43 22 2c 20 76 20 |'s "THIN|K C", v |
|00000120| 35 2e 30 30 0d 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |5.00. **|********|
|00000130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2f |********|*******/|
|00000160| 0d 0d 0d 23 69 66 6e 64 | 65 66 20 5f 5f 53 4f 55 |...#ifnd|ef __SOU|
|00000170| 4e 44 5f 5f 0d 23 69 6e | 63 6c 75 64 65 20 3c 53 |ND__.#in|clude <S|
|00000180| 6f 75 6e 64 2e 68 3e 0d | 23 65 6e 64 69 66 0d 0d |ound.h>.|#endif..|
|00000190| 23 69 66 6e 64 65 66 20 | 5f 48 5f 6d 61 74 68 0d |#ifndef |_H_math.|
|000001a0| 23 69 6e 63 6c 75 64 65 | 20 3c 6d 61 74 68 2e 68 |#include| <math.h|
|000001b0| 3e 0d 23 65 6e 64 69 66 | 0d 0d 23 69 66 6e 64 65 |>.#endif|..#ifnde|
|000001c0| 66 09 5f 5f 54 52 41 50 | 53 5f 5f 0d 23 69 6e 63 |f.__TRAP|S__.#inc|
|000001d0| 6c 75 64 65 20 3c 54 72 | 61 70 73 2e 68 3e 0d 23 |lude <Tr|aps.h>.#|
|000001e0| 65 6e 64 69 66 0d 0d 23 | 69 6e 63 6c 75 64 65 20 |endif..#|include |
|000001f0| 3c 43 54 79 70 65 2e 68 | 3e 0d 0d 23 69 6e 63 6c |<CType.h|>..#incl|
|00000200| 75 64 65 20 22 70 72 6f | 74 6f 73 22 0d 0d 23 69 |ude "pro|tos"..#i|
|00000210| 6e 63 6c 75 64 65 20 22 | 67 6c 6f 62 61 6c 73 2e |nclude "|globals.|
|00000220| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 65 78 74 |h".#incl|ude "ext|
|00000230| 65 72 6e 2e 68 22 0d 0d | 23 69 6e 63 6c 75 64 65 |ern.h"..|#include|
|00000240| 20 22 66 6c 6f 61 74 69 | 6e 67 57 69 6e 64 6f 77 | "floati|ngWindow|
|00000250| 2e 68 22 0d 0d 0d 76 6f | 69 64 09 09 09 46 61 74 |.h"...vo|id...Fat|
|00000260| 61 6c 53 79 73 74 65 6d | 43 72 61 73 68 20 28 76 |alSystem|Crash (v|
|00000270| 6f 69 64 29 3b 0d 76 6f | 69 64 09 09 09 4d 79 4d |oid);.vo|id...MyM|
|00000280| 6f 72 65 4d 61 73 74 65 | 72 73 20 28 73 68 6f 72 |oreMaste|rs (shor|
|00000290| 74 20 6e 75 6d 4d 61 73 | 74 65 72 50 74 72 73 29 |t numMas|terPtrs)|
|000002a0| 3b 0d 54 72 61 70 54 79 | 70 65 09 09 47 65 74 54 |;.TrapTy|pe..GetT|
|000002b0| 72 61 70 54 79 70 65 20 | 28 73 68 6f 72 74 20 74 |rapType |(short t|
|000002c0| 68 65 54 72 61 70 29 3b | 0d 73 68 6f 72 74 09 09 |heTrap);|.short..|
|000002d0| 09 47 65 74 54 72 61 70 | 4e 75 6d 20 28 73 68 6f |.GetTrap|Num (sho|
|000002e0| 72 74 20 74 68 65 54 72 | 61 70 29 3b 0d 73 68 6f |rt theTr|ap);.sho|
|000002f0| 72 74 09 09 09 4e 75 6d | 54 6f 6f 6c 62 6f 78 54 |rt...Num|ToolboxT|
|00000300| 72 61 70 73 20 28 76 6f | 69 64 29 3b 0d 0d 0d 09 |raps (vo|id);....|
|00000310| 09 73 68 6f 72 74 09 09 | 53 79 73 45 6e 76 69 72 |.short..|SysEnvir|
|00000320| 6f 6e 73 56 65 72 73 69 | 6f 6e 20 3d 20 31 3b 0d |onsVersi|on = 1;.|
|00000330| 09 09 53 79 73 45 6e 76 | 52 65 63 09 74 68 65 57 |..SysEnv|Rec.theW|
|00000340| 6f 72 6c 64 3b 0d 0d 0d | 0d 0d 2f 2a 20 3d 3d 3d |orld;...|../* ===|
|00000350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000360| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000370| 3d 0d 20 20 20 4e 6f 20 | 66 75 72 74 68 65 72 20 |=.   No |further |
|00000380| 65 78 70 6c 61 6e 61 74 | 69 6f 6e 20 69 73 20 72 |explanat|ion is r|
|00000390| 65 71 75 69 72 65 64 20 | 3a 0d 20 20 20 3d 3d 3d |equired |:.   ===|
|000003a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003c0| 3d 20 2a 2f 0d 0d 20 76 | 6f 69 64 20 46 61 74 61 |= */.. v|oid Fata|
|000003d0| 6c 53 79 73 74 65 6d 43 | 72 61 73 68 20 28 76 6f |lSystemC|rash (vo|
|000003e0| 69 64 29 09 7b 0d 0d 09 | 45 78 69 74 54 6f 53 68 |id).{...|ExitToSh|
|000003f0| 65 6c 6c 28 29 3b 0d 0d | 20 7d 09 2f 2a 20 46 61 |ell();..| }./* Fa|
|00000400| 74 61 6c 53 79 73 74 65 | 6d 43 72 61 73 68 20 2a |talSyste|mCrash *|
|00000410| 2f 0d 0d 0d 0d 20 76 6f | 69 64 20 4d 79 4d 6f 72 |/.... vo|id MyMor|
|00000420| 65 4d 61 73 74 65 72 73 | 20 28 73 68 6f 72 74 20 |eMasters| (short |
|00000430| 6e 75 6d 4d 61 73 74 65 | 72 50 74 72 73 29 09 7b |numMaste|rPtrs).{|
|00000440| 0d 2f 2a 20 53 65 65 20 | 54 65 63 68 6e 69 63 61 |./* See |Technica|
|00000450| 6c 20 4e 6f 74 65 20 23 | 35 33 3a 20 2a 2f 0d 0d |l Note #|53: */..|
|00000460| 09 09 73 68 6f 72 74 09 | 6f 6c 64 4d 6f 72 65 4d |..short.|oldMoreM|
|00000470| 61 73 74 3b 0d 09 09 54 | 48 7a 09 09 7a 6f 6e 65 |ast;...T|Hz..zone|
|00000480| 3b 0d 0d 0d 09 7a 6f 6e | 65 20 3d 20 47 65 74 5a |;....zon|e = GetZ|
|00000490| 6f 6e 65 28 29 3b 0d 0d | 09 6f 6c 64 4d 6f 72 65 |one();..|.oldMore|
|000004a0| 4d 61 73 74 20 3d 20 7a | 6f 6e 65 2d 3e 6d 6f 72 |Mast = z|one->mor|
|000004b0| 65 4d 61 73 74 3b 0d 09 | 7a 6f 6e 65 2d 3e 6d 6f |eMast;..|zone->mo|
|000004c0| 72 65 4d 61 73 74 20 3d | 20 6e 75 6d 4d 61 73 74 |reMast =| numMast|
|000004d0| 65 72 50 74 72 73 3b 0d | 09 4d 6f 72 65 4d 61 73 |erPtrs;.|.MoreMas|
|000004e0| 74 65 72 73 28 29 3b 09 | 09 09 09 09 2f 2a 20 43 |ters();.|..../* C|
|000004f0| 61 6c 6c 73 20 69 74 73 | 65 6c 66 20 22 6d 6f 72 |alls its|elf "mor|
|00000500| 65 4d 61 73 74 22 20 74 | 69 6d 65 73 2e 20 2a 2f |eMast" t|imes. */|
|00000510| 0d 09 7a 6f 6e 65 2d 3e | 6d 6f 72 65 4d 61 73 74 |..zone->|moreMast|
|00000520| 20 3d 20 6f 6c 64 4d 6f | 72 65 4d 61 73 74 3b 0d | = oldMo|reMast;.|
|00000530| 09 69 66 20 28 4d 65 6d | 45 72 72 6f 72 28 29 29 |.if (Mem|Error())|
|00000540| 20 45 78 69 74 54 6f 53 | 68 65 6c 6c 28 29 3b 0d | ExitToS|hell();.|
|00000550| 0d 20 7d 09 2f 2a 20 4d | 79 4d 6f 72 65 4d 61 73 |. }./* M|yMoreMas|
|00000560| 74 65 72 73 20 2a 2f 0d | 0d 0d 0d 76 6f 69 64 20 |ters */.|...void |
|00000570| 49 6e 69 74 4d 61 6e 61 | 67 65 72 73 20 28 76 6f |InitMana|gers (vo|
|00000580| 69 64 29 09 7b 0d 0d 09 | 4d 61 78 41 70 70 6c 5a |id).{...|MaxApplZ|
|00000590| 6f 6e 65 28 29 3b 0d 09 | 4d 79 4d 6f 72 65 4d 61 |one();..|MyMoreMa|
|000005a0| 73 74 65 72 73 28 31 35 | 29 3b 0d 09 49 6e 69 74 |sters(15|);..Init|
|000005b0| 47 72 61 66 28 26 74 68 | 65 50 6f 72 74 29 3b 0d |Graf(&th|ePort);.|
|000005c0| 09 49 6e 69 74 46 6f 6e | 74 73 28 29 3b 0d 09 49 |.InitFon|ts();..I|
|000005d0| 6e 69 74 57 69 6e 64 6f | 77 73 28 29 3b 0d 09 49 |nitWindo|ws();..I|
|000005e0| 6e 69 74 4d 65 6e 75 73 | 28 29 3b 0d 09 54 45 49 |nitMenus|();..TEI|
|000005f0| 6e 69 74 28 29 3b 0d 09 | 49 6e 69 74 44 69 61 6c |nit();..|InitDial|
|00000600| 6f 67 73 28 26 46 61 74 | 61 6c 53 79 73 74 65 6d |ogs(&Fat|alSystem|
|00000610| 43 72 61 73 68 29 3b 0d | 09 3b 0d 09 46 6c 75 73 |Crash);.|.;..Flus|
|00000620| 68 45 76 65 6e 74 73 28 | 65 76 65 72 79 45 76 65 |hEvents(|everyEve|
|00000630| 6e 74 2c 20 30 29 3b 0d | 09 49 6e 69 74 43 75 72 |nt, 0);.|.InitCur|
|00000640| 73 6f 72 28 29 3b 0d 0d | 7d 09 2f 2a 20 49 6e 69 |sor();..|}./* Ini|
|00000650| 74 4d 61 6e 61 67 65 72 | 73 20 2a 2f 0d 0d 0d 0d |tManager|s */....|
|00000660| 2f 2a 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |/* =====|========|
|00000670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000680| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000690| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006b0| 3d 3d 3d 0d 20 20 20 54 | 65 73 74 20 66 6f 72 20 |===.   T|est for |
|000006c0| 74 68 65 20 70 72 65 73 | 65 6e 63 65 20 6f 66 20 |the pres|ence of |
|000006d0| 61 20 4d 61 63 20 77 69 | 74 68 20 43 6f 6c 6f 72 |a Mac wi|th Color|
|000006e0| 20 51 75 69 63 6b 44 72 | 61 77 20 61 6e 64 20 61 | QuickDr|aw and a|
|000006f0| 20 43 6f 6c 6f 72 20 4d | 6f 6e 69 74 6f 72 20 74 | Color M|onitor t|
|00000700| 68 61 74 20 74 68 65 0d | 20 20 20 75 73 65 72 20 |hat the.|   user |
|00000710| 68 61 73 20 73 65 74 20 | 74 6f 20 43 6f 6c 6f 72 |has set |to Color|
|00000720| 20 76 69 61 20 74 68 65 | 20 43 6f 6e 74 72 6f 6c | via the| Control|
|00000730| 20 50 61 6e 65 6c 20 6f | 72 20 75 73 69 6e 67 20 | Panel o|r using |
|00000740| 74 68 65 20 22 53 77 69 | 74 63 68 2d 41 2d 52 6f |the "Swi|tch-A-Ro|
|00000750| 6f 22 20 46 4b 45 59 2e | 0d 0d 20 20 20 52 65 74 |o" FKEY.|..   Ret|
|00000760| 75 72 6e 20 74 68 65 20 | 63 6f 6c 6f 72 20 64 65 |urn the |color de|
|00000770| 70 74 68 3a 0d 20 20 20 | 3d 3d 3d 3d 3d 3d 3d 3d |pth:.   |========|
|00000780| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000790| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007c0| 3d 3d 3d 3d 3d 3d 3d 3d | 20 2a 2f 0d 0d 42 6f 6f |========| */..Boo|
|000007d0| 6c 65 61 6e 20 54 65 73 | 74 46 6f 72 43 6f 6c 6f |lean Tes|tForColo|
|000007e0| 72 20 28 73 68 6f 72 74 | 20 2a 70 69 78 65 6c 44 |r (short| *pixelD|
|000007f0| 65 70 74 68 29 09 7b 0d | 0d 09 09 4f 53 45 72 72 |epth).{.|...OSErr|
|00000800| 09 09 77 68 6f 43 61 72 | 65 73 3b 09 2f 2a 20 43 |..whoCar|es;./* C|
|00000810| 6f 6d 70 69 6c 65 72 27 | 73 20 22 67 6c 75 65 22 |ompiler'|s "glue"|
|00000820| 20 66 6f 72 20 5f 53 79 | 73 45 6e 76 69 72 6f 6e | for _Sy|sEnviron|
|00000830| 73 20 66 69 6c 6c 73 2d | 69 6e 0d 09 09 09 09 09 |s fills-|in......|
|00000840| 09 09 09 20 20 20 61 6c | 6c 20 66 69 65 6c 64 73 |...   al|l fields|
|00000850| 20 45 58 43 45 50 54 20 | 73 79 73 74 65 6d 56 65 | EXCEPT |systemVe|
|00000860| 72 73 69 6f 6e 2e 20 20 | 20 20 20 20 20 20 20 20 |rsion.  |        |
|00000870| 20 20 2a 2f 0d 0d 09 77 | 68 6f 43 61 72 65 73 20 |  */...w|hoCares |
|00000880| 3d 20 53 79 73 45 6e 76 | 69 72 6f 6e 73 28 53 79 |= SysEnv|irons(Sy|
|00000890| 73 45 6e 76 69 72 6f 6e | 73 56 65 72 73 69 6f 6e |sEnviron|sVersion|
|000008a0| 2c 20 26 74 68 65 57 6f | 72 6c 64 29 3b 0d 09 69 |, &theWo|rld);..i|
|000008b0| 66 20 28 74 68 65 57 6f | 72 6c 64 2e 68 61 73 43 |f (theWo|rld.hasC|
|000008c0| 6f 6c 6f 72 51 44 29 0d | 09 7b 0d 09 09 2a 70 69 |olorQD).|.{...*pi|
|000008d0| 78 65 6c 44 65 70 74 68 | 20 3d 20 28 2a 2a 28 28 |xelDepth| = (**((|
|000008e0| 2a 47 65 74 47 44 65 76 | 69 63 65 28 29 29 2d 3e |*GetGDev|ice())->|
|000008f0| 67 64 50 4d 61 70 29 29 | 2e 70 69 78 65 6c 53 69 |gdPMap))|.pixelSi|
|00000900| 7a 65 3b 0d 09 09 72 65 | 74 75 72 6e 28 74 72 75 |ze;...re|turn(tru|
|00000910| 65 29 3b 0d 09 7d 0d 09 | 65 6c 73 65 0d 09 7b 0d |e);..}..|else..{.|
|00000920| 09 09 2a 70 69 78 65 6c | 44 65 70 74 68 20 3d 20 |..*pixel|Depth = |
|00000930| 31 3b 0d 09 09 72 65 74 | 75 72 6e 28 66 61 6c 73 |1;...ret|urn(fals|
|00000940| 65 29 3b 0d 09 7d 3b 0d | 0d 7d 09 2f 2a 20 54 65 |e);..};.|.}./* Te|
|00000950| 73 74 46 6f 72 43 6f 6c | 6f 72 20 2a 2f 0d 0d 0d |stForCol|or */...|
|00000960| 0d 20 42 6f 6f 6c 65 61 | 6e 20 53 79 73 74 65 6d |. Boolea|n System|
|00000970| 37 69 73 55 70 20 28 76 | 6f 69 64 29 09 7b 0d 20 |7isUp (v|oid).{. |
|00000980| 0d 20 09 09 4f 53 45 72 | 72 09 09 69 74 44 6f 65 |. ..OSEr|r..itDoe|
|00000990| 73 4d 61 74 74 65 72 3b | 0d 0d 0d 09 69 74 44 6f |sMatter;|....itDo|
|000009a0| 65 73 4d 61 74 74 65 72 | 20 3d 20 53 79 73 45 6e |esMatter| = SysEn|
|000009b0| 76 69 72 6f 6e 73 28 53 | 79 73 45 6e 76 69 72 6f |virons(S|ysEnviro|
|000009c0| 6e 73 56 65 72 73 69 6f | 6e 2c 20 26 74 68 65 57 |nsVersio|n, &theW|
|000009d0| 6f 72 6c 64 29 3b 0d 09 | 69 66 20 28 28 69 74 44 |orld);..|if ((itD|
|000009e0| 6f 65 73 4d 61 74 74 65 | 72 20 3d 3d 20 6e 6f 45 |oesMatte|r == noE|
|000009f0| 72 72 29 20 26 26 20 28 | 74 68 65 57 6f 72 6c 64 |rr) && (|theWorld|
|00000a00| 2e 73 79 73 74 65 6d 56 | 65 72 73 69 6f 6e 20 3e |.systemV|ersion >|
|00000a10| 3d 20 30 78 30 37 30 30 | 29 29 09 72 65 74 75 72 |= 0x0700|)).retur|
|00000a20| 6e 20 28 74 72 75 65 29 | 3b 0d 09 65 6c 73 65 09 |n (true)|;..else.|
|00000a30| 72 65 74 75 72 6e 20 28 | 66 61 6c 73 65 29 3b 0d |return (|false);.|
|00000a40| 0d 7d 09 2f 2a 20 53 79 | 73 74 65 6d 37 69 73 55 |.}./* Sy|stem7isU|
|00000a50| 70 20 2a 2f 0d 0d 0d 0d | 76 6f 69 64 09 53 79 73 |p */....|void.Sys|
|00000a60| 74 65 6d 37 42 72 61 67 | 67 61 72 74 20 28 76 6f |tem7Brag|gart (vo|
|00000a70| 69 64 29 09 7b 0d 0d 09 | 09 73 68 6f 72 74 09 09 |id).{...|.short..|
|00000a80| 6b 53 79 73 74 65 6d 37 | 20 3d 20 37 37 37 3b 0d |kSystem7| = 777;.|
|00000a90| 09 09 6c 6f 6e 67 09 09 | 6f 6e 48 65 61 70 20 20 |..long..|onHeap  |
|00000aa0| 20 3d 20 2d 31 3b 0d 09 | 09 53 79 73 45 6e 76 52 | = -1;..|.SysEnvR|
|00000ab0| 65 63 09 74 68 65 57 6f | 72 6c 64 3b 0d 09 09 4f |ec.theWo|rld;...O|
|00000ac0| 53 45 72 72 09 09 69 74 | 44 6f 65 73 4d 61 74 74 |SErr..it|DoesMatt|
|00000ad0| 65 72 3b 0d 09 09 47 72 | 61 66 50 74 72 09 09 6f |er;...Gr|afPtr..o|
|00000ae0| 6c 64 50 6f 72 74 3b 0d | 09 09 57 69 6e 64 6f 77 |ldPort;.|..Window|
|00000af0| 50 74 72 09 77 69 6e 64 | 6f 77 3b 0d 09 09 50 69 |Ptr.wind|ow;...Pi|
|00000b00| 63 48 61 6e 64 6c 65 09 | 6d 79 50 69 63 3b 0d 09 |cHandle.|myPic;..|
|00000b10| 09 52 65 63 74 09 09 77 | 70 52 65 63 74 2c 20 70 |.Rect..w|pRect, p|
|00000b20| 69 63 52 65 63 74 3b 0d | 09 09 6c 6f 6e 67 09 09 |icRect;.|..long..|
|00000b30| 66 69 6e 61 6c 54 69 63 | 6b 73 3b 0d 0d 0d 09 69 |finalTic|ks;....i|
|00000b40| 74 44 6f 65 73 4d 61 74 | 74 65 72 20 3d 20 53 79 |tDoesMat|ter = Sy|
|00000b50| 73 45 6e 76 69 72 6f 6e | 73 28 53 79 73 45 6e 76 |sEnviron|s(SysEnv|
|00000b60| 69 72 6f 6e 73 56 65 72 | 73 69 6f 6e 2c 20 26 74 |ironsVer|sion, &t|
|00000b70| 68 65 57 6f 72 6c 64 29 | 3b 0d 09 69 66 20 28 28 |heWorld)|;..if ((|
|00000b80| 69 74 44 6f 65 73 4d 61 | 74 74 65 72 20 3d 3d 20 |itDoesMa|tter == |
|00000b90| 6e 6f 45 72 72 29 20 26 | 26 20 28 74 68 65 57 6f |noErr) &|& (theWo|
|00000ba0| 72 6c 64 2e 73 79 73 74 | 65 6d 56 65 72 73 69 6f |rld.syst|emVersio|
|00000bb0| 6e 20 3e 3d 20 30 78 30 | 37 30 30 29 29 0d 09 7b |n >= 0x0|700))..{|
|00000bc0| 0d 09 09 47 65 74 50 6f | 72 74 28 26 6f 6c 64 50 |...GetPo|rt(&oldP|
|00000bd0| 6f 72 74 29 3b 0d 0d 09 | 09 77 69 6e 64 6f 77 20 |ort);...|.window |
|00000be0| 3d 20 47 65 74 4e 65 77 | 57 69 6e 64 6f 77 28 6b |= GetNew|Window(k|
|00000bf0| 53 79 73 74 65 6d 37 2c | 20 6e 69 6c 2c 20 28 57 |System7,| nil, (W|
|00000c00| 69 6e 64 6f 77 50 74 72 | 29 6f 6e 48 65 61 70 29 |indowPtr|)onHeap)|
|00000c10| 3b 0d 09 09 69 66 20 28 | 77 69 6e 64 6f 77 20 21 |;...if (|window !|
|00000c20| 3d 20 6e 69 6c 29 0d 09 | 09 7b 0d 09 09 09 53 65 |= nil)..|.{....Se|
|00000c30| 74 50 6f 72 74 28 77 69 | 6e 64 6f 77 29 3b 0d 09 |tPort(wi|ndow);..|
|00000c40| 09 09 77 70 52 65 63 74 | 20 3d 20 77 69 6e 64 6f |..wpRect| = windo|
|00000c50| 77 2d 3e 70 6f 72 74 52 | 65 63 74 3b 0d 09 09 09 |w->portR|ect;....|
|00000c60| 43 6c 69 70 52 65 63 74 | 28 26 77 70 52 65 63 74 |ClipRect|(&wpRect|
|00000c70| 29 3b 0d 09 09 09 6d 79 | 50 69 63 20 3d 20 47 65 |);....my|Pic = Ge|
|00000c80| 74 50 69 63 74 75 72 65 | 28 6b 53 79 73 74 65 6d |tPicture|(kSystem|
|00000c90| 37 29 3b 0d 0d 09 09 09 | 69 66 20 28 6d 79 50 69 |7);.....|if (myPi|
|00000ca0| 63 20 21 3d 20 6e 69 6c | 29 0d 09 09 09 7b 0d 09 |c != nil|)....{..|
|00000cb0| 09 09 09 70 69 63 52 65 | 63 74 20 3d 20 77 70 52 |...picRe|ct = wpR|
|00000cc0| 65 63 74 3b 0d 09 09 09 | 09 49 6e 73 65 74 52 65 |ect;....|.InsetRe|
|00000cd0| 63 74 28 26 70 69 63 52 | 65 63 74 2c 20 31 2c 20 |ct(&picR|ect, 1, |
|00000ce0| 31 29 3b 0d 09 09 09 09 | 44 72 61 77 50 69 63 74 |1);.....|DrawPict|
|00000cf0| 75 72 65 28 6d 79 50 69 | 63 2c 20 26 70 69 63 52 |ure(myPi|c, &picR|
|00000d00| 65 63 74 29 3b 09 2f 2f | 20 20 2e 2e 2e 20 73 6f |ect);.//|  ... so|
|00000d10| 20 69 74 27 73 20 63 65 | 6e 74 65 72 65 64 2e 0d | it's ce|ntered..|
|00000d20| 09 09 09 09 44 65 6c 61 | 79 28 36 30 2c 20 26 66 |....Dela|y(60, &f|
|00000d30| 69 6e 61 6c 54 69 63 6b | 73 29 3b 0d 09 09 09 09 |inalTick|s);.....|
|00000d40| 49 6e 76 65 72 74 52 65 | 63 74 28 26 77 70 52 65 |InvertRe|ct(&wpRe|
|00000d50| 63 74 29 3b 0d 09 09 09 | 09 44 65 6c 61 79 28 31 |ct);....|.Delay(1|
|00000d60| 32 30 2c 20 26 66 69 6e | 61 6c 54 69 63 6b 73 29 |20, &fin|alTicks)|
|00000d70| 3b 0d 09 09 09 09 4b 69 | 6c 6c 50 69 63 74 75 72 |;.....Ki|llPictur|
|00000d80| 65 28 6d 79 50 69 63 29 | 3b 0d 09 09 09 7d 09 2f |e(myPic)|;....}./|
|00000d90| 2a 20 47 6f 74 20 61 20 | 70 69 63 74 75 72 65 20 |* Got a |picture |
|00000da0| 2a 2f 0d 0d 09 09 09 44 | 69 73 70 6f 73 65 57 69 |*/.....D|isposeWi|
|00000db0| 6e 64 6f 77 28 77 69 6e | 64 6f 77 29 3b 0d 09 09 |ndow(win|dow);...|
|00000dc0| 7d 09 2f 2a 20 47 6f 74 | 20 61 20 77 69 6e 64 6f |}./* Got| a windo|
|00000dd0| 77 20 2a 2f 0d 0d 09 09 | 53 65 74 50 6f 72 74 28 |w */....|SetPort(|
|00000de0| 6f 6c 64 50 6f 72 74 29 | 3b 0d 0d 09 7d 09 2f 2a |oldPort)|;...}./*|
|00000df0| 20 47 6f 74 20 53 79 73 | 74 65 6d 20 37 20 2a 2f | Got Sys|tem 7 */|
|00000e00| 0d 0d 7d 09 2f 2a 20 53 | 79 73 74 65 6d 37 42 72 |..}./* S|ystem7Br|
|00000e10| 61 67 67 61 72 74 20 2a | 2f 0d 0d 0d 0d 2f 2a 20 |aggart *|/..../* |
|00000e20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e30| 3d 3d 3d 0d 20 20 20 41 | 20 73 68 6f 72 74 2d 63 |===.   A| short-c|
|00000e40| 75 74 20 6f 72 20 74 77 | 6f 3a 0d 20 20 20 3d 3d |ut or tw|o:.   ==|
|00000e50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e60| 3d 20 2a 2f 0d 0d 76 6f | 69 64 20 4c 6f 63 61 6c |= */..vo|id Local|
|00000e70| 47 6c 6f 62 61 6c 20 28 | 52 65 63 74 20 2a 72 29 |Global (|Rect *r)|
|00000e80| 09 7b 0d 0d 09 4c 6f 63 | 61 6c 54 6f 47 6c 6f 62 |.{...Loc|alToGlob|
|00000e90| 61 6c 28 26 74 6f 70 4c | 65 66 74 28 2a 72 29 29 |al(&topL|eft(*r))|
|00000ea0| 3b 0d 09 4c 6f 63 61 6c | 54 6f 47 6c 6f 62 61 6c |;..Local|ToGlobal|
|00000eb0| 28 26 62 6f 74 52 69 67 | 68 74 28 2a 72 29 29 3b |(&botRig|ht(*r));|
|00000ec0| 0d 0d 7d 09 2f 2a 20 4c | 6f 63 61 6c 47 6c 6f 62 |..}./* L|ocalGlob|
|00000ed0| 61 6c 20 2a 2f 0d 0d 0d | 0d 76 6f 69 64 20 47 6c |al */...|.void Gl|
|00000ee0| 6f 62 61 6c 4c 6f 63 61 | 6c 20 28 52 65 63 74 20 |obalLoca|l (Rect |
|00000ef0| 2a 72 29 09 7b 0d 0d 09 | 47 6c 6f 62 61 6c 54 6f |*r).{...|GlobalTo|
|00000f00| 4c 6f 63 61 6c 28 26 74 | 6f 70 4c 65 66 74 28 2a |Local(&t|opLeft(*|
|00000f10| 72 29 29 3b 0d 09 47 6c | 6f 62 61 6c 54 6f 4c 6f |r));..Gl|obalToLo|
|00000f20| 63 61 6c 28 26 62 6f 74 | 52 69 67 68 74 28 2a 72 |cal(&bot|Right(*r|
|00000f30| 29 29 3b 0d 0d 7d 09 2f | 2a 20 47 6c 6f 62 61 6c |));..}./|* Global|
|00000f40| 4c 6f 63 61 6c 20 2a 2f | 0d 0d 0d 0d 73 68 6f 72 |Local */|....shor|
|00000f50| 74 09 4d 61 78 20 28 73 | 68 6f 72 74 20 61 2c 20 |t.Max (s|hort a, |
|00000f60| 73 68 6f 72 74 20 62 29 | 09 7b 0d 0d 09 69 66 20 |short b)|.{...if |
|00000f70| 28 61 20 3e 3d 20 62 29 | 09 72 65 74 75 72 6e 28 |(a >= b)|.return(|
|00000f80| 61 29 3b 0d 09 65 6c 73 | 65 09 72 65 74 75 72 6e |a);..els|e.return|
|00000f90| 28 62 29 3b 0d 0d 7d 09 | 2f 2a 20 4d 61 78 20 2a |(b);..}.|/* Max *|
|00000fa0| 2f 0d 0d 0d 0d 73 68 6f | 72 74 09 4d 69 6e 20 28 |/....sho|rt.Min (|
|00000fb0| 73 68 6f 72 74 20 61 2c | 20 73 68 6f 72 74 20 62 |short a,| short b|
|00000fc0| 29 09 7b 0d 0d 09 69 66 | 20 28 61 20 3c 3d 20 62 |).{...if| (a <= b|
|00000fd0| 29 09 72 65 74 75 72 6e | 28 61 29 3b 0d 09 65 6c |).return|(a);..el|
|00000fe0| 73 65 09 72 65 74 75 72 | 6e 28 62 29 3b 0d 0d 7d |se.retur|n(b);..}|
|00000ff0| 09 2f 2a 20 4d 69 6e 20 | 2a 2f 0d 0d 0d 0d 64 6f |./* Min |*/....do|
|00001000| 75 62 6c 65 09 78 50 4f | 57 45 52 79 20 28 64 6f |uble.xPO|WERy (do|
|00001010| 75 62 6c 65 20 78 2c 20 | 64 6f 75 62 6c 65 20 79 |uble x, |double y|
|00001020| 29 09 7b 0d 0d 09 09 64 | 6f 75 62 6c 65 09 74 69 |).{....d|ouble.ti|
|00001030| 6d 65 73 2c 20 74 65 6d | 70 3b 0d 09 09 0d 0d 09 |mes, tem|p;......|
|00001040| 74 65 6d 70 20 3d 20 78 | 3b 0d 09 66 6f 72 20 28 |temp = x|;..for (|
|00001050| 74 69 6d 65 73 20 3d 20 | 79 2d 31 3b 20 74 69 6d |times = |y-1; tim|
|00001060| 65 73 3b 20 74 69 6d 65 | 73 2d 2d 29 09 78 20 2a |es; time|s--).x *|
|00001070| 3d 20 74 65 6d 70 3b 0d | 09 72 65 74 75 72 6e 20 |= temp;.|.return |
|00001080| 28 78 29 3b 0d 0d 7d 09 | 2f 2a 20 78 50 4f 57 45 |(x);..}.|/* xPOWE|
|00001090| 52 79 20 2a 2f 0d 0d 0d | 0d 2f 2a 20 3d 3d 3d 3d |Ry */...|./* ====|
|000010a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000010c0| 0d 20 20 20 43 6f 6d 6d | 6f 6e 20 74 6f 20 74 68 |.   Comm|on to th|
|000010d0| 65 20 72 6f 75 74 69 6e | 65 73 20 74 68 61 74 20 |e routin|es that |
|000010e0| 66 6f 6c 6c 6f 77 3a 0d | 20 20 20 52 65 66 65 72 |follow:.|   Refer|
|000010f0| 65 6e 63 65 3a 20 49 4d | 2c 20 56 6f 6c 75 6d 65 |ence: IM|, Volume|
|00001100| 20 56 49 2c 20 43 68 61 | 70 74 65 72 20 33 3a 0d | VI, Cha|pter 3:.|
|00001110| 20 20 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |   =====|========|
|00001120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001130| 3d 3d 3d 3d 3d 3d 3d 20 | 2a 2f 0d 0d 20 54 72 61 |======= |*/.. Tra|
|00001140| 70 54 79 70 65 20 47 65 | 74 54 72 61 70 54 79 70 |pType Ge|tTrapTyp|
|00001150| 65 20 28 73 68 6f 72 74 | 20 74 68 65 54 72 61 70 |e (short| theTrap|
|00001160| 29 09 7b 0d 0d 09 09 73 | 68 6f 72 74 20 54 72 61 |).{....s|hort Tra|
|00001170| 70 4d 61 73 6b 20 3d 20 | 30 78 30 38 30 30 3b 20 |pMask = |0x0800; |
|00001180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a |        |      /*|
|00001190| 20 54 65 73 74 73 20 42 | 69 74 20 23 31 31 2e 20 | Tests B|it #11. |
|000011a0| 2a 2f 0d 0d 0d 09 69 66 | 09 28 74 68 65 54 72 61 |*/....if|.(theTra|
|000011b0| 70 20 26 20 54 72 61 70 | 4d 61 73 6b 29 09 72 65 |p & Trap|Mask).re|
|000011c0| 74 75 72 6e 28 54 6f 6f | 6c 54 72 61 70 29 3b 0d |turn(Too|lTrap);.|
|000011d0| 09 65 6c 73 65 09 72 65 | 74 75 72 6e 28 4f 53 54 |.else.re|turn(OST|
|000011e0| 72 61 70 29 3b 0d 0d 7d | 09 2f 2a 20 47 65 74 54 |rap);..}|./* GetT|
|000011f0| 72 61 70 54 79 70 65 20 | 2a 2f 0d 0d 0d 0d 20 73 |rapType |*/.... s|
|00001200| 68 6f 72 74 20 47 65 74 | 54 72 61 70 4e 75 6d 20 |hort Get|TrapNum |
|00001210| 28 73 68 6f 72 74 20 74 | 68 65 54 72 61 70 29 09 |(short t|heTrap).|
|00001220| 7b 0d 0d 09 09 73 68 6f | 72 74 20 54 6f 6f 6c 4d |{....sho|rt ToolM|
|00001230| 61 73 6b 20 3d 20 30 78 | 30 31 46 46 3b 0d 09 09 |ask = 0x|01FF;...|
|00001240| 73 68 6f 72 74 20 4f 53 | 4d 61 73 6b 20 20 20 3d |short OS|Mask   =|
|00001250| 20 30 78 30 30 46 46 3b | 0d 0d 0d 09 69 66 20 28 | 0x00FF;|....if (|
|00001260| 47 65 74 54 72 61 70 54 | 79 70 65 28 74 68 65 54 |GetTrapT|ype(theT|
|00001270| 72 61 70 29 20 3d 3d 20 | 54 6f 6f 6c 54 72 61 70 |rap) == |ToolTrap|
|00001280| 29 09 72 65 74 75 72 6e | 28 74 68 65 54 72 61 70 |).return|(theTrap|
|00001290| 20 26 20 54 6f 6f 6c 4d | 61 73 6b 29 3b 0d 09 65 | & ToolM|ask);..e|
|000012a0| 6c 73 65 09 72 65 74 75 | 72 6e 28 74 68 65 54 72 |lse.retu|rn(theTr|
|000012b0| 61 70 20 26 20 4f 53 4d | 61 73 6b 29 3b 0d 0d 20 |ap & OSM|ask);.. |
|000012c0| 7d 09 2f 2a 20 47 65 74 | 54 72 61 70 4e 75 6d 20 |}./* Get|TrapNum |
|000012d0| 2a 2f 0d 0d 0d 0d 20 73 | 68 6f 72 74 20 4e 75 6d |*/.... s|hort Num|
|000012e0| 54 6f 6f 6c 62 6f 78 54 | 72 61 70 73 20 28 76 6f |ToolboxT|raps (vo|
|000012f0| 69 64 29 09 7b 0d 0d 09 | 20 2f 2a 20 23 64 65 66 |id).{...| /* #def|
|00001300| 69 6e 65 09 5f 49 6e 69 | 74 47 72 61 66 20 3d 20 |ine._Ini|tGraf = |
|00001310| 30 78 41 38 36 45 3b 20 | 2a 2f 0d 09 09 73 68 6f |0xA86E; |*/...sho|
|00001320| 72 74 20 5f 4d 61 67 69 | 63 20 20 20 20 3d 20 30 |rt _Magi|c    = 0|
|00001330| 78 41 41 36 45 3b 0d 0d | 0d 09 69 66 20 28 4e 47 |xAA6E;..|..if (NG|
|00001340| 65 74 54 72 61 70 41 64 | 64 72 65 73 73 28 47 65 |etTrapAd|dress(Ge|
|00001350| 74 54 72 61 70 4e 75 6d | 28 5f 49 6e 69 74 47 72 |tTrapNum|(_InitGr|
|00001360| 61 66 29 2c 20 47 65 74 | 54 72 61 70 54 79 70 65 |af), Get|TrapType|
|00001370| 28 5f 49 6e 69 74 47 72 | 61 66 29 29 20 3d 3d 20 |(_InitGr|af)) == |
|00001380| 0d 09 09 4e 47 65 74 54 | 72 61 70 41 64 64 72 65 |...NGetT|rapAddre|
|00001390| 73 73 28 47 65 74 54 72 | 61 70 4e 75 6d 28 5f 4d |ss(GetTr|apNum(_M|
|000013a0| 61 67 69 63 29 2c 20 47 | 65 74 54 72 61 70 54 79 |agic), G|etTrapTy|
|000013b0| 70 65 28 5f 4d 61 67 69 | 63 29 29 29 09 72 65 74 |pe(_Magi|c))).ret|
|000013c0| 75 72 6e 28 30 78 30 32 | 30 30 29 3b 0d 09 65 6c |urn(0x02|00);..el|
|000013d0| 73 65 09 72 65 74 75 72 | 6e 28 30 78 30 34 30 30 |se.retur|n(0x0400|
|000013e0| 29 3b 0d 0d 20 7d 09 2f | 2a 20 4e 75 6d 54 6f 6f |);.. }./|* NumToo|
|000013f0| 6c 62 6f 78 54 72 61 70 | 73 20 2a 2f 0d 0d 0d 0d |lboxTrap|s */....|
|00001400| 20 42 6f 6f 6c 65 61 6e | 20 54 72 61 70 41 76 61 | Boolean| TrapAva|
|00001410| 69 6c 61 62 6c 65 20 28 | 73 68 6f 72 74 20 74 68 |ilable (|short th|
|00001420| 65 54 72 61 70 29 09 7b | 0d 0d 09 09 73 68 6f 72 |eTrap).{|....shor|
|00001430| 74 09 09 74 72 61 70 4e | 75 6d 2c 20 74 65 6d 70 |t..trapN|um, temp|
|00001440| 49 4e 54 3b 0d 09 09 54 | 72 61 70 54 79 70 65 09 |INT;...T|rapType.|
|00001450| 74 54 79 70 65 3b 0d 0d | 0d 09 74 72 61 70 4e 75 |tType;..|..trapNu|
|00001460| 6d 20 3d 20 47 65 74 54 | 72 61 70 4e 75 6d 28 74 |m = GetT|rapNum(t|
|00001470| 68 65 54 72 61 70 29 3b | 0d 09 74 54 79 70 65 20 |heTrap);|..tType |
|00001480| 3d 20 47 65 74 54 72 61 | 70 54 79 70 65 28 74 68 |= GetTra|pType(th|
|00001490| 65 54 72 61 70 29 3b 0d | 0d 09 69 66 20 28 74 54 |eTrap);.|..if (tT|
|000014a0| 79 70 65 20 3d 3d 20 54 | 6f 6f 6c 54 72 61 70 29 |ype == T|oolTrap)|
|000014b0| 09 7b 0d 09 09 74 65 6d | 70 49 4e 54 20 3d 20 74 |.{...tem|pINT = t|
|000014c0| 68 65 54 72 61 70 20 5e | 20 30 78 41 38 30 30 3b |heTrap ^| 0xA800;|
|000014d0| 0d 09 09 69 66 20 28 74 | 65 6d 70 49 4e 54 20 3e |...if (t|empINT >|
|000014e0| 3d 20 4e 75 6d 54 6f 6f | 6c 62 6f 78 54 72 61 70 |= NumToo|lboxTrap|
|000014f0| 73 28 29 29 09 74 72 61 | 70 4e 75 6d 20 3d 20 47 |s()).tra|pNum = G|
|00001500| 65 74 54 72 61 70 4e 75 | 6d 28 5f 55 6e 69 6d 70 |etTrapNu|m(_Unimp|
|00001510| 6c 65 6d 65 6e 74 65 64 | 29 3b 0d 09 7d 09 2f 2a |lemented|);..}./*|
|00001520| 20 61 20 54 6f 6f 6c 54 | 72 61 70 20 2a 2f 0d 0d | a ToolT|rap */..|
|00001530| 09 72 65 74 75 72 6e 28 | 4e 47 65 74 54 72 61 70 |.return(|NGetTrap|
|00001540| 41 64 64 72 65 73 73 28 | 74 72 61 70 4e 75 6d 2c |Address(|trapNum,|
|00001550| 20 74 54 79 70 65 29 20 | 21 3d 20 0d 09 09 20 20 | tType) |!= ...  |
|00001560| 20 4e 47 65 74 54 72 61 | 70 41 64 64 72 65 73 73 | NGetTra|pAddress|
|00001570| 28 47 65 74 54 72 61 70 | 4e 75 6d 28 5f 55 6e 69 |(GetTrap|Num(_Uni|
|00001580| 6d 70 6c 65 6d 65 6e 74 | 65 64 29 2c 20 47 65 74 |mplement|ed), Get|
|00001590| 54 72 61 70 54 79 70 65 | 28 5f 55 6e 69 6d 70 6c |TrapType|(_Unimpl|
|000015a0| 65 6d 65 6e 74 65 64 29 | 29 29 3b 0d 0d 7d 09 2f |emented)|));..}./|
|000015b0| 2a 20 54 72 61 70 41 76 | 61 69 6c 61 62 6c 65 20 |* TrapAv|ailable |
|000015c0| 2a 2f 0d 0d 0d 0d 2f 2a | 20 3d 3d 3d 3d 3d 3d 3d |*/..../*| =======|
|000015d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000015e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000015f0| 3d 3d 3d 3d 3d 3d 3d 0d | 20 20 20 4e 6f 77 2c 20 |=======.|   Now, |
|00001600| 6c 65 74 27 73 20 70 75 | 74 20 74 68 69 73 20 6e |let's pu|t this n|
|00001610| 65 77 20 66 61 6e 67 6c | 65 64 20 73 74 75 66 66 |ew fangl|ed stuff|
|00001620| 20 74 6f 20 77 6f 72 6b | 3a 0d 20 20 20 3d 3d 3d | to work|:.   ===|
|00001630| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001640| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 20 2a 2f 0d 0d |========|=== */..|
|00001660| 20 42 6f 6f 6c 65 61 6e | 20 57 4e 45 69 73 49 6d | Boolean| WNEisIm|
|00001670| 70 6c 65 6d 65 6e 74 65 | 64 20 28 76 6f 69 64 29 |plemente|d (void)|
|00001680| 09 7b 0d 0d 09 72 65 74 | 75 72 6e 28 54 72 61 70 |.{...ret|urn(Trap|
|00001690| 41 76 61 69 6c 61 62 6c | 65 28 5f 57 61 69 74 4e |Availabl|e(_WaitN|
|000016a0| 65 78 74 45 76 65 6e 74 | 29 29 3b 0d 0d 7d 09 2f |extEvent|));..}./|
|000016b0| 2a 20 57 4e 45 69 73 49 | 6d 70 6c 65 6d 65 6e 74 |* WNEisI|mplement|
|000016c0| 65 64 20 2a 2f 0d 0d 0d | 0d 2f 2a 20 3d 3d 3d 3d |ed */...|./* ====|
|000016d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 20 20 20 50 |========|===.   P|
|000016e0| 6c 61 79 20 69 74 2c 20 | 53 61 6d 20 21 21 20 0d |lay it, |Sam !! .|
|000016f0| 20 20 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |   =====|========|
|00001700| 3d 3d 20 2a 2f 0d 0d 20 | 76 6f 69 64 20 50 6c 61 |== */.. |void Pla|
|00001710| 79 53 6f 75 6e 64 20 28 | 63 68 61 72 20 2a 6d 79 |ySound (|char *my|
|00001720| 53 6f 75 6e 64 29 09 7b | 0d 0d 09 09 48 61 6e 64 |Sound).{|....Hand|
|00001730| 6c 65 09 09 09 73 6e 64 | 48 61 6e 64 6c 65 3b 0d |le...snd|Handle;.|
|00001740| 09 09 4f 53 45 72 72 09 | 09 09 64 69 73 63 61 72 |..OSErr.|..discar|
|00001750| 64 45 72 72 6f 72 3b 0d | 09 09 75 6e 73 69 67 6e |dError;.|..unsign|
|00001760| 65 64 20 63 68 61 72 09 | 2a 70 53 6f 75 6e 64 3b |ed char.|*pSound;|
|00001770| 0d 0d 0d 09 69 66 20 28 | 54 72 61 70 41 76 61 69 |....if (|TrapAvai|
|00001780| 6c 61 62 6c 65 28 5f 53 | 6e 64 50 6c 61 79 29 29 |lable(_S|ndPlay))|
|00001790| 0d 09 7b 0d 09 09 69 66 | 20 28 21 69 73 50 53 74 |..{...if| (!isPSt|
|000017a0| 72 69 6e 67 28 6d 79 53 | 6f 75 6e 64 29 29 09 70 |ring(myS|ound)).p|
|000017b0| 53 6f 75 6e 64 20 3d 20 | 43 74 6f 50 73 74 72 28 |Sound = |CtoPstr(|
|000017c0| 6d 79 53 6f 75 6e 64 29 | 3b 0d 09 09 65 6c 73 65 |mySound)|;...else|
|000017d0| 09 09 09 09 09 09 70 53 | 6f 75 6e 64 20 3d 20 28 |......pS|ound = (|
|000017e0| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 2a 29 6d |unsigned| char*)m|
|000017f0| 79 53 6f 75 6e 64 3b 0d | 0d 09 09 73 6e 64 48 61 |ySound;.|...sndHa|
|00001800| 6e 64 6c 65 20 3d 20 47 | 65 74 4e 61 6d 65 64 52 |ndle = G|etNamedR|
|00001810| 65 73 6f 75 72 63 65 28 | 27 73 6e 64 20 27 2c 20 |esource(|'snd ', |
|00001820| 70 53 6f 75 6e 64 29 3b | 0d 09 09 69 66 20 28 73 |pSound);|...if (s|
|00001830| 6e 64 48 61 6e 64 6c 65 | 29 0d 09 09 7b 0d 09 09 |ndHandle|)...{...|
|00001840| 09 64 69 73 63 61 72 64 | 45 72 72 6f 72 20 3d 20 |.discard|Error = |
|00001850| 53 6e 64 50 6c 61 79 20 | 28 6e 69 6c 2c 20 73 6e |SndPlay |(nil, sn|
|00001860| 64 48 61 6e 64 6c 65 2c | 20 66 61 6c 73 65 29 3b |dHandle,| false);|
|00001870| 0d 09 09 09 52 65 6c 65 | 61 73 65 52 65 73 6f 75 |....Rele|aseResou|
|00001880| 72 63 65 28 73 6e 64 48 | 61 6e 64 6c 65 29 3b 0d |rce(sndH|andle);.|
|00001890| 09 09 7d 0d 09 7d 09 2f | 2a 20 5f 53 6e 64 50 6c |..}..}./|* _SndPl|
|000018a0| 61 79 20 69 73 20 69 6d | 70 6c 65 6d 65 6e 74 65 |ay is im|plemente|
|000018b0| 64 20 2a 2f 0d 0d 7d 09 | 2f 2a 20 50 6c 61 79 53 |d */..}.|/* PlayS|
|000018c0| 6f 75 6e 64 20 2a 2f 0d | 0d 0d 0d 6c 6f 6e 67 09 |ound */.|...long.|
|000018d0| 47 65 74 53 74 72 69 70 | 41 64 64 72 65 73 73 4d |GetStrip|AddressM|
|000018e0| 61 73 6b 20 28 76 6f 69 | 64 29 09 7b 0d 2f 2a 20 |ask (voi|d).{./* |
|000018f0| 41 64 61 70 74 65 64 20 | 66 72 6f 6d 20 4d 61 63 |Adapted |from Mac|
|00001900| 69 6e 74 6f 73 68 20 54 | 65 63 68 20 4e 6f 74 65 |intosh T|ech Note|
|00001910| 20 23 32 31 33 20 2a 2f | 0d 0d 09 09 6c 6f 6e 67 | #213 */|....long|
|00001920| 09 67 4c 6f 33 42 79 74 | 65 73 09 09 3d 20 30 78 |.gLo3Byt|es..= 0x|
|00001930| 30 30 46 46 46 46 46 46 | 3b 0d 09 20 2f 2a 20 23 |00FFFFFF|;.. /* #|
|00001940| 64 65 66 69 6e 65 09 5f | 53 74 72 69 70 41 64 64 |define._|StripAdd|
|00001950| 72 65 73 73 20 3d 20 30 | 78 41 30 35 35 3b 20 2a |ress = 0|xA055; *|
|00001960| 2f 0d 0d 09 09 6c 6f 6e | 67 09 6c 6f 63 61 6c 42 |/....lon|g.localB|
|00001970| 69 67 67 65 65 3b 0d 0d | 0d 09 69 66 20 28 54 72 |iggee;..|..if (Tr|
|00001980| 61 70 41 76 61 69 6c 61 | 62 6c 65 28 5f 53 74 72 |apAvaila|ble(_Str|
|00001990| 69 70 41 64 64 72 65 73 | 73 29 29 0d 09 7b 0d 09 |ipAddres|s))..{..|
|000019a0| 09 6c 6f 63 61 6c 42 69 | 67 67 65 65 20 3d 20 30 |.localBi|ggee = 0|
|000019b0| 78 46 46 46 46 46 46 46 | 46 3b 0d 09 09 72 65 74 |xFFFFFFF|F;...ret|
|000019c0| 75 72 6e 28 28 6c 6f 6e | 67 29 53 74 72 69 70 41 |urn((lon|g)StripA|
|000019d0| 64 64 72 65 73 73 28 28 | 50 74 72 29 26 6c 6f 63 |ddress((|Ptr)&loc|
|000019e0| 61 6c 42 69 67 67 65 65 | 29 29 3b 0d 09 7d 0d 09 |alBiggee|));..}..|
|000019f0| 65 6c 73 65 09 72 65 74 | 75 72 6e 28 67 4c 6f 33 |else.ret|urn(gLo3|
|00001a00| 42 79 74 65 73 29 3b 0d | 0d 7d 09 2f 2a 20 47 65 |Bytes);.|.}./* Ge|
|00001a10| 74 53 74 72 69 70 41 64 | 64 72 65 73 73 4d 61 73 |tStripAd|dressMas|
|00001a20| 6b 20 2a 2f 0d 0d 0d 0d | 50 74 72 09 51 75 69 63 |k */....|Ptr.Quic|
|00001a30| 6b 53 74 72 69 70 20 28 | 6c 6f 6e 67 20 2a 6d 79 |kStrip (|long *my|
|00001a40| 50 74 72 29 09 7b 0d 0d | 09 72 65 74 75 72 6e 28 |Ptr).{..|.return(|
|00001a50| 28 50 74 72 29 28 28 6c | 6f 6e 67 29 6d 79 50 74 |(Ptr)((l|ong)myPt|
|00001a60| 72 20 26 20 67 53 74 72 | 69 70 41 64 64 72 65 73 |r & gStr|ipAddres|
|00001a70| 73 4d 61 73 6b 29 29 3b | 0d 0d 7d 09 2f 2a 20 51 |sMask));|..}./* Q|
|00001a80| 75 69 63 6b 53 74 72 69 | 70 20 2a 2f 0d 0d 0d 0d |uickStri|p */....|
|00001a90| 42 6f 6f 6c 65 61 6e 09 | 69 73 50 53 74 72 69 6e |Boolean.|isPStrin|
|00001aa0| 67 20 28 63 68 61 72 20 | 2a 6d 79 53 74 72 69 6e |g (char |*myStrin|
|00001ab0| 67 29 09 7b 0d 2f 2a 0d | 2a 2a 20 49 66 20 46 41 |g).{./*.|** If FA|
|00001ac0| 4c 53 45 2c 20 74 68 65 | 6e 20 69 74 27 73 20 61 |LSE, the|n it's a|
|00001ad0| 20 43 20 73 74 72 69 6e | 67 2e 0d 2a 2a 0d 2a 2a | C strin|g..**.**|
|00001ae0| 20 4e 4f 54 20 61 20 74 | 6f 74 61 6c 6c 79 20 67 | NOT a t|otally g|
|00001af0| 65 6e 65 72 61 6c 20 61 | 70 70 72 6f 61 63 68 20 |eneral a|pproach |
|00001b00| 73 69 6e 63 65 20 77 65 | 20 61 73 73 75 6d 65 20 |since we| assume |
|00001b10| 74 68 61 74 0d 2a 2a 20 | 65 76 65 72 79 20 63 68 |that.** |every ch|
|00001b20| 61 72 61 63 74 65 72 20 | 69 6e 20 74 68 65 20 61 |aracter |in the a|
|00001b30| 63 74 75 61 6c 20 73 74 | 72 69 6e 67 20 69 73 20 |ctual st|ring is |
|00001b40| 70 72 69 6e 74 61 62 6c | 65 3a 0d 2a 2f 0d 0d 09 |printabl|e:.*/...|
|00001b50| 09 73 68 6f 72 74 09 09 | 09 6c 65 6e 2c 20 6d 61 |.short..|.len, ma|
|00001b60| 78 4c 65 6e 20 3d 20 32 | 35 35 3b 0d 09 09 72 65 |xLen = 2|55;...re|
|00001b70| 67 69 73 74 65 72 20 73 | 68 6f 72 74 09 69 3b 0d |gister s|hort.i;.|
|00001b80| 09 09 42 6f 6f 6c 65 61 | 6e 09 09 09 72 65 73 75 |..Boolea|n...resu|
|00001b90| 6c 74 2c 20 50 53 74 72 | 69 6e 67 20 3d 20 74 72 |lt, PStr|ing = tr|
|00001ba0| 75 65 2c 20 43 53 74 72 | 69 6e 67 20 3d 20 66 61 |ue, CStr|ing = fa|
|00001bb0| 6c 73 65 3b 0d 09 09 0d | 09 09 0d 09 6c 65 6e 20 |lse;....|....len |
|00001bc0| 3d 20 2a 6d 79 53 74 72 | 69 6e 67 3b 0d 09 0d 09 |= *myStr|ing;....|
|00001bd0| 69 66 20 28 20 21 69 73 | 70 72 69 6e 74 28 6c 65 |if ( !is|print(le|
|00001be0| 6e 29 20 29 09 72 65 73 | 75 6c 74 20 3d 20 50 53 |n) ).res|ult = PS|
|00001bf0| 74 72 69 6e 67 3b 0d 09 | 65 6c 73 65 0d 09 7b 0d |tring;..|else..{.|
|00001c00| 09 09 66 6f 72 20 28 69 | 20 3d 20 31 3b 20 69 20 |..for (i| = 1; i |
|00001c10| 3c 3d 20 6c 65 6e 3b 20 | 2b 2b 69 29 0d 09 09 09 |<= len; |++i)....|
|00001c20| 69 66 20 28 20 21 69 73 | 70 72 69 6e 74 28 6d 79 |if ( !is|print(my|
|00001c30| 53 74 72 69 6e 67 5b 69 | 5d 29 20 29 09 62 72 65 |String[i|]) ).bre|
|00001c40| 61 6b 3b 0d 09 09 2f 2a | 0d 09 09 2a 2a 20 49 66 |ak;.../*|...** If|
|00001c50| 20 65 76 65 72 79 20 63 | 68 61 72 61 63 74 65 72 | every c|haracter|
|00001c60| 20 69 73 20 70 72 69 6e | 74 61 62 6c 65 2c 20 62 | is prin|table, b|
|00001c70| 72 65 61 6b 20 63 61 75 | 73 65 64 20 62 79 20 74 |reak cau|sed by t|
|00001c80| 68 65 0d 09 09 2a 2a 20 | 6f 6e 6c 79 20 72 65 6d |he...** |only rem|
|00001c90| 61 69 6e 69 6e 67 20 75 | 6e 70 72 69 6e 74 61 62 |aining u|nprintab|
|00001ca0| 6c 65 20 63 68 61 72 61 | 63 74 65 72 2c 20 6e 61 |le chara|cter, na|
|00001cb0| 6d 65 6c 79 2c 20 74 68 | 65 20 43 20 73 74 72 69 |mely, th|e C stri|
|00001cc0| 6e 67 27 73 0d 09 09 2a | 2a 20 4e 55 4c 4c 20 74 |ng's...*|* NULL t|
|00001cd0| 65 72 6d 69 6e 61 74 6f | 72 2e 20 20 49 66 20 6e |erminato|r.  If n|
|00001ce0| 6f 20 62 72 65 61 6b 20 | 68 61 70 70 65 6e 73 2c |o break |happens,|
|00001cf0| 20 69 20 3d 20 6c 65 6e | 20 2b 20 31 3a 0d 09 09 | i = len| + 1:...|
|00001d00| 2a 2f 0d 09 09 69 66 20 | 28 69 20 3c 3d 20 6c 65 |*/...if |(i <= le|
|00001d10| 6e 29 09 72 65 73 75 6c | 74 20 3d 20 43 53 74 72 |n).resul|t = CStr|
|00001d20| 69 6e 67 3b 0d 09 09 65 | 6c 73 65 0d 09 09 7b 0d |ing;...e|lse...{.|
|00001d30| 09 09 09 66 6f 72 20 28 | 3b 20 69 20 3c 3d 20 6d |...for (|; i <= m|
|00001d40| 61 78 4c 65 6e 3b 20 2b | 2b 69 29 0d 09 09 09 09 |axLen; +|+i).....|
|00001d50| 69 66 20 28 20 21 69 73 | 70 72 69 6e 74 28 6d 79 |if ( !is|print(my|
|00001d60| 53 74 72 69 6e 67 5b 69 | 5d 29 20 29 09 62 72 65 |String[i|]) ).bre|
|00001d70| 61 6b 3b 0d 09 09 09 72 | 65 73 75 6c 74 20 3d 20 |ak;....r|esult = |
|00001d80| 28 69 20 3e 20 6d 61 78 | 4c 65 6e 29 3b 09 09 2f |(i > max|Len);../|
|00001d90| 2f 20 74 72 75 65 3a 20 | 20 50 61 73 63 61 6c 20 |/ true: | Pascal |
|00001da0| 73 74 72 69 6e 67 20 77 | 69 74 68 20 6c 65 6e 67 |string w|ith leng|
|00001db0| 74 68 20 3d 20 6c 65 6e | 2e 0d 09 09 09 09 09 09 |th = len|........|
|00001dc0| 09 09 09 09 2f 2f 20 66 | 61 6c 73 65 3a 20 43 20 |....// f|alse: C |
|00001dd0| 73 74 72 69 6e 67 20 77 | 69 74 68 20 69 74 73 20 |string w|ith its |
|00001de0| 4e 55 4c 4c 20 74 65 72 | 6d 69 6e 61 74 6f 72 2e |NULL ter|minator.|
|00001df0| 0d 09 09 7d 0d 09 7d 0d | 09 09 0d 09 72 65 74 75 |...}..}.|....retu|
|00001e00| 72 6e 09 28 72 65 73 75 | 6c 74 29 3b 0d 0d 7d 09 |rn.(resu|lt);..}.|
|00001e10| 2f 2a 20 69 73 50 53 74 | 72 69 6e 67 20 2a 2f 0d |/* isPSt|ring */.|
|00001e20| 0d 0d 0d 76 6f 69 64 09 | 70 53 74 72 43 61 74 20 |...void.|pStrCat |
|00001e30| 28 53 74 72 32 35 35 20 | 73 31 2c 20 53 74 72 32 |(Str255 |s1, Str2|
|00001e40| 35 35 20 73 32 2c 20 53 | 74 72 32 35 35 20 73 33 |55 s2, S|tr255 s3|
|00001e50| 29 09 7b 0d 0d 09 09 73 | 68 6f 72 74 09 6c 65 6e |).{....s|hort.len|
|00001e60| 31 2c 20 6c 65 6e 32 3b | 0d 09 09 0d 09 09 0d 09 |1, len2;|........|
|00001e70| 6c 65 6e 31 20 3d 20 2a | 73 31 2b 2b 3b 0d 09 6c |len1 = *|s1++;..l|
|00001e80| 65 6e 32 20 3d 20 2a 73 | 32 2b 2b 3b 0d 09 0d 09 |en2 = *s|2++;....|
|00001e90| 2a 73 33 2b 2b 20 3d 20 | 6c 65 6e 31 20 2b 20 6c |*s3++ = |len1 + l|
|00001ea0| 65 6e 32 3b 0d 09 77 68 | 69 6c 65 20 28 2d 2d 6c |en2;..wh|ile (--l|
|00001eb0| 65 6e 31 20 3e 3d 20 30 | 29 09 2a 73 33 2b 2b 20 |en1 >= 0|).*s3++ |
|00001ec0| 3d 20 2a 73 31 2b 2b 3b | 0d 09 77 68 69 6c 65 20 |= *s1++;|..while |
|00001ed0| 28 2d 2d 6c 65 6e 32 20 | 3e 3d 20 30 29 09 2a 73 |(--len2 |>= 0).*s|
|00001ee0| 33 2b 2b 20 3d 20 2a 73 | 32 2b 2b 3b 0d 09 0d 7d |3++ = *s|2++;...}|
|00001ef0| 09 2f 2a 20 70 53 74 72 | 43 61 74 20 2a 2f 0d 0d |./* pStr|Cat */..|
|00001f00| 0d 0d 76 6f 69 64 09 70 | 53 74 72 43 6f 70 79 20 |..void.p|StrCopy |
|00001f10| 28 53 74 72 32 35 35 20 | 73 31 2c 20 53 74 72 32 |(Str255 |s1, Str2|
|00001f20| 35 35 20 73 32 29 09 7b | 0d 0d 09 09 73 68 6f 72 |55 s2).{|....shor|
|00001f30| 74 09 6c 65 6e 3b 0d 09 | 09 0d 09 09 0d 09 6c 65 |t.len;..|......le|
|00001f40| 6e 20 3d 20 2a 73 32 2b | 2b 20 3d 20 2a 73 31 2b |n = *s2+|+ = *s1+|
|00001f50| 2b 3b 0d 09 2f 2a 0d 09 | 09 6c 65 6e 20 3d 20 2a |+;../*..|.len = *|
|00001f60| 73 31 2b 2b 3b 0d 09 09 | 2a 73 32 2b 2b 20 3d 20 |s1++;...|*s2++ = |
|00001f70| 6c 65 6e 3b 0d 09 2a 2f | 0d 09 0d 09 77 68 69 6c |len;..*/|....whil|
|00001f80| 65 20 28 2d 2d 6c 65 6e | 20 3e 3d 20 30 29 09 2a |e (--len| >= 0).*|
|00001f90| 73 32 2b 2b 20 3d 20 2a | 73 31 2b 2b 3b 0d 0d 7d |s2++ = *|s1++;..}|
|00001fa0| 09 2f 2a 20 70 53 74 72 | 43 6f 70 79 20 2a 2f 0d |./* pStr|Copy */.|
|00001fb0| 0d 0d 0d 76 6f 69 64 09 | 44 6f 53 70 69 66 66 79 |...void.|DoSpiffy|
|00001fc0| 49 72 69 73 20 28 76 6f | 69 64 29 09 09 7b 0d 0d |Iris (vo|id)..{..|
|00001fd0| 09 09 73 68 6f 72 74 09 | 09 09 09 62 72 61 67 57 |..short.|...bragW|
|00001fe0| 69 6e 64 6f 77 49 44 20 | 3d 20 39 39 39 2c 20 49 |indowID |= 999, I|
|00001ff0| 41 43 53 20 3d 20 33 30 | 30 31 3b 0d 09 09 57 69 |ACS = 30|01;...Wi|
|00002000| 6e 64 6f 77 50 74 72 09 | 09 09 62 72 61 67 67 69 |ndowPtr.|..braggi|
|00002010| 6e 67 3b 0d 09 09 50 69 | 63 48 61 6e 64 6c 65 09 |ng;...Pi|cHandle.|
|00002020| 09 09 6c 6f 67 6f 50 69 | 63 48 64 6c 2c 20 63 65 |..logoPi|cHdl, ce|
|00002030| 6e 74 65 72 65 64 50 69 | 63 3b 0d 09 09 73 68 6f |nteredPi|c;...sho|
|00002040| 72 74 09 09 09 09 74 65 | 6d 70 58 2c 20 74 65 6d |rt....te|mpX, tem|
|00002050| 70 59 2c 20 6d 61 73 6b | 50 65 72 63 65 6e 74 3b |pY, mask|Percent;|
|00002060| 0d 09 09 52 65 63 74 09 | 09 09 09 77 69 6e 64 52 |...Rect.|...windR|
|00002070| 65 63 74 2c 20 70 69 63 | 74 52 65 63 74 2c 20 62 |ect, pic|tRect, b|
|00002080| 72 61 67 52 65 63 74 2c | 20 69 72 69 73 52 65 63 |ragRect,| irisRec|
|00002090| 74 3b 0d 09 09 52 67 6e | 48 61 6e 64 6c 65 09 09 |t;...Rgn|Handle..|
|000020a0| 09 69 72 69 73 52 67 6e | 3b 0d 09 09 4f 66 66 53 |.irisRgn|;...OffS|
|000020b0| 63 72 65 65 6e 52 65 63 | 48 64 6c 09 09 62 72 61 |creenRec|Hdl..bra|
|000020c0| 67 4f 53 48 64 6c 3b 0d | 09 09 6c 6f 6e 67 09 09 |gOSHdl;.|..long..|
|000020d0| 09 09 66 69 6e 61 6c 54 | 69 63 6b 73 3b 0d 0d 0d |..finalT|icks;...|
|000020e0| 09 53 65 74 43 75 72 73 | 6f 72 28 20 2a 47 65 74 |.SetCurs|or( *Get|
|000020f0| 43 75 72 73 6f 72 28 77 | 61 74 63 68 43 75 72 73 |Cursor(w|atchCurs|
|00002100| 6f 72 29 20 29 3b 0d 0d | 09 69 66 20 28 21 67 4d |or) );..|.if (!gM|
|00002110| 61 63 32 29 09 09 62 72 | 61 67 67 69 6e 67 20 3d |ac2)..br|agging =|
|00002120| 20 47 65 74 4e 65 77 57 | 69 6e 64 6f 77 20 20 28 | GetNewW|indow  (|
|00002130| 62 72 61 67 57 69 6e 64 | 6f 77 49 44 2c 20 6e 69 |bragWind|owID, ni|
|00002140| 6c 2c 20 28 57 69 6e 64 | 6f 77 50 74 72 29 2d 31 |l, (Wind|owPtr)-1|
|00002150| 29 3b 0d 09 65 6c 73 65 | 09 09 09 62 72 61 67 67 |);..else|...bragg|
|00002160| 69 6e 67 20 3d 20 47 65 | 74 4e 65 77 43 57 69 6e |ing = Ge|tNewCWin|
|00002170| 64 6f 77 20 28 62 72 61 | 67 57 69 6e 64 6f 77 49 |dow (bra|gWindowI|
|00002180| 44 2c 20 6e 69 6c 2c 20 | 28 57 69 6e 64 6f 77 50 |D, nil, |(WindowP|
|00002190| 74 72 29 2d 31 29 3b 0d | 09 69 66 20 28 62 72 61 |tr)-1);.|.if (bra|
|000021a0| 67 67 69 6e 67 20 3d 3d | 20 6e 69 6c 29 09 7b 0d |gging ==| nil).{.|
|000021b0| 09 09 53 79 73 42 65 65 | 70 28 31 30 29 3b 0d 09 |..SysBee|p(10);..|
|000021c0| 09 72 65 74 75 72 6e 3b | 0d 09 7d 0d 09 0d 09 53 |.return;|..}....S|
|000021d0| 65 74 50 6f 72 74 28 62 | 72 61 67 67 69 6e 67 29 |etPort(b|ragging)|
|000021e0| 3b 0d 09 54 53 68 6f 77 | 57 69 6e 64 6f 77 28 62 |;..TShow|Window(b|
|000021f0| 72 61 67 67 69 6e 67 29 | 3b 0d 09 3b 0d 09 6c 6f |ragging)|;..;..lo|
|00002200| 67 6f 50 69 63 48 64 6c | 20 3d 20 47 65 74 50 69 |goPicHdl| = GetPi|
|00002210| 63 74 75 72 65 28 49 41 | 43 53 29 3b 0d 09 69 66 |cture(IA|CS);..if|
|00002220| 20 28 6c 6f 67 6f 50 69 | 63 48 64 6c 20 3d 3d 20 | (logoPi|cHdl == |
|00002230| 6e 69 6c 29 09 7b 0d 09 | 09 53 79 73 42 65 65 70 |nil).{..|.SysBeep|
|00002240| 28 31 30 29 3b 0d 09 09 | 72 65 74 75 72 6e 3b 0d |(10);...|return;.|
|00002250| 09 7d 0d 09 0d 09 62 72 | 61 67 52 65 63 74 20 3d |.}....br|agRect =|
|00002260| 20 62 72 61 67 67 69 6e | 67 2d 3e 70 6f 72 74 52 | braggin|g->portR|
|00002270| 65 63 74 3b 0d 0d 20 2f | 2a 20 69 66 20 28 53 63 |ect;.. /|* if (Sc|
|00002280| 72 6f 6c 6c 56 65 72 74 | 28 62 72 61 67 67 69 6e |rollVert|(braggin|
|00002290| 67 29 20 21 3d 20 6e 69 | 6c 29 0d 09 09 62 72 61 |g) != ni|l)...bra|
|000022a0| 67 52 65 63 74 2e 72 69 | 67 68 74 20 3d 20 28 62 |gRect.ri|ght = (b|
|000022b0| 72 61 67 52 65 63 74 2e | 72 69 67 68 74 20 2b 20 |ragRect.|right + |
|000022c0| 66 72 61 6d 65 29 20 2d | 20 73 63 72 6f 6c 6c 57 |frame) -| scrollW|
|000022d0| 69 64 74 68 3b 0d 09 69 | 66 20 28 53 63 72 6f 6c |idth;..i|f (Scrol|
|000022e0| 6c 48 6f 72 69 7a 28 62 | 72 61 67 67 69 6e 67 29 |lHoriz(b|ragging)|
|000022f0| 20 21 3d 20 6e 69 6c 29 | 0d 09 09 62 72 61 67 52 | != nil)|...bragR|
|00002300| 65 63 74 2e 62 6f 74 74 | 6f 6d 20 3d 20 28 62 72 |ect.bott|om = (br|
|00002310| 61 67 52 65 63 74 2e 62 | 6f 74 74 6f 6d 20 2b 20 |agRect.b|ottom + |
|00002320| 66 72 61 6d 65 29 20 2d | 20 73 63 72 6f 6c 6c 48 |frame) -| scrollH|
|00002330| 65 69 67 68 74 3b 20 2a | 2f 0d 09 09 0d 09 70 69 |eight; *|/.....pi|
|00002340| 63 74 52 65 63 74 20 3d | 20 28 2a 2a 6c 6f 67 6f |ctRect =| (**logo|
|00002350| 50 69 63 48 64 6c 29 2e | 70 69 63 46 72 61 6d 65 |PicHdl).|picFrame|
|00002360| 3b 09 09 2f 2f 20 43 65 | 6e 74 65 72 20 74 68 65 |;..// Ce|nter the|
|00002370| 20 50 49 43 54 20 2e 2e | 2e 0d 09 43 65 6e 74 65 | PICT ..|...Cente|
|00002380| 72 52 65 63 74 73 28 26 | 70 69 63 74 52 65 63 74 |rRects(&|pictRect|
|00002390| 2c 20 26 62 72 61 67 52 | 65 63 74 29 3b 0d 09 0d |, &bragR|ect);...|
|000023a0| 09 2f 2f 20 4d 61 6b 65 | 20 61 20 6e 65 77 20 50 |.// Make| a new P|
|000023b0| 49 43 54 2c 20 74 68 69 | 73 20 6f 6e 65 20 63 65 |ICT, thi|s one ce|
|000023c0| 6e 74 65 72 65 64 20 26 | 20 63 6c 69 70 70 65 64 |ntered &| clipped|
|000023d0| 20 74 6f 20 6d 79 20 70 | 6f 72 74 52 65 63 74 3a | to my p|ortRect:|
|000023e0| 0d 09 43 6c 69 70 52 65 | 63 74 28 26 62 72 61 67 |..ClipRe|ct(&brag|
|000023f0| 52 65 63 74 29 3b 0d 09 | 63 65 6e 74 65 72 65 64 |Rect);..|centered|
|00002400| 50 69 63 20 3d 20 4f 70 | 65 6e 50 69 63 74 75 72 |Pic = Op|enPictur|
|00002410| 65 28 26 62 72 61 67 52 | 65 63 74 29 3b 0d 09 43 |e(&bragR|ect);..C|
|00002420| 6c 69 70 52 65 63 74 28 | 26 62 72 61 67 52 65 63 |lipRect(|&bragRec|
|00002430| 74 29 3b 0d 09 45 72 61 | 73 65 52 65 63 74 28 26 |t);..Era|seRect(&|
|00002440| 62 72 61 67 52 65 63 74 | 29 3b 0d 09 49 6e 76 65 |bragRect|);..Inve|
|00002450| 72 74 52 65 63 74 28 26 | 62 72 61 67 52 65 63 74 |rtRect(&|bragRect|
|00002460| 29 3b 0d 09 44 72 61 77 | 50 69 63 74 75 72 65 28 |);..Draw|Picture(|
|00002470| 6c 6f 67 6f 50 69 63 48 | 64 6c 2c 20 26 70 69 63 |logoPicH|dl, &pic|
|00002480| 74 52 65 63 74 29 3b 0d | 09 43 6c 6f 73 65 50 69 |tRect);.|.ClosePi|
|00002490| 63 74 75 72 65 28 29 3b | 0d 09 3b 0d 09 4d 6f 76 |cture();|..;..Mov|
|000024a0| 65 48 48 69 28 63 65 6e | 74 65 72 65 64 50 69 63 |eHHi(cen|teredPic|
|000024b0| 29 3b 0d 09 48 4c 6f 63 | 6b 28 63 65 6e 74 65 72 |);..HLoc|k(center|
|000024c0| 65 64 50 69 63 29 3b 0d | 09 52 65 6c 65 61 73 65 |edPic);.|.Release|
|000024d0| 52 65 73 6f 75 72 63 65 | 28 6c 6f 67 6f 50 69 63 |Resource|(logoPic|
|000024e0| 48 64 6c 29 3b 09 09 2f | 2a 20 4b 69 73 73 20 74 |Hdl);../|* Kiss t|
|000024f0| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 67 6f 6f 64 |he origi|nal good|
|00002500| 2d 62 79 65 20 21 21 20 | 2a 2f 0d 09 0d 09 2f 2a |-bye !! |*/..../*|
|00002510| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00002520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 09 2a 2a |--------|----..**|
|00002540| 20 50 6c 61 63 65 20 6d | 79 20 50 49 43 54 75 72 | Place m|y PICTur|
|00002550| 65 20 69 6e 74 6f 20 61 | 6e 20 6f 66 66 20 73 63 |e into a|n off sc|
|00002560| 72 65 65 6e 20 42 69 74 | 4d 61 70 2e 0d 09 2a 2a |reen Bit|Map...**|
|00002570| 20 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 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 2a 2f 0d |--------|---- */.|
|000025a0| 0d 09 2f 2a 20 4c 6f 63 | 61 6c 20 77 69 6e 64 6f |../* Loc|al windo|
|000025b0| 77 20 69 6e 2c 20 6c 6f | 63 61 6c 20 73 63 72 65 |w in, lo|cal scre|
|000025c0| 65 6e 20 62 61 63 6b 3a | 20 2a 2f 0d 09 62 72 61 |en back:| */..bra|
|000025d0| 67 4f 53 48 64 6c 20 3d | 20 43 72 65 61 74 65 4f |gOSHdl =| CreateO|
|000025e0| 66 66 53 63 72 65 65 6e | 28 26 62 72 61 67 52 65 |ffScreen|(&bragRe|
|000025f0| 63 74 29 3b 0d 09 69 66 | 20 28 20 28 28 2a 62 72 |ct);..if| ( ((*br|
|00002600| 61 67 4f 53 48 64 6c 29 | 2d 3e 43 72 65 61 74 65 |agOSHdl)|->Create|
|00002610| 4f 66 66 53 63 72 65 65 | 6e 45 72 72 6f 72 29 20 |OffScree|nError) |
|00002620| 21 3d 20 6e 6f 45 72 72 | 29 0d 09 09 67 6f 74 6f |!= noErr|)...goto|
|00002630| 20 62 79 65 62 79 65 3b | 0d 09 7b 0d 09 09 43 6c | byebye;|..{...Cl|
|00002640| 69 70 52 65 63 74 28 26 | 62 72 61 67 52 65 63 74 |ipRect(&|bragRect|
|00002650| 29 3b 09 09 09 09 09 09 | 2f 2a 20 44 72 61 77 20 |);......|/* Draw |
|00002660| 6f 66 66 2d 73 63 72 65 | 65 6e 20 2e 2e 2e 20 2a |off-scre|en ... *|
|00002670| 2f 0d 09 09 45 72 61 73 | 65 52 65 63 74 28 26 62 |/...Eras|eRect(&b|
|00002680| 72 61 67 52 65 63 74 29 | 3b 09 09 09 09 09 09 2f |ragRect)|;....../|
|00002690| 2a 20 45 6c 69 6d 69 6e | 61 74 65 20 61 6c 6c 20 |* Elimin|ate all |
|000026a0| 73 74 72 61 79 20 6d 61 | 74 74 65 72 2e 20 2a 2f |stray ma|tter. */|
|000026b0| 0d 09 09 44 72 61 77 50 | 69 63 74 75 72 65 28 63 |...DrawP|icture(c|
|000026c0| 65 6e 74 65 72 65 64 50 | 69 63 2c 20 26 62 72 61 |enteredP|ic, &bra|
|000026d0| 67 52 65 63 74 29 3b 0d | 09 7d 0d 09 54 6f 4f 6e |gRect);.|.}..ToOn|
|000026e0| 53 63 72 65 65 6e 28 62 | 72 61 67 4f 53 48 64 6c |Screen(b|ragOSHdl|
|000026f0| 29 3b 09 09 09 09 09 09 | 09 2f 2a 20 42 61 63 6b |);......|./* Back|
|00002700| 20 74 6f 20 22 53 71 75 | 61 72 65 20 31 22 2e 20 | to "Squ|are 1". |
|00002710| 2a 2f 0d 09 0d 09 77 69 | 6e 64 52 65 63 74 20 3d |*/....wi|ndRect =|
|00002720| 20 28 2a 2a 62 72 61 67 | 4f 53 48 64 6c 29 2e 64 | (**brag|OSHdl).d|
|00002730| 72 61 77 69 6e 67 52 65 | 63 74 3b 0d 09 43 6c 69 |rawingRe|ct;..Cli|
|00002740| 70 52 65 63 74 28 26 77 | 69 6e 64 52 65 63 74 29 |pRect(&w|indRect)|
|00002750| 3b 0d 20 2f 2f 20 49 6e | 76 65 72 74 52 65 63 74 |;. // In|vertRect|
|00002760| 28 26 77 69 6e 64 52 65 | 63 74 29 3b 09 09 09 09 |(&windRe|ct);....|
|00002770| 09 09 09 2f 2a 20 50 61 | 72 74 20 6f 66 20 63 65 |.../* Pa|rt of ce|
|00002780| 6e 74 65 72 65 64 50 69 | 63 2e 20 2a 2f 0d 0d 09 |nteredPi|c. */...|
|00002790| 42 61 63 6b 43 6f 6c 6f | 72 28 77 68 69 74 65 43 |BackColo|r(whiteC|
|000027a0| 6f 6c 6f 72 29 3b 0d 09 | 46 6f 72 65 43 6f 6c 6f |olor);..|ForeColo|
|000027b0| 72 28 62 6c 61 63 6b 43 | 6f 6c 6f 72 29 3b 0d 09 |r(blackC|olor);..|
|000027c0| 2f 2a 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 2a 2f |/* -----|----- */|
|000027d0| 0d 09 6d 61 73 6b 50 65 | 72 63 65 6e 74 20 3d 20 |..maskPe|rcent = |
|000027e0| 39 39 3b 09 09 09 09 09 | 09 09 09 2f 2a 20 49 6e |99;.....|.../* In|
|000027f0| 69 74 69 61 6c 69 7a 65 | 20 73 6f 6d 65 20 73 74 |itialize| some st|
|00002800| 75 66 66 20 2e 2e 2e 20 | 2a 2f 0d 09 74 65 6d 70 |uff ... |*/..temp|
|00002810| 58 20 3d 20 28 77 69 6e | 64 52 65 63 74 2e 72 69 |X = (win|dRect.ri|
|00002820| 67 68 74 20 2d 20 77 69 | 6e 64 52 65 63 74 2e 6c |ght - wi|ndRect.l|
|00002830| 65 66 74 29 20 2f 20 32 | 3b 0d 09 74 65 6d 70 59 |eft) / 2|;..tempY|
|00002840| 20 3d 20 28 77 69 6e 64 | 52 65 63 74 2e 62 6f 74 | = (wind|Rect.bot|
|00002850| 74 6f 6d 20 2d 20 77 69 | 6e 64 52 65 63 74 2e 74 |tom - wi|ndRect.t|
|00002860| 6f 70 29 20 2f 20 32 3b | 0d 09 3b 0d 09 77 68 69 |op) / 2;|..;..whi|
|00002870| 6c 65 20 28 6d 61 73 6b | 50 65 72 63 65 6e 74 20 |le (mask|Percent |
|00002880| 3e 3d 20 30 29 09 7b 0d | 0d 09 09 69 72 69 73 52 |>= 0).{.|...irisR|
|00002890| 65 63 74 20 3d 20 77 69 | 6e 64 52 65 63 74 3b 0d |ect = wi|ndRect;.|
|000028a0| 09 09 49 6e 73 65 74 52 | 65 63 74 28 26 69 72 69 |..InsetR|ect(&iri|
|000028b0| 73 52 65 63 74 2c 0d 09 | 09 09 09 20 20 28 74 65 |sRect,..|...  (te|
|000028c0| 6d 70 58 20 2a 20 6d 61 | 73 6b 50 65 72 63 65 6e |mpX * ma|skPercen|
|000028d0| 74 29 20 2f 20 31 30 30 | 2c 0d 09 09 09 09 20 20 |t) / 100|,.....  |
|000028e0| 28 74 65 6d 70 59 20 2a | 20 6d 61 73 6b 50 65 72 |(tempY *| maskPer|
|000028f0| 63 65 6e 74 29 20 2f 20 | 31 30 30 29 3b 0d 09 09 |cent) / |100);...|
|00002900| 69 72 69 73 52 67 6e 20 | 3d 20 4e 65 77 52 67 6e |irisRgn |= NewRgn|
|00002910| 28 29 3b 0d 09 09 4f 70 | 65 6e 52 67 6e 28 29 3b |();...Op|enRgn();|
|00002920| 0d 09 09 7b 0d 09 09 09 | 46 72 61 6d 65 52 6f 75 |...{....|FrameRou|
|00002930| 6e 64 52 65 63 74 28 26 | 69 72 69 73 52 65 63 74 |ndRect(&|irisRect|
|00002940| 2c 0d 09 09 09 09 09 09 | 20 20 20 28 28 69 72 69 |,.......|   ((iri|
|00002950| 73 52 65 63 74 2e 72 69 | 67 68 74 20 2d 20 69 72 |sRect.ri|ght - ir|
|00002960| 69 73 52 65 63 74 2e 6c | 65 66 74 29 20 2a 20 6d |isRect.l|eft) * m|
|00002970| 61 73 6b 50 65 72 63 65 | 6e 74 29 20 2f 20 31 30 |askPerce|nt) / 10|
|00002980| 30 2c 20 09 09 0d 09 09 | 09 09 09 09 20 20 20 28 |0, .....|....   (|
|00002990| 28 69 72 69 73 52 65 63 | 74 2e 62 6f 74 74 6f 6d |(irisRec|t.bottom|
|000029a0| 20 2d 20 69 72 69 73 52 | 65 63 74 2e 74 6f 70 29 | - irisR|ect.top)|
|000029b0| 20 2a 20 6d 61 73 6b 50 | 65 72 63 65 6e 74 29 20 | * maskP|ercent) |
|000029c0| 2f 20 31 30 30 29 3b 0d | 09 09 7d 0d 09 09 43 6c |/ 100);.|..}...Cl|
|000029d0| 6f 73 65 52 67 6e 28 69 | 72 69 73 52 67 6e 29 3b |oseRgn(i|risRgn);|
|000029e0| 0d 0d 09 09 53 65 63 74 | 52 67 6e 28 69 72 69 73 |....Sect|Rgn(iris|
|000029f0| 52 67 6e 2c 20 28 28 2a | 2a 62 72 61 67 4f 53 48 |Rgn, ((*|*bragOSH|
|00002a00| 64 6c 29 2e 6f 72 69 67 | 50 6f 72 74 29 2d 3e 76 |dl).orig|Port)->v|
|00002a10| 69 73 52 67 6e 2c 20 69 | 72 69 73 52 67 6e 29 3b |isRgn, i|risRgn);|
|00002a20| 0d 09 09 43 6f 70 79 42 | 69 74 73 28 0d 09 09 09 |...CopyB|its(....|
|00002a30| 09 09 28 2a 2a 62 72 61 | 67 4f 53 48 64 6c 29 2e |..(**bra|gOSHdl).|
|00002a40| 6f 66 66 42 69 74 4d 61 | 70 50 74 72 2c 0d 09 09 |offBitMa|pPtr,...|
|00002a50| 09 09 09 26 28 20 28 28 | 2a 2a 62 72 61 67 4f 53 |...&( ((|**bragOS|
|00002a60| 48 64 6c 29 2e 6f 72 69 | 67 50 6f 72 74 29 2d 3e |Hdl).ori|gPort)->|
|00002a70| 70 6f 72 74 42 69 74 73 | 20 29 2c 0d 09 09 09 09 |portBits| ),.....|
|00002a80| 09 26 62 72 61 67 52 65 | 63 74 2c 0d 09 09 09 09 |.&bragRe|ct,.....|
|00002a90| 09 26 28 20 28 2a 2a 62 | 72 61 67 4f 53 48 64 6c |.&( (**b|ragOSHdl|
|00002aa0| 29 2e 64 72 61 77 69 6e | 67 52 65 63 74 20 29 2c |).drawin|gRect ),|
|00002ab0| 0d 09 09 09 09 09 73 72 | 63 43 6f 70 79 2c 0d 09 |......sr|cCopy,..|
|00002ac0| 09 09 09 09 69 72 69 73 | 52 67 6e 0d 09 09 09 09 |....iris|Rgn.....|
|00002ad0| 29 3b 0d 0d 09 09 44 69 | 73 70 6f 73 65 52 67 6e |);....Di|sposeRgn|
|00002ae0| 28 69 72 69 73 52 67 6e | 29 3b 0d 09 09 3b 0d 09 |(irisRgn|);...;..|
|00002af0| 09 69 66 20 28 67 4d 61 | 63 32 29 09 7b 0d 09 09 |.if (gMa|c2).{...|
|00002b00| 09 69 66 20 28 67 43 6f | 6c 6f 72 44 65 70 74 68 |.if (gCo|lorDepth|
|00002b10| 20 3d 20 31 29 0d 09 09 | 09 09 44 65 6c 61 79 28 | = 1)...|..Delay(|
|00002b20| 34 2c 20 26 66 69 6e 61 | 6c 54 69 63 6b 73 29 3b |4, &fina|lTicks);|
|00002b30| 09 09 2f 2a 20 42 6c 61 | 63 6b 2d 61 6e 64 2d 77 |../* Bla|ck-and-w|
|00002b40| 68 69 74 65 20 74 6f 6f | 20 64 6f 67 67 6f 6e 65 |hite too| doggone|
|00002b50| 20 66 61 73 74 20 21 21 | 20 2a 2f 0d 09 09 09 65 | fast !!| */....e|
|00002b60| 6c 73 65 0d 09 09 09 09 | 44 65 6c 61 79 28 32 2c |lse.....|Delay(2,|
|00002b70| 20 26 66 69 6e 61 6c 54 | 69 63 6b 73 29 3b 09 09 | &finalT|icks);..|
|00002b80| 2f 2a 20 43 6f 6c 6f 72 | 20 61 20 74 61 64 20 62 |/* Color| a tad b|
|00002b90| 65 74 74 65 72 2e 20 2a | 2f 0d 09 09 7d 0d 09 09 |etter. *|/...}...|
|00002ba0| 65 6c 73 65 0d 09 09 09 | 44 65 6c 61 79 28 31 2c |else....|Delay(1,|
|00002bb0| 20 26 66 69 6e 61 6c 54 | 69 63 6b 73 29 3b 0d 09 | &finalT|icks);..|
|00002bc0| 09 3b 0d 09 09 6d 61 73 | 6b 50 65 72 63 65 6e 74 |.;...mas|kPercent|
|00002bd0| 20 3d 20 6d 61 73 6b 50 | 65 72 63 65 6e 74 20 2d | = maskP|ercent -|
|00002be0| 20 31 3b 0d 09 7d 09 2f | 2a 20 77 68 69 6c 65 20 | 1;..}./|* while |
|00002bf0| 6d 61 73 6b 50 65 72 63 | 65 6e 74 20 3e 3d 20 30 |maskPerc|ent >= 0|
|00002c00| 20 2a 2f 0d 09 2f 2a 20 | 2d 2d 2d 2d 2d 2d 2d 2d | */../* |--------|
|00002c10| 2d 2d 20 2a 2f 0d 0d 62 | 79 65 62 79 65 3a 0d 09 |-- */..b|yebye:..|
|00002c20| 44 69 73 70 6f 73 4f 66 | 66 53 63 72 65 65 6e 28 |DisposOf|fScreen(|
|00002c30| 26 62 72 61 67 4f 53 48 | 64 6c 29 3b 0d 0d 20 09 |&bragOSH|dl);.. .|
|00002c40| 53 65 74 57 69 6e 64 6f | 77 50 69 63 28 62 72 61 |SetWindo|wPic(bra|
|00002c50| 67 67 69 6e 67 2c 20 63 | 65 6e 74 65 72 65 64 50 |gging, c|enteredP|
|00002c60| 69 63 29 3b 09 2f 2a 20 | 2e 2e 2e 20 66 6f 72 20 |ic);./* |... for |
|00002c70| 75 70 64 61 74 69 6e 67 | 20 74 69 6d 65 2e 20 2a |updating| time. *|
|00002c80| 2f 0d 0d 20 2f 2f 09 44 | 69 73 70 6f 73 65 57 69 |/.. //.D|isposeWi|
|00002c90| 6e 64 6f 77 28 62 72 61 | 67 67 69 6e 67 29 3b 09 |ndow(bra|gging);.|
|00002ca0| 09 09 09 2f 2a 20 4c 65 | 61 76 65 20 69 74 20 62 |.../* Le|ave it b|
|00002cb0| 65 20 21 21 20 2a 2f 0d | 0d 09 53 79 73 42 65 65 |e !! */.|..SysBee|
|00002cc0| 70 28 31 30 29 3b 09 09 | 09 09 09 09 09 2f 2a 20 |p(10);..|...../* |
|00002cd0| 57 61 6b 65 20 55 70 20 | 43 61 6c 6c 20 21 21 20 |Wake Up |Call !! |
|00002ce0| 2a 2f 0d 0d 7d 09 2f 2a | 20 44 6f 53 70 69 66 66 |*/..}./*| DoSpiff|
|00002cf0| 79 49 72 69 73 20 2a 2f | 0d 0d 0d 0d 76 6f 69 64 |yIris */|....void|
|00002d00| 09 43 65 6e 74 65 72 52 | 65 63 74 73 20 28 52 65 |.CenterR|ects (Re|
|00002d10| 63 74 20 2a 73 72 63 52 | 65 63 74 2c 20 52 65 63 |ct *srcR|ect, Rec|
|00002d20| 74 20 2a 77 69 74 68 69 | 6e 52 65 63 74 29 09 7b |t *withi|nRect).{|
|00002d30| 0d 0d 09 09 73 68 6f 72 | 74 09 09 73 72 63 57 2c |....shor|t..srcW,|
|00002d40| 20 73 72 63 48 2c 20 74 | 65 6d 70 58 2c 20 74 65 | srcH, t|empX, te|
|00002d50| 6d 70 59 3b 0d 0d 09 0d | 09 73 72 63 57 20 3d 20 |mpY;....|.srcW = |
|00002d60| 73 72 63 52 65 63 74 2d | 3e 72 69 67 68 74 20 2d |srcRect-|>right -|
|00002d70| 20 73 72 63 52 65 63 74 | 2d 3e 6c 65 66 74 3b 0d | srcRect|->left;.|
|00002d80| 09 2f 2f 20 77 69 74 68 | 69 6e 20 77 69 64 74 68 |.// with|in width|
|00002d90| 20 2d 20 73 6f 75 72 63 | 65 20 77 69 64 74 68 3a | - sourc|e width:|
|00002da0| 0d 09 74 65 6d 70 58 20 | 3d 20 77 69 74 68 69 6e |..tempX |= within|
|00002db0| 52 65 63 74 2d 3e 72 69 | 67 68 74 20 2d 20 77 69 |Rect->ri|ght - wi|
|00002dc0| 74 68 69 6e 52 65 63 74 | 2d 3e 6c 65 66 74 20 2d |thinRect|->left -|
|00002dd0| 20 73 72 63 57 3b 0d 09 | 73 72 63 52 65 63 74 2d | srcW;..|srcRect-|
|00002de0| 3e 6c 65 66 74 20 3d 20 | 77 69 74 68 69 6e 52 65 |>left = |withinRe|
|00002df0| 63 74 2d 3e 6c 65 66 74 | 20 2b 20 74 65 6d 70 58 |ct->left| + tempX|
|00002e00| 2f 32 3b 0d 09 73 72 63 | 52 65 63 74 2d 3e 72 69 |/2;..src|Rect->ri|
|00002e10| 67 68 74 20 3d 20 73 72 | 63 52 65 63 74 2d 3e 6c |ght = sr|cRect->l|
|00002e20| 65 66 74 20 2b 20 73 72 | 63 57 3b 0d 09 3b 0d 09 |eft + sr|cW;..;..|
|00002e30| 73 72 63 48 20 3d 20 73 | 72 63 52 65 63 74 2d 3e |srcH = s|rcRect->|
|00002e40| 62 6f 74 74 6f 6d 20 2d | 20 73 72 63 52 65 63 74 |bottom -| srcRect|
|00002e50| 2d 3e 74 6f 70 3b 0d 09 | 2f 2f 20 77 69 74 68 69 |->top;..|// withi|
|00002e60| 6e 20 68 65 69 67 68 74 | 20 2d 20 73 6f 75 72 63 |n height| - sourc|
|00002e70| 65 20 68 65 69 67 68 74 | 3a 0d 09 74 65 6d 70 59 |e height|:..tempY|
|00002e80| 20 3d 20 77 69 74 68 69 | 6e 52 65 63 74 2d 3e 62 | = withi|nRect->b|
|00002e90| 6f 74 74 6f 6d 20 2d 20 | 77 69 74 68 69 6e 52 65 |ottom - |withinRe|
|00002ea0| 63 74 2d 3e 74 6f 70 20 | 2d 20 73 72 63 48 3b 09 |ct->top |- srcH;.|
|00002eb0| 09 09 09 09 09 09 0d 09 | 73 72 63 52 65 63 74 2d |........|srcRect-|
|00002ec0| 3e 74 6f 70 20 3d 20 77 | 69 74 68 69 6e 52 65 63 |>top = w|ithinRec|
|00002ed0| 74 2d 3e 74 6f 70 20 2b | 20 74 65 6d 70 59 2f 32 |t->top +| tempY/2|
|00002ee0| 3b 0d 09 73 72 63 52 65 | 63 74 2d 3e 62 6f 74 74 |;..srcRe|ct->bott|
|00002ef0| 6f 6d 20 3d 20 73 72 63 | 52 65 63 74 2d 3e 74 6f |om = src|Rect->to|
|00002f00| 70 20 2b 20 73 72 63 48 | 3b 0d 09 0d 7d 09 2f 2a |p + srcH|;...}./*|
|00002f10| 20 43 65 6e 74 65 72 52 | 65 63 74 73 20 2a 2f 0d | CenterR|ects */.|
|00002f20| 0d 0d 0d 42 6f 6f 6c 65 | 61 6e 09 09 63 6d 70 41 |...Boole|an..cmpA|
|00002f30| 6c 70 68 61 20 28 63 68 | 61 72 20 69 6e 2c 20 63 |lpha (ch|ar in, c|
|00002f40| 68 61 72 20 77 69 74 68 | 29 09 7b 0d 2f 2a 20 49 |har with|).{./* I|
|00002f50| 66 20 74 68 65 20 69 6e | 70 75 74 20 69 73 20 4e |f the in|put is N|
|00002f60| 4f 54 20 61 20 6c 65 74 | 74 65 72 2c 20 74 68 65 |OT a let|ter, the|
|00002f70| 6e 20 77 65 20 61 64 76 | 61 6e 63 65 20 74 6f 20 |n we adv|ance to |
|00002f80| 74 68 65 20 4e 45 58 54 | 20 61 76 61 69 6c 61 62 |the NEXT| availab|
|00002f90| 6c 65 20 6c 65 74 74 65 | 72 2e 20 2a 2f 0d 0d 09 |le lette|r. */...|
|00002fa0| 09 42 6f 6f 6c 65 61 6e | 09 09 72 65 73 75 6c 74 |.Boolean|..result|
|00002fb0| 20 3d 20 66 61 6c 73 65 | 3b 0d 09 09 0d 09 09 0d | = false|;.......|
|00002fc0| 09 69 66 20 28 20 21 69 | 73 61 6c 70 68 61 28 77 |.if ( !i|salpha(w|
|00002fd0| 69 74 68 29 20 29 09 53 | 79 73 42 65 65 70 28 31 |ith) ).S|ysBeep(1|
|00002fe0| 30 29 3b 0d 09 65 6c 73 | 65 09 7b 0d 09 0d 09 09 |0);..els|e.{.....|
|00002ff0| 69 66 20 28 20 21 69 73 | 61 6c 70 68 61 28 69 6e |if ( !is|alpha(in|
|00003000| 29 20 29 09 09 69 6e 20 | 3d 20 6e 65 78 74 41 6c |) )..in |= nextAl|
|00003010| 70 68 61 28 69 6e 29 3b | 0d 09 09 3b 0d 09 09 69 |pha(in);|...;...i|
|00003020| 66 20 28 20 69 73 75 70 | 70 65 72 28 77 69 74 68 |f ( isup|per(with|
|00003030| 29 20 26 26 20 69 73 6c | 6f 77 65 72 28 69 6e 29 |) && isl|ower(in)|
|00003040| 20 29 0d 09 09 09 69 6e | 20 3d 20 74 6f 75 70 70 | )....in| = toupp|
|00003050| 65 72 28 69 6e 29 3b 0d | 09 09 65 6c 73 65 20 69 |er(in);.|..else i|
|00003060| 66 20 28 20 69 73 6c 6f | 77 65 72 28 77 69 74 68 |f ( islo|wer(with|
|00003070| 29 20 26 26 20 69 73 75 | 70 70 65 72 28 69 6e 29 |) && isu|pper(in)|
|00003080| 20 29 0d 09 09 09 69 6e | 20 3d 20 74 6f 6c 6f 77 | )....in| = tolow|
|00003090| 65 72 28 69 6e 29 3b 0d | 09 09 3b 0d 09 09 69 66 |er(in);.|..;...if|
|000030a0| 20 28 69 6e 20 3d 3d 20 | 77 69 74 68 29 09 09 72 | (in == |with)..r|
|000030b0| 65 73 75 6c 74 20 3d 20 | 74 72 75 65 3b 0d 09 09 |esult = |true;...|
|000030c0| 09 0d 09 7d 09 2f 2a 20 | 65 6e 64 3a 20 77 69 74 |...}./* |end: wit|
|000030d0| 68 20 69 73 61 6c 70 68 | 61 20 2a 2f 0d 09 0d 09 |h isalph|a */....|
|000030e0| 72 65 74 75 72 6e 20 28 | 72 65 73 75 6c 74 29 3b |return (|result);|
|000030f0| 0d 09 0d 7d 09 2f 2a 20 | 63 6d 70 41 6c 70 68 61 |...}./* |cmpAlpha|
|00003100| 20 2a 2f 0d 0d 0d 0d 63 | 68 61 72 09 6e 65 78 74 | */....c|har.next|
|00003110| 41 6c 70 68 61 20 28 63 | 68 61 72 20 73 74 61 72 |Alpha (c|har star|
|00003120| 74 29 09 09 7b 0d 0d 09 | 09 63 68 61 72 09 6e 65 |t)..{...|.char.ne|
|00003130| 78 74 3b 0d 09 09 0d 09 | 09 0d 09 6e 65 78 74 20 |xt;.....|...next |
|00003140| 3d 20 28 63 68 61 72 29 | 20 28 73 74 61 72 74 20 |= (char)| (start |
|00003150| 2b 20 31 29 3b 0d 09 0d | 09 69 66 20 28 20 21 69 |+ 1);...|.if ( !i|
|00003160| 73 61 6c 70 68 61 28 6e | 65 78 74 29 20 29 09 7b |salpha(n|ext) ).{|
|00003170| 0d 09 09 69 66 20 28 28 | 6e 65 78 74 20 3c 20 27 |...if ((|next < '|
|00003180| 41 27 29 20 7c 7c 20 28 | 6e 65 78 74 20 3e 20 27 |A') || (|next > '|
|00003190| 7a 27 29 29 09 6e 65 78 | 74 20 3d 20 27 41 27 3b |z')).nex|t = 'A';|
|000031a0| 0d 09 09 65 6c 73 65 09 | 2f 2a 20 69 6e 62 65 74 |...else.|/* inbet|
|000031b0| 77 65 65 6e 20 2a 2f 09 | 09 09 09 6e 65 78 74 20 |ween */.|...next |
|000031c0| 3d 20 27 61 27 3b 0d 09 | 7d 0d 09 0d 09 72 65 74 |= 'a';..|}....ret|
|000031d0| 75 72 6e 20 28 6e 65 78 | 74 29 3b 0d 09 0d 7d 09 |urn (nex|t);...}.|
|000031e0| 2f 2a 20 6e 65 78 74 41 | 6c 70 68 61 20 2a 2f 0d |/* nextA|lpha */.|
|000031f0| 0d 0d 0d 0d 2f 2a 09 7b | 20 65 6e 64 20 66 69 6c |..../*.{| end fil|
|00003200| 65 20 3d 20 22 6d 69 73 | 63 2e 63 22 20 7d 20 20 |e = "mis|c.c" }  |
|00003210| 2a 2f 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |*/......|........|
|00003220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003280| 00 00 01 00 00 00 01 98 | 00 00 00 98 00 00 00 32 |........|.......2|
|00003290| 00 00 02 72 11 52 65 61 | 64 79 2d 6d 61 64 65 20 |...r.Rea|dy-made |
|000032a0| 46 6f 6c 64 65 72 00 00 | 00 00 00 00 00 00 00 00 |Folder..|........|
|000032b0| 06 6d 69 73 63 2e 63 b4 | 02 00 00 00 50 61 72 74 |.misc.c.|....Part|
|000032c0| 53 49 54 78 00 00 00 00 | 00 00 00 00 00 01 67 1f |SITx....|......g.|
|000032d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000032e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032f0| 00 00 a9 80 1b cb 00 00 | 00 00 00 00 01 ca 00 00 |........|........|
|00003300| 00 00 00 00 00 00 00 00 | 00 00 01 0c 25 00 00 00 |........|....%...|
|00003310| 02 a1 10 41 70 70 6c 65 | 20 4d 65 6e 75 20 49 74 |...Apple| Menu It|
|00003320| 65 6d 73 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ems.....|........|
|00003330| 00 00 00 00 03 53 25 00 | 00 00 02 a1 0e 43 6f 6e |.....S%.|.....Con|
|00003340| 74 72 6f 6c 20 50 61 6e | 65 6c 73 00 00 00 00 00 |trol Pan|els.....|
|00003350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 45 |........|.......E|
|00003360| 25 00 00 00 02 a1 12 44 | 69 73 69 6e 66 65 63 74 |%......D|isinfect|
|00003370| 61 6e 74 20 50 72 65 66 | 73 00 00 00 00 00 00 00 |ant Pref|s.......|
|00003380| 00 00 00 94 00 00 00 14 | 00 00 02 4d 00 00 02 4d |........|...M...M|
|00003390| 00 01 00 00 00 01 00 56 | 00 00 ff ff 00 01 ff ff |.......V|........|
|000033a0| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000033b0| 00 00 00 00 ff ff ff ff | ff ff ff ff 00 00 00 00 |........|........|
|000033c0| ff ff f0 ac 06 c9 00 00 | 00 00 ff ff 00 00 ff ff |........|........|
|000033d0| 00 00 ff ff 00 00 00 00 | 00 00 00 00 00 00 00 2a |........|.......*|
|000033e0| 00 03 01 dd 02 7d 00 00 | 00 00 00 00 00 00 00 00 |.....}..|........|
|000033f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003410| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 98 |........|........|
|00003420| 00 00 00 98 00 00 00 32 | 00 68 fe 14 08 74 00 00 |.......2|.h...t..|
|00003430| 00 1c 00 32 00 00 45 50 | 4f 53 00 00 00 0a 03 ed |...2..EP|OS......|
|00003440| ff ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+