TweetFollow Us on Twitter

Pattern Scroller
Volume Number:6
Issue Number:12
Column Tag:Pascal Procedures

Pattern Scroller

By Shelly Mendlinger, Brooklyn, NY

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

These programs are written in Borland’s Turbo Pascal. Don’t worry! Borland’s implementation is straightforward and virtually straight out of Inside Macintosh (IM), Vol . I, II and IV. Perhaps the compiler directives need explanation.


{$D+} Turn on Generate Debug Symbols.  Puts procedure names in the object 
{$R ResFileName }  Define Resource File.  
{$U-} Turn off Use Standard Units.  Units PasInOut and PasConsole not 
automatically complied.


PatternsScroller(fig. 1) creates a scrollable pattern list showing eight patterns at a time. Click in a pattern to select it. The selection is echoed in the test rectangle to prove the data has been correctly retrieved. This program came about by playing-I mean experimenting-with the List Manager Package(IM vol. IV) to solve a problem: give access the 38 patterns in the System’s ‘PAT#’ resource while taking minimal screen space. Obviously, the MacPaint style of 2 rows of 19 patterns across the screen would not do. The solution is scrollable patterns. Showing several small squares of patterns and a scroll bar requires little screen area.

The two dozen or so routines of the List Manager handle the tedious chores of list maintenance and appearance such as drawing, storing and retrieving data, selecting, hiliting, scrolling, resizing, updating, activating. Quite an impressive list! PatternScroller utilizes the List Manager to manipulate non-text data(8-byte QuickDraw patterns). Since the default routines draw list data as text and invert to hilite selections, a new LDEF(List DEFinition) resource customized for patterns needs to be created. The second program, Pas_to_ResCode.LDEF, does this and writes the code to the specified resource file.

The Terminology

First, we discuss List Manager terminology. A list is a set of elements containing data of variable sizes. A cell is a screen rectangle that displays an element’s data; it’s basic unit of the list interface. Cell is also a data type (the equivalent of type point) that describes a (screen)cell’s two dimensional position in the list. The first cell is in column one, row one (the top most, left most position) and has coordinates (0,0), actually the position of its top-left corner in the list’s cell grid. To avoid confusion, remember a cell’s coordinates are (column - 1, row - 1). Be aware that some List Manager variables are in terms of cells and some in terms pixels. Hopefully, these will be clarified as we go through the subroutines of PatternScroller (Listing 2) in the order they are called.

Initialize: Initializes the usual managers and sets up a window to show the list. The Dialog Manager is not initialized and does not seem to be needed by the List Manager.

SetUpList: Calling LNew initiates the List Manager by loading in into memory and creating a list record data structure that includes the values passed in its nine parameters:

rView: Type rect. In local coordinates, the box in which the list is to be drawn. Its size determines the number of cells visible.

dataBounds: Type rect. In terms of cells, the initial dimensions of the list array. The first values are 0,0, the next two are the number of columns and rows of cells making up the list. Here it’s 38 columns across, 1 row down.

cSize: Type point. Holds the width and height in pixels of the basic cell. All cells in a given list have identical dimensions, no matter what the length of the data held.

theProc: Type integer. The ID of the LDEF resource to be used; the default ID = 0. Here it’s assigned the value of LDefNum, declared as a constant for easy changing.

theWindow: Type windowPtr. The window in which the list is to be drawn.

drawIt: if true, turns on the drawing routines(more on this later). Best to pass false until the list is complete or list building may be slowed.

hasGrow: If true, scroll bars will leave room for a growBox icon.

scrollHoriz, scrollVert: Draws and enables scroll bars for a list. Yes, it’s that easy! No coding for inUpPage, inUpbutton, ThumbsUp, Thumbsdown, click _held_down; the List Manager handles it all.

LNew returns a listhandle that is passed in all subsequent list routines. This new list, however, is empty, awaiting calls to LSetCell to add elements of data. This is accomplished with a handy little For loop that sets cell coordinates, accesses an indexed pattern and loads each cell with eight bytes of data. By the way, the “at” operator,@, returns a pointer to its operand, which can be a variable or a subroutine. Now the drawing routines are turned on via LDoDraw and the list is actually drawn on screen with LUpDate. A pattern is selected to start things off and the list is complete. Note totRect encloses rView and the scroll bar rectangle. totRect is used in the HandleEvent subroutine.

