' =========================================================================
'
'   File....... Police_Lights.BS2
'   Purpose....
'   Author..... Jon Williams -- Parallax, Inc.
'   E-mail..... jwilliams@parallax.com
'   Started....
'   Updated.... DD MMM YYYY
'
'   {$STAMP BS2}
'   {$PBASIC 2.5}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------

Lights          VAR     OUTL


' -----[ Constants ]-------------------------------------------------------

Speed           CON     100


' -----[ Variables ]-------------------------------------------------------

pntr            VAR     Byte
temp            VAR     Byte


' -----[ EEPROM Data ]-----------------------------------------------------

Police          DATA    %00111000
                DATA    %00011001
                DATA    %00111000
                DATA    %00011001
                DATA    %00111000
                DATA    %00011001
                DATA    %00100110
                DATA    %00000111
                DATA    %00100110
                DATA    %00000111
                DATA    %00100110
                DATA    %00000111
                DATA    %10000000


' -----[ Initialization ]--------------------------------------------------

Reset:
  DIRS = %00111111


' -----[ Program Code ]----------------------------------------------------

Main:
  pntr = 0
  DO
    READ Police + pntr, temp
    IF (temp.BIT7 = 1) THEN EXIT
    Lights = temp
    pntr = pntr + 1
    PAUSE Speed
  LOOP
  GOTO Main

  END


' -----[ Subroutines ]----------------------------------------------------- 