home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / tutorial / programs / sample06.dba < prev    next >
Encoding:
Text File  |  1999-08-20  |  492 b   |  27 lines
  1. Rem * Title  : Tutorial Sample 6
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1/8/99
  4. rem Load a bitmap onto the screen
  5. LOAD BITMAP "picture.bmp"
  6.  
  7. rem Begin loop
  8. DO
  9.  
  10. rem Grab all four quarters of the screen
  11. GET IMAGE 1,0,0,320,240
  12. GET IMAGE 2,320,0,640,240
  13. GET IMAGE 3,320,240,640,480
  14. GET IMAGE 4,0,240,320,480
  15.  
  16. rem Paste in their neighbors quarter
  17. PASTE IMAGE 1,320,0
  18. PASTE IMAGE 2,320,240
  19. PASTE IMAGE 3,0,240
  20. PASTE IMAGE 4,0,0
  21.  
  22. rem Small delay
  23. SLEEP 100
  24.  
  25. rem End loop
  26. LOOP
  27.