TweetFollow Us on Twitter

Draw Towers
Volume Number:1
Issue Number:7
Column Tag:STRUCTURED PRogramming in Modula-2

Draw the Towers of Hanoi

By John Bogan

This month we will explore three items. First, we will continue to introduce the elements of Software Engineering in a historical perspective. Second, we will discuss why Modula-2 is not a hackers’ language and finally, we will look at a sample program that uses the Mac ROM to draw the starting position for the Towers of Hanoi.

A New Direction

Last month we saw that Software Engineering is capable of being abused as well as being able to provide important insights into the process of building good computer software. By the late 1960’s the Software Engineers had, in effect, dictated that COBOL would be the primary language of the FORTUNE 1000 probably until the end of the century. Most microcomputer programmers faced with the prospect of coding in COBOL would shudder in terror at the thought.

In 1968 Software Engineering took a turn for the better when a famous and well regarded European computer scientist lit a fire under the COBOL and FORTRAN programming community, a fire whose embers still smolder and flare up to this day. The scientist was E.W. Dijkstra and the arson was committed in the Communications of the ACM with a letter entitled “GOTO Statement Considered Harmful”. In this letter Dijkstra observed that after having read a multitude of programs in a variety of languages that the quality of a program was inversely proportional to the number of GOTO statements in that program. The graph below illustrates this discovery.

The idea is simple ... jumping around a program with branching statements leads to unreadable program texts (known in the trade as spaghetti code) which are next to impossible to debug or for a third party to pick up and read. Since ALGOL-60 (the European’s favorite language) has advanced control structures which permits GOTOless programming and FORTRAN doesn’t, the battle lines were drawn. Letter after letter poured into the journals feeding the flames.

Finally in 1972 in an effort to quell the controversy Dijkstra together with Dahl and Hoare published a book on just how to write high quality programs without using the dangerous GOTO statement. This book, Structured Programming, estab- lished once and for all that GOTOs are redundant. Every sequential program- ming task can be accomplished with a combination of three constructs.

• sequence:

BEGIN ... s1 ... s2 ... s3 ... END

• iteration:

WHILE c1 DO ... s1 ... ENDWHILE

• conditional:

IF c1 THEN s1 ENDIF

If acceptance in the curriculum of the worlds’ Universities’ Computer Science Departments is a valid measure then Structured Programming is an overwhelming success. Only those programmers corrupted by traditional BASIC or Assembler still grasp at the past and argue the merits of the GOTO. Meanwhile the course of Software Engineering was changed forever. An example of this change is Modula-2. This language is rich in structured control statements and does not support the GOTO at all. There are no statement labels in Modula-2 and while it is possible to write poor code in Modula it is impossible to write spaghetti code.

The structured control statements supported by Modula are the statement sequence, the WHILE ... DO, the REPEAT ... UNTIL, the FOR ... TO ... BY ... DO, the LOOP ... EXIT, the IF ... THEN ... ELSIF, the CASE ... OF and the WITH ... DO statements.

What is Structured?

In some ways this is a very difficult question to answer. For adherents of the Structured Techniques the concept of “Structured” is very much like the Bible is to Jerry Falwell. It is the guiding light, the one true path to paradise, the blessed and final word on how to think about solving complex logical problems.

A slightly more dispassionate view might produce the following definition of structured - a philosophy for solving problems which attempts to conserve scarce resources by arriving at the perfect solution in the fewest attempts by following a plan.

Why Plan When You Can Hack?

The idea of a plan is very important in understanding the Structured Techniques, Software Engineering and Modula-2. It also illustrates why Modula-2 is not particularly well suited for hacking. Most hackers I have known use the technique of incremental discovery or trial by error. In other words programs just grow from line 1 until the last bell and whistle is debugged. Assembly language and to a lesser extent C are well suited for this type of programming. Modula-2 most definitely is not. As we will see in future columns the quaility of a Modula-2 program is dependent on the quality of the detailed planning that occurs before the first line of code is written. In many ways this dependence on upfront planning is a distinct disadvantage for learning a new and unique system like the Mac. So many of the techniques peculiar to the Mac (such as the entire user interface or resources or Quickdraw) are best approached and mastered by trial and error hacks. When you combine this reality with the compile-link-execute overhead of Modula-2 it should be obvious why Modula-2 is not particularly suited to casual hacking. A good strategy for making the best use of Modula-2 would be to learn the Mac with Apple’s interpreted Pascal and then to translate these programs into the much faster Modula-2. As we progress in these columns we will see just how close Modula and Pascal are to each other so this suggestion won’t seem so painful. The bottom line is that Modula-2 is not a language for the seat-of-the-pants hacker.