DoTestRect: Shows the opening pattern via ShowPat.

ShowPat: Displays the current pattern by calling LGetSelect to find the currently selected cell, then gets the pattern data by calling LGetCell. Note theCell is initially set to the first cell, (0,0), because LGetSelect returns in it the coordinates of the selected cell that is equal to or greater than the cell passed. Passing (0,0) ensures no cell will be overlooked.

HandleEvent: Handles two events, keydown and mousedown. Mousedown has the good stuff in the inContent case of FindWindow. If the click is in totRect(list rect + scroll rect), the current pattern is deselected. This is a two-step process: 1) the currently selected cell is returned in aCell by LGetSelect (see ShowPat), 2) false is passed as the first parameter of LSetSelect to deselect that cell. It is important to deselect before calling LClick or very strange hilite/unhilite things happen. LClick tracks the click, much as TrackControl does for controls. Scroll bar hits, drags and autoscrolling are all handled. The boolean result is true if a double-click occurs, both clicks in the same cell. (A fun exercise is to have a pattern editor pop up upon a double-click, ala MacPaint). Furthermore, if mousedown is in rView, i.e. in a pattern, the cell clicked in is determined with a call to LLastClick(which in Turbo returns type longint not type cell as stated in IM). That cell is assigned to aCell(the longint is cast to type cell) and then made the current selection via LSetSelect(first parameter := true). If the click is not in rView, it must be in the scroll bar, so aCell retains the value of the current selection, which is reselected. Finally, ShowPat is called to display the new selection.

The Source Code

That’s basically PatternScroller. To run it, First be sure to run Pas_to_ResCode(see below) to have a custom LDEF to call. When that is handled, choose Run(compile to memory and execute) from the Compile Menu to test out PatternScroller. Choosing To Disk from the Compile Menu will create a free-standing application. There are advantages to this. ResEdit can be used to see the LDEF as machine code(fig.2). When the Pascal environment is gone, some memory problems disappear. It’s easier to debug, too, especially with the help of the D+ compiler directive. There is one peculiarity(bug?) within the LClickLoop routine of LClick. Upon a mousedown event, this routine is called to handle scroll bar hits, hiliting/unhiliting and autoscrolling until a mouseup event. When a click is dragged through patterns, each cell the cursor passes through is hilited then unhilited in turn. Upon release of the button, both the mousedown cell and the mouseup cell are hilited, although the lower cell is always selected. A more accurate interface would not change the selection if mouseup and mousedown were not in the same cell, and would unhilite the mouseup cell. But we’ll save a custom ClickLoop routine for another project.

The second program, Pas_to_ResCode.LDEF (listing 2), writes code resources(res type WDEF, MDEF, CDEF, CDEV, etc.) to the named resource file. It is how I decided to answer a subtle challenge in IM: a definition procedure is usually written in assembly language, but may be written in Pascal. Sure, it can be written in Pascal, but how do you turn the text into a code resource? The neat part of this program is that the compiler converts the Pascal to machine language, which is then added to the res file. The machine code generated(fig. 2) this way starts with 4E56-LINK A6(create a stack frame for local variables) and winds up with 4E5E-UNLINK A6(dispose of stack frame), and lastly, 4ED0-JMP (A0) (JuMP to the return address in register A0). All very nice and tidy, although one wonders why the registers are not saved after linking and then restored before unlinking, as the Turbo manual states is standard entry and exit code. This may be nit-picking; the code works!

There are two important points in this program that warrant a closer look. First, the empty procedure Marker must immediately follow the procedure TheCode, because its address(@Marker) marks the end of TheCode. Address arithmetic is used to calculate theCode’s size, which as CodeSize is passed to PtrToHand. This brings us to the second point. AddResource, the routine that writes data to a res file, requires that this data be in a relocatable block(IM vol I, The Resource Manager). As things stand, TheCode is locked in the heap with the rest of the program. Unlocking TheCode is accomplished by calling PtrToHand, which makes a relocatable copy of the data pointed to (@theCode), and returns a handle to this block. The handle is just what AddResource is waiting for.

