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

Coda 2.6 - One-window Web development su...
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
File Juicer 4.51 - Extract images, video...
File Juicer is a drag-and-drop can opener and data archaeologist. Its specialty is to find and extract images, video, audio, or text from files which are hard to open in other ways. In computer... Read more
PDFpenPro 8.3 - $124.95
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. Create fillable forms and tables of content... Read more
PDFpen 8.3 - $74.95
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
BetterTouchTool 1.963 - 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
iFFmpeg 6.2.2 - Convert multimedia files...
iFFmpeg is a comprehensive media tool to convert movie, audio and media files between formats. The FFmpeg command line instructions can be very hard to master/understand, so iFFmpeg does all the hard... Read more
ForeverSave 2.1.6 - Universal auto-save...
ForeverSave auto-saves all documents you're working on while simultaneously doing backup versioning in the background. Lost data can be quickly restored at any time. Define your preferred time... Read more
NTFS 14.3.318 - $19.95
This latest version supports the new macOS 10.12 Sierra! NTFS breaks down the barriers between Windows and OS X. Paragon NTFS effectively solves the communication problems between the Mac system and... Read more
BetterTouchTool 1.961 - 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
NTFS 14.3.318 - $19.95
This latest version supports the new macOS 10.12 Sierra! NTFS breaks down the barriers between Windows and OS X. Paragon NTFS effectively solves the communication problems between the Mac system and... Read more

Latest Forum Discussions

See All

Clash of Clans is getting its own animat...
Riding on its unending wave of fame and success, Clash of Clans is getting an animated web series based on its Clash-A-Rama animated shorts.As opposed to the current shorts' 60 second run time, the new and improved Clash-A-Rama will be comprised of... | Read more »
Leaks hint at Pokémon GO and Starbucks C...
Leaked images from a hub for Starbucks employees suggests that a big Pokémon GO event with the coffee giant could begin this very week. The images appeared on Reddit and hint at some exciting new things to come for Niantic's smash hit game. | Read more »
Silent Depth Submarine Simulation (Game...
Silent Depth Submarine Simulation 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: | Read more »
Enneas Saga lets you lead your own demon...
Defend the land of Enneas Continent from the forces of evil in the new fantasy MMORPG from Lyto Mobi: Enneas Saga. Can’t wait? No problem. It’s available to download now on Android devices. | Read more »
Great zombie games in the spirit of Dead...
Dead Rising 4 arrives tomorrow, giving enthusiasts a fresh chance to take selfies with zombies and get up to other ridiculous end-of-the-world shenanigans. To really get into the spirit of things, we've gone and gathered the best zombie games that... | Read more »
Amateur Surgeon 4 Guide: Advanced tips a...
Amateur Surgeon 4 is still tackling the competition at the top of the App Store charts, so if you haven't tried it out yet, you should probably do that right away. If you've been at it for a while, though, perhaps you're ready to start expanding... | Read more »
Amateur Surgeon 4 Guide: Become the worl...
It's time to wield your trusty pizza cutter again, as Amateur Surgeon has returned with a whole fresh set of challenges (and some old, familiar ones, too). Starting anew isn't easy, especially when all you have at your disposal is a lighter, the... | Read more »
Le Parker: Sous Chef Extraordinaire (Ga...
Le Parker: Sous Chef Extraordinaire 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: | Read more »
Telltale Games really is working on a Gu...
Telltale Games' next episodic adventure is indeed Guardians of the Galaxy. A document tied to the voice actors strike suggested that the project was in the work, but now we have direct confirmation following an announcement at the Game Awards that... | Read more »
Amateur Surgeon returns to iOS and Andro...
Amateur Surgeon and its two sequels disappeared from the App Store some time and it was sad days for all. But now, just in time for the holidays, the Adult Swim favorite makes its joyous return in the shape of Amateur Surgeon 4, a remake with... | Read more »

Price Scanner via MacPrices.net

12-inch WiFi Apple iPad Pros on sale for up t...
B&H Photo has 12″ WiFi Apple iPad Pros on sale for up to $50 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50 off MSRP... Read more
9-inch Apple WiFi iPad Pros on sale for $20-$...
B&H Photo has 9.7″ Apple WiFi iPad Pros on sale for $20-$50 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 256GB WiFi iPad Pro: $779.95 $20 off MSRP... Read more
Apple refurbished 2015 15-inch MacBook Pros a...
Apple has Certified Refurbished 2015 15″ Retina MacBook Pros available starting at $1699. An Apple one-year warranty is included with each model, and shipping is free: - 15″ 2.2GHz Retina MacBook Pro... Read more
Back in stock! 13-inch 2.7GHz Retina MacBook...
Apple has Apple Certified Refurbished 2015 13″ 2.7GHz/128GB Retina MacBook Pros (MF839LL/A) available again for $1099 including free shipping. That’s $200 off MSRP, and it’s the lowest price... Read more
Slate Tablet Market Share to Fall Below 75% i...
After two years of decline, the tablet market is showing signs of new life as productivity trumps entertainment, and tablets become cost-effective computing devices for both entertainment and... Read more
Yostand Launches Indigogo campaign for iStand...
China-based startup Yostand (meaning ‘your stand’), has announced the launch of its Indigogo campaign for their newly awaited iStand7. This product is a one of a kind iPhone battery case that offers... Read more
Green App – Budget Forecasting Now Available...
Indianapolis, Indiana based CoopToons has announced the release of Green – Budget Forecasting 1.5, an update to their personal budgeting app developed exclusively for iOS devices. Green aims to be a... Read more
New 2016 13-inch 2.0GHz MacBook Pros in stock...
Overstock.com has the non-Touch Bar 13″ MacBook Pros in stock today for $150 off MSRP. Shipping is free: - 13″ 2.0GHz MacBook Pro Space Gray (MLL42LL/A): $1349.99 $150 off MSRP - 13″ 2.0GHz MacBook... Read more
15-inch 2.6GHz Silver Touch Bar MacBook Pro o...
Adorama has the new 2016 15″ 2.6GHz Silver Touch Bar MacBook Pro (MLW72LL/A) in stock and available for $2349 including free shipping. Adorama charges sales tax in NY & NJ only. Their price is $... Read more
13-inch MacBook Airs on sale for up to $180 o...
Overstock.com has 13″ MacBook Airs on sale for up to $180 off MSRP including free shipping: - 13″ 1.6GHz/128GB MacBook Air (MMGF2LL/A): $869.99 $130 off MSRP - 13″ 1.6GHz/256GB MacBook Air (sku... Read more

Jobs Board

*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
Lead *Apple* Solutions Consultant - Apple (...
# Lead Apple Solutions Consultant Job Number: 53586123 Pittsburgh, Pennsylvania, United States Posted: Nov. 28, 2016 Weekly Hours: 40.00 **Job Summary** The Lead ASC Read more
*Apple* Retail - Multiple Positions- Plano,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions- Kansas...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions- Chicago...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.