From 64586540eccbc0880341782d329b419ab9d002de Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Thu, 14 May 2015 16:04:26 -0700 Subject: 1375 - cleanup --- chessboard.mu | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/chessboard.mu b/chessboard.mu index 340e2d33..87c5e8eb 100644 --- a/chessboard.mu +++ b/chessboard.mu @@ -26,19 +26,17 @@ recipe main [ # program. scenario print-board-and-read-move [ + # we'll make the screen really wide because the program currently prints out a long line assume-screen 120:literal/width, 20:literal/height # initialize keyboard to type in a move assume-keyboard [a2-a4 ] run [ screen:address, keyboard:address <- chessboard screen:address, keyboard:address -#? data:address <- get screen:address:screen/deref, data:offset #? 1 -#? $print [screen is at ], screen:address, [ ], data:address, [ -#? ] #? 1 #? $dump-screen #? 1 ] screen-should-contain [ - # 0 1 2 3 4 5 6 7 8 9 10 11 + # 1 2 3 4 5 6 7 8 9 10 11 # 012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789 .Stupid text-mode chessboard. White pieces in uppercase; black pieces in lowercase. No checking for legal moves. . . . @@ -61,6 +59,7 @@ scenario print-board-and-read-move [ . . . . ] + # todo: doesn't show the cursor position yet (it's right after the 'move: ') ] recipe chessboard [ -- cgit 1.4.1-2-gfad0