about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-10-05 10:41:14 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-10-05 10:41:14 -0700
commite70ce4ba799702be17edda57c893a1d9037c8cd7 (patch)
tree3e5f1eafb9e0558a8e7cda5434807e5eb40a492a
parent186e1884028779dc41f5ba1fd563db2d957d1de4 (diff)
downloadmu-e70ce4ba799702be17edda57c893a1d9037c8cd7.tar.gz
99 - edit.mu looks much cleaner now
-rw-r--r--edit.mu25
1 files changed, 8 insertions, 17 deletions
diff --git a/edit.mu b/edit.mu
index 5ac6e043..5d2e3fa8 100644
--- a/edit.mu
+++ b/edit.mu
@@ -1,25 +1,16 @@
 (main
   (cls)
-  ((x1 integer) <- literal 10)
-  ((y1 integer) <- literal 5)
-  (cursor (x1 integer) (y1 integer))
-  ((s string) <- literal "Hello, ")
-  (print (s string))
+  (cursor (10 literal) (5 literal))
+  (print ("Hello, " literal))
   (bold-mode)
-  ((s string) <- literal "you")
-  (print (s string))
+  (print ("you" literal))
   (non-bold-mode)
-  ((s string) <- literal ".")
-  (print (s string))
-  ((x2y2 integer) <- literal 1)
-  (cursor (x2y2 integer) (x2y2 integer))
-  ((s string) <- literal "Press a key...")
-  (print (s string))
+  (print ("." literal))
+  (cursor (1 literal) (1 literal))
+  (print ("Press a key..." literal))
   ((key string) <- getc)
   (cll)
-  ((s string) <- literal "You pressed: ")
-  (print (s string))
+  (print ("You pressed: " literal))
   (print (key string))
-  ((s string) <- literal "\n")
-  (print (s string))
+  (print ("\n" literal))
 )