seed7.txt in zettacode-0.1.1

- old
+ new

@@ -1,20 +1,20 @@
-$ cud "d7_05.7"
+$ include "seed7_05.s7i";
 
-c c:   fuc
-  c
-     :   0
-     : b  0
-  b
-    (" = ")
-    ()
-    ("b = ")
-    (b)
+const proc: main is func
+  local
+    var integer: a is 0;
+    var integer: b is 0;
+  begin
+    write("a = ");
+    readln(a);
+    write("b = ");
+    readln(b);
  
-    (" + b = "   + b)
-    (" - b = "   - b)
-    (" * b = "   * b)
-    ("  b = "    b)    # Ru  z
-    ("  b = "    b)    # S f  f 
-    ("  b = "    b)  # Ru   f
-    ("  b = "    b)    # S f  c 
-   fuc
+    writeln("a + b = " <&amp; a + b);
+    writeln("a - b = " <&amp; a - b);
+    writeln("a * b = " <&amp; a * b);
+    writeln("a div b = " <&amp; a div b);    # Rounds towards zero
+    writeln("a rem b = " <&amp; a rem b);    # Sign of the first operand
+    writeln("a mdiv b = " <&amp; a mdiv b);  # Rounds towards negative infinity
+    writeln("a mod b = " <&amp; a mod b);    # Sign of the second operand
+  end func;