diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 15:01:51 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 15:01:51 -0700 |
| commit | f344b250f6f062a1a1902bf69b23ebf9b565de0e (patch) | |
| tree | 199bd32a9aee198d5028b1c21b83d2cf0944b2b6 /html/083scenario_screen_test.mu.html | |
| parent | 897ae8c1855f830d8819759ea327d147f28a09bf (diff) | |
| download | mu-f344b250f6f062a1a1902bf69b23ebf9b565de0e.tar.gz | |
3395
Diffstat (limited to 'html/083scenario_screen_test.mu.html')
| -rw-r--r-- | html/083scenario_screen_test.mu.html | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/html/083scenario_screen_test.mu.html b/html/083scenario_screen_test.mu.html index adeb5b93..6aa4e9d6 100644 --- a/html/083scenario_screen_test.mu.html +++ b/html/083scenario_screen_test.mu.html @@ -34,8 +34,8 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color assume-screen <span class="Constant">3/width</span>, <span class="Constant">2/height</span> run [ <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 + a:char<span class="Special"> <- </span>copy <span class="Constant">97/a</span> + screen:&:screen<span class="Special"> <- </span>print screen:&:screen, a ] screen-should-contain [ <span class="Constant"> .a .</span> @@ -48,12 +48,12 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color run [ <span class="Constant">local-scope</span> <span class="Comment"># print a character</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 + a:char<span class="Special"> <- </span>copy <span class="Constant">97/a</span> + screen:&:screen<span class="Special"> <- </span>print screen:&: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> + screen:&:screen<span class="Special"> <- </span>move-cursor screen:&:screen, <span class="Constant">0/row</span>, <span class="Constant">0/column</span> <span class="Comment"># clear line</span> - screen:address:screen<span class="Special"> <- </span>clear-line screen:address:screen + screen:&:screen<span class="Special"> <- </span>clear-line screen:&:screen ] screen-should-contain [ <span class="Constant"> . .</span> |