LTCD_070816.ISO

LT/Accts/Adam3.APZ

@@ -0,0 +1,181 @@
+//Change anything you want in this
+//account file or others.
+
+//Set Time Zone
+local_time_offset=0*60*60*LTDATE_FREQ;
+
+//$AN,"","mouse_move_scale"$adjust these to set mouse move scale
+mxx_scale=0.5;
+myy_scale=0.5;
+mzz_scale=1.0; //wheel
+
+//don't change these
+mxx_prescale=mxx/mxx_scale;
+myy_prescale=myy/myy_scale;
+mzz_prescale=mzz/mzz_scale;
+
+class RenameSymbolStruct
+{
+  I1 find[256]	  fmtstr "$$DA -P ,255 \"Find   :%s\"$$\r\n";
+  I1 replace[256] fmtstr "$$DA -P ,255 \"Replace:%s\"$$\r\n";
+};
+
+void RenameCurSymbol()
+{
+  I1 *buf;
+  RenameSymbolStruct r;
+  BoolU4 old_preempt=Preempt(OFF);
+  StrCpy(r.find,ws_cur_word);
+  StrCpy(r.replace,ws_cur_word);
+  Preempt(old_preempt);
+  if (PopUpDoForm(&r,"RenameSymbolStruct")) {
+    buf=MSPrintF("R(\"%s\",\"%s\",\"+r+l+a\");",r.find,r.replace);
+    PopUp(buf,Fs);
+    Free(buf);
+  }
+}
+
+void RenameFile()
+{
+  I1 *buf;
+  RenameSymbolStruct r;
+  BoolU4 old_preempt=Preempt(OFF);
+  StrCpy(r.find,ws_cur_word);
+  StrCpy(r.replace,ws_cur_word);
+  Preempt(old_preempt);
+  if (PopUpDoForm(&r,"RenameSymbolStruct")) {
+    buf=MSPrintF("R(\"%s\",\"%s\",\"+r+l+a\");",r.find,r.replace);
+    PopUp(buf,Fs);
+    Free(buf);
+  }
+  Move(r.find,r.replace);
+}
+
+void FillinTime()
+{
+  LTDate ltdt;
+  ltdt=GetCurTimeLTDate;
+  PrintF("$$IV 1$$----%D %T----$$IV 0$$\r",ltdt,ltdt);
+}
+
+
+BoolU8 MyPutKey(I8 ch,U8 sc)
+{  //ch=ASCII; sc=scancode
+
+//You can customize keys.  This routine
+//is called before the main editor
+//key handler $LK,"LtfPutKeyExt","MN:LtfPutKeyExt"$().
+//You can intercept any key.
+
+//Return TRUE if you completely
+//handled the key.
+
+  nounusedwarn ch;
+  U8 sc2=sc.u1[0];
+
+  if (sc2>=SC_F1 && sc2<=SC_F10 &&
+       (sc & SCF_ALT) &&
+      !(sc & SCF_CTRL)) {
+    if (sc2==SC_F1) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTPURPLE$$");
+      else
+	PutS("$$FG PURPLE$$");
+    } else if (sc2==SC_F2) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTRED$$");
+      else
+	PutS("$$FG,RED$$");
+    } else if (sc2==SC_F3) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTGREEN$$");
+      else
+	PutS("$$FG,GREEN$$");
+    } else if (sc2==SC_F4) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTBLUE$$");
+      else
+	PutS("$$FG$$");
+    } else if (sc2==SC_F6) {
+      if (!(sc & SCF_SHIFT))
+	PopUp("WsInit(\"/LT\");");
+    } else if (sc2==SC_F7) {
+      if ((sc & SCF_SHIFT))
+	LtfSafeInsert(Fs->cur_ltf,
+	  "$$HS+C$$$$FG$$$$HE$$");
+      else
+	FillinTime();
+    } else if (sc2==SC_F8) {
+      if ((sc & SCF_SHIFT))
+	RenameFile();
+      else
+	RenameCurSymbol();
+    } else if (sc2==SC_F9)
+      PopUp("PunchIn;");
+    else if (sc2==SC_F10)
+      PopUp("PunchOut;");
+    return TRUE;
+  }
+  return FALSE;
+}
+
+BoolU8 MyPutS(I1 *st)
+{
+  nounusedwarn st;
+  return FALSE;
+}
+
+AddKeyDev(&MyPutKey,&MyPutS,0x20000000);
+
+MPStart;
+Cd("/LT/Adam");;
+#include "PicWords2"
+#include "HOME/PicWords3"
+Cd("/LT/Utils/Boot");;
+#include "InsBoot"
+Cd("/LT/Utils");;
+#include "Disk20"
+#include "Diff"
+#include "Grep"
+#include "Merge"
+#include "S2T"
+#include "IDE"
+#include "LinkChk"
+#include "HeapLog"
+#include "ListFile"
+LoadMapFile("::/LT/OSMain/OS.MPZ");  //Enable Man()
+LoadMapFile("::/LT/Compiler/Compiler.MPZ");	//Enable Man()
+LoadMapFile("::/LT/Adam/GrAsm/GrAsm.MPZ");	//Enable Man()
+
+
+void StartUpTsks()
+{
+  I1 buf[80];
+  TssStruct *tss,*tss1;
+
+  InitLocalTask; //needed for disk access
+  Preempt(ON);	//off by default
+  Silent(ON);	//no output to screen
+
+  try {
+    tss1=SpawnUser;
+    tss=SpawnUser;
+    WinToTop(tss1);
+    WinTileVert;
+
+    PopUp("#include \"::/LT/Doc/StartSong.CPZ\";");
+
+    SPrintF(buf,"Boot Time:%h17Ts\r\n",BootTime);
+    AdamLog(buf);
+    XTalk(tss1,"#include \"DoIt\";\r");
+
+    WsInit("/LT");
+    WordStat;
+  } catch
+    CatchAll;
+}
+
+//This must be spawned because start-up files
+// may invoke the Adam() cmd.
+Spawn(&StartUpTsks,"Spawn Users");
+PrintF("\r\nOS Compile Time:%D %T\r\n",sys_compile_time,sys_compile_time);

