TweetFollow Us on Twitter

AppleTalk Client
Volume Number:1
Issue Number:10
Column Tag:Pascal Procedures

"Dial a Fortune Apple Talk Client"

By Alan Wootton, President, Top-Notch Productions, MacTutor Contributing Editor

Fig. 1 Phone type network

AppleTalk and Macintosh Pascal

This month's topic is AppleTalk. In collaboration with Bob Denny (see the column 'C Workshop' in this issue), I present a pair of programs that form 'Dial-A-Fortune'. The names of the two programs presented below are Get_Fortune and Send_Fortune. These are fully conversational with Bob Denny's server version, which performs the task of Send_Fortune. Of course, to try them, you will need two Macs. Either my Pascal Send_Fortune or Bob's server program run in one Mac while my Pascal Get_Fortune runs in the other Mac as the "requestor". Get_Fortune will request fortunes from either of the C or Pascal Send_Fortune servers which respond by sending back a fortune cookie! In this way, all the concepts of AppleTalk are illustrated. (Note: due to space limitations, the C version of Bob's requestor program was not included in the C column. Use my Get_Fortune requestor instead. A C requestor program to compliment Bob's server will be published in the C workshop next month.) If you are using Pascal, everything you need is here in this column for two way AppleTalk communications.

Appletalk

I started this project with only a passing knowledge of networks. Networks are for hooking computers together, right? So, I went to the store and bought one -- actually, two -- one for each computer. After paying $50 retail for each, I hurried home to try it out. Shock! What you get are merely cables to wire your machines together, and a short pamphlet on how this is done. A child could do it but having the wires in place does not a network make. You need software.

I referred immediately to Inside Macintosh. After careful study I identified two types of software that are needed. There are some drivers that you install in your system like a desk accessory, or like a new printer driver, and there are Macintosh Programs that use the drivers. Searching through the billions of disks sent to the Apple Certified Developers uncovered the drivers (presumably you can get them at the store too), and I installed them. Still, no network. Actually, it was like having telephones but not knowing how to talk.

I could have gone to the store to look for software to use my network, but I decided to write my own (actually, Bob Denny gave me Dial-A-Fortune first). So, back to the Bible -- excuse me -- Inside Macintosh.

What I found are many programs sending many messages at many levels of organization. The drivers send and receive data over the net at the drop of a hat. On the top of them all seemed to be a thing called AppleTalk Transaction Protocol, ATP for short. What this is, are some routines you can call to send and receive data (up to 512 bytes at a time). ATP is pretty clever. It will wait until it is its turn to talk, it will retransmit requests if no reply is received, and more. In the descriptions of the routines, I found numbers to set to indicate what data to send, and how persistent I wanted ATP to be about delivery. I found something else, too.

To use a network to 'hook computers together' you have to know something about the rules and conventions. Just as you cannot mail a letter without understanding about countries, cities, streets, addresses, and names, you also cannot make a phone call without knowing when you need an area code, or when you need a prefix, or when you can just dial 8 and then an extension. As I found, you must tell ATP three things to have a message delivered (refer now to the diagrams of networks in action).

Fig. 2. AppleTalk type network

First is the network number or zone (an integer). This is for situations where your network is connected to other networks. For me this is like an area code in a world with two telephones -- Not real useful. After ATP knows which network you're calling, it wants to know which node you want (a byte). I had two nodes. Each computer with a serial port, running the drivers, is a node. This is as if each of my computers were a whole town, each meriting it's own prefix, even though there may be only one phone in each town. Simple so far, but now my misconceptions begin to show. This network is for connecting programs together, not computers. The final destination of any message is a socket. For this ATP requires a socket number (a byte. Personally, I think that 'socket' is a poor choice of words for this; it brings the image of a connecter to mind, not a software process). This is analagous to the last four digits of a phone number. Even though there is only one 'phone' in each of two 'towns' you still must 'dial' an 'area code' (net number), a 'prefix' (node number), and the 'last four' (socket number) for a 'call' to go through. So, lets send some messages!

