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.
     

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

NeoFinder 7.1 - Catalog your external me...
NeoFinder (formerly CDFinder) rapidly organizes your data, either on external or internal disks, or any other volumes. It catalogs all your data, so you stay in control of your data archive or disk... Read more
TunnelBear 3.0.15 - Subscription-based p...
TunnelBear is a subscription-based virtual private network (VPN) service and companion app, enabling you to browse the internet privately and securely. Features Browse privately - Secure your data... Read more
Hopper Disassembler 4.2.5- - Binary disa...
Hopper Disassembler is a binary disassembler, decompiler, and debugger for 32-bit and 64-bit executables. It will let you disassemble any binary you want, and provide you all the information about... Read more
BetterTouchTool 2.261 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Sketch 44.1 - Design app for UX/UI for i...
Sketch is an innovative and fresh look at vector drawing. Its intentionally minimalist design is based upon a drawing space of unlimited size and layers, free of palettes, panels, menus, windows, and... Read more
BetterTouchTool 2.260 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
Chromium 59.0.3071.115 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 59.0.3071.115: This update has no Flash plug... Read more
SyncTwoFolders 2.2.3 - Syncs two user-sp...
SyncTwoFolders simply synchronizes two folders. It supports synchronization across mounted network drives and it is a possibility to run a simulation showing in a log what will be done. Please visit... Read more
Myriad 4.1 - $79.00
Myriad is, simply put, one of the best audio batch processors. Totally redesigned, it looks beautiful and delivers incredible performance. Let Myriad do the heavy lifting while you get back to doing... Read more
Suitcase Fusion 7 18.2.4 - Font manageme...
Suitcase Fusion 7 is the creative professional's font manager. Every professional font manager should deliver the basics: spectacular previews, powerful search tools, and efficient font organization... Read more

Latest Forum Discussions

See All

Missile Cards (Games)
Missile Cards 1.0.9 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.9 (iTunes) Description: "Missile Command meets Solitaire...only with more doomlasers, death, and explosions." | Read more »
Collect mini assassins in 'Assassin...
Assassin's Creed is traveling back in time to the Spanish Inquisition for its latest mobile entry, Assassin's Creed Rebellion. The game is giving the series a look that's a huge departure from its past design, recreating classic characters in a... | Read more »
Animal Crossing is still coming to mobil...
Animal Crossing is still coming to mobile in 2017, according to aWaypointinterview with Nintendo. Announced in 2016, the game was delayed without a defined release window. However, fans of Nintendo's fantasy slice of life game won't have to wait... | Read more »
Ravenscroft 275 Piano (Music)
Ravenscroft 275 Piano 1.0.0 Device: iOS Universal Category: Music Price: $35.99, Version: 1.0.0 (iTunes) Description: Experience the splendor of a Ravenscroft Grand with the most realistic sounding piano ever created for iOS. Launch... | Read more »
This War of Mine gets a new ending and m...
This War of Mine just got a big new update, featuring free DLC that adds a new ending to the game, among other exciting changes. The update is celebrating the game's two-year release anniversary. Apart from the new ending, which will be quite... | Read more »
Summon eight new heroes in Fire Emblem H...
Nintendo keeps coming at us with Fire Emblem Heroes updates, and it doesn't look like that trend is stopping anytime soon. The folks behind the game have just announced the new War of the Clerics Voting Gauntlet, expected to start next Tuesday. [... | Read more »
The best deals on the App Store this wee...
iOS publishers are pulling out all the stops this week -- there's a huge number of seriously great games at discounted prices this week. Let's not waste any time and get right down to business. [Read more] | Read more »
The House of da Vinci (Games)
The House of da Vinci 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Enter The House of Da Vinci, a new must-try 3D puzzle adventure game. Solve mechanical puzzles, discover hidden... | Read more »
Solve the disappearance of history’s gre...
Blue Brain Games invites you to indulge in an immersive hands-on 3D puzzle adventure in similar vein to The Room series, with its debut release The House of Da Vinci. Set during the historic period of the Italian Renaissance (when Leonardo himself... | Read more »
Age of Rivals (Games)
Age of Rivals 3.3 Device: iOS Universal Category: Games Price: $.99, Version: 3.3 (iTunes) Description: Deep civilization-building strategy in a fast-paced card game! | Read more »

Price Scanner via MacPrices.net

Clearance 2016 13-inch MacBook Pros available...
B&H Photo has clearance 2016 13″ MacBook Pros in stock today for up to $210 off original MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: - 13″ 2.9GHz/512GB Touch Bar... Read more
Apple Releases iOS 11 Public Beta; How To Get...
The official release of Apple’s latest mobile operating system iOS 11 is vaguely slated for the fall, but as of June 26, ordinary users can download an iOS 11 public beta. To download the iOS 11... Read more
Extend Life of MacBook Pro Retina 2.0TB With...
MacSales.com/Other World Computing has announced availability of the new OWC 2.0TB Aura Pro Solid State Drive for mid-2012 to early 2013 Apple MacBook Pro with Retina display. One of the fastest... Read more
BBEdit SummerFest 2017 Discount Ends Friday,...
You can get 20% off BBEdit for a limited time in Bare Bones Software’s http://www.eastgate.com/Tinderbox/Specials/SummerFest.html?mc_cid=f2101ca260&mc_eid=[UNIQID]SummerFest 2017 sale and... Read more
Use Apple’s Education discount to save up to...
Purchase a new Mac using Apple’s Education discount, and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: - 15″ 2... Read more
Clearance 27-inch 3.3GHz 5K iMac available fo...
Amazon clearance 27″ 3.3GHz 5K iMacs (MK482LL/A) available for $1799.90 including free shipping. Their price is $500 off original MSRP, and it’s the lowest price available for this model from any... Read more
13-inch 1.8GHz/256GB MacBook Air on sale for...
B&H Photo has the updated 2017 13″ 1.8GHz/256GB MacBook Air (MQD42LL/A) in stock and on sale for $1129 including free shipping plus NY & NJ tax only. Their price is $70 off MSRP. Read more
27-inch 3.4GHz iMac on sale for $1699, save $...
B&H Photo has the new 2017 27″ 3.4GHz iMac (MNE92LL/A) in stock and on sale for $1699 including free shipping plus NY & NJ sales tax only. Their price is $100 off MSRP. Read more
21-inch 2.3GHz iMac on sale for $1049, save $...
B&H Photo has the new 2017 21″ 2.3GHz iMac (MMQA2LL/A) in stock and on sale for $1049 including free shipping plus NY & NJ tax only. Their price is $50 off MSRP. Read more
ABBYY TextGrabber 6 for iOS Implements Instan...
ABBYY has announced the release of TextGrabber 6.0.0, an important feature update to the company’s productivity app developed for iOS and Android devices. TextGrabber 6.0 now offers Real-Time... Read more

Jobs Board

*Apple* News Product Marketing Mgr., Publish...
…organizational consensus on strategy and vision for publisher tools, authoring, and Apple News Format.Carries this strategy and vision across the organization to Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Security Data Analyst - *Apple* Information...
…data sources need to be collected to allow Information Security to better protect Apple employees and customers from a wide range of threats.Act as the subject matter Read more
Lead *Apple* Solutions Consultant - Apple I...
…integrity, and trust.Success Metrics/Key Performance Indicators:Quantitative* Year over Year growth in Apple Product and Beyond the Box sales in the assigned Point of Read more
*Apple* Solutions Consultant till v%u00E5r...
…ethics, integrity, and trust.Success Metrics/Key Performance Indicators:QuantitativeYear over Year growth in Apple Product and Beyond the Box sales in the assigned Point Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.