'===========================================================================
' Subject: SMOOTH SPRITES USING VSYNC        Date: 02-27-99 (20:08)       
' Author:  Darryl R. Waltz                   Code: QB, QBasic, PDS        
' Origin:  drw@telusplanet.net             Packet: GRAPHICS.ABC
'===========================================================================
     ' Smooth sprites in any graphics mode using WAIT for verticle retrace

     SCREEN 12 'or any graphics mode
    
     DIM box%(10000)
     x = 0: y = 150
     LINE (0, 0)-(15, 15), 7, BF
     GET (0, 0)-(15, 15), box%
     CLS
     PUT (x, y), box%
     DO
       c$ = INKEY$: IF c$ = " " THEN STOP
       WAIT &H3DA, 8 '*** Wait for verticle retrace
       PUT (x, y), box% '*** A blank black box the size
       x = x + 1: 'y = y - 1
       PUT (x, y), box% '*** Move our sprite.
     LOOP UNTIL INKEY$ = CHR$(27)
     END