aboutsummaryrefslogtreecommitdiff
path: root/main.sts
diff options
context:
space:
mode:
Diffstat (limited to 'main.sts')
-rw-r--r--main.sts32
1 files changed, 15 insertions, 17 deletions
diff --git a/main.sts b/main.sts
index 7cbca9f..89b8697 100644
--- a/main.sts
+++ b/main.sts
@@ -1,26 +1,24 @@
module ia32/elf/begin.sts
-defword myword
-key if
- emit
-fi
-drop
+defword keyecho
+ key if emit fi
+ drop
exit
-defarr my_array 3
-defvar my_variable
+defarr numstr 3
+defvar char
set_entry
-31 my_variable !
-my_variable @ emit
-32 my_array !
-33 my_array 1 + !
-34 my_array 2 + !
-my_array @ emit
-my_array 1 + @ emit
-my_array 2 + @ emit
-35 36 swap emit emit
-myword
+ 31 char !
+ char @ emit
+ 32 numstr !
+ 33 numstr 1 + !
+ 34 numstr 2 + !
+ numstr @ emit
+ numstr 1 + @ emit
+ numstr 2 + @ emit
+ 35 36 swap emit emit
+ keyecho
quit
module ia32/elf/end.sts