TweetFollow Us on Twitter

Hypercard, Forth
Volume Number:3
Issue Number:12
Column Tag:Forth Forum

Extending HyperCard from Forth

By Jörg Langowski, MacTutor Editorial Board, Grenoble, France

HyperCard external functions and commands

One of the major events in the last couple of months on the Macintosh scene has been the introduction of Hypercard (You’ve read an article on it in the last MacTutor). This month’s column will deal with interfacing Forth code to Hypercard; we shall see how an external command can be implemented in Mach2.

The syntax of HyperTalk commands

A ‘command’ in the Hypertalk language is a word followed by a number of parameters, separated by spaces. Example:

dial it with modem 

will execute the dial command and pass the parameter string: “it with modem”. Dial will then know how to deal with that string; in this case, get the ASCII string stored in it, interpret it as a phone number to be dialed and issue the appropriate Hayes-compatible modem command.

Similarly, if we define our own command, munch, we may send parameters to it, “three bars of milk chocolate”, and the corresponding Hypertalk line will read:

 munch three bars of milk chocolate

The concept, as you see, is very simple. All we now need to know is how such an external command is implemented, i.e., how the Hypertalk system finds the command and how the parameters are passed.

How an external command is found

An external command is stored as a resource of type XCMD. The resource name is the name of the external command as called through Hypertalk. I have not peeked inside Hypertalk’s guts yet, but it seems to me very probable that a GetNamedResource is used to get an XCMD that is to be executed.

The resource is a piece of executable 68000 code, just like a WDEF or MDEF would be. When the XCMD is executed, the system jumps to the beginning of the resource. There, on top of the stack a pointer to a parameter block is passed, which looks like the following (in Pascal notation):

XCmdPtr = ^XCmdBlock;
XCmdBlock = RECORD
 paramCount:  INTEGER;    { the number of arguments }
 params:  ARRAY[1..16] OF Handle;   { the arguments }
 returnValue: Handle;   { the result of this XCMD }
 passFlag:  BOOLEAN;    { pass the message on? }
 
 entryPoint:   ProcPtr;   { call back to HyperCard }
 request:   INTEGER;   { what you want to do }
 result:  INTEGER; { the answer it gives }
 inArgs:   ARRAY[1..8] OF LongInt; 
 { args XCMD sends HyperCard }
 outArgs:   ARRAY[1..4] OF LongInt;
 { answer HyperCard sends back }
 END;

A Hypertalk function, in contrast to a command, will always return a value and its syntax is different from that of a command. For example:

 the exp of number

will return the exponential of number. A Hypertalk line like that has no meaning, so we’ll write, for instance:

 put the exp of number into it

and it will contain the result. An alternative syntax would be

 put exp(number) into it.

An external function is stored as a resource of type XFCN, with the resource name being the name of the function, like for the XCMDs; again, it is called by jumping to the start of the resource.

The parsing of the line following the command or function is automatically done by Hypercard; the arguments (i.e., the words following the command) are passed to the XCMD in form of handles to zero-terminated strings. The XCMD that we write can do whatever necessary with them. If you want, you may return a result by storing a handle to it in returnValue. (All data values going to and from HyperTalk are zero-terminated ASCII strings). A result that has been stored in this field can be accessed by the user in the variable ‘the result’ after executing a command. In a function, returnValue is always expected to contain something.

passFlag is used to determine whether the command has been executed successfully. If this flag is false, the XCMD or XFCN has handled the message and the script resumes execution. If passFlag is true, HyperCard searches the remaining inheritance chain for another handler or XCMD with the same name. This is just like the ‘pass’ control structure in a script.

You may also call HyperCard from within your code. This is what the second part of the parameter block is used for. To call HyperCard commands, you put your arguments into inArgs, the command code into request, and call the routine pointed to by entryPoint. HyperCard returns the values you requested in outArgs and a result code in result.

The command and result codes are part of a Pascal definition in the Hypercard developer package materials. They are given in Listing 1, together with a description of what the commands do.

