about summary refs log blame commit diff stats
path: root/console.mu
blob: 7c43bde94b23aa4aadb76a2c69164232a0fce122 (plain) (tree)
1
2
3
4
5
6
7
8
9




                                                                 
              
   
                                                    
                   
                                          

        
               
                      
 
# example program: reading events from keyboard or mouse
#
# Keeps printing 'a' until you press a key or click on the mouse.

recipe main [
  open-console
  {
    e:event, found?:boolean <- check-for-interaction
    break-if found?
    print-character-to-display 97, 7/white
    loop
  }
  close-console
  $print e, 10/newline
]