TweetFollow Us on Twitter

LS FORTRAN 2.0
Volume Number:6
Issue Number:3
Column Tag:Jörg's Folder

Language Systems FORTRAN 2.0

By Jörg Langowski, MacTutor Editorial Board

“Language Systems FORTRAN 2.0”

A new version of the Languages Systems FORTRAN for MPW has just arrived here. Version 2.0 has been improved a lot compared to the previous version - not that version 1.2.1 wasn’t already a very good product. I’d like to give a short overview and some code examples in this month’s column, so that you can appreciate the ease with which Fortran application can now be created on the Mac, or ported from a mainframe to the Mac.

But first of all, a figure that might be very important for many of you Fortran users: the new compiler runs the Whetstone benchmark at 1072 K whetstones/sec (Language Systems FORTRAN 2.0, opt=3, MacIIx) instead of the 425 K whetstones/sec that the version 1 compiler produced. The optimizer now actually works, and depending on the type of the code there can be very significant speed differences from one optimization level to the other. The matrix multiplication benchmark that I described in the V5#8 column, now runs in 2.66 seconds (opt=3, MacIIx) instead of 6.52 seconds (145% faster), if you don’t take the constant index expression out of the loop; or in 2.55 instead of 4.65 seconds (82% faster), if the common subexpression elimination is done by hand on the source code. Thus - at least for these cases - LS Fortran produces code that is now even faster that MPW Pascal’s code, and significantly faster than the same Fortran code on a MicroVAX II.

Built-in Mac interface to FTN programs

The Macintosh interface to Fortran programs has been extensively improved and simplified. It has always been possible to create a typical Macintosh application around a central event loop with mouse down, update and activate handlers etc. entirely in Fortran, and there is a Multifinder-compatible sample Fortran application on the Examples disk. But this is not what the typical Fortran user would have in mind when porting a functioning application from a mainframe to the Mac. Rather, one would like to conserve most of the existing Fortran code and add to it the ease of use of the Macintosh, without having to write a whole new user interface around it.

With the new LS Fortran, such an operation is extremely easy, as long as your program is well-written, i.e., sufficiently modular. There are enough examples of GOTO-clobbered spaghetti code with 25-page long subroutines that I wouldn’t wish my worst enemy having to adapt to a new machine, but as long as you can cut up your code into distinct routines that each fulfil a defined task and then return to a main program, porting the program to the Macintosh becomes child’s play.

To achieve this, Language Systems have expanded on a feature of their system: namely, that a LS Fortran program does not immediately exit to the Finder after the END statement, but returns into a run time system that lets you edit, save or print the output window. The new compiler version allows the user to add new menus and menu items to the menu bar that is drawn after exit from the main program. Each of the menu items can be assigned a pointer to a subroutine that will be executed when the menu is selected. Control returns to the Fortran run time system when the subroutine finishes; there, a new menu selection may be made, either from the default Fortran File, Edit, and Fonts menus, or from any added user menus.

Furthermore, a routine has been added that gives the Fortran program access to the menu items in the Fortran run time menu bar. For instance, to quit to the Finder immediately at the end of a program - instead of keeping the editable output window and the menus available - all you need to do is

CALL DoMenu(‘File’,’Quit’)

at the end of your main program.

The example - a simple graphics display program

Using the new menu features, the Fortran program will be structured in such a way that the main program only does data, window, etc. initialization and sets up the user menus, while the actual work is done by subroutines that are invoked through menu selections. Listing 1 gives an example of such a program, a simple facility to read a file with consecutive lines of x/y coordinate pairs and to plot the corresponding graph in various ways in a graphics window.

Furthermore, one of the subroutines (Listing 2) is written in Pascal and illustrates the possibility of passing parameters either through the procedure’s parameter list or through accessing Fortran’s COMMON data directly.