Mach2 implementation

The example program (Listing 1) will create an XCMD that inverts the screen a given number of times, like the built-in flash command. The difference is that the result will return Done when the command was executed successfully and Error when a negative number has been given as a parameter (incorrect). Its syntax will be:

 flashy <number> 

where <number> is a string that is interpreted as a decimal number.

Now look at the example. You’ll recognize the glue code that is used in the XCMD definition to setup the Forth stack and transfer the parameters from the Pascal to the Forth stack; I defined in the form of a MACH macro so the definition of the actual glue routine becomes very simple. The XCMD is embedded between the labels flashy.start and flashy.end. callJSR is a redefinition of the kernel word execute, which does a JSR to an address given on the stack. This word is needed in the two following words, ZeroToPas and StrToNum, which call Hypercard routines through the entryPoint parameter in the Hypercard parameter block. ZeroToPas converts a C string (zero-terminated) to a Pascal string (count byte followed by characters). StrToNum takes a Pascal string and interprets it as a number. Both routines also need to be given the address of the Hypercard parameter block containing Hypercard’s entry point.

For the other Hypercard functions that may be called from outside, see their request codes and Pascal definitions given at the beginning of the listing. With the two routines given here as an example, you can easily figure out how to call the remaining ones. I also strongly recommend reading the documentation and Pascal or C example files that come with the Hypercard developer’s package, which you may obtain through APDA (DDA in France, see below).

The actual XCMD, flashy, first gets the first parameter, which is a handle to a string, then converts this string to a number. If the number is negative, it will return “Error” as a return string, if it is positive, it flashes the screen for this number of times and returns “Done”.

The last part of the listing will simply create a file containing the new resource.

Calling the XCMD from Hypercard

When you’ve created the file “xcmd.res”, enter ResEdit and install the XCMD resource in your home stack (or any other stack, for that matter). Then you can call Hypercard and, for example, create a button which has the following script:

on mouseup
 flashy 10
 put the result
end mouseup

Pushing this button, then, should flash the screen ten times and display “Done” in the message window. If you change the number to -10, no flashing should happen and “Error” should be displayed in the message box.

You may try to change the resource type to XFCN; this will change the syntax to (for example)

on mouseup
 put flashy(10)
end mouseup

but should not otherwise affect the behavior of the command.

Feedback Dept.

Mac Applications in Forth?

Paul Thomas

Danville, CA

Q. Can Forth be used on the Mac to do software stuff: i.e. games, engineering applications, etc.? I just picked up “Mach2” last month and I’ve been reading Leo Brodie’s “Starting Forth”. I was studying the Mac Toolbox using Turbo Pascal, but I went over to Palo Alto Shipping and visited with Rick Miley. I’m an engineering student (mechanical engineering) and he got me excited about Forth. Most of your articles tend to deal with hardware, data transfer, low level stuff. I realize that Forth is great for that type of work, but I’d like to program the Mac in Forth. I haven’t been able to find very many example programs in Forth. I guess I could try my hand at translating from Pascal and C to Forth. It’s going to be tough though since I’m new at Forth - and it really IS different from Pascal or C. Are most of your readers interested in low level Forth work? Do you know of anyone who is programming applications in Forth? Most people that I know that program the Mac work in Pascal or C.

I do enjoy your articles [Thanks! JL]. I’d love to send you a message over CalvaCom, but it’s a bit too expensive for me. I can’t even afford Compuserve. Do you have an address on GEnie?

A. Can Forth be used to do software stuff: why, yes! don’t we do software stuff? In fact, I see what you mean and can only say that one full-fledged application in each column would probably be too much. If you’ve seen the space taken up by long articles in MacTutor, you’ll understand that we cannot print a regular column that long each time. I might, however, think of working out a longer project and distribute that over several columns. The columns that I write, of course, also reflect to some extent how I use the Mac for my other work. Let me take this opportunity to repeat once again: This magazine lives through YOUR contributions, and nothing would I appreciate more than article submissions for the Forth column.

