DEVICE  2313
       MHZ     4
       REVISION XYLON_010313.0-rvk

       '..A DEMO PROGRAM TO PRODUCE MOVING LIGHTS..
       '..ON AN STK200 BOARD.......................

       DIRPORT B,OUT

       EEDATA  BEGIN:,6
       EEDATA  ,&B01111110
       EEDATA  ,&B10111101
       EEDATA  ,&B11011011
       EEDATA  ,&B11100111
       EEDATA  ,&B11011011
       EEDATA  ,&B10111101

       READ max,BEGIN:,0       '...read number of data values

       DO                      '...do forever...
         FOR i = 1 TO max      '...pattern length is max...
           READ temp,BEGIN:,i
           OUTPORT B,temp      '...write value to the port
           PAUSE 100           '...time kill 100 mseconds....
         NEXT
       LOOP