home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / doub_buf_scroll.asc < prev    next >
Text File  |  1980-05-18  |  767b  |  31 lines
  1. Screen Open 0,320,200,16,Lowres
  2. 'No multitasking...  
  3. Multi No 
  4. 'DOUBLE BUFFER...THANX !!! 
  5. Double Buffer 
  6. 'WAIT UNTIL SCREENS PROPERLY INITIALISED...  
  7. Wait Vbl 
  8. 'CANCEL THE DOUBLE BUFFERING PROCESS...  
  9. Autoback 0
  10. 'Ok, define the first BLIT.  
  11. Blit Store Left 0,1,0,0 To 320,120,-1
  12. 'SWAP THE SCREENS AND THEREFORE ALSO THE BITMAPS ETC...  
  13. Screen Swap 
  14. 'Define the second BLIT... 
  15. Blit Store Left 0,2,0,0 To 320,120,-1
  16. 'REACTIVATE THE DOUBLE BUFFERING PROCESS ! 
  17. Autoback 2
  18. 'BRING YOUR STUFF ON SCREEN... 
  19. For I=1 To 25
  20.    Print "AMOS!AMOS!AMOS!AMOS!AMOS!AMOS!AMOS!AMOS"
  21. Next 
  22. Repeat 
  23.    Vbl Wait 200
  24.    'Ok, do the scrolling on the Physical and Logical screen...
  25.    Multi Blit 1 To 2
  26. Until Left Click
  27.  Blit Erase 1
  28.  Blit Erase 2
  29. 'ENABLE MULTITASKING...
  30. Multi Yes 
  31.