Mercurial > vba-clojure

comparison clojure/com/aurellem/run/adv_choreo.clj @ 585:9159187bbf26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed problem in clear-screen.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 10:04:19 -0500
parents bbed03870072
children af3ca2f51bad
comparison
equal deleted inserted replaced
584:bbed03870072 585:9159187bbf26
158 (flatten 158 (flatten
159 [(repeat 100 0) 159 [(repeat 100 0)
160 ;; Reset HL to initial value 160 ;; Reset HL to initial value
161 161
162 ;; clear screen if we are at 0,0 162 ;; clear screen if we are at 0,0
163 0x57 0xB3 ;; D->A, OR E A ==> (= D E 0) 163 0x7A 0xB3 ;; D->A, OR E A ==> (= D E 0)
164 0x20 ;; skip clear-screen if D and E are not both zero 164 0x20 ;; skip clear-screen if D and E are not both zero
165 :clear-screen-length]) 165 :clear-screen-length])
166 166
167 clear-screen 167 clear-screen
168 (flatten 168 (flatten