You’ll notice that two new Fortran compiler directives appear at the beginning of the program. The compiler directive !!G Toolbox.finc is used to load a precompiled ‘global include’ file that contains toolbox variable, structure and parameter definitions. This speeds up recompiling a program considerably if you use lots of toolbox definitions. Global include files can be created to the needs of each individual program, including only those definitions used in the code; or one can simply create one file that contains all the definitions. In the latter case, compiling takes only slightly longer.

Just as the directive !!M Inlines.f was used in version 1.2.1 to make the trap definitions known to the compiler, we can now use !!MP Inlines.f to simplify the calling mechanism. In the latter case, all trap routines are automatically declared as PEXTERNAL, which means that parameter will be passed by value rather than by reference (the Fortran default). This allows you to write

 call SetRect  (%ref(myRect),
 1 int2(20),int2(40),int2(500),int2(235))

rather than

C 1

 call SetRect  (myRect,
 1 %val(int2(20)),%val(int2(40)),
 2 %val(int2(500)),%val(int2(235)))

as you would have to do when call-by-reference is the default. Since toolbox calls receive a great number of their parameters by value, this saves a lot of writing and makes the program much more readable. Of course, the old directive !!M Inlines.f is still available. You may now also declare any other subroutine PEXTERNAL, and further CALLs to that routine will use Pascal calling conventions.

Fortran subroutines may also be declared to receive some of their arguments by value; you write, in the subroutine definition,

C 2

SUBROUTINE XX(A,B,%VAL(I)),

and the routine will expect the value of I on the stack, not its address. This can be important for writing certain filter procedures that are called by toolbox routines.

The Main Program

The main program will first move the Fortran output window to the bottom of the (Mac+) screen, then set up the user menu with its items and their corresponding subroutines. Routines which are not defined in the same source file must of course be declared EXTERNAL (or PEXTERNAL or CEXTERNAL). OutWindowClear, which erases the Fortran output window, is such a case.

After the calls to AddMenuItem, we type a blank line (type *) to have at least one reference to the window output routines in the main program, and thus create the output window. Thereafter, a graphics output window is created.

We must call DoMenu at least once before the main program exits if we want to modify some of the user menu items, for instance set a check mark. Since the menu bar is not created before the main program exits or DoMenu is called, any calls to CheckItem, SetItem, etc. won’t have an effect before.

One line - commented out in the example - calls a routine that was undocumented in the version of the manual that I received (thanks, Claudia Vaughan from Language Systems, for the information!): SetIdleProc receives a pointer to a routine that will be called regularly from the Fortran run time system’s main event loop. Here, that routine would just beep once (that’s why I commented it out in the final version). SetIdleProc could be used to do background calculations or refresh graphics windows, since the present system does not allow to associate update routines with windows, unless the complete event loop is rewritten in Fortran.

File access through the SF dialog

The routine that reads in the data, readData, shows a non-standard extension that LS has made to the Fortran OPEN statement:

C 3

open(unit, file=*, status=’OLD’)

will display the standard file dialog for opening a file and assign the selected file to the Fortran unit number;

C 4

open(unit, file=*, status=’NEW’)

of course, will display the ‘Save File’ dialog and have the user input the file name. The actual file name, if needed, can be obtained through the Fortran INQUIRE statement. By default, files are of type ‘TEXT’, creator ‘MPS ‘; this can be changed through the keywords CREATOR and FILETYPE in the Open statement. The latter keyword also changes the files displayed in the ‘Open File’ dialog.

Many other keywords have been added to the Open statement, some of which have no effect at all, but ensure compatibility with other Fortran dialects (e.g. VAX) that use them.

Cross-language calling and COMMON access

Most of the remaining routines which display the data, play around with the output windows, and change some parameters, require no comment; However, I added one subroutine which calls a Pascal procedure, which in turn accesses the Fortran COMMON.

Calling a Pascal procedure from Fortran is easy; you simply declare the routine PEXTERNAL and pass the parameters in the same order as in the Pascal declaration. The default parameter passing is by value, references to variables can be passed by writing %ref(param). The Pascal procedure (Listing 2) receives a window pointer and a string, and displays the string in the window.

The window pointer - in our particular example - is also accessible through a named COMMON block, /windows/. The old LS Fortran allocated common memory dynamically, i.e., when a common block was first used, a heap object of the size of the common was created. This method still exists in Fortran 2.0; if you compile a program with the -dyn option, common blocks are created dynamically on the heap. However, with MPW 3.0 it is possible to use the linker for keeping static common blocks in the global data area. Fortran 2.0 programs compiled under MPW 3.0 will automatically static commons, unless you use the -dyn option.

The -f option in the MPW Link command causes the linker to treat duplicate definitions of a global data block as references to the same data block; thus, common blocks from different modules that have the same name will be automatically mapped onto each other.

All we need to do to access a static Fortran common from Pascal is to create a global variable with ‘the same name’ as the common block (thanks, Claudia Vaughan, again). ‘The same name’ has a particular meaning: Fortran names are uppercased for the linker, and COMMON names are enclosed between underscores; thus, the /windows/ common block is called _WINDOWS_ in the link map. The Pascal routine must define a global variable named _WINDOWS_, and the compiler must be told by the {$J+} directive that global variables may be defined externally. We define _WINDOWS_ as a global Pascal record having the same fields as the common block in the Fortran program, so that all common variables can be accessed conveniently through the fields of the record.

The Fortran version that I used still had some problems with dynamic commons, so that I couldn’t try out the old strategy to access COMMONs from Pascal using the run time library routine COMMONADDRESS; dynamic Fortran handling will work in the released version, as LS assured me.

More extensions

Language Systems have gone to great lengths to make sure compatibility of their Fortran with most mainframe implementations, notably VAX Fortran. Apart from the extensions I already mentioned, you can now omit arguments from subroutine calls (an integer*4 zero is pushed on the stack for each omitted argument), you can initialize data in the type declaration (real*4 x/4.0/ is a legal construct), BYTE may be used instead of INTEGER*1, and all the VAX keywords in I/O statements are recognized as syntactically legal. NAMELIST and ENCODE/DECODE also have the same syntax as on the VAX. Even the IOSTAT error codes have been changed to be equal to the corresponding VAX error numbers, where applicable.

What this means in practice is that you can take almost any code that runs on a VAX, feed it unchanged to the Language Systems compiler, and it will not just swallow it without complaints, but in most cases produce an application that produces the same result as the VAX program. In fact, the efforts for VAX compatibility have been extended to the point where Language Systems is encouraging third-party developers to create libraries that emulate VAX system calls, which would make the compatibility even closer.

I’d like to conclude with some remarks on the excellent manual; its format has been changed, starting with general remarks on how to get a Fortran program to run under MPW, and putting the formal language definitions to the end of the text. The MPW introduction has obviously been written by someone who exactly understands the difficulties that the average mainframe Fortran person would have dealing with such a bizarre object as the Macintosh and MPW running on it. I quote: “Using the Directory command. Type the line DIRECTORY. Then press the enter key (not the return key).” Just one example (there are many more) for the attention that the manual writer has given to the details.

In summary, the Fortran that combines ease of porting from mainframes with easy user interface creation, full Toolbox access and speed seems to have finally arrived. Expect to hear more of it later. We’ll continue next month with C++, and even some Forth again (!). Till then.

Listing 1: 
 program Plot
c(c) J. Langowski/MacTutor Jan. 1990
cexample that uses some of the new features of
cLanguage Systems Fortran 2.0 for MPW
csome of the lines might have been split by editing