This Month’s Code

The piece of Modula-2 code that follows is primarily useful because it shows how to access the Mac ROM on a 128K machine. The Quickdraw calls used are SetRect, PaintRect and PaintRoundRect. You should be aware that the method of specifying ROM calls is different for a 512K box. Also it should be noted that the data types VHSelect, Point and Rect could have been imported blindly instead of spelled out but then their internal structures would have been hidden and the topic of information hiding in Modula-2 is an advanced and complex issue.

MODULE Hanoi;
   (* build starting position for Hanoi Towers *)

   FROM Terminal IMPORT ClearScreen;
   FROM InOut IMPORT WriteString, ReadCard, WriteLn;
  
   (* data structures for Quickdraw calls *)
   TYPE 
      VHSelect = (v,h);
      
      Point = RECORD
                 CASE INTEGER OF
     0: v: INTEGER;
        h: INTEGER;
        
    |1: vh: ARRAY VHSelect OF INTEGER;
  END; (* CASE *)
       END; (* RECORD *)
       
      Rect = RECORD
                CASE INTEGER OF
    0: top: INTEGER;
       left: INTEGER;
       bottom: INTEGER;
       right: INTEGER;
       
   |1: topLeft: Point;
       botRight: Point;
  END; (* CASE *)
              END; (* RECORD *)
       
   CONST
     CX = 355B;
     QuickDraw1ModNum = 2; (* absolute module number 
        of QuickDraw1 *)
   VAR
      r: Rect; NumDisks: CARDINAL;
      
   PROCEDURE SetRect (VAR r: Rect; left,top,right,bottom: INTEGER);
      CODE CX; QuickDraw1ModNum; 51 END SetRect;
   
   PROCEDURE PaintRect  (r: Rect);
      CODE CX; QuickDraw1ModNum; 62 END PaintRect;
   
   PROCEDURE PaintRoundRect(r: Rect; ovWd, ovHt: INTEGER);
      CODE CX; QuickDraw1ModNum; 67 END PaintRoundRect;
   
   PROCEDURE DrawBase;
      CONST 
  BaseLeft = 36;
  BaseTop = 261;
  BaseRight = 476;
  BaseBottom = 270;
   BEGIN 
      SetRect(r,BaseLeft,BaseTop,BaseRight,BaseBottom);
      PaintRect(r);
   END DrawBase;
   
   PROCEDURE DrawPosts;
      CONST
         PostTop = 144;
  PostBottom = 261;
  PostWidth = 6;
  HalfPostWidth = PostWidth DIV 2;
  PostPosition = 128;
      VAR
         n, PostLeft, PostRight: INTEGER;
   BEGIN
      n:=1;
      WHILE n <= 3 DO
  PostLeft := (PostPosition * n) - HalfPostWidth;
  PostRight := PostLeft + PostWidth;
  SetRect(r,PostLeft,PostTop,PostRight,PostBottom);
  PaintRect(r);
  n:= n + 1;
      END; (* WHILE *)
   END DrawPosts;
   
   PROCEDURE DrawVarDisks(numberofdisks: CARDINAL);
      CONST
         bigdiskleft = 128 - 60;
  bigdisktop = 261 - 12;
  bigdiskright = 128 + 60;
  bigdiskbottom = 261;
  deltalength = 5;
  deltadepth = 12;
      VAR leftedge, topedge, rightedge, bottomedge: INTEGER;
          i: CARDINAL;
   BEGIN
      IF (numberofdisks > 2) AND (numberofdisks < 10)
         THEN
     leftedge := bigdiskleft; topedge := bigdisktop;
     rightedge := bigdiskright; bottomedge := bigdiskbottom;
     SetRect(r,leftedge,topedge,rightedge,bottomedge);
     PaintRoundRect(r,40,40);
     FOR i := 1 TO numberofdisks - 1 DO
        leftedge := leftedge + deltalength;
        topedge := topedge - deltadepth;
        rightedge := rightedge - deltalength;
        bottomedge := bottomedge - deltadepth;
        SetRect(r,leftedge,topedge,rightedge,bottomedge);
        PaintRoundRect(r,40,40);
     END; (* FOR *)
  END; (* IF *)
   END DrawVarDisks;
   
   PROCEDURE GetInput(VAR NDisks: CARDINAL);
   BEGIN
      ClearScreen;
      WriteString(“Enter number of disks (between 3 to 9)”);
      WriteLn;
      WriteString(“To quit - enter number out of range”);
      ReadCard(NDisks);
      ClearScreen;
   END GetInput;
   
   PROCEDURE InitGraphics(NumberofDisks: CARDINAL);
   BEGIN
      DrawBase;
      DrawPosts;
      DrawVarDisks(NumberofDisks);
   END InitGraphics;
   
   PROCEDURE ExecuteTowers;
   VAR Delay: CARDINAL;
   BEGIN
      FOR Delay := 1 TO 30000 DO  END; (* FOR *)
   END ExecuteTowers;
   