Most people I know program the Mac in Pascal or C, too. Should I say unfortunately? The two Forth systems that I use, Mach2 and MacForth, are by far the fastest development systems that I know of. Having to write this month’s example in Pascal without the glue routines available would have been a nightmare. With Mach2, the whole cycle of changing a line, recompiling, rewriting the resource file, calling ResEdit, installing the resource, calling Hypercard and testing the XCMD takes about one minute. If I hadn’t been that lazy, I’d have written a small routine that installs the XCMD in my Home stack directly, gaining another 30 seconds.

[I can be reached on GEnie now. Mail address: J.Langowski. I wish you all happy holidays, and happy threading.]

Listing 1: A screen invert Hypercard external command in Mach2
( *** Hypercard external commands. J.L. October 1987 *** )

ONLY FORTH ALSO ASSEMBLER ALSO MAC

4ascii XFCN CONSTANT “xfcn
4ascii XCMD CONSTANT “xcmd

$9DE CONSTANT WMgrPort

\ structure of a Hypercard parameter block

0  CONSTANT paramCount    \ INTEGER; the number of arguments
2  CONSTANT params \ ARRAY[1..16] OF Handle; the arguments
66 CONSTANT returnValue \ Handle; the result of this XCMD
70 CONSTANT passFlag \ BOOLEAN; pass the message on?
72 CONSTANT entryPoint  \ ProcPtr; call back to HyperCard
76 CONSTANT request\ INTEGER; what you want to do
78 CONSTANT result \ INTEGER; the answer it gives
80 CONSTANT inArgs \ ARRAY[1..8] OF LongInt;
 \ args XCMD sends HyperCard
112 CONSTANT outArgs \ ARRAY[1..4] OF LongInt;
 \ answer HyperCard sends back

\ result codes
0 CONSTANT xresSucc
1 CONSTANT xresFail
2 CONSTANT xresNotImp
   
\ request codes
1 CONSTANT  xreqSendCardMessage
2 CONSTANT  xreqEvalExpr
3 CONSTANT  xreqStringLength
4 CONSTANT  xreqStringMatch
5 CONSTANT  xreqSendHCMessage
6 CONSTANT  xreqZeroBytes
7 CONSTANT  xreqPasToZero
8 CONSTANT  xreqZeroToPas
9 CONSTANT  xreqStrToLong
10 CONSTANT xreqStrToNum
11 CONSTANT xreqStrToBool
12 CONSTANT xreqStrToExt
13 CONSTANT xreqLongToStr
14 CONSTANT xreqNumToStr
15 CONSTANT xreqNumToHex
16 CONSTANT xreqBoolToStr
17 CONSTANT xreqExtToStr
18 CONSTANT xreqGetGlobal
19 CONSTANT xreqSetGlobal
20 CONSTANT xreqGetFieldByName
21 CONSTANT xreqGetFieldByNum
22 CONSTANT xreqGetFieldByID
23 CONSTANT xreqSetFieldByName
24 CONSTANT xreqSetFieldByNum
25 CONSTANT xreqSetFieldByID
26 CONSTANT xreqStringEqual
27 CONSTANT xreqReturnToPas
28 CONSTANT xreqScanToReturn
39 CONSTANT xreqScanToZero \ was supposed to be 29. Oops!
 
