initial commit based on erlang-slang 1.0 release (debian tar ball)

1 files changed, 31 insertions, 0 deletions

diff --git a/demo/ex1.erl b/demo/ex1.erl
new file mode 100644
index 0000000..a3e861a
--- /dev/null
+++ b/demo/ex1.erl
@@ -0,0 +1,31 @@
+%%%----------------------------------------------------------------------
+%%% File    : ex1.erl
+%%% Author  : Claes Wikstrom <klacke@kaja.hemma.net>
+%%% Purpose : 
+%%% Created : 22 Nov 2000 by Claes Wikstrom <klacke@kaja.hemma.net>
+%%%----------------------------------------------------------------------
+
+-module(ex1).
+-author('klacke@kaja.hemma.net').
+
+-compile(export_all).
+
+run() ->
+    slang:init_tty(7,0,1),
+    slang:set_abort_signal(null),
+    loop().
+
+loop() ->
+    io:format("Press any key to quit press ctl_G ",[]),
+    X = slang:getkey(),
+    io:format("Got key ~p~n", [X]),
+    case X of
+	7 ->
+	    slang:reset_tty(),
+	    halt(),
+	    7;
+	_ ->
+	    loop()
+    end.
+
+