BEGIN
   GetInput(NumDisks);
   WHILE (NumDisks >= 3) AND (NumDisks <= 9) DO
      InitGraphics(NumDisks);
      ExecuteTowers;
      GetInput(NumDisks);
   END; (* WHILE *)
END Hanoi.
     

 
AAPL
$524.94
Apple Inc.
+5.93
MSFT
$40.01
Microsoft Corpora
-0.39
GOOG
$536.10
Google Inc.
-20.44

MacTech Search:
Community Search:

Software Updates via MacUpdate

Mac DVDRipper Pro 4.1.7 - Copy, backup,...
Mac DVDRipper Pro is the DVD backup solution that lets you protect your DVDs from scratches, save your batteries by reading your movies from your hard disk, manage your collection with just a few... Read more
PDFpenPro 6.2 - Advanced PDF toolkit for...
PDFpenPro allows users to edit PDF's easily. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Create... Read more
PDFpen 6.2 - Edit and annotate PDFs with...
PDFpen allows users to easily edit PDF's. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Features... Read more
Monolingual 1.5.9 - Remove unwanted OS X...
Monolingual is a program for removing unnecesary language resources from OS X, in order to reclaim several hundred megabytes of disk space. It requires a 64-bit capable Intel-based Mac and at least... Read more
Maya 2015 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
Starcraft II: Wings of Liberty 1.1.1.180...
Download the patch by launching the Starcraft II game and downloading it through the Battle.net connection within the app. Starcraft II: Wings of Liberty is a strategy game played in real-time. You... Read more
Sibelius 7.5.0 - Music notation solution...
Sibelius is the world's best-selling music notation software for Mac. It is as intuitive to use as a pen, yet so powerful that it does most things in less than the blink of an eye. The demo includes... Read more
Typinator 5.9 - Speedy and reliable text...
Typinator turbo-charges your typing productivity. Type a little. Typinator does the rest. We've all faced projects that require repetitive typing tasks. With Typinator, you can store commonly used... Read more
MYStuff Pro 2.0.16 - Create inventories...
MYStuff Pro is the most flexible way to create detail-rich inventories for your home or small business. Add items to MYStuff by dragging and dropping existing information, uploading new images, or... Read more
TurboTax 2013.r17.002 - Manage your 2013...
TurboTax guides you through your tax return step by step, does all the calculations, and checks your return for errors and overlooked deductions. It lets you file your return electronically to get... Read more

Latest Forum Discussions

See All

Trials Frontier Review
Trials Frontier Review By Carter Dotson on April 18th, 2014 Our Rating: :: A ROUGH LANDINGUniversal App - Designed for iPhone and iPad Trials Frontier finally brings the famed stunt racing franchise to mobile, but how much does its... | Read more »
Evernote Business Notebook by Moleskin I...
Evernote Business Notebook by Moleskin Introduced – Support Available in Evernote for iOS Posted by Tre Lawrence on April 18th, 2014 [ permalink ] | Read more »
Sparkle Unleashed Review
Sparkle Unleashed Review By Jennifer Allen on April 18th, 2014 Our Rating: :: CLASSY MARBLE FLINGINGUniversal App - Designed for iPhone and iPad It’s a concept we’ve seen before, but Sparkle Unleashed is a solidly enjoyable orb... | Read more »
Tilt to Live 2: Redonkulus Receives its...
Tilt to Live 2: Redonkulus Receives its First Update – Gets New Brimstone Pinball DLC Posted by Rob Rich on April 18th, 2014 [ permalink ] | Read more »
Union Review
Union Review By Jennifer Allen on April 18th, 2014 Our Rating: :: LAYERED RESULTSUniversal App - Designed for iPhone and iPad Create some stylish imagery with this layers focused photography app.   | Read more »
Where's My Water? Featuring XYY (G...
Where's My Water? Featuring XYY 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: iPod Touch 4th Gen, iPhone 3GS or iPad 1 are not compatible with this app. | Read more »
The Amazing Spider-Man 2 (Games)
The Amazing Spider-Man 2 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: *IMPORTANT* The Amazing Spider-Man 2 requires an iPad 2 (or newer), iPhone 4s (or newer), or iPod touch 5th... | Read more »
Living Planet - Tiny Planet Videos and P...
Living Planet - Tiny Planet Videos and Photos 1.0 Device: iOS Universal Category: Photography Price: $.99, Version: 1.0 (iTunes) Description: 50% OFF LAUNCH SPECIAL! BUY NOW BEFORE THE PRICE GOES UP... | Read more »
Livescribe 3 Smartpen Review
Made by: Livescribe Price: $149.99 for Livescribe 3 Hardware/iOS Integration Rating: 4.5 out of 5 stars Usability Rating: 4 out of 5 stars Reuse Value Rating: 4.75 out of 5 stars Build Quality Rating: 4.5 out of 5 stars Overall Rating: 4.44 out of... | Read more »
Unpossible Review
Unpossible Review By Carter Dotson on April 17th, 2014 Our Rating: :: RALPH WIGGUM APPROVESUniversal App - Designed for iPhone and iPad Unpossible is much better than its English!   | Read more »