( **** Pascal definitions for the Hypercard routines follow:
   
PROCEDURE SendCardMessage(msg: Str255);
{  Send a HyperCard message (a command with arguments) to the current 
card. }
 
FUNCTION EvalExpr(expr: Str255): Handle;
{  Evaluate a HyperCard expression and return the answer.  The answer 
is a handle to a zero-terminated string. }
 
FUNCTION StringLength(strPtr: Ptr): LongInt;
{  Count the characters from where strPtr points until the next zero 
byte. Does not count the zero itself.  strPtr must be a zero-terminated 
string.  }
 
FUNCTION StringMatch(pattern: Str255; target: Ptr): Ptr;
{ Perform case-insensitive match looking for pattern anywhere in target, 
returning a pointer to first character of the first match, in target 
or NIL if no match found.  pattern is a Pascal string, and target is 
a zero-terminated string. }
 
PROCEDURE ZeroBytes(dstPtr: Ptr; longCount: LongInt);
{  Write zeros into memory starting at destPtr and going for longCount 
number of bytes. }
 
FUNCTION PasToZero(str: Str255): Handle;
{  Convert a Pascal string to a zero-terminated string.  Returns a handle 
to a new zero-terminated string.  The caller must dispose the handle. 
You’ll need to do this for any result or argument you send from your 
XCMD to HyperTalk. }
 
PROCEDURE ZeroToPas(zeroStr: Ptr; VAR pasStr: Str255);
{  Fill the Pascal string with the contents of the zero-terminated string. 
 You create the Pascal string and pass it in as a VAR parameter.  Useful 
for converting the arguments of any XCMD to Pascal strings.}
 
FUNCTION StrToLong(str: Str31): LongInt;
{  Convert a string of ASCII decimal digits to an unsigned long integer. 
}
 
FUNCTION StrToNum(str: Str31): LongInt;
{  Convert a string of ASCII decimal digits to a signed long integer. 
Negative sign is allowed.  }
 
FUNCTION StrToBool(str: Str31): BOOLEAN;
{ Convert the Pascal strings ‘true’ and ‘false’ to booleans. }
 
FUNCTION StrToExt(str: Str31): Extended;
{  Convert a string of ASCII decimal digits to an extended long integer. 
}
 
FUNCTION LongToStr(posNum: LongInt): Str31;
{  Convert an unsigned long integer to a Pascal string.  }
 
FUNCTION NumToStr(num: LongInt): Str31;
{  Convert a signed long integer to a Pascal string.  }
 
FUNCTION NumToHex(num: LongInt; nDigits: INTEGER): Str31;
{  Convert an unsigned long integer to a hexadecimal number and put it 
into a Pascal string.  }
 
FUNCTION BoolToStr(bool: BOOLEAN): Str31;
{  Convert a boolean to ‘true’ or ‘false’.  }
FUNCTION ExtToStr(num: Extended): Str31;
{ Convert an extended long integer to decimal digits in a string.}
 
FUNCTION GetGlobal(globName: Str255): Handle;
{  Return a handle to a zero-terminated string containing the value of 
the specified HyperTalk global variable.  }
 
PROCEDURE SetGlobal(globName: Str255; globValue: Handle);
{  Set the value of the specified HyperTalk global variable to be the 
zero-terminated string in globValue.  The contents of the Handle are 
copied, so you must still dispose it afterwards.  }
 
FUNCTION GetFieldByName(cardFieldFlag: BOOLEAN; fieldName: Str255): Handle;
{  Return a handle to a zero-terminated string containing the value of 
field fieldName on the current card. You must dispose the handle.  }
 
FUNCTION GetFieldByNum(cardFieldFlag: BOOLEAN; fieldNum: INTEGER): Handle;
{  Return a handle to a zero-terminated string containing the value of 
field fieldNum on the current card.  You must dispose the handle.  }
 
FUNCTION GetFieldByID(cardFieldFlag: BOOLEAN; fieldID: INTEGER): Handle;
{  Return a handle to a zero-terminated string containing the value of 
the field whose ID is fieldID.  You must dispose the handle.  }
 
PROCEDURE SetFieldByName(cardFieldFlag: BOOLEAN; fieldName: Str255; fieldVal: 
Handle);
{  Set the value of field fieldName to be the zero-terminated string 
in fieldVal.  The contents of the Handle are copied, so you must still 
dispose it afterwards.  }
 
PROCEDURE SetFieldByNum(cardFieldFlag: BOOLEAN; fieldNum: INTEGER; fieldVal: 
Handle);
{  Set the value of field fieldNum to be the zero-terminated string in 
fieldVal.  The contents of the Handle are copied, so you must still dispose 
it afterwards.  }
 
PROCEDURE SetFieldByID(cardFieldFlag: BOOLEAN; fieldID: INTEGER; fieldVal: 
Handle);
{  Set the value of the field whose ID is fieldID to be the zero-terminated 
string in fieldVal.  The contents of the Handle are copied, so you must 
still dispose it afterwards.  }
 
FUNCTION StringEqual(str1,str2: Str255): BOOLEAN;
{  Return true if the two strings have the same characters. Case insensitive 
compare of the strings.  }
 
PROCEDURE ReturnToPas(zeroStr: Ptr; VAR pasStr: Str255);
{  zeroStr points into a zero-terminated string.  Collect the characters 
from there to the next carriage Return and return them in the Pascal 
string pasStr.  If a Return is not found, collect chars until the end 
of the string. }
 
PROCEDURE ScanToReturn(VAR scanPtr: Ptr);
{  Move the pointer scanPtr along a zero-terminated string until it points 
at a Return character or a zero byte.  }
 
PROCEDURE ScanToZero(VAR scanPtr: Ptr);
{  Move the pointer scanPtr along a zero-terminated string until it points 
at a zero byte.  }
 
**** End of Pascal definitions )

