From 4698dc0002c671b15eb0cb7d52d2a0fa470c5fde Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 27 May 2016 08:02:29 -0700 Subject: 3021 --- html/083scenario_screen_test.mu.html | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'html/083scenario_screen_test.mu.html') diff --git a/html/083scenario_screen_test.mu.html b/html/083scenario_screen_test.mu.html index 63afa9bf..adeb5b93 100644 --- a/html/083scenario_screen_test.mu.html +++ b/html/083scenario_screen_test.mu.html @@ -33,8 +33,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color scenario print-character-at-top-left-2 [ assume-screen 3/width, 2/height run [ - 1:character <- copy 97/a - screen:address:screen <- print screen:address:screen, 1:character/a + local-scope + a:character <- copy 97/a + screen:address:screen <- print screen:address:screen, a ] screen-should-contain [ .a . @@ -45,9 +46,10 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color scenario clear-line-erases-printed-characters-2 [ assume-screen 5/width, 3/height run [ + local-scope # print a character - 1:character <- copy 97/a - screen:address:screen <- print screen:address:screen, 1:character/a + a:character <- copy 97/a + screen:address:screen <- print screen:address:screen, a # move cursor to start of line screen:address:screen <- move-cursor screen:address:screen, 0/row, 0/column # clear line -- cgit 1.4.1-2-gfad0