Quo Vadis (Mac OS Classic)

Quo Vadis is a free Mac adaptation of the Klotski sliding tile puzzle.

Source Excerpt#

The game's boss key feature - ⌘P for "Panic" - replaces the game window with a still shot of the game's own code under development.

Hopefully, whatever you're supposed to be doing looks a lot like Pascal source.

theItem := LoWord(mResult);
theMenu := HiWord(mResult);
case theMenu of
 appleID:
  if theItem = 1 then
   ShowAbout
  else
   begin
    GetItem(MyMenus[appleM], theItem, name);
    temp := OpenDeskAcc(name)
   end;
 editID:
  begin
   if not SystemEdit(theItem - 1) then
    case theItem of
     2:
      begin
       TECut(textH);
       templ := ZeroScrap;
       temp := TEtoScrap
      end;
     3: