TweetFollow Us on Twitter

MacFORTRAN 3.2
Volume Number:9
Issue Number:7
Column Tag:Jörg's Folder

Absoft MacFORTRAN 3.2

An interface to match the quality of its code optimizer

By Jörg Langowski, MacTech Magazine Regular Contributing Author

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

Those of you who have followed this column may have noticed that there are two major Fortran compilers for the Macintosh available: Absoft and Language Systems Fortran. And, for a long time, the main difference between the two products was that Absoft offered better performance - for typical programs, the code executed of the order of 25-40% faster than Language Systems, depending on the program and on the machine. Language Systems, on the other hand, had by far the superior Macintosh user interface, with easy assignment of subroutines to menu items, with Apple Events support and Publish/Subscribe possibilities. Absoft’s Macintosh support was only very rudimentary compared to that.

Well, some weeks ago I received an evaluation copy of MacFortran 3.2 by Absoft, and I must say that the situation has completely changed. Here is a version of MacFortran that finally comes with a Macintosh interface that matches the undeniable quality of Absoft’s code optimizer It is like someone at Absoft has read my columns (really! I’m flattered!) and incorporated each and every suggestion how to improve their Macintosh support, and then some. Of course, the general quality of the compiler and the performance of the code generated has not changed. So in this column I’d like to present you the main features of Absoft’s MRWE (MacFortran Runtime Window Environment), and show you an example program that uses them.

The MacFortran runtime window environment

Absoft’s MRWE is a library of Fortran routines that is usually linked into an application, unless you decide to build an MPW tool or create your own application framework around an event loop. At first glance, the new MRWE offers about the same possibilities as Language System’s runtime environment: one can associate a subroutine pointer to a menu item, and when the item is selected, the subroutine is executed; one can use the standard file dialog for opening a file, by specifying an empty filename string in the OPEN statement; the output window is a scrollable Text Edit window, fonts and font sizes can be changed and the text saved to a file. An application generated using MRWE will be Apple Event aware; you can easily add handlers for your own Apple Events, and send those events out. You can also open a file and publish it to other applications that support the subscribe/publish mechanism of System 7.

But Absoft has gone farther, and added features that the LS Fortran runtime package does not support (not yet - but we can be sure that they won’t be sleeping either. I am curious about their next upgrade ). One very important new addition is the possibility to assign an input/output window to any Fortran file unit - thus you can have multiple I/O windows, all scrollable and with custom font settings, and with the text saved to a file. The way to do this is simply to use OPEN (unit, ACCESS=’window’, ), and the window title will be the filename given in the OPEN statement. Up to 32 windows can be opened simultaneously this way, which gives you ample opportunity to confuse the user.

The OPEN statement is also used for implementing the publish/subscribe support. For creating a new edition of a file (which other programs can then subscribe to), you open the file by OPEN (unit, ACTION=’publish’, ); on the other hand, by using OPEN (unit, ACTION= ’subscribe’, ) you may read an edition generated by another program. In both cases, the files will be sequential and typically text files.

Finally, in the OPEN statement one can also define the filetype and creator of the newly opened file (which was already possible in LS Fortran).

A big new issue in Absoft MacFortran is the Apple Event support. This was not included at all in previous versions of MacFortran, and has been implemented now by adding a couple of powerful routines. Other than LS Fortran, where the only event class supported is ‘aevt’, here you may now define the class and the type of the event, and in addition supply two parameters which tell the Apple event sending routine whether there is any additional data to be sent and of what kind, and the data itself. In practice, you set up a call like this:

c          1

iresult=mrwe_SendAE(target,class,eventID,extraKind,extraInfo)   

