'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                            RAYO LASER
SCREEN 13
RANDOMIZE TIMER
FOR h = 0 TO 320
   PSET (h, 98), 1
   PSET (h, 102), 1
   FOR v = 99 TO 101
      c = INT(RND * 6)
      SELECT CASE c
         CASE 0: cc = 1
         CASE 1: cc = 9
         CASE 2: cc = 34
         CASE 3: cc = 32
         CASE 4: v = v - 1
         CASE 5: v = v + 1
      END SELECT
      PSET (h, v), cc
   NEXT
   FOR delay = 1 TO 200: NEXT
NEXT