TempleOSCDV5.03.ISO

Demo/Templates/InEdUtil.IN

@@ -0,0 +1,25 @@
+// See $LK,"InFile",A="HI:InFile"$
+
+U0 InEdUtil(U8 *filename)
+{
+  I64 i;
+
+  "Ed(\"%s\");\n",filename;
+
+  //Go to start of file
+  Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+  for (i=0;i<10000;i++) {
+    if (i)
+      Msg(MSG_KEY_DOWN_UP,0,SC_F3);
+    else
+      "%c0x%c",CH_CTRLF,CH_ESC;
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    "%02X",i;
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
+    "%c%c",CH_BACKSPACE,CH_BACKSPACE;
+  }
+}
+
+InEdUtil("MyFile");

Demo/Templates/ODE1.HC

@@ -26,7 +26,7 @@ U0 MyDerivative(CMathODE *ode,F64,COrder2D3 *,COrder2D3 *)
 U0 Init()
 {
   ode=ODENew(0,1e-4,ODEF_HAS_MASSES);
-  ode->derivative=&MyDerivative;
+  ode->derive=&MyDerivative;
   ode->drag_v2=0.002;
   ode->drag_v3=0.00001;
   ode->acceleration_limit=5e3;