'===========================================================================
' Subject: USING SPRITES                     Date: 05-18-96 (13:55)       
' Author:  Martin Klingensmith               Code: QB, QBasic, PDS        
' Origin:  MarsbarsII@aol.com              Packet: EGAVGA.ABC
'===========================================================================
'   This is an example of using sprites in QBasic. Hasn't been tested in any
'   Other BASIC, but will most likely work.
'
'   Written by Martin Klingensmith [A.K.A. Marsbars]
'
'   MarsbarsII@aol.com (for a little while at least)
'
'
'
DIM a(500)
SCREEN 12
CLS

DRAW "c2bm320,200 r5d5l5u5"
GET (319, 199)-(326, 206), a(1)
CLS

DO
   FOR x = 1 TO 630
   PUT (x, 1), a(1), PSET
   DO
      a = a + 1
   LOOP WHILE a < 50
   a = 0
   a$ = INKEY$: IF a$ > "" THEN SYSTEM
   NEXT x
   FOR x = 1 TO 470
   PUT (630, x), a(1), PSET
  
   DO
      a = a + 1
   LOOP WHILE a < 50
   a = 0
   a$ = INKEY$: IF a$ > "" THEN SYSTEM
   NEXT x

   FOR x = 630 TO 1 STEP -1
      PUT (x, 470), a(1), PSET
      DO
         a = a + 1
      LOOP WHILE a < 50
      a = 0
      a$ = INKEY$: IF a$ > "" THEN SYSTEM
   NEXT x

   FOR x = 470 TO 1 STEP -1
      PUT (1, x), a(1), PSET
      DO
         a = a + 1
      LOOP WHILE a < 50
      a = 0
   a$ = INKEY$: IF a$ > "" THEN SYSTEM
   NEXT x
LOOP