List Manager

Now for List Manager specific stuff. LDEF, the list definition procedure governs the initializing, drawing, hiliting/unhiliting and closing of a list.

According to IM, the List Manager communicates with the procedure via the LMessage parameter(type integer), sending one of four possible values:


LInitMsg   =   0, initialize list.
LDrawMsg = 1, draw cell.
LHiliteMag=  2, hilite/unhilite cell.
LCloseMsg =  3, close list.

According to IM, a separate routine should handle each operation represented by LMessage. In Pascal, the best approach is a case statement with LMessage as selector. Before looking at each routine, here are the other parameters passed by the List Manager to the definition procedure:

isSelect: Type boolean. True if a cell is selected.

cRect: Type rect. The local coordinates of the selected/deselected cell’s rectangle.

theCell: Type cell. The coordinates(in row and column) of the cell in question.

LDataOffSet: Type integer. The number of bytes into the list’s data block that marks the start of theCell’s data.

LDataLen: Type integer. The length in bytes of theCell’s data. Here its eight bytes.

LHandle: Type listHandle. A handle to the list record.

Now the operation routines as they respond to each message:

LInitMsg: LNew sends this message after setting all default values in the list record. This initialize routine is used to change record settings, allocate private storage, etc. Here the selFlags field is changed so only one cell at a time is selected. The default setting offers all the selection possibilities found in a Standard File dialog window(like Font/DA Mover), with shift key extensions, dragging, etc. This routine is also a good place to draw a frame about the list.

LDrawMsg: Sent whenever a cell needs to be drawn. This is one half of the mysterious “draw routines” that gets turned off and on in the SetUpList procedure of PatternScroller. The first order of business is to change the port’s clip region to cRect, the cell’s screen rectangle, as IM directs. Next, the pattern is accessed and drawn. Surprisingly, a problem developed accessing the pattern. Upon running PatternScroller, the System bombed when this routine had calls to GetPattern, GetIndPattern, BlockMove, even HLock! An exhaustive study was not done nor was there deep pondering as to the nature of the problem. (If you have a hint, please inform me!) Mercifully, the realization eventually hit that a data offset and a handle to a list record are passed for a reason. The way to the pattern is via the address of the data in the data block stored by the list, calculated by adding LDataOffSet to the pointer gotten by dereferencing the cells field(type DataHandle) of the list record. Now the pattern can be drawn inset from the cell rect, leaving room for a hilite frame(see below). Lastly, the port’s original clip region is restored. Every visible cell is drawn this way.

LHiliteMsg: The other half of the “drawing routines”, the hilite routine has the same parameters as the draw routine. The port’s clip region is handled the same way for insurance purposes. IM does not mention it, but with the similarity to the draw routine better safe than sorry. A 4x4 pixel black frame about a cell seems a clear way to hilite a pattern selection. Using pen mode Xor allows the luxury of disregarding the isSelect parameter. If the cell is not selected there is a white frame about its pattern, as initially drawn. If it is selected, the Xor’ed frame is black. If deselected, an Xor’ed black frame turns white. Nifty. This routine opens creative possibilities to hiliting non-text data, pictures could change, icons could be inverted, etc.

LCloseMsg: This message is sent by LDispose. If any private storage was allocated in the initialize routine, now is the time to dispose of it. This LDEF does not need a close routine.

Four messages, four suborutines, that’s it!

Notice the call to CreateResFile is optional. After the first time or if there’s an existing res file, comment out({ }) the call, the code will be added to the named file. As a rule, always change the resID constant with each refinement of a definition procedure. The Twilight Zone can spring up in the calling program when more than one instances of a res type have the same ID number. For this reason, Do Not Compile Pas_to_ResCode To Disk. An application has its info hard-wired, thus each run will add the res code with the same ID. Also, remember to change the resource ID in the calling program; don’t get stuck with the same old routine.

This is the same reason there is a minor Mac interface to the program. As a courtesy, information is displayed. As a necessity, before calling AddReaource, the event loop awaits a positive action: keydown to quit, mousedown to proceed. This can avert potential disasters.