What is the number for the place we wish to call? Telephones are considered mostly permanent installations and are given permanent numbers (a very IBM type of mentality). Area codes especially won't change (even though this just happened to L.A. when they split the city into two areas where there was previously one). For AppleTalk the designers decided that numbers might change a lot and this would become a drag (it would be). So they decided that they would make it so that numbers could change all the time. This is a lot like a system where every time you plug your phone in the wall you call the phone company with your name and they give you a brand new number. Makes it pretty hard for some one to call you! But wait -- as the lazy ones among us have already guessed, all you have to do is call directory assistance before every call (a very Apple type of mentality). This way it doesn't matter what your friend's number is this week; you can always call him. AppleTalk works exactly this way, except directory assistance is called Name Binding Protocol, NBP for short.

When you call directory assistance the first thing they want to know is "Which city, please". NBP will search all the cities, or nodes, for the name you want, but you must provide a string for the zone (area code) you want. If you are calling directory assistance in another state you probably called first to get the area code and then called (area code) 555-1212 for the number. NBP will do this all in one inquiry. So, before every call you ask NPB for the number of the entity with a particular name, in a particular zone. NBP, unlike the phone company, will also look in the yellow pages. You see, there is another string you pass to NBP which is meant to be an identifier for the 'type' of party you wish to reach. This is really a superior system (are you listening Ma Bell?). All parties on the system are identified by their zone, their name, and their type. You can ask NBP for all the numbers in any combination of these. Think how nice it would be to dial national directory assistance and ask for all the Smiths in L.A. that are in the computer business. Only the names are used. The numbers are only a necessary evil to be ignored as much as possible.

Now that we know how to deal with the authorities involved lets get down to the nitty gritty and see if we can establish communication. Everyone get out your copies of Inside Mac, boot your Macs, and follow along.

Inside Inside Appletalk

It will be necessary to refer to the AppleTalk programmers guide. This is the 'Programmer's Guide' section in Inside Appletalk and the 'AppleTalk' section of Inside MacIntosh (regular or phone book version). They are all the same (first draft 1/31/85). Inside AppleTalk contains chapters describing in detail the many philosophies and protocols involved. The only routines needed are the Name-Binding protocol and the AppleTalk Transaction protocol.

The Appletalk section begins with brief descriptions of the various levels of service involved. You can ignore references to link access protocol (LAP) and datagram delivery protocol (DDP). On page 16 a description of how to call AppleTalk from Pascal begins. This is all for the Lisa-Pascal Workshop and is therefore completely worthless. Skim to page 66. Also ignore the AbusRecord type in the summary. The data types we will use are all in the programs that follow and I present a diagram for easy reference. Don't worry about assembly language. We will simply use the parameter block lists presented after each routine name. The method of access to AppleTalk will be to make device manager control calls directly to the drivers involved. This is simply illustrated in the code that follows. Following NPB are instructions on page 78 for making your own handlers. We definitely don't need this so skip to the summary on page 86. Again, watch out for the 'Pascal' interface; we are using the assembly language information.

ATP

The AppleTalk Transaction Protocol (ATP) is the main purpose behind the other, lower level, routines. ATP is used to send and receive messages on the system.

Although messages can be sent anonymously, every receiver has an address. The address (sometimes called the internet address) consists of a network number, a node number and a socket number. We will worry how to find an address later, so for now assume this is taken care of. The network number is to specify which of several individual appletalk networks the reciever is on. This is presently not used. The node number specifies which Mac (or other processor) the message is to go to. The socket number specifies which of several entities (desk accessories for instance) the message is to go to.

To send a message somewhere on the network use the function SendRequest. Note that not only is a message sent but a reply is secured also. To use SendRequest you must know the address of the receiver. In our example the mesage sent is ignored and the reply contains a Pascal-style string which is a fortune.

In order to receive messages (not merely replies) you (meaning your program) must declare yourself as an address capable of receiving requests. To do this call OpenATPSkt. When you are done call CloseATPSkt. Once you have an open socket you may then ask to receive messages. To do this call GetRequest. You may use asynhcronous device manager calls in order to not tie up the system but in this example we will simply wait (hang) for a message. When a request is received call SendResponse to send the reply.

