'===========================================================================
' Subject: FLICKER FREE SCREEN 12 SPRITES    Date: 08-24-98 (02:38)       
' Author:  Darryl R. Waltz                   Code: QB, QBasic, PDS        
' Origin:  drw@telusplanet.net             Packet: EGAVGA.ABC
'===========================================================================
'Scroll Flicker Free Sprite off screen in SCREEN mode 12 or 9!
'Can be made to work for most SCREEN modes
'smooth in mode 12 or 9 
   
    SCREEN 12
   
    DIM box0%(30000), box1%(30000)
   
    CIRCLE (20, 20), 20, 1      ' *************
    PAINT (10, 10), 3, 1        ' create sprite
    GET (0, 0)-(42, 42), box0%  ' *************
   
    CLS
   
    x% = 100
    y% = 100
   
    DO
        x% = x% - 1
        y% = y% - 1
       
        IF x% = 0 THEN
         
          DO                           '     **********
            GET (1, 1)-(43, 43), box1% '     **********
            PUT (x%, y%), box1%, PSET  '     scroll off
            FOR s = 1 TO 1000: NEXT s  '   edge of screen
            i% = i% + 1                '     **********
          LOOP UNTIL i% = 41           '     **********
          END
       
        END IF
       
        PUT (x%, y%), box0%, PSET  ' flicker free sprite
       
        FOR s = 1 TO 1000: NEXT s  ' Delay (set for your own machine)
                                   
    LOOP WHILE INKEY$ = ""