home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / BOUNCE / BOUNCE.PRG < prev    next >
Encoding:
Text File  |  1993-02-03  |  1.1 KB  |  28 lines
  1. ***************************************************************
  2. *     * 07/11/92           BOUNCE.PRG                10:10:29 *
  3. ***************************************************************
  4. *     * Author's Name: Jeb Long                               *
  5. *     *                                                       *
  6. *     * Description:                                          *
  7. *     * This program illustrates MOVE command                 *
  8. *     *                                                       *
  9. ***************************************************************
  10. SET TALK OFF
  11. =RAND(-1)
  12. CLEAR
  13. DEFINE WINDOW BOUNCE FROM 10,10 TO 14,15 ;
  14.      COLOR W+/R FILL FILE TREE PANEL
  15. ACTIVATE WINDOW BOUNCE
  16. DO WHILE  INKEY(.1) = 0
  17.     mcol =    IIF(WLCOL() < 16 ,  10,  ;  
  18.             IIF(WLCOL() > 60 , -10,  ; 
  19.             IIF(rand()  > .5 , 10, -10 )))
  20.     mrow =    IIF(WLROW() <  5 ,  4,  ;  
  21.             IIF(WLROW() > 18 , -4,  ; 
  22.             IIF(rand()  > .5 , 4, -4 )))
  23.     MOVE WINDOW BOUNCE BY mrow,mcol
  24.     @ 0,0 FILL TO 13,19 COLOR SCHEME INT(23*rand())+1
  25. ENDDO
  26. RELEASE WINDOW BOUNCE
  27. RETURN 
  28.