public I64 PopUpTourPart()
{
  I64 i;
  CDoc *doc=DocNew;
  DocPrint(doc,"$$PURPLE$$TempleOS Tours$$FG$$\n\n"
	"$$CM+LX,4,4$$$$BT,\"Part  1: The basics\",LE=1$$"
	"$$CM+LX,4,4$$$$BT,\"Part  2: Editing and running programs\",LE=2$$"
	"$$CM+LX,4,4$$$$BT,\"Part  3: Adding macros to PersonalMenu\",LE=3$$"
	"$$CM+LX,4,4$$$$BT,\"Part  4: Choose filename, choose dir\",LE=4$$"
	"$$CM+LX,4,4$$$$BT,\"Part  5: WordStat\",LE=5$$"
	"$$CM+LX,4,4$$$$BT,\"Part  6: Search (Grep)\",LE=6$$"
	"$$CM+LX,4,4$$$$BT,\"Part  7: TempleOS File masks\",LE=7$$"
	"$$CM+LX,4,4$$$$BT,\"Part  8: Editor filter\",LE=8$$"
	"$$CM+LX,4,4$$$$BT,\"Part  9: Debugging\",LE=9$$"
	"$$CM+LX,4,4$$$$BT,\"Part 10: Wow!!\",LE=10$$"
	"$$CM+LX,4,4$$$$BT,\"Part 11: Test Suite\",LE=11$$"
	"$$CM+LX,4,4$$$$BT,\"Done\",LE=DOCM_CANCEL$$\n");
  doc->flags|=DOCF_FORM;
  i=SrvUser("WinMax;DocMenuDo(0x%X,0);",doc);
  DocDel(doc);
  return i;
}

U0 TourMenu()
{
  U8 buf[128];
  I64 i;
  while (TRUE) {
    i=PopUpTourPart;
    if (i>0) {
      StrPrint(buf,"::/Misc/Tour/Tour%X.AUT",i);
      ExeFile(buf);
    } else
      break;
  }
}

"DocClear;WinMax;\n";
WinMgrSync(2);
TourMenu;
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"Cd(\"HOME\");Dir;\n";