where target is a character expression specifying the application receiving the event, which may be specified by its name, its creator ID or selected by the PPC browser; it can be the calling program itself, or one can just have the event sent to the target that the last event was sent to. extraKind may be 0, 1, or 2; 0 means there is no extra data, 1 means extraInfo specifies a document name (e.g., to be opened), and 2 specifies an arbitrary character string in extraInfo. This Apple Event sending routine gives you therefore the possibility to exchange data (e.g., between Fortran programs using any arbitrary event class and type), without all the contortions that I had to go through when I wrote the first example routines for arbitrary Apple Event support in LS Fortran (see V8#2, June 1992). Again, I wouldn’t bet my life on it, but I’m pretty sure that Language Systems won’t hesitate to follow up with an extension to their Fortran that implements Apple Events support in a more general way.

Handlers for Apple Events that your application wants to receive are installed through a routine mrwe_AddAppleEvent(class,eventID,extraKind,extraInfo), where the parameters have the same meaning as in the Send routine. Finally, together with the Apple Event support you also get a routine that allows you to launch another program, or put your own application in the foreground when it needs attention. Very useful.

Distributed processing shell

When I browsed through the examples that come with MacFortran, I came across a folder called ‘DPShell’; I looked at some files inside, and voila! there was a complete set of shell applications that implemented exactly the type of Apple Event based ‘distributed processing’ mechanism proposed in my V8#2 column! Seems like someone at Absoft is really reading us, thank you. In essence, you have here a small application that can turn in the background on different Macs on a network and accept small tasks when the machine is not used too much, and send the result back to a parent application that turns on another machine. The whole housekeeping task, that is to keep track of which requests were sent out to which machine, and which results have come back in, is implemented in the DPShell; it is up to you to fill this shell with some useful code. Lacking the time, I have not exploited this tool, but it makes a very valuable addition to the examples and will prove useful for anyone who wants to implement parallel processing on a Macintosh network.

Menu support

Adding new menus and items to existing ones is implemented similarly to the way LS Fortran does it; you write for example

c          2

iresult=mrwe_AddMenu(‘Display’,’List Data/L’,list_data)

which will add to the menu ‘Display’ the item ‘List Data’ with the keyboard equivalent -L, and call the routine list_data when the item is selected. In addition, you may remove any item from a menu, and by removing all the items, the whole menu is deleted. You are not restricted to your custom menus, but may also manipulate the standard File and Edit menus this way. When a menu response routine is called, a parameter is passed that contains the menu and item IDs; this way you can use the same response routine for different menu items and distinguish inside the routine from where it was called.

Full source for MRWE

I can’t give you a description of all the routines included in MRWE here. The points discussed up to here show you the main new features and important differences with the main competitor, LS Fortran. One last thing has to be said, however: you get the full source code for all the routines in the MRWE. That way, you can see exactly how they work (they are very well documented and easy to read), modify them if you need it, and swat that last bug that every good piece of software has although I still have to find it.

Documentation

Absoft’s documentation has evolved quite a bit over the last version changes, and to my opinion it is now every bit as good as Language System’s. Differences between the two manuals are in style rather than in quality, both of them are easy to use and you find what you’re looking for (although I found no entry for Publish/Subscribe, or the Edition manager, in the Absoft index). As said, the documentation inside the source code for the Macintosh runtime environment is excellent, and so is the description of the distributed processing shell.

Compatibility libraries

Porting programs from other machines to Absoft Fortran is now very easy. Not only is VAX code now compiled without any compatibility problems (i.e., the compiler now accepts program text with parts in VAX tab-delimited format and other parts in ANSI format), but there are also compatibility libraries that implement a few VAX system calls such as date, ran, time, and a lot of UNIX system functions, e.g., malloc, qsort, rename and others.

There is also a whole set of support libraries for AppMaker, the application prototyper that you’ve read about in earlier issues of this journal. I won’t go into details, because this deserves another column, but you can now create AppMaker application templates for Absoft MacFortran as well.

Debugging

MacFortran’s debugging support is still only possible using SANE. A debugging library like it is included with LS Fortran is unfortunately missing here, and you have to run SANE - or SourceBug - on the side. It would be nice to have some quick and dirty means of tracing variables or displaying the names of routines as they are entered. Anyway, my crashes are usually of the kind where nothing seems suspicious until the machine almost explodes, debugger or not; so I think I’ll have to keep on living with the old method of scattering WRITE statements through my code for debugging.

Summary

With this upgrade, MacFortran has finally treated itself to a comfortable and very powerful Macintosh runtime environment. Compared to LS Fortran it also creates the fastest-running code. So is this a clear winner? In my opinion, I think both systems can have their advantages. For running Fortran code on a Mac with FPU support, I’d prefer Absoft 3.2 with its faster speed and its - at the moment - superior Macintosh interface. For lots of inter-language calling, LS Fortran may be offering a performance advantage because it supports the Macintosh register-saving conventions by default. If you want your program to run on a machine without an FPU (LC, Classic II, Centris 610), you’ll need LS Fortran unless the machine has an INIT installed that emulates the FPU instructions (such an INIT exists).

Example

Before we end this column, let me briefly explain this month’s example. It shows how to use the Absoft Macintosh runtime routines in a Fortran program that reads a file with (x,y) data pairs and creates an edition out of it that can be subscribed to by Excel. Also, you can set some parameters through a dialog and create a theoretical curve that is also published, and Excel can subscribe to it.

Here we go: The main program sets some parameters, adds a custom menu with menu items and corresponding routine references, and drops into the Macintosh runtime environment. The first routine, Read_Data, opens a file using the SF dialog, and then calls a Lister routine that lists the contents of the file to a second output window, and publishes the (x,y) data pairs into an edition file ‘data.ed’. I have not provided any safety for bad number formats in the input file, so make sure this file looks correct. An example, ‘data1’, is included in the source code.

Draw_Curve will read the data pairs from the edition file ‘data.ed’ and use the x values to calculate ‘theoretical’ y-values through a function defined by three parameters a, b, c. The theoretical (x,y) data pairs are then published into a ‘curve.ed’ edition file.

Set_Pars, finally, puts up a modal dialog in which you can enter the three parameter values. They are converted from strings to real numbers using the Fortran ‘internal file’ READ statement. In this routine you find examples how to call toolbox routines from Absoft Fortran, where some parameters have to be passed by value.

The DLOG and DITL resources (ID=2000) are contained in a separate resource file (‘display.rsrc’ on the source code disk), which has to be merged into the compiled and linked application by using the MPW Rez tool or ResEdit.

Also included in the source code are two edition files ‘data.ed’ and ‘curve.ed’, and an Excel worksheet and a graph which subscribe to these edition files. Happy hacking; I hope you find the new Absoft MacFortran environment as useful as I have found it.

Example: Fortran program using ABsoft’s Macintosh Runtime Window Environment

 GLOBAL DEFINE
 INCLUDE 'Events.inc'
 INCLUDE 'Quickdraw.inc'
 INCLUDE 'OSUtils.inc'
 INCLUDE 'Sound.inc'
 INCLUDE 'Resources.inc'
 INCLUDE 'Files.inc'
 INCLUDE 'Windows.inc'
 INCLUDE 'Dialogs.inc'
 INCLUDE 'MRWE.inc'

 EXTERNAL Read_Data
 EXTERNAL Draw_Curve
 EXTERNAL Set_Pars
 EXTERNAL Idle
 EXTERNAL Goodbye
 RECORD /Str255/  mrwe_PasSTR
 EXTERNAL mrwe_PasSTR
      END

 program display
 
creads data (x,y) from file and displays it
csuperimposes theoretical curve whose parameters 
care entered into a dialog box
c
cf(x) = a + b*exp(-c*x)
c
cJ. Langowski/MacTutor May 1993
c
 implicit none
 integer*4 ReadID, DrawID, ParsID
cinteger*4 AEresult

 INTEGER*4 window, unit
 COMMON /flags/ window,unit
 data unit /10/ ! initial unit # of windows to be opened

 ! note which window was in front at startup
 window = FrontWindow()
 
 ! move main window with Toolbox calls
 call MoveWindow(VAL4(window),
 1 VAL2(20),VAL2(50),VAL2(0))
 call SizeWindow(VAL4(window),
 1 VAL2(300),VAL2(200),VAL2(-1))
 
 ! Set up the menus
 ReadID  = mrwe_AddMenu('Display',
 1 'Read Data /R', Read_Data)
 DrawID  = mrwe_AddMenu('Display', 
 1 'Draw curve/D', Draw_Curve)
 ParsID  = mrwe_AddMenu('Display', 
 1 'Set Params/O', Set_Pars)
 
 write (*,*) 'Hello World'
 
 ! Pass control to MRWE "forever" (or until told to quit)
 
 CALL mrwe_EventLoop(0,0) ! should never return
 
 END
 

 integer function Read_Data(itemID)
 IMPLICIT NONE
 CHARACTER filename*256
 INTEGER*4 status, Lister
 OPEN(1, FILE='', FILETYPE='TEXT',ACTION='READ',
 1 IOSTAT=status, STATUS='OLD')
 IF (status == 0) THEN
   INQUIRE (1, NAME=filename)
   Read_Data = Lister(TRIM(filename))
 ELSE
          Read_Data = status
 END IF
 
 return
 end

! List a file with line numbers + open publisher

 INTEGER*4 FUNCTION Lister(filename)
 IMPLICIT NONE
 CHARACTER*(*) filename
 CHARACTER*132 line
 INTEGER*4 status, num
 real x,y
 
 OPEN(2, FILE=TRIM(filename)//' Listing', 
 1 ACCESS='WINDOW,200,300,50,20',
 2 STATUS='UNKNOWN')
 WRITE(2,10) TRIM(filename)
 
 open (3, FILE='data.ed',ACTION='PUBLISH',
 1 STATUS='UNKNOWN')
 
 num = 0
 DO
   READ (1,20,IOSTAT=status) line
          IF (status <> 0) EXIT
          num = num + 1
          WRITE(2,30) num, TRIM(line)
   read (line,*) x,y
   write(3,35) x,char(9),y
 END DO
 close(3)

 WRITE(2,40)
 READ(2,*)
 CLOSE(2)
 Lister=0
 return
 
 10FORMAT ('*** Listing and publishing: "', a, '" ***', //)
 20FORMAT (a)
 30FORMAT (i4.4, ': ', a)
 35format (1xg15.5,1a,g15.5)
 40FORMAT (//,'*** End of listing ***',
 1 /,'To close window, press return')
 END

 integer function Draw_Curve(itemID)
 implicit none
 integer status
 real a,b,c,x,y
 common /params/ a,b,c
 
 open (2, FILE='data.ed',ACTION='READ',
 1 STATUS='OLD')
 open (3, FILE='curve.ed',ACTION='PUBLISH',
 1 STATUS='UNKNOWN')
 
 DO
   READ (2,*,IOSTAT=status) x,y
          IF (status <> 0) EXIT
   y = a*exp(-b*x) + c
 WRITE(3,35) x,char(9),y
 END DO
 
 close(2)
 close(3)
 
 Draw_Curve = 0
 return
 
35 format (1xg15.5,1a,g15.5)
 end
 

 integer function Set_Pars(itemID)
 implicit none
 real a,b,c
 common /params/ a,b,c
 
 integer*2 paramsDLOG,atext,btext,ctext
 parameter(paramsDLOG=2000,
 1 atext=3,btext=4,ctext=5)

 INTEGER*4 savePort

 ! Dialog variables

 INTEGER*4    theDialog,itemType,hItem,Box
 INTEGER*2    itemHit
 RECORD /Str255/     itemaText,itembText,itemcText


 CALL GetPort(savePort)
 theDialog = GetNewDialog(VAL2(paramsDLOG),
 1 VAL4(0),VAL4(-1))
 CALL SetPort(VAL4(theDialog))
 itemHit = 0
 
 DO 
    CALL ModalDialog(VAL4(0), itemHit)
    select case  (itemHit)
   case (ok)
 CALL GetDItem(VAL4(theDialog),
 1 VAL2(btext),itemType,hItem,Box)
 CALL GetIText(VAL4(hItem),itembText)
 CALL GetDItem(VAL4(theDialog),
 1 VAL2(ctext),itemType,hItem,Box)
 CALL GetIText(VAL4(hItem),itemcText)
 CALL GetDItem(VAL4(theDialog),
 1 VAL2(atext),itemType,hItem,Box)
 CALL GetIText(VAL4(hItem),itemaText)
 
 read (itemaText.chars(1:INT(itemaText.len)),*) a
 read (itembText.chars(1:INT(itembText.len)),*) b
 read (itemcText.chars(1:INT(itemcText.len)),*) c
 exit
 case (cancel)
 exit
 case default
    end select
 END DO
 
 CALL DisposDialog(VAL4(theDialog))

 CALL SetPort(VAL4(savePort))
 Set_Pars = 0
 
 write (*,*) a,b,c

 return
 end

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

BusyCal 3.7.2 - Powerful calendar app wi...
BusyCal is the powerful, flexible, reliable calendar app for macOS. It's packed with time-saving features and compatible with all leading cloud services including iCloud, Google, Exchange and more.... Read more
BusyContacts 1.4.2 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
iShowU Instant 1.3.0 - Full-featured scr...
iShowU Instant gives you real-time screen recording like you've never seen before! It is the fastest, most feature-filled real-time screen capture tool from shinywhitebox yet. All of the features you... Read more
Capo 3.8 - Slow down and learn to play y...
Capo lets you slow down your favorite songs so you can hear the notes and learn how they are played. With Capo, you can quickly tab out your songs atop a highly-detailed OpenCL-powered spectrogram... Read more
Viber 11.7.0 - Send messages and make fr...
Viber lets you send free messages and make free calls to other Viber users, on any device and network, in any country! Viber syncs your contacts, messages and call history with your mobile device, so... Read more
Drive Genius 5.3.1 - $79.00
Drive Genius features a comprehensive Malware Scan. Automate your malware protection. Protect your investment from any threat. The Malware Scan is part of the automated DrivePulse utility. DrivePulse... Read more
CorelDRAW 21.2.0.708 - Graphic design so...
CorelDRAW - professional graphic design software for vector illustration, layout, and so much more. Get started quickly and easily with a wealth of intuitive tools, built-in learning materials,... Read more
Navicat Premium Essentials 12.1.27 - Pro...
Navicat Premium Essentials is a compact version of Navicat which provides basic and necessary features you will need to perform simple administration on a database. It supports the latest features... Read more
OmniFocus 3.4.3 - GTD task manager with...
OmniFocus is an organizer app. It uses projects to organize tasks naturally, and then add tags to organize across projects. Easily enter tasks when you’re on the go, and process them when you have... Read more
Microsoft OneNote 16.30 - Free digital n...
OneNote is your very own digital notebook. With OneNote, you can capture that flash of genius, that moment of inspiration, or that list of errands that's too important to forget. Whether you're at... Read more

Latest Forum Discussions

See All

Breakout: Dark Prison is a fast-paced ac...
Breakout: Dark Prison is an action RPG from LaterSoft. Set in the aftermath of a deadly virus outbreak your daughter has been taken from you because she has an immunity to the illness in her DNA. Not being a fan of experimentation on children –... | Read more »
Apple Arcade in review
This weekend, Apple Arcade will officially be one month old. That means anyone who signed up for the free trial on day one has a decision to make: Stick with the service and shell out $5 a month, or cancel and go about your merry way. | Read more »
Alluris is a choose-your-own adventure g...
Alluris is an RPG that the developer's are calling a swipe-your-own adventure game. This is because the game incorporates a Reigns-style - swiping left or right - selection mechanic to make all the decisions you'd usually expect to make across... | Read more »
Hello Hero All Stars receives update wit...
The first Hello Hero game hit global platforms in 2013 and proved a huge success, with developer Fincon adding two more entries to this popular series of casual RPG games since. Released in June this year, Hello Hero All Stars brings many of the... | Read more »
Zombieland: Double Tapper, a cartoon idl...
Zombieland: Double Tapper is the idle RPG tie-in to the upcoming Zombieland: Double Tap. Oddly, it's one of two different Zombieland games launching today, with the other being the Switch title Zombieland: Double Tap - Road Trip. [Read more] | Read more »
Rusty Lake's The White Door launche...
Rusty Lake and Second Maze's intriguing point-and-click adventure game, The White Door, is now up for pre-order on the App Store. This one sees you playing as Robert Hill, a mental health patient who is suffering from severe memory loss. The game... | Read more »
Hellrule is an auto-runner inspired by G...
Hellrule is an upcoming auto-runner game from independent developer Pedrocorp where players will take control of a dapperly dressed gentlemen who comes equipped with a razor-sharp umbrella for slicing up his foes. The game will be available for... | Read more »
Grobo is a gravity bending puzzle platfo...
Grobo is a 2D puzzle platformer that marks the first release from developers Hot Chocolate Games. You'll find yourself manipulating gravity as you make your through this title that's available now for iOS and Android. [Read more] | Read more »
Adrenaline, Compulsive Entertainment’s h...
Compulsive Entertainment’s high-octane arcade racer, Adrenaline, has now made its way to the App Store following a successful launch on Google Play. It’s a ton of challenging, fast-paced fun, boasting easy-to-learn controls and a varied selection... | Read more »
Mario Kart Tour is adding Super Mario Ga...
Earlier today on Twitter, Nintendo announced that Mario Kart Tour is getting a new racer and track. Fans of Super Mario Galaxy will be pleased to hear that Rosalina is the first post-launch character being added, while the iconic Rainbow Road is... | Read more »

Price Scanner via MacPrices.net

11″ WiFi iPad Pros on sale today for up to $2...
Amazon has new 2018 Apple 11″ WiFi iPad Pros in stock today and on sale for up to $250 off Apple’s MSRP. These are the same iPad Pros sold by Apple in its retail and online stores. Be sure to select... Read more
Apple offers clearance 2018 15″ 6-Core MacBoo...
Apple has clearance 2018 15″ 6-Core Touch Bar MacBook Pros, Certified Refurbished, available starting at only $1999. Each model features a new outer case, shipping is free, and an Apple 1-year... Read more
Apple continues to offer refurbished 2019 21″...
Apple has Certified Refurbished 2019 21″ & 27″ iMacs available starting at $929 and up to $350 off the cost of new models. Apple’s one-year warranty is standard, shipping is free, and each iMac... Read more
Verizon offers free iPhone 7 for customers wh...
Verizon is offering a free 32GB iPhone 7 for new or existing customers who open a new line of service, no trade-in required. Cost of the phone is credited to your account monthly for 24 months. The... Read more
13″ 2.4GHz 4-Core MacBook Pros remain availab...
Apple has a full line of Certified Refurbished 2019 13″ 2.4GHz 4-Core Touch Bar MacBook Pros available starting at $1529 and up to $300 off MSRP. Apple’s one-year warranty is included, shipping is... Read more
Lease one iPhone Xs, Xr, or X at Sprint and g...
Purchase an Apple iPhone X, Xr, Xs, or Xs Max at Sprint, and get a 64GB iPhone Xr for free. Requires 2 new lines or 1 upgrade-eligible line and 1 new line. The fine print: “iPhone Xs (64 GB) $37.50/... Read more
How to use your Apple Education discount to s...
Purchase a new MacBook Pro or MacBook Air using Apple’s Education discount, and take up to $200 off MSRP. All teachers, students, and staff of any educational institution with a .edu email address... Read more
Base 2019 13″ 1.4GHz 4-Core MacBook Pro on sa...
Amazon has the new 2019 13″ 1.4GHz/128GB 4-Core Space Gray Touch Bar MacBook Pro on sale for $100 off Apple’s MSRP. This is the same MacBook Pro sold by Apple in its retail and online stores: – 2019... Read more
Save up to $30 on Apple’s AirPods at these re...
Amazon is offering discounts on new 2019 Apple AirPods ranging up to $30 off MSRP. Shipping is free: – AirPods with Charging Case: $144 $15 off MSRP – AirPods with Wireless Charging Case: $169 $30... Read more
Save $15 on Apple Watch Series 5 models on Wa...
Walmart has new Apple Watch Series 5 models on sale for $15 off Apple’s MSRP on their online store. Choose free shipping or free local store pickup (if available). Sale prices for online orders only... Read more

Jobs Board

*Apple* Mobile App Developer - eiWorkflow So...
…eiWorkflow Solutions, LLC is currently looking for a consultant for the following role. Apple Mobile App Developer Tasks the role will be performing: ? Mobile App Read more
Essbase Developer - *Apple* - Theorem, LLC...
Job Summary Apple is seeking an experienced, detail-minded Essbase developer to join our worldwide business development and strategy team. If you are someone who Read more
Best Buy *Apple* Computing Master - Best Bu...
**738230BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Store Associates **Location Number:** 000233-Almeda-Store **Job Description:** The Core Read more
Best Buy *Apple* Computing Master - Best Bu...
**738182BR** **Job Title:** Best Buy Apple Computing Master **Job Category:** Sales **Location Number:** 000036-Independence MO-Store **Job Description:** **What Read more
*Apple* Mobility Pro - Best Buy (United Stat...
**741450BR** **Job Title:** Apple Mobility Pro **Job Category:** Store Associates **Location Number:** 000168-Mentor-Store **Job Description:** At Best Buy, our Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.