about summary refs log blame commit diff stats
path: root/screen.mu
blob: 1c7a31a1e9b2b0a859938483423d0d57fcee894f (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.
def main [
  open-console
  clear-screen 0/screen  # non-scrolling app
  10:char <- copy 97/a
  print 0/screen, 10:char/a, 1/red, 2/green
  1:num/raw, 2:num/raw <- cursor-position 0/screen
  wait-for-event 0/console
  clear-screen 0/screen
  move-cursor 0/screen, 0/row, 4/column
  10:char <- copy 98/b
  print 0/screen, 10:char
  wait-for-event 0/console
  move-cursor 0/screen, 0/row, 0/column
  clear-line 0/screen
  wait-for-event 0/console
  cursor-down 0/screen
  wait-for-event 0/console
  cursor-right 0/screen
  wait-for-event 0/console
  cursor-left 0/screen
  wait-for-event 0/console
  cursor-up 0/screen
  wait-for-event 0/console
  close-console
]