diff options
Diffstat (limited to '085scenario_console.cc')
| -rw-r--r-- | 085scenario_console.cc | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/085scenario_console.cc b/085scenario_console.cc index ab07ad76..25737c85 100644 --- a/085scenario_console.cc +++ b/085scenario_console.cc @@ -11,10 +11,10 @@ scenario keyboard-in-scenario [ type [abc] ] run [ - 1:character, console:address:console, 2:boolean <- read-key console:address:console - 3:character, console:address:console, 4:boolean <- read-key console:address:console - 5:character, console:address:console, 6:boolean <- read-key console:address:console - 7:character, console:address:console, 8:boolean, 9:boolean <- read-key console:address:console + 1:character, console:address:shared:console, 2:boolean <- read-key console:address:shared:console + 3:character, console:address:shared:console, 4:boolean <- read-key console:address:shared:console + 5:character, console:address:shared:console, 6:boolean <- read-key console:address:shared:console + 7:character, console:address:shared:console, 8:boolean, 9:boolean <- read-key console:address:shared:console ] memory-should-contain [ 1 <- 97 # 'a' @@ -184,15 +184,15 @@ scenario events-in-scenario [ ] run [ # 3 keyboard events; each event occupies 4 locations - 1:event <- read-event console:address:console - 5:event <- read-event console:address:console - 9:event <- read-event console:address:console + 1:event <- read-event console:address:shared:console + 5:event <- read-event console:address:shared:console + 9:event <- read-event console:address:shared:console # mouse click - 13:event <- read-event console:address:console + 13:event <- read-event console:address:shared:console # non-character keycode - 17:event <- read-event console:address:console + 17:event <- read-event console:address:shared:console # final keyboard event - 21:event <- read-event console:address:console + 21:event <- read-event console:address:shared:console ] memory-should-contain [ 1 <- 0 # 'text' |