home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1989-09-14 | 4.0 KB | [TEXT/KAHL] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: PiePopupXCMD.c.bin
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| AMOS Picture Packer (image/amosPicturePacker)
| ext
| Supported |
| 1%
| dexvert
| Debian floppy split (archive/debianFloppySplit)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images sound sample (audio/soundImagesSoundSample)
| ext
| Unsupported |
| 1%
| dexvert
| DESI-III drawing (image/desiIIIDrawing)
| ext
| Unsupported |
| 1%
| dexvert
| MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable)
| ext
| Unsupported |
| 1%
| dexvert
| Alien Trilogytextures (other/alienTrilogyTextures)
| ext
| Unsupported |
| 1%
| dexvert
| APT cache data (other/aptCacheData)
| ext
| Unsupported |
| 1%
| dexvert
| CorelTRACE configuration (other/corelTRACEConfiguration)
| ext
| Unsupported |
| 1%
| dexvert
| Dreamcast Disc (other/dreamcastDisc)
| ext
| Unsupported |
| 1%
| dexvert
| EST flat binary (other/estFlatBinary)
| ext
| Unsupported |
| 1%
| dexvert
| Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Sega Genesis/Megadrive/32x ROM (other/genesisROM)
| ext
| Unsupported |
| 1%
| dexvert
| Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images Sound Driver (other/soundImagesSoundDriver)
| ext
| Unsupported |
| 1%
| dexvert
| Symantec/Norton Config (other/symantecNortonConfig)
| ext
| Unsupported |
| 1%
| dexvert
| Vectrex ROM (other/vectrexROM)
| ext
| Unsupported |
| 1%
| dexvert
| BIS raP encoded format (other/bisraPEncoded)
| ext
| Unsupported |
| 1%
| dexvert
| Pascal Script binary (other/pascalScriptBinary)
| ext
| Unsupported |
| 1%
| dexvert
| 7th Level game data archive (other/seventhLevelGameDataArchive)
| ext
| Unsupported |
| 1%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Binary Text (image/binaryText)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary, Sun Feb 26 13:02:22 1989, modified Sun Mar 19 14:14:04 1989, creator Think C, type ASCII, 3905 bytes "PiePopupXCMD.c"
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 1
| default (weak)
| |
| 100%
| lsar
| MacBinary
| default
| |
| 100%
| gt2
| MAC Bilddatei
| default (weak)
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [KAHL] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 50 69 65 50 6f 70 | 75 70 58 43 4d 44 2e 63 |..PiePop|upXCMD.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 0f 41 00 | 00 00 00 a0 2d ec 2e a0 |......A.|....-...|
|00000060| 49 ac 7c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |I.|.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2f 2a 0d 20 2a 20 50 69 | 65 50 6f 70 75 70 58 43 |/*. * Pi|ePopupXC|
|00000090| 4d 44 2e 63 0d 20 2a 0d | 20 2a 09 09 58 43 4d 44 |MD.c. *.| *..XCMD|
|000000a0| 20 69 6e 74 65 72 66 61 | 63 65 20 66 6f 72 20 70 | interfa|ce for p|
|000000b0| 69 65 20 70 6f 70 75 70 | 20 6d 65 6e 75 73 2e 0d |ie popup| menus..|
|000000c0| 20 2a 0d 20 2a 2f 0d 23 | 69 6e 63 6c 75 64 65 09 | *. */.#|include.|
|000000d0| 3c 4d 61 63 54 79 70 65 | 73 2e 68 3e 0d 23 69 6e |<MacType|s.h>.#in|
|000000e0| 63 6c 75 64 65 09 3c 4d | 65 6e 75 4d 67 72 2e 68 |clude.<M|enuMgr.h|
|000000f0| 3e 0d 23 69 6e 63 6c 75 | 64 65 09 3c 51 75 69 63 |>.#inclu|de.<Quic|
|00000100| 6b 44 72 61 77 2e 68 3e | 0d 23 69 6e 63 6c 75 64 |kDraw.h>|.#includ|
|00000110| 65 09 3c 53 65 74 55 70 | 41 34 2e 68 3e 0d 23 69 |e.<SetUp|A4.h>.#i|
|00000120| 6e 63 6c 75 64 65 09 22 | 48 79 70 65 72 58 43 6d |nclude."|HyperXCm|
|00000130| 64 2e 68 22 0d 0d 0d 2f | 2a 0d 20 2a 20 20 4c 6f |d.h".../|*. * Lo|
|00000140| 63 61 6c 20 66 75 6e 63 | 74 69 6f 6e 20 70 72 6f |cal func|tion pro|
|00000150| 74 6f 74 79 70 65 73 2e | 0d 20 2a 2f 0d 70 61 73 |totypes.|. */.pas|
|00000160| 63 61 6c 09 76 6f 69 64 | 20 6d 61 69 6e 28 58 43 |cal.void| main(XC|
|00000170| 6d 64 42 6c 6f 63 6b 50 | 74 72 29 3b 0d 69 6e 74 |mdBlockP|tr);.int|
|00000180| 09 09 47 65 74 4c 6f 63 | 4f 66 43 61 72 64 57 69 |..GetLoc|OfCardWi|
|00000190| 6e 64 6f 77 28 58 43 6d | 64 42 6c 6f 63 6b 50 74 |ndow(XCm|dBlockPt|
|000001a0| 72 2c 20 50 6f 69 6e 74 | 20 2a 29 3b 0d 48 61 6e |r, Point| *);.Han|
|000001b0| 64 6c 65 09 43 6f 70 79 | 53 74 72 54 6f 48 61 6e |dle.Copy|StrToHan|
|000001c0| 64 28 63 68 61 72 20 2a | 29 3b 0d 6c 6f 6e 67 09 |d(char *|);.long.|
|000001d0| 48 61 6e 64 6c 65 54 6f | 4e 75 6d 28 58 43 6d 64 |HandleTo|Num(XCmd|
|000001e0| 42 6c 6f 63 6b 50 74 72 | 2c 20 48 61 6e 64 6c 65 |BlockPtr|, Handle|
|000001f0| 29 3b 0d 76 6f 69 64 09 | 48 61 6e 64 6c 65 54 6f |);.void.|HandleTo|
|00000200| 50 73 74 72 28 53 74 72 | 32 35 35 2c 20 48 61 6e |Pstr(Str|255, Han|
|00000210| 64 6c 65 29 3b 0d 63 68 | 61 72 09 2a 54 6f 43 73 |dle);.ch|ar.*ToCs|
|00000220| 74 72 28 63 68 61 72 20 | 2a 29 3b 0d 63 68 61 72 |tr(char |*);.char|
|00000230| 09 2a 54 6f 50 73 74 72 | 28 63 68 61 72 20 2a 29 |.*ToPstr|(char *)|
|00000240| 3b 0d 0d 0d 0d 23 64 65 | 66 69 6e 65 09 45 52 52 |;....#de|fine.ERR|
|00000250| 4f 52 46 4c 41 47 09 09 | 09 28 73 68 6f 72 74 29 |ORFLAG..|.(short)|
|00000260| 09 2d 31 0d 23 64 65 66 | 69 6e 65 09 55 53 41 47 |.-1.#def|ine.USAG|
|00000270| 45 20 22 55 73 61 67 65 | 3a 20 70 75 74 20 50 69 |E "Usage|: put Pi|
|00000280| 65 50 6f 70 75 70 28 5c | 22 53 65 6d 69 63 6f 6c |ePopup(\|"Semicol|
|00000290| 6f 6e 3b 73 65 70 61 72 | 61 74 65 64 3b 6d 65 6e |on;separ|ated;men|
|000002a0| 75 3b 6c 69 73 74 5c 22 | 29 20 69 6e 74 6f 20 63 |u;list\"|) into c|
|000002b0| 6f 6e 74 61 69 6e 65 72 | 22 0d 0d 0d 0d 0d 70 61 |ontainer|".....pa|
|000002c0| 73 63 61 6c 09 76 6f 69 | 64 0d 6d 61 69 6e 28 70 |scal.voi|d.main(p|
|000002d0| 61 72 61 6d 50 74 72 29 | 0d 09 58 43 6d 64 42 6c |aramPtr)|..XCmdBl|
|000002e0| 6f 63 6b 50 74 72 09 70 | 61 72 61 6d 50 74 72 3b |ockPtr.p|aramPtr;|
|000002f0| 0d 7b 0d 09 53 74 72 32 | 35 35 09 09 6d 65 6e 75 |.{..Str2|55..menu|
|00000300| 4c 69 73 74 3b 09 09 09 | 2f 2a 20 70 61 72 73 65 |List;...|/* parse|
|00000310| 64 20 6c 69 73 74 20 6f | 66 20 6d 65 6e 75 20 69 |d list o|f menu i|
|00000320| 74 65 6d 73 20 2a 2f 0d | 09 69 6e 74 09 09 09 6e |tems */.|.int...n|
|00000330| 75 6d 5f 6d 65 6e 75 5f | 69 74 65 6d 73 3b 09 09 |um_menu_|items;..|
|00000340| 2f 2a 20 6e 75 6d 62 65 | 72 20 6f 66 20 6d 65 6e |/* numbe|r of men|
|00000350| 75 20 69 74 65 6d 73 20 | 74 6f 20 64 69 73 70 6c |u items |to displ|
|00000360| 61 79 20 2a 2f 0d 09 63 | 68 61 72 09 09 74 65 6d |ay */..c|har..tem|
|00000370| 70 53 74 72 5b 33 32 5d | 3b 09 09 2f 2a 20 73 63 |pStr[32]|;../* sc|
|00000380| 72 61 74 63 68 20 61 72 | 65 61 20 66 6f 72 20 6e |ratch ar|ea for n|
|00000390| 75 6d 20 74 6f 20 73 74 | 72 69 6e 67 20 63 6f 6e |um to st|ring con|
|000003a0| 76 65 72 73 69 6f 6e 73 | 20 2a 2f 0d 09 69 6e 74 |versions| */..int|
|000003b0| 09 09 09 73 65 6c 65 63 | 74 69 6f 6e 3b 09 09 09 |...selec|tion;...|
|000003c0| 2f 2a 20 74 68 65 20 63 | 68 6f 69 63 65 20 74 68 |/* the c|hoice th|
|000003d0| 65 20 75 73 65 72 20 6d | 61 64 65 20 66 72 6f 6d |e user m|ade from|
|000003e0| 20 74 68 65 20 70 6f 70 | 75 70 20 2a 2f 0d 09 50 | the pop|up */..P|
|000003f0| 6f 69 6e 74 09 09 63 61 | 72 64 57 69 6e 64 6f 77 |oint..ca|rdWindow|
|00000400| 4c 6f 63 3b 09 09 2f 2a | 20 75 73 65 64 20 74 6f |Loc;../*| used to|
|00000410| 20 61 6c 69 67 6e 20 70 | 6f 70 75 70 20 6f 6e 20 | align p|opup on |
|00000420| 6d 6f 6e 69 74 6f 72 73 | 20 3e 20 39 20 69 6e 63 |monitors| > 9 inc|
|00000430| 68 65 73 20 2a 2f 0d 09 | 0d 0d 09 2f 2a 20 4c 69 |hes */..|.../* Li|
|00000440| 67 68 74 53 70 65 65 64 | 20 43 20 61 6c 6c 6f 77 |ghtSpeed| C allow|
|00000450| 73 20 67 6c 6f 62 61 6c | 20 76 61 72 69 61 62 6c |s global| variabl|
|00000460| 65 73 20 74 6f 20 62 65 | 20 72 65 66 65 72 65 6e |es to be| referen|
|00000470| 63 65 64 20 66 72 6f 6d | 20 41 34 20 2a 2f 0d 09 |ced from| A4 */..|
|00000480| 52 65 6d 65 6d 62 65 72 | 41 30 28 29 3b 0d 09 53 |Remember|A0();..S|
|00000490| 65 74 55 70 41 34 28 29 | 3b 0d 09 09 0d 09 2f 2a |etUpA4()|;...../*|
|000004a0| 20 4d 61 6b 65 20 73 75 | 72 65 20 77 65 20 77 65 | Make su|re we we|
|000004b0| 72 65 20 63 61 6c 6c 65 | 64 20 77 69 74 68 20 6f |re calle|d with o|
|000004c0| 6e 6c 79 20 6f 6e 65 20 | 61 72 67 75 6d 65 6e 74 |nly one |argument|
|000004d0| 20 2a 2f 0d 09 69 66 20 | 28 70 61 72 61 6d 50 74 | */..if |(paramPt|
|000004e0| 72 2d 3e 70 61 72 61 6d | 43 6f 75 6e 74 20 21 3d |r->param|Count !=|
|000004f0| 20 31 29 20 7b 0d 09 09 | 70 61 72 61 6d 50 74 72 | 1) {...|paramPtr|
|00000500| 2d 3e 72 65 74 75 72 6e | 56 61 6c 75 65 20 3d 20 |->return|Value = |
|00000510| 28 48 61 6e 64 6c 65 29 | 20 43 6f 70 79 53 74 72 |(Handle)| CopyStr|
|00000520| 54 6f 48 61 6e 64 28 55 | 53 41 47 45 29 3b 0d 09 |ToHand(U|SAGE);..|
|00000530| 09 72 65 74 75 72 6e 3b | 0d 09 7d 09 09 0d 09 09 |.return;|..}.....|
|00000540| 09 09 0d 09 2f 2a 20 57 | 65 20 6e 65 65 64 20 74 |..../* W|e need t|
|00000550| 6f 20 62 69 61 73 20 74 | 68 65 20 6f 72 69 67 69 |o bias t|he origi|
|00000560| 6e 20 6f 66 20 74 68 65 | 20 70 6f 70 75 70 20 62 |n of the| popup b|
|00000570| 79 20 74 68 65 20 48 79 | 70 65 72 43 61 72 64 27 |y the Hy|perCard'|
|00000580| 73 20 77 69 6e 64 6f 77 | 20 6c 6f 63 61 74 69 6f |s window| locatio|
|00000590| 6e 20 2a 2f 0d 09 69 66 | 20 28 28 47 65 74 4c 6f |n */..if| ((GetLo|
|000005a0| 63 4f 66 43 61 72 64 57 | 69 6e 64 6f 77 28 70 61 |cOfCardW|indow(pa|
|000005b0| 72 61 6d 50 74 72 2c 20 | 26 63 61 72 64 57 69 6e |ramPtr, |&cardWin|
|000005c0| 64 6f 77 4c 6f 63 29 29 | 20 3d 3d 20 45 52 52 4f |dowLoc))| == ERRO|
|000005d0| 52 46 4c 41 47 29 20 7b | 0d 09 09 72 65 74 75 72 |RFLAG) {|...retur|
|000005e0| 6e 3b 0d 09 7d 0d 0d 09 | 2f 2a 20 42 75 66 66 65 |n;..}...|/* Buffe|
|000005f0| 72 20 74 68 65 20 6d 65 | 6e 75 20 6c 69 73 74 2e |r the me|nu list.|
|00000600| 20 2a 2f 0d 09 73 74 72 | 63 70 79 28 6d 65 6e 75 | */..str|cpy(menu|
|00000610| 4c 69 73 74 2c 20 2a 70 | 61 72 61 6d 50 74 72 2d |List, *p|aramPtr-|
|00000620| 3e 70 61 72 61 6d 73 5b | 30 5d 29 3b 0d 09 09 0d |>params[|0]);....|
|00000630| 09 2f 2a 20 0d 09 20 2a | 20 53 74 72 69 70 20 74 |./* .. *| Strip t|
|00000640| 68 65 20 66 65 61 74 75 | 72 65 73 20 74 68 61 74 |he featu|res that|
|00000650| 20 61 72 65 20 73 75 70 | 70 6f 72 74 65 64 20 62 | are sup|ported b|
|00000660| 79 20 74 68 65 20 4d 61 | 63 27 73 20 6d 65 6e 75 |y the Ma|c's menu|
|00000670| 20 6d 61 6e 61 67 65 72 | 20 62 75 74 20 77 65 20 | manager| but we |
|00000680| 69 67 6e 6f 72 65 2e 0d | 09 20 2a 20 54 68 65 73 |ignore..|. * Thes|
|00000690| 65 20 69 6e 63 6c 75 64 | 65 3a 20 6c 69 6e 65 20 |e includ|e: line |
|000006a0| 73 65 70 61 72 61 74 6f | 72 73 2c 20 63 68 65 63 |separato|rs, chec|
|000006b0| 6b 20 6d 61 72 6b 73 2c | 20 69 63 6f 6e 73 2c 20 |k marks,| icons, |
|000006c0| 65 74 63 2e 0d 09 20 2a | 2f 0d 09 6e 75 6d 5f 6d |etc... *|/..num_m|
|000006d0| 65 6e 75 5f 69 74 65 6d | 73 20 3d 20 50 61 72 73 |enu_item|s = Pars|
|000006e0| 65 4d 65 6e 75 4c 69 73 | 74 28 6d 65 6e 75 4c 69 |eMenuLis|t(menuLi|
|000006f0| 73 74 29 3b 0d 09 09 0d | 09 2f 2a 20 50 75 74 20 |st);....|./* Put |
|00000700| 75 70 20 74 68 65 20 70 | 69 65 20 70 6f 70 75 70 |up the p|ie popup|
|00000710| 20 6d 65 6e 75 20 2a 2f | 0d 09 73 65 6c 65 63 74 | menu */|..select|
|00000720| 69 6f 6e 20 3d 20 44 72 | 61 77 50 69 65 4d 65 6e |ion = Dr|awPieMen|
|00000730| 75 28 63 61 72 64 57 69 | 6e 64 6f 77 4c 6f 63 2c |u(cardWi|ndowLoc,|
|00000740| 20 6d 65 6e 75 4c 69 73 | 74 2c 20 6e 75 6d 5f 6d | menuLis|t, num_m|
|00000750| 65 6e 75 5f 69 74 65 6d | 73 2c 20 30 2c 20 28 69 |enu_item|s, 0, (i|
|00000760| 6e 74 29 20 67 65 6e 65 | 76 61 2c 20 39 29 3b 0d |nt) gene|va, 9);.|
|00000770| 09 09 0d 09 2f 2a 20 52 | 65 74 75 72 6e 20 74 68 |..../* R|eturn th|
|00000780| 65 20 6d 65 6e 75 20 73 | 65 6c 65 63 74 69 6f 6e |e menu s|election|
|00000790| 20 74 6f 20 48 79 70 65 | 72 43 61 72 64 20 2a 2f | to Hype|rCard */|
|000007a0| 0d 09 4e 75 6d 54 6f 53 | 74 72 28 70 61 72 61 6d |..NumToS|tr(param|
|000007b0| 50 74 72 2c 20 28 6c 6f | 6e 67 29 20 73 65 6c 65 |Ptr, (lo|ng) sele|
|000007c0| 63 74 69 6f 6e 2c 20 28 | 75 6e 73 69 67 6e 65 64 |ction, (|unsigned|
|000007d0| 20 63 68 61 72 20 2a 29 | 20 74 65 6d 70 53 74 72 | char *)| tempStr|
|000007e0| 29 3b 0d 09 70 61 72 61 | 6d 50 74 72 2d 3e 72 65 |);..para|mPtr->re|
|000007f0| 74 75 72 6e 56 61 6c 75 | 65 20 3d 20 28 48 61 6e |turnValu|e = (Han|
|00000800| 64 6c 65 29 20 43 6f 70 | 79 53 74 72 54 6f 48 61 |dle) Cop|yStrToHa|
|00000810| 6e 64 28 54 6f 43 73 74 | 72 28 28 63 68 61 72 20 |nd(ToCst|r((char |
|00000820| 2a 29 20 74 65 6d 70 53 | 74 72 29 29 3b 0d 09 09 |*) tempS|tr));...|
|00000830| 0d 09 2f 2a 20 57 65 27 | 72 65 20 64 6f 6e 65 2c |../* We'|re done,|
|00000840| 20 72 65 63 6f 76 65 72 | 20 6f 72 69 67 69 6e 61 | recover| origina|
|00000850| 6c 20 41 34 20 61 6e 64 | 20 72 65 74 75 72 6e 20 |l A4 and| return |
|00000860| 2a 2f 09 0d 09 52 65 73 | 74 6f 72 65 41 34 28 29 |*/...Res|toreA4()|
|00000870| 3b 0d 09 72 65 74 75 72 | 6e 3b 0d 7d 0d 0d 0d 0d |;..retur|n;.}....|
|00000880| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008d0| 2a 2f 0d 2f 2a 20 54 68 | 65 20 66 6f 6c 6c 6f 77 |*/./* Th|e follow|
|000008e0| 69 6e 67 20 72 6f 75 74 | 69 6e 65 73 20 61 72 65 |ing rout|ines are|
|000008f0| 20 66 72 6f 6d 20 74 68 | 65 20 62 6f 6f 6b 3a 09 | from th|e book:.|
|00000900| 58 43 4d 44 27 73 20 66 | 6f 72 20 48 79 70 65 72 |XCMD's f|or Hyper|
|00000910| 43 61 72 64 09 09 09 2a | 2f 0d 2f 2a 09 09 09 09 |Card...*|/./*....|
|00000920| 09 09 09 09 09 09 09 09 | 62 79 3a 20 47 61 72 79 |........|by: Gary|
|00000930| 20 42 6f 6e 64 09 09 09 | 09 09 2a 2f 0d 2f 2a 09 | Bond...|..*/./*.|
|00000940| 09 09 09 09 09 09 09 09 | 09 09 09 49 53 42 4e 3a |........|...ISBN:|
|00000950| 20 30 2d 39 34 33 35 31 | 38 2d 38 35 2d 37 09 09 | 0-94351|8-85-7..|
|00000960| 09 09 2a 2f 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..*/./**|********|
|00000970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009b0| 2a 2a 2a 2a 2a 2a 2f 0d | 0d 69 6e 74 0d 47 65 74 |******/.|.int.Get|
|000009c0| 4c 6f 63 4f 66 43 61 72 | 64 57 69 6e 64 6f 77 28 |LocOfCar|dWindow(|
|000009d0| 70 61 72 61 6d 50 74 72 | 2c 20 6c 6f 63 29 0d 09 |paramPtr|, loc)..|
|000009e0| 58 43 6d 64 42 6c 6f 63 | 6b 50 74 72 09 70 61 72 |XCmdBloc|kPtr.par|
|000009f0| 61 6d 50 74 72 3b 0d 09 | 50 6f 69 6e 74 09 09 09 |amPtr;..|Point...|
|00000a00| 2a 6c 6f 63 3b 0d 7b 0d | 09 48 61 6e 64 6c 65 09 |*loc;.{.|.Handle.|
|00000a10| 68 6e 64 6c 3b 0d 09 63 | 68 61 72 09 73 74 72 5b |hndl;..c|har.str[|
|00000a20| 32 35 36 5d 3b 0d 09 0d | 09 73 74 72 63 70 79 28 |256];...|.strcpy(|
|00000a30| 73 74 72 2c 20 22 69 74 | 65 6d 20 31 20 6f 66 20 |str, "it|em 1 of |
|00000a40| 72 65 63 74 20 6f 66 20 | 63 61 72 64 20 77 69 6e |rect of |card win|
|00000a50| 64 6f 77 22 29 3b 0d 09 | 68 6e 64 6c 20 3d 20 45 |dow");..|hndl = E|
|00000a60| 76 61 6c 45 78 70 72 28 | 70 61 72 61 6d 50 74 72 |valExpr(|paramPtr|
|00000a70| 2c 20 28 53 74 72 69 6e | 67 50 74 72 29 20 43 74 |, (Strin|gPtr) Ct|
|00000a80| 6f 50 73 74 72 28 73 74 | 72 29 29 3b 0d 09 69 66 |oPstr(st|r));..if|
|00000a90| 20 28 70 61 72 61 6d 50 | 74 72 2d 3e 72 65 73 75 | (paramP|tr->resu|
|00000aa0| 6c 74 20 21 3d 20 6e 6f | 45 72 72 29 20 7b 0d 09 |lt != no|Err) {..|
|00000ab0| 09 53 79 73 42 65 65 70 | 28 35 29 3b 0d 09 09 70 |.SysBeep|(5);...p|
|00000ac0| 61 72 61 6d 50 74 72 2d | 3e 72 65 74 75 72 6e 56 |aramPtr-|>returnV|
|00000ad0| 61 6c 75 65 20 3d 20 28 | 48 61 6e 64 6c 65 29 20 |alue = (|Handle) |
|00000ae0| 43 6f 70 79 53 74 72 54 | 6f 48 61 6e 64 28 22 43 |CopyStrT|oHand("C|
|00000af0| 61 6e 27 74 20 67 65 74 | 20 72 65 63 74 20 6f 66 |an't get| rect of|
|00000b00| 20 63 61 72 64 20 77 69 | 6e 64 6f 77 22 29 3b 0d | card wi|ndow");.|
|00000b10| 09 09 72 65 74 75 72 6e | 28 28 69 6e 74 29 20 45 |..return|((int) E|
|00000b20| 52 52 4f 52 46 4c 41 47 | 29 3b 0d 09 7d 0d 09 69 |RRORFLAG|);..}..i|
|00000b30| 66 20 28 70 61 72 61 6d | 50 74 72 2d 3e 72 65 73 |f (param|Ptr->res|
|00000b40| 75 6c 74 20 3d 3d 20 6e | 6f 45 72 72 29 20 7b 0d |ult == n|oErr) {.|
|00000b50| 09 09 6c 6f 63 2d 3e 68 | 20 3d 20 48 61 6e 64 6c |..loc->h| = Handl|
|00000b60| 65 54 6f 4e 75 6d 28 70 | 61 72 61 6d 50 74 72 2c |eToNum(p|aramPtr,|
|00000b70| 20 68 6e 64 6c 29 3b 0d | 09 09 44 69 73 70 6f 73 | hndl);.|..Dispos|
|00000b80| 48 61 6e 64 6c 65 28 68 | 6e 64 6c 29 3b 0d 09 09 |Handle(h|ndl);...|
|00000b90| 0d 09 09 73 74 72 63 70 | 79 28 73 74 72 2c 20 22 |...strcp|y(str, "|
|00000ba0| 69 74 65 6d 20 32 20 6f | 66 20 72 65 63 74 20 6f |item 2 o|f rect o|
|00000bb0| 66 20 63 61 72 64 20 77 | 69 6e 64 6f 77 22 29 3b |f card w|indow");|
|00000bc0| 0d 09 09 68 6e 64 6c 20 | 3d 20 45 76 61 6c 45 78 |...hndl |= EvalEx|
|00000bd0| 70 72 28 70 61 72 61 6d | 50 74 72 2c 20 28 53 74 |pr(param|Ptr, (St|
|00000be0| 72 69 6e 67 50 74 72 29 | 20 43 74 6f 50 73 74 72 |ringPtr)| CtoPstr|
|00000bf0| 28 73 74 72 29 29 3b 0d | 09 09 69 66 20 28 70 61 |(str));.|..if (pa|
|00000c00| 72 61 6d 50 74 72 2d 3e | 72 65 73 75 6c 74 20 3d |ramPtr->|result =|
|00000c10| 3d 20 6e 6f 45 72 72 29 | 20 7b 0d 09 09 09 6c 6f |= noErr)| {....lo|
|00000c20| 63 2d 3e 76 20 3d 20 48 | 61 6e 64 6c 65 54 6f 4e |c->v = H|andleToN|
|00000c30| 75 6d 28 70 61 72 61 6d | 50 74 72 2c 20 68 6e 64 |um(param|Ptr, hnd|
|00000c40| 6c 29 3b 0d 09 09 09 44 | 69 73 70 6f 73 48 61 6e |l);....D|isposHan|
|00000c50| 64 6c 65 28 68 6e 64 6c | 29 3b 0d 09 09 09 72 65 |dle(hndl|);....re|
|00000c60| 74 75 72 6e 28 6e 6f 45 | 72 72 29 3b 0d 09 09 7d |turn(noE|rr);...}|
|00000c70| 0d 09 7d 0d 09 70 61 72 | 61 6d 50 74 72 2d 3e 72 |..}..par|amPtr->r|
|00000c80| 65 74 75 72 6e 56 61 6c | 75 65 20 3d 20 28 48 61 |eturnVal|ue = (Ha|
|00000c90| 6e 64 6c 65 29 20 43 6f | 70 79 53 74 72 54 6f 48 |ndle) Co|pyStrToH|
|00000ca0| 61 6e 64 28 22 43 61 6e | 27 74 20 67 65 74 20 72 |and("Can|'t get r|
|00000cb0| 65 63 74 20 6f 66 20 63 | 61 72 64 20 77 69 6e 64 |ect of c|ard wind|
|00000cc0| 6f 77 22 29 3b 0d 09 72 | 65 74 75 72 6e 20 28 28 |ow");..r|eturn ((|
|00000cd0| 69 6e 74 29 20 45 52 52 | 4f 52 46 4c 41 47 29 3b |int) ERR|ORFLAG);|
|00000ce0| 0d 7d 0d 0d 0d 0d 48 61 | 6e 64 6c 65 0d 43 6f 70 |.}....Ha|ndle.Cop|
|00000cf0| 79 53 74 72 54 6f 48 61 | 6e 64 28 73 74 72 29 0d |yStrToHa|nd(str).|
|00000d00| 09 63 68 61 72 20 2a 73 | 74 72 3b 0d 7b 0d 09 48 |.char *s|tr;.{..H|
|00000d10| 61 6e 64 6c 65 20 6e 65 | 77 48 6e 64 6c 3b 0d 09 |andle ne|wHndl;..|
|00000d20| 0d 09 6e 65 77 48 6e 64 | 6c 20 3d 20 28 48 61 6e |..newHnd|l = (Han|
|00000d30| 64 6c 65 29 20 4e 65 77 | 48 61 6e 64 6c 65 28 28 |dle) New|Handle((|
|00000d40| 6c 6f 6e 67 29 20 73 74 | 72 6c 65 6e 28 73 74 72 |long) st|rlen(str|
|00000d50| 29 20 2b 20 31 29 3b 0d | 09 73 74 72 63 70 79 28 |) + 1);.|.strcpy(|
|00000d60| 28 63 68 61 72 20 2a 29 | 20 28 2a 6e 65 77 48 6e |(char *)| (*newHn|
|00000d70| 64 6c 29 20 2c 20 73 74 | 72 29 3b 0d 09 72 65 74 |dl) , st|r);..ret|
|00000d80| 75 72 6e 28 6e 65 77 48 | 6e 64 6c 29 3b 0d 7d 0d |urn(newH|ndl);.}.|
|00000d90| 0d 0d 0d 6c 6f 6e 67 0d | 48 61 6e 64 6c 65 54 6f |...long.|HandleTo|
|00000da0| 4e 75 6d 28 70 61 72 61 | 6d 50 74 72 2c 20 68 6e |Num(para|mPtr, hn|
|00000db0| 64 6c 29 0d 09 58 43 6d | 64 42 6c 6f 63 6b 50 74 |dl)..XCm|dBlockPt|
|00000dc0| 72 09 70 61 72 61 6d 50 | 74 72 3b 0d 09 48 61 6e |r.paramP|tr;..Han|
|00000dd0| 64 6c 65 09 09 09 68 6e | 64 6c 3b 0d 7b 0d 09 63 |dle...hn|dl;.{..c|
|00000de0| 68 61 72 09 73 74 72 5b | 33 32 5d 3b 0d 09 6c 6f |har.str[|32];..lo|
|00000df0| 6e 67 09 6e 75 6d 3b 0d | 09 0d 09 73 74 72 63 70 |ng.num;.|...strcp|
|00000e00| 79 28 73 74 72 2c 20 2a | 68 6e 64 6c 29 3b 0d 09 |y(str, *|hndl);..|
|00000e10| 6e 75 6d 20 3d 20 53 74 | 72 54 6f 4c 6f 6e 67 28 |num = St|rToLong(|
|00000e20| 70 61 72 61 6d 50 74 72 | 2c 20 28 75 6e 73 69 67 |paramPtr|, (unsig|
|00000e30| 6e 65 64 20 63 68 61 72 | 20 2a 29 20 54 6f 50 73 |ned char| *) ToPs|
|00000e40| 74 72 28 73 74 72 29 29 | 3b 0d 09 72 65 74 75 72 |tr(str))|;..retur|
|00000e50| 6e 28 6e 75 6d 29 3b 0d | 7d 0d 0d 0d 0d 63 68 61 |n(num);.|}....cha|
|00000e60| 72 20 2a 0d 54 6f 43 73 | 74 72 28 73 74 72 29 0d |r *.ToCs|tr(str).|
|00000e70| 09 63 68 61 72 20 2a 73 | 74 72 3b 0d 7b 0d 09 75 |.char *s|tr;.{..u|
|00000e80| 6e 73 69 67 6e 65 64 20 | 63 68 61 72 09 6c 65 6e |nsigned |char.len|
|00000e90| 67 74 68 2c 69 3b 0d 09 | 0d 09 6c 65 6e 67 74 68 |gth,i;..|..length|
|00000ea0| 20 3d 20 73 74 72 5b 30 | 5d 3b 0d 09 66 6f 72 20 | = str[0|];..for |
|00000eb0| 28 69 20 3d 20 30 3b 20 | 69 20 3c 20 6c 65 6e 67 |(i = 0; |i < leng|
|00000ec0| 74 68 3b 20 2b 2b 69 29 | 0d 09 09 73 74 72 5b 69 |th; ++i)|...str[i|
|00000ed0| 5d 20 3d 20 73 74 72 5b | 69 2b 31 5d 3b 0d 09 73 |] = str[|i+1];..s|
|00000ee0| 74 72 5b 6c 65 6e 67 74 | 68 5d 20 3d 20 30 3b 0d |tr[lengt|h] = 0;.|
|00000ef0| 09 72 65 74 75 72 6e 28 | 73 74 72 29 3b 0d 7d 0d |.return(|str);.}.|
|00000f00| 0d 0d 0d 63 68 61 72 20 | 2a 0d 54 6f 50 73 74 72 |...char |*.ToPstr|
|00000f10| 28 73 74 72 29 0d 09 63 | 68 61 72 20 2a 73 74 72 |(str)..c|har *str|
|00000f20| 3b 0d 7b 0d 09 75 6e 73 | 69 67 6e 65 64 20 63 68 |;.{..uns|igned ch|
|00000f30| 61 72 09 6c 65 6e 67 74 | 68 2c 20 69 3b 0d 09 0d |ar.lengt|h, i;...|
|00000f40| 09 66 6f 72 20 28 69 20 | 3d 20 30 2c 20 6c 65 6e |.for (i |= 0, len|
|00000f50| 67 74 68 20 3d 20 30 3b | 20 73 74 72 5b 69 5d 20 |gth = 0;| str[i] |
|00000f60| 21 3d 20 30 3b 20 2b 2b | 69 29 0d 09 09 2b 2b 6c |!= 0; ++|i)...++l|
|00000f70| 65 6e 67 74 68 3b 0d 09 | 0d 09 77 68 69 6c 65 20 |ength;..|..while |
|00000f80| 28 69 2d 2d 29 0d 09 09 | 73 74 72 5b 69 2b 31 5d |(i--)...|str[i+1]|
|00000f90| 20 3d 20 73 74 72 5b 69 | 5d 3b 0d 09 0d 09 73 74 | = str[i|];....st|
|00000fa0| 72 5b 30 5d 20 3d 20 6c | 65 6e 67 74 68 3b 0d 09 |r[0] = l|ength;..|
|00000fb0| 72 65 74 75 72 6e 28 73 | 74 72 29 3b 0d 7d 0d 0d |return(s|tr);.}..|
|00000fc0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
