diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-05-27 08:02:29 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-05-27 08:02:29 -0700 |
commit | 4698dc0002c671b15eb0cb7d52d2a0fa470c5fde (patch) | |
tree | 358b412fc862a649c1c21fa0e01f1fd2f356680b /html/083scenario_screen_test.mu.html | |
parent | a791c04264433696635d598471f3004c97f9ad50 (diff) | |
download | mu-4698dc0002c671b15eb0cb7d52d2a0fa470c5fde.tar.gz |
3021
Diffstat (limited to 'html/083scenario_screen_test.mu.html')
-rw-r--r-- | html/083scenario_screen_test.mu.html | 10 |
1 files changed, 6 insertions, 4 deletions
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 <span class="muScenario">scenario</span> print-character-at-top-left-2 [ assume-screen <span class="Constant">3/width</span>, <span class="Constant">2/height</span> run [ - <span class="Constant">1</span>:character<span class="Special"> <- </span>copy <span class="Constant">97/a</span> - screen:address:screen<span class="Special"> <- </span>print screen:address:screen, <span class="Constant">1</span>:character/a + <span class="Constant">local-scope</span> + a:character<span class="Special"> <- </span>copy <span class="Constant">97/a</span> + screen:address:screen<span class="Special"> <- </span>print screen:address:screen, a ] screen-should-contain [ <span class="Constant"> .a .</span> @@ -45,9 +46,10 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="muScenario">scenario</span> clear-line-erases-printed-characters-2 [ assume-screen <span class="Constant">5/width</span>, <span class="Constant">3/height</span> run [ + <span class="Constant">local-scope</span> <span class="Comment"># print a character</span> - <span class="Constant">1</span>:character<span class="Special"> <- </span>copy <span class="Constant">97/a</span> - screen:address:screen<span class="Special"> <- </span>print screen:address:screen, <span class="Constant">1</span>:character/a + a:character<span class="Special"> <- </span>copy <span class="Constant">97/a</span> + screen:address:screen<span class="Special"> <- </span>print screen:address:screen, a <span class="Comment"># move cursor to start of line</span> screen:address:screen<span class="Special"> <- </span>move-cursor screen:address:screen, <span class="Constant">0/row</span>, <span class="Constant">0/column</span> <span class="Comment"># clear line</span> |