home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / TESTSCRN.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  415 b   |  18 lines
  1.     // testscrn.prg
  2.  
  3.     #include "class(y).ch"
  4.  
  5.     procedure main
  6.         local i
  7.         local rect1 := ScreenRect():new(5, 5, 10, 25, 'R+/BG')
  8.         local rect2 := ScreenRect():new(15, 60, 22, 75)   // uses default colors
  9.  
  10.         for i := 1 to 10
  11.             rect1:moveDown(1)
  12.             rect1:moveRight(1)
  13.             rect2:moveUp(1)
  14.             rect2:moveLeft(1)
  15.         next
  16.  
  17.     return
  18.