The List manager is a very handy tool for storing, updating and displaying data. For further information, see back issues of MacTutor (of course!) List Manager Inspires Help Function Solution, Vol. 3, No. 4 for one. Also, The Complete book of Macintosh Assembly Language Programming, Vol. II by Dan Weston (1987 Scott, Foresman, and Company, Glenview, IL.) has a very good chapter on the List Manager. Don’t shy away because of assembly language. The text is so full of clear, useful info that the programming examples are secondary. Anyhow, as Mac assembly language programmers love to do, all Pascal routines out of IM commented into the source code, so it’s in Pascal anyway!

Through the LDEF procedure, you have complete control over a list’s appearance and behavior. Other definition procedures offer the same control over other aspects of the interface. This means the power to fine tune your program’s interface. And that’s the way to real Mac creativity! So open IM and create a custom CDEF or WDEF with Pas_to_ResCode. You can add your own dot extension. Just be sure to change the constant RType to the appropriate type.

{$D+}  {generate debug symbols}
Program PatternScroller;
{**** written and © 1989
 ***  by Shelly Mendlinger
 **** Brooklyn, New York ***}
{$R PatList.RSRC}  {identify res file}
{$U-}  {No defaults. We’ll roll our own}
    memtypes, quickdraw, osintf, toolintf, packintf;
    LdefNum = 1000;
    title = ‘PatternScroller  ©1989 by Shelly Mendlinger’;
    testRect    : rect;
    cSize       : point;
    theCell     : cell;
    wind        : windowPtr;
    theList     : listHandle;
    thePat      : pattern;
    theProc     : integer;
    str         : str255;
    event       : eventRecord;
    aHand       : handle;
    aCell       : cell;
    scrollVert  : boolean;

Procedure ShowPat;
    {-- set vars --}
    dLen := 8;
    {-- get current selection --}
    bool := LGetSelect(true,theCell, theList);
    {-- get cell data --}
    {-- show pat --}
end;{proc show pat}

Procedure Initialize;
    {-- Let the Games Begin --}
    {-- open a window --}
    wind := newWindow(nil,wRect,title,true,0,
end;{proc init}

Procedure SetUpList;
    {-- set parameters --}
        area, local coords}
    setrect(dBounds,0,0,38,1);{38 long, 1 high}
    setPt(cSize,30,30);{30 X 30 pixel cells}
    theProc := LDefNUm;{LDEF ID}
    drawIt  := false;  {turn off drawing}
    hasgrow := false;  {no grow box}
    scrollHoriz := true;{yes horiz scroll bar}
    scrollVert := false; {no vert scroll}
    {-- start things going --}
    theList := LNew(Rview,dbounds,cSize,theProc,wind,drawIt,         
    {-- fill cells with pat data --}
    for index := 1 to 38 do
     end;{for index}
    {-- draw the list --}
    {-- select starting pat --}
    totrect := Rview;
   totRect.bottom := totRect.bottom + 15; 
         {include scroll rect}
end;{proc Set up list}

Procedure doTestRect;
    str:= ‘Test Rect’;
 {-- center string --}
    with testRect do
    div 2,96);
end;{proc do Test Rect} 

Procedure HandleEvent(evt : EventRecord);
    pt2     : point;
    oldRect : rect;
    long    : longint;
    aPt := evt.where;
    {-- what’s happining? --}
    case evt.what of
    keydown: over := true;{any key quits}
          case findWindow(aPt,wind) of
          inGoAway: over := true;{say  bye-bye}
          inContent: begin
            {-- is click in list? --}
            if ptInRect(aPt,totRect) then
              {- get current selection -}
              bool := LGetSelect(true, aCell,theList);
              {-- deselect old cell --}
              {-- trach click --}
              bool := LClick(aPt,
            evt.modifiers, theLIst);
              {- is click in a pattern -}
              if ptInRect(aPt,Rview) then
                  {-- get new cell --}
              long :=LLastclick(theList);
                   aCell := cell(long);
              end;{in pat}
             {-- select/reselect cell --}
            end;{in totRect}
         end;{case findwindow}
      end;{case what}
 end;{proc handle event}
BEGIN {main}
    {-- do event loop --}
    over := false;
    if getNextEvent(everyEvent,event) then handleEvent(event);
    until over;
    {-- clean up --}