\ **** Hypercard glue macros

CODE HC.prelude
 LINK A6,#-512   ( 512 bytes of local Forth stack )
 MOVEM.L A0-A5/D0-D7,-(A7)( save registers )
 MOVE.L A6,A3    ( setup local loop return stack )
 SUBA.L #256,A3  ( in the low 256 local stack bytes )
 MOVE.L 8(A6),D0 ( pointer to parameter block )
 MOVE.L D0,-(A6)
 RTS    \ just to indicate the MACHro stops here 
END-CODE MACH

CODE HC.epilogue
 MOVEM.L (A7)+,A0-A5/D0-D7( restore registers )
 UNLK A6
 MOVE.L (A7)+,A0 ( return address )
 ADD.W  #4,A7  ( pop off 4 bytes of parameters )
 JMP    (A0)
 RTS
END-CODE MACH

( ------------------ )

header flashy.start
 JMP flashy.start  ( to be filled later )

header doneString 
 DC.B ‘Done’
 DC.B 0

header errorString 
 DC.B ‘Error’
 DC.B 0

header PascalString 255 allot

CODE callJSR
 MOVE.L (A6)+,-(A7)
 RTS
END-CODE
: ZeroToPas { HCPars CStr PStr | -- }
 CStr HCPars inArgs + !
 PStr HCPars inArgs + 4 + !
 xreqZeroToPas HCPars request + w!
 HCPars entryPoint + @ callJSR ( call Hypercard here );  
: StrToNum  { HCPars Str | -- result }
 Str HCPars inArgs + !
 xreqStrToNum HCPars request + w!
 HCPars entryPoint + @ callJSR 
 HCPars outArgs + @;
  
: flashy{ HCpars | hP1 screen times -- }
 HCPars params + @ -> hP1 \ handle to first parameter
 \ (zero-terminated string)
 hP1 (call) HLock drop    \ yes, I know I’m paranoid 
 HCPars hP1 @ [‘] PascalString
 ZeroToPas
 hP1 (call) HUnLock drop
 HCPars [‘] PascalString 
 StrToNum -> times
 times 0> IF
   WMgrPort @ -> screen
   times 0 DO
 screen portRect + dup 
 (call) InvertRect (call) InvertRect
 LOOP 
   [‘] doneString 5 (call) PtrToHand drop
 HCpars returnValue + !
 ELSE ( if it is negative, return an error )
   [‘] errorString 6 (call) PtrToHand drop
 HCpars returnValue + !
 THEN;
: flashy.glue
 HC.prelude  flashy  HC.epilogue  ;
header flashy.end
( now setup correct entry address )
‘ flashy.glue ‘ flashy.start 2+ - ‘ flashy.start 2+ w!

( *** making the XCMD resource *** )
: $create-res call CreateResFile call ResError L_ext ;

