diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-06-03 09:57:40 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-06-03 09:57:40 -0700 |
commit | ee0ec58c89508444b280a247a03195114197998a (patch) | |
tree | 78db8c5584d04bc65148960ac7d4def5f9a00a3e | |
parent | 12c3ee1e4576f13808e962b2f818fb5d61466e9d (diff) | |
download | mu-ee0ec58c89508444b280a247a03195114197998a.tar.gz |
1521
-rw-r--r-- | repl.mu | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/repl.mu b/repl.mu index 5bbba673..cae95386 100644 --- a/repl.mu +++ b/repl.mu @@ -8,28 +8,15 @@ recipe main [ 0:literal/real-screen <- print-string 0:literal/real-screen, msg:address:array:character { inst:address:array:character, 0:literal/real-keyboard, 0:literal/real-screen <- read-instruction 0:literal/real-keyboard, 0:literal/real-screen -#? $print [ccc: ], inst:address:array:character #? 1 -#? move-cursor-down-on-display #? 1 break-unless inst:address:array:character -#? 0:literal/real-screen <- print-string 0:literal/real-screen, inst:address:array:character run-interactive inst:address:array:character -#? print-character-to-display 97:literal/a -#? print-character-to-display 97:literal/a -#? print-character-to-display 97:literal/a -#? print-character-to-display 10:literal/newline # assume run-interactive printed on the current line -#? $print [a7] #? 1 move-cursor-down-on-display -#? move-cursor-down-on-display #? 1 -#? move-cursor-down-on-display #? 1 -#? move-cursor-down-on-display #? 1 -#? move-cursor-down-on-display #? 1 clear-line-on-display # just to refresh the screen loop } #? wait-for-key-from-keyboard #? 1 return-to-console -#? $print [aaaa] #? 1 ] # basic keyboard input; just text and enter |