LT/Accts/Fault.CPZ

@@ -0,0 +1,51 @@
+/* When a fault occurs, a child process is
+spawned running this file and the parent
+gets suspended.  You can modify what gets
+displayed during faults to assist debugging.
+
+If you modify this file, you should place it
+into your HOME directory.  This version is the
+default for accounts without a version in HOME.
+*/
+
+TssStruct *tss=Fs->parent_tss;
+void **rsp_ptr=&tss->rsp,*rsp=tss->rsp,
+    *rbp_ptr=&tss->rbp,*rbp=tss->rbp,
+    *rip_ptr=&tss->rip,*rip=tss->rip;
+
+switch (tss->fault_num)
+{
+  case 0: //if divide except
+    //push rip as param to ThrowDivide
+    rsp-=8;
+    *rsp_ptr=rsp;
+    rsp[1]=rip;
+    *rip_ptr=&ThrowDivide;
+    Btr(&tss->task_flags,TSSf_SUSPENDED);
+    Exit;
+  case 0x10:
+    rsp-=8;
+    *rsp_ptr=rsp;
+    rsp[1]=rip;
+    *rip_ptr=&ThrowFloating;
+    Btr(&tss->task_flags,TSSf_SUSPENDED);
+    Exit;
+}
+
+/*
+Raw(ON);
+coutln "Faulting TSS:",tss," IRQ#",tss->fault_num;
+PrintF("Fault Location:%P\r\n",*rip);
+Raw(OFF);
+*/
+
+UseConsoleLtf(NULL);
+Bts(&Fs->crt_flags,CRTf_SHOW);
+
+coutln "Faulting TSS:",tss," IRQ#",tss->fault_num;
+CallerRep(rbp,tss);
+StackRep(rsp);
+coutln "$$LK,\"See HOME/Fault.CPZ\",\"FI:HOME/Fault.CPZ\"$$";
+Dasm(rip-0x20,0x20);
+
+

LT/Accts/Favor.MUZ

@@ -0,0 +1,16 @@
+$WW,1$This is a handy file which can be accessed with CTRL-SHIFT-F, known as a favorites file.	I use it for links and "TODO" type stuff in my account.
+
+If you modify this file, you should place it
+into your HOME directory.  This version is the
+default for accounts without a version in HOME. 
+
+$LK+S,"Goto OS Systext","FA:::/LT/OSMain/SysText.CPZ,OS_SYSTEXT"$
+$LK,"Goto Compiler Systext","FA:::/LT/Compiler/CmpInit.CPZ,COMPILE_SYSTEXT"$
+
+$LK,"::/LT/Doc/Help.TXZ","FI:::/LT/Doc/Help.TXZ"$
+$LK,"::/LT/Doc/GuideLines.TXZ","FI:::/LT/Doc/GuideLines.TXZ"$
+$LK,"::/LT/Doc/OSGlossary.GLZ","FI:::/LT/Doc/OSGlossary.GLZ"$
+$LK,"::/LT/Doc/Tips.TXZ","FI:::/LT/Doc/Tips.TXZ"$
+$LK,"::/LT/Doc/Dollar.TXZ","FI:::/LT/Doc/Dollar.TXZ"$
+
+$FG,5$

LT/Accts/Install/Adam3.APZ