: $open-res { addr | refNum -- result }
 addr call openresfile -> refNum
 call ResError L_ext
 dup not IF drop refNum THEN ;
: $close-res call CloseResFile call ResError L_ext ;

: make-xcmd { | refNum -- }
 “ xcmd.res” dup $create-res
 abort” You have to delete the old ‘xcmd.res’ file first.”
 $open-res dup -> refNum call UseResFile 
 [‘] flashy.start [‘] flashy.end over - 
 call PtrToHand drop ( result code )
 “xcmd 2000 “ flashy” call AddResource
 refNum $close-res drop ( result code );
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

BusyCal 2.6.6 - Powerful calendar app wi...
BusyCal is an award-winning desktop calendar that combines personal productivity features for individuals with powerful calendar sharing capabilities for families and workgroups. BusyCal's unique... Read more
MegaSeg 5.9.6 - Professional MP3 DJ appl...
MegaSeg is a complete solution for pro audio/video DJ mixing, radio automation, and music scheduling with rock-solid performance and an easy-to-use design. Mix with visual waveforms and Magic... Read more
KeyCue 7.5 - Displays all menu shortcut...
Need more than one license? Get KeyCue Family for just $15.99. KeyCue lets you view available Command key shortcuts. Simply press and hold the Command key to view a list of all available keyboard... Read more
Apple Pro Video Formats 2.0.1 - Updates...
Apple Pro Video Formats brings updates to Apple's professional-level codes for Final Cut Pro X, Motion 5, and Compressor 4. Version 2.0.1: Support for the following professional video codecs Apple... Read more
Maya 2015 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
EtreCheck 2.2 - For troubleshooting your...
EtreCheck is a simple little app to display the important details of your system configuration and allow you to copy that information to the Clipboard. It is meant to be used with Apple Support... Read more
OmniOutliner Pro 4.2 - Pro version of th...
OmniOutliner Pro is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
VLC Media Player 2.2.1 - Popular multime...
VLC Media Player is a highly portable multimedia player for various audio and video formats (MPEG-1, MPEG-2, MPEG-4, DivX, MP3, OGG, ...) as well as DVDs, VCDs, and various streaming protocols. It... Read more
Nisus Writer Pro 2.1.1 - 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
Tinderbox 6.2.0 - Store and organize you...
Tinderbox is a personal content management assistant. It stores your notes, ideas, and plans. It can help you organize and understand them. And Tinderbox helps you share ideas through Web journals... Read more

Lifeline... (Games)
Lifeline... 1.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.1 (iTunes) Description: Lifeline is a playable, branching story of survival against all odds. Using your iPhone, iPad, or Apple Watch, you will help... | Read more »
Pandemic: The Board Game Has Gone Univer...
Don't let the virus win! Now you can download Pandemic: The Board Game, by F2Z Digital Media, for all of your iOS devices. The app is based on the fantastic board game by Z-man games. As employees of the CDC, you and your friends will have to work... | Read more »
Get Ready to Read Bloomberg Business on...
Fans of Bloomberg Business will soon be able to get all their news on the Apple Watch. The app lets you get the top headlines on your main screen and bookmark stories to read later. Using the motion detection in the Apple Watch, the headlines are... | Read more »
Watch This Homerun is Batting for the Ap...
Eyes Wide Games' Watch This Homerun is purportedly the first sports game coming to the Apple Watch, where you'll be up to bat as the pitcher tries to out-manuever you with fastballs, curveballs, and changeups. Using one-touch controls you can try to... | Read more »
Field Trip Can Take You on a Guided Tour...
Field Trip, by Google’s Niantic Labs, is an exploration app that gives you details about the awesome places you can discover wherever you find yourself. The app can show you local history, delicious restraunts, the best places to shop, and places to... | Read more »
Watch Your Six - SPY_WATCH is Infiltrati...
SPY_WATCH, by Bossa Studios, is a new game designed for the Apple Watch. Runmor has it your spy agency has fallen out of favor. To save it, you'll need to train-up a spy and send them on missions to earn you a stunningly suspicious reputation and... | Read more »
Both Halo: Spartan Assault and Halo: Spa...
Halo: Spartan Assault and Halo: Spartan Strike, by Microsoft, have officially landed on the App Store. Spartan Assault pits you against the Covenant with missions geared to tell the story of the origin of Spartan Ops. In Spartan Strike you'll delve... | Read more »
The Apple Watch Could Revolutionize the...
It’s not here yet but there’s that developing sneaky feeling that the Apple Watch, despite its price tag and low battery life, might yet change quite a lot about how we conduct our lives. While I don’t think it’s going to be an overnight... | Read more »
Mad Skills Motocross 2 Version 2.0 is He...
Mad Skills Motocross 2 fans got some good news this week as Turborilla has given the game its biggest update yet. Now you'll have access to Versus mode where you can compete against your friends in timed challenges. Turborilla has implemented a... | Read more »
Kids Can Practice Healthy Living With Gr...
Bobaka is releasing a new interactive book called Green Riding Hood  in May. The app teaches kids about yoga and organic style of life through mini-games and a fun take on the classic Little Red Riding Hood fairy tale. | Read more »