Price Scanner via MacPrices.net

iMacs on sale for up to $160 off MSRP this we...
Best Buy has iMacs on sale for up to $160 off MSRP for a limited time. Choose free home shipping or free instant local store pickup (if available). Prices are valid for online orders only, in-store... Read more
iPad Airs on sale this weekend for up to $100...
Best Buy has WiFi iPad Airs on sale for $50 off MSRP and WiFi + Cellular iPad Airs on sale for $100 off MSRP on their online store for a limited time, with prices now starting at $449. Choose free... Read more
Apple restocks refurbished Mac minis starting...
The Apple Store has restocked Apple Certified Refurbished Mac minis for up to $150 off the cost of new models. Apple’s one-year warranty is included with each mini, and shipping is free: - 2.5GHz Mac... Read more
Hyundai Brings Apple CarPlay To The 2015 Sona...
Hyundai Motor America has announced it will bring Apple CarPlay functionality to the 2015 Sonata. CarPlay is pitched as a smarter, safer and easier way to use iPhone in the car and gives iPhone users... Read more
Updated iPads Coming Sooner Than We Had Thoug...
MacRumors, cites KGI securities analyst Ming Chi Kuo, well-respected as an Apple product prognisticator, saying that Apple will introduce an upgraded iPad Air and iPad mini in 2014/Q3, meaning the... Read more
Toshiba Unveils New High And Low End Laptop M...
Toshiba has announced new laptop models covering both the high-end and low-end of the notebook computer spectrum. Toshiba 4K Ultra HD Laptop Toshiba’s new Satellite P55t features one of the world’s... Read more
Save up to $270 with Apple refurbished 13-inc...
The Apple Store has Apple Certified Refurbished October 2013 13″ Retina MacBook Pros available starting at $1099, with models up to $270 off MSRP. Apple’s one-year warranty is standard, and shipping... Read more
Apple now offering refurbished iPad mini with...
The Apple Store has Certified Refurbished 2nd generation iPad minis with Retina Displays now available starting at $339. Apple’s one-year warranty is included with each model, and shipping is free.... Read more
Microsoft Blinks – Drops Microsoft Office 365...
Microsoft has dropped the annual subscription fee for Microsoft Office 365 Personal – which is needed in order to create and edit documents in Microsoft Office for iPad. However, Apple’s iOS and OS X... Read more
New AVG Vault Apps for iOS and Android Help K...
AVG Technologies N.V. an online security company for 177 million active users, has announced the launch of its latest mobile application, AVG Vault. The free app introduces an innovative user... Read more

Jobs Board

*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Retail - Manager - Holyoke - Apple I...
Job Summary Keeping an Apple Store thriving requires a diverse set of leadership skills, and as a Manager, you’re a master of them all. In the store’s fast-paced, Read more
*Apple* Retail - Manager - Apple (United Sta...
Job SummaryKeeping an Apple Store thriving requires a diverse set of leadership skills, and as a Manager, you're a master of them all. In the store's fast-paced, dynamic Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Retail - Market Leader - Cincinnati...
…challenges of developing individuals, building teams, and affecting growth across Apple Stores. You demonstrate successful leadership ability - focusing on excellence Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.