@@ -0,0 +1,181 @@
+//Change anything you want in this
+//account file or others.
+
+//Set Time Zone
+local_time_offset=0*60*60*LTDATE_FREQ;
+
+//$AN,"","mouse_move_scale"$adjust these to set mouse move scale
+mxx_scale=0.5;
+myy_scale=0.5;
+mzz_scale=1.0; //wheel
+
+//don't change these
+mxx_prescale=mxx/mxx_scale;
+myy_prescale=myy/myy_scale;
+mzz_prescale=mzz/mzz_scale;
+
+class RenameSymbolStruct
+{
+  I1 find[256]	  fmtstr "$$DA -P ,255 \"Find   :%s\"$$\r\n";
+  I1 replace[256] fmtstr "$$DA -P ,255 \"Replace:%s\"$$\r\n";
+};
+
+void RenameCurSymbol()
+{
+  I1 *buf;
+  RenameSymbolStruct r;
+  BoolU4 old_preempt=Preempt(OFF);
+  StrCpy(r.find,ws_cur_word);
+  StrCpy(r.replace,ws_cur_word);
+  Preempt(old_preempt);
+  if (PopUpDoForm(&r,"RenameSymbolStruct")) {
+    buf=MSPrintF("R(\"%s\",\"%s\",\"+r+l+a\");",r.find,r.replace);
+    PopUp(buf,Fs);
+    Free(buf);
+  }
+}
+
+void RenameFile()
+{
+  I1 *buf;
+  RenameSymbolStruct r;
+  BoolU4 old_preempt=Preempt(OFF);
+  StrCpy(r.find,ws_cur_word);
+  StrCpy(r.replace,ws_cur_word);
+  Preempt(old_preempt);
+  if (PopUpDoForm(&r,"RenameSymbolStruct")) {
+    buf=MSPrintF("R(\"%s\",\"%s\",\"+r+l+a\");",r.find,r.replace);
+    PopUp(buf,Fs);
+    Free(buf);
+  }
+  Move(r.find,r.replace);
+}
+
+void FillinTime()
+{
+  LTDate ltdt;
+  ltdt=GetCurTimeLTDate;
+  PrintF("$$IV 1$$----%D %T----$$IV 0$$\r",ltdt,ltdt);
+}
+
+
+
+BoolU8 MyPutKey(I8 ch,U8 sc)
+{  //ch=ASCII; sc=scancode
+
+//You can customize keys.  This routine
+//is called before the main editor
+//key handler $LK,"LtfPutKeyExt","MN:LtfPutKeyExt"$().
+//You can intercept any key.
+
+//Return TRUE if you completely
+//handled the key.
+
+  nounusedwarn ch;
+  U8 sc2=sc.u1[0];
+
+  if (sc2>=SC_F1 && sc2<=SC_F10 &&
+       (sc & SCF_ALT) &&
+      !(sc & SCF_CTRL)) {
+    if (sc2==SC_F1) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTPURPLE$$");
+      else
+	PutS("$$FG PURPLE$$");
+    } else if (sc2==SC_F2) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTRED$$");
+      else
+	PutS("$$FG,RED$$");
+    } else if (sc2==SC_F3) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTGREEN$$");
+      else
+	PutS("$$FG,GREEN$$");
+    } else if (sc2==SC_F4) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTBLUE$$");
+      else
+	PutS("$$FG$$");
+    } else if (sc2==SC_F6) {
+      if (!(sc & SCF_SHIFT))
+	PopUp("WsInit(\"/LT\");");
+    } else if (sc2==SC_F7) {
+      if ((sc & SCF_SHIFT))
+	LtfSafeInsert(Fs->cur_ltf,
+	  "$$HS+C$$$$FG$$$$HE$$");
+      else
+	FillinTime();
+    } else if (sc2==SC_F8) {
+      if ((sc & SCF_SHIFT))
+	RenameFile();
+      else
+	RenameCurSymbol();
+    } else if (sc2==SC_F9)
+      PopUp("PunchIn;");
+    else if (sc2==SC_F10)
+      PopUp("PunchOut;");
+    return TRUE;
+  }
+  return FALSE;
+}
+
+BoolU8 MyPutS(I1 *st)
+{
+  nounusedwarn st;
+  return FALSE;
+}
+
+AddKeyDev(&MyPutKey,&MyPutS,0x20000000);
+
+Cd("/LT/Adam");;
+#include "PicWords2"
+#include "HOME/PicWords3"
+Cd("/LT/Utils/Boot");;
+#include "InsBoot"
+Cd("/LT/Utils");;
+#include "Disk20"
+#include "Diff"
+#include "Grep"
+#include "Merge"
+#include "S2T"
+#include "IDE"
+#include "LinkChk"
+#include "HeapLog"
+#include "ListFile"
+LoadMapFile("::/LT/OSMain/OS.MPZ");  //Enable Man()
+LoadMapFile("::/LT/Compiler/Compiler.MPZ");	//Enable Man()
+LoadMapFile("::/LT/Adam/GrAsm/GrAsm.MPZ");	//Enable Man()
+
+
+void StartUpTsks()
+{
+  I1 buf[80];
+  TssStruct *tss,*tss1;
+
+  InitLocalTask; //needed for disk access
+  Preempt(ON);	//off by default
+  Silent(ON);	//no output to screen
+
+  try {
+    tss1=SpawnUser;
+    tss=SpawnUser;
+    WinToTop(tss1);
+    WinTileVert;
+
+    PopUp("#include \"::/LT/Doc/StartSong.CPZ\";");
+
+    SPrintF(buf,"Boot Time:%h17Ts\r\n",BootTime);
+    AdamLog(buf);
+    XTalk(tss1,"#include \"DoIt\";\r");
+
+    WsInit("");
+//    WordStat;
+  } catch
+    CatchAll;
+}
+
+//This must be spawned because start-up files
+// may invoke the Adam() cmd.
+Spawn(&StartUpTsks,"Spawn Users");
+PrintF("\r\nOS Compile Time:%D %T\r\n",sys_compile_time,sys_compile_time);

LT/Accts/PicWords3.APZ