Price Scanner via MacPrices.net

Sale! 15-inch Retina MacBook Pros for up to $...
 MacMall has 15″ Retina MacBook Pros on sale for up to $255 off MSRP. Shipping is free: - 15″ 2.2GHz Retina MacBook Pro: $1794.99 save $205 - 15″ 2.5GHz Retina MacBook Pro: $2244.99 save $255 Adorama... Read more
New 2015 MacBook Airs on sale for up to $75 o...
Save up to $75 on the purchase of a new 2015 13″ or 11″ 1.6GHz MacBook Air at the following resellers. Shipping is free with each model: 11" 128GB MSRP $899 11" 256GB... Read more
Clearance 13-inch Retina MacBook Pros availab...
B&H Photo has leftover 2014 13″ Retina MacBook Pros on sale for up to $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.6GHz/128GB Retina MacBook Pro: $1129... Read more
Clearance 2014 MacBook Airs available startin...
B&H Photo has clearance 2014 MacBook Airs available for up to $200 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 128GB MacBook Air: $729 $170 off original MSRP... Read more
16GB iPad mini 3 on sale for $349, save $50
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $349 including free shipping plus NY sales tax only. Their price is $50 off MSRP, and it’s the lowest price available for this model. Read more
Mac minis on sale for up to $75 off, starting...
MacMall has Mac minis on sale for up to $75 off MSRP including free shipping. Their prices are the lowest available for these models from any reseller: - 1.4GHz Mac mini: $459.99 $40 off - 2.6GHz Mac... Read more
Taichi Temple First Tai Chi Motion Sensor App...
Zhen Wu LLC has announced the official launch of Taichi Temple 1.0, the first motion sensor app for Tai Chi, offering a revolutionary new way to de-compress, relax and exercise all at the same time.... Read more
CleanExit – Erase your Hard Drive Quickly, Se...
CleanExit works on both Macs and PCs, securely and permanently deleting all files from any type of hard drive, flash-based drive or camera media card making the files permanently unrecoverable.... Read more
250 iPhone 6 Tips eBook Released for $1.99
Bournemouth, UK based iOS Guides has released 250 iPhone 6 Tips, a new eBook available in the iBookstore that reveals a wealth of tips and tutorials for iPhone 6 and iPhone 6 Plus. Priced at $1.99,... Read more
TigerText Introduces First Secure Enterprise...
TigerText, a provider of secure, real-time messaging for the enterprise, has announced the launch of TigerText for the Apple Watch. TigerText for the Apple Watch enables users to securely send and... Read more

Jobs Board

*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
*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
DevOps Software Engineer - *Apple* Pay, iOS...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
*Apple* Pay - Site Reliability Engineer - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
Sr. Technical Services Consultant, *Apple*...
**Job Summary** Apple Professional Services (APS) has an opening for a senior technical position that contributes to Apple 's efforts for strategic and transactional Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.