LTCD_070816.ISO

2018-09-08 21:45:20 +02:00
1 parent d14bbc24f9
commit 0e9364ff4c
@@ -0,0 +1,37 @@
+public I8 PopUpTourPart()
+{
+  I8 i;
+  Ltf *l=LtfNew;
+  LtfPutSExt(l,"$$FG PURPLE$$LoseThos Tours$$FG$$\r\n\r\n");
+  LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 1: The basics\",1$$");
+  LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 2: Editing and running programs\",2$$");
+  LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 3: Adding macros to your start menu\",3$$");
+  LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 4: WordStat\",4$$");
+  LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 5: Wow!!\",5$$");
+  LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Done\",-1$$");
+  i=PopUpMenu(l);
+  LtfDel(l);
+  return i;
+}
+
+I8 i;
+do {
+  switch (i=PopUpTourPart)
+  {
+    case 1:
+      ExecuteFile("::/LT/Accts/Tour/Tour1.AUZ");
+      break;
+    case 2:
+      ExecuteFile("::/LT/Accts/Tour/Tour2.AUZ");
+      break;
+    case 3:
+      ExecuteFile("::/LT/Accts/Tour/Tour3.AUZ");
+      break;
+    case 4:
+      ExecuteFile("::/LT/Accts/Tour/Tour4.AUZ");
+      break;
+    case 5:
+      ExecuteFile("::/LT/Accts/Tour/Tour5.AUZ");
+      break;
+  }
+} while (i>=1);