@@ -0,0 +1,9 @@
+// Create Pictures Here
+
+void LoadUserPicWords()
+{
+//Call $LK,"AddPicWord","MN:AddPicWord"$()
+}
+
+
+LoadUserPicWords;

LT/Accts/Servant.CPZ

@@ -0,0 +1,11 @@
+/*
+This is the startup file for servant tasks.
+
+If you modify this file, you should place it
+into your HOME directory.  This version is the
+default for accounts without a version in HOME.
+*/
+
+UseConsoleLtf(NULL);
+Bts(&Fs->crt_flags,CRTf_SHOW);
+//Turn on preemption

LT/Accts/Songs/Adam3.APZ

@@ -0,0 +1,176 @@
+//Change anything you want in this
+//account file or others.
+
+//Set Time Zone
+local_time_offset=0*60*60*LTDATE_FREQ;
+
+//$AN,"","mouse_move_scale"$adjust these to set mouse move scale
+mxx_scale=0.5;
+myy_scale=0.5;
+mzz_scale=1.0; //wheel
+
+//don't change these
+mxx_prescale=mxx/mxx_scale;
+myy_prescale=myy/myy_scale;
+mzz_prescale=mzz/mzz_scale;
+
+
+class RenameSymbolStruct
+{
+  I1 find[256]	  fmtstr "$$DA -P ,255 \"Find   :%s\"$$\r\n";
+  I1 replace[256] fmtstr "$$DA -P ,255 \"Replace:%s\"$$\r\n";
+};
+
+void RenameCurSymbol()
+{
+  I1 *buf;
+  RenameSymbolStruct r;
+  BoolU4 old_preempt=Preempt(OFF);
+  StrCpy(r.find,ws_cur_word);
+  StrCpy(r.replace,ws_cur_word);
+  Preempt(old_preempt);
+  if (PopUpDoForm(&r,"RenameSymbolStruct")) {
+    buf=MSPrintF("R(\"%s\",\"%s\",\"+r+l+a\");",r.find,r.replace);
+    PopUp(buf,Fs);
+    Free(buf);
+  }
+}
+
+void RenameFile()
+{
+  I1 *buf;
+  RenameSymbolStruct r;
+  BoolU4 old_preempt=Preempt(OFF);
+  StrCpy(r.find,ws_cur_word);
+  StrCpy(r.replace,ws_cur_word);
+  Preempt(old_preempt);
+  if (PopUpDoForm(&r,"RenameSymbolStruct")) {
+    buf=MSPrintF("R(\"%s\",\"%s\",\"+r+l+a\");",r.find,r.replace);
+    PopUp(buf,Fs);
+    Free(buf);
+  }
+  Move(r.find,r.replace);
+}
+
+void FillinTime()
+{
+  LTDate ltdt;
+  ltdt=GetCurTimeLTDate;
+  PrintF("$$IV 1$$----%D %T----$$IV 0$$\r",ltdt,ltdt);
+}
+
+
+
+BoolU8 MyPutKey(I8 ch,U8 sc)
+{  //ch=ASCII; sc=scancode
+
+//You can customize keys.  This routine
+//is called before the main editor
+//key handler $LK,"LtfPutKeyExt","MN:LtfPutKeyExt"$().
+//You can intercept any key.
+
+//Return TRUE if you completely
+//handled the key.
+
+  nounusedwarn ch;
+  U8 sc2=sc.u1[0];
+
+  if (sc2>=SC_F1 && sc2<=SC_F10 &&
+       (sc & SCF_ALT) &&
+      !(sc & SCF_CTRL)) {
+    if (sc2==SC_F1) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTPURPLE$$");
+      else
+	PutS("$$FG PURPLE$$");
+    } else if (sc2==SC_F2) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTRED$$");
+      else
+	PutS("$$FG,RED$$");
+    } else if (sc2==SC_F3) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTGREEN$$");
+      else
+	PutS("$$FG,GREEN$$");
+    } else if (sc2==SC_F4) {
+      if ((sc & SCF_SHIFT))
+	PutS("$$FG LTBLUE$$");
+      else
+	PutS("$$FG$$");
+    } else if (sc2==SC_F6) {
+      if (!(sc & SCF_SHIFT))
+	PopUp("WsInit(\"/LT\");");
+    } else if (sc2==SC_F7) {
+      if ((sc & SCF_SHIFT))
+	LtfSafeInsert(Fs->cur_ltf,
+	  "$$HS+C$$$$FG$$$$HE$$");
+      else
+	FillinTime();
+    } else if (sc2==SC_F8) {
+      if ((sc & SCF_SHIFT))
+	RenameFile();
+      else
+	RenameCurSymbol();
+    } else if (sc2==SC_F9)
+      PopUp("PunchIn;");
+    else if (sc2==SC_F10)
+      PopUp("PunchOut;");
+    return TRUE;
+  }
+  return FALSE;
+}
+
+BoolU8 MyPutS(I1 *st)
+{
+  nounusedwarn st;
+  return FALSE;
+}
+
+AddKeyDev(&MyPutKey,&MyPutS,0x20000000);
+
+Cd("/LT/Adam");;
+#include "PicWords2"
+#include "HOME/PicWords3"
+Cd("/LT/Utils/Boot");;
+#include "InsBoot"
+Cd("/LT/Utils");;
+#include "Disk20"
+#include "Diff"
+#include "Grep"
+#include "Merge"
+#include "S2T"
+#include "IDE"
+#include "LinkChk"
+#include "HeapLog"
+#include "ListFile"
+LoadMapFile("::/LT/OSMain/OS.MPZ");  //Enable Man()
+LoadMapFile("::/LT/Compiler/Compiler.MPZ");	//Enable Man()
+LoadMapFile("::/LT/Adam/GrAsm/GrAsm.MPZ");	//Enable Man()
+
+
+void StartUpTsks()
+{
+  I1 buf[80];
+  TssStruct *tss;
+
+  InitLocalTask; //needed for disk access
+  Preempt(ON);	//off by default
+  Silent(ON);	//no output to screen
+
+  try {
+    tss=SpawnUser;
+    WinToTop(tss);
+    WinTileVert;
+
+    XTalk(tss,"#include \"DoIt\";\r");
+
+    WsInit("");
+  } catch
+    CatchAll;
+}
+
+//This must be spawned because start-up files
+// may invoke the Adam() cmd.
+Spawn(&StartUpTsks,"Spawn Users");
+PrintF("\r\nOS Compile Time:%D %T\r\n",sys_compile_time,sys_compile_time);

