TweetFollow Us on Twitter

Sep 89 Mousehole
Volume Number:5
Issue Number:9
Column Tag:Mousehole Report

Mousehole Report

By Rusty Hodge & Larry Nedry, Mousehole BBS

From: Cheasy

Re: INIT31 Help wanted

Today I’m writing because of some VERY difficult programming problems. At this time, I am trying to write an INIT for use with the INIT 31 mechanism, which will do something like pop up a dialog box onto the screen. (Yes, indeed, I need this during startup!)

Unfortunately, if I call InitWindows from the toolbox, the startup screen is destroyed and the menu bar will be drawn, along with a fresh erased desktop. This is an very ugly effect, especially if there are more than one or two INITs in my System Folder. So I wrote some code to draw some pseudo-dialog boxes, fill them in, handle something like EditText fields and look for mouseDown events in different regions. They all work nice in my testing program. To make them work, I have to initialize a lot of low-memory globals myself, including my own quickdraw globals. This all worked fine.

But when I try to CopyBits the background of my window before drawing onto it, the routine will crash immediately. Nothing works, and even my own QD globals seem to be destroyed. Has anyone out there a little bit experience dealing with quickdraw at startup (INIT31) time? I am interested in any code which shows how to set up and reference to Quickdraw globals at INIT time.

P.S. I apologize my bad english, but in fact, I am only speaking Pascal. (You can ask me for a German version of this bulletin.)

From: Anthony

Re: INIT resources

I have a question, I am working with INIT’s, and just wanted to see if this bit of code would really do the job. It is written in LS C, and is all of one line,


I have saved it as an INIT, but when I add it to the list of INIT resources in the system, and reboot, it doesn’t do anything? Why, I don’t want to use the INIT 31 trick, I want this to be a part of the system file, so I don’t have to worry about users carrying it over with them when they switch pc’s.

From: Retzes

Re: INIT resources

I think there are two possible reasons why the INIT didn’t work. One, at the time the init is called the Sound-manager, Operating-System Utilities, or Sound-Driver has not been initialized. Two, the INIT didn’t get called for some other reason. When making an INIT that uses Quickdraw functions, I think you have to call InitGraf with a pointer to some local variables that resemble the Quickdraw globals. This was what seemed to be necessary when I added a function that displayed the ICN# for the INIT at the bottom of the screen at startup. I found out how to do this with TMON, examining another INIT file. First you must decide what you want your INIT to really do, then decide if its possible with the system existing at startup.

From: Bzweig

Re: May MacTutor error?

I use SetupA4 and RestoreA4 in my LSC XCMDs all the time, and I haven’t encountered any problems yet. I can use string constants in my error messages and debugging messages without any problems. I’ve also found it useful to recompile sprintf as a code resource (so it uses A4 instead of A5) so I can easily dump the values of variables from my XCMD during debugging. The procedure for doing this is buried somewhere in the LSC manual. It’s not too hard.

From: Bzweig

Re: bulletproof XCMDs

I was interested to read Don Koscheka’s article on Modularity and Coupling in the June MacTutor. I think that Don should add one additional attribute to all XCMDs in his libraries: all XCMDs should be bulletproof, and should detect and handle (either softly or explicitly) any errors by the invoking script. I bring this up because the GetFilename XFCN is not bulletproof as written in the article. If the user gives more than four parameters to the XFCN, the SFTypeList array will be blown and bad things will result. The soft way to handle this would be to say:

numTypes = (paramPtr->paramCount = 4) ? paramPtr->paramCount : 4;

The other way would be to return an error message in the function result. It sure would be nice if all XFCNs could return errors in a uniform manner, by the way. I personally begin each error message with the characters “!@!#” which I hope would never be a normal result. I’d like to hear any smoother suggestions. Maybe if everyone could agree on the name of a global to report XCMDerrors, like XCMDerr.

From: Mikec

Re: New folders from HyperCard

Is there any way to create new folders form within HyperCard using an XCMD? I have a HyperCard application that needs to create a new folder with the user’s name every time a new user registers. There is nothing in “Inside Mac.” or the Mac Tech Notes on this. Is this a closely guarded secret of the Mac’s finder? Thanks for any info or support.

From: Tonys

Re: INIT using dialog manager

How do I create an INIT using LS Pascal which accesses the dialog manager, such as a simple StopAlert call? I think I know how to access the Quickdraw globals using CurrentA5, but once the dialog has been dismissed, the system bombs. Am I missing some other initializations or have resources labeled incorrectly?

From: Siegel

Re: INIT using dialog manager

You’ll need to call InitWindows, InitFonts, and InitDialogs as well. It’s generally un-INIT-like to fire up the Window Manager. If you want to give a message, use ShowInit to draw your INIT’s icon with an X in it, or something similar.

From: Rguerra

Re: KeyMap Kraziness

Can someone PLEASE help me with manipulating the keyMap and modifier keys in assembly? I have user-definable modifiers stored (derived directly from the event record’s modifiers field. I know that the modifier keys all live in bytes 6 and 7 of the keymap. I can easily MOVE these bytes to a data register, but I can’t seem to figure out how to manipulate the bits of either the stored modifiers or the keyMap bytes, and then determine if they are the same. I have to do this directly in assembly since this is in a patch. I know that this will only take about 4 lines of code, but I can’t quite get it right. (It’s so frustrating since I can do the check so easily in Pascal.) Can someone help? I’d appreciate it.

From: Gurglekat

Re: KeyMap Kraziness

Give the BTST instruction a whirl. I’d tell you more about it but my Motorola 68000 manual seems to have escaped me.

From: Siegel

Re: More Help

To create your own port and fill up black, try this:

 GrafPort myPort;   /* static storage */

From: Apage

Re: More Help

Your most obvious problem in this code is your calls to EraseRect and FrameRect.

The Pascal traps are expecting them to be passed as a Pointer to rectangles, however the C compiler will try passing all 16 bytes of each rectangle onto the stack, as per C calling parameters. Change your calls to the following and try again:


From: Bcbg

Re: More Help

When you call the ROM in C, you must be aware of the standard calling conventions.Every object more than 4 bytes in size or every VAR parameter is passed by “address” and not by “value”. It means that to call EraseRect, you must do:

EraseRect (&myPort.portRect);

Same thing for FrameRect. If you used LSC 3.0 or MPW C 3.0, the compiler would tell you these problems...

From: Cforden

Re: LSC Assembly: Save registers for call?

What registers must I save before I call another routine? Inside Mac (phone book ed.) and LSC (3.0 manual) both hint that registers D0-D2 and A0-A1 are generally considered expendable and are generally trashed by routines. However saying that they (LSC and the toolbox) trash them is not quite the same as saying I am allowed to trash them or let them get trashed. In fact I found that if I did not save those registers prior to calling my LSC wordBreak() routine and restore them upon return, the toolbox would get confused and crash the system. I couldn’t find explicit guidance in Williams’ book “Programming the Macintosh in Assembly Language” (Sybex), but many examples showed all registers being saved by routines.

From: Noisy

Re: LSC Assembly: Save registers for call?

Hmmmm...I thought that the LSC (v3.x) manual (pg. 151) was pretty clear about saving D0-D2/A0-A1, and IMvI says the same. As for what an application can trash, I haven’t had any problems trashing registers prior to Toolbox calls. Like yourself, though, I did get into trouble with ‘call-back’ routines: routines that are provided by the application, but actually called by the Toolbox. (The one that bit me was a List clikLoop) I have adopted the ‘better safe than sorry’ attitude of pushing/popping ALL registers in call-back routines, just to ensure future compatibility if nothing else. The space and time wasted by pushing registers is nothing compared to the agony of trying to figure out which one got trashed by whom!

From: Siegel

Re: LSC Assembly: Save registers for call?

The conservative way to go is to save any registers you use, and if any routines that you call use them, be sure they’re correct.

From: Bruceq

Re: Alternate Screen/Snd

I am currently writing a game for the Mac and need to use the Alternate Screen/sound buffers to make it playable on non 020 machines. I know that I can use the alt. buffers if I force the user to boot off of the master disk, but I would really like to have the game load off of the users harddisk if possible. The problem is the case of MultiFinder running. Does _Launch still allocate the alt buffers for you when asked? What if another program had loaded previously? Will MultiFinder reserve that space or swap it out if the foreground application needs the alternate buffers? Or has Apple decided not to support the alt buffers in the future. I don’t need to use a frame buffer on a 68020 or 030 machine because of the extra HorsePower, but doing full screen animated graphics on a Plus or SE with out the frame buffer is the pits.

Any ideas or higher knowledge?

From: Gurglekat

Re: WMgrPort ?’s

There is a low memory global called DeskHook, $A6C, which according to my Inside Mac X-ref is “Address of procedure for painting desktop or responding to clicks on desktop.” You might ask jbx, whose CompuServe address is 73177,1404, how he did the pop-up menu bar in hierDA -- I’m pretty sure he used this routine. If not, you might want to contact the DeskPict people.

From: Gus


Hey there guys. I’m writing a freeware game for the MAC and am interested in how you guys do flicker free animation?? I’ve tried everything. Is there some secret I don’t know about?? Code would really be appreciated. Also I’m using a Mac+ and I’m, writing in LSC. I would really appreciate any help as you guys are my last hope before that programming black hole.

From: Inbox


You can read about it in Scott Knaster’s ‘How to Program Macintosh Software’. Anyway, here’s the advice given there: (I’ll condense it...) It says that the first thing that occurs in the vertical retrace interrupt, is that the global variable Ticks gets incremented. So you can draw right after the interrupt occurs, before the beam actually draws the stuff on the screen. So, here’s the suggested code of your drawing proc:

  Var  tickValue : longint;
  tickvalue := TickCount;{calls ROM to get value of Ticks}
  repeat until (tickValue <> TickCount)
  { start drawing fast!! here...}

That loop waits until the interrupt occurs, and then you should draw. Keep in mind that the top of the window should be drawn before the bottom (if possible) because the electron beam goes from top to bottom.

From: Tan

Re: Scrolling

What you could do is to use ScrollRect, that’ll take care of most of the window that’s scrolled. The new portion of the window contents that need to be redrawn can be clipped. As there’s less to draw on the screen, it would be faster. Of course, another way is to cache a margin around the current visible area in an offscreen bitmap and blit it in when you scroll to the cached area. You’ll need four caches for each of the four directions you can scroll in. I think Excel does something like that to speed the scrolling.

From: Moreno

Re: Scrolling

Here is some pseudo code for determining if you should draw a line in your apps window

theUpdateRgn := NewRgn; { create a temporary region, NewRgn returns a 
region HANDLE }
ScrollRect(windowRect_Minus_One_Line_at_Top_Or_Bottom, +_or_-_One_Line_Height,
0, theUpdateRgn);
{ don’t forget to subtrac the scrollbars from the window rect }
SetRect(DrawingRect,{ you fill in the blanks it’s not MY
IF RectInRgn(DrawingRect, YourWindow^.visRgn) AND RectInRgn(DrawingRect,
YourWindow^.clipRgn) THEN
{ draw the top or bottom line if scrolling by on line }

From: Inbox

Re: TEdit

Does anyone know of a good way to replace (or designate) the text in a Text Edit record? I did the following, and it didn’t quite work... vat sheesh.. make that VAR

  myTeh : TEHandle;
  myStrHandle : StringHandle;
  myStr : String[20];
myStr := ‘ 20 letters go here  ... ‘;
myStrHandle := NewString(myStr);
myTeh^^.hText := Handle(myStrHandle);

What happens is that a garbage char gets displayed along with the first 17 or so characters of myStr; And the ASCII value of the char is 20, and so is the length of the string. So, I think that the type coercion from StringHandle to Handle makes it point to the length of the string and not to the contents. I don’t know what to do with this, because I’m using LSP 2.0. If this was in C, no problem. But I don’t know how to do this in Pascal. So, I FOUGHT THE ROM AND THE ROM WON!!! < a sob is heard here> ANY suggestions are greatly appreciated.

From: Gurglekat

Re: TEdit

Just in case you’ve not got an answer yet, the garbage character is the Pascal length byte. NewString passes you back a StringHandle, which points to a chunk of mem headed by the length byte, which is followed by the letters of the string. In order to do what you are doing while maintaining your code, it might be best to do

BlockMove(@myStrHandle^^[1], @myStrHandle^^[0], length(myStr));
SetHandleSize(Handle(myStrHandle)), GetHandleSize( Handle(myStrHandle))-1);

before installing the handle and TECalText’ing. However, I think you should use


which avoids the StringHandle muddle altogether. TEInsert will take care of space for the text, if that’s what you’re worried about.

From: Gurglekat

Re: TEdit

Ah. Forgot to mention -- the TECalText becomes unnecessary if you use the TEInsert method.

From: Inbox

Re: TEdit

I thought that this was the garbage char. Thank you very much for your suggestion. However, I don’t think that TEInsert is the way to go because I have to clear the text that was already there. Anyway, I’m using this scheme in a spreadsheet program I’m writing (and, no, I don’t plan to put Microsoft out of business) for input to and from cells. The new text has to be shown when a new cell is selected, and that’s where the garbage char problem comes in. Is there a better way to do cell input?

From: Pdyson

Re: Shutdown under Multifinder

A good Multifinder-friendly app quits gracefully when the user gives the Restart or Shutdown command from the Finder’s Special menu. But what is the secret of writing an app to receive and obey this message from the Finder? I downloaded the TEsample.C from Apple DTS, modified it for LSC 3.0 and Lo! it simply refuses to die when the Finder calls for a restart.

The app has 4 mstr resources (100-103) and (since I simply cribbed it from DTS) should be correct in the way it dispatches events. I am mystified.

From: MacDTS

Re: Shutdown under Multifinder

I would guess the “Quit” item in the File menu has more than what you’re specifying in ‘mstr’. Look for some spaces after the Quit string. I’ve heard about this problem before with LSC.

From: Pdyson

Re: Shutdown under Multifinder

Aaah, the way things become obvious after someone else points them out. Problem due to my own sloppy typing, no fault of LSC here.

Much thanks for the help.

From: Rapier

Re: GrowZone, cbNeeded

I’ve got a GrowZone proc that seemed to work fine, except that, occasionally, I get a negative number for cbNeeded. I’m using LSP 2.01, and my test program is allocating $9000 bytes. The value of cbNeeded is FFFF9008!! Is this an OS bug, a weirdness with LSP’s Zone, or something unheard of??.

I don’t want to add a special negative number handler without knowing why, and I want to put off going into Macsbug if someone already knows what’s happening.

Any help would be appreciated.

From: Brad

Re: GrowZone, cbNeeded

How are you allocating the memory? If you are using $9000 as a constant, try changing it to $09000, which will force the Compiler to use a LONGINT. It might be sign extending the $9000 (which is -28672 in decimal), in which case you would be asking for a HUGE block of memory. I think the memory manager treats memory requests as unsigned.

From: Nfong

Re: ioFLAttrib

I’m trying to set the protect bit in ioFlAttrib with PBSetCatInfo but can’t seem to get it to work. It returns with no error but doesn’t do anything. Anyone got any suggestions?

From: Inbox

Re: bundle bit

Does anyone know whether it’s possible to set the bundle bit using ResEdit? I’m using LSC 3.0, and couldn’t get the icon to be recognized.

From: Spud

Re: bundle bit

There was an old version of ResEdit that had the Changed and Bundle bits mixed up; you clicked on the Bundle checkbox and the Changed bit was set, and vice versa. The good ol’ boys at Apple have fixed that little mishap since then, and I’m sure that the version here (version 1.2) has the fix.

From: Zarko

Re: PenMode funnies

Beware of wrong PenMode() calls. If you mistakenly pass srcXOR (0x02) instead of patXOR (0x0A), then the intended XOR drawing effect WILL take place on a Mac II, but not on a Mac+. IM says that the source modes will cause no drawing to take place - not true for the II.

From: Eau

Re: bundle bit

Yes, you can set the bundle bit with ResEdit. Do ‘command-I’ when a file is selected, and a window will appear, which has a checkbox for Bundle. To get the Finder to recognize the icon, you will probably have to move the file to a different folder. The Finder will not automatically pick up changed bundle bits. Of course, the file should also contain resources defining the icons.

When I’ve got an application, and I want the Finder to re-read the bundle information, I move it between the top-level and a subdirectory on my hard disk. This works pretty well. Hope this helps.


Community Search:
MacTech Search:

Software Updates via MacUpdate

Markly 1.5.3 - Create measurement and de...
Markly is a measurement and design-spec plugin/extension for Photoshop and Sketch. It is made for modern Web designers and app front-end developers. You can add specification marks simply by clicking... Read more
Suitcase Fusion 6 17.3.0 - Font manageme...
Suitcase Fusion 6 is the creative professional's font manager. Every professional font manager should deliver the basics: spectacular previews, powerful search tools, and efficient font organization... Read more
Nisus Writer Pro 2.1.2 - Multilingual wo...
Nisus Writer Pro is a powerful multilingual word processor, similar to its entry level products, but brings new features such as table of contents, indexing, bookmarks, widow and orphan control,... Read more
calibre 2.40.0 - Complete e-book library...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
Vivaldi - An advanced browser...
Vivaldi is a browser for our friends. In 1994, two programmers started working on a web browser. Our idea was to make a really fast browser, capable of running on limited hardware, keeping in mind... Read more
OmniPlan 3.0 - Robust project management...
With OmniPlan, you can create logical, manageable project plans with Gantt charts, schedules, summaries, milestones, and critical paths. Break down the tasks needed to make your project a success,... Read more
Yummy FTP 1.11 - FTP/SFTP/FTPS client fo...
Yummy FTP is an FTP + SFTP + FTPS file transfer client which focuses on speed, reliability and productivity. Whether you need to transfer a few files or a few thousand, schedule automatic backups, or... Read more
Tweetbot 2.1 - Popular Twitter client. (...
Tweetbot is a full-featured OS X Twitter client with a lot of personality. Whether it's the meticulously-crafted interface, sounds and animation, or features like multiple timelines and column views... Read more
MacPilot 8.0 - Enable over 1,200 hidden...
MacPilot gives you the power of UNIX and the simplicity of Macintosh, which means a phenomenal amount of untapped power in your hands! Use MacPilot to unlock over 1,200 features, and access them all... Read more
Typinator 6.7 - Speedy and reliable text...
Typinator turbo-charges your typing productivity. Type a little. Typinator does the rest. We've all faced projects that require repetitive typing tasks. With Typinator, you can store commonly used... Read more

Balloony Land offers a fresh twist on th...
Balloony Land by Palringo offers a fresh twist on the match three genre and is out now on iOS and Android. First-off, you'll be popping balloons instead of crushing candy and the balloons will float up and fill the empty spaces instead of dropping... | Read more »
Graphic - vector illustration and design...
Graphic - vector illustration and design 1.0 Device: iOS iPhone Category: Productivity Price: $2.99, Version: 1.0 (iTunes) Description: Autodesk Graphic is a powerful full-featured vector drawing and illustration application right in... | Read more »
Sago Mini Babies (Education)
Sago Mini Babies 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: Introducing the Sago Mini babies. Boys and girls love caring for these adorable characters. Feed Robin her favorite mush... | Read more »
PAUSE - Relaxation at your fingertip (H...
PAUSE - Relaxation at your fingertip 1.1 Device: iOS iPhone Category: Healthcare & Fitness Price: $1.99, Version: 1.1 (iTunes) Description: | Read more »
Super Sharp (Games)
Super Sharp 1.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.1 (iTunes) Description: Your finger has never been so sharp! Cut with skill to complete the 120 ingenious physics levels of Super Sharp and become a cut... | Read more »
Assembly - Graphic design for everyone...
Assembly - Graphic design for everyone 1.0 Device: iOS Universal Category: Photography Price: $2.99, Version: 1.0 (iTunes) Description: Assembly is the easiest most powerful design tool on the App Store. Create anything you can... | Read more »
Dub Dash (Games)
Dub Dash 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: ARE YOU READY FOR THE ULTIMATE CHALLENGE? UNIQUE SYMBIOSIS OF MUSIC AND GRAPHICS | Read more »
Leave Me Alone (Games)
Leave Me Alone 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: 33% off launch sale!!! Somewhere between the 1980s and 1990s there exists a world that never was. A world of skatepunks,... | Read more »
YAMGUN (Games)
YAMGUN 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: The invasion has begun! Protect the walls of the citadel against waves of enemies! But watch out, you will soon run out of ammo...... | Read more »
Chesh (Games)
Chesh 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: It’s like chess, only not at all. ***40% off for a limited time to celebrate our launch!*** Chesh is a game of skill, strategy, luck,... | Read more »

Price Scanner via

TP-LINK Next-Gen Routers Support a Large Numb...
TP-LINK, specialists in consumer and business networking products, have announced the availability of Archer C2600, the company’s next-generation router featuring wireless AC, multi-user MIMO, and 4-... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
Save up to $350 with Apple refurbished iMacs
Apple has Certified Refurbished iMacs available for up to $350 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 27″ 3.5GHz 5K iMac – $1949 $350 off MSRP - 27... Read more
Mac Pros on sale for up to $300 off MSRP
B&H Photo has Mac Pros on sale for up to $300 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2818.99, $181 off MSRP - 3.5GHz 6-core Mac Pro: $3699... Read more
5K iMacs on sale for up to $150 off MSRP, fre...
B&H Photo has the 27″ 3.3GHz 5K iMac on sale for $1899.99 including free shipping plus NY tax only. Their price is $100 off MSRP. They have the 27″ 3.5GHz 5K iMac on sale for $2149, $150 off MSRP... Read more
Twelve South Redesigns BookArc For Today’s Sm...
Twelve South has announced a redesigned version of their very first product, BookArc for MacBook. Tailored specifically for the newest generation of MacBooks, BookArc holds the new, smaller Apple... Read more
Phone 6s Tips & Tricks – Tips Book For iP...
Poole, United Kingdom based Tap Guides Ltd. has announced the release and immediate availability of iPhone 6s Tips & Tricks, an in-depth eBook available in the iBookstore that’s priced just $2.99... Read more
Apple refurbished 2014 13-inch Retina MacBook...
Apple has Certified Refurbished 2014 13″ Retina MacBook Pros available for up to $400 off original MSRP, starting at $979. An Apple one-year warranty is included with each model, and shipping is free... Read more
13-inch 2.5GHz MacBook Pro on sale for $994,...
Best Buy has the 13″ 2.5GHz MacBook Pro available for $994.99 on their online store. Choose free shipping or free instant local store pickup (if available). Their price is $105 off MSRP. Price valid... Read more
Is The iPad Pro Really A Serious Laptop Repla...
Probably not, at least for productive professionals and other power users. Steve Jobs declared that we’d entered the “post-PC Era” with the advent of the original iPad in 2010, a phrase we don’t hear... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, you're Read more
*Apple* Solutions Consultant -Bilingual, Chi...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
SW QA Engineer - *Apple* TV - Apple (United...
**Job Summary** The Apple TV team is looking for experienced Quality Assurance Engineers with a passion for delivering first in class home entertainment solutions. **Key Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.