!!G Toolbox.finc
!!MP Inlines.f

 real*4 x(500),y(500)
 integer*4 ndata,plotType,nil
 parameter (nil=0)
 record /WindowPtr/ wPtr  
 common /windows/ wPtr
 common /theData/ x,y,ndata,plotType
 
 record /Rect/ myRect
 string title
 external OutWindowClear,MyIdleProc
 
 call MoveOutWindow (20,260,500,342)
 
 call addmenuitem (‘Graph’,’Read ’,readData)
 call addmenuitem (‘Graph’,’Display Graph’,plotGraph)
 call addmenuitem (‘Graph’,’Erase Graph’,clearGraph)
 call addmenuitem (‘Graph’,’Hide Graph’,hideGraph)
 call addmenuitem (‘Graph’,’Erase Text’, OutWindowClear)
 call addmenuitem (‘Graph’,’(-’,dummy)
 call addmenuitem (‘Graph’,’By item #’,byItem)
 call addmenuitem (‘Graph’,’By x value’,byXval)
 call addmenuitem (‘Graph’,’(-’,dummy)
 call addmenuitem (‘Graph’,’Draw a string’, DrawAString)
 call addmenuitem (‘Graph’,’Sort data’,sortData)
 
 type * ! shows text output window
 
 title = ‘Graphics Window’
 call SetRect (%ref(myRect),int2(20),int2(40), int2(500),int2(235))

 wPtr.wp = NewWindow (nil,myRect,title,int2(.true.),
 1 noGrowDocProc,nil,int2(.false.),int4(0))
 
 call DoMenu (‘Graph’,’By item #’)
cinitializes plot flag & sets check mark
 
ccall SetIdleProc(MyIdleProc)
 
 end
 
 subroutine MyIdleProc
 call sysbeep(1)
 return
 end
 
 subroutine dummy
 return
 end  
 
 subroutine readData
 real*4 x(500),y(500)
 integer*4 ndata,plotType,iores
 common /theData/ x,y,ndata,plotType
 
 open (10,file=*,status=’OLD’,iostat=iores)
 
 if (iores.eq.0) then
 ndata = 0
 do while (iores.eq.0)
 ndata = ndata + 1
 read (10,*,iostat=iores) x(ndata),y(ndata)
 end do
 
 if (iores .lt. 0) then
 type *,ndata,’ points read.’
 else
 type *,’Read error - nothing read.’
 end if
 close (unit=10)
 
 end if
 return
 end
 
 subroutine plotGraph
 record /WindowPtr/ wPtr  
 common /windows/ wPtr
 
 real*4 x(500),y(500)
 real*4 maxx,minx,maxy,miny,deltax,deltay
 integer*2 xplot,yplot,winh,winw
 integer*4 ndata,plotType
 common /theData/ x,y,ndata,plotType
 
 call ShowWindow(wPtr)
 call SelectWindow(wPtr)
 maxx = x(1)
 minx=maxx
 maxy=y(1)
 miny=maxy
 
 do i=2,ndata
 maxx = max(x(i),maxx)
 minx = min(x(i),minx)
 maxy = max(y(i),maxy)
 miny = min(y(i),miny)
 end do
 
ctype *,minx,maxx,miny,maxy
 
 deltax = maxx-minx
 deltay = maxy-miny
 winh = wPtr.wp^.portRect.bottom - wPtr.wp^.portRect.top - 4
 winw = wPtr.wp^.portRect.right  - wPtr.wp^.portRect.left - 4
 
ctype *,deltax,deltay,winh,winw
 
 call SetPort(wPtr)
 call PenNormal
 call MoveTo(int2(0),int2(0))
 
 do i=1,ndata
 yplot = winh*(1.-(y(i)-miny)/deltay) + 2
 select case (plotType)
 case (0)
 xplot = winw*(i/(ndata*1.)) + 2
 case (1)
 xplot = winw*(x(i)-minx)/deltax + 2
 case default
 end select
 call lineto(xplot,yplot)
 end do
 return
 end
 
 subroutine clearGraph
 record /WindowPtr/ wPtr  
 common /windows/ wPtr
 
 call SetPort(wPtr)
 call EraseRect(wPtr.wp^.portRect)
 return
 end
 
 subroutine hideGraph
 record /WindowPtr/ wPtr  
 common /windows/ wPtr
 
 call HideWindow(wPtr)
 return
 end
 
 subroutine byItem
 real*4 x(500),y(500)
 integer*4 ndata,plotType
 common /theData/ x,y,ndata,plotType
 record /MenuHandle/ GraphMenu

 integer*2 menuGraph,itemNum,xVal
 parameter(menuGraph=5,itemNum=7,xVal=8)
 
 plotType = 0
 GraphMenu.MenuH = GetMHandle(menuGraph)
 call CheckItem(GraphMenu.MenuH, itemNum,int2(.true.))
 call CheckItem(GraphMenu.MenuH,xVal,int2(.false.))
 return
 end  
 
 subroutine byXval
 real*4 x(500),y(500)
 integer*4 ndata,plotType
 common /theData/ x,y,ndata,plotType
 record /MenuHandle/ GraphMenu

 integer*2 menuGraph,itemNum,xVal
 parameter(menuGraph=5,itemNum=7,xVal=8)
 
 plotType = 1
 GraphMenu.MenuH = GetMHandle(menuGraph)
 call CheckItem(GraphMenu.MenuH, itemNum,int2(.false.))
 call CheckItem(GraphMenu.MenuH,xVal,int2(.true.))
 return
 end
 
 subroutine drawAString
 string st
 record /WindowPtr/ wPtr  
 common /windows/ wPtr
 pexternal DrawMyString
 
 st = ‘This String comes from Fortran.’
 call DrawMyString(wPtr,st)
 return
 end
 
 subroutine sortData
 
 call AlertBox (‘Not implemented yet.’)
 return
 end
Listing 2
{$J+}
 { This directive tells linker to externalize global variable references 
so that the static common /WINDOWS/ is made known to the Pascal routine. 
Its name in the linker symbol table is _WINDOWS_; thus our variable must 
have that name. }
unit PasSub;
interface
uses MemTypes, QuickDraw, OSIntf, ToolIntf, Traps;
procedure DrawMyString (wp:WindowPtr; st:Str255);
implementation
 
type  commonWind =  record
 wp:WindowPtr
 end;

var_WINDOWS_ : commonWind;

procedure DrawMyString (wp:WindowPtr; st:Str255);
varmyStr : Str255;
begin
 SetPort(wp);
 PenNormal; MoveTo(50,50);
 TextFont(Monaco); TextSize(12);
 DrawString(st);
 
 SetPort(_WINDOWS_.wp);
 PenNormal; MoveTo(50,100);
 TextFont(Geneva); TextSize(12);
 DrawString(‘The COMMON can also be 
 accessed through Pascal.’);
end;
end.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Live Home 3D Pro 3.6.2 - $49.99
Live Home 3D Pro is powerful yet intuitive home design software that lets you build the house of your dreams right on your Mac, iPhone or iPad. It has every feature of Live Home 3D, plus some... Read more
RapidWeaver 8.2 - Create template-based...
RapidWeaver is a next-generation Web design application to help you easily create professional-looking Web sites in minutes. No knowledge of complex code is required, RapidWeaver will take care of... Read more
Opera 60.0.3255.109 - High-performance W...
Opera is a fast and secure browser trusted by millions of users. With the intuitive interface, Speed Dial and visual bookmarks for organizing favorite sites, news feature with fresh, relevant content... Read more
DEVONthink Pro 3.0beta2 - Knowledge base...
DEVONthink Pro is your essential assistant for today's world, where almost everything is digital. From shopping receipts to important research papers, your life often fills your hard drive in the... Read more
Tunnelblick 3.7.9 - GUI for OpenVPN.
Tunnelblick is a free, open source graphic user interface for OpenVPN on OS X. It provides easy control of OpenVPN client and/or server connections. It comes as a ready-to-use application with all... Read more
Carbon Copy Cloner 5.1.9 - Easy-to-use b...
Carbon Copy Cloner backups are better than ordinary backups. Suppose the unthinkable happens while you're under deadline to finish a project: your Mac is unresponsive and all you hear is an ominous,... Read more
Dropbox 73.4.118 - Cloud backup and sync...
Dropbox is an application that creates a special Finder folder that automatically syncs online and between your computers. It allows you to both backup files and keeps them up-to-date between systems... Read more
Postbox 6.1.18 - Powerful and flexible e...
Postbox is a new email application that helps you organize your work life and get stuff done. It has all the elegance and simplicity of Apple Mail, but with more power and flexibility to manage even... Read more
Wireshark 3.0.2 - Network protocol analy...
Wireshark is one of the world's foremost network protocol analyzers, and is the standard in many parts of the industry. It is the continuation of a project that started in 1998. Hundreds of... Read more
BetterTouchTool 2.856 - Customize multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more

AFK Arena guide - Everything you need to...
Ok, so if you're like me, you've been playing (and sometimes waiting) your way through AFK Arena, only to learn there's a lot more to it than there appears on the surface. There's guilds, a PvP arena, and all sorts of other systems and game modes... | Read more »
Explore an epic fantasy world in MMORPG...
Webzen have just announced the official launch date for its stunning MMORPG ‘MU Origin 2’ which will arrive for iOS and Android on May 28th. It will be the second spinoff from the classic PC-based MU Online, and it looks to further refine the... | Read more »
Solar Explorer: New Dawn guide - Tips an...
Solar Explorer: New Dawn is a lunar lander game that really ratchets the intensity up to 11. With all of the asteroids flying around as you fly around at seemingly breakneck speeds, it can be easy to feel overwhelmed bythe whole thing. | Read more »
The Dalaran Heist - How Hearthstone...
I am someone who wrote Hearthstone off a while ago. It was hard not to try and stick with it. The game has incredible production values and a core of really great talent working on the game continuously to keep it feeling fresh and fun (full... | Read more »
Steam Link App - Everything You Need to...
Steam Link has finally released for iOS! That’s right, you can play your epic backlog of PC games on the go now. Well… sort of. While the Steam Link app was announced seemingly ages ago, it only got actual approval for release last night. Check out... | Read more »
Pre-register now for endless superhero r...
Talking Tom Hero Dash is set to take the ever-popular Talking Tom and Friends franchise in a brand new direction as it opens pre-registration to players worldwide. Not only does it promise to be a beautifully rendered, fast-paced, action-packed... | Read more »
AFK Arena - Guild Wars guide
Ok, so if you're like me, you've been playing (and sometimes waiting) your way through AFK Arena, only to learn there's a lot more to it than there appears on the surface. There's guilds, a PvP arena, and all sorts of other systems and game modes... | Read more »
Superhero-themed Talking Tom Hero Dash i...
One of the exciting releases that we’re looking forward to is Talking Tom Hero Dash, an upcoming superhero-themed runner created by Outfit7. This new game is an action-packed endless runner that takes you on an epic adventure to assemble the... | Read more »
Kingdom Rush Vengeance Update Guide 2 -...
Kingdom Rush: Vengeance just got updated once again to add more content to the game. This addition, called The Frozen Nightmare, adds three new levels, five new enemies, two new heroes, and some new achievements. | Read more »
Save the world with SCIENCE in the upcom...
Previous versions of space colonization game TerraGenesis encouraged you to explore the galaxy and settle its planets. The eagerly-awaited 5.0 update will try to smash them to bits. Yep, with a new "world killers" setting, you can unleash... | Read more »

Price Scanner via MacPrices.net

12″ 1.2GHz MacBooks on sale for $999, $300 of...
Amazon has current-generation 12″ 1.2GHz Retina MacBooks on sale for $300 off Apple’s MSRP. Shipping is free: 12″ 1.2GHz Space Gray MacBook: $999.99 $300 off MSRP 12″ 1.2GHz Silver MacBook: $999.99 $... Read more
Here’s how to save $200 on Apple’s new 8-Core...
Apple has released details of their Education discount associated with the new 2019 15″ 6-Core and 8-Core MacBook Pros. Take $200 off the price of the new 8-Core model (now $2599) and $150 off the 15... Read more
Price drops! 2018 15″ 2.2GHz 6-Core MacBook P...
Amazon has dropped prices on clearance 2018 15″ 2.2GHz 6-Core Touch Bar MacBook Pros by $300 with models now available for $2099. These are the same models sold by Apple in their retail and online... Read more
Apple drops prices on 2018 13″ 2.3GHz Quad-Co...
Apple has dropped prices on Certified Refurbished 2018 13″ 2.3GHz 4-Core Touch Bar MacBook Pros with prices now starting at $1489. Apple’s one-year warranty is included, shipping is free, and each... Read more
Apple drops prices on 2018 Certified Refurbis...
Apple has dropped prices on clearance 2018 15″ 6-Core Touch Bar MacBook Pro, Certified Refurbished, with models available starting at only $1999. Each model features a new outer case, shipping is... Read more
Price drops! Clearance 2018 13″ Quad Core Mac...
Amazon has dropped prices on 2018 13″ Apple Quad-Core MacBook Pros with models now available for $250 off original MSRP. Shipping is free. Select Amazon as the seller, rather than a third-party, to... Read more
How Much Is ‘Solace’ Of Mind Worth When Buyin...
COMMENTARY: 05.22.19- Smartphone cases give us peace of mind by providing ample protection for such a fragile gadget and the sky’s the limit as far as choices go with a plethora of brands, styles,... Read more
Get a 13″ Touch Bar MacBook Pro for the lowes...
Apple has Certified Refurbished 2017 13″ 3.1GHz Dual-Core i5 Touch Bar MacBook Pros available starting at $1439, ranging up to $390 off original MSRP. Each MacBook features a new outer case, shipping... Read more
Apple adds new 15″ 8-Core MacBook Pro to line...
Apple has added a new 15″ MacBook Pro to its lineup featuring a 9th generation 2.3GHz 8-Core Intel i9 processor, 16GB of RAM, a 512GB SSD, and a Radeon Pro 560X with 4GB of GDDR5 memory for $2799.... Read more
21″ 2.3GHz iMac available for $999 at B&H...
B&H Photo has the 2018 21″ 2.3GHz Apple iMac on sale for $100 off MSRP. This is the same model offering by Apple in their retail and online stores. Shipping is free: – 21″ 2.3GHz iMac (MMQA2LL/A... Read more

Jobs Board

Best Buy *Apple* Computing Master - Best Bu...
**690427BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Sales **Location Number:** 000860-Charlottesville-Store **Job Description:** **What Read more
*Apple* Mobile Master - Best Buy (United Sta...
**696430BR** **Job Title:** Apple Mobile Master **Job Category:** Store Associates **Location Number:** 001012-Bismarck-Store **Job Description:** **What does a Best Read more
Manager - *Apple* Team - SHI International...
…opportunity available in the Hardware & Advanced Solutions Department as the Manager of the Apple Team The Manager must be familiar with all aspects of Apple Read more
Best Buy *Apple* Computing Master - Best Bu...
**696375BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Sales **Location Number:** 000203-North Austin-Store **Job Description:** **What does a Read more
Geek Squad *Apple* Master Consultation Agen...
**696286BR** **Job Title:** Geek Squad Apple Master Consultation Agent **Job Category:** Services/Installation/Repair **Location Number:** 000172-Rivergate-Store Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.