LT/Accts/Songs/DoIt.CPZ

@@ -0,0 +1,4 @@
+Cd("::/LT/Apps/MusicOrgan");;
+#include "Load";;
+JukeBox("Examples");
+

LT/Accts/Songs/User.CPZ

@@ -0,0 +1,5 @@
+UseConsoleLtf("User.MUZ");
+PutSysText("ST_USER_STARTUP");
+Type("::/LT/Doc/Help.TXZ");
+Bts(&Fs->crt_flags,CRTf_SHOW);
+Preempt(ON);

LT/Accts/Tour/DoIt.CPZ

@@ -0,0 +1 @@
+AutoFile("Tour");

LT/Accts/Tour/Tour.AUZ

@@ -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);

LT/Accts/Tour/Tour1.AUZ

@@ -0,0 +1,105 @@
+//This puts the cursor at the bottom
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
+PutS("\r");
+
+PopUpOk(
+"After clicking 'OKAY', you will be at the\r\n"
+"command line.\r\n"
+"\r\n"
+"The syntax is like $$FG,GREEN$$C/C++$$FG$$ except you\r\n"
+"don't need $$FG,GREEN$$()$$FG$$ if there are no parameters.\r\n"
+"\r\n"
+"Type \"$$FG,GREEN$$Dir;$$FG$$\" and press $$FG,GREEN$$ENTER$$FG$$.\r\n\r\n"
+"You must remember the semicolon.\r\n"
+);
+
+AFPmtStr("Dir;\r");
+Sleep(1000);  //allow user time to see dir
+PutChar(CH_CR);
+
+PopUpOk(
+"After clicking 'OKAY', you will be at the\r\n"
+"command line.\r\n\r\n"
+"Press the $$FG,GREEN$$WINDOW$$FG$$s key.\r\n\r\n"
+"This will access your macro/menu/help area.\r\n"
+"You can customize it.  It's like your\r\n"
+"START menu.\r\n");
+
+AFGetKey(SC_GUI);
+Sleep(1000);
+PopUpOk(
+"You can get to the menu/macro/help area\r\n"
+"by clicking on the word \"MENU\" in the\r\n"
+"title bar.\r\n");
+
+PopUpOk(
+"$$UL,1$$$$FG,LTBLUE$$Blue Underlined Text are Macros$$FG$$$$UL,0$$\r\n"
+"\t$$FG,GREEN$$SPACE BAR$$FG$$\t=Left Mouse\t-->Execute Macro\r\n"
+"\r\n\r\n"
+"$$UL,1$$$$FG,LTRED$$Red Underlined Text are Links$$FG$$$$UL,0$$\r\n"
+"\t$$FG,GREEN$$SPACE BAR$$FG$$\t=Left Mouse\t-->Edit/View Link Doc\r\n"
+"\t$$FG,GREEN$$ENTER$$FG$$\t\t=Right Mouse\t-->Link Menu\r\n"
+"\r\n\r\n"
+"Exiting Documents/Forms\r\n"
+"\t$$FG,GREEN$$ESC$$FG$$\t=Left Double Mouse\t-->Save and Exit\r\n"
+"\t$$FG,GREEN$$CTRL-Q$$FG$$\t=Right Double Mouse\t-->Abort/Cancel/Quit or Back\r\n"
+);
+
+PopUpOk(
+"$$FG,GREEN$$CTRL-ALT-ESC$$FG$$\tSpawn new user shell window\r\n"
+"$$FG,GREEN$$CTRL-ALT-X$$FG$$\tKill window\r\n"
+"$$FG,GREEN$$CTRL-ALT-C$$FG$$\tBreak(interrupt) program\r\n"
+);
+
+PopUpOk(
+"After clicking 'OKAY', you will be back at\r\n"
+"the menu/macro/help area.\r\n\r\n"
+"Press $$FG,GREEN$$CURSOR-DOWN$$FG$$ nine times.\r\n");
+
+//This puts the cursor at the top
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+
+I8 i;
+for (i=0;i<9;i++)
+  AFGetKey(SC_CURSOR_DOWN);
+
+PopUpOk(
+"After clicking 'OKAY', the cursor will be\r\n"
+"on top of a macro we wish to run.\r\n"
+"\r\n"
+"After clicking OKAY, press $$FG,GREEN$$SPACE$$FG$$.\r\n");
+AFPmtStr(" ");
+Sleep(1000);
+
+PopUpOk(
+"The macro changed directories and did\r\n"
+"a $$FG,GREEN$$Dir;$$FG$$ command.\r\n\r\n"
+"The $$FG,RED$$RED$$FG$$ filenames listed are file\r\n"
+"links.  Left-clicking will edit/view them.\r\n"
+"Right-clicking or pressing $$FG,GREEN$$ENTER$$FG$$\r\n"
+"when the cursor is on top will bring-up a\r\n"
+"menu of options.\r\n\r\n"
+"The $$FG LTBLUE$$BLUE$$FG$$ underline entries \"$$FG LTBLUE$$.$$FG$$\" and \"$$FG LTBLUE$$..$$FG$$\"\r\n"
+"are macros and will change directories.\r\n");
+
+PopUpOk(
+"As you can see, the command line is not\r\n"
+"different from the help/menu/macro area.\r\n"
+"Both use the same commands and have the same\r\n"
+"'Widgets' available.\r\n\r\n"
+"Both utilize the same underlying document format.\r\n"
+"It is similar to $$FG,GREEN$$html$$FG$$ because it has ASCII\r\n"
+"behind it.  LoseThos documents can include graphics.\r\n\r\n"
+"Press \"$$FG,GREEN$$CTRL-T$$FG$$\" after clicking 'OKAY' to toggle\r\n"
+"to plain text mode.\r\n");
+AFGetChar(20);
+Sleep(1000);
+
+PopUpOk(
+"The widgets are bracketed with dollar sign\r\n"
+"characters. \"LK\" stands \"link\" and \"MA\"\r\n"
+"stands for \"macro\".\r\n\r\n"
+"Now, press \"$$FG,GREEN$$CTRL-T$$FG$$\" to toggle back to\r\n"
+"regular mode.\r");
+AFGetChar(20);
+Sleep(1000);

