'Walking leds


SCREEN 13

LINE (50, 70)-(60, 80), 1, BF
LINE (62, 70)-(72, 80), 2, BF
LINE (74, 70)-(84, 80), 3, BF
LINE (86, 70)-(96, 80), 4, BF
LINE (98, 70)-(108, 80), 5, BF
LINE (110, 70)-(120, 80), 6, BF
LINE (122, 70)-(132, 80), 7, BF
LINE (134, 70)-(144, 80), 8, BF
LINE (146, 70)-(156, 80), 9, BF
LINE (158, 70)-(168, 80), 10, BF
LINE (170, 70)-(180, 80), 11, BF
LINE (182, 70)-(192, 80), 12, BF
LINE (194, 70)-(204, 80), 13, BF
LINE (206, 70)-(216, 80), 14, BF
LINE (218, 70)-(228, 80), 15, BF

FOR t = 1 TO 15
 backcolor& = 65536 * 0 + 256 * 0 + 0
 PALETTE t, backcolor&
NEXT t

PALETTE 0, 65536 * 31 + 256 * 31 + 31

forward = 1
location = 1
DO

  DO WHILE forward = 1
   PALETTE location, 47
   PALETTE location + 1, 55
   PALETTE location + 2, 63
  
   FOR t = location - 1 TO 1 STEP -1
    PALETTE t, 0
   NEXT t
   FOR t = location + 3 TO 15 STEP 1
    PALETTE t, 0
   NEXT t

   location = location + 1
   IF location = 13 THEN forward = -1

  LOOP

  DO WHILE forward = -1
   PALETTE 12, 0
   PALETTE location, 63
   PALETTE location + 1, 55
   PALETTE location + 2, 47

   FOR t = location - 2 TO 1 STEP -1
    PALETTE t, 0
   NEXT t
   FOR t = location + 3 TO 15 STEP 1
    PALETTE t, 0
   NEXT t

   location = location - 1
   IF location = 1 THEN forward = 1

  LOOP

LOOP UNTIL INKEY$ = CHR$(27)