Added path fix (by Terry A. Davis) & installer

2 files changed, 16 insertions, 3 deletions

diff --git a/Demo.HC b/Demo.HC
index 732e696..9f012d6 100755..100644
--- a/Demo.HC
+++ b/Demo.HC
@@ -3,7 +3,8 @@ U0 PCSP()
   I64 PCM_LEN=0;
   I64 PCM_POS=0; 
 
-  CDirEntry *de = FilesFind("/path_goes_here/Demo.SND.Z");
+  Cd(__DIR__);;
+  CDirEntry *de = FilesFind("./Demo.SND.Z");
   U8 *PCM_TABLE = FileRead(de->full_name,de->size);
   PCM_LEN=0x785ED;
   I64 hpet_s;
@@ -27,6 +28,7 @@ U0 PCSP()
 
 U0 Demo()
 {  
+  Cd(__DIR__);;
   SettingsPush;
   AutoComplete;
   WinMax;
@@ -34,8 +36,8 @@ U0 Demo()
   CTask *snd_task = Spawn(&PCSP,,,2);
   CDC *_bgr=DCNew(640,480);
   CDC *_screen=DCAlias();
-  CDC *_text=GRRead("/path_goes_here/Text.GR.Z");
-  CDirEntry *de = FilesFind("/path_goes_here/*.GR.Z");
+  CDC *_text=GRRead("Text.GR.Z");
+  CDirEntry *de = FilesFind("./DemoBgr/*.GR.Z");
   I64 d_ptr=de;
   I64 f_ctr;
 
diff --git a/Install.HC b/Install.HC
new file mode 100644
index 0000000..78d9a03
--- /dev/null
+++ b/Install.HC
@@ -0,0 +1,11 @@
+U0 Install()
+{
+  "\nInstall to Hard Disk";
+  if (YorN) {
+    DirMk("::/Apps/tosdemo");
+    CopyTree("./","::/Apps/tosdemo/");
+    Cd("::/Apps/tosdemo");
+  }
+}
+
+Install;
\ No newline at end of file