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




                                                                            
             
              
                                                             
                                                                
                                  


                                                               
                                  

                                                               
                                  
                              
                                  
                               
                                  
                              
                                  
                            
                                  
               
 
# example program: managing the display using 'screen' objects
#
# The zero screen below means 'use the real screen'. Tests can also use fake
# screens.

recipe main [
  open-console
  print-character 0:literal/screen, 97:literal, 2:literal/red
  1:number/raw, 2:number/raw <- cursor-position 0:literal/screen
  wait-for-event 0:literal/console
  clear-screen 0:literal/screen
  move-cursor 0:literal/screen, 0:literal/row, 4:literal/column
  print-character 0:literal/screen, 98:literal
  wait-for-event 0:literal/console
  move-cursor 0:literal/screen, 0:literal/row, 0:literal/column
  clear-line 0:literal/screen
  wait-for-event 0:literal/console
  cursor-down 0:literal/screen
  wait-for-event 0:literal/console
  cursor-right 0:literal/screen
  wait-for-event 0:literal/console
  cursor-left 0:literal/screen
  wait-for-event 0:literal/console
  cursor-up 0:literal/screen
  wait-for-event 0:literal/console
  close-console
]