Fig. 3 Appletalk Data structures

Name-Binding Protocol

Whenever a program opens a socket, ATP assigns an address to it. The address could be any valid address so it would be very hard for anyone to already know your address. To receive messages it is necessary to supply a name for that socket. Then another entity can call NBP with your name and NBP will find your address.

To do this call RegisterName. Each name is made of three strings. The strings are called the object string, the type string, and the zone string. The zone string is used to name which network one is on, and since multiple networks are not in common use '*' is usually used for the zone string. The type string is to declare the purpose of this particular socket. Sockets could be used for receiving mail or for providing file access. Each function should use a unique type string. Our example uses 'Dial-A-Fortune' as the type. The name string is to differentiate between several sockets that all offer the same service. For example, my Dial-A-Fortune socket has an object name of 'MacPascal Fortunes', and Bob Denny's Dial-A-Fortune socket has the object name of 'Confuscious'. It might be wise to add a unique identifier, like the disk name, or the users name, on the end of this string (for instance 'Confuscious-Bobs disk').

Once you have called RegisterName it is much more likely that someone will send a message to your GetRequest. After you don't want anymore messages you should call RemoveName and then you may close the socket.

If you want to send a message and you don't know the address to use you can call LookUpName. You supply a name and LookUpName will find the address. As a matter of fact, you can look up many names. LookUpName will take wild card characters in the object, type, and zone fields. Pass an array to hold the resulting addresses and pass the maximum number of addresses that you want and LookUpName will try to fill it for you. Unfortunately, the 'array' of addresses also contains the names that go with them and the whole affair is packed together so that it is harder to access the individual elements in Pascal. Not that it couldn't be done, but for our example we only look up one name to avoid this problem.

AppleTalk from MacPascal

As usual, the first task is to declare the types we will need. Our method of passing data to the various routines is to use a parameter block. This is the same block used by the file manager and the device manager. However, AppleTalk uses the fields in many new ways, and the various routines will re-use a particular field for up to four different purposes. To accomodate this we define a parameter block with variant fields. A bad problem remains. MacPascal refuses to correctly lay out byte sized fields. Observing that MacPascal will do packed arrays of char in the correct manner, and that byte sized fields always occur in pairs, we will declare them in pairs and use an array index to choose the one we want. For example, to access ATPsocket, use ATPsocket_ATPflags[0], and to access ATPflags, use ATPsocket_ATPflags[1]. A record of many variant fields is sometimes hard to refer to so I have provided a diagram of all the records we will use and the positions of the fields therein in fig. 2.

The NamesTableEntry is another problem. The lower part of this record is three strings that have been packed together. The procedure Pack3str is used to accomplish this.

As I mentioned before, our access to the AppleTalk routines will be through device manager control calls. The routines presented set the csCode correctly, then call the correct driver interface. The driver interface then sets ioRefNum correctly and requests filecall to make a control call. Filecall was presented in previous columns in this magazine. Look in the past issues, or better yet, just use it the way I do and forget how it works.

