TempleOSTS_140317.ISO

Adam/Adam2.CPP

@@ -0,0 +1,78 @@
+#exe {OptOn(OPTf_WARN_PAREN);};
+#exe {OptOn(OPTf_WARN_DUP_TYPES);};
+
+HashTablePurge(adam_task->hash_table);
+
+#help_index "Misc"
+
+//Use Dbg("Type 'G;'"); to debug before window mgr is running.
+
+public F64 os_version=2.03; //Fix here, too: $LK,"::/Demo/AcctExample/DbgAdam2.CPP.Z"$
+
+#include "AdamExt.HPP"
+#include "Math2a"
+#include "Training"
+#include "Utils2a"
+#include "MathODE"
+Cd("::/Adam/Gr");;
+#include "Gr"
+
+Cd("::/Adam/Snd");;
+#include "Snd"
+
+Cd("::/Adam/Dsk");;
+#include "Dsk2"
+
+Cd("::/Adam");;
+#include "Menu"
+#include "Win2a"
+#include "Win2b"
+#include "Dbg2a"
+
+#include "::/Adam/God/GodExt"
+
+Cd("::/Adam/Doc");;
+#include "Doc"
+LBts(&sys_run_level,RLf_DOC);
+
+Cd("::/Adam/Ctrls");;
+#include "Ctrls"
+
+Cd("::/Adam");;
+#include "AutoFile2a"
+#include "LogIn"
+
+Cd("::/Adam/WordStat");;
+#include "WordStat"
+
+Cd("::/Adam/God");;
+#include "God"
+
+Cd("::/Adam");;
+#include "Hash2a"
+#include "TaskSettings"
+#include "DevInfo"
+#include "DocDefines"
+
+//Dbg("Type 'G;'");
+
+DocTermNew;
+SetWinVert(2,10);
+
+sys_winmgr_task=Spawn(&WinMgrTask,NULL,"Window Mgr");
+Fs->win_inhibit=WIG_TASK_DFT-WIF_BORDER-WIF_GRAB_SCROLL-WIF_CTRLS;
+LBts(&Fs->display_flags,DISPLAYf_CHILDREN_NOT_ON_TOP);
+LBts(&Fs->display_flags,DISPLAYf_SHOW);
+SysLogin;
+LBts(&sys_run_level,RLf_LOGIN);
+RegistryInit;
+LBts(&sys_run_level,RLf_REGISTRY);
+
+Cd("::/Adam");;
+#include "WallPaper"
+#exe {OptOff(OPTf_WARN_PAREN);};
+#exe {OptOff(OPTf_WARN_DUP_TYPES);};
+LBts(&sys_run_level,RLf_ADAM2);
+
+Cd("HOME");;
+#include "Adam3"