LT/Accts/Tour/Tour2.AUZ

@@ -0,0 +1,76 @@
+//This puts the cursor at the bottom
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
+PutS("\r");
+
+PopUpOk(
+"Now, we're going to demonstrate how to work\r\n"
+"with programs.  We'll change to the \LT\Demo\r\n"
+"directory.  The change directory command\r\n"
+"will be typed for you and you just need\r\n"
+"to press $$FG,GREEN$$ENTER$$FG$$.\r\n\r\n"
+"Note, that directories are specified with\r\n"
+"a forward slash, not a backslash.\r\n"
+"Drives can be specified in a $$FG,GREEN$$Cd()$$FG$$ command\r\n"
+"and the boot drive is specified with \"$$FG,GREEN$$::$$FG$$\".");
+
+PutS("Cd(\"::/LT/Demo\");Dir;");
+AFPmtStr("\r");
+
+
+PopUpOk(
+"Now, we're going to edit a file.  Normally,\r\n"
+"you'll probably left-click on a directory\r\n"
+"listing to edit a file, but we're going to\r\n"
+"type it on the command line.\r\n\r\n"
+"Press $$FG,GREEN$$ENTER$$FG$$ to complete the command.\r\n");
+
+PutS("Edit(\"ASCIIOrgan.CPZ\");");
+AFPmtStr("\r");
+
+Sleep(1000);
+PopUpOk(
+"This program gets keys and plays frequencies.\r\n"
+"It quits when you press $$FG,GREEN$$ESC$$FG$$.\r\n\r\n"
+"There is no \"$$FG,GREEN$$main()$$FG$$\" function in LoseThos\r\n"
+"programs.  Any program statements outside\r\n"
+"functions get executed when you $$FG,GREEN$$#include$$FG$$\r\n"
+"them at the command line.\r\n\r\n"
+"The \"$$FG,GREEN$$ASCIIOrgan;$$FG$$\" statement at the bottom\r\n"
+"will run the program when we $$FG,GREEN$$#include$$FG$$ it.\r\n");
+
+PopUpOk(
+"The editor and most things exit when you press\r\n"
+"$$FG,GREEN$$ESC$$FG$$.  $$FG,GREEN$$CTRL-Q$$FG$$ will abort (cancel) most things.\r\n\r\n"
+"The $$FG,GREEN$$ESC$$FG$$ key can be simulated with a left\r\n"
+"double-click, while the $$FG,GREEN$$CTRL-Q$$FG$$ key can be\r\n"
+"simulated with a right double-click.  When\r\n"
+"you browse documentation, you'll left-click\r\n"
+"on links and right double-click to go back,\r\n"
+"unless you want to save changes to documents\r\n"
+"using left double-click.\r\n\r\n"
+"Press $$FG,GREEN$$CTRL-Q$$FG$$ to quit out of the editor.\r\n"
+);
+
+AFGetChar(CH_CTRLQ);
+
+PopUpOk(
+"Now, we'll run the ASCIIOrgan.CPZ program.\r\n"
+"Press $$FG,GREEN$$ENTER$$FG$$ at the command line to\r\n"
+"$$FG,GREEN$$#include$$FG$$ it.  Then press keys to\r\n"
+"cause sounds and press $$FG,GREEN$$ESC$$FG$$ when\r\n"
+"you are done.\r\n");
+
+PutS("#include \"ASCIIOrgan.CPZ\";");
+AFPmtStr("\r");
+AFUntilChar(CH_ESC);
+
+PopUpOk(
+"The program is still in memory and we\r\n"
+"can start it again by typing \"$$FG,GREEN$$ASCIIOrgan;$$FG$$\".\r\n\r\n"
+"Press $$FG,GREEN$$ENTER$$FG$$ at the command line to\r\n"
+"run it again.\r\n");
+
+PutS("ASCIIOrgan;");
+AFPmtStr("\r");
+AFUntilChar(27);
+