Before you can try to get the examples running you must install AppleTalk into your system file. Apple supplies an installer that will do this (but it won't work on my HyperDrive!). The Appletalk installer moves these resources into the file 'System': DRVR 9 .MPP, DRVR 10 .ATP, INIT 6, and two of type NBPC. The INIT opens the MPP driver. The NBPC types are code used for NBP.

Get_Fortune

To Get_Fortune we first must check that the drivers are opened. This is the function of ATPLoad. I adapted this from the example on page 54. Its purpose is to open both drivers if they are not already open and if the serial port is free. I wish this were not necessary. It would be better if it were just a trap in ROM that you call which returns an OS error code. Obscure system globals are checked and PBopen calls are made. Let's just assume that it works and let the hot-shots analyze its code for extra credit.

Next, we stuff Nblock in preparation for a LookUpName call. Interval and count are the time between retries and the number of times to try, respectively. Pack3str is used to set the strings in myNtable and entityPtr is set to point at the string part of myNtable (not at the beginning). RetBuffPtr and retBuffsize specify where we want a ntTuple returned, and maxToGet asks for only one to be returned. If you are following along in the book on page 76 you will note that I set the parameters in the order they are listed. Then LookUpName is called to return the first Dial-A-Fortune type it finds.

Now, myTuple will have an address in it's upper part. After we set ATPflags for once-only-mode we transfer the three part address into Sblock. There will be no message so we set reqLength and reqPointer to nothing. Moving along, we set BDSpointer to our numOfBuffs:=1 buffers. Timeoutval is the number of seconds that SendRequest will wait for a response before trying again, and retryCount is the number of times it will try before giving up. The parameter block is now filled but we first must set myBDS.buffPtr and buffSize to the address of the string reply which is where we want the fortune to be returned. After the SendRequest we examine reply and see that it does indeed contain a fortune transmitted from a Dial-A-Fortune somewhere on the network.

Send_Fortune

Send_Fortune follows Get_Fortune below but, since the upper portion of code is exactly the same as in Get_Fortune, it is not repeated. Please make note of this! The addrBlock of Sblock, when cleared, indicates to OpenATPSkt that we want it to assign a new address to us (I can't think of a situation where we would already know a valid address).

After OpenATPSocket we transfer the new address into the top (excluding the nextEntry pointer) of myNtable. Then we pack3str to fill the rest of myNtable. Ablock.ntQElPtr points to myNtable and after we specify an interval, a count, and set the verifyFlag we call RegisterName. Now, myNtable is the exclusive property of NBP, and it must not be disturbed before we RemoveName.

To prepare for GetRequest it is not necessary to set ATPsocket because it remains set from OpenATPsocket. Even though we don't expect a message in our message (it's existence is enough) we set Sblock.reqPointer and reqLength for the string buffer. Then we call GetRequest.

Three of the items that are listed on page 70 as being required for SendResponse are already set by GetRequest so those of you following along, don't be alarmed when we skip them. They are atpSocket, addrBlock, and transID. It is necessary to set the EOM bit of the ATPflags since this will be our last (and only) response. BdsPointer is set to myBDS. NumOfBuffs and bdsSize are set to one because our reply string will easily fit into one packet and one BDSelement. MyBDS is set for the string reply and then we SendResponse.

The GetRequest - SendResponse loop is repeated until the mouse button is held down after a response. After that we RemoveName and CloseATPSkt. Note that unlike Bob Denny's version, this returns the same fortune every time. We leave it to you to jazz it up with a more varied response.

So, now we have our network. Happy talking!

Get_Fortune listing:
program Apple_talk_Access;{by Alan Wootton 7/85 }
 type
  ptr = ^integer;
  strptr = ^str255;

  Bsplit = packed array[0..1] of char;

  AddrBlockRec = record
    aNet : integer;
    aNode_aSocket : Bsplit
   end;

  BDSElement = record
    buffSize : integer;
    buffPtr : ptr;
    datasize : integer;
    userbytes : longint
   end;

  BDSType = array[0..7] of BDSElement;

  NtTuple = record
    NetworkNumber : integer;
    NodeID_SocketNumber : Bsplit;
    none_ObjectName : Bsplit;
    entityname : array[0..42] of integer;
   end;

  NamesTableEntry = record
    nextEntry : ^NamesTableEntry;
    NetworkNumber : integer;
    NodeID_SocketNumber : Bsplit;
    none_ObjectName : Bsplit;
    entityname : array[0..42] of integer;
   end;

{ Parameter Block information, heavily modified for Appletalk}

  ParamBlkPtr = ^ParamBlockRec;
  ParamBlockRec = record
    qLink : Ptr;
    qType : integer;
    ioTrap : integer;
    ioCmdAddr : ptr;
    ioCompletion : ptr;
    reqTid : integer;
    ioNamePtr : ^str255;{ also UserData }
    ioVrefnum : integer;
    ioRefNum : integer;
    csCode : integer;
    case integer of
     0 : (
       ATPSocket_ATPFlags : Bsplit;
       AddrBlock : AddrBlockrec;
       ReqLength : integer;
       Reqpointer : ptr;
       BDSpointer : ^BDSelement;
       numofBuffs_timeoutVal : Bsplit;
       numofResps_retrycount : Bsplit
     );
     1 : (
       curRBitmap_ATPflags : Bsplit;
       dummy1 : longint;
       confirmAddr : ptr;
       dummy2 : array[0..2] of integer;
       bitMap_BDSsize : Bsplit;
       transID : integer
     );
     2 : (
       interval_count : Bsplit;
       ntQElPtr : ^namesTableEntry;
       verifyFlag_none : Bsplit;
       dummy3 : integer;
       newSocket_none : Bsplit;
       dummy4 : longint;
       rspNum_none : Bsplit
     );
     3 : (
       dummy5 : integer;
       entityPtr : ^char;{ actually three packed str's }
       retBuffPtr : ptr;
       retbuffsize : integer;
       maxtoget : integer;
       numgotten : integer
     )
   end;

{common OS trap code}
{This nasty little piece is used to make the PBxx calls}
{described in the File Manager and the Device Manager}
{chapters of Inside Mac.  This is covered in detail in }
{MacTutor vol.1 no. 6, and also no.7 }  
 function filecall (Pb : ParamBlkPtr;
         trap : integer) : integer;{ OSError }
  var
   d0, a0 : longint;
   access : array[0..12] of integer;
 begin
  stuffHex(@access, '2848548C41FA000C309F245F265F20522013FFFF224826804ED4');
  a0 := ord(pb);
  inlineP($4E75, @d0, @a0, trap, @access);
  filecall := loword(d0);
 end;

{Given a pointer and three strings, pack them }
{end to end starting at the pointer }
 procedure pack3str (strP : strptr;
         s1, s2, s3 : str255);
 begin
  strP^ := s1;
  strP := pointer(ord(strP) + length(strP^) + 1);
  strP^ := s2;
  strP := pointer(ord(strP) + length(strP^) + 1);
  strP^ := s3;
 end;

{Open the drivers '.MPP', and '.ATP' if they are }
{not already open, and if the serial port is free. } 
{To understand this search high and low for } 
{descriptions of PortBUse, and SPConfig, which }
{are system globals (I'm still not totally sure how }
{these work).  }

function ATPLoad : integer;{ OSError }
  type
   r = record
     use : char;
    end;
  var
   pblock : ParamBlockRec;
   Tstr : str255;
   PortBUseP : ^r;
   SPConfigP : ^char;
   err : integer;
 begin
  pBlock.ioNamePtr := @Tstr;
  pBlock.dummy5 := 0;{ ioPermssn }
  PortBUseP := pointer($291);
  SPConfigP := pointer($1FB);
  with PortBUseP^ do
   begin
    writeln(' PortBuse is ', ord(use));
    if ord(use) > 127 then
     begin
      err := -98;{ assume portNotCf }
      if (ord(SPConfigP^) mod 16) < 2 then
       begin
        Tstr := '.MPP';
        err := filecall(@pBlock, $A000);{ open }
       end
     end
    else if (ord(use) mod 16) <> 1 then
     err := -97;{  PortInUse }
    if (not odd((ord(use) div 16))) and (err = 0) then
     begin
      Tstr := '.ATP';
      err := filecall(@pBlock, $A000);{ open }
     end;
   end;{ of with }
  ATPLoad := err;
 end;{ of function }

 function ATPcall (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.ioRefNum := -11;
  ATPcall := filecall(Pb, $A004);{ control }
 end;

 function OpenATPSkt (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 254;
  OpenATPSkt := ATPcall(Pb);
 end;

 function CloseATPSkt (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 250;
  CloseATPSkt := ATPcall(Pb);
 end;

 function SendRequest (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 255;
  SendRequest := ATPcall(Pb);
 end;

 function GetRequest (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 253;
  GetRequest := ATPcall(Pb);
 end;

 function SendResponse (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 252;
  SendResponse := ATPcall(Pb);
 end;

 function MPPcall (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.ioRefNum := -10;
  MPPcall := filecall(Pb, $A004);{ control }
 end;

 function RegisterName (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 253;
  RegisterName := MPPcall(Pb);
 end;

 function LookupName (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 251;
  LookupName := MPPcall(Pb);
 end;

 function RemoveName (Pb : ParamBlkPtr) : integer;
 begin
  Pb^.csCode := 252;
  RemoveName := MPPcall(Pb);
 end;
{ Above portion should be copied to Send_Fortune also.}

 procedure Get_Fortune;
  var
   Nblock, Sblock : ParamBlockRec;
   myNtable : NamesTableEntry;
   myTuple : ntTuple;
   myBDS : BDStype;
   strP : strptr;
   err : integer;
   reply : str255;
 begin
  if ATPLoad = 0 then
   begin
    with Nblock do
     begin
      interval_count[0] := chr(1);
      interval_count[1] := chr(32);
      strP := pointer(ord(           
                              @myNtable.none_ObjectName[1]));
      pack3str(strP, '=', 'Dial-A-Fortune', '=');
      entityPtr := pointer(ord(
                              @myNtable.none_ObjectName[1]));
      retBuffptr := pointer(ord(@myTuple));
      retBuffsize := sizeof(myTuple);
      maxToGet := 1;{ if larger use array of tuples}
      err := LookupName(@Nblock);
      writeln('lookup err', err);
     end;{ of with Nblock }
    if err = 0 then
     with Sblock do
      with myTuple do
       begin
        ATPsocket_ATPFlags[1] := chr(32);{atpXObit}
        addrBlock.aNet := networkNumber;
        addrBlock.aNode_Asocket[0] := 
                                            nodeID_SocketNumber[0];
        addrBlock.aNode_Asocket[1] := 
                                            nodeID_SocketNumber[1];
        reqLength := 0;{no request data}
        reqPointer := nil;
        bdsPointer := @myBDS;
        numOfBuffs_timeoutval[0] := chr(1);{buffers}
        numOfBuffs_timeoutval[1] := chr(2);{ seconds }
        numOfResps_retryCount[1] := chr(3);{ tries }
        myBDS[0].buffsize := 256;
        myBDS[0].buffPtr := pointer(ord(@reply));
        err := SendRequest(@Sblock);
        writeln('request err', err);
        writeln('fortune returned is - ', reply);
       end;
   end
  else
   writeln('Appletalk open error ', ATPLoad);
 end;

begin { main main main main main main }
 showtext;
 Get_Fortune;
end.
Send_Fortune listing:
note:upper portion is the same as Get_Fortune.
Copy and attach that portion to this.

 procedure Send_Fortune;
  var
   Ablock, Sblock : ParamBlockRec;
   myNtable : NamesTableEntry;
   myBDS : BDStype;
   strP : strptr;
   err : integer;
   buffer, reply : str255;
 begin
  reply := 'You will live long and prosper';
  if ATPLoad = 0 then
   begin
    Sblock.addrBlock.Anet := 0;
    Sblock.addrBlock.Anode_Asocket[0] := chr(0);
    Sblock.addrBlock.Anode_Asocket[1] := chr(0);
    Sblock.atpSocket_atpFlags[0] := chr(0);
    err := OpenATPSkt(@Sblock);
    writeln('open skt err', err);
    writeln('socket',      
                            ord(Sblock.atpSocket_atpFlags[0]));
    myNtable.nodeID_SocketNumber[1] := 
                                     Sblock.atpSocket_atpFlags[0];
    strP := 
            pointer(ord(@myNtable.none_ObjectName[1]));
    pack3str(strP, 
               'MacPascal Fortunes', 'Dial-A-Fortune', '*');
    Ablock.ntQElPtr := @myNtable;
    Ablock.interval_count[0] := chr(1);
    Ablock.interval_count[1] := chr(32);
    Ablock.verifyFlag_none[0] := chr(255);
    err := RegisterName(@Ablock);
    writeln('register err', err);
    if err = 0 then
     begin
      writeln('Sending fortunes, press mouse to quit');
      repeat{ send fortunes }
       begin
        Sblock.reqPointer := pointer(ord(@buffer));
        Sblock.reqLength := 256;
        err := GetRequest(@Sblock);
        writeln('get err', err);

        
        Sblock.ATPsocket_ATPflags[1] := chr(16);
           {ATPEomBit}
        Sblock.bdsPointer := @myBDS;
        Sblock.numofbuffs_timeoutval[0] := chr(1);
        Sblock.bitmap_bdssize[1] := chr(1);
        myBDS[0].buffPtr := pointer(ord(@reply));
        myBDS[0].dataSize := length(reply);
        myBDS[0].buffsize := 256;
        err := SendResponse(@Sblock);
        writeln('send err', err);
       end
      until button;
      Ablock.entityPtr := 
            pointer(ord(@myNtable.none_ObjectName[1]));
      err := RemoveName(@Ablock);
      writeln('remve err', err);
      err := CloseATPSkt(@Sblock);
      writeln('close SKT err', err);
     end;
   end
  else
   writeln('Appletalk open error ', ATPLoad);
 end;

begin { main main main main }
 showtext;
 Send_Fortune;
end.
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

OS X Server 4.1.3 - For OS X 10.10 Yosem...
Designed for OS X and iOS devices, OS X Server makes it easy to share files, schedule meetings, synchronize contacts, develop software, host your own website, publish wikis, configure Mac, iPhone,... Read more
pwSafe 4.1 - Secure password management...
pwSafe provides simple and secure password management across devices and computers. pwSafe uses iCloud to keep your password databases backed-up and synced between Macs and iOS devices. It is... Read more
Kodi 15.0.rc1 - Powerful media center to...
Kodi (was XBMC) is an award-winning free and open-source (GPL) software media player and entertainment hub that can be installed on Linux, OS X, Windows, iOS, and Android, featuring a 10-foot user... Read more
Coda 2.5.11 - One-window Web development...
Coda is a powerful Web editor that puts everything in one place. An editor. Terminal. CSS. Files. With Coda 2, we went beyond expectations. With loads of new, much-requested features, a few surprises... Read more
Bookends 12.5.7 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Access the power of Bookends directly from Mellel, Nisus Writer Pro, or MS Word (... Read more
Maya 2016 - 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
RapidWeaver 6.2.3 - Create template-base...
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
MacFamilyTree 7.5.2 - Create and explore...
MacFamilyTree gives genealogy a facelift: it's modern, interactive, incredibly fast, and easy to use. We're convinced that generations of chroniclers would have loved to trade in their genealogy... Read more
Paragraphs 1.0.1 - Writing tool just for...
Paragraphs is an app just for writers. It was built for one thing and one thing only: writing. It gives you everything you need to create brilliant prose and does away with the rest. Everything in... Read more
BlueStacks App Player 0.9.21 - Run Andro...
BlueStacks App Player lets you run your Android apps fast and fullscreen on your Mac. Version 0.9.21: Note: Now requires OS X 10.8 or later running on a 64-bit Intel processor. Initial stable... Read more

Rage of Bahamut is Giving Almost All of...
The App Store isn't what it used to be back in 2012, so it's not unexpected to see some games changing their structures with the times. Now we can add Rage of Bahamut to that list with the recent announcement that the game is severely cutting back... | Read more »
Adventures of Pip (Games)
Adventures of Pip 1.0 Device: iOS iPhone Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: ** ONE WEEK ONLY — 66% OFF! *** “Adventures of Pip is a delightful little platformer full of charm, challenge and impeccable... | Read more »
Divide By Sheep - Tips, Tricks, and Stre...
Who would have thought splitting up sheep could be so involved? Anyone who’s played Divide by Sheep, that’s who! While we’re not about to give you complete solutions to everything (because that’s just cheating), we will happily give you some... | Read more »
NaturalMotion and Zynga Have Started Tea...
An official sequel to 2012's CSR Racing is officially on the way, with Zynga and NaturalMotion releasing a short teaser trailer to get everyone excited. Well, as excited as one can get from a trailer with no gameplay footage, anyway. [Read more] | Read more »
Grab a Friend and Pick up Overkill 3, Be...
Overkill 3 is a pretty enjoyable third-person shooter that was sort of begging for some online multiplayer. Fortunately the begging can stop, because its newest update has added an online co-op mode. [Read more] | Read more »
Scanner Pro's Newest Update Adds Au...
Scanner Pro is one of the most popular document scanning apps on iOS, thanks in no small part to its near-constant updates, I'm sure. Now we're up to update number six, and it adds some pretty handy new features. [Read more] | Read more »
Heroki (Games)
Heroki 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: CLEAR THE SKIES FOR A NEW HERO!The peaceful sky village of Levantia is in danger! The dastardly Dr. N. Forchin and his accomplice,... | Read more »
Wars of the Roses (Games)
Wars of the Roses 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
TapMon Battle (Games)
TapMon Battle 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: It's time to battle!Tap! Tap! Tap! Try tap a egg to hatch a Tapmon!Do a battle with another tapmons using your hatched tapmons! *... | Read more »
Alchemic Dungeons (Games)
Alchemic Dungeons 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: ### Release Event! ### 2.99$->0.99$ for limited time! ### Roguelike Role Playing Game! ### Alchemic Dungeons is roguelike... | Read more »

Price Scanner via MacPrices.net

Seagate Backup Plus Drives Feature 200GB of C...
Seagate Technology plc has announced that its Backup Plus family of external storage offerings will now include 200GB of OneDrive cloud storage, a major added value, and the addition of Lyve’s photo... Read more
Canon PIXMA MG3620 Wireless Inkjet All-in-One...
Canon U.S.A., Inc. has announced the PIXMA MG3620 Wireless (1) Inkjet All-in-One (AIO) printer for high-quality photo and document printing. Built with convenience in mind for the everyday home user... Read more
July 4th Holiday Weekend 13-inch MacBook Pro...
Save up to $150 on the purchase of a new 2015 13″ Retina MacBook Pro at the following resellers this weekend. Shipping is free with each model: 2.7GHz/128GB MSRP $1299 2.7GHz/... Read more
27-inch 3.5GHz 5K iMac on sale for $2149, sav...
Best Buy has the 27″ 3.5GHz 5K iMac on sale for $2149.99. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary. Their price is $... Read more
Apple now offering refurbished 2015 11-inch...
The Apple Store is now offering Apple Certified Refurbished 2015 11″ MacBook Airs as well as 13″ MacBook Airs (the latest models), available for up to $180 off the cost of new models. An Apple one-... Read more
15-inch 2.5GHz Retina MacBook Pro on sale for...
Amazon.com has the 15″ 2.5GHz Retina MacBook Pro on sale for $2274 including free shipping. Their price is $225 off MSRP, and it’s the lowest price available for this model. Read more
Finally Safe To Upgrade To Yosemite’?
The reason I’ve held back from upgrading my MacBook Air from OS X 10.9 Mavericks to 10.10 Yosemite for nearly a year isn’t just procrastination. Among other bugs reported, there have been persistent... Read more
Logo Pop Free Vector Logo Design App For OS X...
128bit Technologies has released of Logo Pop Free 1.2 for Mac OS X, a vector based, full-fledged, logo design app available exclusively on the Mac App Store for the agreeable price of absolutely free... Read more
21-inch 1.4GHz iMac on sale for $999, save $1...
B&H Photo has new 21″ 1.4GHz iMac on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Best Buy has the 21″ 1.4GHz iMac on sale for $999.99 on their... Read more
16GB iPad mini 3 on sale for $339, save $60
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $339 including free shipping plus NY tax only. Their price is $60 off MSRP. Read more

Jobs Board

Frameworks Engineer, *Apple* Watch - Apple...
**Job Summary** Join the team that is shaping the future of software development for Apple Watch! As a software engineer on the Apple Watch Frameworks team you will Read more
Mobile Payments Counsel, *Apple* Pay (digit...
**Job Summary** Apple is looking for an atto ey to join Apple 's Legal Department to support Apple Pay. **Key Qualifications** 4+ years of relevant experience Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** The ASC is an Apple employee who serves as the Apple business manager and influencer in a hyper-business critical Reseller's store which delivers Read more
Partner Marketing Manager, Merchant- *Apple*...
**Job Summary** The Apple Pay partner marketing team is looking for a marketing manager to develop and drive US marketing programs with our merchant partners. The right 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
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.