end.{prog PatternScroller}   

Program Pas_to_ResCode_LDEF;
{****  © 1989 by Shelly Mendlinger  ****}
{****  Brooklyn, New York   ****}

    memtypes, quickdraw, osintf, toolintf, packintf;
    resFile     = ‘PatList.rsrc’;
    RType       = ‘LDEF’;
    resID       = 1000;
    resName     = ‘PatList Def’;
    CodePtr     : procPtr;
    CodeHand    : handle;
    CodeSize    : size;
    err         : integer;
    str         : str255;
    goAhead     : boolean;

{*** This Proc is turned into res code *}   
Procedure theCode(Message : integer;
        isSelect    : boolean;
        cRect       : rect;
        theCell     : cell;
        LdataLen    : integer;
        aList       : Listhandle);
    patPtr      = ^pattern;
    aPat        : patPtr;
    oldClip     : rgnHandle;
    hand        : handle;
    aRect       : rect;
    {-- what’s the story --}
    case Message of
    LInitMsg: {initialize the list}
        {-- select one cell at a time --}
        aList^^.selFlags := LOnlyOne;
        {-- frame the list --}
        aRect := aList^^.rView;
    LdrawMsg: {draw theCell}
        {-- save port’s cliprgn --}
        oldclip := aList^^.port^.cliprgn;
        {-- change port’s cliprgn, 
   IM says so --}
        {-- calc cell’s data address --}
        Hand := handle(aList^^.cells); 
              {handle to data}
        aPat := patPtr(pointer(ord(hand^) + LDataOffSet));
{ptr to pat}
        {-- draw pat & cell frame --}
        aRect := cRect;
        {-- restore port’s clip --}
        aList^^.port^.cliprgn := oldClip;
  LHiliteMsg:  {hilite theCell}
        {-- same clip stuff as above --}
        oldclip := aList^^.port^.cliprgn;
        {-- Xor a frame --}
        aRect:= cRect;
        {-- clip stuff --}
        aList^^.port^.cliprgn := oldClip;
 end;{case message}
end;{proc theCode}

{-- mark the end of theCode --}
Procedure Marker;
end;{proc mark}

Procedure EventLoop;
    evt     : eventRecord;
    GetOut  : boolean;
    GetOut := false;
     if getNextEvent(everyevent,evt) then
       case evt.what of
       {-- any key to quit --}
       keyDown     :  GetOut  := true;
       {-- click to proceed --}
        mouseDown   :  GoAhead := true;
       end;{case what}
   until GetOut or GoAhead;
end;{proc eventloop}