LT/Accts/Tour/Tour3.AUZ

@@ -0,0 +1,110 @@
+//This puts the cursor at the bottom
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
+PutS("\rCd(\"::/LT/Demo\");Dir;\r");
+
+PopUpOk(
+"Now, we're going to add the ASCIIOrgan.CPZ\r\n"
+"program to your start menu.\r\n\r\n"
+"Press the $$FG,GREEN$$WINDOW$$FG$$s key\r\n"
+"to get to your menu/macro/help area.\r\n");
+AFGetKey(SC_GUI);
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+Sleep(1000);
+
+PopUpOk(
+"Press $$FG,GREEN$$CTRL-L$$FG$$ to invoke the\r\n"
+"text-widget resource editor.\r\n"
+"\r\n"
+"($$FG,GREEN$$CTRL-R$$FG$$ invokes the\r\n"
+"graphic resource editor.)\r\n"
+);
+AFGetChar(12);
+
+Sleep(100);
+PopUpOk(
+"Press $$FG,GREEN$$CURSOR-DOWN$$FG$$ until you reach\r\n"
+"\"Macro\".\r\n");
+I8 i;
+for (i=0;i<8;i++)
+  AFGetKey(SC_CURSOR_DOWN);
+
+PopUpOk(
+"Press $$FG,GREEN$$SPACE$$FG$$.\r\n");
+AFPmtStr(" ");
+Sleep(1000);
+
+
+PopUpOk(
+"Now, we'll fill-in the visible text\r\n"
+"of the macro.\r\n");
+AFDelayedPutS("Click Here");
+
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
+PopUpOk("Now, we'll fill-in the macro text.\r\n");
+AFDelayedPutS("Cd(\\\"::/LT/Demo\\\");;#include \\\"ASCIIOrgan.CPZ\\\";\\r");
+
+PopUpOk("Press $$FG,GREEN$$ESC$$FG$$ to exit the form.\r\n");
+AFGetChar(CH_ESC);
+Sleep(1000);
+
+PopUpOk(
+"Press $$FG,GREEN$$CTRL-SHIFT-ENTER$$FG$$ to insert a line feed.\r\n"
+"($$FG,GREEN$$CTRL-ENTER$$FG$$ does a page break and $$FG,GREEN$$ENTER$$FG$$\r\n"
+"would execute the macro.)\r\n");
+AFGetKey(SC_CR|SCF_CTRL|SCF_SHIFT);
+Sleep(1000);
+
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+PopUpOk(
+"Press $$FG,GREEN$$SPACE$$FG$$ to test it.\r\n");
+AFPmtStr(" ");
+AFUntilChar(CH_ESC);
+
+PopUpOk(
+"Now, we'll do a fancier macro that pops-up\r\n"
+"a new window which dies when finished,\r\n"
+"returning memory to the system.\r\n");
+Msg(MSG_KEY_DOWN,0,SC_GUI);
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+Msg(MSG_KEY_DOWN,12,0);  //CTRL-L
+for (i=0;i<8;i++)
+  Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
+AFDelayedPutS(" Click here for Pop-up version");
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
+AFDelayedPutS("Cd(\\\"::/LT/Demo\\\");;#include \\\"ASCIIOrgan.CPZ\\\";\\r");
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_LEFT|SCF_CTRL);
+
+PopUpOk(
+"Press $$FG,GREEN$$CURSOR-DOWN$$FG$$ until you reach\r\n"
+"the \"Pop-Up\" check-box.\r\n");
+for (i=0;i<2;i++)
+  AFGetKey(SC_CURSOR_DOWN);
+PopUpOk(
+"Press $$FG,GREEN$$SPACE$$FG$$ to\r\n"
+"check the box.\r\n");
+AFPmtStr(" ");
+Sleep(500);
+
+PopUpOk("Press $$FG,GREEN$$ESC$$FG$$ to exit the form.\r\n");
+AFGetChar(CH_ESC);
+Sleep(500);
+
+PopUpOk("Press $$FG,GREEN$$CTRL-SHIFT-ENTER$$FG$$ to insert a line feed.\r\n");
+AFGetKey(SC_CR|SCF_CTRL|SCF_SHIFT");
+Sleep(500);
+
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+PopUpOk(
+"Press $$FG,GREEN$$SPACE$$FG$$ to test it.\r\n");
+AFPmtStr(" ");
+Sleep(5000);
+
+PopUpOk(
+"Press $$FG,GREEN$$CTRL-S$$FG$$ to save your\r\n"
+"macro/menu/help area file, if you wish.\r\n");
+if (Fs->parent_tss->popup_tss) {
+  PutChar(CH_CTRLQ);
+  Sleep(100);
+}
+PutChar(CH_CTRLQ);  //exit menu
+

LT/Accts/Tour/Tour4.AUZ

@@ -0,0 +1,58 @@
+PopUp("WsInit(\"::/LT\");");
+WordStat;
+
+//This puts the cursor at the bottom
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
+PutS("\rCd(\"::/LT/Demo\");\r");
+
+PopUpOk(
+"WordStat is an autocomplete feature\r\n"
+"which will also jump to source code.\r\n"
+"The function keys work with code, while\r\n"
+"the number keys work with the dictionary.\r\n\r\n"
+"We will now place some text on the command\r\n"
+"line and jump to source code.\r\n");
+PutS("InstallB");
+Sleep(1000);
+
+PopUpOk(
+"After clicking $$FG,GREEN$$OKAY$$FG$$, look at\r\n"
+"the $$FG,GREEN$$InstallBoot$$FG$$ entry in the WordStat\r\n"
+"window.  Notice it has a '$$FG,GREEN$$*$$FG$$' by it.\r\n"
+"This means a source code link is available.\r\n");
+Sleep(2000);
+
+PopUpOk(
+"Press $$FG,GREEN$$CTRL-SHIFT-F1$$FG$$ to jump to source code.\r\n");
+AFGetKey(SC_F1|SCF_CTRL|SCF_SHIFT);
+Sleep(500);
+
+PopUpOk(
+"Press $$FG,GREEN$$CTRL-Q$$FG$$ to quit the source code.\r\n");
+AFUntilChar(CH_CTRLQ);
+Sleep(100);
+sys_cur_focus_task=Fs;
+
+PopUpOk(
+"Press $$FG,GREEN$$CTRL-F1$$FG$$ to autocomplete.\r\n");
+AFGetKey(SC_F1|SCF_CTRL);
+Sleep(500);
+
+Msg(MSG_KEY_DOWN,CH_CR,SCF_CTRL|SCF_SHIFT);
+PutS("\r");
+
+PopUpOk(
+"Tip: You can restart the WordStat window if you\r\n"
+"have closed it by pressing $$FG,GREEN$$CTRL-F1$$FG$$.\r\n");
+
+PopUpOk(
+"You can also use the $$FG,GREEN$$Man()$$FG$$ function\r\n"
+"to jump to source code.\r\n");
+AFDelayedPutS("Man(\"InstallBoot\");");
+Sleep(1000);
+PutS("\r");
+
+Sleep(2000);
+PopUpOk(
+"Press $$FG,GREEN$$CTRL-Q$$FG$$ to quit the source code.\r\n");
+AFUntilChar(CH_CTRLQ);

LT/Accts/Tour/Tour5.AUZ

@@ -0,0 +1,19 @@
+PopUpOk(
+"All text widgets work everywhere.\r\n"
+"The $$FG,GREEN$$Type()$$FG$$ command is like\r\n"
+"the DOS command of the same name\r\n"
+"or the UNIX, $$FG,GREEN$$cat$$FG$$ command.\r\n"
+"We will now send your menu document\r\n"
+"to the command line.  They use the same\r\n"
+"document format and it is active!!.\r\n");
+
+PopUpOk("Press $$FG,GREEN$$ENTER$$FG$$.");
+
+//This puts the cursor at the bottom
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
+PutS("\r");
+
+PutS("Type(\"HOME/User.MUZ\");");
+AFPmtStr("\r");
+
+

LT/Accts/User.CPZ

@@ -0,0 +1,37 @@
+#help_index "Utils"
+/*
+This is the startup file for new local users.
+
+If you modify this file, you should place it
+into your HOME directory.  This version is the
+default for accounts without a version in HOME.
+*/
+
+UseConsoleLtf("User.MUZ");
+
+U8 F(I1 *pattern,I1 *flags=NULL)
+{
+  return Grep(pattern,"/LT/"TEXT_FILE_MASK,flags);
+}
+
+U8 R(I1 *pattern,I1 *replace_text=NULL,I1 *flags="+l-i")
+{
+  return Grep(pattern,"/LT/"TEXT_FILE_MASK,flags,replace_text);
+}
+
+U8 FD(I1 *pattern,I1 *flags=NULL)
+{
+  return Grep(pattern,TEXT_FILE_MASK,flags);
+}
+
+U8 RD(I1 *pattern,I1 *replace_text=NULL,I1 *flags="+l-i")
+{
+  return Grep(pattern,TEXT_FILE_MASK,flags,replace_text);
+}
+
+PutSysText("ST_USER_STARTUP");
+Type("::/LT/Doc/Help.TXZ");
+Fs->scroll_speed=10;
+Bts(&Fs->crt_flags,CRTf_SHOW);
+Preempt(ON);
+#help_index ""

LT/Accts/User/DoIt.CPZ

@@ -0,0 +1,2 @@
+Type("::/LT/Doc/Customize.TXZ");
+