Begin {main}
    {-- address of theCode --}
    CodePtr := @theCode;
    {-- pointer math --}
    CodeSize := size(ord(@Marker) -
    {-- get handle for AddResource --}
    Err := PtrToHand(CodePtr, CodeHand,
    {-- handle error --}
    if err <> noErr then
        str := ‘OS ERROR GETTING HANDLE. #’ + str; 
      end { error}
        goAhead := false;
        {-- save current res fie --}
        oldResNum := curResfile;
        {-- draw interface --}
        drawstring(‘ANY KEY TO QUIT’);
        drawstring(‘CLICK TO ADD RESOURCE’);
        str := ‘Res File: ‘ + ResFile;
        str := ‘Res Type: ‘ + RType;
        str := ‘Res Id: ‘ + str;
        str := ‘Res Name: ‘ + ResName;
        str := ‘Code size: ‘ + str + ‘ bytes’;
        if GoAhead then
            {*** OPTIONAL ***}
            {-- open s res file --}
       newResNum := openResFile(ResFile);
            {-- write to res file --}           addResource(CodeHand,RType,resID,ResName);
            {-- close selected res file }
            {-- restore orig. res file }
          end;{do it}
        end;{else no err}
 end.{prog pas to res code}


Community Search:
MacTech Search:

Software Updates via MacUpdate

Adobe Illustrator 24.0.3 - Professional...
You can download Adobe Illustrator for Mac as a part of Creative Cloud for only $20.99/month (or $9.99/month if you have also purchased an earlier software version). Adobe Illustrator for Mac is the... Read more
Adobe Dreamweaver CC 2020 20.1 - Build w...
Dreamweaver CC 2020 is available as part of Adobe Creative Cloud for as little as $20.99/month (or $9.99/month if you're a previous Dreamweaver customer). Adobe Dreamweaver CC 2020 allows you to... Read more
Adobe Audition 13.0.3 - Professional pos...
Audition is available as part of Adobe Creative Cloud for as little as $20.99/month (or $9.99/month if you're a previous Audition customer). Adobe Audition empowers you to create and deliver... Read more
Adobe After Effects 17.0.3 - Create prof...
After Effects is available as part of Adobe Creative Cloud for $52.99/month (or $20.99/month for a single app license). The new, more connected After Effects can make the impossible possible. Get... Read more
Audio Hijack 3.6.4 - Record and enhance...
Audio Hijack (was Audio Hijack Pro) drastically changes the way you use audio on your computer, giving you the freedom to listen to audio when you want and how you want. Record and enhance any audio... Read more
Eye Candy - 30 professional Pho...
Eye Candy renders realistic effects that are difficult or impossible to achieve in Photoshop alone, such as Fire, Chrome, and the new Lightning. Effects like Animal Fur, Smoke, and Reptile Skin are... Read more
Notability 4.2.2 - Note-taking and annot...
Notability is a powerful note-taker to annotate documents, sketch ideas, record lectures, take notes and more. It combines, typing, handwriting, audio recording, and photos so you can create notes... Read more
Adobe Acrobat Reader 20.006.20034 - View...
Adobe Acrobat Reader allows users to view PDF documents. You may not know what a PDF file is, but you've probably come across one at some point. PDF files are used by companies and even the IRS to... Read more
Adobe Acrobat DC 20.006.20034 - Powerful...
Acrobat DC is available only as a part of Adobe Creative Cloud, and can only be installed and/or updated through Adobe's Creative Cloud app. Adobe Acrobat DC with Adobe Document Cloud services is... Read more
Day One 4.8 - Maintain a daily journal.
Day One is an easy, great-looking way to use a journal / diary / text-logging application. Day One is well designed and extremely focused to encourage you to write more through quick Menu Bar entry,... Read more

Latest Forum Discussions

See All

Marvel Strike Force introduces new brawl...
FoxNext's squad-based RPG Marvel Strike Force is set to receive some fresh characters from the X-Men and Iron Man series. They'll arrive as part of the game's latest update, which follows a sizable spending boycott on the title due to complaints... | Read more »
Speed Dating for Ghosts is a narrative a...
Speed Dating for Ghosts originally released on Steam back 2018, since then it has received honourable mentions for narrative during the Independent Games Festival. Now it's made its way over to iOS devices where it's available as a premium title... | Read more »
Fast-paced multiplayer title Tennis Star...
Tennis Stars: Ultimate Clash is the latest free-to-play tennis title to hit iOS and Android. It's said to be a fairly casual experience, offering easy-to-learn controls and fast-paced, mobile-friendly matches. [Read more] | Read more »
Super Mecha Champions' latest updat...
Super Mecha Champions' latest update sees the addition of a brand new character called R.E.D. Alongside that, there's news about the current season and a series of Emojis that have been added to the game. [Read more] | Read more »
Isle Escape: The House is an upcoming pu...
Isle Escape: The House is an upcoming puzzle game from Simeon Angelov that's intended to serve as an introduction to a saga they're planning on releasing in an episodic fashion. The first chapter is set to release for both iOS and Android on 29th... | Read more »
Company of Heroes, the classic RTS, is n...
Feral Interactive has finally released their highly anticipated iOS version of the strategy classic Company of Heroes. It's available now for iPad as a premium title and has had various tweaks to ensure that it's optimised for touch controls. [... | Read more »
Mario Kart Tour's Vancouver Tour ha...
With Mario Kart Tour's Valentine's Tour now at an end (suspiciously before Valentine's Day has even arrived), it's now time to move on to the all-new and exciting Vancouver Tour. This time around, the featured drivers are Hiker Wario and Aurora... | Read more »
A new PictoQuest update makes it a much...
PictoQuest is a charming little puzzle game, but it left us a little disappointed. The game just didn’t seem to use screen space effectively, to the point that using the touch controls (as opposed to the default virtual d-pad) could lead to errant... | Read more »
Alley is an atmospheric adventure game a...
Alley is an atmospheric adventure game that sees you playing as a young girl trapped in an inescapable nightmare. Surrounded by her worst fears, every step forward for her is a huge challenge that you'll help guide her through using some simple... | Read more »
Fight monsters and collect heroes in Cry...
From Final Fantasy to Chaos Rings, Japanese roleplaying games have found a large and loyal fanbase on mobile devices. If you’re seeking a more under-the-radar JRPG to escape into, Lionsfilm’s Cryptract could be the one. The game has been around... | Read more »

Price Scanner via

Apple AirPods are on sale for $30 off today
Amazon has new 2019 Apple AirPods (non-Pro models) on sale today for $30 off MSRP, starting at $129. Shipping is free: – AirPods with Wireless Charging Case: $169 $30 off MSRP – AirPods with Charging... Read more
27″ 3.7GHz 6-Core 5K iMac on sale for $2099,...
B&H Photo has the 2019 27″ 3.7GHz 6-Core 5K iMac in stock today and on sale for $200 off Apple’s MSRP. Overnight shipping is free to many locations in the US: – 27″ 3.7GHz 6-Core 5K iMac: $2099 $... Read more
Save up to $250 on a 12.9″ iPad Pros with the...
Apple has Certified Refurbished 12.9″ iPad Pros available on their online store for up to $250 off the cost of new models. Prices start at $849. Each iPad comes with a standard Apple one-year... Read more
Save up to $220 on 11″ iPad Pros with these r...
Apple has Certified Refurbished 11″ iPad Pros available on their online store for up to $220 off the cost of new models. Prices start at $679. Each iPad comes with a standard Apple one-year warranty... Read more
8-Core 27″ iMac Pro available for $4249, Cert...
Apple has Certified Refurbished 27″ 3.2GHz 8-Core iMac Pros available for $4249 including free shipping. Their price is $750 off the cost of new models. A standard Apple one-year warranty is included... Read more
$749 MacBook Airs continue to be available on...
Amazon has the 2017 13″ 1.8GHz/128GB MacBook Air on sale today for only $749 shipped. That’s $250 off Apple’s original MSRP for this model and the cheapest new MacBook available from any Apple... Read more
HomePods on sale for $204 at Other World Comp...
Other World Computing has discounted, new, Apple HomePods on sale for up to $95 off Apple’s MSRP: – HomePod Space Gray: $207.99 $92 off MSRP – HomePod White: $204.99 $95 off MSRP These are the same... Read more
Get a Certified Refurbished iMac at Apple for...
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
A Look Back At The Top 5 Most Read Stories Of...
FEATURE: 02.21.20 The best of the best are now history and we’re not talking about Super Bowl LIV from earlier this month but rather, coverage from the past year (its second and first full one at... Read more
Apple offers wide range of discounted custom...
Save up to $610 on a custom-configured 21″ or 27″ iMac with these Certified Refurbished models available at Apple. Each iMac features a new outer case, free shipping, and includes Apple’s standard 1-... Read more

Jobs Board

Medical Assistant - *Apple* Valley Clinic -...
…professional, quality care to patients in the ambulatory setting at the M Health Fairview Apple Valley Clinic, located in Apple Valley, MN. Join the **M Health Read more
Geek Squad *Apple* Consultation Professiona...
**762475BR** **Job Title:** Geek Squad Apple Consultation Professional **Job Category:** Store Associates **Store NUmber or Department:** 001423-San Jose-Store **Job Read more
Medical Assistant - *Apple* Valley Clinic -...
…professional, quality care to patients in the ambulatory setting at the M Health Fairview Apple Valley Clinic, located in Apple Valley, MN. Join the **M Health Read more
Geek Squad *Apple* Consultation Professiona...
**756636BR** **Job Title:** Geek Squad Apple Consultation Professional **Job Category:** Store Associates **Store NUmber or Department:** 001053-Arundel Mills-Store Read more
Medical Assistant - *Apple* Valley Clinic -...
…professional, quality care to patients in the ambulatory setting at the M Health Fairview Apple Valley Clinic, located in Apple Valley, MN. Join the **M Health Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.